diff options
author | Björn-Egil Dahlberg <[email protected]> | 2014-03-25 18:37:56 +0100 |
---|---|---|
committer | Björn-Egil Dahlberg <[email protected]> | 2014-03-25 19:07:48 +0100 |
commit | 71df02b2ead5c68eb9c4dff00d91a1d0e94659fe (patch) | |
tree | 617c084408a29cf65b3be6ae9536ebd7288c960a /lib/compiler/src | |
parent | 9e01993aac2cc35c77e5e246ed6e160c3485a456 (diff) | |
download | otp-71df02b2ead5c68eb9c4dff00d91a1d0e94659fe.tar.gz otp-71df02b2ead5c68eb9c4dff00d91a1d0e94659fe.tar.bz2 otp-71df02b2ead5c68eb9c4dff00d91a1d0e94659fe.zip |
compiler: Throw 'nomatch' on matching with bad binary keys
Even if a binary key is written as a literal the compiler may
choose to make an expression. Emit a warning in those cases
and saying the case will not match.
This is a limitation in current implementation.
Diffstat (limited to 'lib/compiler/src')
-rw-r--r-- | lib/compiler/src/v3_core.erl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lib/compiler/src/v3_core.erl b/lib/compiler/src/v3_core.erl index 04210ae243..46db9139c4 100644 --- a/lib/compiler/src/v3_core.erl +++ b/lib/compiler/src/v3_core.erl @@ -1595,7 +1595,9 @@ pattern_map_pair({map_field_exact,L,K,V}, St) -> {bin,L,Es0} -> case constant_bin(Es0) of error -> - throw(badmatch); + %% this will throw a cryptic error message + %% but it is better than nothing + throw(nomatch); Bin -> #c_literal{anno=lineno_anno(L,St),val=Bin} end; |