[PATCH] gm2: add missing debug output guard

[Gaius Mulley]

Wilken Gottwalt <wilken.gottwalt@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.gottwalt@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