Add (unused) attribute to Rdl.

This eliminates LAIR/C build log noise to the tune of 70,000 lines!

diff --git a/src/compiler/machines/C/cout.scm b/src/compiler/machines/C/cout.scm
index 2f9d012d5b1a5e26cf6012e9072d26e752de76a7..d8acaff1ac22ddb2c4e071d9fbcdd83d686b1c21 100644 (file)
--- a/src/compiler/machines/C/cout.scm
+++ b/src/compiler/machines/C/cout.scm
@@ -248,7 +248,7 @@ USA.
                 (c:decl 'sobj* 'current_block)
                 (c:scall "DECLARE_VARIABLES")
                 ;; dlink is initialized right before perform_dispatch.
-                (c:decl 'sobj* (c:dlink-reg))
+                (c:decl-unused 'sobj* (c:dlink-reg))
                 (register-declarations)
                 extra-decls
                 (c:line)

diff --git a/src/compiler/machines/C/cutl.scm b/src/compiler/machines/C/cutl.scm
index 5807957c2493ba60963e1909eda7bc29cd39ac0f..5c1c43923cdebfbd82f9779e0eee454fff18ad19 100644 (file)
--- a/src/compiler/machines/C/cutl.scm
+++ b/src/compiler/machines/C/cutl.scm
@@ -398,6 +398,11 @@ USA.
          (if (default-object? val) "" (string-append " = " (c:expr val)))
          ";"))
 
+(define (c:decl-unused type var #!optional val)
+  (c:line (c:type type) " " (c:var var)
+         (if (default-object? val) "" (string-append " = " (c:expr val)))
+         " ATTRIBUTE((unused));"))
+
 (define (c:var item)
   (cond ((string? item) item)
        ((symbol? item) (symbol-name item))

diff --git a/src/microcode/liarc.h b/src/microcode/liarc.h
index ae5b75fee07b863ae13276c06922b2b084555f74..554a38beebd3045cf6c7d884a95d2c7344ee4938 100644 (file)
--- a/src/microcode/liarc.h
+++ b/src/microcode/liarc.h
@@ -49,12 +49,7 @@ USA.
 
 extern SCHEME_OBJECT * sp_register;
 \f
-#ifdef __GNUC__
-/* Add attributes to avoid warnings from -Wall for unreferenced labels */
-#  define DEFLABEL(name) name : __attribute__((unused))
-#else
-#  define DEFLABEL(name) name :
-#endif
+#define DEFLABEL(name) name : ATTRIBUTE((unused))
 
 union machine_word_u
 {