[m-dev.] for review: MR_TRACE_USE_HP

[Zoltan Somogyi]

For review by Fergus.

trace/mercury_trace_browse.c:
trace/mercury_trace_help.c:
	Add MR_TRACE_USE_HP macros around calls to MR_make_permanent, since
	on SPARCs this may be necessary to really update MR_hp.

Zoltan.

cvs diff: Diffing .
Index: mercury_trace_browse.c
===================================================================
RCS file: /home/mercury1/repository/mercury/trace/mercury_trace_browse.c,v
retrieving revision 1.14
diff -u -b -r1.14 mercury_trace_browse.c
--- mercury_trace_browse.c	2000/08/11 16:50:23	1.14
+++ mercury_trace_browse.c	2000/08/23 04:26:28
@@ -65,10 +65,12 @@
 			(MR_Word) &mdb_in, (MR_Word) &mdb_out,
 			MR_trace_browser_state, &MR_trace_browser_state);
 	);
-	MR_trace_browser_state = MR_make_permanent(MR_trace_browser_state,
-				MR_trace_browser_state_type);
-}
 
+	MR_TRACE_USE_HP(
+		MR_trace_browser_state = MR_make_permanent(
+			MR_trace_browser_state, MR_trace_browser_state_type);
+	);
+}
 	
 /*
 ** MR_trace_browse_external() is the same as MR_trace_browse() except it 
@@ -90,8 +92,11 @@
 			(MR_Word) &MR_debugger_socket_out,
 			MR_trace_browser_state, &MR_trace_browser_state);
 	);
-	MR_trace_browser_state = MR_make_permanent(MR_trace_browser_state,
-				MR_trace_browser_state_type);
+
+	MR_TRACE_USE_HP(
+		MR_trace_browser_state = MR_make_permanent(
+			MR_trace_browser_state, MR_trace_browser_state_type);
+	);
 }
 
 #endif
@@ -128,12 +133,17 @@
 			ML_BROWSE_init_state(&MR_trace_browser_state);
 		);
 
-		MR_trace_browser_state_type = (MR_TypeInfo) MR_make_permanent(
+		MR_TRACE_USE_HP(
+			MR_trace_browser_state_type = (MR_TypeInfo)
+				MR_make_permanent(
 					(MR_Word) MR_trace_browser_state_type,
 					(MR_TypeInfo) typeinfo_type_word);
-		MR_trace_browser_state = MR_make_permanent(
+			MR_trace_browser_state =
+				MR_make_permanent(
 					MR_trace_browser_state,
 					MR_trace_browser_state_type);
+		);
+
 		done = TRUE;
 	}
 }
Index: mercury_trace_help.c
===================================================================
RCS file: /home/mercury1/repository/mercury/trace/mercury_trace_help.c,v
retrieving revision 1.11
diff -u -b -r1.11 mercury_trace_help.c
--- mercury_trace_help.c	2000/08/03 06:19:27	1.11
+++ mercury_trace_help.c	2000/08/18 10:45:18
@@ -101,8 +101,10 @@
 		error = ML_HELP_result_is_error(result, &msg);
 	);
 
+	MR_TRACE_USE_HP(
 	MR_trace_help_system = MR_make_permanent(MR_trace_help_system,
 				MR_trace_help_system_type);
+	);
 
 	return (error ? msg : NULL);
 }
@@ -184,13 +186,19 @@
 			ML_io_stdout_stream(&MR_trace_help_stdout);
 		);
 
-		MR_trace_help_system_type = (MR_TypeInfo) MR_make_permanent(
+		MR_TRACE_USE_HP(
+			MR_trace_help_system_type = (MR_TypeInfo)
+				MR_make_permanent(
 					(MR_Word) MR_trace_help_system_type,
 					(MR_TypeInfo) typeinfo_type);
-		MR_trace_help_system = MR_make_permanent(MR_trace_help_system,
+			MR_trace_help_system =
+				MR_make_permanent(
+					MR_trace_help_system,
 					MR_trace_help_system_type);
-		MR_trace_help_stdout = MR_make_permanent(MR_trace_help_stdout,
+			MR_trace_help_stdout =
+				MR_make_permanent(MR_trace_help_stdout,
 					(MR_TypeInfo) output_stream_type);
+		);
 
 		done = TRUE;
 	}
--------------------------------------------------------------------------
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
--------------------------------------------------------------------------