diff options
| author | Tristan Gingold <tgingold@free.fr> | 2018-11-16 20:21:21 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2018-11-16 20:21:21 +0100 |
| commit | f05a43bbce85d50b25ab9eba2a15e1fec640133e (patch) | |
| tree | 88c40b490957d8a458ad4a8591cfd34a261ba8fc /src/types.ads | |
| parent | 304e2e2fb74eeb52d8de896fb2742a464e5b2272 (diff) | |
| download | ghdl-f05a43bbce85d50b25ab9eba2a15e1fec640133e.tar.gz ghdl-f05a43bbce85d50b25ab9eba2a15e1fec640133e.tar.bz2 ghdl-f05a43bbce85d50b25ab9eba2a15e1fec640133e.zip | |
errorout: add %s to display strings.
Diffstat (limited to 'src/types.ads')
| -rw-r--r-- | src/types.ads | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/types.ads b/src/types.ads index 519ff94ee..876b3ca01 100644 --- a/src/types.ads +++ b/src/types.ads @@ -83,6 +83,13 @@ package Types is Null_String8 : constant String8_Id := 0; + -- The length of a string is not stored in the string table. Create a + -- tuple that is meaningful. + type String8_Len_Type is record + Str : String8_Id; + Len : Nat32; + end record; + -- Index type is the source file table. -- This table is defined in the files_map package. type Source_File_Entry is new Uns32; |