Make the _: part optional

Author: Daniel-Cortez

source/compiler/sc3.c

@@ -1678,8 +1678,19 @@ static int hier2(value *lval)
           stgget(&index,&cidx); /* mark position in code generator */
           ident=expression(&val,&csetag,NULL,TRUE);
           stgdel(index,cidx);   /* scratch generated code */
-          if (ident!=iCONSTEXPR)
-            error(8);           /* must be constant expression */
+          /* if the expression isn't constant, or the next token is ";" or ")",
+           * then this must be the default case */
+          if (ident!=iCONSTEXPR) {
+        implicit_default:
+            if (swdefault!=FALSE)
+              error(16);            /* multiple defaults in switch */
+            swdefault=TRUE;
+            exprtag=csetag;
+            goto skip_default;
+          } else if (matchtoken(';') || matchtoken(')')) {
+            lexpush();
+            goto implicit_default;
+          } /* if */
           check_tagmismatch(swtag,csetag,TRUE,-1);
           /* Search the insertion point (the table is kept in sorted order, so
            * that advanced abstract machines can sift the case table with a
@@ -1726,6 +1737,7 @@ static int hier2(value *lval)
       } /* if */
       sc_allowtags=bck_allowtags;       /* reset */
       ident=expression(NULL,&exprtag,NULL,FALSE);
+    skip_default:
       if (ident==iARRAY || ident==iREFARRAY)
         error(33,"-unknown-");          /* array must be indexed */
       if (firstcase) {