src/codegen-proto.lisp: A small number of new instructions.

diff --git a/src/codegen-proto.lisp b/src/codegen-proto.lisp
index 29ff35b..602b51e 100644 (file)
--- a/src/codegen-proto.lisp
+++ b/src/codegen-proto.lisp
@@ -176,8 +176,14 @@
     (format stream " = ~A" init)))
 (definst set (stream :export t) (var expr)
   (format stream "~@<~A = ~@_~2I~A;~:>" var expr))
+(definst update (stream :export t) (var op expr)
+  (format stream "~@<~A ~A= ~@_~2I~A;~:>" var op expr))
 (definst return (stream :export t) (expr)
   (format stream "return~@[ (~A)~];" expr))
+(definst break (stream :export t) ()
+  (format stream "break;"))
+(definst continue (stream :export t) ()
+  (format stream "continue;"))
 (definst expr (stream :export t) (expr)
   (format stream "~A;" expr))
 (definst block (stream :export t) (decls body)