diff options
author | 2007-08-18 20:34:57 +0000 | |
---|---|---|
committer | 2007-08-18 20:34:57 +0000 | |
commit | be2a2fda89bba47d5342b7aebc10efd97f1d68b9 (patch) | |
tree | 45a70ccd12dc139a53b49daba9c9821ffe2fd035 /contrib/interface | |
parent | 763b05d3e66a0c0c49bad97434d891d22c1054dc (diff) | |
parent | 72b9a7df489ea47b3e5470741fd39f6100d31676 (diff) |
Merge commit 'upstream/8.1.pl1+dfsg'
Diffstat (limited to 'contrib/interface')
-rw-r--r-- | contrib/interface/xlate.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/contrib/interface/xlate.ml b/contrib/interface/xlate.ml index 60195229..df03a579 100644 --- a/contrib/interface/xlate.ml +++ b/contrib/interface/xlate.ml @@ -408,9 +408,10 @@ and (xlate_formula:Topconstr.constr_expr -> Ascent.ct_FORMULA) = function | CDynamic (_, _) -> assert false | CDelimiters (_, key, num) -> CT_num_encapsulator(CT_num_type key , xlate_formula num) - | CCast (_, e,_, t) -> + | CCast (_, e, CastConv (_, t)) -> CT_coerce_TYPED_FORMULA_to_FORMULA (CT_typed_formula(xlate_formula e, xlate_formula t)) + | CCast (_, e, CastCoerce) -> assert false | CPatVar (_, (_,i)) when is_int_meta i -> CT_coerce_ID_to_FORMULA(CT_metac (CT_int (int_of_meta i))) | CPatVar (_, (false, s)) -> |