diff options
author | Tristan Gingold <tgingold@free.fr> | 2015-08-29 07:57:12 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2015-08-29 07:57:12 +0200 |
commit | b75d703676ab830ea3e5731e1965d1d89879a456 (patch) | |
tree | 1a0a21ba1cce6385715bd2823853ee4ad47905ee /src/ortho | |
parent | 64fa65e1395bef4f05c51bc19d9a46d6003339ee (diff) | |
download | ghdl-b75d703676ab830ea3e5731e1965d1d89879a456.tar.gz ghdl-b75d703676ab830ea3e5731e1965d1d89879a456.tar.bz2 ghdl-b75d703676ab830ea3e5731e1965d1d89879a456.zip |
Replace fat accesses by bounds accesses
translate: separate info for signals from object.
Improve some error messages.
Diffstat (limited to 'src/ortho')
-rw-r--r-- | src/ortho/mcode/ortho_code-disps.adb | 28 | ||||
-rw-r--r-- | src/ortho/mcode/ortho_code-flags.ads | 1 |
2 files changed, 29 insertions, 0 deletions
diff --git a/src/ortho/mcode/ortho_code-disps.adb b/src/ortho/mcode/ortho_code-disps.adb index 9e8ac1272..e76a20f4a 100644 --- a/src/ortho/mcode/ortho_code-disps.adb +++ b/src/ortho/mcode/ortho_code-disps.adb @@ -444,6 +444,34 @@ package body Ortho_Code.Disps is end case; end Disp_Type; + procedure Debug_Tnode (Atype : O_Tnode) + is + Decl : O_Dnode; + begin + Decl := Decls.Get_Type_Decl (Atype); + if Decl /= O_Dnode_Null then + Decls.Disp_Decl_Name (Decl); + Put (": "); + end if; + Disp_Type (Atype, True); + New_Line; + end Debug_Tnode; + pragma Unreferenced (Debug_Tnode); + + procedure Debug_Enode (Expr : O_Enode) is + begin + Disp_Expr (Expr); + New_Line; + end Debug_Enode; + pragma Unreferenced (Debug_Enode); + + procedure Debug_Lnode (Expr : O_Lnode) is + begin + Disp_Expr (O_Enode (Expr)); + New_Line; + end Debug_Lnode; + pragma Unreferenced (Debug_Lnode); + procedure Disp_Decl_Storage (Decl : O_Dnode) is begin Disp_Storage (Decls.Get_Decl_Storage (Decl)); diff --git a/src/ortho/mcode/ortho_code-flags.ads b/src/ortho/mcode/ortho_code-flags.ads index 805f3779b..214cc743b 100644 --- a/src/ortho/mcode/ortho_code-flags.ads +++ b/src/ortho/mcode/ortho_code-flags.ads @@ -22,6 +22,7 @@ package Ortho_Code.Flags is Flag_Debug : Debug_Type := Debug_None; -- If set, generate a map from type to type declaration. + -- Set with --be-debug=t Flag_Type_Name : Boolean := False; -- If set, enable optimiztions. |