diff options
Diffstat (limited to 'lang/asis/files/patch-asis_a4g-gnat__int.adb')
| -rw-r--r-- | lang/asis/files/patch-asis_a4g-gnat__int.adb | 22 |
1 files changed, 14 insertions, 8 deletions
diff --git a/lang/asis/files/patch-asis_a4g-gnat__int.adb b/lang/asis/files/patch-asis_a4g-gnat__int.adb index 84ad94c17e8b..3e1322e44d67 100644 --- a/lang/asis/files/patch-asis_a4g-gnat__int.adb +++ b/lang/asis/files/patch-asis_a4g-gnat__int.adb @@ -1,6 +1,6 @@ ---- asis/a4g-gnat_int.adb.orig 2015-05-06 10:56:06 UTC +--- asis/a4g-gnat_int.adb.orig 2016-05-16 09:17:27 UTC +++ asis/a4g-gnat_int.adb -@@ -231,40 +231,10 @@ package body A4G.GNAT_Int is +@@ -231,46 +231,10 @@ package body A4G.GNAT_Int is Opt.Tree_Read; if Strong_Version_Check then @@ -16,19 +16,25 @@ - Last_A_Idx := Index (Source => ASIS_GNAT_V, - Pattern => ")") - 1; - -- if Index (Source => ASIS_GNAT_V, Pattern => "-") /= 0 then -- Last_A_Idx := Index (Source => ASIS_GNAT_V, -- Pattern => "-") - 1; +- if Index +- (Source => ASIS_GNAT_V (First_A_Idx .. Last_A_Idx), +- Pattern => "-") /= 0 +- then +- Last_A_Idx := +- Index (Source => ASIS_GNAT_V (First_A_Idx .. Last_A_Idx), +- Pattern => "-") - 1; - end if; - - Last_T_Idx := Index (Source => Tree_Version_String.all, - Pattern => ")") - 1; - -- if Index (Source => Tree_Version_String.all, Pattern => "-") /= -- 0 +- if Index +- (Source => Tree_Version_String.all (First_T_Idx .. Last_T_Idx), +- Pattern => "-") /= 0 - then - Last_T_Idx := -- Index (Source => Tree_Version_String.all, +- Index (Source => +- Tree_Version_String.all (First_T_Idx .. Last_T_Idx), - Pattern => "-") - 1; - end if; - |