mirror of
https://git.FreeBSD.org/ports.git
synced 2024-10-22 20:41:26 +00:00
parent
cfa653ab61
commit
9a0d38aa23
Notes:
svn2git
2021-03-31 03:12:20 +00:00
svn path=/head/; revision=244661
23
lang/guile/files/patch-libguile_gc.c
Normal file
23
lang/guile/files/patch-libguile_gc.c
Normal file
@ -0,0 +1,23 @@
|
||||
--- libguile/gc.c.orig 2008-12-08 09:42:54.000000000 -0800
|
||||
+++ libguile/gc.c 2009-08-20 22:55:11.000000000 -0700
|
||||
@@ -1060,6 +1060,20 @@
|
||||
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
|
Loading…
Reference in New Issue
Block a user