From 8e6d6d0027688802689d14252fc660535241b1dd Mon Sep 17 00:00:00 2001
From: sergei <gorelkin@nanoreflex.ru>
Date: Sun, 28 Apr 2013 19:43:47 +0000
Subject: [PATCH] * Replaced strpcopy() by its equivalent. With sysutils in
uses clause, strpcopy resolves to ansistring version, inserting a redundant
conversion to ansistring.
git-svn-id: trunk@24360 -
---
compiler/aasmtai.pas | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/compiler/aasmtai.pas b/compiler/aasmtai.pas
index 1d048b03d5..94b1d60141 100644
--- a/compiler/aasmtai.pas
+++ b/compiler/aasmtai.pas
@@ -1891,7 +1891,8 @@ implementation
typ:=ait_string;
len:=length(_str);
getmem(str,len+1);
- strpcopy(str,_str);
+ move(_str[1],str^,len);
+ str[len]:=#0;
end;