diff options
Diffstat (limited to 'src/ghdldrv/ghdldrv.adb')
| -rw-r--r-- | src/ghdldrv/ghdldrv.adb | 10 |
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. |