diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-03-04 18:12:49 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-03-04 18:12:49 (GMT) |
| commit | 33d81b98be1160ae0475a3d162cec7359264c8c8 (patch) | |
| tree | b1027f2c6d38ac1390cefa56ba7f2bd09b038bc9 /unix | |
| parent | 234394e2df9328edc64b0da3e57f77c88e7a8f62 (diff) | |
| download | tcl-33d81b98be1160ae0475a3d162cec7359264c8c8.zip tcl-33d81b98be1160ae0475a3d162cec7359264c8c8.tar.gz tcl-33d81b98be1160ae0475a3d162cec7359264c8c8.tar.bz2 | |
Make dltest/pkg*.c simple example how to use Tcl_Size with Tcl_GetStringFromObj()
Diffstat (limited to 'unix')
| -rw-r--r-- | unix/dltest/pkga.c | 2 | ||||
| -rw-r--r-- | unix/dltest/pkgua.c | 2 | ||||
| -rw-r--r-- | unix/dltest/pkgπ.c | 3 |
3 files changed, 2 insertions, 5 deletions
diff --git a/unix/dltest/pkga.c b/unix/dltest/pkga.c index 579c323..aacb9cd 100644 --- a/unix/dltest/pkga.c +++ b/unix/dltest/pkga.c @@ -40,7 +40,7 @@ Pkga_EqObjCmd( { int result; const char *str1, *str2; - int len1, len2; + Tcl_Size len1, len2; (void)dummy; if (objc != 3) { diff --git a/unix/dltest/pkgua.c b/unix/dltest/pkgua.c index 16684a8..b14fca8 100644 --- a/unix/dltest/pkgua.c +++ b/unix/dltest/pkgua.c @@ -127,7 +127,7 @@ PkguaEqObjCmd( { int result; const char *str1, *str2; - int len1, len2; + Tcl_Size len1, len2; (void)dummy; if (objc != 3) { diff --git a/unix/dltest/pkgπ.c b/unix/dltest/pkgπ.c index dc01fbd..58b36db 100644 --- a/unix/dltest/pkgπ.c +++ b/unix/dltest/pkgπ.c @@ -38,9 +38,6 @@ Pkg\u03C0_\u03A0ObjCmd( int objc, /* Number of arguments. */ Tcl_Obj *const objv[]) /* Argument objects. */ { - int result; - const char *str1, *str2; - int len1, len2; (void)dummy; if (objc != 1) { |