diff options
author | hobbs <hobbs@noemail.net> | 2000-04-21 04:04:11 (GMT) |
---|---|---|
committer | hobbs <hobbs@noemail.net> | 2000-04-21 04:04:11 (GMT) |
commit | 8b72332f1a154398ee2d50b4dbf07f91e109c674 (patch) | |
tree | 11023b429351420787329586c2acb1e3756ea64f /unix/tclUnixPort.h | |
parent | a10461dd388abea9a0e4f6fbdc45664f582368ff (diff) | |
download | tcl-8b72332f1a154398ee2d50b4dbf07f91e109c674.zip tcl-8b72332f1a154398ee2d50b4dbf07f91e109c674.tar.gz tcl-8b72332f1a154398ee2d50b4dbf07f91e109c674.tar.bz2 |
* generic/tclAlloc.c: wrapped caddr_t define to not be done on Unix
* unix/tclUnixPort.h: added Tclp*Alloc defines to allow the use of
USE_TCLALLOC on Unix. [Bug: 4731]
FossilOrigin-Name: 618011d0b22f7d1d6ad7a5e0ae9caa838f721e89
Diffstat (limited to 'unix/tclUnixPort.h')
-rw-r--r-- | unix/tclUnixPort.h | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/unix/tclUnixPort.h b/unix/tclUnixPort.h index fa6333a..cb3c777 100644 --- a/unix/tclUnixPort.h +++ b/unix/tclUnixPort.h @@ -19,7 +19,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclUnixPort.h,v 1.14 2000/04/19 08:32:46 hobbs Exp $ + * RCS: @(#) $Id: tclUnixPort.h,v 1.15 2000/04/21 04:04:12 hobbs Exp $ */ #ifndef _TCLUNIXPORT @@ -462,6 +462,17 @@ extern double strtod(); #define TclpReleaseFile(file) /* Nothing. */ /* + * The following defines wrap the system memory allocation routines for + * use by tclAlloc.c. By default off unused on Unix. + */ + +#if USE_TCLALLOC +# define TclpSysAlloc(size, isBin) malloc((size_t)size) +# define TclpSysFree(ptr) free((char*)ptr) +# define TclpSysRealloc(ptr, size) realloc((char*)ptr, (size_t)size) +#endif + +/* * The following macros and declaration wrap the C runtime library * functions. */ |