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

diff --git a/src/codegen-proto.lisp b/src/codegen-proto.lisp
index 29ff35bad75d0329b2b28a8134d9b973d6b7b164..602b51e52b84856df2590c2804a77f4192f98d6b 100644 (file)
--- a/src/codegen-proto.lisp
+++ b/src/codegen-proto.lisp
@@ -176,8 +176,14 @@ (definst var (stream :export t) (name type init)
     (format stream " = ~A" init)))
 (definst set (stream :export t) (var expr)
   (format stream "~@<~A = ~@_~2I~A;~:>" var expr))
     (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 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)
 (definst expr (stream :export t) (expr)
   (format stream "~A;" expr))
 (definst block (stream :export t) (decls body)