diff options
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; |
