From 3185942a5234e26ab13fa02f9c51d340cec514f8 Mon Sep 17 00:00:00 2001 From: Jari Aalto Date: Mon, 12 Jan 2009 13:36:28 +0000 Subject: Imported from ../bash-4.0-rc1.tar.gz. --- unwind_prot.c | 34 +++++++++++++++++++++------------- 1 file changed, 21 insertions(+), 13 deletions(-) (limited to 'unwind_prot.c') diff --git a/unwind_prot.c b/unwind_prot.c index 4fd194e8..9e150a66 100644 --- a/unwind_prot.c +++ b/unwind_prot.c @@ -1,23 +1,25 @@ +/* unwind_prot.c - a simple unwind-protect system for internal variables */ + /* I can't stand it anymore! Please can't we just write the whole Unix system in lisp or something? */ -/* Copyright (C) 1987-2002 Free Software Foundation, Inc. +/* Copyright (C) 1987-2009 Free Software Foundation, Inc. -This file is part of GNU Bash, the Bourne Again SHell. + This file is part of GNU Bash, the Bourne Again SHell. -Bash 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. + Bash 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 3 of the License, or + (at your option) any later version. -Bash 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. + Bash 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 Bash; see the file COPYING. If not, write to the Free Software -Foundation, 59 Temple Place, Suite 330, Boston, MA 02111 USA. */ + You should have received a copy of the GNU General Public License + along with Bash. If not, see . +*/ /* **************************************************************** */ /* */ @@ -174,6 +176,12 @@ clear_unwind_protect_list (flags) } } +int +have_unwind_protects () +{ + return (unwind_protect_list != 0); +} + /* **************************************************************** */ /* */ /* The Actual Functions */ -- cgit v1.2.1