aboutsummaryrefslogtreecommitdiff
path: root/gcc/ada/switch-m.adb
diff options
context:
space:
mode:
Diffstat (limited to 'gcc/ada/switch-m.adb')
-rw-r--r--gcc/ada/switch-m.adb6
1 files changed, 6 insertions, 0 deletions
diff --git a/gcc/ada/switch-m.adb b/gcc/ada/switch-m.adb
index 03124a1..67cee51 100644
--- a/gcc/ada/switch-m.adb
+++ b/gcc/ada/switch-m.adb
@@ -562,6 +562,12 @@ package body Switch.M is
case Switch_Chars (Ptr) is
+ -- processing for eI switch
+
+ when 'I' =>
+ Ptr := Ptr + 1;
+ Scan_Pos (Switch_Chars, Max, Ptr, Main_Index);
+
-- processing for eL switch
when 'L' =>