Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

part 2: fix regression (extraneous moves) caused by previous Cconst_b…

…lockheader patch

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@14649 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
  • Loading branch information...
commit 0b097e9a740a8c81c0c04d68c018b1258733216f 1 parent cceb1c7
@mshinwell mshinwell authored
Showing with 3 additions and 1 deletion.
  1. +3 −1 asmcomp/selectgen.ml
View
4 asmcomp/selectgen.ml
@@ -47,7 +47,8 @@ let oper_result_type = function
let size_expr env exp =
let rec size localenv = function
- Cconst_int _ | Cconst_natint _ -> Arch.size_int
+ Cconst_int _ | Cconst_natint _
+ | Cconst_blockheader _ -> Arch.size_int
| Cconst_symbol _ | Cconst_pointer _ | Cconst_natpointer _ ->
Arch.size_addr
| Cconst_float _ -> Arch.size_float
@@ -178,6 +179,7 @@ class virtual selector_generic = object (self)
method is_simple_expr = function
Cconst_int _ -> true
| Cconst_natint _ -> true
+ | Cconst_blockheader _ -> true
| Cconst_float _ -> true
| Cconst_symbol _ -> true
| Cconst_pointer _ -> true
Please sign in to comment.
Something went wrong with that request. Please try again.