diff options
| author | Shinya Sato <shinnya.sato@gmail.com> | 2023-01-12 23:23:29 +0900 |
|---|---|---|
| committer | Shinya Sato <shinnya.sato@gmail.com> | 2023-01-12 23:23:29 +0900 |
| commit | 47df25063a7994b586b4171b52d6eaa61ba9262d (patch) | |
| tree | d1cec600d25dfd46e4a64817f3ee6aa009c3d6b3 /src/inpla.y | |
| parent | 747e4413770ee08d503ab11774eac73d29df300a (diff) | |
| download | inpla-47df25063a7994b586b4171b52d6eaa61ba9262d.tar.gz inpla-47df25063a7994b586b4171b52d6eaa61ba9262d.zip | |
v0.10.3
Diffstat (limited to '')
| -rw-r--r-- | src/inpla.y | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/src/inpla.y b/src/inpla.y index 33f4701..161bd33 100644 --- a/src/inpla.y +++ b/src/inpla.y @@ -22,8 +22,8 @@ // ---------------------------------------------- -#define VERSION "0.10.2" -#define BUILT_DATE "29 December 2022" +#define VERSION "0.10.3" +#define BUILT_DATE "12 January 2023" // ------------------------------------------------------------------ @@ -2969,24 +2969,24 @@ void VMCode_puts(void **code, int n) { i+=3; } else if (code[i] == CodeAddr[OP_LOADP_L]) { - printf("loadpl reg%lu $%ld\n", + printf("loadp_l reg%lu $%ld\n", (unsigned long)code[i+1], (unsigned long)code[i+2]); i+=2; } else if (code[i] == CodeAddr[OP_LOADP_R]) { - printf("loadpr reg%lu $%ld\n", + printf("loadp_r reg%lu $%ld\n", (unsigned long)code[i+1], (unsigned long)code[i+2]); i+=2; } else if (code[i] == CodeAddr[OP_CHID_L]) { - printf("chidl $%ld\n", + printf("chgid_l $%ld\n", (unsigned long)code[i+1]); i+=1; } else if (code[i] == CodeAddr[OP_CHID_R]) { - printf("chidr $%ld\n", + printf("chgid_r $%ld\n", (unsigned long)code[i+1]); i+=1; @@ -7776,7 +7776,7 @@ int make_rule_oneway(Ast *ast) { } else { arity = get_arity_on_ast(ruleAgent_L); } - if (arity >= MAX_PORT) { + if (arity > MAX_PORT) { printf("ERROR: Too many arguments of `%s'. It should be MAX_PORT(=%d) or less.\n", ruleAgent_L->left->sym, MAX_PORT); return 0; @@ -7789,7 +7789,7 @@ int make_rule_oneway(Ast *ast) { } else { arity = get_arity_on_ast(ruleAgent_R); } - if (arity >= MAX_PORT) { + if (arity > MAX_PORT) { printf("ERROR: Too many arguments of `%s'. It should be MAX_PORT(=%d) or less.\n", ruleAgent_R->left->sym, MAX_PORT); return 0; |