[m-rev.] for review: bug fix for lcc and tracing

[David Jeffery]

Hi,

This is for Fergus,

----------------------------------------------------------------------------

Estimated hours taken: 0.5

trace/mercury_trace_internal.c:
	Change the type of a type_info local variable so that this code
	is accepted by lcc.

----------------------------------------------------------------------------
Index: trace/mercury_trace_internal.c
===================================================================
RCS file: /home/staff/zs/imp/mercury/trace/mercury_trace_internal.c,v
retrieving revision 1.100
diff -u -t -r1.100 mercury_trace_internal.c
--- trace/mercury_trace_internal.c	2001/03/30 05:55:58	1.100
+++ trace/mercury_trace_internal.c	2001/04/02 05:11:12
@@ -466,7 +466,7 @@
 MR_trace_browse_exception(MR_Event_Info *event_info, MR_Browser browser,
                 MR_Browse_Caller_Type caller, MR_Browse_Format format)
 {
-        MR_Word         type_info;
+        MR_TypeInfo     type_info;
         MR_Word         value;
         MR_Word         exception;
 
@@ -481,7 +481,7 @@
 
         MR_unravel_univ(exception, type_info, value);
 
-        (*browser)(type_info, value, caller, format);
+        (*browser)((MR_Word)type_info, value, caller, format);
 
         return (const char *) NULL;
 }

dgj
-- 
David Jeffery (dgj at cs.mu.oz.au) | If you want to build a ship, don't drum up 
PhD student,                    | people together to collect wood or assign 
Dept. of Comp. Sci. & Soft. Eng.| them tasks and work, but rather teach them 
The University of Melbourne     | to long for the endless immensity of the sea.
Australia                       | -- Antoine de Saint Exupery
--------------------------------------------------------------------------
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
--------------------------------------------------------------------------