moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-05 17:05:19 -05:00
Code Issues Releases Wiki Activity

Linux fix.

Browse Source
This commit is contained in:
Niels 2010-03-27 19:50:06 +01:00
parent 90e1e538a6
commit 72c304e277
2 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Projects/SAMufasaGUI/testunit.pas
View File

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

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;