1-- Routine to dump (for debugging purpose) a netlist. 2-- Copyright (C) 2017 Tristan Gingold 3-- 4-- This file is part of GHDL. 5-- 6-- This program is free software; you can redistribute it and/or modify 7-- it under the terms of the GNU General Public License as published by 8-- the Free Software Foundation; either version 2 of the License, or 9-- (at your option) any later version. 10-- 11-- This program is distributed in the hope that it will be useful, 12-- but WITHOUT ANY WARRANTY; without even the implied warranty of 13-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 14-- GNU General Public License for more details. 15-- 16-- You should have received a copy of the GNU General Public License 17-- along with this program; if not, write to the Free Software 18-- Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, 19-- MA 02110-1301, USA. 20 21package Netlists.Dump is 22 -- If set, compact print. 23 Flag_Disp_Inline : Boolean := True; 24 25 -- If set, print nets/instances/modules identifier. 26 Flag_Disp_Id : Boolean := True; 27 28 procedure Dump_Name (N : Sname); 29 30 procedure Dump_Net_Name (N : Net; With_Id : Boolean := False); 31 procedure Disp_Driver (Drv : Net; Indent : Natural); 32 procedure Disp_Instance 33 (Inst : Instance; With_Name : Boolean; Indent : Natural); 34 35 -- Raw dump. 36 procedure Dump_Module (M : Module; Indent : Natural := 0); 37 38 -- More humain readable output. 39 procedure Disp_Module (M : Module; Indent : Natural := 0); 40end Netlists.Dump; 41