summaryrefslogtreecommitdiff
path: root/ULibc.pas
diff options
context:
space:
mode:
Diffstat (limited to 'ULibc.pas')
-rw-r--r--ULibc.pas7
1 files changed, 0 insertions, 7 deletions
diff --git a/ULibc.pas b/ULibc.pas
index 63902f5..5ff010f 100644
--- a/ULibc.pas
+++ b/ULibc.pas
@@ -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);