with Address => System'To_Address (Transfer_Info.Physical (Id));
DMA_Len : constant Natural := Natural'Min (Max_Bulk_Size - DMA_Off, Len);
begin
- Buf (Buf'First .. Buf'First + DMA_Len - 1) :=
- DMA_Buf (DMA_Off .. DMA_Off + DMA_Len - 1);
+ for I in Natural range 0 .. DMA_Len - 1 loop
+ Buf (Buf'First + I) := DMA_Buf (DMA_Off + I);
+ end loop;
end Copy_DMA_In;
+ procedure Copy_DMA_Out
+ (Id : Transfer_Id;
+ Buf : Buffer;
+ Off : Natural;
+ Len : Natural;
+ DMA_Off : Natural := 0);
procedure Copy_DMA_Out
(Id : Transfer_Id;
Buf : Buffer;