Fix error 094 not being printed if the dividend is not a constant value

Author: Daniel-Cortez

source/compiler/sc3.c

@@ -620,6 +620,10 @@ static void plnge2(void (*oper)(void),
     } /* if */
     /* ??? ^^^ should do same kind of error checking with functions */
 
+    /* If we're handling a division operation, make sure the divisor is not zero. */
+    if ((oper==os_div || oper==os_mod) && lval2->ident==iCONSTEXPR && lval2->constval==0)
+      error(94); /* division by zero */
+
     /* check whether an "operator" function is defined for the tag names
      * (a constant expression cannot be optimized in that case)
      */
@@ -643,10 +647,8 @@ static cell flooreddiv(cell a,cell b,int return_remainder)
 {
   cell q,r;
 
-  if (b==0) {
-    error(94);  /* division by zero */
+  if (b==0)
     return 0;
-  } /* if */
   /* first implement truncated division in a portable way */
   #define IABS(a)       ((a)>=0 ? (a) : (-a))
   q=IABS(a)/IABS(b);