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

+ sanity checks in mips and sparc register allocator

Browse Source
This commit is contained in:
florian 2021-12-17 21:24:41 +01:00
parent c6874df5c8
commit 03f4685455
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/mips/rgcpu.pas
View File

@ -150,7 +150,7 @@ implementation
else else
InternalError(2013061003); InternalError(2013061003);
end; end;
if get_alias(getsupreg(instr.oper[1]^.reg))=orgreg then if (getregtype(instr.oper[1]^.reg)=regtype) and (get_alias(getsupreg(instr.oper[1]^.reg))=orgreg) then
begin begin
case instr.opcode of case instr.opcode of
A_MOVE: instr.opcode:=A_LW; A_MOVE: instr.opcode:=A_LW;
@ -160,7 +160,7 @@ implementation
InternalError(2013061004); InternalError(2013061004);
end; end;
end end
else if get_alias(getsupreg(instr.oper[0]^.reg))=orgreg then else if (getregtype(instr.oper[0]^.reg)=regtype) and (get_alias(getsupreg(instr.oper[0]^.reg))=orgreg) then
begin begin
case instr.opcode of case instr.opcode of
A_MOVE: instr.opcode:=A_SW; A_MOVE: instr.opcode:=A_SW;

4
compiler/sparcgen/rgcpu.pas
View File

@ -207,7 +207,7 @@ implementation
(getregtype(instr.oper[1]^.reg)<>regtype) then (getregtype(instr.oper[1]^.reg)<>regtype) then
exit; exit;
opidx:=-1; opidx:=-1;
if get_alias(getsupreg(instr.oper[0]^.reg))=orgreg then if (getregtype(instr.oper[0]^.reg)=regtype) and (get_alias(getsupreg(instr.oper[0]^.reg))=orgreg) then
begin begin
if (regtype=R_INTREGISTER) then if (regtype=R_INTREGISTER) then
instr.opcode:=A_LD_R instr.opcode:=A_LD_R
@ -217,7 +217,7 @@ implementation
instr.opcode:=A_LDDF; instr.opcode:=A_LDDF;
opidx:=0; opidx:=0;
end end
else if get_alias(getsupreg(instr.oper[1]^.reg))=orgreg then else if (getregtype(instr.oper[1]^.reg)=regtype) and (get_alias(getsupreg(instr.oper[1]^.reg))=orgreg) then
begin begin
if (regtype=R_INTREGISTER) then if (regtype=R_INTREGISTER) then
instr.opcode:=A_ST_R instr.opcode:=A_ST_R