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

+ added method tabstractprocdef.is_pushleftright that exists on all platforms and returns whether parameters must be loaded left to right

Browse Source 
git-svn-id: branches/i8086@24281 -
This commit is contained in:
nickysn 2013-04-21 09:49:34 +00:00
parent 51d61cc593
commit 5caadbbc40
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/symdef.pas
View File

@ -494,6 +494,7 @@ interface
procedure check_mark_as_nested; procedure check_mark_as_nested;
procedure init_paraloc_info(side: tcallercallee); procedure init_paraloc_info(side: tcallercallee);
function stack_tainting_parameter(side: tcallercallee): boolean; function stack_tainting_parameter(side: tcallercallee): boolean;
function is_pushleftright: boolean;
private private
procedure count_para(p:TObject;arg:pointer); procedure count_para(p:TObject;arg:pointer);
procedure insert_para(p:TObject;arg:pointer); procedure insert_para(p:TObject;arg:pointer);
@ -4064,6 +4065,15 @@ implementation
end; end;
end; end;
function tabstractprocdef.is_pushleftright: boolean;
begin
{$if defined(i8086) or defined(i386)}
result:=proccalloption in pushleftright_pocalls;
{$else}
result:=false;
{$endif}
end;