PPC (32bit) fixes

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;