diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2015-01-06 10:53:40 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2015-01-06 10:53:40 +0100 |
| commit | 8d1359c77334511c56e62e1ae6b0b65e4003e930 (patch) | |
| tree | c97bb16df64b364a5a9589a9fc4a6299e2b90dc9 /gcc/ada/xoscons.adb | |
| parent | fb153d02da077fb18f52372dab68a8cc52ea3a54 (diff) | |
| download | gcc-8d1359c77334511c56e62e1ae6b0b65e4003e930.zip gcc-8d1359c77334511c56e62e1ae6b0b65e4003e930.tar.gz gcc-8d1359c77334511c56e62e1ae6b0b65e4003e930.tar.bz2 | |
[multiple changes]
2015-01-06 Robert Dewar <dewar@adacore.com>
* s-valint.adb, s-valuns.adb (Value_Integer): Deal with case where
Str'Last = Positive'Last
2015-01-06 Thomas Quinot <quinot@adacore.com>
* xoscons.adb: Display exception information and return non-zero
exit status in top level exception handler.
From-SVN: r219242
Diffstat (limited to 'gcc/ada/xoscons.adb')
| -rw-r--r-- | gcc/ada/xoscons.adb | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/gcc/ada/xoscons.adb b/gcc/ada/xoscons.adb index 095101f5..3d5bfab 100644 --- a/gcc/ada/xoscons.adb +++ b/gcc/ada/xoscons.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2008-2013, Free Software Foundation, Inc. -- +-- Copyright (C) 2008-2014, 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- -- @@ -47,6 +47,7 @@ pragma Warnings (Off); with System.Unsigned_Types; use System.Unsigned_Types; pragma Warnings (On); +with GNAT.OS_Lib; with GNAT.String_Split; use GNAT.String_Split; with GNAT.Table; @@ -700,6 +701,7 @@ begin Close (Tmpl_File); exception - when others => - Put_Line ("xoscons <base_name>"); + when E : others => + Put_Line ("raised " & Ada.Exceptions.Exception_Information (E)); + GNAT.OS_Lib.OS_Exit (1); end XOSCons; |