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

git-svn-id: http://svn.freepascal.org/svn/fpc/branches/i8086@24281 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 10 insertions, 0 deletions

diff --git a/compiler/symdef.pas b/compiler/symdef.pas
index 57b56f9353..7444778ecc 100644
--- a/compiler/symdef.pas
+++ b/compiler/symdef.pas
@@ -494,6 +494,7 @@ interface
           procedure check_mark_as_nested;
           procedure init_paraloc_info(side: tcallercallee);
           function stack_tainting_parameter(side: tcallercallee): boolean;
+          function is_pushleftright: boolean;
        private
           procedure count_para(p:TObject;arg:pointer);
           procedure insert_para(p:TObject;arg:pointer);
@@ -4064,6 +4065,15 @@ implementation
             end;
       end;
 
+    function tabstractprocdef.is_pushleftright: boolean;
+      begin
+{$if defined(i8086) or defined(i386)}
+        result:=proccalloption in pushleftright_pocalls;
+{$else}
+        result:=false;
+{$endif}
+      end;
+