*** empty log message ***

[bpt/guile.git] / libguile / gc_os_dep.c

diff --git a/libguile/gc_os_dep.c b/libguile/gc_os_dep.c
index 51d27b1..c6e61cb 100644 (file)
--- a/libguile/gc_os_dep.c
+++ b/libguile/gc_os_dep.c
@@ -3,7 +3,7 @@
  * Copyright (c) 1991-1995 by Xerox Corporation.  All rights reserved.
  * Copyright (c) 1996-1999 by Silicon Graphics.  All rights reserved.
  * Copyright (c) 1999 by Hewlett-Packard Company.  All rights reserved.
- * Copyright (c) 2000, 2001, 2002 Free Software Foundation
+ * Copyright (c) 2000, 2001, 2002, 2003 Free Software Foundation
  *
  * THIS MATERIAL IS PROVIDED AS IS, WITH ABSOLUTELY NO WARRANTY EXPRESSED
  * OR IMPLIED.  ANY USE IS AT YOUR OWN RISK.
@@ -238,7 +238,7 @@ typedef int GC_bool;
 #    define SPARC
 #    define mach_type_known
 # endif
-# if defined(LINUX) && defined(arm)
+# if defined(LINUX) && (defined(arm) || defined (__arm__))
 #    define ARM32
 #    define mach_type_known
 # endif
@@ -369,11 +369,20 @@ typedef int GC_bool;
 #   endif
 #   define mach_type_known
 # endif
+# if defined(__s390__) && defined(LINUX)
+#    define S370
+#    define mach_type_known
+# endif
 # if defined(__GNU__)
 #    define I386
 #    define GNU
 #    define mach_type_known
 # endif
+# if defined(__SCO_VERSION__)
+#    define I386
+#    define SYSV
+#    define mach_type_known
+# endif
 
 /* Feel free to add more clauses here */
 
@@ -385,8 +394,14 @@ typedef int GC_bool;
 /* SYSV on an M68K actually means A/UX.                                        */
 /* The distinction in these cases is usually the stack starting address */
 # ifndef mach_type_known
-       --> unknown machine type
-# endif
+
+void *
+scm_get_stack_base ()
+{
+  return NULL;
+}
+
+# else
                    /* Mapping is: M68K       ==> Motorola 680X0        */
                    /*             (SUNOS4,HP,NEXT, and SYSV (A/UX),    */
                    /*             MACOS and AMIGA variants)            */
@@ -1914,4 +1929,5 @@ void *scm_get_stack_base()
 # endif /* ! OS2 */
 # endif /* ! MSWIN32 */
 
+#endif /* mach_type_known */
 #endif /* ! HAVE_LIBC_STACK_END */