diff options
Diffstat (limited to 'gcc/ada/g-spipat.adb')
| -rw-r--r-- | gcc/ada/g-spipat.adb | 25 |
1 files changed, 19 insertions, 6 deletions
diff --git a/gcc/ada/g-spipat.adb b/gcc/ada/g-spipat.adb index 49d9bf6..09f2efa 100644 --- a/gcc/ada/g-spipat.adb +++ b/gcc/ada/g-spipat.adb @@ -2803,11 +2803,13 @@ package body GNAT.Spitbol.Patterns is (Subject : VString; Pat : Pattern) return Boolean is - Start : Natural; - Stop : Natural; S : String_Access; L : Natural; + Start : Natural; + Stop : Natural; + pragma Unreferenced (Stop); + begin Get_String (Subject, S, L); @@ -2825,6 +2827,8 @@ package body GNAT.Spitbol.Patterns is Pat : Pattern) return Boolean is Start, Stop : Natural; + pragma Unreferenced (Stop); + subtype String1 is String (1 .. Subject'Length); begin @@ -2898,10 +2902,12 @@ package body GNAT.Spitbol.Patterns is (Subject : VString; Pat : Pattern) is + S : String_Access; + L : Natural; + Start : Natural; Stop : Natural; - S : String_Access; - L : Natural; + pragma Unreferenced (Start, Stop); begin Get_String (Subject, S, L); @@ -2918,7 +2924,10 @@ package body GNAT.Spitbol.Patterns is Pat : Pattern) is Start, Stop : Natural; + pragma Unreferenced (Start, Stop); + subtype String1 is String (1 .. Subject'Length); + begin if Debug_Mode then XMatchD (String1 (Subject), Pat.P, Pat.Stk, Start, Stop); @@ -3093,10 +3102,12 @@ package body GNAT.Spitbol.Patterns is (Subject : VString; Pat : PString) is + S : String_Access; + L : Natural; + Start : Natural; Stop : Natural; - S : String_Access; - L : Natural; + pragma Unreferenced (Start, Stop); begin Get_String (Subject, S, L); @@ -3113,6 +3124,8 @@ package body GNAT.Spitbol.Patterns is Pat : PString) is Start, Stop : Natural; + pragma Unreferenced (Start, Stop); + subtype String1 is String (1 .. Subject'Length); begin |