[m-rev.] diff/for review: allow bootstrap in decldebug grades

Julien Fischer juliensf at cs.mu.OZ.AU
Wed May 18 17:53:36 AEST 2005


On Wed, 18 May 2005, Zoltan Somogyi wrote:

> +
> +:- type chunk_inner_res0
> +	--->	ok
> +	;	error(io__error)
> +	;	more.
> +
> +:- type chunk_inner_res(T)
> +	--->	ok(T)
> +	;	error(T, io__error)
> +	;	more(T).
> +
> +:- pred should_reduce_stack_usage(bool::out) is det.
> +
> +% For non-C backends.
> +should_reduce_stack_usage(yes).
> +
> +:- pragma foreign_proc("C",
> +	should_reduce_stack_usage(ShouldReduce::out),
> +	[will_not_call_mercury, promise_pure],
> +"
> +#ifdef	MR_EXEC_TRACE
> +	ShouldReduce = MR_TRUE;
> +#else
> +	ShouldReduce = MR_FALSE;
> +#endif
> +").
> +
> +:- func chunk_size = int.
> +
> +chunk_size = 1000.
>
There should be a comment somewhere describing why this
is necessary, otherwise it's fine.

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