paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-01 02:42:40 +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;
gten:
GetResFlags:=F_NotPossible;
else
internalerror(2014082020);
end
else
case NodeType of
@ -88,6 +90,8 @@ interface
GetResFlags:=F_NotPossible;
gten:
GetResFlags:=F_GE;
else
internalerror(2014082021);
end;
end
else
@ -102,6 +106,8 @@ interface
GetResFlags:=F_CC;
gten:
GetResFlags:=F_NotPossible;
else
internalerror(2014082022);
end
else
case NodeType of
@ -113,6 +119,8 @@ interface
GetResFlags:=F_NotPossible;
gten:
GetResFlags:=F_CS;
else
internalerror(2014082023);
end;
end;
end;

12
compiler/sparc/ncpuadd.pas
View File

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