paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 23:59:10 +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 case target_info.system of
system_i386_win32 : system_i386_win32 :
begin begin
case def.deftype of if calloption=pocall_safecall then
recorddef : begin
begin result:=true;
{ Win32 GCC returns small records in the FUNCTION_RETURN_REG. exit;
For stdcall we follow delphi instead of GCC } end
if (calloption in [pocall_cdecl,pocall_cppdecl]) and else
(def.size>0) and case def.deftype of
(def.size<=8) then recorddef :
begin begin
result:=false; { Win32 GCC returns small records in the FUNCTION_RETURN_REG.
exit; For stdcall we follow delphi instead of GCC }
end; if (calloption in [pocall_cdecl,pocall_cppdecl]) and
end; (def.size>0) and
end; (def.size<=8) then
begin
result:=false;
exit;
end;
end;
end;
end; end;
system_i386_darwin : system_i386_darwin :
begin begin
case def.deftype of case def.deftype of
recorddef : recorddef :
begin begin
size := def.size; size := def.size;
if (size > 0) and if (size > 0) and

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;