[m-dev.] trivial diff: add .exp3 file for debugger test case

[Fergus Henderson]

Estimated hours taken: 1.5

tests/debugger/polymorphic_output.exp3:
	Add another valid debugger output for this test case.
	This output occurs when the standard library was compiled
	in a non-debug grade, with `-O1 --opt-space'; in that case,
	std_util__det_arg calls std_util__arg which throws an
	exception, and then since the call stack contains an address
	in std_util__det_arg, which was compiled without debugging
	information enabled, we get a warning "internal label not
	found".

	The normal output, in the `.exp' file, occurs when the
	standard library is compiled with `-O2'.  In that case, the
	call to std_util__arg gets inlined, and so the caller address
	is in the calling module polymorphic_output, which gets
	compiled with `--trace deep'.

Workspace: /home/pgrad/fjh/ws/mercury
Index: tests/debugger/polymorphic_output.exp3
===================================================================
RCS file: polymorphic_output.exp3
diff -N polymorphic_output.exp3
--- /dev/null	Thu Mar 30 14:06:13 2000
+++ polymorphic_output.exp3	Mon Sep 18 02:34:29 2000
@@ -0,0 +1,17 @@
+       1:      1  1 CALL pred polymorphic_output:main/2-0 (det) polymorphic_output.m:20
+mdb> echo on
+Command echo enabled.
+mdb> register --quiet
+mdb> context none
+Contexts will not be printed.
+mdb> b std_util__det_arg
+mdb: there is no such procedure.
+mdb> c
+mdb: warning: internal label not found
+
+This may result in some exception events
+being omitted from the trace.
+Uncaught exception:
+Software Error: det_arg: argument number out of range
+Last trace event was event #4.
+Last trace event before the unhandled exception was event #4.

-- 
Fergus Henderson <fjh at cs.mu.oz.au>  |  "I have always known that the pursuit
WWW: <http://www.cs.mu.oz.au/~fjh>  |  of excellence is a lethal habit"
PGP: finger fjh at 128.250.37.3        |     -- the last words of T. S. Garp.
--------------------------------------------------------------------------
mercury-developers mailing list
Post messages to:       mercury-developers at cs.mu.oz.au
Administrative Queries: owner-mercury-developers at cs.mu.oz.au
Subscriptions:          mercury-developers-request at cs.mu.oz.au
--------------------------------------------------------------------------