diff options
Diffstat (limited to 'gcc/ada/g-regpat.adb')
| -rw-r--r-- | gcc/ada/g-regpat.adb | 21 |
1 files changed, 11 insertions, 10 deletions
diff --git a/gcc/ada/g-regpat.adb b/gcc/ada/g-regpat.adb index ab1b69c79d0..da4748c30ea 100644 --- a/gcc/ada/g-regpat.adb +++ b/gcc/ada/g-regpat.adb @@ -245,9 +245,9 @@ package body GNAT.Regpat is procedure Reset_Class (Bitmap : in out Character_Class); -- Clear all the entries in the class Bitmap. - pragma Inline_Always (Set_In_Class); - pragma Inline_Always (Get_From_Class); - pragma Inline_Always (Reset_Class); + pragma Inline (Set_In_Class); + pragma Inline (Get_From_Class); + pragma Inline (Reset_Class); ----------------------- -- Local Subprograms -- @@ -512,9 +512,9 @@ package body GNAT.Regpat is -- Parse a posic character class, like [:alpha:] or [:^alpha:]. -- The called is suppoed to absorbe the opening [. - pragma Inline_Always (Is_Mult); - pragma Inline_Always (Emit_Natural); - pragma Inline_Always (Parse_Character_Class); -- since used only once + pragma Inline (Is_Mult); + pragma Inline (Emit_Natural); + pragma Inline (Parse_Character_Class); -- since used only once --------------- -- Case_Emit -- @@ -2401,12 +2401,13 @@ package body GNAT.Regpat is return Boolean; -- Return True it the simple operator (possibly non-greedy) matches - pragma Inline_Always (Index); - pragma Inline_Always (Repeat); + pragma Inline (Index); + pragma Inline (Repeat); -- These are two complex functions, but used only once. - pragma Inline_Always (Match_Whilem); - pragma Inline_Always (Match_Simple_Operator); + + pragma Inline (Match_Whilem); + pragma Inline (Match_Simple_Operator); ----------- -- Index -- |