shithub: MicroHs

Download patch

ref: 4680b1d4fa9939b804e11b3e844a22adc12b8c5e
parent: b4390dafa29297d20f9cf3986786baf1da4faacb
author: Lennart Augustsson <lennart.augustsson@epicgames.com>
date: Mon Nov 20 13:56:32 EST 2023

Add tag name array.

--- a/src/runtime/eval.c
+++ b/src/runtime/eval.c
@@ -105,6 +105,27 @@
                 T_STR,
                 T_LAST_TAG,
 };
+const char* tag_names[] = {
+  "FREE", "IND", "AP", "INT", "DBL", "PTR", "BADDYN", "S", "K", "I", "B", "C",
+  "A", "Y", "SS", "BB", "CC", "P", "R", "O", "U", "BK",
+  "ADD", "SUB", "MUL", "QUOT", "REM", "SUBR", "UQUOT", "UREM", "NEG",
+  "AND", "OR", "XOR", "INV", "SHL", "SHR", "ASHR",
+  "EQ", "NE", "LT", "LE", "GT", "GE", "ULT", "ULE", "UGT", "UGE",
+  "TOPTR", "TOINT", "TODBL",
+#if WANT_FLOAT
+  "FADD", "FSUB", "FMUL", "FDIV", "FNEG", "ITOF",
+  "FEQ", "FNE", "FLT", "FLE", "FGT", "FGE", "FSHOW", "FREAD",
+#endif
+  "ERROR", "NODEFAULT", "NOMATCH", "SEQ", "EQUAL", "COMPARE", "RNF",
+  "IO_BIND", "IO_THEN", "IO_RETURN",
+  "IO_SERIALIZE", "IO_DESERIALIZE",
+  "IO_STDIN", "IO_STDOUT", "IO_STDERR", "IO_GETARGS", "IO_DROPARGS",
+  "IO_PERFORMIO", "IO_GETTIMEMILLI", "IO_PRINT", "IO_CATCH",
+  "IO_CCALL", "DYNSYM",
+  "NEWCASTRING", "PEEKCASTRING",
+  "STR",
+  "LAST_TAG",
+};
 
 typedef struct node {
   union {
--