diff options
| author | Tristan Gingold <gingold@adacore.com> | 2012-05-15 10:17:26 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-05-15 12:17:26 +0200 |
| commit | 0c644c99db0e5a83b8106a25e8346c2ecc250297 (patch) | |
| tree | 80eaa504f086c6fde09e5e8544c13bac2c29a557 /gcc/ada/exp_ch11.ads | |
| parent | a2f6dee8a995f8d62609d3d091d0c96c114d610a (diff) | |
| download | gcc-0c644c99db0e5a83b8106a25e8346c2ecc250297.zip gcc-0c644c99db0e5a83b8106a25e8346c2ecc250297.tar.gz gcc-0c644c99db0e5a83b8106a25e8346c2ecc250297.tar.bz2 | |
fe.h (Get_RT_Exception_Name): Define.
2012-05-15 Tristan Gingold <gingold@adacore.com>
* fe.h (Get_RT_Exception_Name): Define.
* types.ads (RT_Exception_Code): Update comment.
* exp_ch11.adb, exp_ch11.ads (Get_RT_Exception_Name): New
procedure to get the name of the rcheck subprograms.
* a-except-2005.adb (Rcheck_xx): Rename.
* a-except.adb Likewise, but also keep the old Rcheck_nn routines
for bootstrap.
* arith64.c (__gnat_mulv64): Use __gnat_rcheck_CE_Overflow_Check
instead of __gnat_rcheck_10.
* gcc-interface/trans.c (build_raise_check): Use Get_RT_Exception_Name
to create the __gnat_rcheck routines name.
* gcc-interface/Make-lang.in: Update dependencies.
From-SVN: r187517
Diffstat (limited to 'gcc/ada/exp_ch11.ads')
| -rw-r--r-- | gcc/ada/exp_ch11.ads | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/gcc/ada/exp_ch11.ads b/gcc/ada/exp_ch11.ads index a75a2a8..f8ebd83 100644 --- a/gcc/ada/exp_ch11.ads +++ b/gcc/ada/exp_ch11.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2010, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2012, 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- -- @@ -78,6 +78,11 @@ package Exp_Ch11 is -- to determine which Rcheck_nn procedure to call. The returned result is -- the exception entity to be passed to Local_Raise. + procedure Get_RT_Exception_Name (Code : RT_Exception_Code); + -- This procedure is provided for use by the back end to get in the + -- name of the Rcheck procedure for Code. The name is appended to + -- Namet.Name_Buffer, without the __gnat_rcheck_ prefix. + function Is_Non_Ada_Error (E : Entity_Id) return Boolean; -- This function is provided for Gigi use. It returns True if operating on -- VMS, and the argument E is the entity for System.Aux_Dec.Non_Ada_Error. @@ -90,5 +95,4 @@ package Exp_Ch11 is -- handler (and restriction No_Exception_Propagation is set), or if there -- is a local handler marking that it has a local raise. E is the entity -- of the corresponding exception. - end Exp_Ch11; |