summaryrefslogtreecommitdiff
path: root/compiler/avr/navradd.pas
diff options
context:
space:
mode:
Diffstat (limited to 'compiler/avr/navradd.pas')
-rw-r--r--compiler/avr/navradd.pas12
1 files changed, 10 insertions, 2 deletions
diff --git a/compiler/avr/navradd.pas b/compiler/avr/navradd.pas
index 3cf3270466..8a54171cab 100644
--- a/compiler/avr/navradd.pas
+++ b/compiler/avr/navradd.pas
@@ -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;
@@ -220,7 +228,7 @@ interface
function tavraddnode.pass_1 : tnode;
begin
result:=inherited pass_1;
-{
+{$ifdef dummy}
if not(assigned(result)) then
begin
unsigned:=not(is_signed(left.resultdef)) or
@@ -240,7 +248,7 @@ interface
is_dynamic_array(left.resultdef)
) then
expectloc:=LOC_FLAGS;
-}
+{$endif dummy}
end;