Sfoglia il codice sorgente

- removed pocall_oldfpccall from the supported calling conventions of the i8086
code generator

git-svn-id: trunk@38935 -

nickysn 7 anni fa
parent
commit
0a12bc4697
3 ha cambiato i file con 3 aggiunte e 6 eliminazioni
  1. 0 1
      compiler/i8086/cpuinfo.pas
  2. 2 4
      compiler/i8086/cpupara.pas
  3. 1 1
      compiler/x86/nx86cal.pas

+ 0 - 1
compiler/i8086/cpuinfo.pas

@@ -105,7 +105,6 @@ Const
      pocall_cppdecl,
      pocall_far16,
      pocall_pascal,
-     pocall_oldfpccall,
      pocall_mwpascal
    ];
 

+ 2 - 4
compiler/i8086/cpupara.pas

@@ -217,8 +217,7 @@ unit cpupara;
           pocall_cppdecl,
           pocall_mwpascal,
           pocall_far16,
-          pocall_pascal,
-          pocall_oldfpccall :
+          pocall_pascal :
             result:=[RS_AX,RS_DX,RS_CX,RS_SI,RS_DI,RS_BX];
           else
             internalerror(200309071);
@@ -253,8 +252,7 @@ unit cpupara;
           pocall_cppdecl,
           pocall_mwpascal,
           pocall_far16,
-          pocall_pascal,
-          pocall_oldfpccall :
+          pocall_pascal :
             result:=saveregs_pascal;
           else
             internalerror(2018042301);

+ 1 - 1
compiler/x86/nx86cal.pas

@@ -88,7 +88,7 @@ implementation
   function tx86callnode.can_call_ref(var ref: treference): boolean;
     const
 {$if defined(i8086)}
-      save_all_regs=[pocall_far16,pocall_pascal,pocall_oldfpccall];
+      save_all_regs=[pocall_far16,pocall_pascal];
 {$elseif defined(i386)}
       save_all_regs=[pocall_far16,pocall_oldfpccall];
 {$elseif defined(x86_64)}