Use __sparc__ rather than sparc. (Bug#507.)

diff --git a/src/ChangeLog b/src/ChangeLog
index 7766bc780328c0b3a1a643d0ef2d56c595759444..e8700d4e04964a22dd378ab883c435f93f42fb7f 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2008-07-08  Glenn Morris  <rgm@gnu.org>
+
+       * m/sparc.h: Define __sparc__ rather than sparc.  (Bug#507.)
+       * alloc.c, ecrt0.c: Use __sparc__ rather than sparc.
+
 2008-07-07  Chong Yidong  <cyd@stupidchicken.com>
 
        * frame.c (Qinhibit_face_set_after_frame_default): Var deleted.

diff --git a/src/alloc.c b/src/alloc.c
index 797b385fbd25edabe591524489485655ebd4c00d..b942e7a6e016315b5c4dab75adf2653431ecc3be 100644 (file)
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -4487,7 +4487,7 @@ mark_stack ()
   /* Fixme: Code in the Boehm GC suggests flushing (with `flushrs') is
      needed on ia64 too.  See mach_dep.c, where it also says inline
      assembler doesn't work with relevant proprietary compilers.  */
-#ifdef sparc
+#ifdef __sparc__
   asm ("ta 3");
 #endif
 

diff --git a/src/ecrt0.c b/src/ecrt0.c
index 4c4f297c9ca79847234848264f325c006f2070cd..7ef066ef22f3f3fc8bc79c5f9434d8b1bb6a5373 100644 (file)
--- a/src/ecrt0.c
+++ b/src/ecrt0.c
@@ -200,7 +200,7 @@ start1 (ignore, argc, xargv)
 
 #endif /* not CRT0_DUMMIES */
 
-#ifdef sparc
+#ifdef __sparc__
 asm (".global __start");
 asm (".text");
 asm ("__start:");
@@ -218,7 +218,7 @@ asm ("      sub     %sp, 24, %sp");
 asm (" call    __exit");
 asm (" nop");
 
-#endif /* sparc */
+#endif /* __sparc__ */
 
 #if __FreeBSD__ == 2
 char *__progname;

diff --git a/src/m/sparc.h b/src/m/sparc.h
index 35103e560dc808dace0a77bb357f4bf9a2ecdff9..7113b8b1fce84c20cf514b56d216df95281ae697 100644 (file)
--- a/src/m/sparc.h
+++ b/src/m/sparc.h
@@ -36,10 +36,10 @@ NOTE-END  */
 
 #define NO_ARG_ARRAY
 
-/* Say this machine is a sparc */
+/* Say this machine is a sparc.  Probably already defined.  */
 
-#ifndef sparc
-#define sparc
+#ifndef __sparc__
+#define __sparc__
 #endif
 
 /* Use type int rather than a union, to represent Lisp_Object */