workbench/libs/rexxsyslib/deleteargstring.c

   1 /*
   2         Copyright © 1995-2002, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc:
   6     Lang: english
   7 */
   8 #include "rexxsyslib_intern.h"
   9
  10 #include <stddef.h>
  11
  12 /*****************************************************************************
  13
  14     NAME */
  15 #include <clib/rexxsyslib_protos.h>
  16
  17         AROS_LH1(VOID, DeleteArgstring,
  18
  19 /*  SYNOPSIS */
  20         AROS_LHA(UBYTE *, argstring, A0),
  21
  22 /*  LOCATION */
  23         struct RxsLib *, RexxSysBase, 22, RexxSys)
  24
  25 /*  FUNCTION
  26         Deletes a RexxArg structure previously created with CreateArgstring
  27
  28     INPUTS
  29         Pointer to the string part of the RexxArg structure returned from
  30         CreateArgstring
  31
  32     RESULT
  33         void
  34
  35     NOTES
  36
  37     EXAMPLE
  38
  39     BUGS
  40
  41     SEE ALSO
  42         CreateArgstring()
  43
  44     INTERNALS
  45
  46
  47 *****************************************************************************/
  48 {
  49     AROS_LIBFUNC_INIT
  50
  51     struct RexxArg *ra;
  52
  53     ra = (struct RexxArg *)(argstring - offsetof(struct RexxArg, ra_Buff));
  54     FreeMem(ra, ra->ra_Size);
  55
  56     ReturnVoid("DeleteArgstring");
  57     AROS_LIBFUNC_EXIT
  58 } /* DeleteArgstring */