diff options
| author | Robert Dewar <dewar@adacore.com> | 2012-11-06 10:09:01 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-11-06 11:09:01 +0100 |
| commit | a9b9fbf664de2ab613586fa8795e4decb774393a (patch) | |
| tree | 580960e8e362807d1ac103a3c14bc104260b1f4a /gcc/ada/xoscons.adb | |
| parent | 7028ce0d3916755b930332f6796f3c0911ae04e8 (diff) | |
| download | gcc-a9b9fbf664de2ab613586fa8795e4decb774393a.zip gcc-a9b9fbf664de2ab613586fa8795e4decb774393a.tar.gz gcc-a9b9fbf664de2ab613586fa8795e4decb774393a.tar.bz2 | |
sem_ch9.adb, [...]: Minor reformatting.
2012-11-06 Robert Dewar <dewar@adacore.com>
* sem_ch9.adb, exp_vfpt.adb, xoscons.adb: Minor reformatting.
From-SVN: r193223
Diffstat (limited to 'gcc/ada/xoscons.adb')
| -rw-r--r-- | gcc/ada/xoscons.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/ada/xoscons.adb b/gcc/ada/xoscons.adb index d0f068e..74b76c9 100644 --- a/gcc/ada/xoscons.adb +++ b/gcc/ada/xoscons.adb @@ -442,7 +442,6 @@ procedure XOSCons is Ada_Ofile, C_Ofile : Sfile; Current_Line : in out Integer) is - function Get_Value (Name : String) return Int_Value_Type; -- Returns the value of the variable Name @@ -465,15 +464,16 @@ procedure XOSCons is end loop; -- Not found returns 0 + return (True, 0); end if; end Get_Value; - Sline : Slice_Set; + -- Local variables + Sline : Slice_Set; Line : String (1 .. 256); Last : Integer; - Value1 : Int_Value_Type; Value2 : Int_Value_Type; Res : Boolean; |