paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-08 21:58:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

- removed the check for pocall_oldfpccall from ncgutil.gen_save_used_regs and

Browse Source 
gen_restore_used_regs. This is now handled by get_saved_registers_int in
  cpupara.

git-svn-id: trunk@38934 -
This commit is contained in:
nickysn 2018-05-06 12:41:40 +00:00
parent d37b1b631e
commit 55ecc7feff
1 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/ncgutil.pas
View File

@ -1376,8 +1376,6 @@ implementation
if (po_assembler in current_procinfo.procdef.procoptions) then if (po_assembler in current_procinfo.procdef.procoptions) then
exit; exit;
{ oldfpccall expects all registers to be destroyed }
if current_procinfo.procdef.proccalloption<>pocall_oldfpccall then
cg.g_save_registers(list); cg.g_save_registers(list);
end; end;
@ -1388,8 +1386,6 @@ implementation
if (po_assembler in current_procinfo.procdef.procoptions) then if (po_assembler in current_procinfo.procdef.procoptions) then
exit; exit;
{ oldfpccall expects all registers to be destroyed }
if current_procinfo.procdef.proccalloption<>pocall_oldfpccall then
cg.g_restore_registers(list); cg.g_restore_registers(list);
end; end;