diff options
Diffstat (limited to 'gcc/ada/put_alfa.adb')
| -rw-r--r-- | gcc/ada/put_alfa.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/put_alfa.adb b/gcc/ada/put_alfa.adb index 58021145d1b..d8819200e21 100644 --- a/gcc/ada/put_alfa.adb +++ b/gcc/ada/put_alfa.adb @@ -141,8 +141,6 @@ begin Write_Info_Char (S.Scope_Name (N)); end loop; - File := F.File_Num; - Scope := S.Scope_Num; Entity_Line := 0; Entity_Col := 0; @@ -175,6 +173,8 @@ begin Entity_Line := R.Entity_Line; Entity_Col := R.Entity_Col; + File := F.File_Num; + Scope := S.Scope_Num; end if; if Write_Info_Col > 72 then |