paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 07:09:23 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/ncgbas.pas
View File

@ -170,7 +170,9 @@ interface
reference_reset_base(op.ref^,sym.localloc.reference.index, reference_reset_base(op.ref^,sym.localloc.reference.index,
sym.localloc.reference.offset+sofs); sym.localloc.reference.offset+sofs);
op.ref^.index:=indexreg; op.ref^.index:=indexreg;
{$ifdef i386}
op.ref^.scalefactor:=scale; op.ref^.scalefactor:=scale;
{$endif i386}
end; end;
end; end;
LOC_REGISTER : LOC_REGISTER :
@ -402,7 +404,10 @@ begin
end. end.
{ {
$Log$ $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 scalefactor for opr_local
* support reference with opr_local set, fixes tw2631 * support reference with opr_local set, fixes tw2631