[m-rev.] diff: mercury_deep_profiling_hand.h

Zoltan Somogyi zs at cs.mu.OZ.AU
Sat Mar 20 16:44:34 AEDT 2004


runtime/mercury_deep_profiling_hand.h:
	Delete the redundant mercury__ in the names of proc_static structures,
	since the compiler now generates references to them without it.

Zoltan.

cvs diff: Diffing .
Index: mercury_deep_profiling_hand.h
===================================================================
RCS file: /home/mercury/mercury1/repository/mercury/runtime/mercury_deep_profiling_hand.h,v
retrieving revision 1.4
diff -u -b -r1.4 mercury_deep_profiling_hand.h
--- mercury_deep_profiling_hand.h	3 Jul 2001 08:16:32 -0000	1.4
+++ mercury_deep_profiling_hand.h	19 Mar 2004 14:51:35 -0000
@@ -16,21 +16,21 @@
 #include "mercury_deep_profiling.h"
 
 #define	MR_proc_static_user_builtin_name(name, arity, mode)		\
-	MR_PASTE6(mercury_data__proc_static__mercury__,			\
+	MR_PASTE6(mercury_data__proc_static__,				\
 		name, _, arity, _, mode)
 #define	MR_call_sites_user_builtin_name(name, arity, mode)		\
 	MR_PASTE6(mercury_data__proc_static_call_sites__mercury__,	\
 		name, _, arity, _, mode)
 
 #define	MR_proc_static_user_name(module, name, arity, mode)		\
-	MR_PASTE8(mercury_data__proc_static__mercury__,			\
+	MR_PASTE8(mercury_data__proc_static__,				\
 		module, __, name, _, arity, _, mode)
 #define	MR_call_sites_user_name(module, name, arity, mode)		\
 	MR_PASTE8(mercury_data__proc_static_call_sites__mercury__,	\
 		module, __, name, _, arity, _, mode)
 
 #define	MR_proc_static_compiler_name(module, name, type, arity, mode)	\
-	MR_PASTE10(mercury_data__proc_static__mercury__,		\
+	MR_PASTE10(mercury_data__proc_static__,				\
 		name, _, module, __, type, _, arity, _, mode)
 #define	MR_call_sites_compiler_name(module, name, type, arity, mode)	\
 	MR_PASTE10(mercury_data__proc_static_call_sites__mercury__,	\
cvs diff: Diffing GETOPT
cvs diff: Diffing machdeps
--------------------------------------------------------------------------
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