* Small optimisation in strnew from Luiz Americo (bug ID 26365)

git-svn-id: trunk@28005 -

rtl/objpas/sysutils/syspch.inc

@@ -61,7 +61,7 @@ begin
   len:=strlen(p)+1;
   Result:=StrAlloc(Len);
   if Result<>nil then
-   strmove(Result,p,len);
+   move(p^,Result^,len);
 end;