466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
|
/*
* Test for whether the initialization failed. If so, transfer the error
* from the target interpreter to the originating one.
*/
if (code != TCL_OK) {
Interp *iPtr = (Interp *) target;
if (iPtr->result != NULL && iPtr->result[0] != '\0') {
/* We have an Tcl 8.x extension with incompatible stub table. */
Tcl_Obj *obj = Tcl_NewStringObj(iPtr->result, -1);
Tcl_SetObjResult(interp, obj);
} else {
Tcl_TransferResult(target, code, interp);
}
goto done;
}
|
>
>
|
>
>
|
>
|
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
|
/*
* Test for whether the initialization failed. If so, transfer the error
* from the target interpreter to the originating one.
*/
if (code != TCL_OK) {
Interp *iPtr = (Interp *) target;
if (iPtr->result != NULL && iPtr->result[0] != '\0') {
/*
* We have an Tcl 8.x extension with incompatible stub table.
*/
Tcl_Obj *obj = Tcl_NewStringObj(iPtr->result, TCL_STRLEN);
Tcl_SetObjResult(interp, obj);
} else {
Tcl_TransferResult(target, code, interp);
}
goto done;
}
|