2051 |
scm_must_free() won't take NULL. |
scm_must_free() won't take NULL. |
2052 |
*/ |
*/ |
2053 |
scm_mallocated += size - old_size; |
scm_mallocated += size - old_size; |
|
SCM_SYSCALL (ptr = realloc (where, size)); |
|
2054 |
|
|
2055 |
|
/* |
2056 |
|
The realloc must be after check_mtrigger(), since realloc might |
2057 |
|
munge the old block of memory, which will be scanned by GC. |
2058 |
|
*/ |
2059 |
check_mtrigger (what); |
check_mtrigger (what); |
2060 |
|
|
2061 |
|
SCM_SYSCALL (ptr = realloc (where, size)); |
2062 |
|
|
2063 |
if (NULL != ptr) |
if (NULL != ptr) |
2064 |
{ |
{ |
2065 |
#ifdef GUILE_DEBUG_MALLOC |
#ifdef GUILE_DEBUG_MALLOC |