1 files changed, 23 insertions, 0 deletions
diff --git a/lang/guile1/files/patch-libguile_gc.c b/lang/guile1/files/patch-libguile_gc.c
new file mode 100644
index 000000000000..5e8d8b372a3d
--- /dev/null
+++ b/lang/guile1/files/patch-libguile_gc.c
@@ -0,0 +1,23 @@
+--- 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