projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Micro-optimize LENGTH/LIST and VALUES-LIST on x86-64 for code size.
[sbcl.git]
/
src
/
compiler
/
ppc
/
macros.lisp
diff --git
a/src/compiler/ppc/macros.lisp
b/src/compiler/ppc/macros.lisp
index
c52d4d5
..
c84757d
100644
(file)
--- a/
src/compiler/ppc/macros.lisp
+++ b/
src/compiler/ppc/macros.lisp
@@
-341,19
+341,18
@@
;; Extra debugging stuff:
#+debug
(progn
;; Extra debugging stuff:
#+debug
(progn
- (inst andi. ,flag-tn alloc-tn 7)
+ (inst andi. ,flag-tn alloc-tn lowtag-mask)
(inst twi :ne ,flag-tn 0))
(inst twi :ne ,flag-tn 0))
- (inst ori alloc-tn alloc-tn 4))
+ (inst ori alloc-tn alloc-tn pseudo-atomic-flag))
,@forms
(without-scheduling ()
,@forms
(without-scheduling ()
- (inst li ,flag-tn -5)
- (inst and alloc-tn alloc-tn ,flag-tn)
+ (inst subi alloc-tn alloc-tn pseudo-atomic-flag)
;; Now test to see if the pseudo-atomic interrupted bit is set.
;; Now test to see if the pseudo-atomic interrupted bit is set.
- (inst andi. ,flag-tn alloc-tn 1)
+ (inst andi. ,flag-tn alloc-tn pseudo-atomic-interrupted-flag)
(inst twi :ne ,flag-tn 0))
#+debug
(progn
(inst twi :ne ,flag-tn 0))
#+debug
(progn
- (inst andi. ,flag-tn alloc-tn 7)
+ (inst andi. ,flag-tn alloc-tn lowtag-mask)
(inst twi :ne ,flag-tn 0))))
(def!macro with-pinned-objects ((&rest objects) &body body)
(inst twi :ne ,flag-tn 0))))
(def!macro with-pinned-objects ((&rest objects) &body body)