diff options
author | nijtmans <nijtmans> | 2008-07-24 21:54:38 (GMT) |
---|---|---|
committer | nijtmans <nijtmans> | 2008-07-24 21:54:38 (GMT) |
commit | 7f55ab2959b7ec3cac71c72171f20aed26c8f016 (patch) | |
tree | d6af35eba3a72d32359fa5a28abd6fe83823567d /generic/tcl.decls | |
parent | 7b1a1c06d6d6cdf4035ef5b35802f85862b27088 (diff) | |
download | tcl-7f55ab2959b7ec3cac71c72171f20aed26c8f016.zip tcl-7f55ab2959b7ec3cac71c72171f20aed26c8f016.tar.gz tcl-7f55ab2959b7ec3cac71c72171f20aed26c8f016.tar.bz2 |
CONSTified 4 functions in the Notifier which all have a Tcl_Time* in it which is
supposed to be a constant, but this was not reflected in the API:
Tcl_SetTimer
Tcl_WaitForEvent
Tcl_ConditionWait
Tcl_SetMaxBlockTime
Introduced a CONST86, so extensions which have their own Notifier
(are there any?) can be modified to compile against both Tcl 8.5
and Tcl 8.6. This change complies with TIP #24
Diffstat (limited to 'generic/tcl.decls')
-rw-r--r-- | generic/tcl.decls | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/generic/tcl.decls b/generic/tcl.decls index 60d85fa..f5cc117 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.137 2008/07/21 21:02:15 ferrieux Exp $ +# RCS: @(#) $Id: tcl.decls,v 1.138 2008/07/24 21:54:39 nijtmans Exp $ library tcl @@ -72,13 +72,13 @@ declare 10 unix { void Tcl_DeleteFileHandler(int fd) } declare 11 generic { - void Tcl_SetTimer(Tcl_Time *timePtr) + void Tcl_SetTimer(CONST86 Tcl_Time *timePtr) } declare 12 generic { void Tcl_Sleep(int ms) } declare 13 generic { - int Tcl_WaitForEvent(Tcl_Time *timePtr) + int Tcl_WaitForEvent(CONST86 Tcl_Time *timePtr) } declare 14 generic { int Tcl_AppendAllObjTypes(Tcl_Interp *interp, Tcl_Obj *objPtr) @@ -813,7 +813,7 @@ declare 228 generic { void Tcl_SetErrorCode(Tcl_Interp *interp, ...) } declare 229 generic { - void Tcl_SetMaxBlockTime(Tcl_Time *timePtr) + void Tcl_SetMaxBlockTime(CONST86 Tcl_Time *timePtr) } declare 230 generic { void Tcl_SetPanicProc(Tcl_PanicProc *panicProc) @@ -1119,7 +1119,7 @@ declare 310 generic { } declare 311 generic { void Tcl_ConditionWait(Tcl_Condition *condPtr, Tcl_Mutex *mutexPtr, - Tcl_Time *timePtr) + CONST86 Tcl_Time *timePtr) } declare 312 generic { int Tcl_NumUtfChars(CONST char *src, int length) |