diff options
Diffstat (limited to 'gcc/ada/switch-m.adb')
| -rw-r--r-- | gcc/ada/switch-m.adb | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/gcc/ada/switch-m.adb b/gcc/ada/switch-m.adb index 4001ba86a89..03124a1481c 100644 --- a/gcc/ada/switch-m.adb +++ b/gcc/ada/switch-m.adb @@ -551,6 +551,27 @@ package body Switch.M is return; + -- Processing for e switch + + when 'e' => + Ptr := Ptr + 1; + + if Ptr > Max then + raise Bad_Switch; + end if; + + case Switch_Chars (Ptr) is + + -- processing for eL switch + + when 'L' => + Ptr := Ptr + 1; + Follow_Links := True; + + when others => + raise Bad_Switch; + end case; + -- Processing for f switch when 'f' => |