ghdldrv: handle auxbase option in ortho/gcc. Fix #1845

Remove additional option in ghdldrv.adb,
automatically set aux_base_name in ortho-lang-9.c

1 files changed, 0 insertions, 10 deletions

diff --git a/src/ghdldrv/ghdldrv.adb b/src/ghdldrv/ghdldrv.adb
index acd125765..6b49a8df2 100644
--- a/src/ghdldrv/ghdldrv.adb
+++ b/src/ghdldrv/ghdldrv.adb
@@ -54,9 +54,6 @@ package body Ghdldrv is
    --  "-quiet" option.
    Dash_Quiet : constant String_Access := new String'("-quiet");
 
-   --  "-auxbase" option.
-   Dash_Auxbase : constant String_Access := new String'("-auxbase");
-
    --  "-fpic" option.
    Dash_Fpic : constant String_Access := new String'("-fpic");
 
@@ -173,7 +170,6 @@ package body Ghdldrv is
    is
       Obj_File : String_Access;
       Asm_File : String_Access;
-      Aux_File : String_Access;
       Post_File : String_Access;
 
       --  Add backend specific options.
@@ -199,10 +195,6 @@ package body Ghdldrv is
                   P := P + 1;
                   Args (P) := Dash_Quiet;
                end if;
-               P := P + 1;
-               Args (P) := Dash_Auxbase;
-               P := P + 1;
-               Args (P) := Aux_File;
             when Backend_Llvm =>
                P := P + 1;
                Args (P) := Dash_c;
@@ -231,7 +223,6 @@ package body Ghdldrv is
       case Backend is
          when Backend_Gcc =>
             Asm_File := Append_Suffix (File, Asm_Suffix, In_Work);
-            Aux_File := new String'(Get_Base_Name (File));
          when Backend_Llvm
            | Backend_Mcode =>
             null;
@@ -335,7 +326,6 @@ package body Ghdldrv is
 
       Free (Asm_File);
       Free (Obj_File);
-      Free (Aux_File);
    end Do_Compile;
 
    --  Table of files to be linked.