diff options
Diffstat (limited to 'gcc/ada/g-regpat.adb')
-rw-r--r-- | gcc/ada/g-regpat.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/ada/g-regpat.adb b/gcc/ada/g-regpat.adb index 35df55d70bd..8857edccbfc 100644 --- a/gcc/ada/g-regpat.adb +++ b/gcc/ada/g-regpat.adb @@ -2997,9 +2997,9 @@ package body GNAT.Regpat is function Match_Whilem (IP : Pointer) return Boolean is pragma Unreferenced (IP); - Cc : Current_Curly_Access := Current_Curly; - N : constant Natural := Cc.Cur + 1; - Ln : Natural := 0; + Cc : constant Current_Curly_Access := Current_Curly; + N : constant Natural := Cc.Cur + 1; + Ln : Natural := 0; Lastloc : constant Natural := Cc.Lastloc; -- Detection of 0-len. |