diff options
Diffstat (limited to 'gcc/ada/put_scos.adb')
| -rw-r--r-- | gcc/ada/put_scos.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/ada/put_scos.adb b/gcc/ada/put_scos.adb index 32427df7817..1ff3cb3aefd 100644 --- a/gcc/ada/put_scos.adb +++ b/gcc/ada/put_scos.adb @@ -82,6 +82,7 @@ procedure Put_SCOs is procedure Write_SCO_Initiate (SU : SCO_Unit_Index) is SUT : SCO_Unit_Table_Entry renames SCO_Unit_Table.Table (SU); + begin if Current_SCO_Unit /= SU then Write_Info_Initiate ('C'); @@ -126,7 +127,7 @@ begin T : SCO_Table_Entry renames SCO_Table.Table (Start); Continuation : Boolean; - Ctr : Nat; + Ctr : Nat; -- Counter for statement entries begin |