diff options
-rw-r--r-- | gcc/ch/runtime/exhstack.c | 40 |
1 files changed, 40 insertions, 0 deletions
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 <setjmp.h> +#include "rtltypes.h" + +typedef void (*init_ptr) (); +typedef int * tasking_ptr; + +static TExceptionHandlerStack *__exceptionStack; + +TExceptionHandlerStack * __getexceptionStack () +{ + return __exceptionStack; +} + +void __setexceptionStack (TExceptionHandlerStack *new) +{ + __exceptionStack = new; +} |