[m-dev.] trivial diff: fix my bug fix

[Fergus Henderson]

Estimated hours taken: 0.25

compiler/base_type_layout.m:
compiler/base_typeclass_info.m:
	Fix a mistake in my earlier attempt at a fix for
	the compilation errors in dgj's recent check-in.

Workspace: /home/mercury0/public/test_mercury/test_dirs/murlibobo/mercury
Index: compiler/base_type_layout.m
===================================================================
RCS file: /home/staff/zs/imp/mercury/compiler/base_type_layout.m,v
retrieving revision 1.48
diff -u -d -r1.48 base_type_layout.m
--- base_type_layout.m	1999/12/09 15:03:21	1.48
+++ base_type_layout.m	1999/12/09 17:09:41
@@ -1034,7 +1034,7 @@
 	FirstConstraint = constraint(ClassName, Args),
 	list__length(Args, ClassArity),
 	map__lookup(ClassTable, class_id(ClassName, ClassArity), ClassDefn),
-	ClassDefn = hlds_class_defn(SuperClasses, _, _, _, _, _, _),
+	ClassDefn = hlds_class_defn(_, SuperClasses, _, _, _, _, _),
 	list__length(SuperClasses, NumSuperClasses),
 	RealTypeInfoIndex = TypeInfoIndex + NumSuperClasses,
 	make_indirect_typeinfo_index(ThisN, RealTypeInfoIndex, Rval),
Index: compiler/base_typeclass_info.m
===================================================================
RCS file: /home/staff/zs/imp/mercury/compiler/base_typeclass_info.m,v
retrieving revision 1.15
diff -u -d -r1.15 base_typeclass_info.m
--- base_typeclass_info.m	1999/12/09 15:03:25	1.15
+++ base_typeclass_info.m	1999/12/09 17:08:57
@@ -155,8 +155,8 @@
 		SuperArg, ArityArg) :-
 	module_info_classes(ModuleInfo, ClassTable),
 	map__lookup(ClassTable, ClassId, ClassDefn),
-	ClassDefn = hlds_class_defn(SuperClassConstraints, ClassVars,
-			_, _, _, _, _),
+	ClassDefn = hlds_class_defn(_, SuperClassConstraints, ClassVars,
+			_, _, _, _),
 	list__length(SuperClassConstraints, NumSuper),
 	list__length(ClassVars, NumVars),
 	SuperArg = yes(const(int_const(NumSuper))),

-- 
Fergus Henderson <fjh at cs.mu.oz.au>  |  "I have always known that the pursuit
WWW: <http://www.cs.mu.oz.au/~fjh>  |  of excellence is a lethal habit"
PGP: finger fjh at 128.250.37.3        |     -- the last words of T. S. Garp.
--------------------------------------------------------------------------
mercury-developers mailing list
Post messages to:       mercury-developers at cs.mu.oz.au
Administrative Queries: owner-mercury-developers at cs.mu.oz.au
Subscriptions:          mercury-developers-request at cs.mu.oz.au
--------------------------------------------------------------------------