Replace Desc_Strings array assignment with for loop
authorAdrian-Ken Rueegsegger <ken@codelabs.ch>
Thu, 19 Oct 2017 08:59:51 +0000 (10:59 +0200)
committerAdrian-Ken Rueegsegger <ken@codelabs.ch>
Fri, 27 Oct 2017 15:21:41 +0000 (17:21 +0200)
This removes calls to memmove which is not supported by the Muen
zero-footprint runtime.

src/hw-dbc.adb

index 6cd96208d43e03bf512c2b17e84433cee5934dc7..566eff753274ce92a66c229786dbce4bd7e7b0c3 100644 (file)
@@ -73,7 +73,7 @@ is
    type Desc_Strings_Type is (String0, Manufacturer, Product, Serial_Number);
    type Desc_Strings_Array is
       array (Desc_Strings_Type) of String_Descriptor with Pack;
-   Desc_Strings : Desc_Strings_Array := (others => Null_String_Desc)
+   Desc_Strings : Desc_Strings_Array
    with
       Address => System'To_Address (DMA_Buffers.Descriptor_Strings_Base);
 
@@ -424,6 +424,12 @@ is
       Regs.Write (Doorbell_Target, Word8 (EP) - 2);
    end Ring_Doorbell;
 
+   -------------------------------------------------------------------------
+
+begin
+   for Str of Desc_Strings loop
+      Str := Null_String_Desc;
+   end loop;
 end HW.DbC;
 
 --  vim: set ts=8 sts=3 sw=3 et: