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
405
405
Append (Result, " bytes=" );
406
406
407
407
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)));
409
410
end if ;
410
411
411
412
Append (Result, " -" );
412
413
413
414
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)));
415
417
end if ;
416
418
417
419
return To_String (Result);
Original file line number Diff line number Diff line change @@ -103,7 +103,8 @@ package AWS.Client is
103
103
-- Messages --
104
104
-- ------------
105
105
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;
107
108
108
109
Undefined : constant Content_Bound := -1 ;
109
110
You can’t perform that action at this time.
0 commit comments