summaryrefslogtreecommitdiffstats
path: root/generic/tclCompile.c
diff options
context:
space:
mode:
authordkf <dkf@noemail.net>2013-12-30 08:16:21 (GMT)
committerdkf <dkf@noemail.net>2013-12-30 08:16:21 (GMT)
commit1b0b9d9cd8541a3e32f5c06f0acccec4b8222d0c (patch)
treeb448cdd2a7084aaeebfaf78deb6929d5798ab887 /generic/tclCompile.c
parentc57ed9b781b48986044142015dda04ff1366f0fa (diff)
downloadtcl-1b0b9d9cd8541a3e32f5c06f0acccec4b8222d0c.zip
tcl-1b0b9d9cd8541a3e32f5c06f0acccec4b8222d0c.tar.gz
tcl-1b0b9d9cd8541a3e32f5c06f0acccec4b8222d0c.tar.bz2
allow generation by assembler
FossilOrigin-Name: 7b776b5ef4b5d05bcac5e557799b8a37beb48b2f
Diffstat (limited to 'generic/tclCompile.c')
-rw-r--r--generic/tclCompile.c8
1 files changed, 4 insertions, 4 deletions
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 */