* missing skiplabel added, resolves #33423

git-svn-id: trunk@38520 -

compiler/avr/navrmat.pas

@@ -77,6 +77,7 @@ implementation
                 skiplabel.increfs;
                 location_reset_jump(location,truelabel,falselabel);
                 cg.a_jmp_always(current_asmdata.CurrAsmList,falselabel);
+                cg.a_label(current_asmdata.CurrAsmList,skiplabel);
                 cg.a_jmp_always(current_asmdata.CurrAsmList,truelabel);
               end
             else if (left.location.loc in [LOC_SUBSETREF,LOC_CSUBSETREF]) and

tests/webtbs/tw33417.pp

@@ -5,27 +5,36 @@ type
 
 var
   gflags : tflags;
+  i : byte;
 
-procedure p;
+procedure p(pflags : tflags);
 
 var
   flags : tflags;
 begin
   flags:=gflags;
   if flags.bit5 then
-    halt(1);
+    i:=1;
+  if pflags.bit5 then
+    i:=1;
   if gflags.bit5 then
-    halt(1);
+    i:=1;
   if not flags.bit6 then
-    halt(1);
+    i:=1;
+  if not pflags.bit6 then
+    i:=1;
   if not gflags.bit6 then
-    halt(1);
+    i:=1;
 end;
 
 begin
   gflags.bit4:=false;
   gflags.bit5:=false;
   gflags.bit6:=true;
-  p;
-  writeln('ok');
+  i:=0;
+  p(gflags);
+  if i<>0 then
+    halt(i)
+  else
+    writeln('ok');
 end.