Static evaluation of modulo.

This commit is contained in:
Adrien Guatto 2012-03-02 14:10:55 +01:00
parent 699b3c68e9
commit ba1b134640

View file

@ -104,6 +104,7 @@ let apply_op partial loc op se_list =
| "~-.", [Sfloat f] -> Sfloat (-. f)
| "&&&", [Sint n1; Sint n2] -> Sint (n1 land n2)
| "|||", [Sint n1; Sint n2] -> Sint (n1 lor n2)
| "%", [Sint n1; Sint n2] -> Sint (n1 mod n2)
| f,_ -> Misc.internal_error ("Static evaluation failed of the pervasive operator "^f)
)
else ( (* symbolic evaluation *)