소스 검색

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

git-svn-id: trunk@4866 -

Jonas Maebe 19 년 전
부모
커밋
0541a887b8
1개의 변경된 파일1개의 추가작업 그리고 1개의 파일을 삭제
  1. 1 1
      compiler/i386/cpupara.pas

+ 1 - 1
compiler/i386/cpupara.pas

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