[m-rev.] diff: fix dummy_type_construct in erlang

[Peter Wang]

Estimated hours taken: 0.1
Branches: main

library/erlang_rtti_implementation.m:
	Only succeed in constructing a dummy value if the functor number is 0.

Index: library/erlang_rtti_implementation.m
===================================================================
RCS file: /home/mercury/mercury1/repository/mercury/library/erlang_rtti_implementation.m,v
retrieving revision 1.23
diff -u -p -r1.23 erlang_rtti_implementation.m
--- library/erlang_rtti_implementation.m	18 Sep 2007 07:19:05 -0000	1.23
+++ library/erlang_rtti_implementation.m	18 Sep 2007 07:23:21 -0000
@@ -1406,6 +1406,7 @@ construct(TypeDesc, Index, Args) = Term 
         Term = construct_univ(TypeInfo, FunctorName, Args)
     ;
         TypeCtorRep = etcr_dummy,
+        Index = 0,
         Term = construct_univ(TypeInfo, "false", [])
     ;
         TypeCtorRep = etcr_list,

--------------------------------------------------------------------------
mercury-reviews mailing list
Post messages to:       mercury-reviews at csse.unimelb.edu.au
Administrative Queries: owner-mercury-reviews at csse.unimelb.edu.au
Subscriptions:          mercury-reviews-request at csse.unimelb.edu.au
--------------------------------------------------------------------------