Parcourir la source

* put multiple statements of the else-part of case between begin..end

git-svn-id: trunk@35152 -
Jonas Maebe il y a 8 ans
Parent
commit
691c2d655e
1 fichiers modifiés avec 4 ajouts et 2 suppressions
  1. 4 2
      compiler/ncgrtti.pas

+ 4 - 2
compiler/ncgrtti.pas

@@ -657,8 +657,10 @@ implementation
                   tcb.emit_ord_const(def.high.svalue,s64inttype);
                   tcb.emit_ord_const(def.high.svalue,s64inttype);
                 end;
                 end;
               else
               else
-                tcb.emit_ord_const(longint(def.low.svalue),s32inttype);
-                tcb.emit_ord_const(longint(def.high.svalue),s32inttype);
+                begin
+                  tcb.emit_ord_const(longint(def.low.svalue),s32inttype);
+                  tcb.emit_ord_const(longint(def.high.svalue),s32inttype);
+                end;
             end;
             end;
             tcb.end_anonymous_record;
             tcb.end_anonymous_record;
             tcb.end_anonymous_record;
             tcb.end_anonymous_record;