diff options
| author | Brian Campbell | 2018-05-11 17:20:56 +0100 |
|---|---|---|
| committer | Brian Campbell | 2018-05-11 17:36:20 +0100 |
| commit | 8041ff0692b7f16a09afb36cd35199d5021e63b2 (patch) | |
| tree | 5461fba00b0f7214bab59f1fdceb3d9c68804190 /src | |
| parent | 3dd6497c7b70de1ac7c91a819f2dc46296715640 (diff) | |
More builtin names in constant propagation
Diffstat (limited to 'src')
| -rw-r--r-- | src/monomorphise.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/monomorphise.ml b/src/monomorphise.ml index 6dcd14ba..4f257712 100644 --- a/src/monomorphise.ml +++ b/src/monomorphise.ml @@ -856,7 +856,7 @@ let try_app (l,ann) (id,args) = | [E_aux (E_lit L_aux (L_num i,_),_); E_aux (E_lit L_aux (L_num j,_),_)] -> Some (E_aux (E_lit (L_aux (L_num (Big_int.shift_left i (Big_int.to_int j)),new_l)),(l,ann))) | _ -> None - else if is_id "mult_int" || is_id "mult_range" then + else if is_id "mult_atom" || is_id "mult_int" || is_id "mult_range" then match args with | [E_aux (E_lit L_aux (L_num i,_),_); E_aux (E_lit L_aux (L_num j,_),_)] -> Some (E_aux (E_lit (L_aux (L_num (Big_int.mul i j),new_l)),(l,ann))) @@ -866,7 +866,7 @@ let try_app (l,ann) (id,args) = | [E_aux (E_lit L_aux (L_num i,_),_); E_aux (E_lit L_aux (L_num j,_),_)] -> Some (E_aux (E_lit (L_aux (L_num (Big_int.div i j),new_l)),(l,ann))) | _ -> None - else if is_id "add_range" then + else if is_id "add_atom" || is_id "add_int" || is_id "add_range" then match args with | [E_aux (E_lit L_aux (L_num i,_),_); E_aux (E_lit L_aux (L_num j,_),_)] -> Some (E_aux (E_lit (L_aux (L_num (Big_int.add i j),new_l)),(l,ann))) |