diff options
author | jingham <jingham@noemail.net> | 1998-11-10 06:49:19 (GMT) |
---|---|---|
committer | jingham <jingham@noemail.net> | 1998-11-10 06:49:19 (GMT) |
commit | e3c04845583003a0742f88e1723a6bb318e64b83 (patch) | |
tree | 426ae9ad4e25e36702e7b3c1ea424748f2fde331 /mac/MW_TclHeader.pch | |
parent | be904d29b99c51d25ad9a0dcb1bfd4596079825c (diff) | |
download | tcl-e3c04845583003a0742f88e1723a6bb318e64b83.zip tcl-e3c04845583003a0742f88e1723a6bb318e64b83.tar.gz tcl-e3c04845583003a0742f88e1723a6bb318e64b83.tar.bz2 |
Fixed a bug in the resource command when the file was opened twice.
Fixed a bug in the testWriteTextResource command - it wrote one too many bytes.
Factored out the common code from the .pch files
FspLocationFromPath - make path a CONST
FossilOrigin-Name: 784962bdc874b00d3e1e5b2c6c732347a11b617f
Diffstat (limited to 'mac/MW_TclHeader.pch')
-rw-r--r-- | mac/MW_TclHeader.pch | 81 |
1 files changed, 2 insertions, 79 deletions
diff --git a/mac/MW_TclHeader.pch b/mac/MW_TclHeader.pch index 012182b..b6623ac 100644 --- a/mac/MW_TclHeader.pch +++ b/mac/MW_TclHeader.pch @@ -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: MW_TclHeader.pch,v 1.3 1998/09/14 18:40:03 stanton Exp $ + * RCS: @(#) $Id: MW_TclHeader.pch,v 1.4 1998/11/10 06:49:19 jingham Exp $ */ /* @@ -30,73 +30,7 @@ #pragma precompile_target "MW_TclHeader68K" #endif -/* - * Macintosh Tcl must be compiled with certain compiler options to - * ensure that it will work correctly. The following pragmas are - * used to ensure that those options are set correctly. An error - * will occur at compile time if they are not set correctly. - */ - -#if !__option(enumsalwaysint) -#error Tcl requires the Metrowerks setting "Enums always ints". -#endif - -#if !defined(__POWERPC__) -#if !__option(far_data) -#error Tcl requires the Metrowerks setting "Far data". -#endif -#endif - -#if !defined(__POWERPC__) -#if !__option(fourbyteints) -#error Tcl requires the Metrowerks setting "4 byte ints". -#endif -#endif - -#if !defined(__POWERPC__) -#if !__option(IEEEdoubles) -#error Tcl requires the Metrowerks setting "8 byte doubles". -#endif -#endif - -/* - * The define is used most everywhere to tell Tcl (or any Tcl - * extensions) that we are compiling for the Macintosh platform. - */ - -#define MAC_TCL - -/* - * The following defines control the behavior of the Macintosh - * Universial Headers. - */ - -#define SystemSevenOrLater 1 -#define STRICT_CONTROLS 1 -#define STRICT_WINDOWS 1 - -/* - * Define the following symbol if you want - * comprehensive debugging turned on. - */ - -/* #define TCL_DEBUG */ - -#ifdef TCL_DEBUG -# define TCL_MEM_DEBUG -# define TCL_TEST -#endif - - -/* - * For a while, we will continue to use the old routine names, so that - * people with older versions of CodeWarrior will still be able to compile - * the source (albeit they will have to update the project files themselves). - * - * At some point, we will convert over to the new routine names. - */ - -#define OLDROUTINENAMES 1 +#include "tclMacCommonPch.h" /* * Place any includes below that will are needed by the majority of the @@ -109,16 +43,5 @@ #include "tclMac.h" #include "tclInt.h" -/* - * These three symbols are needed by Itcl, so we must export them - * here. They are all from tclCompile.h, but there is no need to - * export that whole file... - */ - -EXTERN void TclPrintSource _ANSI_ARGS_((FILE *outFile, - char *string, int maxChars)); -extern int tclTraceExec; -extern int tclTraceCompile; - #pragma export reset |