X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/blobdiff_plain/75dbacfca91031ad04d2464926239e329ffc5ca4..2aa518549b302b3556dbaa42585e6fc16a63ae7c:/src/codegen-proto.lisp

diff --git a/src/codegen-proto.lisp b/src/codegen-proto.lisp
index 743c89f..f6cd4bd 100644
--- a/src/codegen-proto.lisp
+++ b/src/codegen-proto.lisp
@@ -261,6 +261,14 @@ (defgeneric emit-insts (codegen insts)
   (:method (codegen insts)
     (dolist (inst insts) (emit-inst codegen inst))))
 
+(export '(emit-decl emit-decls))
+(defgeneric emit-decl (codegen inst)
+  (:documentation
+   "Add INST to the end of CODEGEN's list of declarations."))
+(defgeneric emit-decls (codegen insts)
+  (:documentation
+   "Add a list of INSTS to the end of CODEGEN's list of declarations."))
+
 (export 'codegen-push)
 (defgeneric codegen-push (codegen)
   (:documentation