From d78df206f9356629d82891e5853f7ff53c9f9749 Mon Sep 17 00:00:00 2001 From: Hans Bolinder Date: Thu, 26 Jun 2014 14:31:15 +0200 Subject: hipe: Correct pretty-printing of bitstrings --- lib/dialyzer/test/small_SUITE_data/results/pretty_bitstring | 3 +++ lib/dialyzer/test/small_SUITE_data/src/pretty_bitstring.erl | 8 ++++++++ 2 files changed, 11 insertions(+) create mode 100644 lib/dialyzer/test/small_SUITE_data/results/pretty_bitstring create mode 100644 lib/dialyzer/test/small_SUITE_data/src/pretty_bitstring.erl (limited to 'lib/dialyzer') diff --git a/lib/dialyzer/test/small_SUITE_data/results/pretty_bitstring b/lib/dialyzer/test/small_SUITE_data/results/pretty_bitstring new file mode 100644 index 0000000000..0ad6eee766 --- /dev/null +++ b/lib/dialyzer/test/small_SUITE_data/results/pretty_bitstring @@ -0,0 +1,3 @@ + +pretty_bitstring.erl:7: Function t/0 has no local return +pretty_bitstring.erl:8: The call binary:copy(#{#<1>(8, 1, 'integer', ['unsigned', 'big']), #<2>(8, 1, 'integer', ['unsigned', 'big']), #<3>(3, 1, 'integer', ['unsigned', 'big'])}#,2) breaks the contract (Subject,N) -> binary() when is_subtype(Subject,binary()), is_subtype(N,non_neg_integer()) diff --git a/lib/dialyzer/test/small_SUITE_data/src/pretty_bitstring.erl b/lib/dialyzer/test/small_SUITE_data/src/pretty_bitstring.erl new file mode 100644 index 0000000000..3dbf5ab7a7 --- /dev/null +++ b/lib/dialyzer/test/small_SUITE_data/src/pretty_bitstring.erl @@ -0,0 +1,8 @@ +%% Prettyprint bitstrings. + +-module(pretty_bitstring). + +-export([t/0]). + +t() -> + binary:copy(<<1,2,3:3>>,2). -- cgit v1.2.3