aboutsummaryrefslogtreecommitdiff
path: root/gcc/ada/a-exexpr-gcc.adb
diff options
context:
space:
mode:
authorArnaud Charlet <charlet@gcc.gnu.org>2011-08-29 14:38:27 +0200
committerArnaud Charlet <charlet@gcc.gnu.org>2011-08-29 14:38:27 +0200
commitc95aa61c547c0366a3698be8dea47faaac54b6e5 (patch)
tree47c9ebb692db65b23c7bde04163822c20f85bf97 /gcc/ada/a-exexpr-gcc.adb
parent624e168838b4e0b8c9ba2533f517f1b779dc004d (diff)
downloadgcc-c95aa61c547c0366a3698be8dea47faaac54b6e5.zip
gcc-c95aa61c547c0366a3698be8dea47faaac54b6e5.tar.gz
gcc-c95aa61c547c0366a3698be8dea47faaac54b6e5.tar.bz2
[multiple changes]
2011-08-29 Robert Dewar <dewar@adacore.com> * a-convec.adb, exp_disp.adb: Minor reformatting. 2011-08-29 Tristan Gingold <gingold@adacore.com> * a-exexpr-gcc.adb (GNAT_GCC_Exception_Access): Set to convention C. From-SVN: r178213
Diffstat (limited to 'gcc/ada/a-exexpr-gcc.adb')
-rw-r--r--gcc/ada/a-exexpr-gcc.adb1
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/ada/a-exexpr-gcc.adb b/gcc/ada/a-exexpr-gcc.adb
index 66163db..12202d8 100644
--- a/gcc/ada/a-exexpr-gcc.adb
+++ b/gcc/ada/a-exexpr-gcc.adb
@@ -166,6 +166,7 @@ package body Exception_Propagation is
-- to maintain anyway.
type GNAT_GCC_Exception_Access is access all GNAT_GCC_Exception;
+ pragma Convention (C, GNAT_GCC_Exception_Access);
function To_GCC_Exception is new
Unchecked_Conversion (GNAT_GCC_Exception_Access, GCC_Exception_Access);