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

* fxied xsdTryParseStringLower (SetLength allocated a string but then append char was used -> resulted in leading zeros)

Browse Source 
* optimized xsdTryParseStringLower
* optimized xsdTryParseString

git-svn-id: trunk@14968 -
This commit is contained in:
ivost 2010-03-03 18:54:46 +00:00
parent bc1bcf343e
commit 2ddd53efc8
1 changed files with 58 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

62
packages/libxml/src/xmlxsd.pas
View File

@ -860,7 +860,49 @@ begin
end;
function xsdTryParseString(Chars: xmlCharPtr; Len: Integer; out Value: Utf8String): Boolean;
const
AllocChars = 256;
var
P,L,D: PByte;
begin
if Assigned(Chars) then
begin
P := PByte(Chars);
if Len >= 0 then
begin
L := P + Len;
SetLength(Value, Len);
D := @Value[1];
while P < L do
begin
D^ := P^;
Inc(D);
Inc(P);
end;
end else begin
SetLength(Value, AllocChars);
D := @Value[1];
L := D + AllocChars;
while P^ <> 0 do
begin
if D = L then
begin
Len := Length(Value);
SetLength(Value, Len+AllocChars);
D := @Value[Len+1];
L := D + AllocChars;
end;
D^ := P^;
Inc(D);
Inc(P);
end;
SetLength(Value, P-PByte(Chars));
end;
Result := True;
end else
Result := False;
end;
{begin
if Assigned(Chars) then
begin
if Len >= 0 then
@ -872,9 +914,11 @@ begin
Result := True;
end else
Result := False;
end;
end;}
function xsdTryParseStringLower(Chars: xmlCharPtr; Len: Integer; out Value: Utf8String): Boolean;
const
AllocChars = 256;
var
P,L,D: PByte;
C: Byte;
@ -896,15 +940,25 @@ begin
Inc(P);
end;
end else begin
SetLength(Value, 255);
//D := @Value[1];
SetLength(Value, AllocChars);
D := @Value[1];
L := D + AllocChars;
while P^ <> 0 do
begin
C := P^;
if (C>=65) and (C<=90) then Inc(C, 32);
Value := Value + Chr(C); {$warning assign char by char maybe quite slow!}
if D = L then
begin
Len := Length(Value);
SetLength(Value, Len+AllocChars);
D := @Value[Len+1];
L := D + AllocChars;
end;
D^ := C;
Inc(D);
Inc(P);
end;
SetLength(Value, P-PByte(Chars));
end;
Result := True;
end else