diff options
| author | Tristan Gingold <gingold@adacore.com> | 2013-10-14 13:06:44 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-10-14 15:06:44 +0200 |
| commit | e443f142047e2a9f67dd859e77d26d94fa3241e8 (patch) | |
| tree | 67a482fe81e10cfe634ac5d4ee42783847372e6e /gcc/ada/raise.h | |
| parent | 5a015f2bbd6ac66c55aceb510c7a8c522f8f6948 (diff) | |
| download | gcc-e443f142047e2a9f67dd859e77d26d94fa3241e8.zip gcc-e443f142047e2a9f67dd859e77d26d94fa3241e8.tar.gz gcc-e443f142047e2a9f67dd859e77d26d94fa3241e8.tar.bz2 | |
cstand.adb (Create_Standard): Change Import_Code component of Standard_Exception_Type to Foreign_Data.
2013-10-14 Tristan Gingold <gingold@adacore.com>
* cstand.adb (Create_Standard): Change Import_Code component
of Standard_Exception_Type to Foreign_Data. Its type is now
Standard_A_Char (access to character).
* exp_prag.adb (Expand_Pragma_Import_Export_Exception): Adjust
definition of Code to match the type of Foreign_Data.
* s-stalib.ads (Exception_Data): Replace Import_Code by Foreign_Data
Change the definition of standard predefined exceptions.
(Exception_Code): Remove.
* raise.h (Exception_Code): Remove (Exception_Data): Replace
Import_Code field by Foreign_Data.
* rtsfind.ads (RE_Exception_Code): Remove
(RE_Import_Address): Add.
* a-exexpr-gcc.adb (Import_Code_For): Replaced by Foreign_Data_For.
* exp_ch11.adb (Expand_N_Exception_Declaration): Associate null
to Foreign_Data component.
* raise-gcc.c (Import_Code_For): Replaced by Foreign_Data_For.
(is_handled_by): Add comments. Use replaced function. Change
condition so that an Ada occurrence is never handled by
Foreign_Exception.
* s-exctab.adb (Internal_Exception): Associate Null_Address to
Foreign_Data component.
* s-vmexta.adb, s-vmexta.ads (Exception_Code): Declare Replace
SSL.Exception_Code by Exception_Code.
From-SVN: r203538
Diffstat (limited to 'gcc/ada/raise.h')
| -rw-r--r-- | gcc/ada/raise.h | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/gcc/ada/raise.h b/gcc/ada/raise.h index 5761154..8f699bc 100644 --- a/gcc/ada/raise.h +++ b/gcc/ada/raise.h @@ -6,7 +6,7 @@ * * * C Header File * * * - * Copyright (C) 1992-2012, Free Software Foundation, Inc. * + * Copyright (C) 1992-2013, 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- * @@ -35,15 +35,14 @@ extern "C" { /* C counterparts of what System.Standard_Library defines. */ -typedef unsigned Exception_Code; - struct Exception_Data { char Not_Handled_By_Others; char Lang; int Name_Length; - char *Full_Name, *Htable_Ptr; - Exception_Code Import_Code; + char *Full_Name; + char *Htable_Ptr; + void *Foreign_Data; void (*Raise_Hook)(void); }; |