Allow Delete() and Insert() to be used with generic types as arguments.

+ added test

git-svn-id: trunk@33897 -

.gitattributes

@@ -10965,6 +10965,7 @@ tests/tbs/tb0616.pp svneol=native#text/pascal
 tests/tbs/tb0617.pp svneol=native#text/pascal
 tests/tbs/tb0618.pp svneol=native#text/plain
 tests/tbs/tb0619.pp svneol=native#text/pascal
+tests/tbs/tb0620.pp svneol=native#text/pascal
 tests/tbs/tb205.pp svneol=native#text/plain
 tests/tbs/tb610.pp svneol=native#text/pascal
 tests/tbs/tb613.pp svneol=native#text/plain

compiler/ninl.pas

@@ -4287,6 +4287,9 @@ implementation
            procname:='fpc_widestr_insert'
          else if is_ansistring(second) then
            procname:='fpc_ansistr_insert'
+         else if second.typ=undefineddef then
+           { just pick one }
+           procname:='fpc_ansistr_insert'
          else
            begin
              CGMessagePos1(fileinfo,parser_e_wrong_parameter_size,'Insert');
@@ -4317,6 +4320,9 @@ implementation
            procname:='fpc_widestr_delete'
          else if is_ansistring(first) then
            procname:='fpc_ansistr_delete'
+         else if first.typ=undefineddef then
+           { just pick one }
+           procname:='fpc_ansistr_delete'
          else
            begin
              CGMessagePos1(fileinfo,parser_e_wrong_parameter_size,'Delete');

tests/tbs/tb0620.pp

@@ -0,0 +1,27 @@
+{ %NORUN }
+
+program tb0620;
+
+type
+  generic TTest<T, S> = object
+    procedure Test(aArg: T; aArg2: S);
+  end;
+
+procedure TTest.Test(aArg: T; aArg2: S);
+begin
+  Delete(aArg, aArg2, 4);
+  Insert('Test', aArg, aArg2);
+  Writeln(aArg);
+end;
+
+type
+  TTestShortString = specialize TTest<ShortString, LongInt>;
+  TTestUnicodeString = specialize TTest<UnicodeString, LongInt>;
+
+var
+  tss: TTestShortString;
+  tus: TTestUnicodeString;
+begin
+  tss.Test('Hello World', 3);
+  tus.Test('Hello World', 4);
+end.