Index

Package: Test_Data

Description

package Test_Data is

Classes

Root_Message_Type

type Root_Message_Type is tagged null record;

Immediate Children:

Primitive operations:

References:

test_data.adb:19:13 (reference)
test_data.ads:4:9 (declaration)
test_data.ads:6:24 (reference)
test_data.ads:8:31 (reference)
test_data.ads:14:31 (reference)
test_priority_controller.adb:16:41 (reference)
test_priority_controller.adb:33:32 (reference)

Message_Type_1

type Message_Type_1 is new Root_Message_Type with record
      Data : String (1 .. 10) := (others => '*');
   end record;

Ancestors:

Primitive operations:

Send (overriding Send)

References:

test_data.adb:7:24 (reference)
test_data.ads:8:9 (declaration)
test_data.ads:12:24 (reference)
test_priority_controller.adb:38:12 (reference)

Message_Type_2

type Message_Type_2 is new Root_Message_Type with record
      Int : Integer := 123;
   end record;

Ancestors:

Primitive operations:

Send (overriding Send)

References:

test_data.adb:15:24 (reference)
test_data.ads:14:9 (declaration)
test_data.ads:18:24 (reference)
test_priority_controller.adb:39:12 (reference)

Subprograms & Entries

Send

procedure Send 
(D: Message_Type_1);

References:

test_data.adb:7:14 (body)
test_data.adb:11:8 (label on end line)
test_data.ads:12:14 (declaration)

Called by:

Send defined at test_data.ads:12:14

Calls:

Text_IO.Put_Line defined at a-textio.ads:263:14

Send

procedure Send 
(D: Message_Type_2);

References:

test_data.adb:15:14 (body)
test_data.adb:22:8 (label on end line)
test_data.ads:18:14 (declaration)

Called by:

Send defined at test_data.ads:18:14

Calls:

Send defined at test_data.ads:6:14
Text_IO.New_Line defined at a-textio.ads:166:14
Text_IO.Put defined at a-textio.ads:242:14