small fixes for windows

This commit is contained in:
Andreas Rumpf 2008-12-12 14:35:17 +01:00
commit 1c8ddca7e0
4 changed files with 276 additions and 272 deletions

View file

@ -750,7 +750,7 @@ proc collectCycles(gch: var TGcHeap) =
CellSetDeinit(gch.cycleRoots)
gch.cycleRoots = newRoots
proc gcMark(p: pointer) {.fastcall.} =
proc gcMark(p: pointer) = # {.fastcall.} =
# the addresses are not as objects on the stack, so turn them to objects:
var cell = usrToCell(p)
var c = cast[TAddress](cell)