35 lines
921 B
Plaintext
35 lines
921 B
Plaintext
--- otcl.c.orig Fri Feb 19 14:33:36 1999
|
|
+++ otcl.c Wed Nov 3 15:31:47 1999
|
|
@@ -762,13 +762,7 @@
|
|
for (; args!=0 && i<3; args = args->nextPtr, i++) ;
|
|
Tcl_ResetResult(in);
|
|
while (args != 0) {
|
|
-#if TCL_MAJOR_VERSION >= 8
|
|
-#if TCL_RELEASE_SERIAL >= 3
|
|
if (TclIsVarArgument(args))
|
|
-#else
|
|
- if (args->isArg)
|
|
-#endif
|
|
-#endif
|
|
Tcl_AppendElement(in, args->name);
|
|
args = args->nextPtr;
|
|
}
|
|
@@ -802,7 +796,7 @@
|
|
if (ap->defValuePtr != 0) {
|
|
if (Tcl_SetVar(in,
|
|
var,
|
|
- TclGetStringFromObj(ap->defValuePtr,
|
|
+ Tcl_GetStringFromObj(ap->defValuePtr,
|
|
(int *) NULL),
|
|
0) == NULL) {
|
|
#endif
|
|
@@ -840,7 +834,7 @@
|
|
Tcl_AppendResult(in, proc->command, 0);
|
|
#else
|
|
Tcl_AppendResult(in,
|
|
- TclGetStringFromObj(proc->bodyPtr, (int *)NULL),
|
|
+ Tcl_GetStringFromObj(proc->bodyPtr, (int *)NULL),
|
|
0);
|
|
#endif
|
|
return TCL_OK;
|