X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/blobdiff_plain/ca0c10c49568d1d340296ae9e613f32a6a31bfc9..1d8206e9888ca942c039986ffb9c185c80b1e74c:/src/codegen-proto.lisp diff --git a/src/codegen-proto.lisp b/src/codegen-proto.lisp index 42175a5..6dc6dc1 100644 --- 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")) +(defparameter *sod-tmp-val* + (make-instance 'temporary-name :tag "sod__t")) ;;;-------------------------------------------------------------------------- ;;; Instructions.