Преглед изворни кода

Avoid incomplete case warning when compiled with -dTEST_WIN32_SEH

git-svn-id: trunk@42115 -
pierre пре 6 година
родитељ
комит
c752aa5cf5
1 измењених фајлова са 2 додато и 3 уклоњено
  1. 2 3
      compiler/i386/n386flw.pas

+ 2 - 3
compiler/i386/n386flw.pas

@@ -144,16 +144,15 @@ function reset_regvars(var n: tnode; arg: pointer): foreachnoderesult;
         make_not_regable(n,[]);
       calln:
         include(tprocinfo(arg).flags,pi_do_call);
+      else ;
     end;
     result:=fen_true;
   end;
 
 function copy_parasize(var n: tnode; arg: pointer): foreachnoderesult;
   begin
-    case n.nodetype of
-      calln:
+    if n.nodetype=calln then
         tcgprocinfo(arg).allocate_push_parasize(tcallnode(n).pushed_parasize);
-    end;
     result:=fen_true;
   end;