[m-rev.] trivial diff: agc MR_ prefixes

Fergus Henderson fjh at cs.mu.OZ.AU
Tue Mar 5 02:17:05 AEDT 2002


Estimated hours taken: 0.1
Branches: main

runtime/mercury_agc_debug.c:
runtime/mercury_accurate_gc.c:
	Add MR_ prefixes.

Workspace: /home/ceres/fjh/mercury
Index: runtime/mercury_accurate_gc.c
===================================================================
RCS file: /home/mercury1/repository/mercury/runtime/mercury_accurate_gc.c,v
retrieving revision 1.16
diff -u -d -r1.16 mercury_accurate_gc.c
--- runtime/mercury_accurate_gc.c	18 Feb 2002 07:01:13 -0000	1.16
+++ runtime/mercury_accurate_gc.c	4 Mar 2002 15:15:29 -0000
@@ -307,7 +307,7 @@
 
 		saved_success_location = &MR_based_framevar(curfr_at_signal,
 			number);
-		saved_success = (Code *) *saved_success_location;
+		saved_success = (MR_Code *) *saved_success_location;
 	}
 
 #ifdef MR_DEBUG_AGC_SCHEDULING
@@ -452,7 +452,7 @@
 	int				short_var_count, long_var_count;
 
 #ifdef MR_DEBUG_AGC_COLLECTION
-	printlabel((Code *) (Word) label->i_addr);
+	printlabel((MR_Code *) (Word) label->i_addr);
         fflush(NULL);
 #endif
 
@@ -516,7 +516,7 @@
 			fatal_error("can only handle stackvars");
 			}
 		
-		success_ip = (Code *) MR_based_stackvar(stack_pointer, number);
+		success_ip = (MR_Code *) MR_based_stackvar(stack_pointer, number);
 		stack_pointer = stack_pointer - 
 			proc_layout->MR_sle_stack_slots;
 		label = MR_lookup_internal_by_addr(success_ip);
Index: runtime/mercury_agc_debug.c
===================================================================
RCS file: /home/mercury1/repository/mercury/runtime/mercury_agc_debug.c,v
retrieving revision 1.18
diff -u -d -r1.18 mercury_agc_debug.c
--- runtime/mercury_agc_debug.c	18 Feb 2002 07:01:13 -0000	1.18
+++ runtime/mercury_agc_debug.c	4 Mar 2002 15:13:42 -0000
@@ -73,7 +73,7 @@
 MR_agc_dump_nondet_stack_frames(MR_Internal *label, MR_MemoryZone *heap_zone,
 	MR_Word *stack_pointer, MR_Word *current_frame, MR_Word *max_frame)
 {
-	Code *success_ip;
+	MR_Code *success_ip;
 	int frame_size;
 	MR_bool registers_valid;
 

-- 
Fergus Henderson <fjh at cs.mu.oz.au>  |  "I have always known that the pursuit
The University of Melbourne         |  of excellence is a lethal habit"
WWW: <http://www.cs.mu.oz.au/~fjh>  |     -- the last words of T. S. Garp.
--------------------------------------------------------------------------
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