]> git.ipfire.org Git - thirdparty/gcc.git/commit
cstand.adb (Create_Standard): Change Import_Code component of Standard_Exception_Type...
authorTristan Gingold <gingold@adacore.com>
Mon, 14 Oct 2013 13:06:44 +0000 (13:06 +0000)
committerArnaud Charlet <charlet@gcc.gnu.org>
Mon, 14 Oct 2013 13:06:44 +0000 (15:06 +0200)
commite443f142047e2a9f67dd859e77d26d94fa3241e8
tree67a482fe81e10cfe634ac5d4ee42783847372e6e
parent5a015f2bbd6ac66c55aceb510c7a8c522f8f6948
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
12 files changed:
gcc/ada/ChangeLog
gcc/ada/a-exexpr-gcc.adb
gcc/ada/cstand.adb
gcc/ada/exp_ch11.adb
gcc/ada/exp_prag.adb
gcc/ada/raise-gcc.c
gcc/ada/raise.h
gcc/ada/rtsfind.ads
gcc/ada/s-exctab.adb
gcc/ada/s-stalib.ads
gcc/ada/s-vmexta.adb
gcc/ada/s-vmexta.ads