|
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: 4096 (0x1000)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Last_Gasp_Destroy, seg_02867a
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
procedure Last_Gasp_Destroy (Name : String);
------------------------------------------------------------------------------
-- Name - Name of some object, withing a directory, to be "deleted".
--
-- Forceably removes an object from a directory. Use this as a last-resort
-- when you've tried everything else while trying to delete an object or a
-- set of objects. This should normally only be used if you are consistently
-- getting VERSION_ERROR on a particular object. This is probably the wrong
-- thing to do if you are getting "Key not found" errors.
--
-- **** DO NOT USE THIS CASUALLY. ****
--
-- This routine generates permanent garbage on the machine. Use this only
-- as a last resort. The object is removed from the directory and "dropped".
-- It is no longer findable or garbage collectable.
--
-- Before using this routine:
--
-- a) Have you tried Cmvc_Maintenance.Check_Consistency?
--
-- b) Have you tried Compilation.Set_Target_Key("*R1000", "$$.??'c(Library)");
-- (Note the '*', it turns off checking.)
--
-- c) Have you tried Repair_Directory on the containing World and all contained
-- Libraries in the world?
--
-- d) Have you tried Program_Library_Maintenance.Build?
--
-- e) Have you tried Cdb_Maintenance.Destroy?
--
-- f) Have you tried Repair_Cg_Attrs?
--
-- g) Have you tried Low_Level_Destroy?
--
-- If you use this routine:
--
-- a) Use the Uncode procedure first on all Coded units that must be
-- destroyed, so as to delete and eliminate CG attribute spaces if
-- at all possible.
--
-- b) Use the Uninstall procedure first, to delete semantic attribute spaces
-- if at all possible.
--
-- c) Use this routine.
--
-- d) Use Repair_Directory on the directory containing the destroyed objects.
-- It will print messages about cleaning up some things; this is expected.
--
-- e) Use Program_Library_Maintenance.Build to make sure that the program
-- library is functional. "Verify" is not good enough; use "Build".
--
-- f) Use Cmvc_Maintenance.Check_Consistency if this is in a View. Use it on
-- all views that import this view.
--
-- g) Take a full backup instead of an incremental next time around.
------------------------------------------------------------------------------
nblk1=3
nid=0
hdr6=6
[0x00] rec0=16 rec1=00 rec2=01 rec3=074
[0x01] rec0=1d rec1=00 rec2=02 rec3=00c
[0x02] rec0=08 rec1=00 rec2=03 rec3=000
tail 0x2152107ca83c1884bfc95 0x42a00088462063203