moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2025-03-03 10:51:49 -05:00
Code Issues Releases Wiki Activity

Fix 64 bit compilation

Browse Source
This commit is contained in:
Merlijn Wajer 2010-03-27 13:15:48 +01:00
parent 9a7916dfd0
commit c100563622
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Units/Misc/PSDump.pas
View File

@ -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;