Message ID | 20110906080331.GA30297@adacore.com |
---|---|
State | New |
Headers | show |
Index: sem_ch9.adb =================================================================== --- sem_ch9.adb (revision 178565) +++ sem_ch9.adb (working copy) @@ -2381,7 +2381,7 @@ -- declaration must be limited. if Present (Interface_List (N)) - and then not Is_Limited_Record (Priv_T) + and then not Is_Limited_Type (Priv_T) then Error_Msg_Sloc := Sloc (Priv_T); Error_Msg_N ("(Ada 2005) limited type declaration expected for " &