Mercurial > hg > octave-avbm

comparison src/unwind-prot.cc @ 240:a99f28f5e351

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1993-11-30 20:24:36 by jwe]
author jwe
date Tue, 30 Nov 1993 20:24:36 +0000
parents 78fd87e624cb
children 393e95f46b51
comparison
equal deleted inserted replaced
239:4f8134fa54a9 240:a99f28f5e351
19 along with Octave; see the file COPYING. If not, write to the Free 19 along with Octave; see the file COPYING. If not, write to the Free
20 Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. 20 Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
21 21
22 */ 22 */
23 23
24 #ifdef __GNUG__ 24 #ifdef HAVE_CONFIG_H
25 #pragma implementation 25 #include "config.h"
26 #endif 26 #endif
27 27
28 #include <stddef.h> 28 #include <stddef.h>
29 29
30 #include "SLStack.h" 30 #include "SLStack.h"
32 #include "Matrix.h" 32 #include "Matrix.h"
33 33
34 #include "unwind-prot.h" 34 #include "unwind-prot.h"
35 #include "error.h" 35 #include "error.h"
36 #include "utils.h" 36 #include "utils.h"
37
38 class unwind_elem
39 {
40 public:
41 unwind_elem (void);
42 unwind_elem (char *t);
43 unwind_elem (cleanup_func f, void *p);
44 unwind_elem (const unwind_elem& el);
45 ~unwind_elem (void);
46
47 unwind_elem& operator = (const unwind_elem& el);
48
49 char *tag (void);
50 cleanup_func fptr (void);
51 void *ptr (void);
52
53 private:
54 char *_tag;
55 cleanup_func _fptr;
56 void *_ptr;
57 };
58 37
59 unwind_elem::unwind_elem (void) 38 unwind_elem::unwind_elem (void)
60 { 39 {
61 _tag = (char *) NULL; 40 _tag = (char *) NULL;
62 _fptr = (cleanup_func) NULL; 41 _fptr = (cleanup_func) NULL;