exp_ch6.adb: Omit check for init proc.

2013-04-22 Ed Schonberg <schonberg@adacore.com> * exp_ch6.adb: Omit check for init proc. From-SVN: r198131

exp_ch6.adb: Omit check for init proc.
2013-04-22 Ed Schonberg <schonberg@adacore.com> * exp_ch6.adb: Omit check for init proc. From-SVN: r198131
1de0ffec · Ed Schonberg · Arnaud Charlet · f6820c2d · 1de0ffec
Commit 1de0ffec authored Apr 22, 2013 by Ed Schonberg Committed by Arnaud Charlet Apr 22, 2013
Hide whitespace changes
Inline Side-by-side

Showing with 1 additions and 0 deletions

gcc/ada/exp_ch6.adb
+1 -0

No files found.
--- a/gcc/ada/exp_ch6.adb
+++ b/gcc/ada/exp_ch6.adb
@@ -1709,6 +1709,7 @@ package body Exp_Ch6 is

            if Is_By_Reference_Type (E_Formal)
              and then Has_Predicates (E_Actual)
+              and then not Is_Init_Proc (Subp)
            then
               if Is_Derived_Type (E_Actual)
                 and then Is_Inherited_Operation_For_Type (Subp, E_Actual)