set thismodule [set [my varname m]]
	set f [$m local "tcl.strreplace" STRING<-STRING,INT,INT,STRING]
	params str:stringPtr fromInt toInt substr:substringPtr
	build {
	    nonnull $str $substr
	    set strreplace [$thismodule function.existing strreplace]
	    set ft [llvmtcl TypeOf $strreplace]
	    set pt [llvmtcl GetParamTypes [llvmtcl GetElementType $ft]]
	    my ret [my cast(ptr) [my Call strreplace \
		     [my cast(ptr) $str void] \
		     [my getInt32 $fromInt] \
		     [my getInt32 $toInt] \
		     [my cast(ptr) $substr void]\
		] Tcl_Obj]

	#     set from [my max $0 [my getInt32 $fromInt] "from"]
	#     set to [my getInt32 $toInt "to"]
	#     set length [my getInt32 [my strlen(STRING) $str] "length"]
	#     my condBr [my or [my gt $from $to] [my gt $from $length]] \
	# 	$returnString $checkIfTrivial
	# label returnString "return.string"
	#     my br $replaceDone
	# label returnSubstring "return.substring"
	#     my br $replaceDone
	# label checkIfTrivial "check.trivial"
	#     set to [my min $length $to "to"]
	#     my condBr [my and [my eq $from $0] [my eq $to $length]] \
	# 	$returnSubstring $checkRemoveTail
	# label checkRemoveTail "check.remove.tail"
	#     set length3 [my getInt32 [my strlen(STRING) $substr] "length3"]
	#     set refCount [my refCount $str "refCount"]
	#     my condBr [my and [my eq $length3 $0] [my eq $to $length]] \
	# 	$testUnshared $checkIfInPlace
	# label testUnshared "check.unshared"
	#     my condBr [my le $refCount $1] $trimTail $checkIfInPlace
	# label trimTail "replace.remove.tail"
	#     $api Tcl_SetObjLength $str $from
	#     my br $returnString
	# label checkIfInPlace "check.in.place"
	#     my condBr [my eq [my sub $length3 $1] [my sub $to $from]] \
	# 	$inPlace $complex
	# label inPlace "in.place"
	#     my condBr [my le $refCount $1] $inPlaceTypecheck $inPlaceAlloc
	# label inPlaceAlloc "in.place.dup"
	#     set allocated [$api Tcl_DuplicateObj $str]
	#     my br $inPlaceTypecheck
	# label inPlaceTypecheck "in.place.typecheck"
	#     set strIP [my phi [list $str $allocated] \
	# 	    [list $inPlace $inPlaceAlloc]]
	#     my condBr [my and \
	# 	    [my isByteArray $strIP] \
	# 	    [my isByteArray $substr]] \
	# 	$inPlaceBA $inPlaceUni
	# label inPlaceBA "in.place.bytes"
	#     set bytes1 [$api Tcl_GetByteArray $strIP]
	#     set bytes2 [$api Tcl_GetByteArray $substr]
	#     my memcpy [my getelementptr $bytes1 [list $from]] $bytes2 $length3
	#     $api TclInvalidateStringRep $strIP
	#     my br $replaceDone
	# label inPlaceUni "in.place.unicode"
	#     set bytes1 [$api Tcl_GetUnicode $strIP]
	#     set bytes2 [$api Tcl_GetUnicode $substr]
	#     my memcpy [my getelementptr $bytes1 [list $from]] $bytes2 \
	# 	[my mult $length3 $sizeof(Tcl_UniChar)]
	#     my store $0 [my getelementptr [my cast(ptr) \
	# 	    [my gep $strIP 0 Tcl_Obj.internalRep] int] [list $1]]
	#     $api TclInvalidateStringRep $strIP
	#     my br $replaceDone
	# label complex "replace"
	#     lassign [my GetUnicode $str str] length ustring1
	#     my condBr [my eq $length3 $0] $removeSubstr $replaceSubstr
	# label removeSubstr "replace.remove"
	#     my condBr [my eq $from $0] $removeFront $removeBody
	# label removeFront "replace.remove.front"
	#     set newstrFront [$api Tcl_NewUnicodeObj \
	# 	    [my getelementptr $ustring1 [my add $to $1]] \
	# 	    [list [my sub $length $to]]]
	#     my br $replaceDone
	# label removeBody "replace.remove.body"
	#     set newstr [$api Tcl_NewUnicodeObj $ustring1 $from]
	#     my condBr [my lt $to $length] $removeBodyMid $replaceDone
	# label removeBodyMid "replace.remove.body.mid"
	#     $api Tcl_AppendUnicodeToObj $newstr \
	# 	[my getelementptr $ustring1 [list [my add $to $1]]] \
	# 	[my sub $length $to]
	#     my br $replaceDone
	# label replaceSubstr "replace.substr"
	#     my condBr [my gt $from $0] $replaceMid $replaceFrontTest
	# label replaceFrontTest "replace.substr.front.test"
	#     my condBr [my shared $substr] \
	# 	$replaceFrontShared $replaceFrontUnshared
	# label replaceMid "replace.substr.mid"
	#     set newstrMid [$api Tcl_NewUnicodeObj $ustring1 $from]
	#     $api Tcl_AppendObjToObj $newstrMid $substr
	#     my condBr [my lt $to $length] $replaceTail $replaceDone
	# label replaceFrontShared "replace.substr.front.shared"
	#     set newstrShared [$api Tcl_DuplicateObj $substr]
	#     my condBr [my lt $to $length] $replaceTail $replaceDone
	# label replaceFrontUnshared "replace.subst.front.unshared"
	#     my condBr [my lt $to $length] $replaceTail $replaceDone
	# label replaceTail "replace.subst.tail"
	#     set sources [list $replaceMid $replaceFrontShared $replaceFrontUnshared]
	#     set newstrTail [my phi [list $newstrMid $newstrShared $substr] \
	# 	    $sources "tail"]
	#     $api Tcl_AppendUnicodeToObj $newstrTail \
	# 	[my getelementptr $ustring1 [list [my add $to $1]]] \
	# 	[my sub [my sub $length $to] $1]
	#     my br $replaceDone
	# label replaceDone "done"
	#     set sources [list $returnString $returnSubstring $inPlaceBA \
	# 	    $inPlaceUni $removeFront $removeBody $removeBodyMid \
	# 	    $replaceMid $replaceFrontShared $replaceFrontUnshared \
	# 	    $replaceTail]
	#     set values [list $str $substr $strIP $strIP $newstrFront $newstr \
	# 	    $newstr $newstrMid $newstrShared $substr $newstrTail]
	#     set newstr [my phi $values $sources]
	#     my addReference(STRING) $newstr
	#     my ret $newstr
	}

	##### Function tcl.strreplace.idx #####
	#
	# Type signature: objPtr:STRING * fromIdx:STRING * toIdx:STRING *
	#			* substringPtr:STRING * ecvar:int* -> STRING?
	#