diff options
Diffstat (limited to 'src/synth/elab-debugger.adb')
| -rw-r--r-- | src/synth/elab-debugger.adb | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/synth/elab-debugger.adb b/src/synth/elab-debugger.adb index 66b1fe835..441a64eb1 100644 --- a/src/synth/elab-debugger.adb +++ b/src/synth/elab-debugger.adb @@ -448,6 +448,10 @@ package body Elab.Debugger is P : Natural; begin P := Skip_Blanks (Line); + if P > Line'Last then + Put_Line ("missing subprogram name"); + return; + end if; if Line (P) = '"' then -- An operator name. declare |