jeltz/heptagon
1
0
Fork 0
Code Issues Pull requests Releases Activity

Static evaluation of modulo.

Browse source
This commit is contained in:
Adrien Guatto 2012-03-02 14:10:55 +01:00
parent 699b3c68e9
commit ba1b134640
1 changed files with 1 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
compiler/global/static.ml
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 *)