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

* Fix by Michalis Kamburelis for bug #28496

Browse Source 
git-svn-id: trunk@31305 -
This commit is contained in:
michael 2015-08-09 16:04:01 +00:00
parent 0d87df71a9
commit 437aab34de
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -266,7 +266,7 @@ begin
// Extract the port number // Extract the port number
i := LastDelimiter(':@', Authority); i := LastDelimiter(':@', Authority);
if (i > 0) and (Authority[i] = ':') then if (i > 0) and (i < Length(Authority)) and (Authority[i] = ':') then
begin begin
PortValid := true; PortValid := true;
for j:=i+1 to Length(Authority) do for j:=i+1 to Length(Authority) do