Changeset 7340 for branches/ia32/level-0

Timestamp:

Oct 1, 2007, 8:25:23 PM (13 years ago)

Author:

rme

Message:

Merge trunk changes r7286:7339

File:

• branches/ia32/level-0/X86/x86-misc.lisp (modified) (1 diff)

branches/ia32/level-0/X86/x86-misc.lisp

@@ -426 +426 @@
   (cmpq (% imm0) (@ (% :rcontext) x8664::tcr.linear))
   (jne @fail)
+  (cmpq ($ '-1) (@ x8664::lock._value (% lock)))
+  (jne @still-owner)
+  (movsd (% fpzero) (@ x8664::lock.writer (% lock)))
+  @still-owner
   (addq ($ '1) (@ x8664::lock._value (% lock)))
-  (jne @home)
-  (movsd (% fpzero) (@ x8664::lock.writer (% lock)))
-  @home
   (single-value-return)
   @fail