瀏覽代碼

* mwpascal is also a clearstack_pocall (fixes e.g. calling
CGAffineTransformMakeRotation on Darwin/i386)

git-svn-id: trunk@7397 -

Jonas Maebe 18 年之前
父節點
當前提交
02a69ff049
共有 1 個文件被更改,包括 1 次插入1 次删除
  1. 1 1
      compiler/symconst.pas

+ 1 - 1
compiler/symconst.pas

@@ -476,7 +476,7 @@ const
    inherited_objectoptions : tobjectoptions = [oo_has_virtual,oo_has_private,oo_has_protected,
    inherited_objectoptions : tobjectoptions = [oo_has_virtual,oo_has_private,oo_has_protected,
                 oo_has_strictprotected,oo_has_strictprivate,oo_has_constructor,oo_has_destructor];
                 oo_has_strictprotected,oo_has_strictprivate,oo_has_constructor,oo_has_destructor];
    clearstack_pocalls = [
    clearstack_pocalls = [
-     pocall_cdecl,pocall_cppdecl,pocall_syscall
+     pocall_cdecl,pocall_cppdecl,pocall_syscall,pocall_mwpascal
    ];
    ];
 
 
    pushleftright_pocalls : tproccalloptions = [pocall_register,pocall_pascal];
    pushleftright_pocalls : tproccalloptions = [pocall_register,pocall_pascal];