1 files changed, 7 insertions(+), 7 deletions(-)

M src/uri.ads

@@ 25,22 25,22 @@ package URI is
 	-- According to RFC 3986 the path MUST be present, however it may be the
 	-- empty string.
 	type URL is record
-		Scheme_Present : Boolean;
+		Scheme_Present : Boolean := False;
 		Scheme : Unbounded_String;
 
-		Authority_Present : Boolean;
-		User_Info_Present : Boolean;
+		Authority_Present : Boolean := False;
+		User_Info_Present : Boolean := False;
 		User_Info : Unbounded_String;
 		Host : Unbounded_String;
-		Port_Present : Boolean;
-		Port : Port_Number;
+		Port_Present : Boolean := False;
+		Port : Port_Number := 0;
 
 		Path : Unbounded_String;
 
-		Query_Present : Boolean;
+		Query_Present : Boolean := False;
 		Query : Unbounded_String;
 
-		Fragment_Present : Boolean;
+		Fragment_Present : Boolean := False;
 		Fragment : Unbounded_String;
 	end record;