diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-07-22 17:56:47 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-07-22 17:56:47 +0200 |
| commit | 240fe2a4ac0ed2c262365e8c13d7bc934fb5fc19 (patch) | |
| tree | ee678145b2dde82f9ff47f5337fba7033e2f1e0b /gcc/ada/scos.ads | |
| parent | f7f0159df726567169986a6ab8262a2312409b31 (diff) | |
| download | gcc-240fe2a4ac0ed2c262365e8c13d7bc934fb5fc19.tar.gz | |
[multiple changes]
2009-07-22 Eric Botcazou <ebotcazou@adacore.com>
* exp_aggr.adb (Gen_Loop): Do not qualify the bounds of the range if
they are already of the base type of the index.
2009-07-22 Brett Porter <porter@adacore.com>
* sysdep.c, init.c: Fix typo: _SPE_ should have been __SPE__.
2009-07-22 Robert Dewar <dewar@adacore.com>
* vms_data.ads: Add entry for SCO_OUTPUT (-gnateS)
* gnat_ugn.texi: Add documentation for -gnateS switch
* ug_words: Add entry for -gnateS /SCO_OUTPUT
* gcc-interface/Make-lang.in: Update dependenciest.3
* get_scos.adb, get_scos.ads, gnat1drv.adb, par_sco.adb,
par_sco.ads, put_scos.adb, put_scos.ads, scos.adb, scos.ads: Initial
complete information for SCO input/output.
From-SVN: r149945
Diffstat (limited to 'gcc/ada/scos.ads')
| -rw-r--r-- | gcc/ada/scos.ads | 16 |
1 files changed, 9 insertions, 7 deletions
diff --git a/gcc/ada/scos.ads b/gcc/ada/scos.ads index 0e641624ff3..b1d99e169fa 100644 --- a/gcc/ada/scos.ads +++ b/gcc/ada/scos.ads @@ -210,7 +210,7 @@ package SCOs is Col : Column_Number; end record; - No_Location : Source_Location := (No_Line_Number, No_Column_Number); + No_Source_Location : Source_Location := (No_Line_Number, No_Column_Number); type SCO_Table_Entry is record From : Source_Location; @@ -282,9 +282,8 @@ package SCOs is -- This table keeps track of the units and the corresponding starting and -- ending indexes (From, To) in the SCO table. Note that entry zero is - -- unused, it is for convenience in calling the sort routine. The Info - -- field is an identifier supplied when an entry is built (e.g. in the - -- compiler this is the Unit_Number_Type value. + -- unused, it is for convenience in calling the sort routine. Thus the + -- real lower bound for active entries is 1. type SCO_Unit_Index is new Int; -- Used to index values in this table. Values start at 1 and are assigned @@ -307,7 +306,7 @@ package SCOs is package SCO_Unit_Table is new GNAT.Table ( Table_Component_Type => SCO_Unit_Table_Entry, Table_Index_Type => SCO_Unit_Index, - Table_Low_Bound => 0, + Table_Low_Bound => 0, -- see note above on sorting Table_Initial => 20, Table_Increment => 200); @@ -315,9 +314,12 @@ package SCOs is -- Subprograms -- ----------------- + procedure Initialize; + -- Reset tables for a new compilation + procedure Add_SCO - (From : Source_Location := No_Location; - To : Source_Location := No_Location; + (From : Source_Location := No_Source_Location; + To : Source_Location := No_Source_Location; C1 : Character := ' '; C2 : Character := ' '; Last : Boolean := False); |