shared_source/c_tcl_base_7_5_w_mods/tclalloc.c

/* $Header$ */

#define MODULE_TCLALLOC

#include <malloc.h>

#include "tclalloc.h"


 /*
 *----------------------------------------------------------------------
 *
 * TclpAlloc --
 *
 *      Allocate more memory.
 *
 * Results:
 *      None.
 *
 * Side effects:
 *      None.
 *
 *----------------------------------------------------------------------
 */

char *TclpAlloc(unsigned int nbytes)
{
    return (char*) malloc(nbytes);
}


/*
 *----------------------------------------------------------------------
 *
 * TclpFree --
 *
 *      Free memory.
 *
 * Results:
 *      None.
 *
 * Side effects:
 *      None.
 *
 *----------------------------------------------------------------------
 */

void TclpFree(char *cp)
{   
    free(cp);
    return;
}


 /*
 *----------------------------------------------------------------------
 *
 * TclpCalloc --
 *
 *      Allocate array of memory.
 *
 * Results:
 *      None.
 *
 * Side effects:
 *      None.
 *
 *----------------------------------------------------------------------
 */

char *TclpCalloc(size_t num, size_t size)
{
    return (char*) calloc(num, size);
}


/*
 *----------------------------------------------------------------------
 *
 * TclpRealloc --
 *
 *      Reallocate memory.
 *
 * Results:
 *      None.
 *
 * Side effects:
 *      None.
 *
 *----------------------------------------------------------------------
 */

char *TclpRealloc(char *cp, unsigned int nbytes)
{   
    return (char*) realloc(cp, nbytes);
}


/*
 *----------------------------------------------------------------------
 *
 * TclpCversion --
 *
 *      Returns the PVCS version control string for the .C file.  
 *  This is a constant string and may not be modified.
 *
 * Side effects:
 *      None.
 *
 *----------------------------------------------------------------------
 */

const char *TclpCversion(void)
{   
    return ("$Header$");
}


/*
 *----------------------------------------------------------------------
 *
 * TclpHversion --
 *
 *      Returns the PVCS version control string for the .H file.  
 *  This is a constant string and may not be modified.
 *
 * Side effects:
 *      None.
 *
 *----------------------------------------------------------------------
 */

const char *TclpHversion(void)
{   
    return (TCLALLOC_H_VERSION);
}


/*
 * $Log: tclalloc.c,v $
 * Revision 1.4  2001/07/15 06:44:32  dtashley
 * Keyword expansion mistake corrected.
 *
 * Revision 1.3  2001/07/15 06:40:10  dtashley
 * Adaptation of GNU arbitrary-size integer package integrated into IjuScripter
 * and IjuConsole.
 *
 * Revision 1.2  2001/07/15 06:07:15  dtashley
 * Moved out of binary mode, preparing for use with CVS.
 */
/* $History: tclalloc.c $
 * 
 * *****************  Version 1  *****************
 * User: Dtashley     Date: 1/02/01    Time: 12:16a
 * Created in $/IjuScripter, IjuConsole/Source/Tcl Base
 * Initial check-in.
 */

/*************************************************************************/
/* Original copyright notice below.   This must be retained in the       */
/* source code.                                                          */
/*************************************************************************/

/* 
 * tclAlloc.c --
 *
 *      This is a very fast storage allocator.  It allocates blocks of a
 *      small number of different sizes, and keeps free lists of each size.
 *      Blocks that don't exactly fit are passed up to the next larger size.
 *      Blocks over a certain size are directly allocated from the system.
 *
 * Copyright (c) 1983 Regents of the University of California.
 * Copyright (c) 1996-1997 Sun Microsystems, Inc.
 * Copyright (c) 1998-1999 by Scriptics Corporation.
 *
 * Portions contributed by Chris Kingsley, Jack Jansen and Ray Johnson.
 *
 * See the file "license.terms" for information on usage and redistribution
 * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 *
 * RCS: @(#) $Id: tclalloc.c,v 1.4 2001/07/15 06:44:32 dtashley Exp $
 */

/* End of tclalloc.c */
1	dashley	64	/* $Header$ */
2	dashley	25
3			#define MODULE_TCLALLOC
4
5			#include <malloc.h>
6
7			#include "tclalloc.h"
8
9
10			/*
11			*----------------------------------------------------------------------
12			*
13			* TclpAlloc --
14			*
15			* Allocate more memory.
16			*
17			* Results:
18			* None.
19			*
20			* Side effects:
21			* None.
22			*
23			*----------------------------------------------------------------------
24			*/
25
26			char *TclpAlloc(unsigned int nbytes)
27			{
28			return (char*) malloc(nbytes);
29			}
30
31
32			/*
33			*----------------------------------------------------------------------
34			*
35			* TclpFree --
36			*
37			* Free memory.
38			*
39			* Results:
40			* None.
41			*
42			* Side effects:
43			* None.
44			*
45			*----------------------------------------------------------------------
46			*/
47
48			void TclpFree(char *cp)
49			{
50			free(cp);
51			return;
52			}
53
54
55			/*
56			*----------------------------------------------------------------------
57			*
58			* TclpCalloc --
59			*
60			* Allocate array of memory.
61			*
62			* Results:
63			* None.
64			*
65			* Side effects:
66			* None.
67			*
68			*----------------------------------------------------------------------
69			*/
70
71			char *TclpCalloc(size_t num, size_t size)
72			{
73			return (char*) calloc(num, size);
74			}
75
76
77			/*
78			*----------------------------------------------------------------------
79			*
80			* TclpRealloc --
81			*
82			* Reallocate memory.
83			*
84			* Results:
85			* None.
86			*
87			* Side effects:
88			* None.
89			*
90			*----------------------------------------------------------------------
91			*/
92
93			char TclpRealloc(char cp, unsigned int nbytes)
94			{
95			return (char*) realloc(cp, nbytes);
96			}
97
98
99			/*
100			*----------------------------------------------------------------------
101			*
102			* TclpCversion --
103			*
104			* Returns the PVCS version control string for the .C file.
105			* This is a constant string and may not be modified.
106			*
107			* Side effects:
108			* None.
109			*
110			*----------------------------------------------------------------------
111			*/
112
113			const char *TclpCversion(void)
114			{
115	dashley	64	return ("$Header$");
116	dashley	25	}
117
118
119			/*
120			*----------------------------------------------------------------------
121			*
122			* TclpHversion --
123			*
124			* Returns the PVCS version control string for the .H file.
125			* This is a constant string and may not be modified.
126			*
127			* Side effects:
128			* None.
129			*
130			*----------------------------------------------------------------------
131			*/
132
133			const char *TclpHversion(void)
134			{
135			return (TCLALLOC_H_VERSION);
136			}
137
138
139			/*
140			* $Log: tclalloc.c,v $
141			* Revision 1.4 2001/07/15 06:44:32 dtashley
142			* Keyword expansion mistake corrected.
143			*
144			* Revision 1.3 2001/07/15 06:40:10 dtashley
145			* Adaptation of GNU arbitrary-size integer package integrated into IjuScripter
146			* and IjuConsole.
147			*
148			* Revision 1.2 2001/07/15 06:07:15 dtashley
149			* Moved out of binary mode, preparing for use with CVS.
150			*/
151			/* $History: tclalloc.c $
152			*
153			* *************** Version 1 ***************
154			* User: Dtashley Date: 1/02/01 Time: 12:16a
155			* Created in $/IjuScripter, IjuConsole/Source/Tcl Base
156			* Initial check-in.
157			*/
158
159			/*************************************************************************/
160			/* Original copyright notice below. This must be retained in the */
161			/* source code. */
162			/*************************************************************************/
163
164			/*
165			* tclAlloc.c --
166			*
167			* This is a very fast storage allocator. It allocates blocks of a
168			* small number of different sizes, and keeps free lists of each size.
169			* Blocks that don't exactly fit are passed up to the next larger size.
170			* Blocks over a certain size are directly allocated from the system.
171			*
172			* Copyright (c) 1983 Regents of the University of California.
173			* Copyright (c) 1996-1997 Sun Microsystems, Inc.
174			* Copyright (c) 1998-1999 by Scriptics Corporation.
175			*
176			* Portions contributed by Chris Kingsley, Jack Jansen and Ray Johnson.
177			*
178			* See the file "license.terms" for information on usage and redistribution
179			* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
180			*
181			* RCS: @(#) $Id: tclalloc.c,v 1.4 2001/07/15 06:44:32 dtashley Exp $
182			*/
183
184	dashley	67	/* End of tclalloc.c */