diff options
Diffstat (limited to 'src/synth/synth-stmts.adb')
| -rw-r--r-- | src/synth/synth-stmts.adb | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/synth/synth-stmts.adb b/src/synth/synth-stmts.adb index b6147ddb3..67911c531 100644 --- a/src/synth/synth-stmts.adb +++ b/src/synth/synth-stmts.adb @@ -1814,8 +1814,9 @@ package body Synth.Stmts is else if Is_Func then if C.Nbr_Ret = 0 then - -- Function returned without a return statement. - raise Internal_Error; + Error_Msg_Synth + (+Call, "function call completed without a return statement"); + Res := null; else pragma Assert (C.Nbr_Ret = 1); pragma Assert (Is_Static (C.Ret_Value)); |