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

* always first try to use base and only then index

Browse Source
This commit is contained in:
Jonas Maebe 2002-08-11 11:36:57 +00:00
parent a4d74cfd17
commit 6e499880f3
1 changed files with 22 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
compiler/ncgmem.pas
View File

@ -828,7 +828,13 @@ implementation
end;
end;
if location.reference.index=R_NO then
if location.reference.base=R_NO then
begin
location.reference.base:=right.location.register;
cg.a_op_const_reg(exprasmlist,OP_IMUL,get_mul_size,
right.location.register);
end
else if location.reference.index=R_NO then
begin
location.reference.index:=right.location.register;
cg.a_op_const_reg(exprasmlist,OP_IMUL,get_mul_size,
@ -836,24 +842,17 @@ implementation
end
else
begin
if location.reference.base=R_NO then
{ this wouldn't make sense for the ppc since there are }
{ no scalefactors (JM) }
internalerror(2002072901)
else
begin
cg.a_loadaddr_ref_reg(exprasmlist,location.reference,
location.reference.base);
rg.ungetregisterint(exprasmlist,location.reference.index);
{ the symbol offset is loaded, }
{ so release the symbol name and set symbol }
{ to nil }
location.reference.symbol:=nil;
location.reference.offset:=0;
cg.a_op_const_reg(exprasmlist,OP_IMUL,
get_mul_size,right.location.register);
location.reference.index:=right.location.register;
end;
cg.a_loadaddr_ref_reg(exprasmlist,location.reference,
location.reference.base);
rg.ungetregisterint(exprasmlist,location.reference.index);
{ the symbol offset is loaded, }
{ so release the symbol name and set symbol }
{ to nil }
location.reference.symbol:=nil;
location.reference.offset:=0;
cg.a_op_const_reg(exprasmlist,OP_IMUL,
get_mul_size,right.location.register);
location.reference.index:=right.location.register;
end;
end;
@ -876,7 +875,10 @@ begin
end.
{
$Log$
Revision 1.20 2002-08-11 06:14:40 florian
Revision 1.21 2002-08-11 11:36:57 jonas
* always first try to use base and only then index
Revision 1.20 2002/08/11 06:14:40 florian
* fixed powerpc compilation problems
Revision 1.19 2002/08/10 14:46:29 carl