[m-rev.] trivial diff: fix debugger test output
Simon Taylor
stayl at cs.mu.OZ.AU
Fri Jul 5 16:02:20 AEST 2002
Estimated hours taken: 0.1
Branches: main
tests/debugger/interactive.exp2
Update expected output.
Index: interactive.exp2
===================================================================
RCS file: /home/mercury1/repository/tests/debugger/interactive.exp2,v
retrieving revision 1.4
diff -u -u -r1.4 interactive.exp2
--- interactive.exp2 2002/06/12 14:27:03 1.4
+++ interactive.exp2 2002/07/05 06:00:48
@@ -2,7 +2,7 @@
mdb> echo on
Command echo enabled.
mdb> print *
- HeadVar__1 state('<<c_pointer>>')
+ DCG_0 (arg 1) state('<<c_pointer>>')
mdb>
2: 2 2 CALL pred interactive:data/1-0 (det) interactive.m:40 (interactive.m:19)
mdb> print *
@@ -14,7 +14,7 @@
mdb>
4: 3 2 CALL pred interactive:queen/2-0 (nondet) interactive.m:42 (interactive.m:19)
mdb> print *
- HeadVar__1 [1, 2, 3, 4, 5]
+ Data (arg 1) [1, 2, 3, 4, 5]
mdb>
5: 4 3 CALL pred interactive:qperm/2-0 (nondet) interactive.m:46 (interactive.m:43)
mdb> print *
@@ -42,9 +42,9 @@
Ancestor level set to 2:
2 pred interactive:queen/2-0 (nondet) interactive.m:43
mdb> vars
- 1 HeadVar__1
+ 1 Data (arg 1)
mdb> print *
- HeadVar__1 [1, 2, 3, 4, 5]
+ Data (arg 1) [1, 2, 3, 4, 5]
mdb>
9: 5 4 EXIT pred interactive:qdelete/3-0 (nondet) interactive.m:52 (interactive.m:48)
mdb> print HeadVar__1
@@ -267,7 +267,7 @@
39: 15 3 SWTC pred interactive:safe/1-0 (semidet) s2; interactive.m:57
40: 16 4 CALL pred interactive:nodiag/3-0 (semidet) interactive.m:61 (interactive.m:58)
41: 16 4 SWTC pred interactive:nodiag/3-0 (semidet) s2; interactive.m:62
- 42: 16 4 THEN pred interactive:nodiag/3-0 (semidet) s2;c4;t; interactive.m:66
+ 42: 16 4 THEN pred interactive:nodiag/3-0 (semidet) s2;c6;t; interactive.m:66
43: 16 4 FAIL pred interactive:nodiag/3-0 (semidet) interactive.m:61 (interactive.m:58)
44: 15 3 FAIL pred interactive:safe/1-0 (semidet) interactive.m:56 (interactive.m:44)
45: 4 3 REDO pred interactive:qperm/2-0 (nondet) interactive.m:46 (interactive.m:43)
--------------------------------------------------------------------------
mercury-reviews mailing list
post: mercury-reviews at cs.mu.oz.au
administrative address: owner-mercury-reviews at cs.mu.oz.au
unsubscribe: Address: mercury-reviews-request at cs.mu.oz.au Message: unsubscribe
subscribe: Address: mercury-reviews-request at cs.mu.oz.au Message: subscribe
--------------------------------------------------------------------------
More information about the reviews
mailing list