]> git.ipfire.org Git - thirdparty/gcc.git/commitdiff
gm2: add missing debug output guard
authorWilken Gottwalt <wilken.gottwalt@posteo.net>
Sun, 21 Jul 2024 07:29:24 +0000 (07:29 +0000)
committerGerald Pfeifer <gerald@pfeifer.com>
Sat, 10 Aug 2024 11:34:26 +0000 (13:34 +0200)
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

index 9620ed2ba195a08310b42475f6086e98aeaf135c..d3204692540077471d688771f923c73816108b6a 100644 (file)
@@ -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) ;