[m-rev.] diff: avoid inlining construct/3

[Julien Fischer]

Estimated hours taken: 0.1
Branches: main, release

library/construct.m:
	Do not inline calls to construct.construct/3 since inlining it may
	result in duplicate labels in the C code.

Julien.

Index: construct.m
===================================================================
RCS file: /home/mercury1/repository/mercury/library/construct.m,v
retrieving revision 1.23
diff -u -r1.23 construct.m
--- construct.m	19 Nov 2005 07:43:49 -0000	1.23
+++ construct.m	20 Nov 2005 05:56:22 -0000
@@ -359,6 +359,7 @@
     SUCCESS_INDICATOR = success;
 }").

+:- pragma no_inline(construct/3).
 :- pragma foreign_proc("C",
     construct(TypeDesc::in, FunctorNumber::in, ArgList::in) = (Term::out),
     [will_not_call_mercury, thread_safe, promise_pure],

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