diff options
| -rw-r--r-- | UEngines.pas | 6 | ||||
| -rw-r--r-- | ULibc.pas | 7 | ||||
| -rw-r--r-- | tuxcmd.dpr | 3 |
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; @@ -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); @@ -22,9 +22,6 @@ program tuxcmd; uses {$IFDEF FPC} -{$IFDEF CPUPOWERPC} -// cmem, -{$ENDIF} cthreads, cwstring, {$ENDIF} |
