|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 5120 (0x1400)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package V_I_Krn_Trace, seg_04b9b0
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
package V_I_Krn_Trace is
pragma Suppress (All_Checks);
pragma Suppress (Exception_Tables);
pragma Not_Elaborated;
pragma Local_Access;
-- Internal events used within the run-time only. Not visible to users
type Kernel_Events is
(
-- Logged by the kernel
Kd_Ceiling_Mutex_Lock, Kd_Ceiling_Mutex_Unlock,
Kd_Checks_Current_Run_Queue, Kd_Cond_Broadcast, Kd_Cond_Suspend,
Kd_Cond_Signal, Kd_Cond_Signal_Unlock, Kd_Cond_Timed_Wait,
Kd_Cond_Timeout, Kd_Cond_Wait, Kd_Cond_Wait_Unlock,
Kd_Creating_Dummy_Idle_Tasks, Kd_Current_Task_Does_Time_Delay,
Kd_Current_Task_Pending_Free, Kd_Enter_From_Isr_Callout,
Kd_Enter_From_User, Kd_Enter_From_User_Suptask, Kd_Isr_Cond_Broadcast,
Kd_Isr_Cond_Signal, Kd_Isr_Semaphore_Signal, Kd_Isr_Task_Suspend,
Kd_Isr_Task_Resume, Kd_Mutex_Lock, Kd_Mutex_Unlock,
Kd_Mutex_Unlock_Other_Waiting, Kd_Mutex_Resume, Kd_Mutex_Suspend,
Kd_Pending_Cond_Broadcast, Kd_Pending_Cond_Resume,
Kd_Pending_Cond_Signal, Kd_Pending_Handle, Kd_Pending_Overflow,
Kd_Reaches_Delay_Timeout_Adds_Task_To_Run_Queue, Kd_Reaches_Time_Event,
Kd_Runq_Add, Kd_Semaphore_Remove, Kd_Semaphore_Signal,
Kd_Semaphore_Suspend, Kd_Semaphore_Timed_Wait, Kd_Semaphore_Timeout,
Kd_Semaphore_Wait, Kd_Slice_Timeout, Kd_Slow_Switch_To,
Kd_Switch_To, Kd_Switches_To_Idle_Task, Kd_Tcb_Entry,
Kd_Supervisor_Task_Signal, Kd_Supervisor_Task_Wait, Kd_Task_Activate,
Kd_Task_Attach_Cpu, Kd_Task_Create, Kd_Task_Free,
Kd_Task_Resume, Kd_Task_Set_Priority, Kd_Task_Signal,
Kd_Task_Signal_Unlock, Kd_Task_Signal_Wait_Unlock,
Kd_Task_Signal_Wait_Unlock_Complete, Kd_Task_Suspend, Kd_Task_Terminate,
Kd_Task_Wait, Kd_Task_Wait_Complete, Kd_Task_Wait_Unlock,
Kd_Task_Wait_Unlock_Complete, Kd_Task_Timed_Wait,
Kd_Task_Timed_Wait_Complete, Kd_Task_Timed_Wait_Timeout,
-- Logged by the usr program (usr_task package)
Usr_First_Message, Ud_Main_Create, Ud_Masters_Lock, Ud_Masters_Trylock,
Ud_Masters_Unlock, Ud_Task_Activate, Ud_Task_Create, Ud_Task_Destroy,
Ud_Task_Destroy_Self, Ud_Task_Lock, Ud_Task_Resume, Ud_Task_Signal,
Ud_Task_Signal_Unlock, Ud_Task_Signal_Wait_Unlock, Ud_Task_Stop,
Ud_Task_Stop_Self, Ud_Task_Suspend, Ud_Task_Timed_Wait, Ud_Task_Unlock,
Ud_Task_Wait, Ud_Task_Wait_Locked_Masters, Ud_Task_Wait_Unlock,
-- Logged by the usr program (usr_mutex package)
Ud_Cond_Broadcast, Ud_Cond_Signal, Ud_Cond_Signal_Unlock,
Ud_Cond_Timed_Wait, Ud_Cond_Wait, Ud_Intr_Cond_Timed_Wait,
Ud_Intr_Cond_Wait, Ud_Intr_Mutex_Lock, Ud_Intr_Mutex_Unlock,
Ud_Mutex_Destroy, Ud_Mutex_Init, Ud_Mutex_Lock, Ud_Mutex_Trylock,
Ud_Mutex_Unlock, Ud_Prio_Mutex_Trylock, Ud_Prio_Mutex_Unlock,
--
-- TS enumerations
--
Td_First_Message,
--
-- DA enumerations
--
Da_First_Message, Da_Send, Da_Receive
--
);
type Kernel_Enables is array (Kernel_Events) of Boolean;
Krn_Log_Enables : Kernel_Enables;
pragma Interface_Name (Krn_Log_Enables, "__V_I_KRN_TRACE_LOG_ENABLES");
procedure Kernel_Log (Kind : Kernel_Events;
P1 : Integer := 0;
P2 : Integer := 0;
P3 : Integer := 0;
P4 : Integer := 0);
pragma Interface (Ada, Kernel_Log);
pragma Interface_Name (Kernel_Log, "__TS_DEBUG_KERNEL_LOG");
end V_I_Krn_Trace;
nblk1=4
nid=0
hdr6=8
[0x00] rec0=16 rec1=00 rec2=01 rec3=092
[0x01] rec0=0f rec1=00 rec2=02 rec3=064
[0x02] rec0=12 rec1=00 rec2=03 rec3=010
[0x03] rec0=18 rec1=00 rec2=04 rec3=000
tail 0x21548cd028684383e050f 0x42a00088462060003