From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Sun, 3 Feb 2013 01:39:15 +0000 (-0700)
Subject: microcode: Quiet some unused-but-set-variable warnings.
X-Git-Tag: release-9.2.0~200
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b1a10bbf922d9d95c3e289237a11015cb54ba805;p=mit-scheme.git

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

diff --git a/src/microcode/syntax.c b/src/microcode/syntax.c
index e41c06d01..39ae7aa50 100644
--- 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
 
 /* 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 ea3f74d20..fee47931e 100644
--- 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