rom/dos/freedosobject.c

   1 /*
   2     Copyright © 1995-2011, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc:
   6     Lang: english
   7 */
   8 #include <exec/memory.h>
   9 #include <proto/exec.h>
  10 #include <dos/exall.h>
  11 #include <dos/rdargs.h>
  12 #include "dos_intern.h"
  13
  14 /*****************************************************************************
  15
  16     NAME */
  17 #include <proto/dos.h>
  18
  19         AROS_LH2(void, FreeDosObject,
  20
  21 /*  SYNOPSIS */
  22         AROS_LHA(ULONG, type, D1),
  23         AROS_LHA(APTR,  ptr,  D2),
  24
  25 /*  LOCATION */
  26         struct DosLibrary *, DOSBase, 39, Dos)
  27
  28 /*  FUNCTION
  29         Frees an object allocated with AllocDosObject.
  30
  31     INPUTS
  32         type - object type. The same parameter as given to AllocDosObject().
  33         ptr  - Pointer to object.
  34
  35     RESULT
  36
  37     NOTES
  38
  39     EXAMPLE
  40
  41     BUGS
  42
  43     SEE ALSO
  44
  45     INTERNALS
  46
  47 *****************************************************************************/
  48 {
  49     AROS_LIBFUNC_INIT
  50
  51     if (ptr == NULL)
  52         return;
  53
  54     switch(type)
  55     {
  56         case DOS_FILEHANDLE:
  57         {
  58             struct FileHandle *fh=(struct FileHandle *)ptr;
  59             if (fh->fh_Flags & FHF_OWNBUF)
  60                 FreeMem(BADDR(fh->fh_Buf),fh->fh_Size);
  61             FreeMem(fh,sizeof(struct FileHandle));
  62             break;
  63         }
  64         case DOS_FIB:
  65             FreeMem(ptr,sizeof(struct FileInfoBlock));
  66             break;
  67
  68         case DOS_STDPKT:
  69             freedospacket(ptr);
  70             break;
  71
  72         case DOS_EXALLCONTROL:
  73             if (((struct InternalExAllControl *)ptr)->fib)
  74                 FreeDosObject(DOS_FIB, ((struct InternalExAllControl *)ptr)->fib);
  75
  76             FreeMem(ptr, sizeof(struct InternalExAllControl));
  77             break;
  78
  79         case DOS_CLI:
  80         {
  81             struct CommandLineInterface *cli=(struct CommandLineInterface *)ptr;
  82             BPTR *cur, *next;
  83             cur=(BPTR *)BADDR(cli->cli_CommandDir);
  84             FreeVec(BADDR(cli->cli_SetName));
  85             FreeVec(BADDR(cli->cli_CommandName));
  86             FreeVec(BADDR(cli->cli_CommandFile));
  87             FreeVec(BADDR(cli->cli_Prompt));
  88             FreeMem(ptr,sizeof(struct CommandLineInterface));
  89             while(cur!=NULL)
  90             {
  91                 next=(BPTR *)BADDR(cur[0]);
  92                 UnLock(cur[1]);
  93                 FreeVec(cur);
  94                 cur=next;
  95             }
  96             break;
  97
  98         /*
  99             FreeArgs() will not free a RDArgs without a RDA_DAList,
 100             see that function for more information as to why...
 101         */
 102         case DOS_RDARGS:
 103             if(((struct RDArgs *)ptr)->RDA_DAList != NULL)
 104                 FreeArgs(ptr);
 105             else
 106                 FreeVec(ptr);
 107
 108             break;
 109         }
 110     }
 111     AROS_LIBFUNC_EXIT
 112 } /* FreeDosObject */
 113
 114 void freedospacket(struct DosPacket *dp)
 115 {
 116     FreeVec((APTR)(((APTR)dp)-(APTR)(&((struct StandardPacket *)0)->sp_Pkt)));
 117 }