projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.4.60: More efficient structure raw slot accessors on x86-64
[sbcl.git]
/
src
/
compiler
/
mips
/
alloc.lisp
diff --git
a/src/compiler/mips/alloc.lisp
b/src/compiler/mips/alloc.lisp
index
d0f21a3
..
eb194d5
100644
(file)
--- a/
src/compiler/mips/alloc.lisp
+++ b/
src/compiler/mips/alloc.lisp
@@
-147,11
+147,9
@@
(inst li temp (logior (ash (1- size) n-widetag-bits)
closure-header-widetag))
(storew temp result 0 fun-pointer-lowtag))
(inst li temp (logior (ash (1- size) n-widetag-bits)
closure-header-widetag))
(storew temp result 0 fun-pointer-lowtag))
- (storew result result closure-self-slot fun-pointer-lowtag)
(storew function result closure-fun-slot fun-pointer-lowtag))))
;;; The compiler likes to be able to directly make value cells.
(storew function result closure-fun-slot fun-pointer-lowtag))))
;;; The compiler likes to be able to directly make value cells.
-;;;
(define-vop (make-value-cell)
(:args (value :to :save :scs (descriptor-reg any-reg null zero)))
(:temporary (:scs (non-descriptor-reg)) temp)
(define-vop (make-value-cell)
(:args (value :to :save :scs (descriptor-reg any-reg null zero)))
(:temporary (:scs (non-descriptor-reg)) temp)
@@
-170,6
+168,12
@@
(:generator 1
(inst li result unbound-marker-widetag)))
(:generator 1
(inst li result unbound-marker-widetag)))
+(define-vop (make-funcallable-instance-tramp)
+ (:args)
+ (:results (result :scs (any-reg)))
+ (:generator 1
+ (inst li result (make-fixup "funcallable_instance_tramp" :foreign))))
+
(define-vop (fixed-alloc)
(:args)
(:info name words type lowtag)
(define-vop (fixed-alloc)
(:args)
(:info name words type lowtag)