OSDN Git Service
(root)
/
pf3gnuchains
/
gcc-fork.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
2009-07-13 Robert Dewar <dewar@adacore.com>
[pf3gnuchains/gcc-fork.git]
/
gcc
/
ada
/
sem_ch4.adb
diff --git
a/gcc/ada/sem_ch4.adb
b/gcc/ada/sem_ch4.adb
index
ccfcf1f
..
774d7ae
100644
(file)
--- a/
gcc/ada/sem_ch4.adb
+++ b/
gcc/ada/sem_ch4.adb
@@
-2047,7
+2047,6
@@
package body Sem_Ch4 is
Set_Etype (L, T_F);
end if;
Set_Etype (L, T_F);
end if;
-
end Try_One_Interp;
procedure Analyze_Set_Membership;
end Try_One_Interp;
procedure Analyze_Set_Membership;
@@
-2062,7
+2061,6
@@
package body Sem_Ch4 is
Alt : Node_Id;
Index : Interp_Index;
It : Interp;
Alt : Node_Id;
Index : Interp_Index;
It : Interp;
-
Candidate_Interps : Node_Id;
Common_Type : Entity_Id := Empty;
Candidate_Interps : Node_Id;
Common_Type : Entity_Id := Empty;
@@
-2094,22
+2092,24
@@
package body Sem_Ch4 is
else
Get_First_Interp (Alt, Index, It);
while Present (It.Typ) loop
else
Get_First_Interp (Alt, Index, It);
while Present (It.Typ) loop
- if
-
not
Has_Compatible_Type (Candidate_Interps, It.Typ)
+ if
not
+ Has_Compatible_Type (Candidate_Interps, It.Typ)
then
Remove_Interp (Index);
end if;
then
Remove_Interp (Index);
end if;
+
Get_Next_Interp (Index, It);
end loop;
Get_First_Interp (Alt, Index, It);
Get_Next_Interp (Index, It);
end loop;
Get_First_Interp (Alt, Index, It);
+
if No (It.Typ) then
Error_Msg_N ("alternative has no legal type", Alt);
return;
end if;
if No (It.Typ) then
Error_Msg_N ("alternative has no legal type", Alt);
return;
end if;
- -- If alternative is not overloaded, we have a
- --
unique type
for all of them.
+ -- If alternative is not overloaded, we have a
unique type
+ -- for all of them.
Set_Etype (Alt, It.Typ);
Get_Next_Interp (Index, It);
Set_Etype (Alt, It.Typ);
Get_Next_Interp (Index, It);