From cb551490a3a825be576f89810d00c7954f985d53 Mon Sep 17 00:00:00 2001 From: Per Bothner Date: Thu, 27 Aug 1998 13:51:38 -0700 Subject: =?UTF-8?q?=EF=BF=BD=20Migrate=20from=20devo/gcc/ch.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit From-SVN: r22032 --- gcc/ch/runtime/exhstack.c | 40 ++++++++++++++++++++++++++++++++++++++++ 1 file changed, 40 insertions(+) create mode 100644 gcc/ch/runtime/exhstack.c (limited to 'gcc') diff --git a/gcc/ch/runtime/exhstack.c b/gcc/ch/runtime/exhstack.c new file mode 100644 index 0000000..ed3c514 --- /dev/null +++ b/gcc/ch/runtime/exhstack.c @@ -0,0 +1,40 @@ +/* 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" + +typedef void (*init_ptr) (); +typedef int * tasking_ptr; + +static TExceptionHandlerStack *__exceptionStack; + +TExceptionHandlerStack * __getexceptionStack () +{ + return __exceptionStack; +} + +void __setexceptionStack (TExceptionHandlerStack *new) +{ + __exceptionStack = new; +} -- cgit v1.1