diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-07-09 18:06:40 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-07-09 18:06:40 (GMT) |
| commit | 9a9c228341c0256a141aa964d570d563e177440c (patch) | |
| tree | d5574dfca668c7476991e6d3f3a315298fa5d783 | |
| parent | 5f1c7cb11e25d9895ebcd88013f8724d7e239143 (diff) | |
| download | tcl-9a9c228341c0256a141aa964d570d563e177440c.zip tcl-9a9c228341c0256a141aa964d570d563e177440c.tar.gz tcl-9a9c228341c0256a141aa964d570d563e177440c.tar.bz2 | |
typo in compatibility macro (discovered by compiling Tk)
| -rw-r--r-- | generic/tclDecls.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclDecls.h b/generic/tclDecls.h index 997d685..20f6afb 100644 --- a/generic/tclDecls.h +++ b/generic/tclDecls.h @@ -3837,7 +3837,7 @@ extern const TclStubs *tclStubsPtr; # define Tcl_GetsObj(chan, objPtr) (((Tcl_WideInt)((tclStubsPtr->tcl_GetsObj)(chan, objPtr)+1))-1) # define Tcl_Read(chan, bufPtr, toRead) (((Tcl_WideInt)((tclStubsPtr->tcl_Read)(chan, bufPtr, toRead)+1))-1) # define Tcl_ScanElement(src, flagPtr) (((Tcl_WideInt)((tclStubsPtr->tcl_ScanElement)(src, flagPtr)+1))-1) -# define Tcl_ScanCountedElement(src, length, flagPtr) (((tclStubsPtr->tcl_WideInt)((Tcl_ScanCountedElement)(src, length, flagPtr)+1))-1) +# define Tcl_ScanCountedElement(src, length, flagPtr) (((Tcl_WideInt)((tclStubsPtr->tcl_ScanCountedElement)(src, length, flagPtr)+1))-1) # define Tcl_Ungets(chan, str, len, atHead) (((Tcl_WideInt)((tclStubsPtr->tcl_Ungets)(chan, str, len, atHead)+1))-1) # define Tcl_Write(chan, s, slen) (((Tcl_WideInt)((tclStubsPtr->tcl_Write)(chan, s, slen)+1))-1) # define Tcl_ReadChars(channel, objPtr, charsToRead, appendFlag) (((Tcl_WideInt)((tclStubsPtr->tcl_ReadChars)(channel, objPtr, charsToRead, appendFlag)+1))-1) |