[m-rev.] diff: wrap Mercury proc call in MR_TRACE_CALL_MERCURY

Ian MacLarty maclarty at cs.mu.OZ.AU
Wed Aug 3 01:34:31 AEST 2005


Estimated hours taken: 0.1
Branches: main and 0.12

trace/mercury_trace_browse.c:
	Wrap call to Mercury procedure ML_BROWSE_browse_term_xml in
	MR_TRACE_CALL_MERCURY macro.

Index: trace/mercury_trace_browse.c
===================================================================
RCS file: /home/mercury1/repository/mercury/trace/mercury_trace_browse.c,v
retrieving revision 1.36
diff -u -r1.36 mercury_trace_browse.c
--- trace/mercury_trace_browse.c	22 Feb 2005 22:27:49 -0000	1.36
+++ trace/mercury_trace_browse.c	11 Jun 2005 04:33:25 -0000
@@ -126,8 +126,10 @@
     MR_c_file_to_mercury_file(MR_mdb_out, &mdb_out);
     MR_c_file_to_mercury_file(MR_mdb_err, &mdb_err);

-    ML_BROWSE_browse_term_xml(browser_term, &mdb_out, &mdb_err,
-        MR_trace_browser_persistent_state);
+    MR_TRACE_CALL_MERCURY(
+        ML_BROWSE_browse_term_xml(browser_term, &mdb_out, &mdb_err,
+            MR_trace_browser_persistent_state);
+    );
 }

 void

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