diff options
| author | Tomas Bzatek <tbzatek@redhat.com> | 2008-06-16 22:33:31 +0200 |
|---|---|---|
| committer | Tomas Bzatek <tbzatek@redhat.com> | 2008-06-16 22:33:31 +0200 |
| commit | 1c828670f3a5cffc32bf527ecac846161711ee45 (patch) | |
| tree | b0c890ad0c0ad8bce3052ae9e6bf674697e6af8e /UEngines.pas | |
| parent | 5fa771023dc8757f0b23861ef4dac2b4dd9efaf8 (diff) | |
| download | tuxcmd-1c828670f3a5cffc32bf527ecac846161711ee45.tar.xz | |
PPC (32bit) fixes
Diffstat (limited to 'UEngines.pas')
| -rw-r--r-- | UEngines.pas | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/UEngines.pas b/UEngines.pas index b4dc319..1c51a62 100644 --- a/UEngines.pas +++ b/UEngines.pas @@ -1126,8 +1126,14 @@ 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; |