blob: 2eec68186d7dfe7e6833b9597689c653df766126 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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() \
|
