paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-04 14:07:10 +01:00
Code Issues Packages Projects Releases Wiki Activity

* symaddr ==> refaddr to follow the rest of compiler changes

Browse Source
This commit is contained in:
mazen 2004-02-27 13:27:28 +00:00
parent f367223dd2
commit f02d3cfc4f
2 changed files with 19 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/sparc/cgcpu.pas
View File

@ -108,7 +108,7 @@ implementation
uses uses
globtype,globals,verbose,systems,cutils, globtype,globals,verbose,systems,cutils,
symdef,symsym,defutil,paramgr, symdef,symsym,defutil,paramgr,
tgobj,cpupi; tgobj,cpupi,cgutils;
{**************************************************************************** {****************************************************************************
@ -149,11 +149,11 @@ implementation
reference_reset(tmpref); reference_reset(tmpref);
tmpref.symbol:=ref.symbol; tmpref.symbol:=ref.symbol;
tmpref.offset:=ref.offset; tmpref.offset:=ref.offset;
tmpref.symaddr:=refs_hi; tmpref.refaddr:=addr_hi;
list.concat(taicpu.op_ref_reg(A_SETHI,tmpref,tmpreg)); list.concat(taicpu.op_ref_reg(A_SETHI,tmpref,tmpreg));
{ Load the low part is left } { Load the low part is left }
{$warning TODO Maybe not needed to load symbol} {$warning TODO Maybe not needed to load symbol}
tmpref.symaddr:=refs_lo; tmpref.refaddr:=addr_lo;
list.concat(taicpu.op_reg_ref_reg(A_OR,tmpreg,tmpref,tmpreg)); list.concat(taicpu.op_reg_ref_reg(A_OR,tmpreg,tmpref,tmpreg));
{ The offset and symbol are loaded, reset in reference } { The offset and symbol are loaded, reset in reference }
ref.offset:=0; ref.offset:=0;
@ -542,10 +542,10 @@ implementation
reference_reset(tmpref); reference_reset(tmpref);
tmpref.symbol := ref.symbol; tmpref.symbol := ref.symbol;
tmpref.offset := ref.offset; tmpref.offset := ref.offset;
tmpref.symaddr := refs_hi; tmpref.refaddr := addr_hi;
list.concat(taicpu.op_ref_reg(A_SETHI,tmpref,hreg)); list.concat(taicpu.op_ref_reg(A_SETHI,tmpref,hreg));
{ Only the low part is left } { Only the low part is left }
tmpref.symaddr:=refs_lo; tmpref.refaddr:=addr_lo;
list.concat(taicpu.op_reg_ref_reg(A_OR,hreg,tmpref,hreg)); list.concat(taicpu.op_reg_ref_reg(A_OR,hreg,tmpref,hreg));
if ref.base<>NR_NO then if ref.base<>NR_NO then
begin begin
@ -1107,7 +1107,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.78 2004-02-04 22:01:13 peter Revision 1.79 2004-02-27 13:28:28 mazen
* symaddr ==> refaddr to follow the rest of compiler changes
Revision 1.78 2004/02/04 22:01:13 peter
* first try to get cpupara working for x86_64 * first try to get cpupara working for x86_64
Revision 1.77 2004/01/12 22:11:38 peter Revision 1.77 2004/01/12 22:11:38 peter

17
compiler/sparc/racpugas.pas
View File

@ -60,7 +60,7 @@ Interface
procinfo, procinfo,
itcpugas, itcpugas,
rabase,rautils, rabase,rautils,
cgbase,cgobj cgbase,cgobj,cgutils
; ;
procedure tSparcReader.ReadSym(oper : tSparcoperand); procedure tSparcReader.ReadSym(oper : tSparcoperand);
@ -105,9 +105,9 @@ Interface
if actasmtoken=AS_ID then if actasmtoken=AS_ID then
begin begin
if upper(actasmpattern)='LO' then if upper(actasmpattern)='LO' then
oper.opr.ref.symaddr:=refs_lo oper.opr.ref.refaddr:=addr_lo
else if upper(actasmpattern)='HI' then else if upper(actasmpattern)='HI' then
oper.opr.ref.symaddr:=refs_hi oper.opr.ref.refaddr:=addr_hi
else else
Message(asmr_e_invalid_reference_syntax); Message(asmr_e_invalid_reference_syntax);
Consume(AS_ID); Consume(AS_ID);
@ -310,9 +310,9 @@ Interface
memory location) } memory location) }
oper.InitRef; oper.InitRef;
if actasmtoken=AS_LO then if actasmtoken=AS_LO then
oper.opr.ref.symaddr:=refs_lo oper.opr.ref.refaddr:=addr_lo
else else
oper.opr.ref.symaddr:=refs_hi; oper.opr.ref.refaddr:=addr_hi;
Consume(actasmtoken); Consume(actasmtoken);
Consume(AS_LPAREN); Consume(AS_LPAREN);
BuildConstSymbolExpression(false, true,false,l,tempstr); BuildConstSymbolExpression(false, true,false,l,tempstr);
@ -577,7 +577,7 @@ Interface
symofs:=instr.Operands[1].opr.ref.offset; symofs:=instr.Operands[1].opr.ref.offset;
if (instr.Operands[1].opr.ref.base<>NR_NO) or if (instr.Operands[1].opr.ref.base<>NR_NO) or
(instr.Operands[1].opr.ref.index<>NR_NO) or (instr.Operands[1].opr.ref.index<>NR_NO) or
(instr.Operands[1].opr.ref.symaddr<>refs_full) then (instr.Operands[1].opr.ref.refaddr<>addr_full) then
Message(asmr_e_syn_operand); Message(asmr_e_syn_operand);
instr.Operands[1].opr:=newopr; instr.Operands[1].opr:=newopr;
end; end;
@ -626,7 +626,10 @@ initialization
end. end.
{ {
$Log$ $Log$
Revision 1.6 2004-01-12 22:11:39 peter Revision 1.7 2004-02-27 13:27:28 mazen
* symaddr ==> refaddr to follow the rest of compiler changes
Revision 1.6 2004/01/12 22:11:39 peter
* use localalign info for alignment for locals and temps * use localalign info for alignment for locals and temps
* sparc fpu flags branching added * sparc fpu flags branching added
* moved powerpc copy_valye_openarray to generic * moved powerpc copy_valye_openarray to generic