paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-13 14:49:47 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed uninitialized function result in r30048 (mantis #27586)

Browse Source 
git-svn-id: trunk@30078 -
This commit is contained in:
Jonas Maebe 2015-03-02 21:45:40 +00:00
parent de6975d001
commit 6defd861b0
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/unix/sysutils.pp
View File

@ -610,17 +610,16 @@ Var
function NameUtf8CodePointLen(index: longint): longint;
var
MaxLookAhead,
CodePointLen: longint;
MaxLookAhead: longint;
begin
MaxLookAhead:=LenName-Index+1;
{ abs so that in case of an invalid sequence, we count this as one
codepoint }
CodePointLen:=abs(Utf8CodePointLen(pansichar(@Name[index]),MaxLookAhead,true));
NameUtf8CodePointLen:=abs(Utf8CodePointLen(pansichar(@Name[index]),MaxLookAhead,true));
{ if the sequence was incomplete, use the incomplete sequence as
codepoint }
if CodePointLen=0 then
CodePointLen:=MaxLookAhead;
if NameUtf8CodePointLen=0 then
NameUtf8CodePointLen:=MaxLookAhead;
end;
procedure GoToLastByteOfUtf8CodePoint(var j: longint);