Changeset 5006

Timestamp:

Aug 22, 2006, 1:02:04 AM (18 years ago)

Author:

Gary Byers

Message:

atomic_and(), pseudo_sigreturn() for DarwinX8664.

File:

• trunk/ccl/lisp-kernel/x86-asmutils64.s (modified) (2 diffs)

trunk/ccl/lisp-kernel/x86-asmutils64.s

@@ -102 +102 @@
         
         
+/* Logand the value in *rdi with the value in rsi (presumably a bitmask with exactly 1 */
+/* bit set.)  Return the value now in *rdi (for some value of "now" */
+
+_exportfn(C(atomic_and))
+0:      __(movq (%rdi), %rax)
+        __(movq %rax,%rcx)
+        __(and %rsi,%rcx)
+        __(lock)
+        __(cmpxchg %rcx,(%rdi))
+        __(jnz 0b)
+        __(movq %rcx,%rax)
+        __(ret)
+_endfn
 
 
+        __ifdef([DARWIN])
+_exportfn(C(pseudo_sigreturn))
+        __(ud2b)
+        __(jmp C(pseudo_sigreturn))
+_endfn
+        __endif                        
 
 /* int cpuid (int code, int *pebx, int *pecx, int *pedx)  */
@@ -146 +165 @@
         __ifdef([DARWIN_GS_HACK])
 /* Check (in and ugly, non-portale way) to see if %gs is addressing
-   threads data.  If it was, return 0; otherwise, assume that it's
+   pthreads data.  If it was, return 0; otherwise, assume that it's
    addressing a lisp tcr and set %gs to point to the tcr's tcr.osid,
    then return 1. */