Delphi/pascalscript
Delphi/pascalscript
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

safecall -> stdcall

Browse Source 
git-svn-id: http://code.remobjects.com/svn/pascalscript@182 5c9d2617-0215-0410-a2ee-e80e04d1c6d8
This commit is contained in:
mlaan 2009-09-24 19:17:38 +00:00
parent 8194cb6504
commit 37ca375cb1
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Source/uPSCompiler.pas
View File

@ -4163,7 +4163,7 @@ begin
Intf := AddInterface(FindInterface(InheritedFrom), Guid, Name);
FParser.Next;
repeat
if not Intf.RegisterMethodEx('', cdSafeCall, FParser) then begin
if not Intf.RegisterMethodEx('', cdStdCall, FParser) then begin
MakeError('', ecCustomError, 'Invalid method');
Result := nil;
Exit;