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

utils: unicodeset remove duplicate ord(), initialize cp variable

Browse Source 
git-svn-id: trunk@23815 -
This commit is contained in:
paul 2013-03-13 07:03:54 +00:00
parent 9a26fc6994
commit 7e591e1ea9
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
utils/unicode/unicodeset.pas
View File

@ -256,7 +256,6 @@ begin
c := FBuffer[FPosition];
cp := Ord(c);
Inc(FPosition);
cp := Ord(c);
if (c = '\') and (FPosition < FBufferLength) then begin
if IsThis('\') then begin
Inc(FPosition);
@ -299,6 +298,7 @@ begin
Expect('[');
charCount := 0;
Inc(FPosition);
cp:=0;
while (FPosition < FBufferLength) do begin
lastCp := cp;
cp := NextChar();