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

* fixed absolute on sparc

Browse Source
This commit is contained in:
florian 2004-08-25 20:40:04 +00:00
parent 2db86fb67d
commit 5b2a1d9fdf
2 changed files with 12 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/sparc/cgcpu.pas
View File

@ -610,9 +610,10 @@ implementation
else else
{ Only base } { Only base }
if ref.base<>NR_NO then if ref.base<>NR_NO then
a_load_reg_reg(list,OS_INT,OS_INT,ref.base,r) a_load_reg_reg(list,OS_ADDR,OS_ADDR,ref.base,r)
else else
internalerror(200306172); { only offset, can be generated by absolute }
a_load_const_reg(list,OS_ADDR,ref.offset,r);
end; end;
@ -1108,7 +1109,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.85 2004-08-24 21:02:32 florian Revision 1.86 2004-08-25 20:40:04 florian
* fixed absolute on sparc
Revision 1.85 2004/08/24 21:02:32 florian
* fixed longbool(<int64>) on sparc * fixed longbool(<int64>) on sparc
Revision 1.84 2004/06/20 08:55:32 florian Revision 1.84 2004/06/20 08:55:32 florian

7
compiler/sparc/ncpucnv.pas
View File

@ -199,7 +199,7 @@ implementation
begin begin
cg.ungetregister(exprasmlist,hreg2); cg.ungetregister(exprasmlist,hreg2);
hreg1:=cg.getintregister(exprasmlist,OS_32); hreg1:=cg.getintregister(exprasmlist,OS_32);
cg.a_op_reg_reg_reg(exprasmlist,OP_OR,OS_32,hreg2,succ(hreg2),hreg1); cg.a_op_reg_reg_reg(exprasmlist,OP_OR,OS_32,hreg2,tregister(succ(longint(hreg2))),hreg1);
hreg2:=hreg1; hreg2:=hreg1;
opsize:=OS_32; opsize:=OS_32;
end; end;
@ -244,7 +244,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.30 2004-08-24 21:02:33 florian Revision 1.31 2004-08-25 20:40:04 florian
* fixed absolute on sparc
Revision 1.30 2004/08/24 21:02:33 florian
* fixed longbool(<int64>) on sparc * fixed longbool(<int64>) on sparc
Revision 1.29 2004/08/23 20:45:52 florian Revision 1.29 2004/08/23 20:45:52 florian