Forgot to commit multiVal.c

diff --git a/doc/manual.doc b/doc/manual.doc
index 1929fbce265906e171bd905c2deadac9c8d224b3..6dc94507655eca6303d96257cfdf8560f864e7d6 100644 (file)
Binary files a/doc/manual.doc and b/doc/manual.doc differ

diff --git a/src/multiVal.c b/src/multiVal.c
index 5659aafa72b565e2bc45ffa25887c36bba0f654c..ef454c05d71ab732fc61adcdf5f7b06f5bf26cb1 100644 (file)
--- a/src/multiVal.c
+++ b/src/multiVal.c
@@ -351,9 +351,33 @@ multiVal multiVal_divide (multiVal m1, multiVal m2)
 
   switch (m1->kind)
     {
-    case MVLONG:   return (multiVal_makeInt (m1->value.ival / m2->value.ival));
-    case MVCHAR:   return (multiVal_makeChar ((char) (m1->value.cval / m2->value.cval)));
-    case MVDOUBLE: return (multiVal_makeDouble (m1->value.fval / m2->value.fval));
+    case MVLONG: 
+      if (m2->value.ival != 0)
+       {
+         return (multiVal_makeInt (m1->value.ival / m2->value.ival));
+       }
+      else
+       {
+         return multiVal_undefined;
+       }
+    case MVCHAR:   
+      if (m2->value.cval != 0)
+       {
+         return (multiVal_makeChar ((char) (m1->value.cval / m2->value.cval)));
+       }
+      else
+       {
+         return multiVal_undefined;
+       }
+    case MVDOUBLE:
+      if (m2->value.fval != 0.0)
+       {
+         return (multiVal_makeDouble (m1->value.fval / m2->value.fval));
+       }
+      else
+       {
+         return multiVal_undefined;
+       }
     case MVSTRING: return multiVal_undefined;
     }