microcode: Quiet some unused-but-set-variable warnings.

diff --git a/src/microcode/syntax.c b/src/microcode/syntax.c
index e41c06d01fca2c34bb9ad0df91b894788b1a076d..39ae7aa50b2dfaa9e1d62d4aeb8889f4740edd12 100644 (file)
--- a/src/microcode/syntax.c
+++ b/src/microcode/syntax.c
@@ -244,13 +244,12 @@ DEFINE_PRIMITIVE ("CHAR->SYNTAX-CODE", Prim_char_to_syntax_code, 2, 2, 0)
 
 #define SCAN_LIST_INITIALIZATION(initialization)                       \
   long depth, min_depth;                                               \
-  bool sexp_flag, ignore_comments, math_exit;                          \
+  bool sexp_flag, math_exit;                                           \
   int c;                                                               \
   initialization (7);                                                  \
   depth = (arg_integer (5));                                           \
   min_depth = ((depth >= 0) ? 0 : depth);                              \
   sexp_flag = (BOOLEAN_ARG (6));                                       \
-  ignore_comments = (BOOLEAN_ARG (7));                                 \
   math_exit = false
 \f
 /* Parse Scanning */
@@ -586,6 +585,7 @@ DEFINE_PRIMITIVE ("SCAN-LIST-FORWARD", Prim_scan_list_forward, 7, 7, 0)
 DEFINE_PRIMITIVE ("SCAN-LIST-BACKWARD", Prim_scan_list_backward, 7, 7, 0)
 {
   bool quoted;
+  bool ignore_comments = (BOOLEAN_ARG (7));
   SCAN_LIST_INITIALIZATION (NORMAL_INITIALIZATION_BACKWARD);
 
   while (true)

diff --git a/src/microcode/uxtrap.h b/src/microcode/uxtrap.h
index ea3f74d20f636415216d90c4a278abc2dd3d6dfe..fee47931e01d9f1035431beb492d5e0eca2336f0 100644 (file)
--- a/src/microcode/uxtrap.h
+++ b/src/microcode/uxtrap.h
@@ -608,7 +608,7 @@ typedef struct
    minus 1 long.  */
 
 #      define DECLARE_SIGCONTEXT(scp, arg)                             \
-  SIGCONTEXT_T * scp;                                                  \
+  SIGCONTEXT_T * scp ATTRIBUTE((unused));                              \
   scp = ((SIGCONTEXT_T *) (((unsigned long *) (& (arg))) - 1))
 
 #    endif /* __IA32__ */
@@ -760,7 +760,7 @@ typedef struct
 
 #ifndef DECLARE_SIGCONTEXT
 #  define DECLARE_SIGCONTEXT(scp, arg)                                 \
-     SIGCONTEXT_T * scp;                                               \
+     SIGCONTEXT_T * scp ATTRIBUTE ((unused));                          \
      scp = ((SIGCONTEXT_T *) (arg))
 #endif