From b79f73df6aed1b1411b1b505bc5dd48e9ed78609 Mon Sep 17 00:00:00 2001 From: Jeff Law Date: Fri, 4 Sep 1998 19:11:54 -0600 Subject: * Chill runtime moved into toplevel libchill. * Makefile.in Revamped due to move. Add multilib support. * configure.in: Similarly. Use autoconf. * powerset.h: Do not depend on BITS_PER_UNIT. From-SVN: r22238 --- libchill/terminate.c | 60 ++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 60 insertions(+) create mode 100644 libchill/terminate.c (limited to 'libchill/terminate.c') diff --git a/libchill/terminate.c b/libchill/terminate.c new file mode 100644 index 00000000000..ea2044eb066 --- /dev/null +++ b/libchill/terminate.c @@ -0,0 +1,60 @@ +/* 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 "config.h" +#include +#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); +} -- cgit v1.2.1