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

Added missing operator

Browse source
This commit is contained in:
Cédric Pasteur 2010-07-16 14:15:26 +02:00
parent b6583f22b6
commit 9f7c4da446
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
compiler/global/static.ml
View file

@ -74,7 +74,9 @@ and apply_op op se_list =
| Modname { qual = "Pervasives"; id = "/" } ->
let n = if n2 = 0 then raise Instanciation_failed else n1 / n2 in
Sint n
| _ -> assert false (*TODO: add missing operators*)
| Modname { qual = "Pervasives"; id = "=" } ->
Sbool (n1 = n2)
| _ -> Format.printf "Unsupported op: %s\n" (fullname op); assert false (*TODO: add missing operators*)
)
| [{ se_desc = Sint n }] ->
(match op with