# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1007001119 0
# Node ID e37febff55326157b694189b8d04065e2c1661b5
# Parent  1f7eca1d2ba1c38f43515fdb8ac6cb378af727ee
(GCPRO1, GCPRO2, GCPRO3, GCPRO4, GCPRO5):
Add dummy uses of gcproN variables.

diff -r 1f7eca1d2ba1 -r e37febff5532 src/lisp.h
--- a/src/lisp.h	Thu Nov 29 02:28:17 2001 +0000
+++ b/src/lisp.h	Thu Nov 29 02:31:59 2001 +0000
@@ -1814,11 +1814,16 @@
 
 #if GC_MARK_STACK == GC_MAKE_GCPROS_NOOPS
 
-#define GCPRO1(varname) ((void) 0)
-#define GCPRO2(varname1, varname2)((void) 0) 
-#define GCPRO3(varname1, varname2, varname3) ((void) 0) 
-#define GCPRO4(varname1, varname2, varname3, varname4) ((void) 0)
-#define GCPRO5(varname1, varname2, varname3, varname4, varname5) ((void) 0)
+/* Do something silly with gcproN vars just so gcc shuts up.  */
+
+#define GCPRO1(varname) ((void) gcpro1)
+#define GCPRO2(varname1, varname2)(((void) gcpro2, (void) gcpro1)) 
+#define GCPRO3(varname1, varname2, varname3) \
+  (((void) gcpro3, (void) gcpro2, (void) gcpro1))
+#define GCPRO4(varname1, varname2, varname3, varname4) \
+  (((void) gcpro4, (void) gcpro3, (void) gcpro2, (void) gcpro1))
+#define GCPRO5(varname1, varname2, varname3, varname4, varname5) \
+  (((void) gcpro5, (void) gcpro4, (void) gcpro3, (void) gcpro2, (void) gcpro1))
 #define UNGCPRO ((void) 0)
 
 #else /* GC_MARK_STACK != GC_MAKE_GCPROS_NOOPS */