diff options
author | Tristan Gingold <tgingold@free.fr> | 2019-06-24 22:07:30 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2019-06-25 18:12:07 +0200 |
commit | cd012609781465b65bbe3b1ef8e1fe4fa9c8398d (patch) | |
tree | 3ad4716784b36ec3a990524bc0a530440c8a3d76 /src/vhdl/translate | |
parent | 2cc51506353d819639dcfce2d4e9bb9407a67a6d (diff) | |
download | ghdl-cd012609781465b65bbe3b1ef8e1fe4fa9c8398d.tar.gz ghdl-cd012609781465b65bbe3b1ef8e1fe4fa9c8398d.tar.bz2 ghdl-cd012609781465b65bbe3b1ef8e1fe4fa9c8398d.zip |
Error_Msg_Option: do not raise exception.
Diffstat (limited to 'src/vhdl/translate')
-rw-r--r-- | src/vhdl/translate/ortho_front.adb | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/vhdl/translate/ortho_front.adb b/src/vhdl/translate/ortho_front.adb index ea375b1d0..935d5c9d0 100644 --- a/src/vhdl/translate/ortho_front.adb +++ b/src/vhdl/translate/ortho_front.adb @@ -17,16 +17,17 @@ -- 02111-1307, USA. with System; with Interfaces.C_Streams; +with GNAT.OS_Lib; with Types; use Types; with Name_Table; with Hash; with Interning; -with Vhdl.Nodes; use Vhdl.Nodes; +with Flags; with Libraries; +with Vhdl.Nodes; use Vhdl.Nodes; with Vhdl.Utils; use Vhdl.Utils; with Vhdl.Std_Package; -with Flags; with Vhdl.Configuration; with Translation; with Vhdl.Sem; @@ -34,10 +35,9 @@ with Vhdl.Sem_Lib; use Vhdl.Sem_Lib; with Errorout; use Errorout; with Errorout.Console; with Vhdl.Errors; use Vhdl.Errors; -with GNAT.OS_Lib; with Bug; with Trans_Be; -with Options; +with Options; use Options; package body Ortho_Front is -- The action to be performed by the compiler. @@ -232,13 +232,13 @@ package body Ortho_Front is subtype Str_Type is String (1 .. Opt'Last - 6); begin -- The option parameter must be normalized (starts at index 1). - if Options.Parse_Option (Str_Type (Opt (7 .. Opt'Last))) then + if Parse_Option (Str_Type (Opt (7 .. Opt'Last))) = Option_Ok then return 1; else return 0; end if; end; - elsif Options.Parse_Option (Opt.all) then + elsif Options.Parse_Option (Opt.all) = Option_Ok then return 1; else return 0; |