From 25adc5fbf5c9ac211442106de78cba432212449c Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Wed, 16 Jun 2010 16:30:48 +0000 Subject: 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 --- gcc/ada/scos.adb | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'gcc/ada/scos.adb') 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; ---------------- -- cgit v1.1