Tcl Source Code: Artifact [410a112ef5]

Artifact 410a112ef55f8a5baa483aac0aea85403121d707:

Attachment "x" to ticket [1267256fff] added by matt-newman 2005-08-23 23:28:02.

Index: generic/threadSvCmd.h
===================================================================
RCS file: /cvs/thread/generic/threadSvCmd.h,v
retrieving revision 1.14   
diff -c -r1.1.1.1 threadSvCmd.h
*** generic/threadSvCmd.h	3 Jan 2005 09:00:06 -0000	1.14   
--- generic/threadSvCmd.h	23 Aug 2005 16:24:20 -0000
***************
*** 219,224 ****
--- 219,233 ----
  
  Tcl_Obj* Sv_DuplicateObj(Tcl_Obj*);
  
+ /*
+  * Privatize TclX symbols - needed for static linking when TclX is
+  * present.
+  */
+ #define tclXWrongArgs           thread_tclXWrongArgs
+ #define TclX_WrongArgs          thread_TclX_WrongArgs
+ #define TclX_AppendObjResult    thread_TclX_AppendObjResult
+ #define TclX_IsNullObj          thread_TclX_IsNullObj
+ 
  #endif /* _SV_H_ */
  
  /* EOF $RCSfile: threadSvCmd.h,v $ */