home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / forth / pfe-0.000 / pfe-0 / pfe-0.9.13 / src / memory.c < prev    next >
Encoding:
C/C++ Source or Header  |  1995-07-17  |  1.9 KB  |  74 lines
  1. /*
  2.  * This file is part of the portable Forth environment written in ANSI C.
  3.  * Copyright (C) 1995  Dirk Uwe Zoller
  4.  *
  5.  * This library is free software; you can redistribute it and/or
  6.  * modify it under the terms of the GNU Library General Public
  7.  * License as published by the Free Software Foundation; either
  8.  * version 2 of the License, or (at your option) any later version.
  9.  *
  10.  * This library is distributed in the hope that it will be useful,
  11.  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  12.  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
  13.  * See the GNU Library General Public License for more details.
  14.  *
  15.  * You should have received a copy of the GNU Library General Public
  16.  * License along with this library; if not, write to the Free
  17.  * Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  18.  *
  19.  * This file is version 0.9.13 of 17-July-95
  20.  * Check for the latest version of this package via anonymous ftp at
  21.  *    roxi.rz.fht-mannheim.de:/pub/languages/forth/pfe-VERSION.tar.gz
  22.  * or    sunsite.unc.edu:/pub/languages/forth/pfe-VERSION.tar.gz
  23.  * or    ftp.cygnus.com:/pub/forth/pfe-VERSION.tar.gz
  24.  *
  25.  * Please direct any comments via internet to
  26.  *    duz@roxi.rz.fht-mannheim.de.
  27.  * Thank You.
  28.  */
  29. /*
  30.  * memory.c ---               The Optional Memory Allocation Word Set
  31.  * (duz 08Jul93)
  32.  */
  33.  
  34. #include "forth.h"
  35.  
  36. #include <stdlib.h>
  37. #include <errno.h>
  38.  
  39. #include "missing.h"
  40.  
  41. Code (allocate)
  42. {
  43.   if ((*sp = (Cell) malloc ((size_t) * sp)) != 0)
  44.     *--sp = 0;
  45.   else
  46.     *--sp = errno;
  47. }
  48.  
  49. Code (free)
  50. {
  51.   errno = 0;
  52.   free (*(void **) sp);
  53.   *sp = errno;
  54. }
  55.  
  56. Code (resize)
  57. {
  58.   void *p = realloc ((void *) sp[1], (size_t) sp[0]);
  59.  
  60.   if (p == NULL)
  61.     sp[0] = errno;
  62.   else
  63.     sp[1] = (Cell) p, sp[0] = 0;
  64. }
  65.  
  66. /* *INDENT-OFF* */
  67. LISTWORDS (memory) =
  68. {
  69.   CO ("ALLOCATE",    allocate),
  70.   CO ("FREE",        free),
  71.   CO ("RESIZE",        resize)
  72. };
  73. COUNTWORDS (memory, "Memory allocation");
  74.