[m-rev.] diff: fix C compilation of rtti_implementation.m

[Zoltan Somogyi]

library/rtti_implementation.m:
	Fix a bug that prevented the C compiler from generating code
	for the predicate in which it occurs. The only reason why this code
	could be compiled is that the predicate that contains the error
	is eliminated at the usual optimization levels.

Zoltan.

diff -u -b -r1.4 rtti_implementation.m
--- library/rtti_implementation.m	2001/08/22 12:29:01	1.4
+++ library/rtti_implementation.m	2001/09/16 00:55:18
@@ -638,7 +638,7 @@
 :- pragma foreign_proc("C",
 	type_layout(TypeCtorInfo::in) = (TypeLayout::out), [], "
 	MR_TypeCtorInfo tci = (MR_TypeCtorInfo) TypeCtorInfo;
-	TypeLayout = tci->type_layout;
+	TypeLayout = (MR_Word) tci->type_layout.layout_init;
 ").
 
 %-----------------------------------------------------------------------------%
--------------------------------------------------------------------------
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
--------------------------------------------------------------------------