diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-04-23 11:47:13 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-04-23 11:47:13 +0200 |
| commit | 2fabf41e29b234852ef2d099977c27af9a24ec3f (patch) | |
| tree | d37af54c35810e69eca39dff8f27afd13612dfa5 /gcc/ada/xoscons.adb | |
| parent | dd4e47ab99609cdc7187ff284dff04e54cf4950d (diff) | |
| download | gcc-2fabf41e29b234852ef2d099977c27af9a24ec3f.zip gcc-2fabf41e29b234852ef2d099977c27af9a24ec3f.tar.gz gcc-2fabf41e29b234852ef2d099977c27af9a24ec3f.tar.bz2 | |
[multiple changes]
2013-04-23 Robert Dewar <dewar@adacore.com>
* sem_util.adb, sem_res.adb, prj-tree.adb, prj-tree.ads: Minor
reformatting.
2013-04-23 Pascal Obry <obry@adacore.com>
* xoscons.adb: Remove unused use clause, minor code clean-up.
From-SVN: r198182
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 74b76c9..2aafe08 100644 --- a/gcc/ada/xoscons.adb +++ b/gcc/ada/xoscons.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2008-2012, Free Software Foundation, Inc. -- +-- Copyright (C) 2008-2013, 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- -- @@ -55,7 +55,6 @@ with XUtil; use XUtil; procedure XOSCons is use Ada.Strings; - use ASCII; Unit_Name : constant String := Argument (1); Tmpl_Name : constant String := Unit_Name & "-tmplt"; @@ -442,6 +441,7 @@ 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 @@ -516,7 +516,7 @@ procedure XOSCons is Current_Line := Current_Line + 1; exit when Line (1 .. Last) = "@END_IF"; - if Line (1 .. 4) = "@IF " then + if Last > 4 and then Line (1 .. 4) = "@IF " then Parse_Cond (Line (1 .. Last), Res, Tmpl_File, Ada_Ofile, C_Ofile, Current_Line); |