1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
|
#ifndef _CACHE_COM_
#define _CACHE_COM_
c cache.com : begin
c These common blocks contain global information about the automatic file cache.
c getlst and putlst REQUIRE a cache, hence the term 'automatic' (compared to the
c auxiliary cache controlled by /auxcache/quikget).
#define _MAX_CACHE_SLOTS 128
c#define _CACHE_BYPASS /* bypasses cache on reading/writing of full records */
c#define _CACHE_HIST
c#define _CACHE_HIST_VERBOSE
#ifndef NO_EXTERNAL
external aces_bd_cache
#endif
c icache : the anchor used to address each cache slot
c cachnum : the number of usable cache slots
c cachrec(i) : the index of the physical record cached by the data in slot i
c cachfil(i) : the external file unit number that stores the data in slot i
c cachndx(i) : the icache index of slot i
c cachmod(i) : a modification flag used to trigger a writeback
c cachetime : a cache-event counter
c lrustats(i) : the last 'time' slot i was accessed
integer icache(1), cachnum,
& cachrec(_MAX_CACHE_SLOTS),
& cachfil(_MAX_CACHE_SLOTS),
& cachndx(_MAX_CACHE_SLOTS),
& cachmod(_MAX_CACHE_SLOTS)
common /cache/ icache, cachnum,
& cachrec,
& cachfil,
& cachndx,
& cachmod
save /cache/
integer cachetime, lrustats(_MAX_CACHE_SLOTS)
common /cachelru/ cachetime, lrustats
save /cachelru/
c cachemiss : measures cache misses
c cacheskip : measures read and write bypasses
c cacheread : measures read hits
c cachewrite : measures write hits
c cachewriteback : measures writes-back of dirty slots
integer cachemiss, cacheskip,
& cacheread, cachewrite, cachewriteback
common /cache_hist/ cachemiss, cacheskip,
& cacheread, cachewrite, cachewriteback
save /cache_hist/
c bCacheUp : a flag for bombing in get/putlst if there is no I/O cache
logical bCacheUp
common /cache_flags/ bCacheUp
save /cache_flags/
c cache.com : end
#endif /* _CACHE_COM_ */
|
