[m-dev.] trivial diff: More s/Word/MR_Word/

[Mark Anthony BROWN]

Hi,

These occurrences of `Word' were part of a change that was pending when
s/Word/MR_Word/g was last done, so they escaped the net.

Cheers,
Mark.


Estimated hours taken: 0.1

trace/mercury_trace_declarative.c:
	s/Word/MR_Word/g

	Also, break lines with >80 chars.

Index: trace/mercury_trace_declarative.c
===================================================================
RCS file: /home/mercury1/repository/mercury/trace/mercury_trace_declarative.c,v
retrieving revision 1.28
diff -u -r1.28 mercury_trace_declarative.c
--- trace/mercury_trace_declarative.c	2000/08/11 16:50:23	1.28
+++ trace/mercury_trace_declarative.c	2000/08/18 02:48:09
@@ -502,7 +502,8 @@
 		node = (MR_Trace_Node) MR_DD_construct_exit_node(
 				(MR_Word) prev, (MR_Word) call, last_interface,
 				atom, (MR_Word) event_info->MR_event_number);
-		MR_DD_call_node_set_last_interface((MR_Word) call, (MR_Word) node);
+		MR_DD_call_node_set_last_interface((MR_Word) call,
+				(MR_Word) node);
 	);
 
 	return node;
@@ -547,7 +548,8 @@
 		node = (MR_Trace_Node) MR_DD_construct_redo_node(
 					(MR_Word) prev,
 					last_interface);
-		MR_DD_call_node_set_last_interface((MR_Word) call, (MR_Word) node);
+		MR_DD_call_node_set_last_interface((MR_Word) call,
+					(MR_Word) node);
 	);
 
 	return node;
@@ -584,9 +586,11 @@
 	MR_TRACE_CALL_MERCURY(
 		redo = MR_DD_call_node_get_last_interface( (MR_Word) call);
 		node = (MR_Trace_Node) MR_DD_construct_fail_node(
-					(MR_Word) prev, (MR_Word) call, (MR_Word) redo,
+					(MR_Word) prev, (MR_Word) call,
+					(MR_Word) redo,
 					(MR_Word) event_info->MR_event_number);
-		MR_DD_call_node_set_last_interface((MR_Word) call, (MR_Word) node);
+		MR_DD_call_node_set_last_interface((MR_Word) call,
+					(MR_Word) node);
 	);
 	return node;
 }
@@ -608,12 +612,13 @@
 
 	MR_TRACE_CALL_MERCURY(
 		last_interface = MR_DD_call_node_get_last_interface(
-				(Word) call);
+				(MR_Word) call);
 		node = (MR_Trace_Node) MR_DD_construct_excp_node(
-				(Word) prev, (Word) call, last_interface,
+				(MR_Word) prev, (MR_Word) call, last_interface,
 				MR_trace_get_exception_value(),
-				(Word) event_info->MR_event_number);
-		MR_DD_call_node_set_last_interface((Word) call, (Word) node);
+				(MR_Word) event_info->MR_event_number);
+		MR_DD_call_node_set_last_interface(
+				(MR_Word) call, (MR_Word) node);
 	);
 
 	return node;
@@ -1036,7 +1041,8 @@
 		arity = entry->MR_sle_user.MR_user_arity;
 	}
 	MR_TRACE_CALL_MERCURY(
-		atom = MR_DD_construct_trace_atom((MR_String) name, (MR_Word) arity);
+		atom = MR_DD_construct_trace_atom((MR_String) name,
+				(MR_Word) arity);
 	);
 
 	arg_count = MR_trace_var_count();
@@ -1367,7 +1373,8 @@
 
 	MR_trace_node_store++;
 	MR_TRACE_CALL_MERCURY(
-		path = MR_DD_trace_node_path(MR_trace_node_store, (MR_Word) node);
+		path = MR_DD_trace_node_path(MR_trace_node_store,
+				(MR_Word) node);
 	);
 	return path;
 }
@@ -1407,7 +1414,8 @@
 	MR_Trace_Node		first;
 
 	MR_TRACE_CALL_MERCURY(
-		if (!MR_DD_trace_node_first_disj((MR_Word) node, (MR_Word *) &first))
+		if (!MR_DD_trace_node_first_disj((MR_Word) node,
+				(MR_Word *) &first))
 		{
 			MR_fatal_error("MR_trace_node_first_disj: "
 				"not a DISJ event");
--------------------------------------------------------------------------
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
--------------------------------------------------------------------------