diff options
| author | Tristan Gingold <tgingold@free.fr> | 2021-07-20 07:29:56 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2021-07-20 07:29:56 +0200 |
| commit | 088b423572257c3bbe191f6a2eab10b16f214e6c (patch) | |
| tree | 866e079cf21c1a9f8e3f1213fbc27aa1e1b1b81b /src | |
| parent | c55a78a1bb4c86ff8784a6ce470c08797f8f02f6 (diff) | |
| download | ghdl-088b423572257c3bbe191f6a2eab10b16f214e6c.tar.gz ghdl-088b423572257c3bbe191f6a2eab10b16f214e6c.tar.bz2 ghdl-088b423572257c3bbe191f6a2eab10b16f214e6c.zip | |
oread: add support for debug line decl
Diffstat (limited to 'src')
| -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; |