workbench/libs/rexxsupport/freemem.c

   1 /*
   2     Copyright © 1995-2002, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Rexx stub for FreeMem system function
   6     Lang: English
   7 */
   8
   9 #include <proto/exec.h>
  10 #include <proto/rexxsyslib.h>
  11 #include <exec/types.h>
  12 #include <rexx/storage.h>
  13 #include <rexx/errors.h>
  14
  15 #include <ctype.h>
  16 #include <stdlib.h>
  17
  18 #include "rexxsupport_intern.h"
  19 #include "rxfunctions.h"
  20
  21 LONG rxsupp_freemem(struct Library *RexxSupportBase, struct RexxMsg *msg, UBYTE **argstring)
  22 {
  23     char *end;
  24     ULONG size;
  25     void *mem;
  26
  27     *argstring = NULL;
  28     if (LengthArgstring(ARG1(msg)) != sizeof(void *))
  29         return ERR10_018;
  30
  31     mem = *(void **)ARG1(msg);
  32     size = strtoul(ARG2(msg), &end, 10);
  33     while (isspace(*end)) end++;
  34     if (*end != 0)
  35         return ERR10_018;
  36
  37     FreeMem(mem, size);
  38     *argstring = CreateArgstring("1", 1);
  39     return 0;
  40 }