X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fx86-arch.h;h=7fe1aa053f8f9d6e0d01c2cae0c6333fd8159215;hb=3d11412f3458048039cd8fece1db2aa6511118dc;hp=6c7802af1ba8b05fb85e988b6cc59876f979e812;hpb=79cc569a97e444389350ea3f5b1017374fe16bec;p=sbcl.git diff --git a/src/runtime/x86-arch.h b/src/runtime/x86-arch.h index 6c7802a..7fe1aa0 100644 --- a/src/runtime/x86-arch.h +++ b/src/runtime/x86-arch.h @@ -16,7 +16,7 @@ * here? (The answer wasn't obvious to me when merging the * architecture-abstracting patches for CSR's SPARC port. -- WHN 2002-02-15) */ -extern never_returns lose(char *fmt, ...); +#include "interr.h" static inline void get_spinlock(volatile lispobj *word,long value) @@ -43,4 +43,20 @@ release_spinlock(volatile lispobj *word) *word=0; } +#include + +static inline lispobj +swap_lispobjs(volatile lispobj *dest, lispobj value) +{ + lispobj old_value; + asm ("lock xchg %0,(%1)" + : "=r" (old_value) + : "r" (dest), "0" (value) + : "memory"); + return old_value; +} + +extern void fast_bzero_detect(void *, size_t); +extern void (*fast_bzero_pointer)(void *, size_t); + #endif /* _X86_ARCH_H */