Sfoglia il codice sorgente

* pass record parameters on the stack for mwpascal calling convention
(instead of by reference)

git-svn-id: trunk@4866 -

Jonas Maebe 19 anni fa
parent
commit
0541a887b8
1 ha cambiato i file con 1 aggiunte e 1 eliminazioni
  1. 1 1
      compiler/i386/cpupara.pas

+ 1 - 1
compiler/i386/cpupara.pas

@@ -178,7 +178,7 @@ unit cpupara;
                 result:=false
                 result:=false
               else
               else
                 result:=
                 result:=
-                  (not(calloption in [pocall_cdecl,pocall_cppdecl]) and
+                  (not(calloption in [pocall_cdecl,pocall_cppdecl,pocall_mwpascal]) and
                    (def.size>sizeof(aint))) or
                    (def.size>sizeof(aint))) or
                   ((calloption = pocall_mwpascal) and
                   ((calloption = pocall_mwpascal) and
                    (varspez=vs_const));
                    (varspez=vs_const));