summaryrefslogtreecommitdiffstats
path: root/generic/tclBasic.c
diff options
context:
space:
mode:
authorandreas_kupries <akupries@shaw.ca>2006-12-05 18:45:50 (GMT)
committerandreas_kupries <akupries@shaw.ca>2006-12-05 18:45:50 (GMT)
commit7a49104d3c44f44c651574cabf05deb245dc03cf (patch)
tree31ab5f08e6d36e66e99e01a3d2f8600f7a09cefe /generic/tclBasic.c
parent7c22ad04aa281f88dbf8b20774d7fdd84d570284 (diff)
downloadtcl-7a49104d3c44f44c651574cabf05deb245dc03cf.zip
tcl-7a49104d3c44f44c651574cabf05deb245dc03cf.tar.gz
tcl-7a49104d3c44f44c651574cabf05deb245dc03cf.tar.bz2
* generic/tclBasic.c: TIP #291. Define tcl_platform element for
* doc/tclvars.n: pointerSize. * win/Makefile.in: Added installation instructions for the platform * win/makefile.vc: package. Added the platform package. * win/makefile.bc: * unix/Makefile.in: * tests/platform.test: * tests/safe.test: * library/platform/platform.tcl: * library/platform/shell.tcl: * library/platform/pkgIndex.tcl:
Diffstat (limited to 'generic/tclBasic.c')
-rw-r--r--generic/tclBasic.c6
1 files changed, 5 insertions, 1 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c
index 1226323..6ec48fe 100644
--- a/generic/tclBasic.c
+++ b/generic/tclBasic.c
@@ -13,7 +13,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclBasic.c,v 1.224 2006/12/01 19:59:59 kennykb Exp $
+ * RCS: @(#) $Id: tclBasic.c,v 1.225 2006/12/05 18:45:50 andreas_kupries Exp $
*/
#include "tclInt.h"
@@ -668,6 +668,10 @@ Tcl_CreateInterp(void)
Tcl_SetVar2Ex(interp, "tcl_platform", "wordSize",
Tcl_NewLongObj((long) sizeof(long)), TCL_GLOBAL_ONLY);
+ /* TIP #291 */
+ Tcl_SetVar2Ex(interp, "tcl_platform", "pointerSize",
+ Tcl_NewLongObj((long) sizeof(void*)), TCL_GLOBAL_ONLY);
+
/*
* Set up other variables such as tcl_version and tcl_library
*/