diff options
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tcl.decls | 4 | ||||
| -rw-r--r-- | generic/tclDecls.h | 6 |
2 files changed, 5 insertions, 5 deletions
diff --git a/generic/tcl.decls b/generic/tcl.decls index 9cd8da6..334f004 100644 --- a/generic/tcl.decls +++ b/generic/tcl.decls @@ -12,7 +12,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: tcl.decls,v 1.160 2008/12/11 14:16:41 dkf Exp $ +# RCS: @(#) $Id: tcl.decls,v 1.161 2008/12/15 18:33:25 dgp Exp $ library tcl @@ -2203,7 +2203,7 @@ declare 605 generic { int Tcl_GetErrorLine(Tcl_Interp *interp) } declare 606 generic { - void Tcl_SetErrorLine(Tcl_Interp *interp, int value) + void Tcl_SetErrorLine(Tcl_Interp *interp, int lineNum) } # TIP#307 (move results between interpreters) diff --git a/generic/tclDecls.h b/generic/tclDecls.h index 45805f2..8c58b9c 100644 --- a/generic/tclDecls.h +++ b/generic/tclDecls.h @@ -8,7 +8,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclDecls.h,v 1.161 2008/12/11 14:17:23 dkf Exp $ + * RCS: @(#) $Id: tclDecls.h,v 1.162 2008/12/15 18:33:25 dgp Exp $ */ #ifndef _TCLDECLS @@ -3668,7 +3668,7 @@ EXTERN int Tcl_GetErrorLine (Tcl_Interp * interp); #ifndef Tcl_SetErrorLine_TCL_DECLARED #define Tcl_SetErrorLine_TCL_DECLARED /* 606 */ -EXTERN void Tcl_SetErrorLine (Tcl_Interp * interp, int value); +EXTERN void Tcl_SetErrorLine (Tcl_Interp * interp, int lineNum); #endif #ifndef Tcl_TransferResult_TCL_DECLARED #define Tcl_TransferResult_TCL_DECLARED @@ -4423,7 +4423,7 @@ typedef struct TclStubs { int (*tcl_GetEnsembleParameterList) (Tcl_Interp * interp, Tcl_Command token, Tcl_Obj ** paramListPtr); /* 603 */ int (*tcl_ParseArgsObjv) (Tcl_Interp * interp, const Tcl_ArgvInfo * argTable, int * objcPtr, Tcl_Obj *const * objv, Tcl_Obj *** remObjv); /* 604 */ int (*tcl_GetErrorLine) (Tcl_Interp * interp); /* 605 */ - void (*tcl_SetErrorLine) (Tcl_Interp * interp, int value); /* 606 */ + void (*tcl_SetErrorLine) (Tcl_Interp * interp, int lineNum); /* 606 */ void (*tcl_TransferResult) (Tcl_Interp * sourceInterp, int result, Tcl_Interp * targetInterp); /* 607 */ int (*tcl_InterpActive) (Tcl_Interp * interp); /* 608 */ void (*tcl_BackgroundException) (Tcl_Interp * interp, int code); /* 609 */ |