diff options
| author | Wilken Gottwalt <wilken.gottwalt@posteo.net> | 2024-07-21 07:29:24 +0000 |
|---|---|---|
| committer | Gerald Pfeifer <gerald@pfeifer.com> | 2024-08-10 13:34:26 +0200 |
| commit | 16ce78156d822f3d26b182785111d8f77fa7a392 (patch) | |
| tree | 603f664d8d157d2c8302be01afeab66a8a01328f /gcc | |
| parent | 9d5c500c4fac9b65c95176d98203ec83b207d39d (diff) | |
| download | gcc-16ce78156d822f3d26b182785111d8f77fa7a392.zip gcc-16ce78156d822f3d26b182785111d8f77fa7a392.tar.gz gcc-16ce78156d822f3d26b182785111d8f77fa7a392.tar.bz2 | |
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.gottwalt@posteo.net>
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/m2/gm2-libs-iso/MemStream.mod | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/gcc/m2/gm2-libs-iso/MemStream.mod b/gcc/m2/gm2-libs-iso/MemStream.mod index 9620ed2..d320469 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) ; |