Lines Matching refs:Choice_Index
3324 Choice_Index : Natural;
3347 Choice_Index : Natural;
3363 Expression => Make_Integer_Literal (Loc, Pos (Choice_Index))));
3368 Choice_Index : Natural := Pattern_Match.Choice_Index;
3421 Make_Integer_Literal (Loc, Int (Choice_Index)));
3524 if Choice_Index /= 0 and not Suppress_Choice_Index_Update then
3778 Choice_Index : Natural := 0; variable
3781 Choice_Index := 1;
3787 Choice_Index => Choice_Index,
3791 if Choice_Index /= 0 then
3792 Choice_Index := Choice_Index + 1;
3800 Choice_Index => Choice_Index,