From: Mark Wooding <mdw@distorted.org.uk>
Date: Sat, 29 Aug 2015 13:09:54 +0000 (+0100)
Subject: src/codegen-proto.lisp: A small number of new instructions.
X-Git-Tag: 0.2.0~55
X-Git-Url: https://git.distorted.org.uk/~mdw/sod/commitdiff_plain/b559689bf01c399ac0a15e8b73da7488dded72f4?hp=418752c55a29e2380d6d1aef767b7cfba02cf4be

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
--- 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)