--******************************************************************************************************************** -- Created: 9-Mar-2021 22:28:23 by OpenVMS SDL EV3-3 -- Source: 05-MAY-1993 16:24:16 $1$DGA8085:[LIB_ADA.LIS]EWDATADEF.SDL;1 --******************************************************************************************************************** with SYSTEM; use SYSTEM; with STARLET; use STARLET; with CONDITION_HANDLING; use CONDITION_HANDLING; package EWDATADEF is -- module $EWDATADEF --+ -- $EWDATADEF - Symbolic offsets within the exec-writable page -- -- An exec-writable page is allocated when the system is bootstrapped. -- The fields within this page are being defined below. These data cells -- were originally defined in the system (i.e. in SYS.EXE) with the form: -- -- PMS$xL_cellname. -- -- Now that this cell resides in a seperate exec-writable page that is -- pointed by a cell in the system's base image, the symbolic offset from -- the base of the exec-writable page to this cell has the form: -- -- EW_PMS$xL_cellname. -- -- -- NOTE: The PMS Arrays (COUNT, MCNT, WRITE, CACHE, CPU, PFA) must immediately -- follow FCP and FCP2 fields. -- --- EW_K_LENGTH : constant := 378; EW_C_LENGTH : constant := 378; EW_S_EWDATADEF : constant := 378; -- Old size name - synonym type EW_PMS_PMSEWDATA_TYPE is record FCP : STRING(1 .. 0); -- start of the FCP counters FCP2 : STRING(1 .. 0); -- start of the FCP2 counters COUNT : UNSIGNED_LONGWORD_ARRAY (1 .. 10); -- number of operations MCNT : UNSIGNED_LONGWORD_ARRAY (1 .. 10); -- number of modifiers READ : UNSIGNED_LONGWORD_ARRAY (1 .. 10); -- number of disk reads WRITE : UNSIGNED_LONGWORD_ARRAY (1 .. 10); -- number of disk writes CACHE : UNSIGNED_LONGWORD_ARRAY (1 .. 10); -- number of cache hits CPU : UNSIGNED_LONGWORD_ARRAY (1 .. 10); -- accumulated cpu times PFA : UNSIGNED_LONGWORD_ARRAY (1 .. 10); -- accumulated page faults TURN : UNSIGNED_LONGWORD; -- number of window turns DIRHIT : UNSIGNED_LONGWORD; -- count of directory LRU hits DIRMISS : UNSIGNED_LONGWORD; -- count of directory LRU misses QUOHIT : UNSIGNED_LONGWORD; -- count of quota cache hits QUOMISS : UNSIGNED_LONGWORD; -- count of quota cache misses FIDHIT : UNSIGNED_LONGWORD; -- count of file ID cache hits FIDMISS : UNSIGNED_LONGWORD; -- count of file ID cache misses EXTHIT : UNSIGNED_LONGWORD; -- count of extent cache hits EXTMISS : UNSIGNED_LONGWORD; -- count of extent cache misses FILHDR_HIT : UNSIGNED_LONGWORD; -- count of file header cache hits FILHDR_MISS : UNSIGNED_LONGWORD; -- count of file header cache misses DIRDATA_HIT : UNSIGNED_LONGWORD; -- count of directory data block hits DIRDATA_MISS : UNSIGNED_LONGWORD; -- count of directory data block misses STORAGMAP_HIT : UNSIGNED_LONGWORD; -- count of storage bit map cache hits STORAGMAP_MISS : UNSIGNED_LONGWORD; -- count of storage bit map cache misses OPEN : UNSIGNED_LONGWORD; -- number of currently open files OPENS : UNSIGNED_LONGWORD; -- total count of opens ERASEIO : UNSIGNED_LONGWORD; -- total count of erase QIO's issued VOLLCK : UNSIGNED_LONGWORD; -- count of XQP volume synch locks VOLWAIT : UNSIGNED_LONGWORD; -- # of times XQP had to wait for a -- volume synch lock SYNCHLCK : UNSIGNED_LONGWORD; -- count of XQP directory and -- file synch locks SYNCHWAIT : UNSIGNED_LONGWORD; -- # of times XQP had to wait for a -- directory or file synch lock ACCLCK : UNSIGNED_LONGWORD; -- count of XQP access locks XQPCACHEWAIT : UNSIGNED_LONGWORD; -- # of times XQP had to wait for free -- space in a cache end record; for EW_PMS_PMSEWDATA_TYPE use record FCP at 0 range 0 .. -1; FCP2 at 0 range 0 .. -1; COUNT at 0 range 0 .. 319; MCNT at 40 range 0 .. 319; READ at 80 range 0 .. 319; WRITE at 120 range 0 .. 319; CACHE at 160 range 0 .. 319; CPU at 200 range 0 .. 319; PFA at 240 range 0 .. 319; TURN at 280 range 0 .. 31; DIRHIT at 284 range 0 .. 31; DIRMISS at 288 range 0 .. 31; QUOHIT at 292 range 0 .. 31; QUOMISS at 296 range 0 .. 31; FIDHIT at 300 range 0 .. 31; FIDMISS at 304 range 0 .. 31; EXTHIT at 308 range 0 .. 31; EXTMISS at 312 range 0 .. 31; FILHDR_HIT at 316 range 0 .. 31; FILHDR_MISS at 320 range 0 .. 31; DIRDATA_HIT at 324 range 0 .. 31; DIRDATA_MISS at 328 range 0 .. 31; STORAGMAP_HIT at 332 range 0 .. 31; STORAGMAP_MISS at 336 range 0 .. 31; OPEN at 340 range 0 .. 31; OPENS at 344 range 0 .. 31; ERASEIO at 348 range 0 .. 31; VOLLCK at 352 range 0 .. 31; VOLWAIT at 356 range 0 .. 31; SYNCHLCK at 360 range 0 .. 31; SYNCHWAIT at 364 range 0 .. 31; ACCLCK at 368 range 0 .. 31; XQPCACHEWAIT at 372 range 0 .. 31; end record; for EW_PMS_PMSEWDATA_TYPE'SIZE use 3008; EW_PMS_PMSEWDATA_TYPE_INIT : constant EW_PMS_PMSEWDATA_TYPE := (FCP => (others => ASCII.NUL), FCP2 => (others => ASCII.NUL), COUNT => (others => 0), MCNT => (others => 0), READ => (others => 0), WRITE => (others => 0), CACHE => (others => 0), CPU => (others => 0), PFA => (others => 0), TURN => 0, DIRHIT => 0, DIRMISS => 0, QUOHIT => 0, QUOMISS => 0, FIDHIT => 0, FIDMISS => 0, EXTHIT => 0, EXTMISS => 0, FILHDR_HIT => 0, FILHDR_MISS => 0, DIRDATA_HIT => 0, DIRDATA_MISS => 0, STORAGMAP_HIT => 0, STORAGMAP_MISS => 0, OPEN => 0, OPENS => 0, ERASEIO => 0, VOLLCK => 0, VOLWAIT => 0, SYNCHLCK => 0, SYNCHWAIT => 0, ACCLCK => 0, XQPCACHEWAIT => 0); type EW_RMS_RMSEWDATA_TYPE is record GBLBUFQUO : UNSIGNED_WORD; -- current global buffer quota remaining end record; for EW_RMS_RMSEWDATA_TYPE use record GBLBUFQUO at 0 range 0 .. 15; end record; for EW_RMS_RMSEWDATA_TYPE'SIZE use 16; EW_RMS_RMSEWDATA_TYPE_INIT : constant EW_RMS_RMSEWDATA_TYPE := (GBLBUFQUO => 0); type EWDATA_TYPE is record PMSEWDATA : EW_PMS_PMSEWDATA_TYPE; RMSEWDATA : EW_RMS_RMSEWDATA_TYPE; end record; for EWDATA_TYPE use record PMSEWDATA at 0 range 0 .. 3007; RMSEWDATA at 376 range 0 .. 15; end record; for EWDATA_TYPE'SIZE use 3024; EWDATA_TYPE_INIT : constant EWDATA_TYPE := ( PMSEWDATA => EW_PMS_PMSEWDATA_TYPE_INIT, RMSEWDATA => EW_RMS_RMSEWDATA_TYPE_INIT); end EWDATADEF;