diff options
author | dkf <donal.k.fellows@manchester.ac.uk> | 2013-09-20 13:02:29 (GMT) |
---|---|---|
committer | dkf <donal.k.fellows@manchester.ac.uk> | 2013-09-20 13:02:29 (GMT) |
commit | e3309e4d57407994dfba25053019cd7f1f5bd083 (patch) | |
tree | bf68b0b0a6c8342c24a522435cd2cf797929427a /generic/tclTest.c | |
parent | 2f5ec3509d4e78728930acdb71d70eec99124817 (diff) | |
parent | a28b7ede49c7e21c0d7150cca682433e94a78464 (diff) | |
download | tcl-e3309e4d57407994dfba25053019cd7f1f5bd083.zip tcl-e3309e4d57407994dfba25053019cd7f1f5bd083.tar.gz tcl-e3309e4d57407994dfba25053019cd7f1f5bd083.tar.bz2 |
merge trunk
Diffstat (limited to 'generic/tclTest.c')
-rw-r--r-- | generic/tclTest.c | 22 |
1 files changed, 20 insertions, 2 deletions
diff --git a/generic/tclTest.c b/generic/tclTest.c index 96973d7..f121d0d 100644 --- a/generic/tclTest.c +++ b/generic/tclTest.c @@ -4408,8 +4408,26 @@ TestseterrorcodeCmd( Tcl_SetResult(interp, "too many args", TCL_STATIC); return TCL_ERROR; } - Tcl_SetErrorCode(interp, argv[1], argv[2], argv[3], argv[4], - argv[5], NULL); + switch (argc) { + case 1: + Tcl_SetErrorCode(interp, "NONE", NULL); + break; + case 2: + Tcl_SetErrorCode(interp, argv[1], NULL); + break; + case 3: + Tcl_SetErrorCode(interp, argv[1], argv[2], NULL); + break; + case 4: + Tcl_SetErrorCode(interp, argv[1], argv[2], argv[3], NULL); + break; + case 5: + Tcl_SetErrorCode(interp, argv[1], argv[2], argv[3], argv[4], NULL); + break; + case 6: + Tcl_SetErrorCode(interp, argv[1], argv[2], argv[3], argv[4], + argv[5], NULL); + } return TCL_ERROR; } |