diff options
author | Hans Bolinder <hasse@erlang.org> | 2016-12-19 15:37:54 +0100 |
---|---|---|
committer | Hans Bolinder <hasse@erlang.org> | 2016-12-21 15:54:24 +0100 |
commit | 6d2380326a67a00eeae31689c00936da6f3526d2 (patch) | |
tree | ae55e912947460d2324a5630f2485e23bedf90eb /lib/hipe/cerl | |
parent | 1715b9284643150da0f3ea43df42df1a4a90e144 (diff) | |
download | otp-6d2380326a67a00eeae31689c00936da6f3526d2.tar.gz otp-6d2380326a67a00eeae31689c00936da6f3526d2.tar.bz2 otp-6d2380326a67a00eeae31689c00936da6f3526d2.zip |
stdlib: Allow characters in types and constant patterns
Characters ($char) can be used in constant pattern expressions. They
can also be used in types and contracts.
Diffstat (limited to 'lib/hipe/cerl')
-rw-r--r-- | lib/hipe/cerl/erl_types.erl | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lib/hipe/cerl/erl_types.erl b/lib/hipe/cerl/erl_types.erl index 226a5d0f61..81a1c89744 100644 --- a/lib/hipe/cerl/erl_types.erl +++ b/lib/hipe/cerl/erl_types.erl @@ -4542,6 +4542,8 @@ from_form({atom, _L, Atom}, _S, _D, L, C) -> {t_atom(Atom), L, C}; from_form({integer, _L, Int}, _S, _D, L, C) -> {t_integer(Int), L, C}; +from_form({char, _L, Char}, _S, _D, L, C) -> + {t_integer(Char), L, C}; from_form({op, _L, _Op, _Arg} = Op, _S, _D, L, C) -> case erl_eval:partial_eval(Op) of {integer, _, Val} -> @@ -5056,6 +5058,7 @@ check_record_fields({remote_type, _L, [{atom, _, _}, {atom, _, _}, Args]}, list_check_record_fields(Args, S, C); check_record_fields({atom, _L, _}, _S, C) -> C; check_record_fields({integer, _L, _}, _S, C) -> C; +check_record_fields({char, _L, _}, _S, C) -> C; check_record_fields({op, _L, _Op, _Arg}, _S, C) -> C; check_record_fields({op, _L, _Op, _Arg1, _Arg2}, _S, C) -> C; check_record_fields({type, _L, tuple, any}, _S, C) -> C; @@ -5157,6 +5160,7 @@ t_form_to_string({var, _L, Name}) -> atom_to_list(Name); t_form_to_string({atom, _L, Atom}) -> io_lib:write_string(atom_to_list(Atom), $'); % To quote or not to quote... ' t_form_to_string({integer, _L, Int}) -> integer_to_list(Int); +t_form_to_string({char, _L, Char}) -> integer_to_list(Char); t_form_to_string({op, _L, _Op, _Arg} = Op) -> case erl_eval:partial_eval(Op) of {integer, _, _} = Int -> t_form_to_string(Int); |