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

Static exp evaluation: missing +. and -.

Browse source
This commit is contained in:
Adrien Guatto 2012-01-26 13:42:03 +01:00
parent 84ca123361
commit 1910e7f868
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
compiler/global/static.ml
View file

@ -83,6 +83,8 @@ let apply_op partial loc op se_list =
| "/", [Sint n1; Sint n2] ->
if n2 = 0 then raise (Evaluation_failed (Division_by_zero, loc));
Sint (n1 / n2)
| "+.", [Sfloat f1; Sfloat f2] -> Sfloat (f1 +. f2)
| "-.", [Sfloat f1; Sfloat f2] -> Sfloat (f1 -. f2)
| "*.", [Sfloat f1; Sfloat f2] -> Sfloat (f1 *. f2)
| "/.", [Sfloat f1; Sfloat f2] ->
if f2 = 0.0 then raise (Evaluation_failed (Division_by_zero, loc));