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

* changed motorola syntax of references with symbols to GNU syntax

Browse Source
This commit is contained in:
Jonas Maebe 2002-07-12 10:10:01 +00:00
parent 0a29a5632f
commit 4f77082660
1 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/powerpc/agppcgas.pas
View File

@ -127,6 +127,8 @@ unit agppcgas;
'XER','LR','CTR','FPSCR'
);
symaddr2str: array[trefsymaddr] of string[4] = ('','ha16','lo16');
function getreferencestring(var ref : treference) : string;
var
s : string;
@ -143,9 +145,10 @@ unit agppcgas;
halt(1);
end;
{$endif testing}
s:='';
if assigned(symbol) then
s:=s+symbol.name + symaddr2str[symaddr];
if not assigned(symbol) then
s:=''
else
s:=symaddr2str[symaddr]+'('+symbol.name + ')';
if offset<0 then
s:=s+tostr(offset)
else
@ -337,7 +340,10 @@ begin
end.
{
$Log$
Revision 1.4 2002-07-11 14:41:34 florian
Revision 1.5 2002-07-12 10:10:01 jonas
* changed motorola syntax of references with symbols to GNU syntax
Revision 1.4 2002/07/11 14:41:34 florian
* start of the new generic parameter handling
Revision 1.3 2002/07/11 07:34:55 jonas
@ -351,4 +357,4 @@ end.
Revision 1.1 2002/07/07 09:44:31 florian
* powerpc target fixed, very simple units can be compiled
}
}