(let ((*features* (cons :sb-assembling *features*)))
(init-assembler)
(load (merge-pathnames name (make-pathname :type "lisp")))
- (fasl-dump-cold-load-form `(in-package ,(package-name
- (sane-package)))
- lap-fasl-output)
(sb!assem:append-segment *code-segment* *elsewhere*)
(setf *elsewhere* nil)
(let ((length (sb!assem:finalize-segment *code-segment*)))
,@(unless (eq (reg-spec-kind reg) :res)
`(:target ,(reg-spec-temp reg)))))
-(defun emit-vop (name options vars)
+(defun emit-assemble-vop (name options vars)
(let* ((args (remove :arg vars :key #'reg-spec-kind :test #'neq))
(temps (remove :temp vars :key #'reg-spec-kind :test #'neq))
(results (remove :res vars :key #'reg-spec-kind :test #'neq))
(multiple-value-bind (name options)
(if (atom name&options)
(values name&options nil)
- (values (car name&options)
- (cdr name&options)))
+ (values (car name&options)
+ (cdr name&options)))
(let ((regs (mapcar (lambda (var) (apply #'parse-reg-spec var)) vars)))
(if *emit-assembly-code-not-vops-p*
(emit-assemble name options regs code)
- (emit-vop name options regs)))))
+ (emit-assemble-vop name options regs)))))