Add Null_String_Desc constant

Signed-off-by: Adrian-Ken Rueegsegger <ken@codelabs.ch>

diff --git a/src/hw-dbc.adb b/src/hw-dbc.adb
index 3bc248a491db6103c19e31e902be4ce899866ba1..13748c7396b886cd62ec212ac56afa9a5d1dc6d5 100644 (file)
--- a/src/hw-dbc.adb
+++ b/src/hw-dbc.adb
@@ -65,6 +65,11 @@ is
       wData             : Desc_Str;
    end record with Pack;
 
       wData             : Desc_Str;
    end record with Pack;
 

+   Null_String_Desc : constant String_Descriptor
+     := (bLength          => 0,
+         bDescriptor_Type => 0,
+         wData            => (others => 0));
+

    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;