paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 20:09:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

* made safecall working, handling not consistent yet though

Browse Source 
git-svn-id: trunk@3418 -
This commit is contained in:
florian 2006-05-04 22:15:31 +00:00
parent acc016c9ec
commit a5dfe315ec
2 changed files with 22 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/i386/cpupara.pas
View File

@ -99,6 +99,12 @@ unit cpupara;
case target_info.system of case target_info.system of
system_i386_win32 : system_i386_win32 :
begin begin
if calloption=pocall_safecall then
begin
result:=true;
exit;
end
else
case def.deftype of case def.deftype of
recorddef : recorddef :
begin begin

2
compiler/pdecsub.pas
View File

@ -101,7 +101,7 @@ implementation
akttokenpos:=tprocdef(pd).fileinfo; akttokenpos:=tprocdef(pd).fileinfo;
{ For left to right add it at the end to be delphi compatible } { 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 paranr:=paranr_result_leftright
else else
paranr:=paranr_result; paranr:=paranr_result;