diff options
| author | Tristan Gingold <tgingold@free.fr> | 2014-10-22 13:15:33 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2014-10-22 13:15:33 +0200 |
| commit | e00d31baa0e7190b959cfb03df03b260e402da05 (patch) | |
| tree | 9ed433cdd9d38d6432e3dc016d1b942fbf97519c /sem_assocs.adb | |
| parent | 0e199cbea1070c016d29348cd659b9e6ca688afb (diff) | |
| download | ghdl-e00d31baa0e7190b959cfb03df03b260e402da05.tar.gz ghdl-e00d31baa0e7190b959cfb03df03b260e402da05.tar.bz2 ghdl-e00d31baa0e7190b959cfb03df03b260e402da05.zip | |
Rework for support of generic packages.
Diffstat (limited to 'sem_assocs.adb')
| -rw-r--r-- | sem_assocs.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/sem_assocs.adb b/sem_assocs.adb index dcec12c98..ee43e30ef 100644 --- a/sem_assocs.adb +++ b/sem_assocs.adb @@ -1162,7 +1162,7 @@ package body Sem_Assocs is Set_Parameter_Association_Chain (Res, Null_Iir); Set_Type (Res, Get_Return_Type (Func)); Set_Expr_Staticness (Res, None); - Set_Use_Flag (Func, True); + Mark_Subprogram_Used (Func); when Iir_Kind_Subtype_Declaration | Iir_Kind_Type_Declaration => Res := Create_Iir (Iir_Kind_Type_Conversion); |