|
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: 3072 (0xc00)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Ada_Krn_I, seg_04cdee
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
with System;
use System;
with Ada_Krn_Defs;
use Ada_Krn_Defs;
with Link_Block;
with Krn_Defs;
with Usr_Defs;
package body Ada_Krn_I is
pragma Suppress (All_Checks);
pragma Suppress (Exception_Tables);
Debug_Block : Link_Block.Debug_Block_T;
pragma Interface_Name (Debug_Block, "DEBUG_BLOCK");
-------------------------------------------------------------------------
-- Task management services
-------------------------------------------------------------------------
function Task_Self return Task_Id is
begin
return Krn_Defs.To_A_A_Krn_Tcb_T (Debug_Block.Ct).all.Ada_Task_Id;
end Task_Self;
-------------------------------------------------------------------------
-- ISR mutex services
-------------------------------------------------------------------------
procedure Isr_Mutex_Unlock (Mutex : A_Mutex_T) is
begin
null;
end Isr_Mutex_Unlock;
-------------------------------------------------------------------------
-- Interrupt services
-------------------------------------------------------------------------
function Isr_In_Check return Boolean is
begin
return Usr_Defs.To_A_Natural (Debug_Block.Intr_Depth).all > 0;
end Isr_In_Check;
end Ada_Krn_I;
nblk1=2
nid=0
hdr6=4
[0x00] rec0=21 rec1=00 rec2=01 rec3=026
[0x01] rec0=08 rec1=00 rec2=02 rec3=000
tail 0x217542034874f7bc52567 0x42a00088462060003