** the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
** MA 02111-1307, USA.
**
-** For information on splint: splint@cs.virginia.edu
-** To report a bug: splint-bug@cs.virginia.edu
+** For information on splint: info@splint.org
+** To report a bug: splint-bug@splint.org
** For more information: http://www.splint.org
*/
/*
/*@only@*/ multiVal multiVal_makeChar (char x)
{
multiVal mv = multiVal_create (MVCHAR);
- mv->value.cval = x;
- return mv;
+ mv->value.cval = x;
+ return mv;
}
/*@only@*/ multiVal multiVal_makeDouble (double x)
switch (m1->kind)
{
case MVLONG: return (multiVal_makeInt (m1->value.ival + m2->value.ival));
- case MVCHAR: return (multiVal_makeChar (m1->value.cval + m2->value.cval));
+ case MVCHAR: return (multiVal_makeChar ((char) (m1->value.cval + m2->value.cval)));
case MVDOUBLE: return (multiVal_makeDouble (m1->value.fval + m2->value.fval));
case MVSTRING: return multiVal_undefined;
}
switch (m1->kind)
{
case MVLONG: return (multiVal_makeInt (m1->value.ival - m2->value.ival));
- case MVCHAR: return (multiVal_makeChar (m1->value.cval - m2->value.cval));
+ case MVCHAR: return (multiVal_makeChar ((char) (m1->value.cval - m2->value.cval)));
case MVDOUBLE: return (multiVal_makeDouble (m1->value.fval - m2->value.fval));
case MVSTRING: return multiVal_undefined;
}
switch (m1->kind)
{
case MVLONG: return (multiVal_makeInt (m1->value.ival * m2->value.ival));
- case MVCHAR: return (multiVal_makeChar (m1->value.cval * m2->value.cval));
+ case MVCHAR: return (multiVal_makeChar ((char) (m1->value.cval * m2->value.cval)));
case MVDOUBLE: return (multiVal_makeDouble (m1->value.fval * m2->value.fval));
case MVSTRING: return multiVal_undefined;
}
switch (m1->kind)
{
- case MVLONG: return (multiVal_makeInt (m1->value.ival / m2->value.ival));
- case MVCHAR: return (multiVal_makeChar (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 != (char) 0)
+ {
+ return (multiVal_makeChar ((char) (m1->value.cval / m2->value.cval)));
+ }
+ else
+ {
+ return multiVal_undefined;
+ }
+ case MVDOUBLE:
+ return multiVal_undefined; /* Don't attempt to divide floats */
case MVSTRING: return multiVal_undefined;
}