diff options
Diffstat (limited to 'lambda/lambda.ml')
| -rw-r--r-- | lambda/lambda.ml | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lambda/lambda.ml b/lambda/lambda.ml index af9abac469..139951b24a 100644 --- a/lambda/lambda.ml +++ b/lambda/lambda.ml @@ -220,7 +220,6 @@ let equal_value_kind x y = type structured_constant = Const_base of constant - | Const_pointer of int | Const_block of int * structured_constant list | Const_float_array of string list | Const_immstring of string @@ -355,7 +354,9 @@ type program = required_globals : Ident.Set.t; code : lambda } -let const_unit = Const_pointer 0 +let const_int n = Const_base (Const_int n) + +let const_unit = const_int 0 let lambda_unit = Lconst const_unit |