diff options
author | gingold <gingold@b72b5c32-5f01-0410-b925-b5c7b92870f7> | 2008-09-06 03:24:23 +0000 |
---|---|---|
committer | gingold <gingold@b72b5c32-5f01-0410-b925-b5c7b92870f7> | 2008-09-06 03:24:23 +0000 |
commit | db0dacf3b4a07f26c317d7cda0c6f8882e511f88 (patch) | |
tree | 5a4e45f543f458deba660baed7d0aacfe2751322 /options.adb | |
parent | b42e36e23f23a0d27e7b08d6cb4461237720de3b (diff) | |
download | ghdl-db0dacf3b4a07f26c317d7cda0c6f8882e511f88.tar.gz ghdl-db0dacf3b4a07f26c317d7cda0c6f8882e511f88.tar.bz2 ghdl-db0dacf3b4a07f26c317d7cda0c6f8882e511f88.zip |
New feature: all-sensitized processes (for vhdl 2008)
Diffstat (limited to 'options.adb')
-rw-r--r-- | options.adb | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/options.adb b/options.adb index 36aeb2105..80eeadb2d 100644 --- a/options.adb +++ b/options.adb @@ -12,7 +12,7 @@ -- for more details. -- -- You should have received a copy of the GNU General Public License --- along with GCC; see the file COPYING. If not, write to the Free +-- along with GHDL; see the file COPYING. If not, write to the Free -- Software Foundation, 59 Temple Place - Suite 330, Boston, MA -- 02111-1307, USA. with Ada.Text_IO; use Ada.Text_IO; @@ -53,7 +53,8 @@ package body Options is return True; end Option_Warning; - function Parse_Option (Opt: String) return Boolean is + function Parse_Option (Opt: String) return Boolean + is Beg: constant Integer := Opt'First; begin if Opt'Length > 5 and then Opt (Beg .. Beg + 5) = "--std=" then @@ -66,6 +67,8 @@ package body Options is Vhdl_Std := Vhdl_00; elsif Opt (Beg + 6 .. Beg + 7) = "02" then Vhdl_Std := Vhdl_02; + elsif Opt (Beg + 6 .. Beg + 7) = "08" then + Vhdl_Std := Vhdl_08; else return False; end if; @@ -173,8 +176,7 @@ package body Options is P (" --work=LIB use LIB as work library"); P (" --workdir=DIR use DIR for the file library"); P (" -PPATH add PATH in the library path list"); - P (" --std=87 select vhdl 87 standard"); - P (" --std=93 select vhdl 93 standard"); + P (" --std=87/93/00/02/08 select vhdl 87/93/00/02/08 standard"); P (" --std=93c select vhdl 93 standard and allow 87 syntax"); P (" --[no-]vital-checks do [not] check VITAL restrictions"); P ("Warnings:"); |