@@ -105,7 +105,6 @@ Const
pocall_cppdecl,
pocall_far16,
pocall_pascal,
- pocall_oldfpccall,
pocall_mwpascal
];
@@ -217,8 +217,7 @@ unit cpupara;
pocall_mwpascal,
- 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;
result:=saveregs_pascal;
internalerror(2018042301);
@@ -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)}