[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