common-lisp/sbcl.sbcl
1
0
Fork 0
mirror of git://git.code.sf.net/p/sbcl/sbcl synced 2026-09-10 07:26:40 -04:00
Code Issues Actions 8 Packages Projects Releases Wiki Activity

Move some interpreter stubs

Browse source
This commit is contained in:
Douglas Katzman 2019-01-27 15:17:54 -05:00
parent c05f7215be
commit 5163c8216a
2 changed files with 4 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
src/code/cas.lisp
View file

@ -408,12 +408,3 @@ EXPERIMENTAL: Interface subject to change."
sb-vm:n-word-bits most-positive-word
sb-xc:most-negative-fixnum sb-xc:most-positive-fixnum)
(expand-atomic-frob 'atomic-decf place diff env))
;; Interpreter stubs for ATOMIC-INCF.
#!+(and compare-and-swap-vops (host-feature sb-xc))
(progn
;; argument types are declared in vm-fndb
(defun %array-atomic-incf/word (array index diff)
(%array-atomic-incf/word array index diff))
(defun %raw-instance-atomic-incf/word (instance index diff)
(%raw-instance-atomic-incf/word instance index diff)))

4
src/code/stubs.lisp
View file

@ -104,6 +104,10 @@
(def %funcallable-instance-info (fin i))
(def %set-funcallable-instance-info (fin i new-value))
#+compare-and-swap-vops
(def* (%array-atomic-incf/word (array index diff))
(%raw-instance-atomic-incf/word (instance index diff)))
#+sb-simd-pack
(def* (%make-simd-pack (tag low high))
(%make-simd-pack-single (x y z w))