diff options
| author | bosch <bosch@138bc75d-0d04-0410-961f-82ee72b054a4> | 2003-03-04 20:14:59 +0000 |
|---|---|---|
| committer | bosch <bosch@138bc75d-0d04-0410-961f-82ee72b054a4> | 2003-03-04 20:14:59 +0000 |
| commit | 15f50c412b28a433a01a751d3ea608976d826e42 (patch) | |
| tree | 468e170ab74680bf828abe7663ade351abdcebfe /gcc/ada/a-except.adb | |
| parent | d68c6656d0f26a07b0507db4ddaa6db2a23d8634 (diff) | |
| download | ppe42-gcc-15f50c412b28a433a01a751d3ea608976d826e42.tar.gz ppe42-gcc-15f50c412b28a433a01a751d3ea608976d826e42.zip | |
ada/9911
* a-except.adb (Unwind_RaiseException): Import a GNAT specific
wrapper, which name remains constant whatever underlying GCC
scheme.
* raise.c (__gnat_Unwind_RaiseException): New wrappers, providing
the stable interface needed for a-except.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@63795 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/a-except.adb')
| -rw-r--r-- | gcc/ada/a-except.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/a-except.adb b/gcc/ada/a-except.adb index e18d0e8fa53..979f11e41c9 100644 --- a/gcc/ada/a-except.adb +++ b/gcc/ada/a-except.adb @@ -199,7 +199,7 @@ package body Ada.Exceptions is function Unwind_RaiseException (E : access GNAT_GCC_Exception) return Unwind_Reason_Code; - pragma Import (C, Unwind_RaiseException, "_Unwind_RaiseException"); + pragma Import (C, Unwind_RaiseException, "__gnat_Unwind_RaiseException"); ----------------------- -- Local Subprograms -- |
