diff options
| author | Pierre-Marie Pédrot | 2015-12-18 17:51:53 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2015-12-21 19:36:38 +0100 |
| commit | 9b02ddf179b375cb09966b70dd3b119eda0d92c1 (patch) | |
| tree | 8e0db6b7e782eeecd64858362702a3d5412847d9 /interp/stdarg.ml | |
| parent | 589130e87d68227d25800e7506666eaf1d47a25a (diff) | |
Sharing toplevel representation for several generic types.
- int and int_or_var
- ident and var
- constr and constr_may_eval
Diffstat (limited to 'interp/stdarg.ml')
| -rw-r--r-- | interp/stdarg.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/interp/stdarg.ml b/interp/stdarg.ml index e155a5217d..5cfe3854a9 100644 --- a/interp/stdarg.ml +++ b/interp/stdarg.ml @@ -15,7 +15,9 @@ let wit_bool : bool uniform_genarg_type = make0 None "bool" let wit_int : int uniform_genarg_type = - make0 None "int" + make0 ~dyn:(val_tag (Obj.magic IntOrVarArgType)) None "int" +(** FIXME: IntOrVarArgType is hardwired, but that definition should be the other + way around. *) let wit_string : string uniform_genarg_type = make0 None "string" |