From 030379bc57f3ec88593554f9eaac13e96dd83c86 Mon Sep 17 00:00:00 2001
From: marco <marco@freepascal.org>
Date: Tue, 3 Nov 2009 12:59:12 +0000
Subject: [PATCH]  * Minor optimization from mantis 14974

git-svn-id: trunk@14016 -
---
 rtl/inc/strings.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/rtl/inc/strings.pp b/rtl/inc/strings.pp
index 80a779043e..ac560693b9 100644
--- a/rtl/inc/strings.pp
+++ b/rtl/inc/strings.pp
@@ -160,7 +160,7 @@ implementation
          len:=strlen(p)+1;
          getmem(strnew,len);
          if strnew<>nil then
-           strmove(strnew,p,len);
+           move(p^,strnew^,len);
       end;
 
     procedure strdispose(p : pchar);