From b559689bf01c399ac0a15e8b73da7488dded72f4 Mon Sep 17 00:00:00 2001 From: Mark Wooding Date: Sat, 29 Aug 2015 14:09:54 +0100 Subject: [PATCH] src/codegen-proto.lisp: A small number of new instructions. --- src/codegen-proto.lisp | 6 ++++++ 1 file changed, 6 insertions(+) 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) -- 2.11.0