first trace file!

We need to emit labels that we have generated, otherwise the metadata
isn't consistent and the compiler croaks.

We also need EMIT-BLOCK-HEADER and EMIT-ERROR-BREAK functions for
emittage, ERROR-TRAP and related variables, and the %TEST-HEADERS
function for automatically-generated type tests.

With this, we can compile src/code/scratch.lisp "successfully", and
also successfully generate the trace file to prove it.  (Said
compilation, of course, produces no actual instructions, and the trace
file reveals some issues with our current setup, but it's our first
tangible output artifact.  Onward!)

src/compiler/rv32/call.lisp

@@ -50,7 +50,8 @@

(define-vop (xep-allocate-frame)
  (:info start-lab)
  (:generator 1))
  (:generator 1
    (emit-label start-lab)))

(define-vop (xep-setup-sp)
  (:generator 1))
@@ -67,7 +68,13 @@

(define-vop (unknown-values-receiver)
  (:results (start :scs (any-reg)) (count :scs (any-reg))))


(defun emit-block-header (start-label trampoline-label fall-thru-p align-p)
  (declare (ignore fall-thru-p alignp))
  (when trampoline-label
    (emit-label trampoline-label))
  (emit-label start-label))

(define-vop (call-local)
  (:args (fp) (nfp) (args :more t))
  (:results (values :more t))

src/compiler/rv32/macros.lisp

@@ -10,7 +10,13 @@
;;;; files for more information.

(in-package "SB!VM")


(defun emit-error-break (vop kind code values)
  (assemble ()
    (when vop (note-this-location vop :internal-error))
    (emit-internal-error kind code values)
    (emit-alignment word-shift)))

(defmacro define-full-reffer (name type offset lowtag scs eltype &optional translate)
  `(progn
     (define-vop (,name)

src/compiler/rv32/move.lisp

@@ -11,6 +11,8 @@

(in-package "SB!VM")

(defun load-immediate-word (y val))

(define-move-fun (load-immediate 1) (vop x y)
    ((immediate) (any-reg descriptor-reg))
  (let ((val (tn-value x)))

src/compiler/rv32/parms.lisp

@@ -80,7 +80,6 @@

;;;; other miscellaneous constants

#+nil
(defenum (:start 8)
  halt-trap
  pending-interrupt-trap

src/compiler/rv32/type-vops.lisp

@@ -10,3 +10,6 @@
;;;; files for more information.

(in-package "SB!VM")

(defun %test-headers (value temp target not-p function-p headers
                      &key (drop-through)))