paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-29 03:11:26 +01:00
Code Issues Packages Projects Releases Wiki Activity

lazutils: optimized UTF8CStringToUTF8String

Browse Source 
git-svn-id: trunk@34218 -
This commit is contained in:
mattias 2011-12-16 01:16:04 +00:00
parent 93a466e9bb
commit b7e59c0f5b
2 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/lazutils/lazutf8.pas
View File

@ -587,7 +587,7 @@ begin
SourceCopied := Source;
end
else
Inc(Source, UTF8CharacterLength(Source));
Inc(Source); // no need for checking for UTF8, the / is never part of an UTF8 multibyte codepoint
end;
CopyPart;
SetLength(Result, Dest - PChar(Result));

1
lcl/translations.pas
View File

@ -1,4 +1,3 @@
{ $Id$}
{
*****************************************************************************
* *