- type Item is new System.Address;
- type Menu is new System.Address;
-
- Null_Item : constant Item := Item (System.Null_Address);
- Null_Menu : constant Menu := Menu (System.Null_Address);
-
- -- This binding uses the original user pointer mechanism of a menu to store
- -- specific informations about a menu. This wrapper record carries this
- -- specifics and contains a field to maintain a new user pointer. Please
- -- note that you must take this into account if you wan't to use the user
- -- pointer mechanism of a menu created with this binding in low-level C
- -- routines.
- type Ada_User_Wrapper is
- record
- U : System.Address;
- I : Item_Array_Access;
- end record;
- pragma Convention (C, Ada_User_Wrapper);
- type Ada_User_Wrapper_Access is access all Ada_User_Wrapper;
- pragma Controlled (Ada_User_Wrapper_Access);
-
- Generation_Bit_Order : constant System.Bit_Order := System.M4_BIT_ORDER;
- -- This constant may be different on your system.
+ type Item is new System.Storage_Elements.Integer_Address;
+ type Menu is new System.Storage_Elements.Integer_Address;
+
+ Null_Item : constant Item := 0;
+ Null_Menu : constant Menu := 0;