diff options
| author | Tristan Gingold | 2015-09-02 18:25:59 +0200 |
|---|---|---|
| committer | Tristan Gingold | 2015-09-02 18:25:59 +0200 |
| commit | 26af2bf1ad5f949e05d0e3ac560bbd22e41d7158 (patch) | |
| tree | f6cb5bd691edb9fb30f720b854f35d10fcb718d0 /src/ortho/oread | |
| parent | 510ff8938793c0cc883bdf2a5f5adfdd95f77880 (diff) | |
| download | ghdl-26af2bf1ad5f949e05d0e3ac560bbd22e41d7158.tar.gz ghdl-26af2bf1ad5f949e05d0e3ac560bbd22e41d7158.tar.bz2 ghdl-26af2bf1ad5f949e05d0e3ac560bbd22e41d7158.zip | |
mcode: fix alignment of structure (thinko).
Diffstat (limited to 'src/ortho/oread')
| -rw-r--r-- | src/ortho/oread/ortho_front.adb | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/ortho/oread/ortho_front.adb b/src/ortho/oread/ortho_front.adb index abb5fda..75cc96a 100644 --- a/src/ortho/oread/ortho_front.adb +++ b/src/ortho/oread/ortho_front.adb @@ -1040,6 +1040,9 @@ package body Ortho_Front is begin Next_Token; Base_Node := Parse_Type; + if Base_Node.Kind /= Type_Array then + Parse_Error ("subarray base type is not an array type"); + end if; Expect (Tok_Left_Brack); Next_Token; Res_Type := New_Constrained_Array_Type |