mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-17 13:49:11 +02:00
* made safecall working, handling not consistent yet though
git-svn-id: trunk@3418 -
This commit is contained in:
parent
acc016c9ec
commit
a5dfe315ec
@ -99,6 +99,12 @@ unit cpupara;
|
||||
case target_info.system of
|
||||
system_i386_win32 :
|
||||
begin
|
||||
if calloption=pocall_safecall then
|
||||
begin
|
||||
result:=true;
|
||||
exit;
|
||||
end
|
||||
else
|
||||
case def.deftype of
|
||||
recorddef :
|
||||
begin
|
||||
|
@ -101,7 +101,7 @@ implementation
|
||||
akttokenpos:=tprocdef(pd).fileinfo;
|
||||
|
||||
{ For left to right add it at the end to be delphi compatible }
|
||||
if pd.proccalloption in pushleftright_pocalls then
|
||||
if pd.proccalloption in (pushleftright_pocalls+[pocall_safecall]) then
|
||||
paranr:=paranr_result_leftright
|
||||
else
|
||||
paranr:=paranr_result;
|
||||
|
Loading…
Reference in New Issue
Block a user