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

Merge branch 'master' of ssh://villavu.com:54367/simba

Browse Source
This commit is contained in:
Raymond 2010-03-27 14:10:27 +01:00
commit 245f9819fd
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Projects/MMLLib/test.py
View File

@ -36,8 +36,8 @@ dll.printpoints.argtypes = [PPOINT, c_int]
d = dll.printpoints(c, 2) d = dll.printpoints(c, 2)
#dll.hoi.restype = None dll.hoi.restype = None
#dll.hoi.argtypes = [POINTER(c_int)] dll.hoi.argtypes = [POINTER(c_int)]
e = c_int(5) e = c_int(5)
dll.hoi(byref(e)) dll.hoi(byref(e))

2
Units/Misc/PSDump.pas
View File

@ -175,7 +175,7 @@ procedure TPSScriptExtension.GetCodeProps;
Result := Result + 'property ' + ci.OrgName + s; Result := Result + 'property ' + ci.OrgName + s;
if (ci.Decl.Result <> nil) then if (ci.Decl.Result <> nil) then
Result := Result + ': '+ TypeToString(ci.Decl.Result); Result := Result + ': '+ TypeToString(ci.Decl.Result);
if (Cardinal(ci) = Def) then if (PtrUInt(ci) = Def) then
Result := Result + '; default'; Result := Result + '; default';
Result := Result + '; '; Result := Result + '; ';
end; end;