diff options
author | Tristan Gingold <tgingold@free.fr> | 2014-03-08 07:04:05 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2014-03-08 07:04:05 +0100 |
commit | e6001445a14d5e96db78ff56c68d8ae96dec0968 (patch) | |
tree | 77394e40d752c04e5f4ce61b0c868aa2d4b06fa3 /ortho/debug/ortho_debug.adb | |
parent | d9bb785009b005cc314f063ae05b8974fd8f4bf2 (diff) | |
download | ghdl-e6001445a14d5e96db78ff56c68d8ae96dec0968.tar.gz ghdl-e6001445a14d5e96db78ff56c68d8ae96dec0968.tar.bz2 ghdl-e6001445a14d5e96db78ff56c68d8ae96dec0968.zip |
Share spec of ortho_nodes, adjust code.
Diffstat (limited to 'ortho/debug/ortho_debug.adb')
-rw-r--r-- | ortho/debug/ortho_debug.adb | 11 |
1 files changed, 2 insertions, 9 deletions
diff --git a/ortho/debug/ortho_debug.adb b/ortho/debug/ortho_debug.adb index a1ef7b82a..8285a6473 100644 --- a/ortho/debug/ortho_debug.adb +++ b/ortho/debug/ortho_debug.adb @@ -39,8 +39,6 @@ package body Ortho_Debug is ON_And => OE_And, ON_Or => OE_Or, ON_Xor => OE_Xor, - ON_And_Then => OE_And_Then, - ON_Or_Else => OE_Or_Else, -- Monadic operations. ON_Not => OE_Not, @@ -439,7 +437,7 @@ package body Ortho_Debug is S_Type => Atype); end New_Alignof; - function New_Offsetof (Rec_Type : O_Tnode; Field : O_Fnode; Rtype : O_Tnode) + function New_Offsetof (Atype : O_Tnode; Field : O_Fnode; Rtype : O_Tnode) return O_Cnode is subtype O_Cnode_Offsetof_Type is O_Cnode_Type (OC_Offsetof_Lit); @@ -449,7 +447,7 @@ package body Ortho_Debug is then raise Type_Error; end if; - if Field.Parent /= Rec_Type then + if Field.Parent /= Atype then raise Type_Error; end if; return new O_Cnode_Offsetof_Type'(Kind => OC_Offsetof_Lit, @@ -1269,9 +1267,6 @@ package body Ortho_Debug is Add_Decl (Res); end New_Const_Decl; - -- Const is not modified - pragma Warnings (Off, "*is not modified"); - procedure Start_Const_Value (Const : in out O_Dnode) is subtype O_Dnode_Const_Value is O_Dnode_Type (ON_Const_Value); @@ -1321,8 +1316,6 @@ package body Ortho_Debug is Const.Const_Value.Value := Val; end Finish_Const_Value; - pragma Warnings (On, "*is not modified"); - procedure New_Var_Decl (Res : out O_Dnode; Ident : O_Ident; |