diff options
Diffstat (limited to 'gcc/ada/ali.adb')
| -rw-r--r-- | gcc/ada/ali.adb | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/gcc/ada/ali.adb b/gcc/ada/ali.adb index bf7ace87a45..4ea38e2eff4 100644 --- a/gcc/ada/ali.adb +++ b/gcc/ada/ali.adb @@ -818,6 +818,7 @@ package body ALI is Last_Unit => No_Unit_Id, Locking_Policy => ' ', Main_Priority => -1, + Main_CPU => -1, Main_Program => None, No_Object => False, Normalize_Scalars => False, @@ -919,6 +920,14 @@ package body ALI is Skip_Space; + if Nextc = 'C' then + P := P + 1; + Checkc ('='); + ALIs.Table (Id).Main_CPU := Get_Nat; + end if; + + Skip_Space; + Checkc ('W'); Checkc ('='); ALIs.Table (Id).WC_Encoding := Getc; |