shithub: femtolisp

Info  •  Files  •  Log  •  Branches

vm: add and use LABEL(x) macro to refer to labels in op table

--- a/flisp.c

+++ b/flisp.c

@@ -901,10 +901,12 @@

 #undef GOTO_OP_OFFSET

 	};

 #define NEXT_OP goto *ops[*ip++]

+#define LABEL(x) x

 #define OP(x) op_##x:

 	NEXT_OP;

 #include "vm.inc"

 #undef OP

+#undef LABEL

 #undef NEXT_OP

 #pragma GCC diagnostic pop

 #else /* just a usual (portable) switch/case */

@@ -912,9 +914,11 @@

 	while(1){

 		switch(op){

 #define NEXT_OP break

+#define LABEL(x) x

 #define OP(x) case x:

 #include "vm.inc"

 #undef OP

+#undef LABEL

 #undef NEXT_OP

 		}

 		op = *ip++;