From 71e01ae55dd25ab613c6c71831b4bde5b4d3f715 Mon Sep 17 00:00:00 2001
From: Andrew Johnson <anj@aps.anl.gov>
Date: Wed, 28 Feb 2007 16:05:18 +0000
Subject: [PATCH] Warning suppression bug fix from Benjamin Franksen.

---
 src/libCom/macLib/macCore.c | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/src/libCom/macLib/macCore.c b/src/libCom/macLib/macCore.c
index c30d697a8..6464b734b 100644
--- a/src/libCom/macLib/macCore.c
+++ b/src/libCom/macLib/macCore.c
@@ -765,10 +765,12 @@ static void trans( MAC_HANDLE *handle, MAC_ENTRY *entry, long level,
 
             /* if reference is recursive, flag an error and insert $(name) */
             if ( entry2->visited ) {
-                entry->error = TRUE;
-                errlogPrintf( "macLib: %s %s is recursive (expanding %s %s)\n",
-                              entry->type, entry->name,
-                              entry2->type, entry2->name );
+                if ( (handle->flags & FLAG_SUPPRESS_WARNINGS) == 0 ) {
+                    entry->error = TRUE;
+                    errlogPrintf( "macLib: %s %s is recursive (expanding %s %s)\n",
+                                  entry->type, entry->name,
+                                  entry2->type, entry2->name );
+                }
                 if ( v < valend ) *v++ = '$';
                 if ( v < valend ) *v++ = '(';
                 cpy2val( name2, &v, valend );