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

- removed unused local variable

Browse Source 
* fixed bug in Utf8ToUnicode (use of uninitialised variable)
This commit is contained in:
Jonas Maebe 2004-09-18 10:23:08 +00:00
parent 0b235a2dab
commit 3f10b1b4f6
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/inc/wstrings.inc
View File

@ -581,7 +581,7 @@ Procedure fpc_WideStr_SetLength (Var S : WideString; l : SizeInt);[Public,Alias
} }
Var Var
Temp : Pointer; Temp : Pointer;
movelen, NewLen: SizeInt; movelen: SizeInt;
begin begin
if (l>0) then if (l>0) then
begin begin
@ -1129,7 +1129,7 @@ function Utf8ToUnicode(Dest: PWideChar; MaxDestChars: SizeUInt; Source: PChar; S
b:=byte(Source[i]); b:=byte(Source[i]);
inc(i); inc(i);
// 2 or 3 bytes? // 2 or 3 bytes?
if w>=$80 then if b>=$80 then
begin begin
w:=b and $3c; w:=b and $3c;
if i>=SourceBytes then if i>=SourceBytes then
@ -1237,7 +1237,11 @@ function Utf8ToAnsi(const s : UTF8String) : ansistring;{$ifdef SYSTEMINLINE}inli
{ {
$Log$ $Log$
Revision 1.42 2004-07-18 20:21:44 florian Revision 1.43 2004-09-18 10:23:08 jonas
- removed unused local variable
* fixed bug in Utf8ToUnicode (use of uninitialised variable)
Revision 1.42 2004/07/18 20:21:44 florian
+ several unicode (to/from utf-8 conversion) stuff added + several unicode (to/from utf-8 conversion) stuff added
* some longint -> SizeInt changes * some longint -> SizeInt changes