diff options
author | Tristan Gingold <tgingold@free.fr> | 2017-02-18 05:38:35 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2017-02-21 04:47:55 +0100 |
commit | 4f237c5199bcf7ee7f75996588b91b36f23f16ca (patch) | |
tree | bcba02adc2b243f2882ebc2f3cd34c6ddc3a48a1 /src/libraries.adb | |
parent | 663ebfd4f5f6d6143126e1900255decd6aef0b29 (diff) | |
download | ghdl-4f237c5199bcf7ee7f75996588b91b36f23f16ca.tar.gz ghdl-4f237c5199bcf7ee7f75996588b91b36f23f16ca.tar.bz2 ghdl-4f237c5199bcf7ee7f75996588b91b36f23f16ca.zip |
Disable warnings while analyzing dependences.
Diffstat (limited to 'src/libraries.adb')
-rw-r--r-- | src/libraries.adb | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/src/libraries.adb b/src/libraries.adb index 7359b1bc6..1dfd8dea9 100644 --- a/src/libraries.adb +++ b/src/libraries.adb @@ -1693,7 +1693,9 @@ package body Libraries is end Load_Parse_Design_Unit; -- Load, parse, analyze, back-end a design_unit if necessary. - procedure Load_Design_Unit (Design_Unit: Iir_Design_Unit; Loc : Iir) is + procedure Load_Design_Unit (Design_Unit: Iir_Design_Unit; Loc : Iir) + is + Warnings : Warnings_Setting; begin if Get_Date_State (Design_Unit) = Date_Disk then Load_Parse_Design_Unit (Design_Unit, Loc); @@ -1711,7 +1713,16 @@ package body Libraries is -- Avoid infinite recursion, if the unit is self-referenced. Set_Date_State (Design_Unit, Date_Analyze); + -- Disable all warnings. Warnings are emitted only when the unit + -- is analyzed. + Save_Warnings_Setting (Warnings); + Disable_All_Warnings; + + -- Analyze unit. Finish_Compilation (Design_Unit); + + -- Restore warnings. + Restore_Warnings_Setting (Warnings); end if; case Get_Date (Design_Unit) is |