From fccf50dcd5393ca2562583b6a9ed6131b0413195 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Mon, 4 May 2020 07:53:19 +0200 Subject: ghdldrv: add support for --time-resolution for -e. For #1281 --- src/ghdldrv/ghdlcomp.adb | 12 ++++-------- 1 file changed, 4 insertions(+), 8 deletions(-) (limited to 'src/ghdldrv') diff --git a/src/ghdldrv/ghdlcomp.adb b/src/ghdldrv/ghdlcomp.adb index c2bd3b79c..a07fe0599 100644 --- a/src/ghdldrv/ghdlcomp.adb +++ b/src/ghdldrv/ghdlcomp.adb @@ -539,7 +539,7 @@ package body Ghdlcomp is end Perform_Action; -- Command -e - type Command_Elab is new Command_Lib with null record; + type Command_Elab is new Command_Comp with null record; function Decode_Command (Cmd : Command_Elab; Name : String) return Boolean; function Get_Short_Help (Cmd : Command_Elab) return String; @@ -573,23 +573,19 @@ package body Ghdlcomp is is pragma Assert (Option'First = 1); begin - if Option = "--expect-failure" then - Flag_Expect_Failure := True; - Res := Option_Ok; - elsif Option = "-o" then + if Option = "-o" then if Arg'Length = 0 then Res := Option_Arg_Req; else -- Silently accepted. Res := Option_Arg; end if; - elsif Option'Length >= 4 and then Option (1 .. 4) = "-Wl," - then + elsif Option'Length >= 4 and then Option (1 .. 4) = "-Wl," then Error_Msg_Option ("option -Wl is not available when ghdl " & "is not configured with gcc or llvm"); Res := Option_Err; else - Decode_Option (Command_Lib (Cmd), Option, Arg, Res); + Decode_Option (Command_Comp (Cmd), Option, Arg, Res); end if; end Decode_Option; -- cgit v1.2.3