2014-07-29 Robert Dewar <dewar@adacore.com>
authorcharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>
Tue, 29 Jul 2014 13:03:49 +0000 (13:03 +0000)
committercharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>
Tue, 29 Jul 2014 13:03:49 +0000 (13:03 +0000)
commit94d896aa7af114ce8dcab5a1f971fc20ddb2bcdf
tree96eaf0caa622ad17bfc1d6319c02b1109f2c0ead
parent5c6a579237cdc3b4514dabb75e438011201c662f
2014-07-29  Robert Dewar  <dewar@adacore.com>

* einfo.ads, einfo.adb (Static_Real_Or_String_Predicate): New function
(Set_Static_Real_Or_String_Predicate): New procedure
* sem_ch13.adb (Build_Predicate_Functions): Accomodate static
string predicates (Is_Predicate_Static): Handle static string
predicates.
* sem_eval.adb (Real_Or_String_Static_Predicate_Matches):
New procedure (Check_Expression_Against_Static_Predicate):
Deal with static string predicates, now fully implemented
(Eval_Relational_Op): Allow string equality/inequality as static
if not comes from source.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@213162 138bc75d-0d04-0410-961f-82ee72b054a4
gcc/ada/ChangeLog
gcc/ada/einfo.adb
gcc/ada/einfo.ads
gcc/ada/sem_ch13.adb
gcc/ada/sem_eval.adb