Sign Up
Log In
Log In
or
Sign Up
Places
All Projects
Status Monitor
Collapse sidebar
home:Ledest:erlang:23
erlang
0492-Fix-io_lib_pretty-printable_latin1_list-2....
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
File 0492-Fix-io_lib_pretty-printable_latin1_list-2.patch of Package erlang
From e38219c286e8a23041b7d28f80bae55c57892cd6 Mon Sep 17 00:00:00 2001 From: k32 <10274441+k32@users.noreply.github.com> Date: Wed, 5 May 2021 16:49:35 +0200 Subject: [PATCH] Fix io_lib_pretty:printable_latin1_list/2 Fixes #4801 --- lib/stdlib/src/io_lib_pretty.erl | 4 ++-- lib/stdlib/test/io_SUITE.erl | 8 ++++++-- 2 files changed, 8 insertions(+), 4 deletions(-) diff --git a/lib/stdlib/src/io_lib_pretty.erl b/lib/stdlib/src/io_lib_pretty.erl index 838d412d0c..51859b6f3d 100644 --- a/lib/stdlib/src/io_lib_pretty.erl +++ b/lib/stdlib/src/io_lib_pretty.erl @@ -835,9 +835,9 @@ printable_bin1(Bin, Start, Len) -> %% -> all | integer() >=0. Adopted from io_lib.erl. printable_latin1_list([_ | _], 0) -> 0; -printable_latin1_list([C | Cs], N) when C >= $\s, C =< $~ -> +printable_latin1_list([C | Cs], N) when is_integer(C), C >= $\s, C =< $~ -> printable_latin1_list(Cs, N - 1); -printable_latin1_list([C | Cs], N) when C >= $\240, C =< $\377 -> +printable_latin1_list([C | Cs], N) when is_integer(C), C >= $\240, C =< $\377 -> printable_latin1_list(Cs, N - 1); printable_latin1_list([$\n | Cs], N) -> printable_latin1_list(Cs, N - 1); printable_latin1_list([$\r | Cs], N) -> printable_latin1_list(Cs, N - 1); diff --git a/lib/stdlib/test/io_SUITE.erl b/lib/stdlib/test/io_SUITE.erl index 4eb5b1772c..63395be98a 100644 --- a/lib/stdlib/test/io_SUITE.erl +++ b/lib/stdlib/test/io_SUITE.erl @@ -33,7 +33,7 @@ maps/1, coverage/1, otp_14178_unicode_atoms/1, otp_14175/1, otp_14285/1, limit_term/1, otp_14983/1, otp_15103/1, otp_15076/1, otp_15159/1, otp_15639/1, otp_15705/1, otp_15847/1, otp_15875/1, - chars_limit/1, otp_17525/1]). + github_4801/1, chars_limit/1, otp_17525/1]). -export([pretty/2, trf/3]). @@ -66,7 +66,7 @@ all() -> io_lib_width_too_small, io_with_huge_message_queue, format_string, maps, coverage, otp_14178_unicode_atoms, otp_14175, otp_14285, limit_term, otp_14983, otp_15103, otp_15076, otp_15159, - otp_15639, otp_15705, otp_15847, otp_15875, chars_limit, otp_17525]. + otp_15639, otp_15705, otp_15847, otp_15875, github_4801, chars_limit, otp_17525]. %% Error cases for output. error_1(Config) when is_list(Config) -> @@ -2782,6 +2782,10 @@ otp_15847(_Config) -> S = io_lib:format("~tp", [[{0, [<<"00">>]}]], [{chars_limit, 18}]), "[{0,[<<\"00\">>]}]" = lists:flatten(S). + +github_4801(_Config) -> + <<"{[81.6]}">> = iolist_to_binary(io_lib:format("~p", [{[81.6]}], [{chars_limit,40}])). + %% GH-4824, GH-4842, OTP-17459. chars_limit(_Config) -> List = fun R(I) -> -- 2.26.2
Locations
Projects
Search
Status Monitor
Help
OpenBuildService.org
Documentation
API Documentation
Code of Conduct
Contact
Support
@OBShq
Terms
openSUSE Build Service is sponsored by
The Open Build Service is an
openSUSE project
.
Sign Up
Log In
Places
Places
All Projects
Status Monitor