[m-dev.] diff: fix bug in MR_port_is_interface()

[Fergus Henderson]

Estimated hours taken: 0.25

trace/mercury_trace.h:
	Fix a bug: the MR_port_is_interface() macro was returning FALSE
	for `fail' ports.  Among other things, this caused the debugger
	to not display the callee's line number for those ports.

Workspace: /d-drive/home/hg/fjh/mercury
Index: trace/mercury_trace.h
===================================================================
RCS file: /home/mercury1/repository/mercury/trace/mercury_trace.h,v
retrieving revision 1.10
diff -u -d -r1.10 mercury_trace.h
--- trace/mercury_trace.h	1999/09/21 04:55:35	1.10
+++ trace/mercury_trace.h	1999/11/18 07:24:06
@@ -121,7 +121,7 @@
 					 (port) == MR_PORT_FAIL || \
 					 (port) == MR_PORT_EXCEPTION)
 
-#define	MR_port_is_interface(port)	((port) < MR_PORT_FAIL || \
+#define	MR_port_is_interface(port)	((port) <= MR_PORT_FAIL || \
 					 (port) == MR_PORT_EXCEPTION)
 
 #define	MR_port_is_entry(port)		((port) == MR_PORT_CALL)

-- 
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
--------------------------------------------------------------------------