paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 06:10:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

* characters <= 127, not just < 127, can be concatenated to an

Browse Source 
ansistring without conversion

git-svn-id: trunk@9395 -
This commit is contained in:
Jonas Maebe 2007-12-05 18:48:54 +00:00
parent a180fdcc74
commit 02c714aec1
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/unix/cwstring.pp
View File

@ -315,7 +315,7 @@ var
begin begin
{ we know that s is unique -> avoid uniquestring calls} { we know that s is unique -> avoid uniquestring calls}
p:=@s[index]; p:=@s[index];
if (nc<$7f) then if (nc<=127) then
ConcatCharToAnsiStr(char(nc),s,index) ConcatCharToAnsiStr(char(nc),s,index)
else else
begin begin