From 06c89bf159a88b4339295b6007ff40bee14dd618 Mon Sep 17 00:00:00 2001
From: gingold <gingold@b72b5c32-5f01-0410-b925-b5c7b92870f7>
Date: Thu, 22 Jun 2006 19:30:52 +0000
Subject: bugs fix, 93c improved

---
 ortho/mcode/ortho_code-debug.adb | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'ortho/mcode/ortho_code-debug.adb')

diff --git a/ortho/mcode/ortho_code-debug.adb b/ortho/mcode/ortho_code-debug.adb
index 090298a14..0f3e01ab9 100644
--- a/ortho/mcode/ortho_code-debug.adb
+++ b/ortho/mcode/ortho_code-debug.adb
@@ -85,6 +85,8 @@ package body Ortho_Code.Debug is
             Flag_Debug_Stat := True;
          when 'k' =>
             Flag_Debug_Keep := True;
+         when 't' =>
+            Flags.Flag_Type_Name := True;
          when others =>
             Put_Line (Standard_Error, "unknown debug be flag '" & C & "'");
       end case;
-- 
cgit v1.2.3