diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-05-03 14:47:37 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-05-03 14:47:37 (GMT) |
| commit | e1d323bc1b41ad79581edc6fe40f4b0f688377ac (patch) | |
| tree | f9058725614f7fa93f3d889138066aae4033dcbd /unix/dltest | |
| parent | 7b688527d719054d95ce6e5313830d6dd9d50a25 (diff) | |
| download | tcl-e1d323bc1b41ad79581edc6fe40f4b0f688377ac.zip tcl-e1d323bc1b41ad79581edc6fe40f4b0f688377ac.tar.gz tcl-e1d323bc1b41ad79581edc6fe40f4b0f688377ac.tar.bz2 | |
TIP #666 implementation
Diffstat (limited to 'unix/dltest')
| -rw-r--r-- | unix/dltest/pkgooa.c | 2 | ||||
| -rw-r--r-- | unix/dltest/pkgt.c | 8 |
2 files changed, 6 insertions, 4 deletions
diff --git a/unix/dltest/pkgooa.c b/unix/dltest/pkgooa.c index 444bb81..d82b5fa 100644 --- a/unix/dltest/pkgooa.c +++ b/unix/dltest/pkgooa.c @@ -94,6 +94,7 @@ static TclOOStubs stubsCopy = { #ifdef Tcl_GetObjectClassName ,NULL #endif +#if TCL_MAJOR_VERSION > 8 #ifdef Tcl_MethodIsType2 ,NULL #endif @@ -103,6 +104,7 @@ static TclOOStubs stubsCopy = { #ifdef Tcl_NewMethod2 ,NULL #endif +#endif }; 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) { |