Wilken Gottwalt <wilken.gottw...@posteo.net> writes:
> The Close() procedure in MemStream is missing a guard to prevent it from
> printing in non-debug mode.
>
> gcc/gm2:
> * gm2-libs-iso/MemStream.mod: Guard debug output.
>
> Signed-off-by: Wilken Gottwalt <wilken.gottw...@posteo.net>
> ---
> gcc/m2/gm2-libs-iso/MemStream.mod | 5 ++++-
> 1 file changed, 4 insertions(+), 1 deletion(-)
>
> diff --git a/gcc/m2/gm2-libs-iso/MemStream.mod
> b/gcc/m2/gm2-libs-iso/MemStream.mod
> index 9620ed2ba19..d3204692540 100644
> --- a/gcc/m2/gm2-libs-iso/MemStream.mod
> +++ b/gcc/m2/gm2-libs-iso/MemStream.mod
> @@ -694,7 +694,10 @@ END handlefree ;
>
> PROCEDURE Close (VAR cid: ChanId) ;
> BEGIN
> - printf ("Close called\n");
> + IF Debugging
> + THEN
> + printf ("Close called\n")
> + END ;
> IF IsMem(cid)
> THEN
> UnMakeChan(did, cid) ;
many thanks!
regards,
Gaius
