Fix Fortran regression with variables in nested functions
[external/binutils.git] / gdb / arch / arm-linux.c
1 /* Common target dependent code for GNU/Linux on ARM systems.
2
3    Copyright (C) 1999-2019 Free Software Foundation, Inc.
4
5    This file is part of GDB.
6
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 3 of the License, or
10    (at your option) any later version.
11
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.
16
17    You should have received a copy of the GNU General Public License
18    along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
19
20 #include "gdbsupport/common-defs.h"
21 #include "gdbsupport/common-regcache.h"
22 #include "arch/arm.h"
23 #include "arm-linux.h"
24 #include "arch/arm-get-next-pcs.h"
25
26 /* Calculate the offset from stack pointer of the pc register on the stack
27    in the case of a sigreturn or sigreturn_rt syscall.  */
28 int
29 arm_linux_sigreturn_next_pc_offset (unsigned long sp,
30                                     unsigned long sp_data,
31                                     unsigned long svc_number,
32                                     int is_sigreturn)
33 {
34   /* Offset of R0 register.  */
35   int r0_offset = 0;
36   /* Offset of PC register.  */
37   int pc_offset = 0;
38
39   if (is_sigreturn)
40     {
41       if (sp_data == ARM_NEW_SIGFRAME_MAGIC)
42         r0_offset = ARM_UCONTEXT_SIGCONTEXT + ARM_SIGCONTEXT_R0;
43       else
44         r0_offset = ARM_SIGCONTEXT_R0;
45     }
46   else
47     {
48       if (sp_data == sp + ARM_OLD_RT_SIGFRAME_SIGINFO)
49         r0_offset = ARM_OLD_RT_SIGFRAME_UCONTEXT;
50       else
51         r0_offset = ARM_NEW_RT_SIGFRAME_UCONTEXT;
52
53       r0_offset += ARM_UCONTEXT_SIGCONTEXT + ARM_SIGCONTEXT_R0;
54     }
55
56   pc_offset = r0_offset + ARM_INT_REGISTER_SIZE * ARM_PC_REGNUM;
57
58   return pc_offset;
59 }
60
61 /* Implementation of "fixup" method of struct arm_get_next_pcs_ops
62    for arm-linux.  */
63
64 CORE_ADDR
65 arm_linux_get_next_pcs_fixup (struct arm_get_next_pcs *self,
66                               CORE_ADDR nextpc)
67 {
68   /* The Linux kernel offers some user-mode helpers in a high page.  We can
69      not read this page (as of 2.6.23), and even if we could then we
70      couldn't set breakpoints in it, and even if we could then the atomic
71      operations would fail when interrupted.  They are all (tail) called
72      as functions and return to the address in LR.  However, when GDB single
73      step this instruction, this instruction isn't executed yet, and LR
74      may not be updated yet.  In other words, GDB can get the target
75      address from LR if this instruction isn't BL or BLX.  */
76   if (nextpc > 0xffff0000)
77     {
78       int bl_blx_p = 0;
79       CORE_ADDR pc = regcache_read_pc (self->regcache);
80       int pc_incr = 0;
81
82       if (self->ops->is_thumb (self))
83         {
84           unsigned short inst1
85             = self->ops->read_mem_uint (pc, 2, self->byte_order_for_code);
86
87           if (bits (inst1, 8, 15) == 0x47 && bit (inst1, 7))
88             {
89               /* BLX Rm */
90               bl_blx_p = 1;
91               pc_incr = 2;
92             }
93           else if (thumb_insn_size (inst1) == 4)
94             {
95               unsigned short inst2;
96
97               inst2 = self->ops->read_mem_uint (pc + 2, 2,
98                                                 self->byte_order_for_code);
99
100               if ((inst1 & 0xf800) == 0xf000 && bits (inst2, 14, 15) == 0x3)
101                 {
102                   /* BL <label> and BLX <label> */
103                   bl_blx_p = 1;
104                   pc_incr = 4;
105                 }
106             }
107
108           pc_incr = MAKE_THUMB_ADDR (pc_incr);
109         }
110       else
111         {
112           unsigned int insn
113             = self->ops->read_mem_uint (pc, 4, self->byte_order_for_code);
114
115           if (bits (insn, 28, 31) == INST_NV)
116             {
117               if (bits (insn, 25, 27) == 0x5) /* BLX <label> */
118                 bl_blx_p = 1;
119             }
120           else
121             {
122               if (bits (insn, 24, 27) == 0xb  /* BL <label> */
123                   || bits (insn, 4, 27) == 0x12fff3 /* BLX Rm */)
124                 bl_blx_p = 1;
125             }
126
127           pc_incr = 4;
128         }
129
130       /* If the instruction BL or BLX, the target address is the following
131          instruction of BL or BLX, otherwise, the target address is in LR
132          already.  */
133       if (bl_blx_p)
134         nextpc = pc + pc_incr;
135       else
136         nextpc = regcache_raw_get_unsigned (self->regcache, ARM_LR_REGNUM);
137     }
138   return nextpc;
139 }