diff options
Diffstat (limited to 'src/ortho')
-rw-r--r-- | src/ortho/oread/ortho_front.adb | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/ortho/oread/ortho_front.adb b/src/ortho/oread/ortho_front.adb index e6bf6b6a3..e82b56d00 100644 --- a/src/ortho/oread/ortho_front.adb +++ b/src/ortho/oread/ortho_front.adb @@ -3075,6 +3075,13 @@ package body Ortho_Front is end if; Next_Token; return; + when Tok_Line_Number => + Next_Expect (Tok_Num); + if Flag_Renumber = False then + New_Debug_Line_Decl (Natural (Token_Number)); + end if; + Next_Token; + return; when others => Parse_Error ("declaration expected"); end case; |