From 16ce78156d822f3d26b182785111d8f77fa7a392 Mon Sep 17 00:00:00 2001 From: Wilken Gottwalt Date: Sun, 21 Jul 2024 07:29:24 +0000 Subject: [PATCH] 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 --- 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) ; -- 2.47.2