src/builtin.lisp, src/codegen-proto.lisp: Improve slot initialization.

[sod] / src / codegen-proto.lisp

diff --git a/src/codegen-proto.lisp b/src/codegen-proto.lisp
index 42175a5e208b06b568221b0d67aecdbe35a6df52..6dc6dc10fd60c5692d8fd6cb34557d3f20d6fda9 100644 (file)
--- a/src/codegen-proto.lisp
+++ b/src/codegen-proto.lisp
@@ -64,6 +64,8 @@ (defparameter *sod-master-ap*
   (make-instance 'temporary-name :tag "sod__master_ap"))
 (defparameter *sod-tmp-ap*
   (make-instance 'temporary-name :tag "sod__tmp_ap"))
   (make-instance 'temporary-name :tag "sod__master_ap"))
 (defparameter *sod-tmp-ap*
   (make-instance 'temporary-name :tag "sod__tmp_ap"))

+(defparameter *sod-tmp-val*
+  (make-instance 'temporary-name :tag "sod__t"))

 
 ;;;--------------------------------------------------------------------------
 ;;; Instructions.
 
 ;;;--------------------------------------------------------------------------
 ;;; Instructions.