Merge branch 'master' into muen-spark
authorAdrian-Ken Rueegsegger <ken@codelabs.ch>
Fri, 27 Oct 2017 15:21:02 +0000 (17:21 +0200)
committerAdrian-Ken Rueegsegger <ken@codelabs.ch>
Fri, 27 Oct 2017 15:21:02 +0000 (17:21 +0200)
1  2 
src/hw-dbc-transfers.adb
src/hw-dbc.ads

index 62177347eedeff4ff48b41e3cdcc0a2cb7db45f4,5fa68273a450b0e16b58801d94340ccb1abee24a..4f764f06e74d36c55e9e4866da4dc1f4e464b8e3
        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;
diff --cc src/hw-dbc.ads
Simple merge