diff options
Diffstat (limited to 'gcc/ada/scos.adb')
| -rw-r--r-- | gcc/ada/scos.adb | 22 |
1 files changed, 20 insertions, 2 deletions
diff --git a/gcc/ada/scos.adb b/gcc/ada/scos.adb index e5dfcd2..c559e6f 100644 --- a/gcc/ada/scos.adb +++ b/gcc/ada/scos.adb @@ -25,9 +25,13 @@ package body SCOs is + ------------- + -- Add_SCO -- + ------------- + 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) @@ -36,4 +40,18 @@ package body SCOs is SCO_Table.Append ((From, To, C1, C2, Last)); end Add_SCO; + ---------------- + -- Initialize -- + ---------------- + + procedure Initialize is + begin + SCO_Table.Init; + SCO_Unit_Table.Init; + + -- Set dummy zeroth entry for sort routine, real entries start at 1 + + SCO_Unit_Table.Increment_Last; + end Initialize; + end SCOs; |