diff options
author | gingold <gingold@b72b5c32-5f01-0410-b925-b5c7b92870f7> | 2010-01-12 03:15:20 +0000 |
---|---|---|
committer | gingold <gingold@b72b5c32-5f01-0410-b925-b5c7b92870f7> | 2010-01-12 03:15:20 +0000 |
commit | fb5957a16dea47ae4021c5d4c57b980cea02ee59 (patch) | |
tree | abdfbed5924f5be4418f74a0afe50b248e41c330 /options.adb | |
parent | 8cca0b24e2c19eedecffdeec89a8a2898da1e362 (diff) | |
download | ghdl-fb5957a16dea47ae4021c5d4c57b980cea02ee59.tar.gz ghdl-fb5957a16dea47ae4021c5d4c57b980cea02ee59.tar.bz2 ghdl-fb5957a16dea47ae4021c5d4c57b980cea02ee59.zip |
ghdl 0.29 release.
Diffstat (limited to 'options.adb')
-rw-r--r-- | options.adb | 18 |
1 files changed, 17 insertions, 1 deletions
diff --git a/options.adb b/options.adb index 80eeadb2d..e95456f9c 100644 --- a/options.adb +++ b/options.adb @@ -18,11 +18,23 @@ with Ada.Text_IO; use Ada.Text_IO; with Name_Table; with Libraries; +with Std_Names; +with PSL.Nodes; +with PSL.Dump_Tree; +with Disp_Tree; with Scan; with Back_End; use Back_End; with Flags; use Flags; package body Options is + procedure Initialize is + begin + Std_Names.Std_Names_Initialize; + Libraries.Init_Pathes; + PSL.Nodes.Init; + PSL.Dump_Tree.Dump_Hdl_Node := Disp_Tree.Disp_Tree_For_Psl'Access; + end Initialize; + function Option_Warning (Opt: String; Val : Boolean) return Boolean is begin -- if Opt = "undriven" then @@ -106,6 +118,9 @@ package body Options is Flag_Vital_Checks := False; elsif Opt = "--vital-checks" then Flag_Vital_Checks := True; + elsif Opt = "-fpsl" then + Scan.Flag_Psl_Comment := True; + Scan.Flag_Comment_Keyword := True; elsif Opt = "-dp" then Dump_Parse := True; elsif Opt = "-ds" then @@ -196,11 +211,12 @@ package body Options is -- P (" --assert-level=LEVEL set the level which stop the"); -- P (" simulation. LEVEL is note, warning, error,"); -- P (" failure or none"); - P ("Illegal extensions:"); + P ("Extensions:"); P (" -fexplicit give priority to explicitly declared operator"); P (" -C --mb-comments allow multi-bytes chars in a comment"); P (" --bootstrap allow --work=std"); P (" --syn-binding use synthesis default binding rule"); + P (" -fpsl parse psl in comments"); P ("Compilation list:"); P (" -ls after semantics"); P (" -lc after canon"); |