diff options
Diffstat (limited to 'src/simulate/simulation-ams-debugger.adb')
-rw-r--r-- | src/simulate/simulation-ams-debugger.adb | 87 |
1 files changed, 0 insertions, 87 deletions
diff --git a/src/simulate/simulation-ams-debugger.adb b/src/simulate/simulation-ams-debugger.adb deleted file mode 100644 index 9cdbc75..0000000 --- a/src/simulate/simulation-ams-debugger.adb +++ /dev/null @@ -1,87 +0,0 @@ --- Interpreter AMS simulation --- Copyright (C) 2014 Tristan Gingold --- --- GHDL is free software; you can redistribute it and/or modify it under --- the terms of the GNU General Public License as published by the Free --- Software Foundation; either version 2, or (at your option) any later --- version. --- --- GHDL is distributed in the hope that it will be useful, but WITHOUT ANY --- WARRANTY; without even the implied warranty of MERCHANTABILITY or --- FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License --- for more details. --- --- You should have received a copy of the GNU General Public License --- along with GHDL; see the file COPYING. If not, write to the Free --- Software Foundation, 59 Temple Place - Suite 330, Boston, MA --- 02111-1307, USA. - -with Debugger; use Debugger; -with Iirs_Utils; use Iirs_Utils; -with Ada.Text_IO; use Ada.Text_IO; -with Disp_Vhdl; - -package body Simulation.AMS.Debugger is - procedure Disp_Quantity_Name (Quantity : Quantity_Index_Type) - is - Obj : Scalar_Quantity renames Scalar_Quantities.Table (Quantity); - begin - Disp_Instance_Name (Obj.Instance, True); - Put ('.'); - Put (Image_Identifier (Obj.Decl)); - if Obj.Kind = Quantity_Reference then - Put ("'Ref"); - end if; - end Disp_Quantity_Name; - - procedure Disp_Term (Term : Ams_Term_Acc) is - begin - case Term.Sign is - when Op_Plus => - Put (" + "); - when Op_Minus => - Put (" - "); - end case; - - case Term.Op is - when Op_Quantity => - Disp_Quantity_Name (Term.Quantity); - when Op_Vhdl_Expr => - Disp_Vhdl.Disp_Expression (Term.Vhdl_Expr); - end case; - end Disp_Term; - - procedure Disp_Characteristic_Expression - (Ce : Characteristic_Expressions_Index) - is - Obj : Characteristic_Expr renames - Characteristic_Expressions.Table (Ce); - Expr : Ams_Term_Acc := Obj.Expr; - begin - case Obj.Kind is - when Explicit => - Put ("Explic:"); - when Contribution => - Put ("Contri:"); - when Structural => - Put ("Struct:"); - end case; - - while Expr /= null loop - Disp_Term (Expr); - Expr := Expr.Next; - end loop; - New_Line; - end Disp_Characteristic_Expression; - - procedure Disp_Characteristic_Expressions is - begin - Put_Line ("Characteristic expressions:"); - for I in Characteristic_Expressions.First - .. Characteristic_Expressions.Last - loop - Disp_Characteristic_Expression (I); - end loop; - end Disp_Characteristic_Expressions; -end Simulation.AMS.Debugger; - |