diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-02-17 17:37:48 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-02-17 17:37:48 (GMT) |
| commit | b549908df2d5c9b0dba0a55f14c53f2052afeb4b (patch) | |
| tree | bd019667a72a0afddfe022d9473738d383c78fe1 /generic/tclRegexp.c | |
| parent | 9bf0f01d3d518909dba4fddd22b5eefdad229a83 (diff) | |
| parent | 9e89327bdf29379e7d2ca6af75ffad273e8babba (diff) | |
| download | tcl-b549908df2d5c9b0dba0a55f14c53f2052afeb4b.zip tcl-b549908df2d5c9b0dba0a55f14c53f2052afeb4b.tar.gz tcl-b549908df2d5c9b0dba0a55f14c53f2052afeb4b.tar.bz2 | |
Merge 9.0
Diffstat (limited to 'generic/tclRegexp.c')
| -rw-r--r-- | generic/tclRegexp.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/generic/tclRegexp.c b/generic/tclRegexp.c index f67fcee..c40165f 100644 --- a/generic/tclRegexp.c +++ b/generic/tclRegexp.c @@ -4,8 +4,8 @@ * This file contains the public interfaces to the Tcl regular expression * mechanism. * - * Copyright (c) 1998 by Sun Microsystems, Inc. - * Copyright (c) 1998-1999 by Scriptics Corporation. + * Copyright © 1998 Sun Microsystems, Inc. + * Copyright © 1998-1999 Scriptics Corporation. * * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. @@ -26,7 +26,7 @@ * regex.h regexec.c regfree.c * regfronts.c regguts.h * - * Copyright (c) 1998 Henry Spencer. All rights reserved. + * Copyright © 1998 Henry Spencer. All rights reserved. * * Development of this software was funded, in part, by Cray Research Inc., * UUNET Communications Services Inc., Sun Microsystems Inc., and Scriptics @@ -481,7 +481,7 @@ Tcl_RegExpExecObj( regexpPtr->string = NULL; regexpPtr->objPtr = textObj; - udata = TclGetUnicodeFromObj(textObj, &length); + udata = Tcl_GetUnicodeFromObj(textObj, &length); if (offset > length) { offset = length; @@ -600,7 +600,7 @@ Tcl_GetRegExpFromObj( RegexpGetIntRep(objPtr, regexpPtr); if ((regexpPtr == NULL) || (regexpPtr->flags != flags)) { - pattern = TclGetStringFromObj(objPtr, &length); + pattern = Tcl_GetStringFromObj(objPtr, &length); regexpPtr = CompileRegexp(interp, pattern, length, flags); if (regexpPtr == NULL) { |