diff options
author | Per Bothner <bothner@gcc.gnu.org> | 1998-08-27 13:51:38 -0700 |
---|---|---|
committer | Per Bothner <bothner@gcc.gnu.org> | 1998-08-27 13:51:38 -0700 |
commit | cb551490a3a825be576f89810d00c7954f985d53 (patch) | |
tree | b613a1280a7bff683f4de5134f56ab60e8f7af75 /gcc | |
parent | 5ba6e819ef513bff725602ef1cd94e389f6a4eb8 (diff) | |
download | gcc-cb551490a3a825be576f89810d00c7954f985d53.zip gcc-cb551490a3a825be576f89810d00c7954f985d53.tar.gz gcc-cb551490a3a825be576f89810d00c7954f985d53.tar.bz2 |
�
Migrate from devo/gcc/ch.
From-SVN: r22032
Diffstat (limited to 'gcc')
-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; +} |