[m-rev.] diff: adding const to variable declarations

[Zoltan Somogyi]

library/deconstruct.m:
runtime/mercury_construct.c:
	Add const qualifiers to variable declarations.

Index: runtime/mercury_construct.c
===================================================================
RCS file: /home/mercury1/repository/mercury/runtime/mercury_construct.c,v
retrieving revision 1.5
diff -u -b -r1.5 mercury_construct.c
--- runtime/mercury_construct.c	2002/08/01 11:52:26	1.5
+++ runtime/mercury_construct.c	2002/08/13 06:45:52
@@ -52,7 +52,7 @@
     case MR_TYPECTOR_REP_DU:
     case MR_TYPECTOR_REP_DU_USEREQ:
         {
-            MR_DuFunctorDesc    *functor_desc;
+            const MR_DuFunctorDesc    *functor_desc;
 
             if (functor_number < 0 ||
                 functor_number >= MR_type_ctor_num_functors(type_ctor_info))
@@ -76,7 +76,7 @@
     case MR_TYPECTOR_REP_ENUM:
     case MR_TYPECTOR_REP_ENUM_USEREQ:
         {
-            MR_EnumFunctorDesc  *functor_desc;
+            const MR_EnumFunctorDesc  *functor_desc;
 
             if (functor_number < 0 ||
                 functor_number >= MR_type_ctor_num_functors(type_ctor_info))
@@ -100,7 +100,7 @@
     case MR_TYPECTOR_REP_NOTAG_GROUND:
     case MR_TYPECTOR_REP_NOTAG_GROUND_USEREQ:
         {
-            MR_NotagFunctorDesc *functor_desc;
+            const MR_NotagFunctorDesc *functor_desc;
 
             if (functor_number != 0) {
                 MR_fatal_error("MR_get_functor_info: "
cvs diff: Diffing library/
Index: library//deconstruct.m
===================================================================
RCS file: /home/mercury1/repository/mercury/library/deconstruct.m,v
retrieving revision 1.13
diff -u -b -r1.13 deconstruct.m
--- library//deconstruct.m	2002/08/01 11:52:23	1.13
+++ library//deconstruct.m	2002/08/13 06:47:49
@@ -807,7 +807,7 @@
     MR_TypeInfo         type_info;
     MR_TypeInfo         exp_type_info;
     MR_TypeCtorInfo     type_ctor_info;
-    MR_NotagFunctorDesc *functor_desc;
+    const MR_NotagFunctorDesc   *functor_desc;
     MR_Word             value;
 
     MR_unravel_univ(Univ, type_info, value);
--------------------------------------------------------------------------
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
--------------------------------------------------------------------------