diff options
author | Tristan Gingold <tgingold@free.fr> | 2022-03-22 19:40:15 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2022-03-22 19:40:37 +0100 |
commit | 98b2cfe1367dcc9f847add559d713272d3f27183 (patch) | |
tree | 44c29b3e7ee538010d1ec9963545697e2751c137 /src/ghdldrv/ghdlsynth.adb | |
parent | f06253fa91cbb6d086db1b937c38c56fa5f5178c (diff) | |
download | ghdl-98b2cfe1367dcc9f847add559d713272d3f27183.tar.gz ghdl-98b2cfe1367dcc9f847add559d713272d3f27183.tar.bz2 ghdl-98b2cfe1367dcc9f847add559d713272d3f27183.zip |
ghdldrv: extract ghdllib from ghdlsynth
Diffstat (limited to 'src/ghdldrv/ghdlsynth.adb')
-rw-r--r-- | src/ghdldrv/ghdlsynth.adb | 63 |
1 files changed, 0 insertions, 63 deletions
diff --git a/src/ghdldrv/ghdlsynth.adb b/src/ghdldrv/ghdlsynth.adb index cafecbb57..19b8cf9ff 100644 --- a/src/ghdldrv/ghdlsynth.adb +++ b/src/ghdldrv/ghdlsynth.adb @@ -25,8 +25,6 @@ with Ghdlmain; use Ghdlmain; with Options; use Options; with Errorout; with Errorout.Console; -with Version; -with Default_Paths; with Bug; with Simple_IO; @@ -561,70 +559,9 @@ package body Ghdlsynth is end if; end Perform_Action; - function Get_Libghdl_Name return String - is - Libghdl_Version : String := Version.Ghdl_Ver; - begin - for I in Libghdl_Version'Range loop - if Libghdl_Version (I) = '.' or Libghdl_Version (I) = '-' then - Libghdl_Version (I) := '_'; - end if; - end loop; - return "libghdl-" & Libghdl_Version - & Default_Paths.Shared_Library_Extension; - end Get_Libghdl_Name; - - function Get_Libghdl_Path return String is - begin - if Ghdllocal.Exec_Prefix = null then - -- Compute install path (only once). - Ghdllocal.Set_Exec_Prefix_From_Program_Name; - end if; - - return Ghdllocal.Exec_Prefix.all & Directory_Separator - & Default_Paths.LibDir_Suffix - & Directory_Separator & Get_Libghdl_Name; - end Get_Libghdl_Path; - - function Get_Libghdl_Include_Dir return String is - begin - -- Compute install path - Ghdllocal.Set_Exec_Prefix_From_Program_Name; - - return Ghdllocal.Exec_Prefix.all & Directory_Separator - & Default_Paths.IncDir_Suffix; - end Get_Libghdl_Include_Dir; - procedure Register_Commands is begin Ghdlmain.Register_Command (new Command_Synth); - Register_Command - (new Command_Str_Disp' - (Command_Type with - Cmd_Str => new String' - ("--libghdl-name"), - Help_Str => new String' - ("--libghdl-name" - & ASCII.LF & " Display libghdl name"), - Disp => Get_Libghdl_Name'Access)); - Register_Command - (new Command_Str_Disp' - (Command_Type with - Cmd_Str => new String' - ("--libghdl-library-path"), - Help_Str => new String' - ("--libghdl-library-path" - & ASCII.LF & " Display libghdl library path"), - Disp => Get_Libghdl_Path'Access)); - Register_Command - (new Command_Str_Disp' - (Command_Type with - Cmd_Str => new String' - ("--libghdl-include-dir"), - Help_Str => new String' - ("--libghdl-include-dir" - & ASCII.LF & " Display libghdl include directory"), - Disp => Get_Libghdl_Include_Dir'Access)); end Register_Commands; procedure Init_For_Ghdl_Synth is |