Branch data Line data Source code
1 : : /* Get CFA expression for frame.
2 : : Copyright (C) 2009-2010 Red Hat, Inc.
3 : : This file is part of elfutils.
4 : :
5 : : This file is free software; you can redistribute it and/or modify
6 : : it under the terms of either
7 : :
8 : : * the GNU Lesser General Public License as published by the Free
9 : : Software Foundation; either version 3 of the License, or (at
10 : : your option) any later version
11 : :
12 : : or
13 : :
14 : : * the GNU General Public License as published by the Free
15 : : Software Foundation; either version 2 of the License, or (at
16 : : your option) any later version
17 : :
18 : : or both in parallel, as here.
19 : :
20 : : elfutils is distributed in the hope that it will be useful, but
21 : : WITHOUT ANY WARRANTY; without even the implied warranty of
22 : : MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
23 : : General Public License for more details.
24 : :
25 : : You should have received copies of the GNU General Public License and
26 : : the GNU Lesser General Public License along with this program. If
27 : : not, see <http://www.gnu.org/licenses/>. */
28 : :
29 : : #ifdef HAVE_CONFIG_H
30 : : # include <config.h>
31 : : #endif
32 : :
33 : : #include "cfi.h"
34 : : #include <dwarf.h>
35 : : #include <stdlib.h>
36 : :
37 : : int
38 : 14662 : dwarf_frame_cfa (Dwarf_Frame *fs, Dwarf_Op **ops, size_t *nops)
39 : : {
40 : : /* Maybe there was a previous error. */
41 [ - + ]: 14662 : if (fs == NULL)
42 : : return -1;
43 : :
44 : 14662 : int result = 0;
45 [ - + - - : 14662 : switch (fs->cfa_rule)
- ]
46 : : {
47 : 0 : case cfa_undefined:
48 : 0 : *ops = NULL;
49 : 0 : *nops = 0;
50 : 0 : break;
51 : :
52 : 14662 : case cfa_offset:
53 : : /* The Dwarf_Op was already fully initialized by execute_cfi. */
54 : 14662 : *ops = &fs->cfa_data.offset;
55 : 14662 : *nops = 1;
56 : 14662 : break;
57 : :
58 : 0 : case cfa_expr:
59 : : /* Parse the expression into internal form. */
60 : 0 : mutex_lock (fs->cache->lock);
61 : 0 : result = __libdw_intern_expression
62 : 0 : (NULL, fs->cache->other_byte_order,
63 : 0 : fs->cache->e_ident[EI_CLASS] == ELFCLASS32 ? 4 : 8, 4,
64 [ # # ]: 0 : &fs->cache->expr_tree, &fs->cfa_data.expr, false, false,
65 : : ops, nops, IDX_debug_frame);
66 : 0 : mutex_unlock (fs->cache->lock);
67 : 0 : break;
68 : :
69 : 0 : case cfa_invalid:
70 : 0 : __libdw_seterrno (DWARF_E_INVALID_CFI);
71 : 0 : result = -1;
72 : 0 : break;
73 : :
74 : 0 : default:
75 : 0 : abort ();
76 : : }
77 : :
78 : : return result;
79 : : }
|