diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-07-27 15:56:38 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-07-27 15:56:38 +0200 |
| commit | cff7cd9b1336236660bf486021063e96271cf137 (patch) | |
| tree | f16eced7a23d13f12e1181ad22bb2d9e4fc942d1 /gcc/ada/a-exexpr.adb | |
| parent | 57036dccfcf8e3da00e71cd00ed4a9c3825b3ad9 (diff) | |
| download | gcc-cff7cd9b1336236660bf486021063e96271cf137.zip gcc-cff7cd9b1336236660bf486021063e96271cf137.tar.gz gcc-cff7cd9b1336236660bf486021063e96271cf137.tar.bz2 | |
[multiple changes]
2009-07-27 Robert Dewar <dewar@adacore.com>
* sem_util.adb, sem_util.ads (Kill_Current_Values): Reset Is_Known_Valid
2009-07-27 Javier Miranda <miranda@adacore.com>
* exp_disp.adb (Expand_Dispatching_Call): Reverse previous patch and
add some documentation explaining why the SCIL nodes must be generated
at that point.
2009-07-27 Olivier Hainque <hainque@adacore.com>
* a-except.adb: Bind to __builtin_longjmp directly.
* a-except-2005.ads: Provide direct binding to __builtin_longjmp
for sjlj variants.
* a-exexpr.adb: Use it.
* a-except-xi.adb: Likewise.
* raise.c (_gnat_builtin_longjmp): Remove and update comments.
* raise.h (_gnat_builtin_longjmp): Remove declaration.
From-SVN: r150119
Diffstat (limited to 'gcc/ada/a-exexpr.adb')
| -rw-r--r-- | gcc/ada/a-exexpr.adb | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/gcc/ada/a-exexpr.adb b/gcc/ada/a-exexpr.adb index 13b7d79..e3ae5b0 100644 --- a/gcc/ada/a-exexpr.adb +++ b/gcc/ada/a-exexpr.adb @@ -41,10 +41,6 @@ pragma Warnings (Off); separate (Ada.Exceptions) package body Exception_Propagation is - procedure builtin_longjmp (buffer : Address; Flag : Integer); - pragma No_Return (builtin_longjmp); - pragma Import (C, builtin_longjmp, "_gnat_builtin_longjmp"); - --------------------- -- Setup_Exception -- --------------------- @@ -114,7 +110,7 @@ package body Exception_Propagation is Exception_Traces.Notify_Handled_Exception; end if; - builtin_longjmp (Jumpbuf_Ptr, 1); + builtin_longjmp (To_Jmpbuf_Address (Jumpbuf_Ptr), 1); else Exception_Traces.Notify_Unhandled_Exception; |