fixes a critical --gc:boehm regression
This commit is contained in:
parent
0e01a5f76c
commit
e0f3e8432a
2 changed files with 7 additions and 5 deletions
|
|
@ -112,8 +112,8 @@ when defined(boehmgc):
|
|||
if result == nil: raiseOutOfMem()
|
||||
proc alloc0(size: Natural): pointer =
|
||||
result = alloc(size)
|
||||
proc realloc(p: pointer, newsize: Natural): pointer =
|
||||
result = boehmRealloc(p, newsize)
|
||||
proc realloc(p: pointer, newSize: Natural): pointer =
|
||||
result = boehmRealloc(p, newSize)
|
||||
if result == nil: raiseOutOfMem()
|
||||
proc dealloc(p: pointer) = boehmDealloc(p)
|
||||
|
||||
|
|
@ -122,8 +122,8 @@ when defined(boehmgc):
|
|||
if result == nil: raiseOutOfMem()
|
||||
proc allocShared0(size: Natural): pointer =
|
||||
result = allocShared(size)
|
||||
proc reallocShared(p: pointer, newsize: Natural): pointer =
|
||||
result = boehmRealloc(p, newsize)
|
||||
proc reallocShared(p: pointer, newSize: Natural): pointer =
|
||||
result = boehmRealloc(p, newSize)
|
||||
if result == nil: raiseOutOfMem()
|
||||
proc deallocShared(p: pointer) = boehmDealloc(p)
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue