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

Zoltan Somogyi zs at cs.mu.OZ.AU
Wed Sep 19 10:50:29 AEST 2001


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



More information about the reviews mailing list