diff options
| -rw-r--r-- | ortho/debug/ortho_debug.private.ads | 6 | ||||
| -rw-r--r-- | translate/grt/grt-options.adb | 5 |
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"); |