diff options
Diffstat (limited to 'src/errorout-console.adb')
| -rw-r--r-- | src/errorout-console.adb | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/errorout-console.adb b/src/errorout-console.adb index 6ae90e272..6a112352c 100644 --- a/src/errorout-console.adb +++ b/src/errorout-console.adb @@ -240,6 +240,7 @@ package body Errorout.Console is and then Flag_Caret_Diagnostics and then (Current_Error.File /= No_Source_File_Entry and Current_Error.Line /= 0) + and then Get_File_Length (Current_Error.File) > 0 then Put_Line (Extract_Expanded_Line (Current_Error.File, Current_Error.Line)); |