1 /* Darwin/powerpc host-specific hook definitions.
2 Copyright (C) 2003 Free Software Foundation, Inc.
4 This file is part of GCC.
6 GCC is free software; you can redistribute it and/or modify it
7 under the terms of the GNU General Public License as published
8 by the Free Software Foundation; either version 2, or (at your
9 option) any later version.
11 GCC is distributed in the hope that it will be useful, but WITHOUT
12 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
13 or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public
14 License for more details.
16 You should have received a copy of the GNU General Public License
17 along with GCC; see the file COPYING. If not, write to the
18 Free Software Foundation, 59 Temple Place - Suite 330, Boston,
19 MA 02111-1307, USA. */
23 #include "coretypes.h"
25 #include <sys/ucontext.h>
26 #include "hosthooks.h"
27 #include "hosthooks-def.h"
29 #include "diagnostic.h"
31 static void segv_crash_handler
PARAMS ((int));
32 static void segv_handler
PARAMS ((int, siginfo_t
*, void *));
33 static void darwin_rs6000_extra_signals
PARAMS ((void));
35 /* No prototype for this, filed as Radar 3150910. */
36 extern int sigaltstack(const stack_t
*, stack_t
*);
38 #undef HOST_HOOKS_EXTRA_SIGNALS
39 #define HOST_HOOKS_EXTRA_SIGNALS darwin_rs6000_extra_signals
41 /* On Darwin/powerpc, hitting the stack limit turns into a SIGSEGV.
42 This code detects the difference between hitting the stack limit and
43 a true wild pointer dereference by looking at the instruction that
44 faulted; only a few kinds of instruction are used to access below
45 the previous bottom of the stack. */
48 segv_crash_handler (sig
)
49 int sig ATTRIBUTE_UNUSED
;
51 internal_error ("Segmentation Fault (code)");
55 segv_handler (sig
, sip
, scp
)
56 int sig ATTRIBUTE_UNUSED
;
57 siginfo_t
*sip ATTRIBUTE_UNUSED
;
60 ucontext_t
*uc
= (ucontext_t
*)scp
;
61 unsigned faulting_insn
;
63 /* The fault might have happened when trying to run some instruction, in
64 which case the next line will segfault _again_. Handle this case. */
65 signal (SIGSEGV
, segv_crash_handler
);
67 faulting_insn
= *(unsigned *)uc
->uc_mcontext
->ss
.srr0
;
69 /* Note that this only has to work for GCC, so we don't have to deal
70 with all the possible cases (GCC has no AltiVec code, for
71 instance). It's complicated because Darwin allows stores to
72 below the stack pointer, and the prologue code takes advantage of
75 if ((faulting_insn
& 0xFFFF8000) == 0x94218000 /* stwu %r1, -xxx(%r1) */
76 || (faulting_insn
& 0xFFFF03FF) == 0x7C21016E /* stwux %r1, xxx, %r1 */
77 || (faulting_insn
& 0xFC1F8000) == 0x90018000 /* stw xxx, -yyy(%r1) */
78 || (faulting_insn
& 0xFC1F8000) == 0xD8018000 /* stfd xxx, -yyy(%r1) */
79 || (faulting_insn
& 0xFC1F8000) == 0xBC018000 /* stmw xxx, -yyy(%r1) */)
83 fnotice (stderr
, "Out of stack space.\n");
84 shell_name
= getenv ("SHELL");
85 if (shell_name
!= NULL
)
86 shell_name
= strrchr (shell_name
, '/');
87 if (shell_name
!= NULL
)
89 static const char * shell_commands
[][2] = {
90 { "sh", "ulimit -S -s unlimited" },
91 { "bash", "ulimit -S -s unlimited" },
92 { "tcsh", "limit stacksize unlimited" },
93 { "csh", "limit stacksize unlimited" },
94 /* zsh doesn't have "unlimited", this will work under the
95 default configuration. */
96 { "zsh", "limit stacksize 32m" }
100 for (i
= 0; i
< ARRAY_SIZE (shell_commands
); i
++)
101 if (strcmp (shell_commands
[i
][0], shell_name
+ 1) == 0)
104 "Try running `%s' in the shell to raise its limit.\n",
105 shell_commands
[i
][1]);
109 if (global_dc
->abort_on_error
)
112 exit (FATAL_EXIT_CODE
);
115 fprintf (stderr
, "[address=%08lx pc=%08x]\n",
116 uc
->uc_mcontext
->es
.dar
, uc
->uc_mcontext
->ss
.srr0
);
117 internal_error ("Segmentation Fault");
118 exit (FATAL_EXIT_CODE
);
122 darwin_rs6000_extra_signals ()
124 struct sigaction sact
;
127 sigstk
.ss_sp
= xmalloc (SIGSTKSZ
);
128 sigstk
.ss_size
= SIGSTKSZ
;
130 if (sigaltstack (&sigstk
, NULL
) < 0)
131 fatal_error ("While setting up signal stack: %m");
133 sigemptyset(&sact
.sa_mask
);
134 sact
.sa_flags
= SA_ONSTACK
| SA_SIGINFO
;
135 sact
.sa_sigaction
= segv_handler
;
136 if (sigaction (SIGSEGV
, &sact
, 0) < 0)
137 fatal_error ("While setting up signal handler: %m");
140 const struct host_hooks host_hooks
= HOST_HOOKS_INITIALIZER
;