diff options
Diffstat (limited to 'ULibc.pas')
| -rw-r--r-- | ULibc.pas | 7 |
1 files changed, 0 insertions, 7 deletions
@@ -1017,21 +1017,14 @@ end; {$IFDEF CPUPOWERPC} -function xmalloc(size: size_t): Pointer; cdecl; external GLIBC_LIB name 'malloc'; -procedure xfree(ptr: Pointer); cdecl; external GLIBC_LIB name 'free'; - function malloc(size: size_t): Pointer; begin Result := GetMem(size); -// Result := xmalloc(size); - WriteLn('malloc(', size, '): 0x', IntToHex(DWORD(Result), 4)); end; procedure libc_free(ptr: Pointer); begin - WriteLn('free(0x', IntToHex(DWORD(ptr), 4), ')'); FreeMem(ptr); -// xfree(ptr); end; procedure free(ptr: Pointer); |
