/* Implement runtime actions for CHILL.
   Copyright (C) 1992,1993 Free Software Foundation, Inc.
   Author: Wilfried Moser

This file is part of GNU CC.

GNU CC is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2, or (at your option)
any later version.

GNU CC is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with GNU CC; see the file COPYING.  If not, write to
the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */

#define __CHILL_LIB__

#include <stdlib.h>
#include "rtltypes.h"

extern void __cause_ex1 (char *exname, char *file, int lineno);

/* define needed exceptions */
EXCEPTION (protectionfail);
EXCEPTION (rangefail);
EXCEPTION (spacefail);

/*
 * function _allocate_memory
 *
 * parameters:
 *  ptr			pointer to location where pointer should be written
 *  size		number of bytes to allocate
 *  filename            source file which issued the call
 *  linenumber          line number within that source file
 *
 * returns:
 *  void
 *
 * exceptions:
 *  spacefail
 *  protectionfail
 *  rangefail
 *
 * abstract:
 *  allocate memory from heap
 *
*/

void
_allocate_memory (ptr, size, filename, linenumber)
     void **ptr;
     int size;
     char *filename;
     int   linenumber;
{
  void	*tmp;
    
  if (!ptr)
    __cause_ex1 ("protectionfail", filename, linenumber);
  if (size < 0)
    __cause_ex1 ("rangefail", filename, linenumber);
  tmp = malloc (size);
  if (!tmp)
    __cause_ex1 ("spacefail", filename, linenumber);
  *ptr = tmp;
}