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

* Fix bug #0033544, result not properly initialized

Browse Source 
git-svn-id: trunk@38770 -
This commit is contained in:
michael 2018-04-14 12:17:29 +00:00
parent e4ef17b5c0
commit f8be245097
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -167,11 +167,14 @@ begin
end; end;
function ParseURI(const URI, DefaultProtocol: String; DefaultPort: Word;Decode : Boolean = True): TURI; function ParseURI(const URI, DefaultProtocol: String; DefaultPort: Word;Decode : Boolean = True): TURI;
var var
s, Authority: String; s, Authority: String;
i,j: Integer; i,j: Integer;
PortValid: Boolean; PortValid: Boolean;
begin begin
Result:=Default(TURI);
Result.Protocol := LowerCase(DefaultProtocol); Result.Protocol := LowerCase(DefaultProtocol);
Result.Port := DefaultPort; Result.Port := DefaultPort;