From 892914a2770808252b0c15d099f1dd537aff3645 Mon Sep 17 00:00:00 2001 From: Robert Alessi Date: Mon, 10 Feb 2025 10:50:17 +0100 Subject: 2025-pretest --- patches/patch-source-clisp-clispver_lispbibl_d | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) create mode 100644 patches/patch-source-clisp-clispver_lispbibl_d (limited to 'patches/patch-source-clisp-clispver_lispbibl_d') 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() \ -- cgit v1.2.3