Attachment "objtype.patch" to
ticket [506807ffff]
added by
dgp
2002-01-22 12:44:53.
? 403531.patch
? GetTime.3
? alloc.patch
? arrayTrace.patch
? basic.patch
? big.patch
? build_tclsh.patch
? cmd.patch
? crtinterp.patch
? ctbug.patch
? delta.patch
? dltest.patch
? errno.patch
? euro.patch
? filename.patch
? final.patch
? getsobj.patch
? global.patch
? history.patch
? index.patch
? interp.patch
? io.patch
? ioutil.patch
? liststring.patch
? load.patch
? main.patch
? namesp.patch
? obj.patch
? objtype.patch
? oldtip27.patch
? pair.c
? parse.patch
? patch
? pfsi.patch
? preserve.patch
? solaris
? source.file
? strtod.patch
? strtoul-2.patch
? stubcrash.patch
? tcltest-real.patch
? tcltest.patch
? thread.patch
? threads.patch
? tip-22-33-45.patch3
? tip-22-33-45.patch4
? tip22.patch
? tip68.patch
? tip73.patch
? tmp.patch
? trace.patch
? unbalanced.patch
? var.patch
? vartrace.patch
? compat/strtoul.c.try
? generic/assoc.patch
? unix/tclMtherr.c.ip
Index: ChangeLog
===================================================================
RCS file: /cvsroot/tcl/tcl/ChangeLog,v
retrieving revision 1.809
diff -u -u -r1.809 ChangeLog
--- ChangeLog 2002/01/21 22:50:49 1.809
+++ ChangeLog 2002/01/22 05:40:00
@@ -1,3 +1,11 @@
+2002-01-22 Don Porter <[email protected]>
+
+ * doc/ObjectType.3:
+ * generic/tcl.decls (Tcl_GetObjType):
+ * generic/tclObj.c (Tcl_GetObjType): Updated APIs of generic/tclObj.c
+ according to guidelines of TIP 27.
+ * generic/tclDecls.h: make genstubs
+
2002-01-21 David Gravereaux <[email protected]>
* generic/tclLoadNone.c: TclpLoadFile() didn't match proto of
Index: doc/ObjectType.3
===================================================================
RCS file: /cvsroot/tcl/tcl/doc/ObjectType.3,v
retrieving revision 1.4
diff -u -u -r1.4 ObjectType.3
--- doc/ObjectType.3 2001/10/22 17:25:14 1.4
+++ doc/ObjectType.3 2002/01/22 05:40:00
@@ -31,7 +31,7 @@
Points to the structure containing information about the Tcl object type.
This storage must live forever,
typically by being statically allocated.
-.AP char *typeName in
+.AP "CONST char" *typeName in
The name of a Tcl object type that \fBTcl_GetObjType\fR should look up.
.AP Tcl_Interp *interp in
Interpreter to use for error reporting.
Index: generic/tcl.decls
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tcl.decls,v
retrieving revision 1.76
diff -u -u -r1.76 tcl.decls
--- generic/tcl.decls 2002/01/21 16:15:03 1.76
+++ generic/tcl.decls 2002/01/22 05:40:00
@@ -166,7 +166,7 @@
int Tcl_GetLongFromObj(Tcl_Interp *interp, Tcl_Obj *objPtr, long *longPtr)
}
declare 40 generic {
- Tcl_ObjType * Tcl_GetObjType(char *typeName)
+ Tcl_ObjType * Tcl_GetObjType(CONST char *typeName)
}
declare 41 generic {
char * Tcl_GetStringFromObj(Tcl_Obj *objPtr, int *lengthPtr)
Index: generic/tclDecls.h
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclDecls.h,v
retrieving revision 1.76
diff -u -u -r1.76 tclDecls.h
--- generic/tclDecls.h 2002/01/21 16:15:03 1.76
+++ generic/tclDecls.h 2002/01/22 05:40:01
@@ -149,7 +149,7 @@
EXTERN int Tcl_GetLongFromObj _ANSI_ARGS_((Tcl_Interp * interp,
Tcl_Obj * objPtr, long * longPtr));
/* 40 */
-EXTERN Tcl_ObjType * Tcl_GetObjType _ANSI_ARGS_((char * typeName));
+EXTERN Tcl_ObjType * Tcl_GetObjType _ANSI_ARGS_((CONST char * typeName));
/* 41 */
EXTERN char * Tcl_GetStringFromObj _ANSI_ARGS_((Tcl_Obj * objPtr,
int * lengthPtr));
@@ -1581,7 +1581,7 @@
int (*tcl_GetInt) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * str, int * intPtr)); /* 37 */
int (*tcl_GetIntFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, int * intPtr)); /* 38 */
int (*tcl_GetLongFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, long * longPtr)); /* 39 */
- Tcl_ObjType * (*tcl_GetObjType) _ANSI_ARGS_((char * typeName)); /* 40 */
+ Tcl_ObjType * (*tcl_GetObjType) _ANSI_ARGS_((CONST char * typeName)); /* 40 */
char * (*tcl_GetStringFromObj) _ANSI_ARGS_((Tcl_Obj * objPtr, int * lengthPtr)); /* 41 */
void (*tcl_InvalidateStringRep) _ANSI_ARGS_((Tcl_Obj * objPtr)); /* 42 */
int (*tcl_ListObjAppendList) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * listPtr, Tcl_Obj * elemListPtr)); /* 43 */
Index: generic/tclObj.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclObj.c,v
retrieving revision 1.27
diff -u -u -r1.27 tclObj.c
--- generic/tclObj.c 2001/12/28 23:36:31 1.27
+++ generic/tclObj.c 2002/01/22 05:40:01
@@ -400,7 +400,7 @@
Tcl_ObjType *
Tcl_GetObjType(typeName)
- char *typeName; /* Name of Tcl object type to look up. */
+ CONST char *typeName; /* Name of Tcl object type to look up. */
{
register Tcl_HashEntry *hPtr;
Tcl_ObjType *typePtr;
