dmake/dbug/malloc/mallopt.c

   1 /*
   2  * (c) Copyright 1990 Conor P. Cahill (uunet!virtech!cpcahil).
   3  * You may copy, distribute, and use this software as long as this
   4  * copyright statement is not removed.
   5  */
   6 #include <stdio.h>
   7 #include <fcntl.h>
   8 #include "malloc.h"
   9
  10 /*
  11  * Function:    mallopt()
  12  *
  13  * Purpose:     to set options for the malloc debugging library
  14  *
  15  * Arguments:   none
  16  *
  17  * Returns:     nothing of any value
  18  *
  19  * Narrative:
  20  *
  21  */
  22
  23 #ifndef lint
  24 static
  25 char rcs_hdr[] = "$Id: mallopt.c,v 1.2 2006-07-25 10:09:05 rt Exp $";
  26 #endif
  27
  28 int
  29 mallopt(cmd,value)
  30     int                   cmd;
  31     union malloptarg      value;
  32 {
  33     int                   i;
  34     extern int            malloc_checking;
  35     extern char         * malloc_data_start;
  36     extern int            malloc_errfd;
  37     extern int            malloc_fatal_level;
  38     void                          malloc_init();
  39     extern int            malloc_warn_level;
  40     register char               * s;
  41
  42     /*
  43       * If not initialized...
  44      */
  45     if( malloc_data_start == (char *) 0)
  46     {
  47         malloc_init();
  48     }
  49
  50
  51     switch(cmd)
  52     {
  53         case MALLOC_WARN:
  54             malloc_warn_level = value.i;
  55             break;
  56
  57         case MALLOC_FATAL:
  58             malloc_fatal_level = value.i;
  59             break;
  60
  61         case MALLOC_CKCHAIN:
  62             malloc_checking = value.i;
  63             break;
  64
  65         case MALLOC_ERRFILE:
  66
  67             i = open(value.str,O_CREAT|O_APPEND|O_WRONLY,0666);
  68             if( i == -1 )
  69             {
  70                 (void) write(2,
  71                       "Unable to open malloc error file: ",
  72                       (unsigned) 34);
  73                 for(s=value.str; *s; s++)
  74                 {
  75                     /* do nothing */;
  76                 }
  77                 (void) write(2,value.str,
  78                          (unsigned)(s-value.str));
  79                 (void) write(2,"\n",(unsigned)1);
  80             }
  81             else
  82             {
  83                 if( malloc_errfd != 2 )
  84                 {
  85                     (void) close(malloc_errfd);
  86                 }
  87                 malloc_errfd = i;
  88             }
  89
  90             break;
  91
  92         default:
  93             return(1);
  94     }
  95
  96     return(0);
  97 }
  98