diff options
| -rw-r--r-- | mac/MW_TclAppleScriptHeader.pch | 3 | ||||
| -rwxr-xr-x | mac/tclMacCommonPch.h | 88 |
2 files changed, 90 insertions, 1 deletions
diff --git a/mac/MW_TclAppleScriptHeader.pch b/mac/MW_TclAppleScriptHeader.pch index 988b4ff..bf130ab 100644 --- a/mac/MW_TclAppleScriptHeader.pch +++ b/mac/MW_TclAppleScriptHeader.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_TclAppleScriptHeader.pch,v 1.2 1998/09/14 18:40:03 stanton Exp $ + * RCS: @(#) $Id: MW_TclAppleScriptHeader.pch,v 1.3 1998/11/10 16:30:35 rjohnson Exp $ */ /* @@ -22,6 +22,7 @@ * architecture we are compiling for (see the code below). For * example, for a 68k app the prefix file should be: MW_TclHeader68K. */ + #if __POWERPC__ #pragma precompile_target "MW_TclAppleScriptHeaderPPC" #include "MW_TclHeaderPPC" diff --git a/mac/tclMacCommonPch.h b/mac/tclMacCommonPch.h new file mode 100755 index 0000000..ec6d0d3 --- /dev/null +++ b/mac/tclMacCommonPch.h @@ -0,0 +1,88 @@ +/* + * tclMacCommonPch.h -- + * + * 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. + * + * Copyright (c) 1998 by Scriptics Corporation. + * + * See the file "license.terms" for information on usage and redistribution + * of this file, and for a DISCLAIMER OF ALL WARRANTIES. + * + * RCS: @(#) $Id: tclMacCommonPch.h,v 1.1 1998/11/10 16:30:36 rjohnson Exp $ + */ + +#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 |