Use ByteAddress instead of deprecated TAddress
This commit is contained in:
parent
44ad71b7e0
commit
4e0f8cf595
4 changed files with 16 additions and 16 deletions
|
|
@ -659,7 +659,7 @@ when useMarkForDebug or useBackupGc:
|
|||
proc stackMarkS(gch: var GcHeap, p: pointer) {.inline.} =
|
||||
# the addresses are not as cells on the stack, so turn them to cells:
|
||||
var cell = usrToCell(p)
|
||||
var c = cast[TAddress](cell)
|
||||
var c = cast[ByteAddress](cell)
|
||||
if c >% PageSize:
|
||||
# fast check: does it look like a cell?
|
||||
var objStart = cast[PCell](interiorAllocatedPtr(gch.region, cell))
|
||||
|
|
@ -805,8 +805,8 @@ proc markThreadStacks(gch: var GcHeap) =
|
|||
while it != nil:
|
||||
# mark registers:
|
||||
for i in 0 .. high(it.registers): gcMark(gch, it.registers[i])
|
||||
var sp = cast[TAddress](it.stackBottom)
|
||||
var max = cast[TAddress](it.stackTop)
|
||||
var sp = cast[ByteAddress](it.stackBottom)
|
||||
var max = cast[ByteAddress](it.stackTop)
|
||||
# XXX stack direction?
|
||||
# XXX unroll this loop:
|
||||
while sp <=% max:
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue