From 1c828670f3a5cffc32bf527ecac846161711ee45 Mon Sep 17 00:00:00 2001
From: Tomas Bzatek <tbzatek@redhat.com>
Date: Mon, 16 Jun 2008 22:33:31 +0200
Subject: PPC (32bit) fixes

---
 UEngines.pas | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'UEngines.pas')

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;
-- 
cgit v1.2.3