Make type-cast decisions based on simplified types.

2010-06-30 19:30:12 -07:00 · 2010-06-30 19:30:12 -07:00 · cab674447f
commit cab674447f
parent 4765d1e358
1 changed files with 1 additions and 0 deletions
--- a/src/boot/me/trans.ml
+++ b/src/boot/me/trans.ml
@ -1903,6 +1903,7 @@ let trans_visitor
              | Ast.UNOP_cast t ->
                  let t = Hashtbl.find cx.ctxt_all_cast_types t.id in
                  let at = atom_type cx a in
+                  let (t, at) = (simplified_ty t, simplified_ty at) in
                    if (type_is_2s_complement at) &&
                      (type_is_2s_complement t)
                    then