1 /* Definitions for frame unwinder, for GDB, the GNU debugger.
3 Copyright 2003, 2004 Free Software Foundation, Inc.
5 This file is part of GDB.
7 This program is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 2 of the License, or
10 (at your option) any later version.
12 This program is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with this program; if not, write to the Free Software
19 Foundation, Inc., 59 Temple Place - Suite 330,
20 Boston, MA 02111-1307, USA. */
24 #include "frame-unwind.h"
25 #include "gdb_assert.h"
26 #include "dummy-frame.h"
27 #include "gdb_obstack.h"
29 static struct gdbarch_data
*frame_unwind_data
;
31 struct frame_unwind_table_entry
33 frame_unwind_sniffer_ftype
*sniffer
;
34 const struct frame_unwind
*unwinder
;
35 struct frame_unwind_table_entry
*next
;
38 struct frame_unwind_table
40 struct frame_unwind_table_entry
*head
;
41 struct frame_unwind_table_entry
**tail
;
45 frame_unwind_init (struct obstack
*obstack
)
47 struct frame_unwind_table
*table
48 = OBSTACK_ZALLOC (obstack
, struct frame_unwind_table
);
49 table
->head
= OBSTACK_ZALLOC (obstack
, struct frame_unwind_table_entry
);
50 table
->head
->sniffer
= dummy_frame_sniffer
;
51 table
->tail
= &table
->head
->next
;
56 frame_unwind_append_sniffer (struct gdbarch
*gdbarch
,
57 frame_unwind_sniffer_ftype
*sniffer
)
59 struct frame_unwind_table
*table
= gdbarch_data (gdbarch
, frame_unwind_data
);
60 (*table
->tail
) = GDBARCH_OBSTACK_ZALLOC (gdbarch
, struct frame_unwind_table_entry
);
61 (*table
->tail
)->sniffer
= sniffer
;
62 table
->tail
= &((*table
->tail
)->next
);
66 frame_unwind_register_unwinder (struct gdbarch
*gdbarch
,
67 const struct frame_unwind
*unwinder
)
69 struct frame_unwind_table
*table
= gdbarch_data (gdbarch
, frame_unwind_data
);
70 (*table
->tail
) = GDBARCH_OBSTACK_ZALLOC (gdbarch
,
71 struct frame_unwind_table_entry
);
72 (*table
->tail
)->unwinder
= unwinder
;
73 table
->tail
= &((*table
->tail
)->next
);
76 const struct frame_unwind
*
77 frame_unwind_find_by_frame (struct frame_info
*next_frame
, void **this_cache
)
80 struct gdbarch
*gdbarch
= get_frame_arch (next_frame
);
81 struct frame_unwind_table
*table
= gdbarch_data (gdbarch
, frame_unwind_data
);
82 struct frame_unwind_table_entry
*entry
;
83 for (entry
= table
->head
; entry
!= NULL
; entry
= entry
->next
)
85 if (entry
->sniffer
!= NULL
)
87 const struct frame_unwind
*desc
= NULL
;
88 desc
= entry
->sniffer (next_frame
);
92 if (entry
->unwinder
!= NULL
)
94 if (entry
->unwinder
->sniffer (entry
->unwinder
, next_frame
,
96 return entry
->unwinder
;
99 return legacy_saved_regs_unwind
;
102 extern initialize_file_ftype _initialize_frame_unwind
; /* -Wmissing-prototypes */
105 _initialize_frame_unwind (void)
107 frame_unwind_data
= gdbarch_data_register_pre_init (frame_unwind_init
);