From f8be245097eed73b71ac76ce8cb910e5a8d2534c Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Sat, 14 Apr 2018 12:17:29 +0000
Subject: [PATCH] * Fix bug #0033544, result not properly initialized

git-svn-id: trunk@38770 -
---
 packages/fcl-base/src/uriparser.pp | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/packages/fcl-base/src/uriparser.pp b/packages/fcl-base/src/uriparser.pp
index ffca5854f6..2aa04df7ac 100644
--- a/packages/fcl-base/src/uriparser.pp
+++ b/packages/fcl-base/src/uriparser.pp
@@ -167,11 +167,14 @@ begin
 end;
 
 function ParseURI(const URI, DefaultProtocol: String; DefaultPort: Word;Decode : Boolean = True):  TURI;
+
 var
   s, Authority: String;
   i,j: Integer;
   PortValid: Boolean;
+  
 begin
+  Result:=Default(TURI);
   Result.Protocol := LowerCase(DefaultProtocol);
   Result.Port := DefaultPort;