122 lines
2.8 KiB
C
122 lines
2.8 KiB
C
|
/*
|
||
|
|
* (c) Copyright 1990 Conor P. Cahill (uunet!virtech!cpcahil).
|
||
|
|
* You may copy, distribute, and use this software as long as this
|
||
|
|
* copyright statement is not removed.
|
||
|
|
*/
|
||
|
|
#include <stdio.h>
|
||
|
|
#include "malloc.h"
|
||
|
|
|
||
|
|
/*
|
||
|
|
* Function: malloc_init()
|
||
|
|
*
|
||
|
|
* Purpose: to initialize the pointers and variables use by the
|
||
|
|
* malloc() debugging library
|
||
|
|
*
|
||
|
|
* Arguments: none
|
||
|
|
*
|
||
|
|
* Returns: nothing of any value
|
||
|
|
*
|
||
|
|
* Narrative: Just initialize all the needed variables. Use mallopt
|
||
|
|
* to set options taken from the environment.
|
||
|
|
*
|
||
|
|
*/
|
||
|
|
#ifndef lint
|
||
|
|
static
|
||
|
|
char rcs_hdr[] = "$Id: m_init.c,v 1.1.1.1 2000-09-22 15:33:26 hr Exp $";
|
||
|
|
#endif
|
||
|
|
|
||
|
|
void
|
||
|
|
malloc_init()
|
||
|
|
{
|
||
|
|
char * cptr;
|
||
|
|
char * getenv();
|
||
|
|
union malloptarg m;
|
||
|
|
extern char * malloc_data_end;
|
||
|
|
extern char * malloc_data_start;
|
||
|
|
extern struct mlist * malloc_end;
|
||
|
|
extern struct mlist malloc_start;
|
||
|
|
char * sbrk();
|
||
|
|
|
||
|
|
/*
|
||
|
|
* If already initialized...
|
||
|
|
*/
|
||
|
|
if( malloc_data_start != (char *) 0)
|
||
|
|
{
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
malloc_data_start = sbrk(0);
|
||
|
|
malloc_data_end = malloc_data_start;
|
||
|
|
malloc_start.s.size = 0;
|
||
|
|
malloc_end = &malloc_start;
|
||
|
|
|
||
|
|
if( (cptr=getenv("MALLOC_WARN")) != NULL )
|
||
|
|
{
|
||
|
|
m.i = atoi(cptr);
|
||
|
|
(void) mallopt(MALLOC_WARN,m);
|
||
|
|
}
|
||
|
|
|
||
|
|
if( (cptr=getenv("MALLOC_FATAL")) != NULL)
|
||
|
|
{
|
||
|
|
m.i = atoi(cptr);
|
||
|
|
(void) mallopt(MALLOC_FATAL,m);
|
||
|
|
}
|
||
|
|
|
||
|
|
if( (cptr=getenv("MALLOC_CKCHAIN")) != NULL)
|
||
|
|
{
|
||
|
|
m.i = atoi(cptr);
|
||
|
|
(void) mallopt(MALLOC_CKCHAIN,m);
|
||
|
|
}
|
||
|
|
|
||
|
|
if( (cptr=getenv("MALLOC_ERRFILE")) != NULL)
|
||
|
|
{
|
||
|
|
m.str = cptr;
|
||
|
|
(void) mallopt(MALLOC_ERRFILE,m);
|
||
|
|
}
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
/*
|
||
|
|
* $Log: not supported by cvs2svn $
|
||
|
|
* Revision 1.1.1.1 1997/09/22 14:51:11 hjs
|
||
|
|
* dmake 4.1 orginal sourcen
|
||
|
|
*
|
||
|
|
* Revision 1.1.1.1 1997/07/15 16:02:26 dvadura
|
||
|
|
* dmake gold 4.1.00 initial import
|
||
|
|
*
|
||
|
|
* Revision 1.1.1.1 1996/10/27 07:30:14 dvadura
|
||
|
|
* Dmake 4.1 Initial Import
|
||
|
|
*
|
||
|
|
* Revision 1.1.1.1 1996/10/24 05:33:14 dvadura
|
||
|
|
* Initial import for final release of dmake 4.1
|
||
|
|
*
|
||
|
|
* Revision 1.1 1994/10/06 17:43:11 dvadura
|
||
|
|
* dmake Release Version 4.0, Initial revision
|
||
|
|
*
|
||
|
|
* Revision 1.1 1994/10/06 03:45:20 dvadura
|
||
|
|
* dmake Release Version 4.0, Initial revision
|
||
|
|
*
|
||
|
|
* Revision 1.1 1992/01/24 03:29:03 dvadura
|
||
|
|
* dmake Version 3.8, Initial revision
|
||
|
|
*
|
||
|
|
* Revision 1.6 90/08/29 22:23:21 cpcahil
|
||
|
|
* fixed mallopt to use a union as an argument.
|
||
|
|
*
|
||
|
|
* Revision 1.5 90/08/29 21:22:50 cpcahil
|
||
|
|
* miscellaneous lint fixes
|
||
|
|
*
|
||
|
|
* Revision 1.4 90/05/11 15:53:35 cpcahil
|
||
|
|
* fixed bug in initialization code.
|
||
|
|
*
|
||
|
|
* Revision 1.3 90/05/11 00:13:08 cpcahil
|
||
|
|
* added copyright statment
|
||
|
|
*
|
||
|
|
* Revision 1.2 90/02/24 21:50:20 cpcahil
|
||
|
|
* lots of lint fixes
|
||
|
|
*
|
||
|
|
* Revision 1.1 90/02/24 17:10:53 cpcahil
|
||
|
|
* Initial revision
|
||
|
|
*
|
||
|
|
*/
|