Subversion Repositories DevTools

Rev

Rev 333 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 333 Rev 5995
Line 249... Line 249...
249 
	*valp = (*valp * rightval);
 249 
	*valp = (*valp * rightval);
250 
	break;
 250 
	break;
251 
 
 251 
 
252 
      case '/':
 252 
      case '/':
253 
	DO (cp = parse_product (g, cp + 1, &rightval));
 253 
	DO (cp = parse_product (g, cp + 1, &rightval));
- 
 
 254 
    if (rightval == 0)
- 
 
 255 
    {
- 
 
 256 
        *valp = 0;
- 
 
 257 
        return CALLFUNC(g, handle_error) (g, cp, "Divide by zero. Set result to zero.");
- 
 
 258 
    }
- 
 
 259 
    else
- 
 
 260 
    {
254 
	*valp = (*valp / rightval);
 261 
        *valp = (*valp / rightval);
- 
 
 262 
    }
255 
	break;
 263 
	break;
256 
 
 264 
 
257 
      case '%':
 265 
      case '%':
258 
	DO (cp = parse_product (g, cp + 1, &rightval));
 266 
	DO (cp = parse_product (g, cp + 1, &rightval));
- 
 
 267 
    if (rightval == 0)
- 
 
 268 
    {
- 
 
 269 
        *valp = 0;
- 
 
 270 
        return CALLFUNC(g, handle_error) (g, cp, "Mod by zero. Set result to zero.");
- 
 
 271 
    }
- 
 
 272 
    else
- 
 
 273 
    {
259 
	*valp = (*valp % rightval);
 274 
        *valp = (*valp % rightval);
- 
 
 275 
    }
260 
	break;
 276 
	break;
261 
    }
 277 
    }
262 
    return cp;
 278 
    return cp;
263 
}
 279 
}
264 
 
 280