aboutsummaryrefslogtreecommitdiffstats
path: root/ortho/mcode/ortho_code-debug.adb
diff options
context:
space:
mode:
Diffstat (limited to 'ortho/mcode/ortho_code-debug.adb')
-rw-r--r--ortho/mcode/ortho_code-debug.adb2
1 files changed, 2 insertions, 0 deletions
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;