[m-rev.] trivial diff: fix lcc type error in std_util.m

[Fergus Henderson]

Estimated hours taken: 0.5

library/std_util.m:
	Add `const' to avoid a gcc warning / lcc error caused
	by my earlier addition of `const' in runtime/mercury_type_info.h.

	Also delete an unused local variable.

Workspace: /home/ceres/fjh/mercury
Index: library/std_util.m
===================================================================
RCS file: /home/mercury1/repository/mercury/library/std_util.m,v
retrieving revision 1.247
diff -u -d -r1.247 std_util.m
--- library/std_util.m	24 Oct 2001 07:43:18 -0000	1.247
+++ library/std_util.m	8 Nov 2001 05:59:35 -0000
@@ -2242,7 +2242,6 @@
     MR_Word             new_data;
     ML_Construct_Info   construct_info;
     bool                success;
-    MR_DuTypeLayout	du_type_layout;
 
     type_info = (MR_TypeInfo) TypeDesc;
 
@@ -3821,7 +3820,7 @@
 {
     MR_TypeInfo             type_info;
     MR_TypeCtorInfo         type_ctor_info;
-    MR_DuPtagLayout         *ptag_layout;
+    const MR_DuPtagLayout   *ptag_layout;
     const MR_DuFunctorDesc  *functor_desc;
     MR_Word                 value;
     MR_Word                 *arg_vector;

-- 
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
--------------------------------------------------------------------------