jyapayne/Nim
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

alloc.nim: Make 'logAlloc' produce a toy Nim program for easier memory tracing

Browse source
This commit is contained in:
Andreas Rumpf 2018-01-18 10:46:23 +01:00
commit 03b7df74a9
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lib/system/alloc.nim
View file

@ -689,7 +689,7 @@ proc rawAlloc(a: var MemRegion, requestedSize: int): pointer =
add(a, a.root, cast[ByteAddress](result), cast[ByteAddress](result)+%size) add(a, a.root, cast[ByteAddress](result), cast[ByteAddress](result)+%size)
sysAssert(isAccessible(a, result), "rawAlloc 14") sysAssert(isAccessible(a, result), "rawAlloc 14")
sysAssert(allocInv(a), "rawAlloc: end") sysAssert(allocInv(a), "rawAlloc: end")
when logAlloc: cprintf("rawAlloc: %ld %p\n", requestedSize, result) when logAlloc: cprintf("var pointer_%p = alloc(%ld)\n", result, requestedSize)
proc rawAlloc0(a: var MemRegion, requestedSize: int): pointer = proc rawAlloc0(a: var MemRegion, requestedSize: int): pointer =
result = rawAlloc(a, requestedSize) result = rawAlloc(a, requestedSize)
@ -737,7 +737,7 @@ proc rawDealloc(a: var MemRegion, p: pointer) =
del(a, a.root, cast[int](addr(c.data))) del(a, a.root, cast[int](addr(c.data)))
freeBigChunk(a, c) freeBigChunk(a, c)
sysAssert(allocInv(a), "rawDealloc: end") sysAssert(allocInv(a), "rawDealloc: end")
when logAlloc: cprintf("rawDealloc: %p\n", p) when logAlloc: cprintf("dealloc(pointer_%p)\n", p)
proc isAllocatedPtr(a: MemRegion, p: pointer): bool = proc isAllocatedPtr(a: MemRegion, p: pointer): bool =
if isAccessible(a, p): if isAccessible(a, p):