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

* Patch with some micro-optimizations. Fixes issue

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-08-06 10:45:42 +02:00
parent 4561d8982f
commit 8539a8b727
1 changed files with 7 additions and 7 deletions

14
packages/fcl-base/src/uriparser.pp
View File

@ -207,7 +207,7 @@ begin
Result.Bookmark := Copy(s, i + 1, MaxInt);
if Decode then
Result.Bookmark:=Unescape(Result.Bookmark);
s := Copy(s, 1, i - 1);
SetLength(s, i - 1);
end;
// Extract the params
@ -218,7 +218,7 @@ begin
Result.Params := Copy(s, i + 1, MaxInt);
if Decode then
Result.Params:=Unescape(Result.Params);
s := Copy(s, 1, i - 1);
SetLength(s, i - 1);
end;
// extract authority
@ -248,7 +248,7 @@ begin
if Decode then
Result.Document:=Unescape(Result.Document);
if (Result.Document <> '.') and (Result.Document <> '..') then
s := Copy(s, 1, i)
SetLength(s, i)
else
Result.Document := '';
break;
@ -287,7 +287,7 @@ begin
if PortValid then
begin
Result.Port := StrToInt(Copy(Authority, i + 1, MaxInt));
Authority := Copy(Authority, 1, i - 1);
SetLength(Authority, i - 1);
end;
end;
@ -296,11 +296,11 @@ begin
i := Pos('@', Authority);
if i > 0 then
begin
Result.Host := Copy(Authority, i+1, MaxInt);
Delete(Authority, i, MaxInt);
Result.Host := Copy(Authority, i + 1, MaxInt);
SetLength(Authority, i - 1);
// Extract username and password
if Length(Authority) > 0 then
if Authority <> '' then
begin
i := Pos(':', Authority);
if i = 0 then