From a9ec8b7775d64fc5acec0da1e0016a37bc8b44fa Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Mon, 8 Jun 2015 21:24:04 +0200 Subject: ghdldrv: use output name for creating the elaboration files. --- src/ghdldrv/ghdldrv.adb | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/src/ghdldrv/ghdldrv.adb b/src/ghdldrv/ghdldrv.adb index 28613c727..ce20e2cc8 100644 --- a/src/ghdldrv/ghdldrv.adb +++ b/src/ghdldrv/ghdldrv.adb @@ -771,12 +771,17 @@ package body Ghdldrv is Unit_Name := new String'(Prim_Name.all & '(' & Sec_Name.all & ')'); end if; - Elab_Name := new String'(Elab_Prefix & Base_Name.all); Filelist_Name := null; + -- Choose a default name for the executable. if Output_File = null then Output_File := new String'(Base_Name.all); end if; + + -- Set a name for the elaboration files. Use the basename of the + -- output file, so that parallel builds with different output files + -- are allowed. + Elab_Name := new String'(Elab_Prefix & Get_Base_Name (Output_File.all)); end Set_Elab_Units; procedure Set_Elab_Units (Cmd_Name : String; Args : Argument_List) -- cgit v1.2.3