paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-24 04:02:09 +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

14
compiler/powerpc/agppcgas.pas
View File

@ -127,6 +127,8 @@ unit agppcgas;
'XER','LR','CTR','FPSCR' 'XER','LR','CTR','FPSCR'
); );
symaddr2str: array[trefsymaddr] of string[4] = ('','ha16','lo16');
function getreferencestring(var ref : treference) : string; function getreferencestring(var ref : treference) : string;
var var
s : string; s : string;
@ -143,9 +145,10 @@ unit agppcgas;
halt(1); halt(1);
end; end;
{$endif testing} {$endif testing}
s:=''; if not assigned(symbol) then
if assigned(symbol) then s:=''
s:=s+symbol.name + symaddr2str[symaddr]; else
s:=symaddr2str[symaddr]+'('+symbol.name + ')';
if offset<0 then if offset<0 then
s:=s+tostr(offset) s:=s+tostr(offset)
else else
@ -337,7 +340,10 @@ begin
end. end.
{ {
$Log$ $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 * start of the new generic parameter handling
Revision 1.3 2002/07/11 07:34:55 jonas Revision 1.3 2002/07/11 07:34:55 jonas