paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 17:19:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed compilation of system unit on arm

Browse Source
This commit is contained in:
florian 2004-10-31 16:04:30 +00:00
parent 8763a9166a
commit 36ca15cf07
3 changed files with 26 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/arm/cgcpu.pas
View File

@ -942,8 +942,8 @@ unit cgcpu;
end;
if assigned(tmpref.symbol) or
not((is_shifter_const(dword(tmpref.offset),b)) or
(is_shifter_const(dword(-tmpref.offset),b))
not((is_shifter_const(tmpref.offset,b)) or
(is_shifter_const(-tmpref.offset,b))
) then
fixref(list,tmpref);
@ -1277,7 +1277,10 @@ begin
end.
{
$Log$
Revision 1.59 2004-10-31 12:37:11 florian
Revision 1.60 2004-10-31 16:04:30 florian
* fixed compilation of system unit on arm
Revision 1.59 2004/10/31 12:37:11 florian
* another couple of arm fixed
Revision 1.58 2004/10/24 17:32:53 florian

7
compiler/arm/narmadd.pas
View File

@ -309,7 +309,7 @@ interface
if right.location.loc = LOC_CONSTANT then
begin
if is_shifter_const(dword(right.location.value),b) then
if is_shifter_const(right.location.value,b) then
exprasmlist.concat(taicpu.op_reg_const(A_CMP,left.location.register,right.location.value))
else
begin
@ -331,7 +331,10 @@ begin
end.
{
$Log$
Revision 1.17 2004-10-24 17:32:53 florian
Revision 1.18 2004-10-31 16:04:30 florian
* fixed compilation of system unit on arm
Revision 1.17 2004/10/24 17:32:53 florian
* fixed several arm compiler bugs
Revision 1.16 2004/10/24 07:54:25 florian

24
compiler/rgobj.pas
View File

@ -1590,9 +1590,12 @@ unit rgobj;
{$ifdef arm}
Top_shifterop:
begin
so:=shifterop;
if so^.rs<>NR_NO then
setsupreg(so^.rs,reginfo[getsupreg(so^.rs)].colour);
if regtype=R_INTREGISTER then
begin
so:=shifterop;
if so^.rs<>NR_NO then
setsupreg(so^.rs,reginfo[getsupreg(so^.rs)].colour);
end;
end;
{$endif arm}
end;
@ -1829,8 +1832,9 @@ unit rgobj;
{$ifdef ARM}
top_shifterop:
begin
if shifterop^.rs<>NR_NO then
addreginfo(shifterop^.rs,operand_read);
if regtype in [R_INTREGISTER,R_ADDRESSREGISTER] then
if shifterop^.rs<>NR_NO then
addreginfo(shifterop^.rs,operand_read);
end;
{$endif ARM}
end;
@ -1981,7 +1985,8 @@ unit rgobj;
{$ifdef ARM}
top_shifterop:
begin
tryreplacereg(shifterop^.rs);
if regtype in [R_INTREGISTER,R_ADDRESSREGISTER] then
tryreplacereg(shifterop^.rs);
end;
{$endif ARM}
end;
@ -1989,12 +1994,13 @@ unit rgobj;
end;
end.
{
$Log$
Revision 1.145 2004-10-30 15:21:37 florian
Revision 1.146 2004-10-31 16:04:30 florian
* fixed compilation of system unit on arm
Revision 1.145 2004/10/30 15:21:37 florian
* fixed generic optimizer
* enabled generic optimizer for sparc