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)))