Ensure that the regexp/regpat is cloned.

Fix crash reported when releasing MATCH filter in macros.

Add corresponding regression test.

Part of eng/toolchain/aws#39

Author: TurboGit

regtests/tests/0145_regex_macro/test.out

@@ -0,0 +1,6 @@
+
+Test MATCH into a MACRO
+
+
+ONE
+TWO

regtests/tests/0145_regex_macro/test.py

@@ -0,0 +1,3 @@
+from test_support import *
+
+run('testme', ["testme145.tmplt"])

regtests/tests/0145_regex_macro/test.yaml

@@ -0,0 +1,13 @@
+
+Test MATCH into a MACRO
+
+@@MACRO(CHECK)@@
+@@IF@@ @_MATCH(.*value):VAR1_@
+@_$1_@
+@@ELSE@@
+FALSE
+@@END_IF@@
+@@END_MACRO@@
+
+@_CHECK(ONE)_@
+@_CHECK(TWO)_@

regtests/tests/0145_regex_macro/testme145.tmplt

@@ -642,6 +642,10 @@ package body Data is
    begin
       if R.Filters /= null then
          R.Filters := new Filter.Set'(R.Filters.all);
+
+         for K in R.Filters'Range loop
+            R.Filters (K) := Filter.Clone (@);
+         end loop;
       end if;
 
       if R.Is_Macro then

src/templates_parser-data.adb

@@ -544,6 +544,25 @@ package body Filter is
       return Result;
    end Clean_Text;
 
+   -----------
+   -- Clone --
+   -----------
+
+   function Clone (P : Routine) return Routine is
+      D : Parameter_Data := P.Parameters;
+   begin
+      case D.Mode is
+         when Regpat =>
+            D.Regpat := new GNAT.Regpat.Pattern_Matcher'(D.Regpat.all);
+         when Regexp =>
+            D.Regexp := new GNAT.Regpat.Pattern_Matcher'(D.Regexp.all);
+         when others =>
+            null;
+      end case;
+
+      return (P with delta Parameters => D);
+   end Clone;
+
    ------------------
    -- Coma_2_Point --
    ------------------

src/templates_parser-filter.adb

@@ -365,6 +365,9 @@ package body Templates_Parser is
       procedure Release (S : in out Set);
       --  Release all memory allocated P
 
+      function Clone (P : Routine) return Routine;
+      --  Clone parameter data
+
       type String_Access is access constant String;
 
       type Filter_Record is record