[packages/guile1: 104/172] - ugh. replaced uuuuugly hacks by another one (private symbol\!)

[jajcus]

commit 6e483bb9935efc3611af6cc67134e90eaca9420f
Author: Jakub Bogusz <qboosh at pld-linux.org>
Date:   Mon May 31 22:23:08 2004 +0000

    - ugh. replaced uuuuugly hacks by another one (private symbol\!)
    
    Changed files:
        guile-stack-end.patch -> 1.1

 guile-stack-end.patch | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)
---
diff --git a/guile-stack-end.patch b/guile-stack-end.patch
new file mode 100644
index 0000000..f4e6c1a
--- /dev/null
+++ b/guile-stack-end.patch
@@ -0,0 +1,26 @@
+--- guile-1.6.4/libguile/gc_os_dep.c.orig	2004-05-31 23:22:31.000000000 +0200
++++ guile-1.6.4/libguile/gc_os_dep.c	2004-06-01 00:18:13.331037133 +0200
+@@ -1158,7 +1158,11 @@
+ #       define CPP_WORDSZ 64
+ 	/* This should really be done through /proc, but that	*/
+ 	/* requires we run on an IA64 kernel.			*/
++#ifdef __x86_64__
++#	define STACKBOTTOM ((ptr_t) 0x7fc0000000l)
++#else /* really IA64 */
+ #       define STACKBOTTOM ((ptr_t) 0xa000000000000000l)
++#endif
+ 	/* We also need the base address of the register stack	*/
+ 	/* backing store.  There is probably a better way to	*/
+ 	/* get that, too ...					*/
+@@ -1865,8 +1869,11 @@
+ 
+ #endif /* LINUX_STACKBOTTOM */
+ 
++extern void *__libc_stack_end;
++
+ void *scm_get_stack_base()
+ {
++    return __libc_stack_end;
+     word dummy;
+     void *result = &dummy;  /* initialize to silence compiler */
+ 
================================================================

---- gitweb:

http://git.pld-linux.org/gitweb.cgi/packages/guile1.git/commitdiff/ebe6c26bec9cbe3813afc2be58f989889f8e944a