From 72c304e277f56ddcfb051cac719f4af6a1c33709 Mon Sep 17 00:00:00 2001
From: Niels <nielsie95>
Date: Sat, 27 Mar 2010 19:50:06 +0100
Subject: [PATCH] Linux fix.

---
 Projects/SAMufasaGUI/testunit.pas | 2 --
 Units/Misc/PSDump.pas             | 2 +-
 2 files changed, 1 insertion(+), 3 deletions(-)

diff --git a/Projects/SAMufasaGUI/testunit.pas b/Projects/SAMufasaGUI/testunit.pas
index ce462f5..7a2c0a2 100644
--- a/Projects/SAMufasaGUI/testunit.pas
+++ b/Projects/SAMufasaGUI/testunit.pas
@@ -1750,14 +1750,12 @@ procedure TForm1.FormCreate(Sender: TObject);
     ms := TMemoryStream.Create;
 
     try
-
       with TPSThread(t).PSScript do
       begin
         a.OnCompile := OnCompile;
         a.OnCompImport := OnCompImport;
         a.OnExecImport := OnExecImport;
       end;
-
       a.GetValueDefs(b);
 
       SetLength(CoreBuffer, 1);
diff --git a/Units/Misc/PSDump.pas b/Units/Misc/PSDump.pas
index dc84e5f..1331077 100644
--- a/Units/Misc/PSDump.pas
+++ b/Units/Misc/PSDump.pas
@@ -175,7 +175,7 @@ procedure TPSScriptExtension.GetCodeProps;
         Result := Result + 'property ' + ci.OrgName + s;
         if (ci.Decl.Result <> nil) then
           Result := Result + ': '+ TypeToString(ci.Decl.Result);
-        if (Cardinal(ci) = Def) then
+        if (PtrUInt(ci) = Def) then
           Result := Result + '; default';
         Result := Result + '; ';
       end;