projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.42.24: print symbols with fully qualified names in critical places
[sbcl.git]
/
src
/
code
/
late-extensions.lisp
diff --git
a/src/code/late-extensions.lisp
b/src/code/late-extensions.lisp
index
3c992d0
..
0062618
100644
(file)
--- a/
src/code/late-extensions.lisp
+++ b/
src/code/late-extensions.lisp
@@
-189,7
+189,7
@@
EXPERIMENTAL: Interface subject to change."
(when (dsd-read-only slotd)
(error "Cannot use ~S with structure accessor for a read-only slot: ~S"
name place))
(when (dsd-read-only slotd)
(error "Cannot use ~S with structure accessor for a read-only slot: ~S"
name place))
- #!+(or x86 x86-64)
+ #!+(or x86 x86-64 ppc)
`(truly-the sb!vm:word
(%raw-instance-atomic-incf/word
(the ,structure ,@args) ,index
`(truly-the sb!vm:word
(%raw-instance-atomic-incf/word
(the ,structure ,@args) ,index
@@
-200,7
+200,7
@@
EXPERIMENTAL: Interface subject to change."
(atomic-decf
`(- (the sb!vm:signed-word ,diff)))))))
;; No threads outside x86 and x86-64 for now, so this is easy...
(atomic-decf
`(- (the sb!vm:signed-word ,diff)))))))
;; No threads outside x86 and x86-64 for now, so this is easy...
- #!-(or x86 x86-64)
+ #!-(or x86 x86-64 ppc)
(with-unique-names (structure old)
`(sb!sys:without-interrupts
(let* ((,structure ,@args)
(with-unique-names (structure old)
`(sb!sys:without-interrupts
(let* ((,structure ,@args)
@@
-226,7
+226,8
@@
PLACE.
PLACE must be an accessor form whose CAR is the name of a DEFSTRUCT accessor
whose declared type is (UNSIGNED-BYTE 32) on 32 bit platforms,
PLACE must be an accessor form whose CAR is the name of a DEFSTRUCT accessor
whose declared type is (UNSIGNED-BYTE 32) on 32 bit platforms,
-and (UNSIGNED-BYTE 64) on 64 bit platforms.
+and (UNSIGNED-BYTE 64) on 64 bit platforms -- the type SB-EXT:WORD can be used
+for this purpose.
DIFF defaults to 1, and must be a (SIGNED-BYTE 32) on 32 bit platforms,
and (SIGNED-BYTE 64) on 64 bit platforms.
DIFF defaults to 1, and must be a (SIGNED-BYTE 32) on 32 bit platforms,
and (SIGNED-BYTE 64) on 64 bit platforms.
@@
-245,7
+246,8
@@
PLACE.
PLACE must be an accessor form whose CAR is the name of a DEFSTRUCT accessor
whose declared type is (UNSIGNED-BYTE 32) on 32 bit platforms,
PLACE must be an accessor form whose CAR is the name of a DEFSTRUCT accessor
whose declared type is (UNSIGNED-BYTE 32) on 32 bit platforms,
-and (UNSIGNED-BYTE 64) on 64 bit platforms.
+and (UNSIGNED-BYTE 64) on 64 bit platforms -- the type SB-EXT:WORD can be used
+for this purpose.
DIFF defaults to 1, and must be a (SIGNED-BYTE 32) on 32 bit platforms,
and (SIGNED-BYTE 64) on 64 bit platforms.
DIFF defaults to 1, and must be a (SIGNED-BYTE 32) on 32 bit platforms,
and (SIGNED-BYTE 64) on 64 bit platforms.