mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-25 14:24:11 +00:00
b76b3d5e2b
Estimated hours taken: 1 Branches: main library/pretty_printer.m: The depth limit was being prematurely decremented when formatting terms, causing one too few functors to be displayed before truncation. This bug caused everything to be printed as "..." at depth 1, rather than just showing the top-level functor. tests/debugger/browse_pretty.exp: tests/debugger/browser_test.exp3: tests/debugger/declarative/sort.exp: tests/hard_coded/test_pretty_printer.exp: tests/hard_coded/test_pretty_printer_defaults.exp: Update expected output files. tests/hard_coded/test_pretty_printer.m: Test the depth=1 case.
61 lines
1.2 KiB
Plaintext
61 lines
1.2 KiB
Plaintext
E1: C1 CALL pred sort.main/2-0 (det) sort.m:27
|
|
mdb> echo on
|
|
Command echo enabled.
|
|
mdb> register --quiet
|
|
mdb> table_io start
|
|
I/O tabling started.
|
|
mdb> finish
|
|
ian
|
|
ian
|
|
ian
|
|
ian
|
|
E2: C1 EXIT pred sort.main/2-0 (det) sort.m:27
|
|
mdb> format pretty
|
|
mdb> format_param depth 1
|
|
mdb> dd
|
|
main(...)
|
|
18 tabled IO actions:
|
|
command_line_arguments(...)
|
|
do_open_text(...)
|
|
lock_stream_db
|
|
get_stream_db(...)
|
|
set_stream_db(...)
|
|
unlock_stream_db
|
|
read_line_as_string_2(...)
|
|
read_line_as_string_2(...)
|
|
read_line_as_string_2(...)
|
|
read_line_as_string_2(...)
|
|
read_line_as_string_2(...)
|
|
write_string(...)
|
|
write_string(...)
|
|
write_string(...)
|
|
write_string(...)
|
|
write_string(...)
|
|
write_string(...)
|
|
write_string(...)
|
|
Valid? depth io 10
|
|
dd> print io 9
|
|
read_line_as_string_2('<<foreign>>', yes, 0, "rafe
|
|
")
|
|
dd> depth io 1
|
|
dd> no
|
|
open_stream(...)
|
|
5 tabled IO actions:
|
|
do_open_text(...)
|
|
lock_stream_db
|
|
get_stream_db(...)
|
|
set_stream_db(...)
|
|
unlock_stream_db
|
|
Valid? yes
|
|
read_lines(...)
|
|
5 tabled IO actions:
|
|
read_line_as_string_2(...)
|
|
read_line_as_string_2(...)
|
|
read_line_as_string_2(...)
|
|
read_line_as_string_2(...)
|
|
read_line_as_string_2(...)
|
|
Valid? quit
|
|
Diagnosis aborted.
|
|
E2: C1 EXIT pred sort.main/2-0 (det) sort.m:27
|
|
mdb> quit -y
|