shared_source/c_tcl_base_7_5_w_mods/tclalloc.c

/* $Header$ */

/* IJS_SM_FILE_PUBLIC */

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