unofficial mirror of bug-guile@gnu.org 
 help / color / mirror / Atom feed
* Adding Support for Linux/390
@ 2003-05-29 21:07 Post, Mark K
  2003-06-01 22:28 ` Marius Vollmer
  0 siblings, 1 reply; 2+ messages in thread
From: Post, Mark K @ 2003-05-29 21:07 UTC (permalink / raw)


[-- Attachment #1: Type: text/plain, Size: 472 bytes --]

When I went to upgrade to Guile 1.6.3, I discovered that it wouldn't compile
due to the addition of libguile/gc_os_dep.c.  I'm attaching a patch to add
support for Linux/390.  Only about 5 of the lines are mine.  I stole the
rest from other, previously existing, Linux entries.  Since this is part of
the garbage collector, I wasn't sure if this should go to Guile or them, but
I figured I would try you first.  Let me know if you need anything else.

Thanks,

Mark Post


[-- Attachment #2: gc_os_dep.c.diff --]
[-- Type: application/octet-stream, Size: 976 bytes --]

--- guile-1.6.3/libguile/gc_os_dep.c.orig	2002-12-07 17:41:31.000000000 -0500
+++ guile-1.6.3/libguile/gc_os_dep.c	2003-05-29 16:36:37.000000000 -0400
@@ -215,6 +215,10 @@
 #    define ARM32
 #    define mach_type_known
 # endif
+# if defined(LINUX) && (defined(s390) || defined(__s390__))
+#    define S390
+#    define mach_type_known
+# endif
 # if defined(__alpha) || defined(__alpha__)
 #   define ALPHA
 #   if !defined(LINUX)
@@ -1178,6 +1182,22 @@
 #	define HEURISTIC2
 # endif
 
+# ifdef S390
+#   define MACH_TYPE "S390"
+#   define ALIGNMENT 4
+#   ifdef LINUX
+#     define OS_TYPE "LINUX"
+#     define HEURISTIC1
+#     define DYNAMIC_LOADING
+#     undef STACK_GRAN
+#     define STACK_GRAN 0x10000000
+        /* Stack usually starts at 0x80000000 */
+#     define LINUX_DATA_START
+      extern int _end;
+#     define DATAEND (&_end)
+#   endif
+# endif
+
 # if defined(PJ)
 #   define ALIGNMENT 4
     extern int _etext;

[-- Attachment #3: Type: text/plain, Size: 136 bytes --]

_______________________________________________
Bug-guile mailing list
Bug-guile@gnu.org
http://mail.gnu.org/mailman/listinfo/bug-guile

^ permalink raw reply	[flat|nested] 2+ messages in thread

* Re: Adding Support for Linux/390
  2003-05-29 21:07 Adding Support for Linux/390 Post, Mark K
@ 2003-06-01 22:28 ` Marius Vollmer
  0 siblings, 0 replies; 2+ messages in thread
From: Marius Vollmer @ 2003-06-01 22:28 UTC (permalink / raw)
  Cc: 'bug-guile@gnu.org'

"Post, Mark K" <mark.post@eds.com> writes:

> When I went to upgrade to Guile 1.6.3, I discovered that it wouldn't compile
> due to the addition of libguile/gc_os_dep.c.  I'm attaching a patch to add
> support for Linux/390.

Hmm, I think we should just copy the gc_os_dep.c from CVS HEAD over to
the 1.6 branch.  That version has code that covers all platforms that
use glibc, independent of the hardware.

I have done so.  It should appear in the snapshot from tomorrow (or
the day after tomorrow).

-- 
GPG: D5D4E405 - 2F9B BCCC 8527 692A 04E3  331E FAF8 226A D5D4 E405


_______________________________________________
Bug-guile mailing list
Bug-guile@gnu.org
http://mail.gnu.org/mailman/listinfo/bug-guile


^ permalink raw reply	[flat|nested] 2+ messages in thread

end of thread, other threads:[~2003-06-01 22:28 UTC | newest]

Thread overview: 2+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2003-05-29 21:07 Adding Support for Linux/390 Post, Mark K
2003-06-01 22:28 ` Marius Vollmer

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).