|
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: 2048 (0x800) Types: Ada Source Notes: 03_class, FILE, R1k_Segment, e3_tag, package Low_Level_Action, pragma Module_Name 4 916, pragma Subsystem Om_Mechanisms, seg_012869
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧
with Machine; package Low_Level_Action is pragma Subsystem (Om_Mechanisms, Private_Part => Closed); pragma Module_Name (4, 916); type Id is private; Null_Id : constant Id; function Get_Id (Task_Id : Machine.Task_Id := Machine.Get_Task_Id) return Id; function Is_In_Progress (Of_Action : Id) return Boolean; pragma Consume_Offset (2); type Mode is (None, Read, Update, Overwrite); pragma Consume_Offset; function Hash (The_Action : Id) return Integer; pragma Consume_Offset (3); procedure Prevent_Commit (The_Action : Id); Commit_Prevented : exception; -- raised if prevent_commit and then commit are called with the same action end Low_Level_Action;
nblk1=1 nid=0 hdr6=2 [0x00] rec0=1f rec1=00 rec2=01 rec3=000 tail 0x2150d8c4a82b081e7d159 0x42a00088462065003