File tree Expand file tree Collapse file tree 2 files changed +6
-3
lines changed Expand file tree Collapse file tree 2 files changed +6
-3
lines changed Original file line number Diff line number Diff line change @@ -405,13 +405,15 @@ package body AWS.Client.HTTP_Utils is
405405 Append (Result, " bytes=" );
406406
407407 if Data_Range.First /= Undefined then
408- Append (Result, Utils.Image (Natural (Data_Range.First)));
408+ Append
409+ (Result, Utils.Image (Stream_Element_Offset (Data_Range.First)));
409410 end if ;
410411
411412 Append (Result, " -" );
412413
413414 if Data_Range.Last /= Undefined then
414- Append (Result, Utils.Image (Natural (Data_Range.Last)));
415+ Append
416+ (Result, Utils.Image (Stream_Element_Offset (Data_Range.Last)));
415417 end if ;
416418
417419 return To_String (Result);
Original file line number Diff line number Diff line change @@ -103,7 +103,8 @@ package AWS.Client is
103103 -- Messages --
104104 -- ------------
105105
106- type Content_Bound is new Integer range -1 .. Integer'Last;
106+ type Content_Bound is new
107+ Stream_Element_Offset range -1 .. Stream_Element_Offset'Last;
107108
108109 Undefined : constant Content_Bound := -1 ;
109110
You can’t perform that action at this time.
0 commit comments