diff options
author | gingold <gingold@b72b5c32-5f01-0410-b925-b5c7b92870f7> | 2009-08-13 04:09:58 +0000 |
---|---|---|
committer | gingold <gingold@b72b5c32-5f01-0410-b925-b5c7b92870f7> | 2009-08-13 04:09:58 +0000 |
commit | 891ddbc416cb7a8303bfac692441b65d272d82f5 (patch) | |
tree | 105909be9f5c878efc0d90225541e179fe1766f7 /name_table.adb | |
parent | f67ca35dcd18b5427c55605de0129917a85a1349 (diff) | |
download | ghdl-891ddbc416cb7a8303bfac692441b65d272d82f5.tar.gz ghdl-891ddbc416cb7a8303bfac692441b65d272d82f5.tar.bz2 ghdl-891ddbc416cb7a8303bfac692441b65d272d82f5.zip |
Now handle vhdl 2008 arrays in the front end.
Bug fixes.
Diffstat (limited to 'name_table.adb')
-rw-r--r-- | name_table.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/name_table.adb b/name_table.adb index 85f65191f..af60ec0b7 100644 --- a/name_table.adb +++ b/name_table.adb @@ -89,9 +89,10 @@ package body Name_Table is if Names_Table.Allocate /= Null_Identifier then raise Program_Error; end if; + Strings_Table.Set_Last (1); Names_Table.Table (Null_Identifier) := (Length => 0, Hash => 0, - Name => 0, + Name => 1, Next => Null_Identifier, Info => 0); -- Store characters. |