mirror of https://github.com/sheumann/dmake.git
104 lines
2.1 KiB
C
104 lines
2.1 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 1992/01/24 03:29:03 dvadura 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: m_init.c,v $
|
|
* 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
|
|
*
|
|
*/
|