Replace Desc_Strings array assignment with for loop
[libxhcidbg.git] / 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: