home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / C / DMAKE37S.ZIP / DMAKE / DBUG / MALLOC / FREE.C < prev    next >
Encoding:
C/C++ Source or Header  |  1991-03-12  |  4.4 KB  |  186 lines
  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 "malloc.h"
  8. #include "debug.h"
  9.  
  10. /*
  11.  * Function:    free()
  12.  *
  13.  * Purpose:    to deallocate malloced data
  14.  *
  15.  * Arguments:    ptr    - pointer to data area to deallocate
  16.  *
  17.  * Returns:    nothing of any value
  18.  *
  19.  * Narrative:
  20.  *        verify pointer is within malloc region
  21.  *        get mlist pointer from passed address
  22.  *        verify magic number
  23.  *        verify inuse flag
  24.  *        verify pointer connections with surrounding segments
  25.  *        turn off inuse flag
  26.  *        verify no data overrun into non-malloced area at end of segment
  27.  *        IF possible join segment with next segment
  28.  *        IF possible join segment with previous segment
  29.  *        Clear all data in segment (to make sure it isn't reused)
  30.  *
  31.  */
  32. #ifndef lint
  33. static
  34. char rcs_hdr[] = "$Id: free.c,v 1.9 90/08/29 21:22:48 cpcahil Exp $";
  35. #endif
  36.  
  37. void
  38. free(cptr)
  39.     char    * cptr;
  40. {
  41.     char            * func = "free";
  42.     int              i;
  43.     extern int          malloc_checking;
  44.     extern struct mlist    * malloc_end;
  45.     extern int          malloc_errno;
  46.     extern char        * malloc_data_end;
  47.     extern char        * malloc_data_start;
  48.     void              malloc_join();
  49.     void              malloc_memset();
  50.     struct mlist        * oldptr;
  51.     struct mlist        * ptr;
  52.  
  53.     /*
  54.      * IF malloc chain checking is on, go do it.
  55.      */
  56.     if( malloc_checking )
  57.     {
  58.         (void) malloc_chain_check(1);
  59.     }
  60.  
  61.     /*
  62.      * verify that cptr is within the malloc region...
  63.      */
  64.     if( cptr < malloc_data_start || cptr > malloc_data_end )
  65.     {
  66.         malloc_errno = M_CODE_BAD_PTR;
  67.         malloc_warning(func);
  68.         return;
  69.     }
  70.  
  71.     /* 
  72.      * convert pointer to mlist struct pointer.  To do this we must 
  73.      * move the pointer backwards the correct number of bytes...
  74.      */
  75.     
  76.     ptr = (struct mlist *) (cptr - M_SIZE);
  77.     
  78.     if( (ptr->flag&M_MAGIC) != M_MAGIC )
  79.     {
  80.         malloc_errno = M_CODE_BAD_MAGIC;
  81.         malloc_warning(func);
  82.         return;
  83.     }
  84.  
  85.     if( ! (ptr->flag & M_INUSE) )
  86.     {
  87.         malloc_errno = M_CODE_NOT_INUSE;
  88.         malloc_warning(func);
  89.         return;
  90.     }
  91.  
  92.      if( (ptr->prev && (ptr->prev->next != ptr) ) ||
  93.         (ptr->next && (ptr->next->prev != ptr) ) ||
  94.         ((ptr->next == NULL) && (ptr->prev == NULL)) )
  95.     {
  96.         malloc_errno = M_CODE_BAD_CONNECT;
  97.         malloc_warning(func);
  98.         return;
  99.     }
  100.  
  101.     ptr->flag &= ~M_INUSE;
  102.  
  103.     /*
  104.      * verify that the user did not overrun the requested number of bytes.
  105.      */
  106.     for(i=ptr->r_size; i < ptr->s.size; i++)
  107.     {
  108.         if( ptr->data[i] != M_FILL )
  109.         {
  110.             malloc_errno = M_CODE_OVERRUN;
  111.             malloc_warning(func);
  112.             break;
  113.         }
  114.     }
  115.  
  116.     DEBUG3(10,"pointers: prev: 0x%.7x,  ptr: 0x%.7x, next: 0x%.7x",
  117.             ptr->prev, ptr, ptr->next);
  118.     
  119.     DEBUG3(10,"size:     prev: %9d,  ptr: %9d, next: %9d",
  120.             ptr->prev->s.size, ptr->s.size, ptr->next->s.size);
  121.     
  122.     DEBUG3(10,"flags:    prev: 0x%.7x,  ptr: 0x%.7x, next: 0x%.7x",
  123.             ptr->prev->flag, ptr->flag, ptr->next->flag);
  124.     
  125.     /*
  126.      * check to see if this block can be combined with the next and/or
  127.      * previous block.  Since it may be joined with the previous block
  128.      * we will save a pointer to the previous block and test to verify
  129.      * if it is joined (it's next ptr will no longer point to ptr).
  130.       */
  131.     malloc_join(ptr,ptr->next,0,0);
  132.     
  133.     oldptr = ptr->prev;
  134.  
  135.     malloc_join(ptr->prev, ptr,0,0);
  136.  
  137.     if( oldptr->next != ptr )
  138.     {
  139.         DEBUG0(10,"Oldptr was changed");
  140.         ptr = oldptr;
  141.     }
  142.     
  143.     /*
  144.      * fill this block with '\02's to ensure that nobody is using a 
  145.      * pointer to already freed data...
  146.      */
  147.     malloc_memset(ptr->data,M_FREE_FILL,(int)ptr->s.size);
  148.  
  149. }
  150.  
  151. /*
  152.  * $Log:    free.c,v $
  153.  * Revision 1.9  90/08/29  21:22:48  cpcahil
  154.  * miscellaneous lint fixes
  155.  * 
  156.  * Revision 1.8  90/05/11  00:13:08  cpcahil
  157.  * added copyright statment
  158.  * 
  159.  * Revision 1.7  90/02/25  11:00:18  cpcahil
  160.  * added support for malloc chain checking.
  161.  * 
  162.  * Revision 1.6  90/02/24  21:50:18  cpcahil
  163.  * lots of lint fixes
  164.  * 
  165.  * Revision 1.5  90/02/24  17:29:13  cpcahil
  166.  * changed $Header to $Id so full path wouldnt be included as part of rcs 
  167.  * id string
  168.  * 
  169.  * Revision 1.4  90/02/24  15:15:32  cpcahil
  170.  * 1. changed ALREADY_FREE errno to NOT_INUSE so that the same errno could
  171.  *    be used by both free and realloc (since it was the same error).
  172.  * 2. fixed coding bug
  173.  * 
  174.  * Revision 1.3  90/02/24  14:23:45  cpcahil
  175.  * fixed malloc_warning calls
  176.  * 
  177.  * Revision 1.2  90/02/24  13:59:10  cpcahil
  178.  * added function header.
  179.  * Modified calls to malloc_warning/malloc_fatal to use new code error messages
  180.  * Added support for malloc_errno setting of error codes.
  181.  * 
  182.  * Revision 1.1  90/02/22  23:17:43  cpcahil
  183.  * Initial revision
  184.  * 
  185.  */
  186.