projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fix QUERY-FILE-SYSTEM for Windows UNC and device file names
[sbcl.git]
/
src
/
code
/
late-extensions.lisp
diff --git
a/src/code/late-extensions.lisp
b/src/code/late-extensions.lisp
index
947d450
..
5d2d598
100644
(file)
--- a/
src/code/late-extensions.lisp
+++ b/
src/code/late-extensions.lisp
@@
-177,7
+177,7
@@
EXPERIMENTAL: Interface subject to change."
(aref
(when (cddr args)
(invalid-place))
(aref
(when (cddr args)
(invalid-place))
- #!+(or x86-64)
+ #!+(or x86 x86-64 ppc)
(with-unique-names (array)
`(let ((,array (the (simple-array sb!ext:word (*)) ,(car args))))
(%array-atomic-incf/word
(with-unique-names (array)
`(let ((,array (the (simple-array sb!ext:word (*)) ,(car args))))
(%array-atomic-incf/word
@@
-189,7
+189,7
@@
EXPERIMENTAL: Interface subject to change."
`(the sb!vm:signed-word ,diff))
(atomic-decf
`(- (the sb!vm:signed-word ,diff))))))))
`(the sb!vm:signed-word ,diff))
(atomic-decf
`(- (the sb!vm:signed-word ,diff))))))))
- #!-(or x86-64)
+ #!-(or x86 x86-64 ppc)
(with-unique-names (array index old-value)
(let ((incremented-value
(ecase name
(with-unique-names (array index old-value)
(let ((incremented-value
(ecase name
@@
-289,7
+289,7
@@
EXPERIMENTAL: Interface subject to change."
(expand-atomic-frob 'atomic-decf place diff))
;; Interpreter stubs for ATOMIC-INCF.
(expand-atomic-frob 'atomic-decf place diff))
;; Interpreter stubs for ATOMIC-INCF.
-#!+(or x86-64)
+#!+(or x86 x86-64 ppc)
(defun %array-atomic-incf/word (array index diff)
(declare (type (simple-array word (*)) array)
(fixnum index)
(defun %array-atomic-incf/word (array index diff)
(declare (type (simple-array word (*)) array)
(fixnum index)