Mercurial > hg > CbC > CbC_gcc

comparison gcc/config/alpha/vms-unwind.h @ 0:a06113de4d67

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
first commit
author kent <kent@cr.ie.u-ryukyu.ac.jp>
date Fri, 17 Jul 2009 14:47:48 +0900
parents
children 77e2b8dfacca
comparison
equal deleted inserted replaced
-1:000000000000 0:a06113de4d67
1 /* DWARF2 EH unwinding support for Alpha VMS.
2 Copyright (C) 2004, 2007 Free Software Foundation, Inc.
3
4 This file is part of GCC.
5
6 GCC is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation; either version 3, or (at your option)
9 any later version.
10
11 GCC is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
15
16 You should have received a copy of the GNU General Public License
17 along with GCC; see the file COPYING3. If not see
18 <http://www.gnu.org/licenses/>. */
19
20 #include <pdscdef.h>
21
22 #define MD_FALLBACK_FRAME_STATE_FOR alpha_fallback_frame_state
23
24 static _Unwind_Reason_Code
25 alpha_fallback_frame_state (struct _Unwind_Context *context,
26 _Unwind_FrameState *fs)
27 {
28 PDSCDEF *pv = *((PDSCDEF **) context->reg [29]);
29
30 if (pv && ((long) pv & 0x7) == 0) /* low bits 0 means address */
31 pv = *(PDSCDEF **) pv;
32
33 if (pv && ((pv->pdsc$w_flags & 0xf) == PDSC$K_KIND_FP_STACK))
34 {
35 int i, j;
36
37 fs->regs.cfa_offset = pv->pdsc$l_size;
38 fs->regs.cfa_reg = pv->pdsc$w_flags & PDSC$M_BASE_REG_IS_FP ? 29 : 30;
39 fs->retaddr_column = 26;
40 fs->regs.cfa_how = CFA_REG_OFFSET;
41 fs->regs.reg[27].loc.offset = -pv->pdsc$l_size;
42 fs->regs.reg[27].how = REG_SAVED_OFFSET;
43 fs->regs.reg[26].loc.offset
44 = -(pv->pdsc$l_size - pv->pdsc$w_rsa_offset);
45 fs->regs.reg[26].how = REG_SAVED_OFFSET;
46
47 for (i = 0, j = 0; i < 32; i++)
48 if (1<<i & pv->pdsc$l_ireg_mask)
49 {
50 fs->regs.reg[i].loc.offset
51 = -(pv->pdsc$l_size - pv->pdsc$w_rsa_offset - 8 * ++j);
52 fs->regs.reg[i].how = REG_SAVED_OFFSET;
53 }
54
55 return _URC_NO_REASON;
56 }
57 else if (pv && ((pv->pdsc$w_flags & 0xf) == PDSC$K_KIND_FP_REGISTER))
58 {
59 fs->regs.cfa_offset = pv->pdsc$l_size;
60 fs->regs.cfa_reg = pv->pdsc$w_flags & PDSC$M_BASE_REG_IS_FP ? 29 : 30;
61 fs->retaddr_column = 26;
62 fs->regs.cfa_how = CFA_REG_OFFSET;
63 fs->regs.reg[26].loc.reg = pv->pdsc$b_save_ra;
64 fs->regs.reg[26].how = REG_SAVED_REG;
65 fs->regs.reg[29].loc.reg = pv->pdsc$b_save_fp;
66 fs->regs.reg[29].how = REG_SAVED_REG;
67
68 return _URC_NO_REASON;
69 }
70 return _URC_END_OF_STACK;
71 }