paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-22 01:52:48 +02: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 15:15:33 +00:00
parent d6382f17f2
commit 83d619bec5
1 changed files with 27 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
compiler/sparc/cpugas.pas
View File

@ -39,7 +39,7 @@ implementation
uses uses
cutils,systems, cutils,systems,
verbose,itcpugas; verbose,itcpugas,cgbase;
function GetReferenceString(var ref:TReference):string; function GetReferenceString(var ref:TReference):string;
@ -57,10 +57,10 @@ implementation
GetReferenceString:=GetReferenceString+'+'+ToStr(offset) GetReferenceString:=GetReferenceString+'+'+ToStr(offset)
else if offset<0 then else if offset<0 then
GetReferenceString:=GetReferenceString+ToStr(offset); GetReferenceString:=GetReferenceString+ToStr(offset);
case symaddr of case refaddr of
refs_hi : addr_hi :
GetReferenceString:='%hi('+GetReferenceString+')'; GetReferenceString:='%hi('+GetReferenceString+')';
refs_lo : addr_lo :
GetReferenceString:='%lo('+GetReferenceString+')'; GetReferenceString:='%lo('+GetReferenceString+')';
end; end;
end end
@ -100,26 +100,27 @@ implementation
case typ of case typ of
top_reg: top_reg:
getopstr:=gas_regname(reg); getopstr:=gas_regname(reg);
top_ref:
getopstr:=getreferencestring(ref^);
top_const: top_const:
getopstr:=tostr(longint(val)); getopstr:=tostr(longint(val));
top_symbol: top_ref:
if Oper.ref^.refaddr=addr_full then
begin begin
if assigned(sym) then if assigned(ref) then
hs:={'$'+}sym.name hs:={'$'+}ref^.symbol.name
else else
hs:='$'; hs:='$';
if symofs>0 then if ref^.offset>0 then
hs:=hs+'+'+tostr(symofs) hs:=hs+'+'+tostr(ref^.offset)
else else
if symofs<0 then if ref^.offset<0 then
hs:=hs+tostr(symofs) hs:=hs+tostr(ref^.offset)
else else
if not(assigned(sym)) then if not(assigned(ref)) then
hs:=hs+'0'; hs:=hs+'0';
getopstr:=hs; getopstr:=hs;
end; end
else
getopstr:=getreferencestring(ref^);
else else
internalerror(10001); internalerror(10001);
end; end;
@ -227,7 +228,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.24 2004-01-12 16:39:41 peter Revision 1.25 2004-02-27 15:15:33 mazen
* symaddr ==> refaddr to follow the rest of compiler changes
Revision 1.24 2004/01/12 16:39:41 peter
* sparc updates, mostly float related * sparc updates, mostly float related
Revision 1.23 2003/10/24 11:22:50 mazen Revision 1.23 2003/10/24 11:22:50 mazen