summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--UEngines.pas6
-rw-r--r--ULibc.pas7
-rw-r--r--tuxcmd.dpr3
3 files changed, 0 insertions, 16 deletions
diff --git a/UEngines.pas b/UEngines.pas
index c08b077..264740c 100644
--- a/UEngines.pas
+++ b/UEngines.pas
@@ -1121,14 +1121,8 @@ begin
if FName <> nil then libc_free(FName);
if FDisplayName <> nil then libc_free(FDisplayName);
if LnkPointTo <> nil then libc_free(LnkPointTo);
-{$IFDEF CPUPOWERPC}
- Writeln('FreeDataItem: before free ColumnData');
-{$ENDIF}
for i := 0 to Length(ColumnData) - 1 do
if ColumnData[i] <> nil then libc_free(ColumnData[i]);
-{$IFDEF CPUPOWERPC}
- Writeln('FreeDataItem: after free ColumnData');
-{$ENDIF}
end;
libc_free(DataItem);
end;
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);
diff --git a/tuxcmd.dpr b/tuxcmd.dpr
index 1aa4b87..9720751 100644
--- a/tuxcmd.dpr
+++ b/tuxcmd.dpr
@@ -22,9 +22,6 @@ program tuxcmd;
uses
{$IFDEF FPC}
-{$IFDEF CPUPOWERPC}
-// cmem,
-{$ENDIF}
cthreads,
cwstring,
{$ENDIF}