paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 17:19:33 +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

50
compiler/sparc/cpugas.pas
View File

@ -39,7 +39,7 @@ implementation
uses
cutils,systems,
verbose,itcpugas;
verbose,itcpugas,cgbase;
function GetReferenceString(var ref:TReference):string;
@ -57,10 +57,10 @@ implementation
GetReferenceString:=GetReferenceString+'+'+ToStr(offset)
else if offset<0 then
GetReferenceString:=GetReferenceString+ToStr(offset);
case symaddr of
refs_hi :
case refaddr of
addr_hi :
GetReferenceString:='%hi('+GetReferenceString+')';
refs_lo :
addr_lo :
GetReferenceString:='%lo('+GetReferenceString+')';
end;
end
@ -100,26 +100,27 @@ implementation
case typ of
top_reg:
getopstr:=gas_regname(reg);
top_ref:
getopstr:=getreferencestring(ref^);
top_const:
getopstr:=tostr(longint(val));
top_symbol:
begin
if assigned(sym) then
hs:={'$'+}sym.name
else
hs:='$';
if symofs>0 then
hs:=hs+'+'+tostr(symofs)
else
if symofs<0 then
hs:=hs+tostr(symofs)
else
if not(assigned(sym)) then
hs:=hs+'0';
getopstr:=hs;
end;
top_ref:
if Oper.ref^.refaddr=addr_full then
begin
if assigned(ref) then
hs:={'$'+}ref^.symbol.name
else
hs:='$';
if ref^.offset>0 then
hs:=hs+'+'+tostr(ref^.offset)
else
if ref^.offset<0 then
hs:=hs+tostr(ref^.offset)
else
if not(assigned(ref)) then
hs:=hs+'0';
getopstr:=hs;
end
else
getopstr:=getreferencestring(ref^);
else
internalerror(10001);
end;
@ -227,7 +228,10 @@ begin
end.
{
$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
Revision 1.23 2003/10/24 11:22:50 mazen