From b743d2fec7f114a7ad9f774f53d9790ce38b30c1 Mon Sep 17 00:00:00 2001 From: charlet Date: Thu, 23 Oct 2003 11:57:52 +0000 Subject: PR ada/11978: * exp_ch13.adb (Expand_N_Freeze_Entity): Do not consider inherited External_Tag attribute definition clauses. PR ada/7613: * exp_dbug.adb (Debug_Renaming_Declaration): For the renaming of a child unit, generate a fully qualified name to avoid spurious errors when the context contains renamings of different child units with the same simple name. * exp_dbug.ads: Add documentation on name qualification for renamings of child units. * g-regpat.ads, g-regpat.adb: Minor reformatting * Makefile.in: Use the file 1atags.ads with the ZFP and cert run-times. * trans.c: (tree_transform, case N_Real_Literal): Add extra arg to Machine call. * urealp.h: (Machine): Update to proper definition. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@72843 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/ada/g-regpat.ads | 21 ++++++++------------- 1 file changed, 8 insertions(+), 13 deletions(-) (limited to 'gcc/ada/g-regpat.ads') diff --git a/gcc/ada/g-regpat.ads b/gcc/ada/g-regpat.ads index 52ab3c19e29..57bc076717a 100644 --- a/gcc/ada/g-regpat.ads +++ b/gcc/ada/g-regpat.ads @@ -301,7 +301,7 @@ pragma Preelaborate (Regpat); -- byte-compiled version of regular expressions. Max_Program_Size : constant := 2**15 - 1; - -- Maximum size that can be allocated for a program. + -- Maximum size that can be allocated for a program Max_Curly_Repeat : constant := 32767; -- Maximum number of repetition for the curly operator. @@ -380,8 +380,7 @@ pragma Preelaborate (Regpat); function Compile (Expression : String; - Flags : Regexp_Flags := No_Flags) - return Pattern_Matcher; + Flags : Regexp_Flags := No_Flags) return Pattern_Matcher; -- Compile a regular expression into internal code. -- Raises Expression_Error if Expression is not a legal regular expression. -- The appropriate size is calculated automatically, but this means that @@ -476,8 +475,7 @@ pragma Preelaborate (Regpat); Data : String; Size : Program_Size := 0; Data_First : Integer := -1; - Data_Last : Positive := Positive'Last) - return Natural; + Data_Last : Positive := Positive'Last) return Natural; -- Return the position where Data matches, or (Data'First - 1) if -- there is no match. -- @@ -493,8 +491,7 @@ pragma Preelaborate (Regpat); Data : String; Size : Program_Size := 0; Data_First : Integer := -1; - Data_Last : Positive := Positive'Last) - return Boolean; + Data_Last : Positive := Positive'Last) return Boolean; -- Return True if Data matches Expression. Match raises Storage_Error -- if Size is too small for Expression, or Expression_Error if Expression -- is not a legal regular expression. @@ -516,8 +513,7 @@ pragma Preelaborate (Regpat); (Self : Pattern_Matcher; Data : String; Data_First : Integer := -1; - Data_Last : Positive := Positive'Last) - return Natural; + Data_Last : Positive := Positive'Last) return Natural; -- Match Data using the given pattern matcher. -- Return the position where Data matches, or (Data'First - 1) if there is -- no match. @@ -528,14 +524,13 @@ pragma Preelaborate (Regpat); (Self : Pattern_Matcher; Data : String; Data_First : Integer := -1; - Data_Last : Positive := Positive'Last) - return Boolean; + Data_Last : Positive := Positive'Last) return Boolean; -- Return True if Data matches using the given pattern matcher. -- -- See description of Data_First and Data_Last above. pragma Inline (Match); - -- All except the last one below. + -- All except the last one below procedure Match (Self : Pattern_Matcher; @@ -555,7 +550,7 @@ pragma Preelaborate (Regpat); ----------- procedure Dump (Self : Pattern_Matcher); - -- Dump the compiled version of the regular expression matched by Self. + -- Dump the compiled version of the regular expression matched by Self -------------------------- -- Private Declarations -- -- cgit v1.2.1