Suppress uninitialized variable warnings.

GCC is easily confused by the code we generate.

diff --git a/src/compiler/machines/C/cutl.scm b/src/compiler/machines/C/cutl.scm
index 6a1d6c1824556968e3c7070a6ab1e06cf934a264..be23d5530da872e3eaa21d8c2b94ea77a12a0517 100644 (file)
--- a/src/compiler/machines/C/cutl.scm
+++ b/src/compiler/machines/C/cutl.scm
@@ -410,7 +410,9 @@ USA.
 
 (define (c:decl type var #!optional val)
   (c:line (c:type type) " " (c:var var)
-         (if (default-object? val) "" (string-append " = " (c:expr val)))
+         (if (default-object? val)
+             (string-append " LIARC_UNINITIALIZED(" (c:var var) ")")
+             (string-append " = " (c:expr val)))
          ";"))
 
 (define (c:decl-unused type var #!optional val)

diff --git a/src/microcode/liarc.h b/src/microcode/liarc.h
index e9cd7cd22dec5828a66cf1b998157fbd5e1ba8d3..ad63529f91fd961b3a5c08b4c13ffee74b711ba8 100644 (file)
--- a/src/microcode/liarc.h
+++ b/src/microcode/liarc.h
@@ -64,6 +64,12 @@ union machine_word_u
 typedef union machine_word_u machine_word;
 typedef unsigned long entry_count_t;
 
+#ifdef __GNUC__
+#define LIARC_UNINITIALIZED(name) = name
+#else
+#define LIARC_UNINITIALIZED(name)
+#endif
+
 #define ADDRESS_UNITS_PER_OBJECT SIZEOF_SCHEME_OBJECT
 #define ADDRESS_UNITS_PER_FLOAT (sizeof (double))