diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-06-18 15:08:10 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-06-18 15:08:10 +0200 |
| commit | 4d777a71629bda30655fd79a2163f153104c5a2e (patch) | |
| tree | da95480f46e19e23308bfee58ded17c3a9de0b42 /gcc/ada/g-pehage.adb | |
| parent | 90d28ec7acb1b585938462df0570a2c731983a31 (diff) | |
| download | gcc-4d777a71629bda30655fd79a2163f153104c5a2e.tar.gz | |
[multiple changes]
2010-06-18 Robert Dewar <dewar@adacore.com>
* sem_eval.adb (Eval_Conditional_Expression): Result is static if
condition and both sub-expressions are static (and result is selected
expression).
2010-06-18 Robert Dewar <dewar@adacore.com>
* g-pehage.adb: Minor reformatting
2010-06-18 Pascal Obry <obry@adacore.com>
* prj-nmsc.adb (Search_Directories): Insert canonical filenames into
source hash table.
From-SVN: r160988
Diffstat (limited to 'gcc/ada/g-pehage.adb')
| -rw-r--r-- | gcc/ada/g-pehage.adb | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/gcc/ada/g-pehage.adb b/gcc/ada/g-pehage.adb index b63bc7a804d..71629a056b8 100644 --- a/gcc/ada/g-pehage.adb +++ b/gcc/ada/g-pehage.adb @@ -31,7 +31,7 @@ -- -- ------------------------------------------------------------------------------ -with Ada.IO_Exceptions; use Ada.IO_Exceptions; +with Ada.IO_Exceptions; use Ada.IO_Exceptions; with Ada.Characters.Handling; use Ada.Characters.Handling; with GNAT.Heap_Sort_G; @@ -215,8 +215,8 @@ package body GNAT.Perfect_Hash_Generators is -- Output a title and a vertex table function Ada_File_Base_Name (Pkg_Name : String) return String; - -- Return the base file name (i.e. without .ads/.adb extension) for an Ada - -- source file containing the named package, using the standard GNAT + -- Return the base file name (i.e. without .ads/.adb extension) for an + -- Ada source file containing the named package, using the standard GNAT -- file-naming convention. For example, if Pkg_Name is "Parent.Child", we -- return "parent-child". @@ -1495,6 +1495,7 @@ package body GNAT.Perfect_Hash_Generators is begin File := Create_File (FName, Binary); + if File = Invalid_FD then raise Program_Error with "cannot create: " & FName; end if; @@ -1518,6 +1519,7 @@ package body GNAT.Perfect_Hash_Generators is FName (FName'Last) := 'b'; -- Set to body file name File := Create_File (FName, Binary); + if File = Invalid_FD then raise Program_Error with "cannot create: " & FName; end if; |