summaryrefslogtreecommitdiffstats
path: root/generic/tclRegexp.c
diff options
context:
space:
mode:
Diffstat (limited to 'generic/tclRegexp.c')
-rw-r--r--generic/tclRegexp.c24
1 files changed, 12 insertions, 12 deletions
diff --git a/generic/tclRegexp.c b/generic/tclRegexp.c
index c40165f..5b13dd9 100644
--- a/generic/tclRegexp.c
+++ b/generic/tclRegexp.c
@@ -109,19 +109,19 @@ const Tcl_ObjType tclRegexpType = {
SetRegexpFromAny /* setFromAnyProc */
};
-#define RegexpSetIntRep(objPtr, rePtr) \
+#define RegexpSetInternalRep(objPtr, rePtr) \
do { \
- Tcl_ObjIntRep ir; \
+ Tcl_ObjInternalRep ir; \
(rePtr)->refCount++; \
ir.twoPtrValue.ptr1 = (rePtr); \
ir.twoPtrValue.ptr2 = NULL; \
- Tcl_StoreIntRep((objPtr), &tclRegexpType, &ir); \
+ Tcl_StoreInternalRep((objPtr), &tclRegexpType, &ir); \
} while (0)
-#define RegexpGetIntRep(objPtr, rePtr) \
+#define RegexpGetInternalRep(objPtr, rePtr) \
do { \
- const Tcl_ObjIntRep *irPtr; \
- irPtr = TclFetchIntRep((objPtr), &tclRegexpType); \
+ const Tcl_ObjInternalRep *irPtr; \
+ irPtr = TclFetchInternalRep((objPtr), &tclRegexpType); \
(rePtr) = irPtr ? (TclRegexp *)irPtr->twoPtrValue.ptr1 : NULL; \
} while (0)
@@ -597,7 +597,7 @@ Tcl_GetRegExpFromObj(
TclRegexp *regexpPtr;
const char *pattern;
- RegexpGetIntRep(objPtr, regexpPtr);
+ RegexpGetInternalRep(objPtr, regexpPtr);
if ((regexpPtr == NULL) || (regexpPtr->flags != flags)) {
pattern = Tcl_GetStringFromObj(objPtr, &length);
@@ -607,7 +607,7 @@ Tcl_GetRegExpFromObj(
return NULL;
}
- RegexpSetIntRep(objPtr, regexpPtr);
+ RegexpSetInternalRep(objPtr, regexpPtr);
}
return (Tcl_RegExp) regexpPtr;
}
@@ -756,7 +756,7 @@ FreeRegexpInternalRep(
{
TclRegexp *regexpRepPtr;
- RegexpGetIntRep(objPtr, regexpRepPtr);
+ RegexpGetInternalRep(objPtr, regexpRepPtr);
assert(regexpRepPtr != NULL);
@@ -793,11 +793,11 @@ DupRegexpInternalRep(
{
TclRegexp *regexpPtr;
- RegexpGetIntRep(srcPtr, regexpPtr);
+ RegexpGetInternalRep(srcPtr, regexpPtr);
assert(regexpPtr != NULL);
- RegexpSetIntRep(copyPtr, regexpPtr);
+ RegexpSetInternalRep(copyPtr, regexpPtr);
}
/*
@@ -1052,7 +1052,7 @@ FreeRegexp(
static void
FinalizeRegexp(
- TCL_UNUSED(ClientData))
+ TCL_UNUSED(void *))
{
int i;
TclRegexp *regexpPtr;