diff options
author | Tristan Gingold <tgingold@free.fr> | 2018-11-25 20:07:00 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2018-11-26 20:19:15 +0100 |
commit | 44404214d370d226428e315da946d41ccf141507 (patch) | |
tree | 5741a66f5e0def695965664dbe0397e309a2cfad /src/vhdl/iirs.ads | |
parent | d570ee98eaa200cc1bbf481035aa3bb1680504db (diff) | |
download | ghdl-44404214d370d226428e315da946d41ccf141507.tar.gz ghdl-44404214d370d226428e315da946d41ccf141507.tar.bz2 ghdl-44404214d370d226428e315da946d41ccf141507.zip |
Keep source file entry in design file to avoid searching the file.
Diffstat (limited to 'src/vhdl/iirs.ads')
-rw-r--r-- | src/vhdl/iirs.ads | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/vhdl/iirs.ads b/src/vhdl/iirs.ads index 7e3479421..1214237b0 100644 --- a/src/vhdl/iirs.ads +++ b/src/vhdl/iirs.ads @@ -204,6 +204,8 @@ package Iirs is -- -- Get/Set_Last_Design_Unit (Field6) -- + -- Get/Set_Design_File_Source (Field7) + -- -- Identifier for the design file file name and dirname. -- Get/Set_Design_File_Filename (Field12) -- Get/Set_Design_File_Directory (Field11) @@ -5871,6 +5873,10 @@ package Iirs is function Get_Analysis_Time_Stamp (Design : Iir) return Time_Stamp_Id; procedure Set_Analysis_Time_Stamp (Design : Iir; Stamp : Time_Stamp_Id); + -- Field: Field7 (uc) + function Get_Design_File_Source (Design : Iir) return Source_File_Entry; + procedure Set_Design_File_Source (Design : Iir; Sfe : Source_File_Entry); + -- The library which FILE belongs to. -- Field: Field0 Ref function Get_Library (File : Iir_Design_File) return Iir; |