From 48cccfece926884e83798372bc852b4448704bb1 Mon Sep 17 00:00:00 2001
From: toy <toy>
Date: Thu, 2 May 2002 21:10:53 +0000
Subject: [PATCH] Get rid of the compiler warnings from gcc about stuff at the
 end of a preprocessor token.

---
 lisp/alloc.h    |  4 ++--
 lisp/gc.c       | 10 +++++-----
 lisp/gc.h       |  6 +++---
 lisp/globals.h  |  8 ++++----
 lisp/validate.h |  4 ++--
 5 files changed, 16 insertions(+), 16 deletions(-)

diff --git a/lisp/alloc.h b/lisp/alloc.h
index e4e698271..693f5e92d 100644
--- a/lisp/alloc.h
+++ b/lisp/alloc.h
@@ -1,4 +1,4 @@
-/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/alloc.h,v 1.1 1992/07/28 20:14:04 wlott Exp $ */
+/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/alloc.h,v 1.2 2002/05/02 21:10:52 toy Exp $ */
 
 #ifndef _ALLOC_H_
 #define _ALLOC_H_
@@ -10,4 +10,4 @@ extern lispobj alloc_number(long n);
 extern lispobj alloc_string(char *str);
 extern lispobj alloc_sap(void *ptr);
 
-#endif _ALLOC_H_
+#endif /* _ALLOC_H_ */
diff --git a/lisp/gc.c b/lisp/gc.c
index d8e355640..09e5671a0 100644
--- a/lisp/gc.c
+++ b/lisp/gc.c
@@ -1,7 +1,7 @@
 /*
  * Stop and Copy GC based on Cheney's algorithm.
  *
- * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/gc.c,v 1.19 2002/01/23 19:04:13 toy Exp $
+ * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/gc.c,v 1.20 2002/05/02 21:10:53 toy Exp $
  * 
  * Written by Christopher Hoover.
  */
@@ -470,14 +470,14 @@ static void scavenge_interrupt_context(struct sigcontext *context)
 			}
 		}
 	}
-#endif reg_LIP
+#endif /* reg_LIP */
 
 	/* Compute the PC's offset from the start of the CODE */
 	/* register. */
 	pc_code_offset = SC_PC(context) - SC_REG(context, reg_CODE);
 #ifdef SC_NPC
 	npc_code_offset = SC_NPC(context) - SC_REG(context, reg_CODE);
-#endif SC_NPC
+#endif /* SC_NPC */
 	       
 	/* Scanvenge all boxed registers in the context. */
 	for (i = 0; i < (sizeof(boxed_registers) / sizeof(int)); i++) {
@@ -496,7 +496,7 @@ static void scavenge_interrupt_context(struct sigcontext *context)
 	/* Fix the LIP */
 	SC_REG(context, reg_LIP) =
 		SC_REG(context, lip_register_pair) + lip_offset;
-#endif reg_LIP
+#endif /* reg_LIP */
 	
 	/* Fix the PC if it was in from space */
 	if (from_space_p(SC_PC(context)))
@@ -504,7 +504,7 @@ static void scavenge_interrupt_context(struct sigcontext *context)
 #ifdef SC_NPC
 	if (from_space_p(SC_NPC(context)))
 		SC_NPC(context) = SC_REG(context, reg_CODE) + npc_code_offset;
-#endif SC_NPC
+#endif /* SC_NPC */
 }
 
 void scavenge_interrupt_contexts(void)
diff --git a/lisp/gc.h b/lisp/gc.h
index a1e83f814..e0d0c72af 100644
--- a/lisp/gc.h
+++ b/lisp/gc.h
@@ -1,7 +1,7 @@
 /*
  * Header file for GC
  *
- * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/gc.h,v 1.1 1992/07/28 20:14:28 wlott Exp $
+ * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/gc.h,v 1.2 2002/05/02 21:10:53 toy Exp $
  */
 
 #ifndef _GC_H_
@@ -17,6 +17,6 @@ extern void collect_garbage(void);
 extern void set_auto_gc_trigger(os_vm_size_t usage);
 extern void clear_auto_gc_trigger(void);
 
-#endif ibmrt
+#endif /* ibmrt */
 
-#endif _GC_H_
+#endif /* _GC_H_ */
diff --git a/lisp/globals.h b/lisp/globals.h
index 5ecf696de..498ccdcab 100644
--- a/lisp/globals.h
+++ b/lisp/globals.h
@@ -1,4 +1,4 @@
-/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/globals.h,v 1.5 2000/10/24 13:32:32 dtc Exp $ */
+/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/globals.h,v 1.6 2002/05/02 21:10:53 toy Exp $ */
 
 #if !defined(_INCLUDE_GLOBALS_H_)
 #define _INCLUDED_GLOBALS_H_
@@ -33,7 +33,7 @@ extern lispobj *current_auto_gc_trigger;
 
 extern void globals_init(void);
 
-#else  LANGUAGE_ASSEMBLY
+#else  /* LANGUAGE_ASSEMBLY */
 
 /* These are needed by ./assem.s */
 
@@ -72,6 +72,6 @@ EXTERN(current_dynamic_space_free_pointer, 4)
 EXTERN(current_flags_register, 4)
 #endif
 
-#endif LANGUAGE_ASSEMBLY
+#endif /* LANGUAGE_ASSEMBLY */
 
-#endif _INCLUDED_GLOBALS_H_
+#endif /* _INCLUDED_GLOBALS_H_ */
diff --git a/lisp/validate.h b/lisp/validate.h
index 60567c825..53fda67f1 100644
--- a/lisp/validate.h
+++ b/lisp/validate.h
@@ -1,11 +1,11 @@
-/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/validate.h,v 1.2 1994/03/27 15:22:16 hallgren Exp $ */
+/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/validate.h,v 1.3 2002/05/02 21:10:53 toy Exp $ */
 
 #if !defined(_INCLUDE_VALIDATE_H_)
 #define _INCLUDE_VALIDATE_H_
 
 #ifdef parisc
 #include "hppa-validate.h"
-#endif parisc
+#endif
 
 #ifdef mips
 #include "mips-validate.h"
-- 
GitLab