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

* more ppc assembling fixes

Browse Source
This commit is contained in:
florian 2002-08-18 10:34:30 +00:00
parent 4661ee3057
commit c853f24a86
2 changed files with 17 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

@ -126,7 +126,7 @@ unit agppcgas;
'xer','lr','ctr','fpscr' 'xer','lr','ctr','fpscr'
); );
symaddr2str: array[trefsymaddr] of string[2] = ('','ha','l'); symaddr2str: array[trefsymaddr] of string[2] = ('','@ha','@l');
function getreferencestring(var ref : treference) : string; function getreferencestring(var ref : treference) : string;
var var
@ -161,7 +161,12 @@ unit agppcgas;
if (index=R_NO) and (base<>R_NO) then if (index=R_NO) and (base<>R_NO) then
begin begin
if offset=0 then if offset=0 then
s:=s+'0'; begin
if assigned(symbol) then
s:=s+'+0'
else
s:=s+'0';
end;
s:=s+'('+reg2str[base]+')' s:=s+'('+reg2str[base]+')'
end end
else if (index<>R_NO) and (base<>R_NO) and (offset=0) then else if (index<>R_NO) and (base<>R_NO) and (offset=0) then
@ -346,7 +351,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.11 2002-08-17 18:23:53 florian Revision 1.12 2002-08-18 10:34:30 florian
* more ppc assembling fixes
Revision 1.11 2002/08/17 18:23:53 florian
* some assembler writer bugs fixed * some assembler writer bugs fixed
Revision 1.10 2002/08/12 15:08:44 carl Revision 1.10 2002/08/12 15:08:44 carl

8
compiler/powerpc/nppccnv.pas
View File

@ -243,7 +243,8 @@ implementation
cg.free_scratch_reg(exprasmlist,tempreg); cg.free_scratch_reg(exprasmlist,tempreg);
if signed then if signed then
exprasmlist.concat(taicpu.op_reg_reg_const(A_XORIS,valuereg, exprasmlist.concat(taicpu.op_reg_reg_const(A_XORIS,valuereg,
leftreg,smallint($8000))); { xoris expects a unsigned 16 bit int (FK) }
leftreg,$8000));
inc(ref.offset,4); inc(ref.offset,4);
cg.a_load_reg_ref(exprasmlist,OS_32,valuereg,ref); cg.a_load_reg_ref(exprasmlist,OS_32,valuereg,ref);
dec(ref.offset,4); dec(ref.offset,4);
@ -421,7 +422,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.22 2002-08-14 19:30:42 carl Revision 1.23 2002-08-18 10:34:30 florian
* more ppc assembling fixes
Revision 1.22 2002/08/14 19:30:42 carl
+ added fixing because first_in_to_real is now completely generic + added fixing because first_in_to_real is now completely generic
Revision 1.21 2002/08/11 06:14:41 florian Revision 1.21 2002/08/11 06:14:41 florian