diff options
author | Tristan Gingold <tgingold@free.fr> | 2015-09-08 21:59:33 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2015-09-08 21:59:33 +0200 |
commit | ade2729c338050c7b248ff1b0ac7e7118083597c (patch) | |
tree | 1230202d04b07a5114556a3d63e742388710c676 /src/ghdldrv/ghdldrv.adb | |
parent | 01451cf740c46f26c50676effc753b6774fe6739 (diff) | |
download | ghdl-ade2729c338050c7b248ff1b0ac7e7118083597c.tar.gz ghdl-ade2729c338050c7b248ff1b0ac7e7118083597c.tar.bz2 ghdl-ade2729c338050c7b248ff1b0ac7e7118083597c.zip |
canon: do not optimize concurrent procedure calls if not whole_analyze.
Diffstat (limited to 'src/ghdldrv/ghdldrv.adb')
-rw-r--r-- | src/ghdldrv/ghdldrv.adb | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/src/ghdldrv/ghdldrv.adb b/src/ghdldrv/ghdldrv.adb index b92a02eb8..e3008b800 100644 --- a/src/ghdldrv/ghdldrv.adb +++ b/src/ghdldrv/ghdldrv.adb @@ -27,7 +27,6 @@ with Std_Package; with Types; use Types; with Iirs; use Iirs; with Files_Map; -with Flags; with Configuration; --with Disp_Tree; with Default_Pathes; @@ -447,11 +446,7 @@ package body Ghdldrv is declare Pos : constant Natural := Get_Basename_Pos (Toolname); begin - if Pos = 0 then - return Locate_Exec_On_Path (Toolname); - else - return Locate_Exec_On_Path (Toolname (Pos .. Toolname'Last)); - end if; + return Locate_Exec_On_Path (Toolname (Pos + 1 .. Toolname'Last)); end; end Locate_Exec_Tool; @@ -1209,7 +1204,6 @@ package body Ghdldrv is if Elab_Index < 0 then Analyze_Files (Args, True); else - Flags.Flag_Whole_Analyze := True; Set_Elab_Units ("-c", Args (Elab_Index + 1 .. Args'Last)); Setup_Compiler (False); |