diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2016-04-21 10:48:04 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2016-04-21 10:48:04 +0200 |
| commit | 08f52d9f8462f6d35a82fe51818929fc563b4285 (patch) | |
| tree | d48fa71938d552b7b9b48fb1a0a0bf1bc6acb1a9 /gcc/ada/tracebak.c | |
| parent | b943a971133bb727c28aaaa705b93c7f6f7a5fb4 (diff) | |
| download | gcc-08f52d9f8462f6d35a82fe51818929fc563b4285.zip gcc-08f52d9f8462f6d35a82fe51818929fc563b4285.tar.gz gcc-08f52d9f8462f6d35a82fe51818929fc563b4285.tar.bz2 | |
[multiple changes]
2016-04-21 Philippe Gil <gil@adacore.com>
* tracebak.c (__gnat_backtrace): handle bad RIP values (win64 only)
2016-04-21 Javier Miranda <miranda@adacore.com>
* exp_aggr.adb (Component_Not_OK_For_Backend): Return true for string
literals.
2016-04-21 Hristian Kirtchev <kirtchev@adacore.com>
* einfo.adb (Has_Non_Null_Abstract_State): New routine.
* einfo.ads New synthesized attribute
Has_Non_Null_Abstract_State along with occurrences in entities.
(Has_Non_Null_Abstract_State): New routine.
* sem_ch7.adb (Unit_Requires_Body): Add local variable
Requires_Body. A package declaring an abstract state requires
a body only when the state is non-null and the package contains
at least one other construct that requires completion in a body.
* sem_util.adb (Mode_Is_Off): Removed.
(Requires_State_Refinement): Remove an obsolete check. Code
cleanup.
2016-04-21 Bob Duff <duff@adacore.com>
* sem_attr.adb (Analyze_Attribute): In processing
the 'Old attribute, a warning is given for infinite recursion. Fix
the code to not crash when the prefix of 'Old denotes a protected
function.
* sem_ch5.adb (Analyze_Iterator_Specification):
Avoid calling Is_Dependent_Component_Of_Mutable_Object in cases
where the parameter would not be an object.
2016-04-21 Eric Botcazou <ebotcazou@adacore.com>
* sem_eval.adb (Compile_Time_Compare): Be prepared for an empty
Etype or Underlying_Type of the operands.
2016-04-21 Eric Botcazou <ebotcazou@adacore.com>
* atree.adb (Print_Statistics): Protect against overflows and
print the memory consumption in bytes.
* table.adb (Reallocate): Do the intermediate calculation of the new
size using the Memory.size_t type.
From-SVN: r235312
Diffstat (limited to 'gcc/ada/tracebak.c')
| -rw-r--r-- | gcc/ada/tracebak.c | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/gcc/ada/tracebak.c b/gcc/ada/tracebak.c index ff85ca5..dceac0d 100644 --- a/gcc/ada/tracebak.c +++ b/gcc/ada/tracebak.c @@ -6,7 +6,7 @@ * * * C Implementation File * * * - * Copyright (C) 2000-2015, Free Software Foundation, Inc. * + * Copyright (C) 2000-2016, Free Software Foundation, Inc. * * * * GNAT is free software; you can redistribute it and/or modify it under * * terms of the GNU General Public License as published by the Free Soft- * @@ -99,6 +99,8 @@ extern void (*Unlock_Task) (void); #include <windows.h> +#define IS_BAD_PTR(ptr) (IsBadCodePtr((FARPROC)ptr)) + int __gnat_backtrace (void **array, int size, @@ -137,6 +139,10 @@ __gnat_backtrace (void **array, } else { + /* If the last unwinding step failed somehow, stop here. */ + if (IS_BAD_PTR(context.Rip)) + break; + /* Unwind. */ memset (&NvContext, 0, sizeof (KNONVOLATILE_CONTEXT_POINTERS)); RtlVirtualUnwind (0, ImageBase, context.Rip, RuntimeFunction, |