0.8.17.17:
[sbcl.git] / src / compiler / mips / memory.lisp
1 (in-package "SB!VM")
2
3
4 ;;; Cell-Ref and Cell-Set are used to define VOPs like CAR, where the offset to
5 ;;; be read or written is a property of the VOP used.
6 ;;;
7 (define-vop (cell-ref)
8   (:args (object :scs (descriptor-reg)))
9   (:results (value :scs (descriptor-reg any-reg)))
10   (:variant-vars offset lowtag)
11   (:policy :fast-safe)
12   (:generator 4
13     (loadw value object offset lowtag)))
14 ;;;
15 (define-vop (cell-set)
16   (:args (object :scs (descriptor-reg))
17          (value :scs (descriptor-reg any-reg null zero)))
18   (:variant-vars offset lowtag)
19   (:policy :fast-safe)
20   (:generator 4
21     (storew value object offset lowtag)))
22
23 ;;; Slot-Ref and Slot-Set are used to define VOPs like Closure-Ref, where the
24 ;;; offset is constant at compile time, but varies for different uses.  We add
25 ;;; in the stardard g-vector overhead.
26 ;;;
27 (define-vop (slot-ref)
28   (:args (object :scs (descriptor-reg)))
29   (:results (value :scs (descriptor-reg any-reg)))
30   (:variant-vars base lowtag)
31   (:info offset)
32   (:generator 4
33     (loadw value object (+ base offset) lowtag)))
34 ;;;
35 (define-vop (slot-set)
36   (:args (object :scs (descriptor-reg))
37          (value :scs (descriptor-reg any-reg null zero)))
38   (:variant-vars base lowtag)
39   (:info offset)
40   (:generator 4
41     (storew value object (+ base offset) lowtag)))