paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 06:49:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed ppc compilation

Browse Source
This commit is contained in:
Jonas Maebe 2003-11-02 13:30:05 +00:00
parent 39ae691859
commit 31ff6f25cb
1 changed files with 6 additions and 1 deletions

7
compiler/ncgbas.pas
View File

@ -170,7 +170,9 @@ interface
reference_reset_base(op.ref^,sym.localloc.reference.index,
sym.localloc.reference.offset+sofs);
op.ref^.index:=indexreg;
{$ifdef i386}
op.ref^.scalefactor:=scale;
{$endif i386}
end;
end;
LOC_REGISTER :
@ -402,7 +404,10 @@ begin
end.
{
$Log$
Revision 1.48 2003-10-30 19:59:00 peter
Revision 1.49 2003-11-02 13:30:05 jonas
* fixed ppc compilation
Revision 1.48 2003/10/30 19:59:00 peter
* support scalefactor for opr_local
* support reference with opr_local set, fixes tw2631