Replace Desc_Strings array assignment with for loop

This removes calls to memmove which is not supported by the Muen
zero-footprint runtime.

diff --git a/src/hw-dbc.adb b/src/hw-dbc.adb
index 6cd96208d43e03bf512c2b17e84433cee5934dc7..566eff753274ce92a66c229786dbce4bd7e7b0c3 100644 (file)
--- a/src/hw-dbc.adb
+++ b/src/hw-dbc.adb
@@ -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;
    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);
 
    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;
 
       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:
 end HW.DbC;
 
 --  vim: set ts=8 sts=3 sw=3 et: