Ver código fonte

* Enabled safecall for mips.

git-svn-id: trunk@26709 -
yury 11 anos atrás
pai
commit
c58340f8dd
2 arquivos alterados com 2 adições e 0 exclusões
  1. 1 0
      compiler/fpcdefs.inc
  2. 1 0
      compiler/mips/cpuinfo.pas

+ 1 - 0
compiler/fpcdefs.inc

@@ -224,6 +224,7 @@
   {$define cpurefshaveindexreg}
   {$define cpurefshaveindexreg}
   {$define fpc_compiler_has_fixup_jmps}
   {$define fpc_compiler_has_fixup_jmps}
   {$define SUPPORT_GET_FRAME}
   {$define SUPPORT_GET_FRAME}
+  {$define SUPPORT_SAFECALL}
 {$endif mips}
 {$endif mips}
 
 
 {$ifdef jvm}
 {$ifdef jvm}

+ 1 - 0
compiler/mips/cpuinfo.pas

@@ -63,6 +63,7 @@ Const
    supported_calling_conventions : tproccalloptions = [
    supported_calling_conventions : tproccalloptions = [
      pocall_internproc,
      pocall_internproc,
      pocall_stdcall,
      pocall_stdcall,
+     pocall_safecall,
      { same as stdcall only different name mangling }
      { same as stdcall only different name mangling }
      pocall_cdecl,
      pocall_cdecl,
      { same as stdcall only different name mangling }
      { same as stdcall only different name mangling }