CipolCore/Common/comfree.c

   1 /***************************************************************/
   2 /* This file contains some functions to free common structures */
   3 /* memory space.                                               */
   4 /***************************************************************/
   5
   6 /*** Include files ***/
   7
   8 #include <stdio.h>
   9 #include <stdlib.h>
  10 #include <stddef.h>
  11
  12 #include "comtypes.h"
  13 #include "../System/systypes.h"
  14 #include "../Polylib/polytypes.h"
  15
  16 #ifdef DBMALLOC
  17 #       include "malloc.h"
  18 #endif
  19
  20 /*** Function to free a string ***/
  21
  22 void String_Free(s)
  23 char *s;
  24 {
  25 if(s!=NULL) free(s);
  26 }
  27
  28 /** Free a list **/
  29
  30 void List_Free(TList *list)
  31 {
  32 if(list!=NULL) Expression_Free((TExpression *)list);
  33 }