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

* fix GetResFlags DFA optimizer warning on Sparc and AVR too

Browse Source 
git-svn-id: trunk@28500 -
This commit is contained in:
Károly Balogh 2014-08-20 13:52:28 +00:00
parent 392da9e43f
commit 0cf7357ee2
2 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/avr/navradd.pas
View File

@ -77,6 +77,8 @@ interface
GetResFlags:=F_LT; GetResFlags:=F_LT;
gten: gten:
GetResFlags:=F_NotPossible; GetResFlags:=F_NotPossible;
else
internalerror(2014082020);
end end
else else
case NodeType of case NodeType of
@ -88,6 +90,8 @@ interface
GetResFlags:=F_NotPossible; GetResFlags:=F_NotPossible;
gten: gten:
GetResFlags:=F_GE; GetResFlags:=F_GE;
else
internalerror(2014082021);
end; end;
end end
else else
@ -102,6 +106,8 @@ interface
GetResFlags:=F_CC; GetResFlags:=F_CC;
gten: gten:
GetResFlags:=F_NotPossible; GetResFlags:=F_NotPossible;
else
internalerror(2014082022);
end end
else else
case NodeType of case NodeType of
@ -113,6 +119,8 @@ interface
GetResFlags:=F_NotPossible; GetResFlags:=F_NotPossible;
gten: gten:
GetResFlags:=F_CS; GetResFlags:=F_CS;
else
internalerror(2014082023);
end; end;
end; end;
end; end;

12
compiler/sparc/ncpuadd.pas
View File

@ -82,6 +82,8 @@ interface
GetResFlags:=F_L; GetResFlags:=F_L;
gten: gten:
GetResFlags:=F_LE; GetResFlags:=F_LE;
else
internalerror(2014082010);
end end
else else
case NodeType of case NodeType of
@ -93,6 +95,8 @@ interface
GetResFlags:=F_G; GetResFlags:=F_G;
gten: gten:
GetResFlags:=F_GE; GetResFlags:=F_GE;
else
internalerror(2014082011);
end; end;
end end
else else
@ -107,6 +111,8 @@ interface
GetResFlags:=F_B; GetResFlags:=F_B;
gten: gten:
GetResFlags:=F_BE; GetResFlags:=F_BE;
else
internalerror(2014082012);
end end
else else
case NodeType of case NodeType of
@ -118,6 +124,8 @@ interface
GetResFlags:=F_A; GetResFlags:=F_A;
gten: gten:
GetResFlags:=F_AE; GetResFlags:=F_AE;
else
internalerror(2014082013);
end; end;
end; end;
end; end;
@ -143,6 +151,8 @@ interface
result:=F_FL; result:=F_FL;
gten: gten:
result:=F_FLE; result:=F_FLE;
else
internalerror(2014082014);
end end
else else
case NodeType of case NodeType of
@ -154,6 +164,8 @@ interface
result:=F_FG; result:=F_FG;
gten: gten:
result:=F_FGE; result:=F_FGE;
else
internalerror(2014082015);
end; end;
end; end;
end; end;