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

* fixed compilation of ppc compiler

Browse Source
This commit is contained in:
florian 2003-10-25 10:37:26 +00:00
parent dcd54eeeed
commit 1e72dd2d78
3 changed files with 25 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/powerpc/aasmcpu.pas
View File

@ -110,7 +110,7 @@ uses cutils,rgobj;
begin
if opidx>=ops then
ops:=opidx+1;
with oper[opidx] do
with oper[opidx]^ do
begin
if typ=top_ref then
dispose(ref);
@ -351,7 +351,7 @@ uses cutils,rgobj;
begin
{ we don't insert any more nops than necessary }
is_nop :=
((opcode=A_MR) and (oper[0].typ=top_reg) and (oper[1].typ=top_reg) and (oper[0].reg=oper[1].reg));
((opcode=A_MR) and (oper[0]^.typ=top_reg) and (oper[1]^.typ=top_reg) and (oper[0]^.reg=oper[1]^.reg));
end;
@ -361,9 +361,9 @@ uses cutils,rgobj;
(opcode = A_EXTSB) or
(opcode = A_EXTSH) or
((opcode = A_RLWINM) and
(oper[2].val = 0) and
(oper[4].val = 31) and
(oper[3].val in [31-8+1,31-16+1]));
(oper[2]^.val = 0) and
(oper[4]^.val = 31) and
(oper[3]^.val in [31-8+1,31-16+1]));
end;
@ -466,7 +466,10 @@ uses cutils,rgobj;
end.
{
$Log$
Revision 1.18 2003-10-01 20:34:49 peter
Revision 1.19 2003-10-25 10:37:26 florian
* fixed compilation of ppc compiler
Revision 1.18 2003/10/01 20:34:49 peter
* procinfo unit contains tprocinfo
* cginfo renamed to cgbase
* moved cgmessage to verbose

11
compiler/powerpc/agppcgas.pas
View File

@ -265,8 +265,8 @@ unit agppcgas;
s:=cond2str(op,taicpu(hp).condition)+',';
end;
if (taicpu(hp).oper[0].typ <> top_none) then
s:=s+getopstr_jmp(taicpu(hp).oper[0]);
if (taicpu(hp).oper[0]^.typ <> top_none) then
s:=s+getopstr_jmp(taicpu(hp).oper[0]^);
end
else
{ process operands }
@ -285,7 +285,7 @@ unit agppcgas;
// debug code
// writeln(s);
// writeln(taicpu(hp).fileinfo.line);
s:=s+sep+getopstr(taicpu(hp).oper[i]);
s:=s+sep+getopstr(taicpu(hp).oper[i]^);
sep:=',';
end;
end;
@ -298,7 +298,10 @@ begin
end.
{
$Log$
Revision 1.31 2003-10-01 20:34:49 peter
Revision 1.32 2003-10-25 10:37:26 florian
* fixed compilation of ppc compiler
Revision 1.31 2003/10/01 20:34:49 peter
* procinfo unit contains tprocinfo
* cginfo renamed to cgbase
* moved cgmessage to verbose

15
compiler/powerpc/agppcmpw.pas
View File

@ -294,8 +294,8 @@ var
else
s:=cond2str(op,taicpu(hp).condition)+',';
end;
if (taicpu(hp).oper[0].typ <> top_none) then
s:=s+getopstr_jmp(taicpu(hp).oper[0]);
if (taicpu(hp).oper[0]^.typ <> top_none) then
s:=s+getopstr_jmp(taicpu(hp).oper[0]^);
if use_PR then
if (op=A_BL) or (op=A_BLA) then
s:=s+'[PR]';
@ -305,7 +305,7 @@ var
begin
case op of
A_MFSPR:
case taicpu(hp).oper[1].reg of
case taicpu(hp).oper[1]^.reg of
NR_CR:
begin
op:=A_MFCR;
@ -320,7 +320,7 @@ var
internalerror(2002100701);
end;
A_MTSPR:
case taicpu(hp).oper[1].reg of
case taicpu(hp).oper[1]^.reg of
NR_CR:
begin
op:=A_MTCR;
@ -341,7 +341,7 @@ var
sep:=#9;
for i:=0 to taicpu(hp).ops-1 do
begin
s:=s+sep+getopstr(taicpu(hp).oper[i]);
s:=s+sep+getopstr(taicpu(hp).oper[i]^);
sep:=',';
end;
end;
@ -1337,7 +1337,10 @@ initialization
end.
{
$Log$
Revision 1.26 2003-10-01 20:34:49 peter
Revision 1.27 2003-10-25 10:37:26 florian
* fixed compilation of ppc compiler
Revision 1.26 2003/10/01 20:34:49 peter
* procinfo unit contains tprocinfo
* cginfo renamed to cgbase
* moved cgmessage to verbose