paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 07:26:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

- removed pocall_far16 from the supported calling conventions of the i8086

Browse Source 
code generator

git-svn-id: trunk@38938 -
This commit is contained in:
nickysn 2018-05-06 15:14:40 +00:00
parent eb95dcb85f
commit d9925f7074
3 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
compiler/i8086/cpuinfo.pas
View File

@ -103,7 +103,6 @@ Const
pocall_stdcall, pocall_stdcall,
pocall_cdecl, pocall_cdecl,
pocall_cppdecl, pocall_cppdecl,
pocall_far16,
pocall_pascal pocall_pascal
]; ];

2
compiler/i8086/cpupara.pas
View File

@ -213,7 +213,6 @@ unit cpupara;
pocall_safecall, pocall_safecall,
pocall_stdcall, pocall_stdcall,
pocall_cppdecl, pocall_cppdecl,
pocall_far16,
pocall_pascal : pocall_pascal :
result:=[RS_AX,RS_DX,RS_CX,RS_SI,RS_DI,RS_BX]; result:=[RS_AX,RS_DX,RS_CX,RS_SI,RS_DI,RS_BX];
else else
@ -247,7 +246,6 @@ unit cpupara;
pocall_safecall, pocall_safecall,
pocall_stdcall, pocall_stdcall,
pocall_cppdecl, pocall_cppdecl,
pocall_far16,
pocall_pascal : pocall_pascal :
result:=saveregs_pascal; result:=saveregs_pascal;
else else

2
compiler/x86/nx86cal.pas
View File

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