SOURCES: blt-tcl85.patch (NEW) - avoid conflicting prototypes for ...
qboosh
qboosh at pld-linux.org
Sun Jul 24 12:29:45 CEST 2005
Author: qboosh Date: Sun Jul 24 10:29:45 2005 GMT
Module: SOURCES Tag: HEAD
---- Log message:
- avoid conflicting prototypes for tcl 8.5+
---- Files affected:
SOURCES:
blt-tcl85.patch (NONE -> 1.1) (NEW)
---- Diffs:
================================================================
Index: SOURCES/blt-tcl85.patch
diff -u /dev/null SOURCES/blt-tcl85.patch:1.1
--- /dev/null Sun Jul 24 12:29:45 2005
+++ SOURCES/blt-tcl85.patch Sun Jul 24 12:29:40 2005
@@ -0,0 +1,39 @@
+--- blt2.4z/src/bltNsUtil.h.orig 2002-07-18 08:35:32.000000000 +0200
++++ blt2.4z/src/bltNsUtil.h 2005-07-24 12:07:44.825339104 +0200
+@@ -47,8 +47,10 @@
+ #endif
+
+
++#if (TCL_VERSION_NUMBER < _VERSION(8,0,0))
+ EXTERN Tcl_Command Tcl_FindCommand _ANSI_ARGS_((Tcl_Interp *interp,
+ char *name, Tcl_Namespace *nsPtr, int flags));
++#endif
+
+ #define NS_SEARCH_NONE (0)
+ #define NS_SEARCH_CURRENT (1<<0)
+@@ -56,14 +58,17 @@
+ #define NS_SEARCH_BOTH (NS_SEARCH_GLOBAL | NS_SEARCH_CURRENT)
+
+
++#if (TCL_VERSION_NUMBER < _VERSION(8,5,0))
+ /*
+ * Namespace procedures not prototyped defined in Tcl.h
+ */
+ EXTERN Tcl_Namespace *Tcl_GetCurrentNamespace _ANSI_ARGS_((Tcl_Interp *interp));
+
+ EXTERN Tcl_Namespace *Tcl_GetGlobalNamespace _ANSI_ARGS_((Tcl_Interp *interp));
++#endif
+
+ #if (TCL_MAJOR_VERSION >= 8)
++# if (TCL_VERSION_NUMBER < _VERSION(8,5,0))
+ EXTERN Tcl_Namespace *Tcl_CreateNamespace _ANSI_ARGS_((Tcl_Interp *interp,
+ char *name, ClientData clientData, Tcl_NamespaceDeleteProc *nsDelProc));
+
+@@ -74,6 +79,7 @@
+
+ EXTERN int Tcl_Export _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Namespace *nsPtr,
+ char *name, int resetFlag));
++# endif
+
+ EXTERN Tcl_Var Tcl_FindNamespaceVar _ANSI_ARGS_((Tcl_Interp *interp, char *name,
+ Tcl_Namespace *contextNsPtr, int flags));
================================================================
More information about the pld-cvs-commit
mailing list