paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 01:39:27 +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

36
compiler/i386/cpupara.pas
View File

@ -99,25 +99,31 @@ unit cpupara;
case target_info.system of
system_i386_win32 :
begin
case def.deftype of
recorddef :
begin
{ Win32 GCC returns small records in the FUNCTION_RETURN_REG.
For stdcall we follow delphi instead of GCC }
if (calloption in [pocall_cdecl,pocall_cppdecl]) and
(def.size>0) and
(def.size<=8) then
begin
result:=false;
exit;
end;
end;
end;
if calloption=pocall_safecall then
begin
result:=true;
exit;
end
else
case def.deftype of
recorddef :
begin
{ Win32 GCC returns small records in the FUNCTION_RETURN_REG.
For stdcall we follow delphi instead of GCC }
if (calloption in [pocall_cdecl,pocall_cppdecl]) and
(def.size>0) and
(def.size<=8) then
begin
result:=false;
exit;
end;
end;
end;
end;
system_i386_darwin :
begin
case def.deftype of
recorddef :
recorddef :
begin
size := def.size;
if (size > 0) and

2
compiler/pdecsub.pas
View File

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