* fixed AnsiStrPas

git-svn-id: trunk@30054 -

ide/gdbmicon.pas

@@ -116,7 +116,7 @@ var
 begin
   Len := StrLen(S);
   SetLength(Res, Len);
-  Move(S, Res[1], Len);
+  Move(S^, Res[1], Len);
   AnsiStrPas := Res;
 end;
 

packages/gdbint/src/gdbcon.pp

@@ -184,7 +184,7 @@ var
 begin
   Len := StrLen(S);
   SetLength(Res, Len);
-  Move(S, Res[1], Len);
+  Move(S^, Res[1], Len);
   AnsiStrPas := Res;
 end;