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/netlists-disp_vhdl.adb | |
parent | db734580dbdd495097b22bfcc1de7ffd50d6a337 (diff) | |
download | ghdl-5647f25c4447d79b841f50970c49bdebeeaa4559.tar.gz ghdl-5647f25c4447d79b841f50970c49bdebeeaa4559.tar.bz2 ghdl-5647f25c4447d79b841f50970c49bdebeeaa4559.zip |
introduce package utils_io.
Diffstat (limited to 'src/synth/netlists-disp_vhdl.adb')
-rw-r--r-- | src/synth/netlists-disp_vhdl.adb | 21 |
1 files changed, 1 insertions, 20 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 |