2025-pretest

1 files changed, 18 insertions, 0 deletions

diff --git a/patches/patch-source-clisp-clispver_lispbibl_d b/patches/patch-source-clisp-clispver_lispbibl_d
new file mode 100644
index 0000000..2eec681
--- /dev/null
+++ b/patches/patch-source-clisp-clispver_lispbibl_d
@@ -0,0 +1,18 @@
+--- src/lispbibl.d.orig 2013-06-17 14:15:17.000000000 +0000
++++ src/lispbibl.d
+@@ -9090,6 +9090,15 @@ All other long words on the LISP-Stack a
+   #define setSP(adresse)  \
+     ({ __asm__ __volatile__ ("movel %0,"REGISTER_PREFIX"sp" : : "g" ((aint)(adresse)) : "sp" ); })
+   #define FAST_SP
++#elif defined(__clang__) && defined(__x86_64__)
++  /* Access to a register-"variable" %rsp */
++  #define SP()  \
++    ({var aint __SP;                                           \
++      __asm__ __volatile__ ("movq %%rsp,%0" : "=g" (__SP) : ); \
++      __SP;                                                    \
++     })
++  #define setSP(adresse)  \
++      ({ __asm__ __volatile__ ("movq %0,%%rsp" : : "g" ((aint)(adresse)) : "sp" ); })
+ #elif (defined(GNU) || defined(INTEL)) && defined(I80386) && !defined(NO_ASM)
+   /* Access to a register-"variable" %esp */
+   #define SP()  \