mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-23 05:13:48 +00:00
f7df319d0c
Estimated hours taken: 2 trace/mercury_trace_internal.c: GNU readline always echos the inputs, so if readline support is enabled, then ignore the MR_echo_commands variable, and report an error if the user tries to use `echo off'. Also, if we're not using readline, then echo the `echo on' command, so that the output will be the same as with readline. tests/debugger/*.inp: Ensure that `echo on' is always the first command. tests/debugger/*.exp: tests/debugger/*.exp2: Update to reflect the changes to *.inp, and to include the echo of the `echo on' command. (Also delete the mdb intro banners from *_lib.exp*, because mdb is invoked with MERCURY_SUPPRESS_MDB_BANNER=yes. The *_lib* files are in fact currently not used, so they should probably be just deleted, I think. But I'll do that as a separate change.)
37 lines
1.2 KiB
Plaintext
37 lines
1.2 KiB
Plaintext
1: 1 1 CALL pred multi_parameter:main/2-0 (det)
|
|
mdb> echo on
|
|
Command echo enabled.
|
|
mdb>
|
|
2: 2 2 CALL pred multi_parameter:foo/2-0 (det)
|
|
mdb> print *
|
|
HeadVar__1 'z'
|
|
mdb>
|
|
3: 3 3 CALL pred multi_parameter:a/2-0 (det)
|
|
mdb> print *
|
|
HeadVar__1 'z'
|
|
mdb>
|
|
4: 4 4 CALL pred multi_parameter:Introduced_pred_for_multi_parameter__m__character__arity0__int__arity0______multi_parameter__a_2/2-0 (det)
|
|
mdb> print *
|
|
HeadVar__1 'z'
|
|
mdb>
|
|
5: 5 5 CALL pred char:to_int/2-0 (det)
|
|
mdb> print *
|
|
Character 'z'
|
|
mdb>
|
|
6: 5 5 EXIT pred char:to_int/2-0 (det)
|
|
mdb> print *
|
|
Character 'z'
|
|
Int 122
|
|
mdb>
|
|
7: 4 4 EXIT pred multi_parameter:Introduced_pred_for_multi_parameter__m__character__arity0__int__arity0______multi_parameter__a_2/2-0 (det)
|
|
mdb> print *
|
|
HeadVar__1 'z'
|
|
HeadVar__2 122
|
|
mdb>
|
|
8: 3 3 EXIT pred multi_parameter:a/2-0 (det)
|
|
mdb> print *
|
|
HeadVar__1 'z'
|
|
HeadVar__2 122
|
|
mdb> continue -S
|
|
122
|