[gcc r15-2867] gm2: add missing debug output guard

[Gerald Pfeifer via Gcc-cvs]

https://gcc.gnu.org/g:16ce78156d822f3d26b182785111d8f77fa7a392

commit r15-2867-g16ce78156d822f3d26b182785111d8f77fa7a392
Author: Wilken Gottwalt <wilken.gottw...@posteo.net>
Date:   Sun Jul 21 07:29:24 2024 +0000

    gm2: add missing debug output guard
    
    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>

Diff:
---
 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 9620ed2ba195..d32046925400 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) ;