diff options
author | Tristan Gingold <tgingold@free.fr> | 2019-11-21 04:23:09 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2019-11-21 04:23:09 +0100 |
commit | 5647f25c4447d79b841f50970c49bdebeeaa4559 (patch) | |
tree | 5cbf31ce5eb3976a74e9fd80cd6cc19dfe70dd10 /src/synth | |
parent | db734580dbdd495097b22bfcc1de7ffd50d6a337 (diff) | |
download | ghdl-5647f25c4447d79b841f50970c49bdebeeaa4559.tar.gz ghdl-5647f25c4447d79b841f50970c49bdebeeaa4559.tar.bz2 ghdl-5647f25c4447d79b841f50970c49bdebeeaa4559.zip |
introduce package utils_io.
Diffstat (limited to 'src/synth')
-rw-r--r-- | src/synth/netlists-disp_vhdl.adb | 21 | ||||
-rw-r--r-- | src/synth/netlists-disp_vhdl.ads | 2 | ||||
-rw-r--r-- | src/synth/netlists-dump.adb | 21 | ||||
-rw-r--r-- | src/synth/synth-disp_vhdl.adb | 1 |
4 files changed, 3 insertions, 42 deletions
diff --git a/src/synth/netlists-disp_vhdl.adb b/src/synth/netlists-disp_vhdl.adb index 992f0bf5e..77ee517e6 100644 --- a/src/synth/netlists-disp_vhdl.adb +++ b/src/synth/netlists-disp_vhdl.adb @@ -19,6 +19,7 @@ -- MA 02110-1301, USA. with Simple_IO; use Simple_IO; +with Utils_IO; use Utils_IO; with Types_Utils; use Types_Utils; with Name_Table; use Name_Table; with Files_Map; @@ -31,26 +32,6 @@ with Netlists.Locations; package body Netlists.Disp_Vhdl is Flag_Merge_Lit : constant Boolean := True; - -- Like Put, but without the leading space (if any). - procedure Put_Trim (S : String) is - begin - if S'First <= S'Last and then S (S'First) = ' ' then - Put (S (S'First + 1 .. S'Last)); - else - Put (S); - end if; - end Put_Trim; - - procedure Put_Uns32 (V : Uns32) is - begin - Put_Trim (Uns32'Image (V)); - end Put_Uns32; - - procedure Put_Int32 (V : Int32) is - begin - Put_Trim (Int32'Image (V)); - end Put_Int32; - procedure Put_Type (W : Width) is begin if W = 1 then diff --git a/src/synth/netlists-disp_vhdl.ads b/src/synth/netlists-disp_vhdl.ads index a088c4968..afc29458f 100644 --- a/src/synth/netlists-disp_vhdl.ads +++ b/src/synth/netlists-disp_vhdl.ads @@ -19,8 +19,6 @@ -- MA 02110-1301, USA. package Netlists.Disp_Vhdl is - procedure Put_Uns32 (V : Uns32); - procedure Disp_Vhdl (M : Module); procedure Disp_Architecture_Declarations (M : Module); diff --git a/src/synth/netlists-dump.adb b/src/synth/netlists-dump.adb index 6a421805b..841c5d831 100644 --- a/src/synth/netlists-dump.adb +++ b/src/synth/netlists-dump.adb @@ -19,6 +19,7 @@ -- MA 02110-1301, USA. with Simple_IO; use Simple_IO; +with Utils_IO; use Utils_IO; with Name_Table; with Files_Map; @@ -28,26 +29,6 @@ with Netlists.Gates; use Netlists.Gates; with Netlists.Locations; package body Netlists.Dump is - procedure Put_Indent (Indent : Natural) is - begin - Put (String'(1 .. Indent * 2 => ' ')); - end Put_Indent; - - -- Like Put, but without the leading space (if any). - procedure Put_Trim (S : String) is - begin - if S'First <= S'Last and then S (S'First) = ' ' then - Put (S (S'First + 1 .. S'Last)); - else - Put (S); - end if; - end Put_Trim; - - procedure Put_Uns32 (V : Uns32) is - begin - Put_Trim (Uns32'Image (V)); - end Put_Uns32; - procedure Put_Width (W : Width) is begin Put_Trim (Width'Image (W)); diff --git a/src/synth/synth-disp_vhdl.adb b/src/synth/synth-disp_vhdl.adb index 0227e4f2d..6d14e95d9 100644 --- a/src/synth/synth-disp_vhdl.adb +++ b/src/synth/synth-disp_vhdl.adb @@ -19,6 +19,7 @@ -- MA 02110-1301, USA. with Simple_IO; use Simple_IO; +with Utils_IO; use Utils_IO; with Types; use Types; with Name_Table; |