diff options
Diffstat (limited to 'ortho/mcode/ortho_code-types.adb')
-rw-r--r-- | ortho/mcode/ortho_code-types.adb | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/ortho/mcode/ortho_code-types.adb b/ortho/mcode/ortho_code-types.adb index 63e677033..1a505b750 100644 --- a/ortho/mcode/ortho_code-types.adb +++ b/ortho/mcode/ortho_code-types.adb @@ -722,6 +722,12 @@ package body Ortho_Code.Types is Put (", nbr_fields: "); Put (To_Int32 (Get_Type_Record_Nbr_Fields (Atype))); New_Line; + when OT_Subarray => + Put (" base type: "); + Put (Int32 (Get_Type_Subarray_Base (Atype))); + Put (", length: "); + Put (To_Int32 (Get_Type_Subarray_Length (Atype))); + New_Line; when others => null; end case; |