mirror of
https://git.freebsd.org/ports.git
synced 2025-04-29 10:06:40 -04:00
e2f2a0f2c1
GUILE, GNU's Ubiquitous Intelligent Language for Extension, is a library that implements the Scheme language plus various convenient facilities. It's designed so that you can link it into an application or utility to make it extensible. Our plan is to link this library into all GNU programs that call for extensibility. WWW: http://www.gnu.org/software/guile/ - Repo-Copied from lang/guile in preperation of 3.X.X
23 lines
579 B
C
23 lines
579 B
C
--- libguile/gc.c.orig 2010-12-13 17:24:40 UTC
|
|
+++ libguile/gc.c
|
|
@@ -1060,6 +1060,20 @@ scm_ia64_ar_bsp (const void *opaque)
|
|
return (void *) ctx->uc_mcontext.sc_ar_bsp;
|
|
}
|
|
# endif /* linux */
|
|
+# ifdef __FreeBSD__
|
|
+# include <ucontext.h>
|
|
+void *
|
|
+scm_ia64_register_backing_store_base (void)
|
|
+{
|
|
+ return (void *)0x8000000000000000;
|
|
+}
|
|
+void *
|
|
+scm_ia64_ar_bsp (const void *opaque)
|
|
+{
|
|
+ const ucontext_t *ctx = opaque;
|
|
+ return (void *)(ctx->uc_mcontext.mc_special.bspstore + ctx->uc_mcontext.mc_special.ndirty);
|
|
+}
|
|
+# endif /* __FreeBSD__ */
|
|
#endif /* __ia64__ */
|
|
|
|
void
|