/* 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 (empty)

/*
 * function __terminate
 *
 * parameter:
 *  ptr			pointer to memory to free
 *  filename            source file which issued the call
 *  linenumber          line number of the call within that file
 *
 * returns:
 *  void
 *
 * exceptions:
 *  empty
 *
 * abstract:
 *  free memory previously allocated by __allocate.
 *
*/

void
__terminate (ptr, filename, linenumber)
     void *ptr;
     char *filename;
     int linenumber;
{
  if (! ptr)
    __cause_ex1 ("empty", filename, linenumber);
  free (ptr);
}