Skip to content
Commits on Source (2)
......@@ -171,6 +171,7 @@
;; Make sure the function is aligned, and drop a label pointing to this
;; function header.
(align vm:lowtag-bits)
(emit-not-implemented)
(trace-table-entry trace-table-function-prologue)
(emit-label start-lab)
;; Allocate function header.
......@@ -262,6 +263,7 @@
(:info nargs)
(:results (res :scs (any-reg)))
(:generator 2
(emit-not-implemented)
(when (> nargs register-arg-count)
(move res csp-tn)
(inst add csp-tn csp-tn (* nargs vm:word-bytes)))))
......@@ -774,6 +776,7 @@ default-value-8
15
(if (eq return :unknown) 25 0))
(trace-table-entry trace-table-call-site)
(emit-not-implemented)
(let* ((cur-nfp (current-nfp-tn vop))
,@(unless (eq return :tail)
'((lra-label (gen-label))))
......@@ -1271,6 +1274,7 @@ default-value-8
(:vop-var vop)
(:save-p :compute-only)
(:generator 3
(emit-not-implemented)
(let ((err-lab
(generate-error-code vop invalid-argument-count-error nargs)))
(inst cmp nargs (fixnumize count))
......
......@@ -83,6 +83,7 @@
(define-vop (boundp boundp-frob)
(:translate boundp)
(:generator 9
(emit-not-implemented)
(loadw value object vm:symbol-value-slot vm:other-pointer-type)
(inst cmp value vm:unbound-marker-type)
(inst b (if not-p :eq :ne) target)
......
......@@ -2384,7 +2384,12 @@ about function addresses and register values.")
(- other-pointer-type
function-pointer-type
(label-position label posn delta-if-after)
(component-header-length))))))
;; FIXME: component-header-length (and
;; maybe label-position?) return thw
;; wrong number of bytes. We need to
;; shift left by 1 because our words are
;; 64 bits long and not 32.
(ash (component-header-length) 1))))))
;; code = lra - other-pointer-tag - header - label-offset + other-pointer-tag
(define-instruction compute-code-from-lra (segment dst src label temp)
......
......@@ -36,6 +36,7 @@
(:variant-vars offset lowtag)
(:policy :fast-safe)
(:generator 4
(emit-not-implemented)
(storew value object offset lowtag)))
;;; Slot-Ref and Slot-Set are used to define VOPs like Closure-Ref, where the
......
......@@ -25,6 +25,7 @@
((null immediate zero)
(any-reg descriptor-reg))
(let ((val (tn-value x)))
(not-implemented "LOAD-IMMEDIATE")
(etypecase val
(integer
(inst li y (fixnumize val)))
......@@ -121,6 +122,7 @@
(:temporary (:scs (non-descriptor-reg)) temp)
(:results (y))
(:generator 0
(emit-not-implemented)
(sc-case y
((any-reg descriptor-reg)
(move y x))
......
......@@ -30,6 +30,7 @@
(:temporary (:sc control-stack :offset nfp-save-offset) nfp-save)
(:vop-var vop)
(:generator 100
(emit-not-implemented)
(let ((cur-nfp (current-nfp-tn vop)))
(when cur-nfp
(store-stack-tn nfp-save cur-nfp))
......