sem_ch6.adb (Analyze_Subprogram_Body_Helper): Ensure that the input body is a subprogram body before trying to determine...

2017-01-13  Hristian Kirtchev  <kirtchev@adacore.com>

	* sem_ch6.adb (Analyze_Subprogram_Body_Helper):
	Ensure that the input body is a subprogram body before trying to
	determine whether it denoted an expression function.  Note that
	subprogram body stubs cannot denote expression functions.

From-SVN: r244421
This commit is contained in:
Hristian Kirtchev 2017-01-13 10:57:01 +00:00 committed by Arnaud Charlet
parent 804ec349d0
commit 36be008200
2 changed files with 8 additions and 0 deletions

View File

@ -1,3 +1,10 @@
2017-01-13 Hristian Kirtchev <kirtchev@adacore.com>
* sem_ch6.adb (Analyze_Subprogram_Body_Helper):
Ensure that the input body is a subprogram body before trying to
determine whether it denoted an expression function. Note that
subprogram body stubs cannot denote expression functions.
2017-01-13 Gary Dismukes <dismukes@adacore.com>
* bindgen.adb, sem_ch6.adb, binde.adb, exp_ch3.adb: Minor reformatting

View File

@ -3503,6 +3503,7 @@ package body Sem_Ch6 is
-- freezing.
if Has_Completion (Spec_Id)
and then Nkind (N) = N_Subprogram_Body
and then Was_Expression_Function (N)
then
Freeze_Expr_Types (Spec_Id);