diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2016-04-18 14:33:46 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2016-04-18 14:33:46 +0200 |
| commit | 520c0201ebc60741a955d451bb6e9cc57c268014 (patch) | |
| tree | 783e6520a642cfa7cdf10a2ad41167a9372dc11b /gcc/ada/osint-c.adb | |
| parent | 274c2cda3e077975c406ae5549813652c4f76289 (diff) | |
| download | gcc-520c0201ebc60741a955d451bb6e9cc57c268014.zip gcc-520c0201ebc60741a955d451bb6e9cc57c268014.tar.gz gcc-520c0201ebc60741a955d451bb6e9cc57c268014.tar.bz2 | |
[multiple changes]
2016-04-18 Arnaud Charlet <charlet@adacore.com>
* osint-c.ads, osint-c.adb (Delete_C_File, Delete_H_File): New.
* gnat1drv.adb (Gnat1drv): Delete old C files before regenerating them.
* debug.adb: Reserve -gnatd.4 to force generation of C files.
2016-04-18 Yannick Moy <moy@adacore.com>
* sem_eval.adb (Eval_Arithmetic_Op): Do not issue error on static
division by zero, instead possibly issue a warning.
* sem_res.adb (Resolve_Arithmetic_Op): Do not issue error on
static division by zero, instead add check flag on original
expression.
* sem_util.adb, sem_util.ads (Compile_Time_Constraint_Error):
Only issue error when both SPARK_Mode is On and Warn is False.
2016-04-18 Yannick Moy <moy@adacore.com>
* checks.adb (Apply_Scalar_Range_Check): Force
warning instead of error when SPARK_Mode is On, on index out of
bounds, and set check flag for GNATprove.
From-SVN: r235138
Diffstat (limited to 'gcc/ada/osint-c.adb')
| -rw-r--r-- | gcc/ada/osint-c.adb | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/gcc/ada/osint-c.adb b/gcc/ada/osint-c.adb index a24a5a7..919f188 100644 --- a/gcc/ada/osint-c.adb +++ b/gcc/ada/osint-c.adb @@ -292,6 +292,28 @@ package body Osint.C is end if; end Debug_File_Eol_Length; + ------------------- + -- Delete_C_File -- + ------------------- + + procedure Delete_C_File is + Dummy : Boolean; + begin + Set_File_Name ("c"); + Delete_File (Name_Buffer (1 .. Name_Len), Dummy); + end Delete_C_File; + + ------------------- + -- Delete_H_File -- + ------------------- + + procedure Delete_H_File is + Dummy : Boolean; + begin + Set_File_Name ("h"); + Delete_File (Name_Buffer (1 .. Name_Len), Dummy); + end Delete_H_File; + --------------------------------- -- Get_Output_Object_File_Name -- --------------------------------- |