aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--src/ortho/oread/ortho_front.adb7
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;