diff options
| author | Arnaud Charlet <charlet@adacore.com> | 2010-06-16 16:30:48 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-06-16 18:30:48 +0200 |
| commit | 25adc5fbf5c9ac211442106de78cba432212449c (patch) | |
| tree | c15915818fefe732dbe57105e1e89f4316dbd193 /gcc/ada/scos.adb | |
| parent | e1578ff354a8d03c4c46eaef6825d0b77885d6a3 (diff) | |
| download | gcc-25adc5fbf5c9ac211442106de78cba432212449c.zip gcc-25adc5fbf5c9ac211442106de78cba432212449c.tar.gz gcc-25adc5fbf5c9ac211442106de78cba432212449c.tar.bz2 | |
get_scos.adb, [...]: Code clean up, update documentation.
* get_scos.adb, par_sco.adb, par_sco.ads, put_scos.adb, scos.adb,
scos.ads, exp_ch4.adb, sem_warn.adb: Code clean up, update
documentation.
From-SVN: r160849
Diffstat (limited to 'gcc/ada/scos.adb')
| -rw-r--r-- | gcc/ada/scos.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/ada/scos.adb b/gcc/ada/scos.adb index c559e6f..3c0caee 100644 --- a/gcc/ada/scos.adb +++ b/gcc/ada/scos.adb @@ -34,10 +34,11 @@ package body SCOs is To : Source_Location := No_Source_Location; C1 : Character := ' '; C2 : Character := ' '; + Node : Node_Id := Empty; Last : Boolean := False) is begin - SCO_Table.Append ((From, To, C1, C2, Last)); + SCO_Table.Append ((From, To, Node, C1, C2, Last)); end Add_SCO; ---------------- |