summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBrian Drummond2014-01-22 12:27:03 +0000
committerBrian Drummond2014-01-22 12:27:03 +0000
commitbc3a3375eaae07a7f68eabd9d5c7ca53cf6c2565 (patch)
treeb1061054fe9d1eac2d5df2d8136f6bdae6188a17
parent8a86266cf0a9ddfccdd4a68c28b23495ef08dfa6 (diff)
downloadghdl-bc3a3375eaae07a7f68eabd9d5c7ca53cf6c2565.tar.gz
ghdl-bc3a3375eaae07a7f68eabd9d5c7ca53cf6c2565.tar.bz2
ghdl-bc3a3375eaae07a7f68eabd9d5c7ca53cf6c2565.zip
Update declarations in ortho_debug.private.ads to allow new commit to ortho_debug to build. Remove duplicated --help clause in grt-options.
-rw-r--r--ortho/debug/ortho_debug.private.ads6
-rw-r--r--translate/grt/grt-options.adb5
2 files changed, 4 insertions, 7 deletions
diff --git a/ortho/debug/ortho_debug.private.ads b/ortho/debug/ortho_debug.private.ads
index 79fd7b3..20bcae2 100644
--- a/ortho/debug/ortho_debug.private.ads
+++ b/ortho/debug/ortho_debug.private.ads
@@ -311,10 +311,6 @@ private
ON_Array_Sub_Type, ON_Record_Type, ON_Union_Type, ON_Access_Type);
type O_Tnode_Type (Kind : ON_Type_Kind) is record
Decl : O_Dnode;
- -- Alignment, in power of 2.
- Align : Natural;
- -- Size in bytes.
- Size : Unsigned_32;
-- True if the type was first created as an uncomplete type.
Uncomplete : Boolean;
-- True if the type is complete.
@@ -325,7 +321,7 @@ private
False_N : O_Cnode;
when ON_Unsigned_Type
| ON_Signed_Type =>
- null;
+ Int_Size : Natural;
when ON_Float_Type =>
null;
when ON_Enum_Type =>
diff --git a/translate/grt/grt-options.adb b/translate/grt/grt-options.adb
index 138c31d..29e8a8c 100644
--- a/translate/grt/grt-options.adb
+++ b/translate/grt/grt-options.adb
@@ -152,8 +152,9 @@ package body Grt.Options is
P (" --stop-time=X stop the simulation at time X");
P (" X is expressed as a time value, without spaces: 1ns, ps...");
P (" --stop-delta=X stop the simulation cycle after X delta");
- P (" --disp-tree[=KIND] disp the design hierarchy after elaboration");
- P (" KIND is inst, proc, port (default)");
+ -- P (" --disp-tree[=KIND] disp the design hierarchy after elaboration");
+ -- P (" KIND is inst, proc, port (default)");
+ -- --disp-tree from grt-disp_tree.adb via Grt.Hooks.Call_Help_Hooks;
P (" --expect-failure invert exit status");
P (" --stack-size=X set the stack size of non-sensitized processes");
P (" --stack-max-size=X set the maximum stack size");