From 8acde9575b0f9ea7f6a9a99626c0a8a877caeb9c Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Tue, 4 Jun 2019 21:38:52 +0200
Subject: ghdldrv: handle --force-analysis for llvm and gcc.
---
src/ghdldrv/ghdlcomp.adb | 3 ---
src/ghdldrv/ghdldrv.adb | 3 +--
src/options.adb | 2 ++
3 files changed, 3 insertions(+), 5 deletions(-)
diff --git a/src/ghdldrv/ghdlcomp.adb b/src/ghdldrv/ghdlcomp.adb
index cee8f037e..878d20eb0 100644
--- a/src/ghdldrv/ghdlcomp.adb
+++ b/src/ghdldrv/ghdlcomp.adb
@@ -61,9 +61,6 @@ package body Ghdlcomp is
elsif Option = "--check-ast" then
Flags.Check_Ast_Level := Flags.Check_Ast_Level + 1;
Res := Option_Ok;
- elsif Option = "--force-analysis" then
- Cmd.Flag_Force_Analysis := True;
- Res := Option_Ok;
elsif Hooks.Decode_Option.all (Option) then
Res := Option_Ok;
elsif Option'Length > 18
diff --git a/src/ghdldrv/ghdldrv.adb b/src/ghdldrv/ghdldrv.adb
index 1907ccf10..5817b974d 100644
--- a/src/ghdldrv/ghdldrv.adb
+++ b/src/ghdldrv/ghdldrv.adb
@@ -417,8 +417,7 @@ package body Ghdldrv is
& Get_Object_Suffix.all;
end Get_Object_Filename;
- procedure Add_Argument (Inst : in out Instance; Arg : String_Access)
- is
+ procedure Add_Argument (Inst : in out Instance; Arg : String_Access) is
begin
Increment_Last (Inst);
Inst.Table (Last (Inst)) := Arg;
diff --git a/src/options.adb b/src/options.adb
index 85383b915..65e4fcdd8 100644
--- a/src/options.adb
+++ b/src/options.adb
@@ -142,6 +142,8 @@ package body Options is
end;
elsif Opt = "-C" or else Opt = "--mb-comments" then
Mb_Comment := True;
+ elsif Opt = "--force-analysis" then
+ Flag_Force_Analysis := True;
elsif Opt = "-fcaret-diagnostics" then
Flag_Caret_Diagnostics := True;
elsif Opt = "-fno-caret-diagnostics" then
--
cgit v1.2.3