Mercurial > octave-nkf
annotate liboctave/util/unwind-prot.cc @ 20354:227d582fa300 stable
build: Sort generated PKG_ADD contents consistently
* libinterp/mk-pkg-add: Set LC_COLLATE=C when sorting for consistent output.
author | Mike Miller <mtmiller@octave.org> |
---|---|
date | Fri, 10 Jul 2015 01:10:30 -0400 |
parents | 4197fc428c7d |
children |
rev | line source |
---|---|
1 | 1 /* |
2 | |
19731
4197fc428c7d
maint: Update copyright notices for 2015.
John W. Eaton <jwe@octave.org>
parents:
17744
diff
changeset
|
3 Copyright (C) 1993-2015 John W. Eaton |
9376
d58086453171
refactor unwind_protect
Jaroslav Hajek <highegg@gmail.com>
parents:
8920
diff
changeset
|
4 Copyright (C) 2009 VZLU Prague |
1 | 5 |
6 This file is part of Octave. | |
7 | |
8 Octave is free software; you can redistribute it and/or modify it | |
9 under the terms of the GNU General Public License as published by the | |
7016 | 10 Free Software Foundation; either version 3 of the License, or (at your |
11 option) any later version. | |
1 | 12 |
13 Octave is distributed in the hope that it will be useful, but WITHOUT | |
14 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or | |
15 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License | |
16 for more details. | |
17 | |
18 You should have received a copy of the GNU General Public License | |
7016 | 19 along with Octave; see the file COPYING. If not, see |
20 <http://www.gnu.org/licenses/>. | |
1 | 21 |
22 */ | |
23 | |
240 | 24 #ifdef HAVE_CONFIG_H |
1192 | 25 #include <config.h> |
1 | 26 #endif |
27 | |
17552
d07d59cc8775
move unwind-protect to liboctave
John W. Eaton <jwe@octave.org>
parents:
16892
diff
changeset
|
28 #include "lo-error.h" |
1 | 29 #include "unwind-prot.h" |
30 | |
17552
d07d59cc8775
move unwind-protect to liboctave
John W. Eaton <jwe@octave.org>
parents:
16892
diff
changeset
|
31 void |
d07d59cc8775
move unwind-protect to liboctave
John W. Eaton <jwe@octave.org>
parents:
16892
diff
changeset
|
32 unwind_protect_safe::gripe_exception (void) |
2985 | 33 { |
10066
2cd940306a06
make unwind_protect frames local
Jaroslav Hajek <highegg@gmail.com>
parents:
9394
diff
changeset
|
34 // FIXME: can this throw an exception? |
17552
d07d59cc8775
move unwind-protect to liboctave
John W. Eaton <jwe@octave.org>
parents:
16892
diff
changeset
|
35 |
d07d59cc8775
move unwind-protect to liboctave
John W. Eaton <jwe@octave.org>
parents:
16892
diff
changeset
|
36 (*current_liboctave_error_handler) |
d07d59cc8775
move unwind-protect to liboctave
John W. Eaton <jwe@octave.org>
parents:
16892
diff
changeset
|
37 ("internal: unhandled exception in unwind_protect handler"); |
1 | 38 } |