2 files changed, 5 insertions, 0 deletions
diff --git a/src/ortho/mcode/ortho_code-decls.adb b/src/ortho/mcode/ortho_code-decls.adb
index fcbf0b0de..2557204fe 100644
--- a/src/ortho/mcode/ortho_code-decls.adb
+++ b/src/ortho/mcode/ortho_code-decls.adb
@@ -22,6 +22,7 @@ with Ortho_Code.Debug; use Ortho_Code.Debug;
 with Ortho_Code.Exprs;
 with Ortho_Code.Abi; use Ortho_Code.Abi;
 with Ortho_Code.Flags;
+with Ortho_Code.Types;
 
 package body Ortho_Code.Decls is
    --  Common fields:
@@ -659,6 +660,8 @@ package body Ortho_Code.Decls is
             Disp_Decl_Name (Decl);
             Put (": ");
             Put (Int32 (Get_Decl_Type (Decl)), 0);
+            Put (", ");
+            Disp_Mode (Types.Get_Type_Mode (Get_Decl_Type (Decl)));
             Put (", offset=");
             Put (Get_Inter_Offset (Decl), 0);
          when OD_Const =>
diff --git a/src/ortho/mcode/ortho_code-x86-abi.adb b/src/ortho/mcode/ortho_code-x86-abi.adb
index bb06d51d4..7903c9650 100644
--- a/src/ortho/mcode/ortho_code-x86-abi.adb
+++ b/src/ortho/mcode/ortho_code-x86-abi.adb
@@ -196,6 +196,8 @@ package body Ortho_Code.X86.Abi is
       Put (Get_Local_Offset (Obj), 0);
       Put (" {");
       Disp_Decl_Name (Obj);
+      Put (":");
+      Debug.Disp_Mode (Types.Get_Type_Mode (Get_Decl_Type (Obj)));
       Put ("}");
    end Disp_Local;