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

* fixed ppc/ppc64 compilation after r12719

Browse Source 
git-svn-id: trunk@12730 -
This commit is contained in:
Jonas Maebe 2009-02-09 09:47:02 +00:00
parent 0438667eed
commit 976aa04378
3 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/powerpc/cgcpu.pas
View File

@ -221,7 +221,7 @@ const
end; end;
LOC_REFERENCE: LOC_REFERENCE:
begin begin
reference_reset_base(ref,location^.reference.index,location^.reference.offset,cgpara.alignment); reference_reset_base(ref,location^.reference.index,location^.reference.offset,paraloc.alignment);
g_concatcopy(list,tmpref,ref,sizeleft); g_concatcopy(list,tmpref,ref,sizeleft);
if assigned(location^.next) then if assigned(location^.next) then
internalerror(2005010710); internalerror(2005010710);

4
compiler/ppcgen/ngppcset.pas
View File

@ -122,11 +122,11 @@ implementation
{ create reference, indexreg := indexreg * sizeof(jtentry) (= 4) } { create reference, indexreg := indexreg * sizeof(jtentry) (= 4) }
mulfactor:=4; mulfactor:=4;
cg.a_op_const_reg(current_asmdata.CurrAsmList, OP_MUL, OS_INT, mulfactor, indexreg); cg.a_op_const_reg(current_asmdata.CurrAsmList, OP_MUL, OS_INT, mulfactor, indexreg);
reference_reset_symbol(href, table, (-aint(min_)) * mulfactor); reference_reset_symbol(href, table, (-aint(min_)) * mulfactor, 4);
hregister:=cg.getaddressregister(current_asmdata.CurrAsmList); hregister:=cg.getaddressregister(current_asmdata.CurrAsmList);
cg.a_loadaddr_ref_reg(current_asmdata.CurrAsmList,href,hregister); cg.a_loadaddr_ref_reg(current_asmdata.CurrAsmList,href,hregister);
reference_reset_base(href,hregister,0); reference_reset_base(href,hregister,0,4);
href.index:=indexreg; href.index:=indexreg;
indexreg:=cg.getaddressregister(current_asmdata.CurrAsmList); indexreg:=cg.getaddressregister(current_asmdata.CurrAsmList);
cg.a_load_ref_reg(current_asmdata.CurrAsmList,OS_S32,OS_ADDR,href,indexreg); cg.a_load_ref_reg(current_asmdata.CurrAsmList,OS_S32,OS_ADDR,href,indexreg);

6
compiler/ppcgen/rgcpu.pas
View File

@ -48,7 +48,7 @@ unit rgcpu;
implementation implementation
uses uses
verbose, cutils, verbose, cutils,globtype,
cgobj, cgobj,
procinfo; procinfo;
@ -77,7 +77,7 @@ unit rgcpu;
else else
hreg:=cg.getintregister(helplist,OS_ADDR); hreg:=cg.getintregister(helplist,OS_ADDR);
reference_reset(tmpref); reference_reset(tmpref,sizeof(aint));
tmpref.offset:=spilltemp.offset; tmpref.offset:=spilltemp.offset;
tmpref.refaddr := addr_higha; tmpref.refaddr := addr_higha;
ins:=taicpu.op_reg_reg_ref(A_ADDIS,hreg,spilltemp.base,tmpref); ins:=taicpu.op_reg_reg_ref(A_ADDIS,hreg,spilltemp.base,tmpref);
@ -127,7 +127,7 @@ unit rgcpu;
end end
else else
hreg:=cg.getintregister(helplist,OS_ADDR); hreg:=cg.getintregister(helplist,OS_ADDR);
reference_reset(tmpref); reference_reset(tmpref,sizeof(aint));
tmpref.offset:=spilltemp.offset; tmpref.offset:=spilltemp.offset;
tmpref.refaddr := addr_higha; tmpref.refaddr := addr_higha;
ins:=taicpu.op_reg_reg_ref(A_ADDIS,hreg,spilltemp.base,tmpref); ins:=taicpu.op_reg_reg_ref(A_ADDIS,hreg,spilltemp.base,tmpref);