paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 20:49:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fpc_check_object(_ext) has saveregisters and doesn't need

Browse Source 
saving of registers
This commit is contained in:
peter 2003-09-23 20:37:16 +00:00
parent 06071e3d31
commit 56ece89fe5
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/cgobj.pas
View File

@ -1454,6 +1454,7 @@ unit cgobj;
paramanager.allocparaloc(list,paraloc1);
a_param_const(list,OS_32,stackframesize,paraloc1);
paramanager.freeparaloc(list,paraloc1);
{ No register saving needed, saveregisters is used }
a_call_name(list,'FPC_STACKCHECK');
end;
@ -1506,9 +1507,8 @@ unit cgobj;
a_param_reg(list,OS_ADDR,reg,paraloc1);
paramanager.freeparaloc(list,paraloc1);
paramanager.freeparaloc(list,paraloc2);
rg.allocexplicitregistersint(list,paramanager.get_volatile_registers_int(pocall_default));
{ No register saving needed, saveregisters is used }
a_call_name(list,'FPC_CHECK_OBJECT_EXT');
rg.deallocexplicitregistersint(list,paramanager.get_volatile_registers_int(pocall_default));
end
else
if (cs_check_range in aktlocalswitches) then
@ -1516,9 +1516,8 @@ unit cgobj;
paramanager.allocparaloc(list,paraloc1);
a_param_reg(list,OS_ADDR,reg,paraloc1);
paramanager.freeparaloc(list,paraloc1);
rg.allocexplicitregistersint(list,paramanager.get_volatile_registers_int(pocall_default));
{ No register saving needed, saveregisters is used }
a_call_name(list,'FPC_CHECK_OBJECT');
rg.deallocexplicitregistersint(list,paramanager.get_volatile_registers_int(pocall_default));
end;
end;
@ -1582,7 +1581,11 @@ finalization
end.
{
$Log$
Revision 1.121 2003-09-10 08:31:47 marco
Revision 1.122 2003-09-23 20:37:16 peter
* fpc_check_object(_ext) has saveregisters and doesn't need
saving of registers
Revision 1.121 2003/09/10 08:31:47 marco
* Patch from Peter for paraloc
Revision 1.120 2003/09/09 20:59:27 daniel