paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 09:29:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ support top_none for branches

Browse Source
This commit is contained in:
Jonas Maebe 2002-08-31 19:27:48 +00:00
parent 7a8429a4fe
commit f107ba3bbe
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/powerpc/agppcgas.pas
View File

@ -140,7 +140,7 @@ unit agppcgas;
'clrslwi.', 'blr', 'bctr', 'blrl', 'bctrl', 'crset', 'crclr', 'crmove', 'clrslwi.', 'blr', 'bctr', 'blrl', 'bctrl', 'crset', 'crclr', 'crmove',
'crnot', 'mt', 'mf','nop', 'li', 'lis', 'la', 'mr','mr.','not', 'mtcr', 'mtlr', 'mflr'); 'crnot', 'mt', 'mf','nop', 'li', 'lis', 'la', 'mr','mr.','not', 'mtcr', 'mtlr', 'mflr');
symaddr2str: array[trefsymaddr] of string[2] = ('','@ha','@l'); symaddr2str: array[trefsymaddr] of string[3] = ('','@ha','@l');
function getreferencestring(var ref : treference) : string; function getreferencestring(var ref : treference) : string;
var var
@ -218,6 +218,8 @@ unit agppcgas;
hs:=hs+tostr(o.symofs); hs:=hs+tostr(o.symofs);
getopstr_jmp:=hs; getopstr_jmp:=hs;
end; end;
top_none:
getopstr_jmp:='';
else else
{$ifndef testing} {$ifndef testing}
internalerror(2002070603); internalerror(2002070603);
@ -365,7 +367,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.15 2002-08-20 21:40:44 florian Revision 1.16 2002-08-31 19:27:48 jonas
+ support top_none for branches
Revision 1.15 2002/08/20 21:40:44 florian
+ target macos for ppc added + target macos for ppc added
+ frame work for mpw assembler output + frame work for mpw assembler output