diff options
| author | Björn Gustavsson <[email protected]> | 2012-01-04 11:28:31 +0100 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2012-01-26 10:53:07 +0100 |
| commit | ad4a6862a45258b605ab7a799a5cc15c57f6f807 (patch) | |
| tree | 4347fbd70d2f29c53522108ead8d365291d7e14a /lib/hipe/cerl/cerl_to_icode.erl | |
| parent | 81812b34873a71ed7904456da864f426850cbe8a (diff) | |
| download | otp-ad4a6862a45258b605ab7a799a5cc15c57f6f807.tar.gz otp-ad4a6862a45258b605ab7a799a5cc15c57f6f807.tar.bz2 otp-ad4a6862a45258b605ab7a799a5cc15c57f6f807.zip | |
HiPE: Remove support for is_constant/1
Diffstat (limited to 'lib/hipe/cerl/cerl_to_icode.erl')
| -rw-r--r-- | lib/hipe/cerl/cerl_to_icode.erl | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/lib/hipe/cerl/cerl_to_icode.erl b/lib/hipe/cerl/cerl_to_icode.erl index 362c427cbe..089e3f021e 100644 --- a/lib/hipe/cerl/cerl_to_icode.erl +++ b/lib/hipe/cerl/cerl_to_icode.erl @@ -88,7 +88,6 @@ -define(TYPE_IS_ATOM, atom). -define(TYPE_IS_BIGNUM, bignum). -define(TYPE_IS_BINARY, binary). --define(TYPE_IS_CONSTANT, constant). -define(TYPE_IS_FIXNUM, fixnum). -define(TYPE_IS_FLOAT, float). -define(TYPE_IS_FUNCTION, function). @@ -2051,7 +2050,6 @@ is_record_test(T, A, N, True, False, Ctxt, Env, S) -> type_test(?PRIMOP_IS_ATOM) -> ?TYPE_IS_ATOM; type_test(?PRIMOP_IS_BIGNUM) -> ?TYPE_IS_BIGNUM; type_test(?PRIMOP_IS_BINARY) -> ?TYPE_IS_BINARY; -type_test(?PRIMOP_IS_CONSTANT) -> ?TYPE_IS_CONSTANT; type_test(?PRIMOP_IS_FIXNUM) -> ?TYPE_IS_FIXNUM; type_test(?PRIMOP_IS_FLOAT) -> ?TYPE_IS_FLOAT; type_test(?PRIMOP_IS_FUNCTION) -> ?TYPE_IS_FUNCTION; @@ -2082,7 +2080,6 @@ is_bool_op(Op, A) when is_atom(Op), is_integer(A) -> false. is_type_test(?PRIMOP_IS_ATOM, 1) -> true; is_type_test(?PRIMOP_IS_BIGNUM, 1) -> true; is_type_test(?PRIMOP_IS_BINARY, 1) -> true; -is_type_test(?PRIMOP_IS_CONSTANT, 1) -> true; is_type_test(?PRIMOP_IS_FIXNUM, 1) -> true; is_type_test(?PRIMOP_IS_FLOAT, 1) -> true; is_type_test(?PRIMOP_IS_FUNCTION, 1) -> true; |