gcc/ada/
* libgnat/s-regexp.adb (Compile.Check_Well_Formed_Patern): When
a "|" operator is encountered in a pattern, check that it is not
the last character of the pattern.
-- or the last occurrence of an opening curly brace, if Glob=True.
procedure Raise_Exception_If_No_More_Chars (K : Integer := 0);
- -- If no more characters are raised, call Raise_Exception
+ -- If S(J + 1 .. S'Last)'Length < K then call Raise_Exception
--------------------------------------
-- Raise_Exception_If_No_More_Chars --
& "applied to a term in regular expression", J);
end if;
+ -- A second term must follow
+ Raise_Exception_If_No_More_Chars (K => 1);
+
Past_Elmt := False;
Past_Term := False;
end if;