make tests green again

tests/compile/tnewlibs.nim

@@ -11,7 +11,7 @@ import
   cairowin32, cairoxlib,
   gl, glut, glu, glx, glext, wingl,
   lua, lualib, lauxlib, mysql, sqlite3, db_mongo, md5, asyncio, mimetypes,
-  cookies, events, ftpclient
+  cookies, events, ftpclient, scgi, irc
   
 
 writeln(stdout, "test compilation of binding modules")

tests/compile/tobjcov.nim

@@ -11,7 +11,7 @@ proc bp(x: var TB) = x.b[high(x.b)] = -1
     
 # in Nimrod proc (x: TB) is compatible to proc (x: TA),
 # but this is not type safe:
-var f = cast[proc (x: var TA)](bp)
+var f = cast[proc (x: var TA) {.nimcall.}](bp)
 var a: TA
 f(a) # bp expects a TB, but gets a TA
 

tests/compile/tvoid.nim

@@ -11,7 +11,7 @@ proc ReturnT[T](x: T): T =
 proc nothing(x, y: void): void =
   echo "ha"
 
-proc callProc[T](p: proc (x: T), x: T) =
+proc callProc[T](p: proc (x: T) {.nimcall.}, x: T) =
   when T is void: 
     p()
   else:

tests/run/tgenericprocvar.nim

@@ -18,7 +18,7 @@ threadProcWrapper[int]()
 threadProcWrapper[bool]()
 
 type
-  TFilterProc[T,D] = proc (item: T, env:D): bool
+  TFilterProc[T,D] = proc (item: T, env:D): bool {.nimcall.}
 
 proc filter[T,D](data: seq[T], env:D, pred: TFilterProc[T,D]): seq[T] =
   result = @[]

tests/run/toop1.nim

@@ -7,7 +7,7 @@ import macros
 
 type
   TFigure = object of TObject    # abstract base class:
-    draw: proc (my: var TFigure) # concrete classes implement this proc
+    draw: proc (my: var TFigure) {.nimcall.} # concrete classes implement this
   
 proc init(f: var TFigure) = 
   f.draw = nil
@@ -21,7 +21,7 @@ proc drawCircle(my: var TCircle) = stdout.writeln("o " & $my.radius)
 proc init(my: var TCircle) = 
   init(TFigure(my)) # call base constructor
   my.radius = 5
-  my.draw = cast[proc (my: var TFigure)](drawCircle)
+  my.draw = cast[proc (my: var TFigure) {.nimcall.}](drawCircle)
 
 type
   TRectangle = object of TFigure
@@ -33,7 +33,7 @@ proc init(my: var TRectangle) =
   init(TFigure(my)) # call base constructor
   my.width = 5
   my.height = 10
-  my.draw = cast[proc (my: var TFigure)](drawRectangle)
+  my.draw = cast[proc (my: var TFigure) {.nimcall.}](drawRectangle)
 
 macro `!` (n: expr): stmt = 
   result = newNimNode(nnkCall, n)

tests/run/topenarrayrepr.nim

@@ -3,7 +3,7 @@ discard """
   output: "5 - [1]"
 """
 type
-  TProc = proc (n: int, m: openarray[int64])
+  TProc = proc (n: int, m: openarray[int64]) {.nimcall.}
 
 proc Foo(x: int, P: TProc) =
   P(x, [ 1'i64 ])

tests/run/toverl2.nim

@@ -16,7 +16,7 @@ iterator toverl2(x: int): int =
     inc(res)
 
 var
-  pp: proc (x: bool): string = toverl2
+  pp: proc (x: bool): string {.nimcall.} = toverl2
 
 stdout.write(pp(true))