paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-05 22:47:09 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Replaced strpcopy() by its equivalent. With sysutils in uses clause, strpcopy resolves to ansistring version, inserting a redundant conversion to ansistring.

Browse Source 
git-svn-id: trunk@24360 -
This commit is contained in:
sergei 2013-04-28 19:43:47 +00:00
parent 70649932de
commit 8e6d6d0027
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/aasmtai.pas
View File

@ -1891,7 +1891,8 @@ implementation
typ:=ait_string; typ:=ait_string;
len:=length(_str); len:=length(_str);
getmem(str,len+1); getmem(str,len+1);
strpcopy(str,_str); move(_str[1],str^,len);
str[len]:=#0;
end; end;