paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-09 12:19:35 +01:00
Code Issues Packages Projects Releases Wiki Activity

* remove obsolete tparalocation.sp_fixup

Browse Source
This commit is contained in:
peter 2003-09-25 21:26:24 +00:00
parent 349fceb4fc
commit e7a50f0ee0
1 changed files with 4 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/cgobj.pas
View File

@ -527,8 +527,6 @@ unit cgobj;
a_load_reg_reg(list,size,locpara.size,r,locpara.register);
LOC_REFERENCE,LOC_CREFERENCE:
begin
if locpara.sp_fixup<>0 then
a_op_const_reg(list,OP_ADD,OS_ADDR,locpara.sp_fixup,NR_STACK_POINTER_REG);
reference_reset(ref);
ref.base:=locpara.reference.index;
ref.offset:=locpara.reference.offset;
@ -596,8 +594,6 @@ unit cgobj;
begin
if not(locpara.loc in [LOC_REFERENCE,LOC_CREFERENCE]) then
internalerror(2003010901);
if locpara.sp_fixup<>0 then
cg.g_stackpointer_alloc(list,locpara.sp_fixup);
reference_reset_base(ref,locpara.reference.index,locpara.reference.offset);
cg.g_concatcopy(list,r,ref,size,false,false);
end;
@ -869,8 +865,6 @@ unit cgobj;
a_loadfpu_reg_reg(list,size,r,locpara.register);
LOC_REFERENCE,LOC_CREFERENCE:
begin
if locpara.sp_fixup<>0 then
a_op_const_reg(list,OP_ADD,OS_ADDR,locpara.sp_fixup,NR_STACK_POINTER_REG);
reference_reset(ref);
ref.base:=locpara.reference.index;
ref.offset:=locpara.reference.offset;
@ -1581,7 +1575,10 @@ finalization
end.
{
$Log$
Revision 1.122 2003-09-23 20:37:16 peter
Revision 1.123 2003-09-25 21:26:24 peter
* remove obsolete tparalocation.sp_fixup
Revision 1.122 2003/09/23 20:37:16 peter
* fpc_check_object(_ext) has saveregisters and doesn't need
saving of registers