diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-09-11 14:43:41 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-09-11 14:43:41 (GMT) |
commit | d01b2d3aceb996995428a82620c6dd47775499bc (patch) | |
tree | 4a730a5029bb34a2b4ddfce0960d7ef651583a4f /unix | |
parent | 07a1136da5471e4dda4c7ee01757d226692ddaeb (diff) | |
parent | a1319ec00ada091354b870600685140a95aa8184 (diff) | |
download | tcl-d01b2d3aceb996995428a82620c6dd47775499bc.zip tcl-d01b2d3aceb996995428a82620c6dd47775499bc.tar.gz tcl-d01b2d3aceb996995428a82620c6dd47775499bc.tar.bz2 |
TIP #666 implementation: Change ptrdiff_t → Tcl_Size in Tcl 8.7 (and 9.0)
Diffstat (limited to 'unix')
-rw-r--r-- | unix/dltest/pkgooa.c | 21 | ||||
-rw-r--r-- | unix/dltest/pkgt.c | 8 |
2 files changed, 6 insertions, 23 deletions
diff --git a/unix/dltest/pkgooa.c b/unix/dltest/pkgooa.c index e75a2c3..e0aa45c 100644 --- a/unix/dltest/pkgooa.c +++ b/unix/dltest/pkgooa.c @@ -84,25 +84,8 @@ static TclOOStubs stubsCopy = { NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, - NULL, NULL, NULL, NULL, NULL, NULL, NULL -#ifdef Tcl_MethodIsPrivate - ,NULL -#endif -#ifdef Tcl_GetClassOfObject - ,NULL -#endif -#ifdef Tcl_GetObjectClassName - ,NULL -#endif -#ifdef Tcl_MethodIsType2 - ,NULL -#endif -#ifdef Tcl_NewInstanceMethod2 - ,NULL -#endif -#ifdef Tcl_NewMethod2 - ,NULL -#endif + NULL, NULL, NULL, NULL, NULL, NULL, NULL, + NULL, NULL, NULL, NULL, NULL, NULL }; DLLEXPORT int diff --git a/unix/dltest/pkgt.c b/unix/dltest/pkgt.c index 0c4b3d7..522f4db 100644 --- a/unix/dltest/pkgt.c +++ b/unix/dltest/pkgt.c @@ -16,10 +16,10 @@ static int TraceProc2 ( void *clientData, Tcl_Interp *interp, - ptrdiff_t level, + Tcl_Size level, const char *command, Tcl_Command commandInfo, - ptrdiff_t objc, + Tcl_Size objc, struct Tcl_Obj *const *objv) { (void)clientData; @@ -55,12 +55,12 @@ static int Pkgt_EqObjCmd2( void *dummy, /* Not used. */ Tcl_Interp *interp, /* Current interpreter. */ - ptrdiff_t objc, /* Number of arguments. */ + Tcl_Size objc, /* Number of arguments. */ Tcl_Obj *const objv[]) /* Argument objects. */ { Tcl_WideInt result; const char *str1, *str2; - ptrdiff_t len1, len2; + Tcl_Size len1, len2; (void)dummy; if (objc != 3) { |