summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2013-12-30 08:16:21 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2013-12-30 08:16:21 (GMT)
commit96f3f9a79df5d9ce6166a00452822684e177b743 (patch)
treeb448cdd2a7084aaeebfaf78deb6929d5798ab887 /generic
parent6b5eaa39012660c8f02bd6f4375089298006e987 (diff)
downloadtcl-96f3f9a79df5d9ce6166a00452822684e177b743.zip
tcl-96f3f9a79df5d9ce6166a00452822684e177b743.tar.gz
tcl-96f3f9a79df5d9ce6166a00452822684e177b743.tar.bz2
allow generation by assembler
Diffstat (limited to 'generic')
-rw-r--r--generic/tclAssembly.c7
-rw-r--r--generic/tclCompile.c8
2 files changed, 8 insertions, 7 deletions
diff --git a/generic/tclAssembly.c b/generic/tclAssembly.c
index cd0a42d..b7bd1cd 100644
--- a/generic/tclAssembly.c
+++ b/generic/tclAssembly.c
@@ -453,9 +453,9 @@ static const TalInstDesc TalInstructionTable[] = {
| INST_STORE_ARRAY4), 2, 1},
{"storeArrayStk", ASSEM_1BYTE, INST_STORE_ARRAY_STK, 3, 1},
{"storeStk", ASSEM_1BYTE, INST_STORE_STK, 2, 1},
- {"strLower", ASSEM_1BYTE, INST_STR_LOWER, 1, 1},
- {"strTitle", ASSEM_1BYTE, INST_STR_TITLE, 1, 1},
- {"strUpper", ASSEM_1BYTE, INST_STR_UPPER, 1, 1},
+ {"strcaseLower", ASSEM_1BYTE, INST_STR_LOWER, 1, 1},
+ {"strcaseTitle", ASSEM_1BYTE, INST_STR_TITLE, 1, 1},
+ {"strcaseUpper", ASSEM_1BYTE, INST_STR_UPPER, 1, 1},
{"strcmp", ASSEM_1BYTE, INST_STR_CMP, 2, 1},
{"strcat", ASSEM_CONCAT1, INST_STR_CONCAT1, INT_MIN,1},
{"streq", ASSEM_1BYTE, INST_STR_EQ, 2, 1},
@@ -466,6 +466,7 @@ static const TalInstDesc TalInstructionTable[] = {
{"strmatch", ASSEM_BOOL, INST_STR_MATCH, 2, 1},
{"strneq", ASSEM_1BYTE, INST_STR_NEQ, 2, 1},
{"strrange", ASSEM_1BYTE, INST_STR_RANGE, 3, 1},
+ {"strreplace", ASSEM_1BYTE, INST_STR_REPLACE, 4, 1},
{"strrfind", ASSEM_1BYTE, INST_STR_FIND_LAST, 2, 1},
{"strtrim", ASSEM_1BYTE, INST_STR_TRIM, 2, 1},
{"strtrimLeft", ASSEM_1BYTE, INST_STR_TRIM_LEFT, 2, 1},
diff --git a/generic/tclCompile.c b/generic/tclCompile.c
index 5474535..4ce5a66 100644
--- a/generic/tclCompile.c
+++ b/generic/tclCompile.c
@@ -594,19 +594,19 @@ InstructionDesc const tclInstructionTable[] = {
* is number of values to concatenate.
* Operation: push concat(stk1 stk2 ... stktop) */
- {"strUpper", 1, 0, 0, {OPERAND_NONE}},
+ {"strcaseUpper", 1, 0, 0, {OPERAND_NONE}},
/* [string toupper] core: converts whole string to upper case using
* the default (extended "C" locale) rules.
* Stack: ... string => ... newString */
- {"strLower", 1, 0, 0, {OPERAND_NONE}},
+ {"strcaseLower", 1, 0, 0, {OPERAND_NONE}},
/* [string tolower] core: converts whole string to upper case using
* the default (extended "C" locale) rules.
* Stack: ... string => ... newString */
- {"strTitle", 1, 0, 0, {OPERAND_NONE}},
+ {"strcaseTitle", 1, 0, 0, {OPERAND_NONE}},
/* [string totitle] core: converts whole string to upper case using
* the default (extended "C" locale) rules.
* Stack: ... string => ... newString */
- {"strReplace", 1, -3, 0, {OPERAND_NONE}},
+ {"strreplace", 1, -3, 0, {OPERAND_NONE}},
/* [string replace] core: replaces a non-empty range of one string
* with the contents of another.
* Stack: ... string fromIdx toIdx replacement => ... newString */