diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-31 11:24:32 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-31 11:24:32 +0200 |
| commit | e0c321665e3261e01f9c5b94279f954c06be74ad (patch) | |
| tree | d7cbb2015383eadc95cb3ad402303d45cff77cea /gcc/ada/init.c | |
| parent | 11bc76df472d71d80fd669d2d5966030a8ae4ea1 (diff) | |
| download | gcc-e0c321665e3261e01f9c5b94279f954c06be74ad.zip gcc-e0c321665e3261e01f9c5b94279f954c06be74ad.tar.gz gcc-e0c321665e3261e01f9c5b94279f954c06be74ad.tar.bz2 | |
[multiple changes]
2011-08-31 Robert Dewar <dewar@adacore.com>
* exp_ch5.adb, exp_ch7.ads, sem_ch5.adb, put_scos.adb, s-rannum.adb,
a-rbtgbo.adb, exp_intr.adb, a-cbdlli.adb, a-cbdlli.ads: Minor
reformatting.
2011-08-31 Hristian Kirtchev <kirtchev@adacore.com>
* exp_util.adb (Find_Protection_Type): Do not look for fields _object
if the corresponding type is malformed due to restriction violations.
2011-08-31 Robert Dewar <dewar@adacore.com>
* s-ransee.ads, s-ransee.adb: Minor reformatting.
2011-08-31 Hristian Kirtchev <kirtchev@adacore.com>
* exp_ch4.adb (Expand_N_Allocator): Correct faulty condition which
would cause the generation of Set_Finalize_Address if the target is a
VM and the designated type is not derived from [Limited_]Controlled.
2011-08-31 Arnaud Charlet <charlet@adacore.com>
* comperr.adb, comperr.ads, gnat1drv.adb (Delete_SCIL_Files): New
subprogram.
(Compiler_Abort, Gnat1drv): Call Delete_SCIL_Files in codepeer mode in
case of a compilation error.
2011-08-31 Hristian Kirtchev <kirtchev@adacore.com>
* init.c (__gnat_error_handler): Standardize the stack overflow or
erroneous memory access message.
* seh_init.c (__gnat_SEH_error_handler): Standardize the stack overflow
or erroneous memory access message.
From-SVN: r178368
Diffstat (limited to 'gcc/ada/init.c')
| -rw-r--r-- | gcc/ada/init.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gcc/ada/init.c b/gcc/ada/init.c index 9601dc6..0e6fb11 100644 --- a/gcc/ada/init.c +++ b/gcc/ada/init.c @@ -358,7 +358,7 @@ __gnat_error_handler (int sig, siginfo_t *si, void *ucontext) ((volatile char *) ((long) si->si_addr & - getpagesize ()))[getpagesize ()]; exception = &storage_error; - msg = "stack overflow (or erroneous memory access)"; + msg = "stack overflow or erroneous memory access"; } break; @@ -644,7 +644,7 @@ __gnat_error_handler (int sig, siginfo_t *si ATTRIBUTE_UNUSED, void *ucontext) that this is quite acceptable, since a "real" SIGSEGV can only occur as the result of an erroneous program. */ exception = &storage_error; - msg = "stack overflow (or erroneous memory access)"; + msg = "stack overflow or erroneous memory access"; break; case SIGBUS: @@ -824,7 +824,7 @@ __gnat_error_handler (int sig, siginfo_t *reason, void *uc ATTRIBUTE_UNUSED) the stack into a guard page, not an attempt to write to .text or something. */ exception = &storage_error; - msg = "SIGSEGV: (stack overflow or erroneous memory access)"; + msg = "SIGSEGV: stack overflow or erroneous memory access"; } else { @@ -1022,7 +1022,7 @@ __gnat_error_handler (int sig, siginfo_t *si, void *ucontext ATTRIBUTE_UNUSED) ((volatile char *) ((long) si->si_addr & - getpagesize ()))[getpagesize ()]; exception = &storage_error; - msg = "stack overflow (or erroneous memory access)"; + msg = "stack overflow or erroneous memory access"; } break; @@ -1421,7 +1421,7 @@ __gnat_handle_vms_condition (int *sigargs, void *mechargs) else { exception = &storage_error; - msg = "stack overflow (or erroneous memory access)"; + msg = "stack overflow or erroneous memory access"; } __gnat_adjust_context_for_raise (SS$_ACCVIO, (void *)mechargs); break; |