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

updated todo and refactoring.

Browse source
This commit is contained in:
Léonard Gérard 2011-03-17 10:02:35 +01:00
parent ecc79c3a53
commit c96d05b1eb
2 changed files with 6 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
compiler/global/static.ml
View file

@ -92,15 +92,10 @@ let rec eval env se =
(** [int_of_static_exp env e] returns the value of the expression
[e] in the environment [env], mapping vars to integers. Raises
Instanciation_failed if it cannot be computed (if a var has no value).*)
let int_of_static_exp env se =
match (simplify env se).se_desc with
| Sint i -> i
| _ ->
(Format.eprintf "Internal compiler error, \
[eval_int] received the static_exp %a.@."
Global_printer.print_static_exp se;
assert false)
Partial_instanciation if it cannot be computed (if a var has no value).*)
let int_of_static_exp env se = match (eval_core env se).se_desc with
| Sint i -> i
| _ -> Misc.internal_error "static int_of_static_exp" 1
(** [is_true env constr] returns whether the constraint is satisfied
in the environment (or None if this can be decided)

2
todo.txt
View file

@ -3,6 +3,8 @@ Plus ou moins ordonné du plus urgent au moins urgent.
*- Bugs related to matching types without unaliasing it. In lots of parts. Use Modules.unalias_type.
*- Functions in Obc should not be objetcs.
*- Collision entre les noms de params et les idents dans les noeuds.
*- Optimisations du genre "if true then ... else ... " ou genre "x,y = if b then a,c else a2,c" qui devrait etre transformé en "x = if b then a else s2; y = c" ...