[m-rev.] diff: MR_COMMON

[Zoltan Somogyi]

runtime/mercury_misc.h:
	Provide MR_COMMON as a synonym for MR_XCOMMON, to allow a future
	version of the compiler to generate the former instead of the latter.

Zoltan.

cvs diff: Diffing .
Index: mercury_misc.h
===================================================================
RCS file: /home/mercury/mercury1/repository/mercury/runtime/mercury_misc.h,v
retrieving revision 1.27
diff -u -b -r1.27 mercury_misc.h
--- mercury_misc.h	27 Mar 2006 05:05:46 -0000	1.27
+++ mercury_misc.h	22 Apr 2006 12:45:22 -0000
@@ -44,7 +44,7 @@
 extern	void	MR_perform_registered_exception_cleanups(void);
 
 /*
-** These macro are shorthands to allow reductions in the size of compiler
+** These macros are shorthands to allow reductions in the size of compiler
 ** generated C source files.
 */
 
@@ -54,8 +54,14 @@
 #define	MR_COMMON_NAME(cellnum)					\
 	MR_PASTE2(mercury_common_, cellnum)
 
+#define	MR_COMMON(typenum, cellnum)				\
+	((MR_Word *) &MR_COMMON_NAME(typenum)[cellnum])
+
 #define	MR_XCOMMON(typenum, cellnum)				\
 	((MR_Word *) &MR_COMMON_NAME(typenum)[cellnum])
+
+#define	MR_TAG_COMMON(tag, typenum, cellnum)			\
+	(MR_mkword(MR_mktag(tag), MR_COMMON(typenum, cellnum)))
 
 #define	MR_TAG_XCOMMON(tag, typenum, cellnum)			\
 	(MR_mkword(MR_mktag(tag), MR_XCOMMON(typenum, cellnum)))
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
--------------------------------------------------------------------------