ref: abdb62608209861e52798c1225d8779c5cd96196
dir: /sys/src/libventi/packet.acid/
sizeof_1_ = 8; aggr _1_ { 'U' 0 lo; 'U' 4 hi; }; defn _1_(addr) { complex _1_ addr; print(" lo ", addr.lo, "\n"); print(" hi ", addr.hi, "\n"); }; sizeofFPdbleword = 8; aggr FPdbleword { 'F' 0 x; { 'U' 0 lo; 'U' 4 hi; }; }; defn FPdbleword(addr) { complex FPdbleword addr; print(" x ", addr.x, "\n"); print("_1_ {\n"); _1_(addr+0); print("}\n"); }; UTFmax = 3; Runesync = 128; Runeself = 128; Runeerror = 65533; sizeofFmt = 48; aggr Fmt { 'b' 0 runes; 'X' 4 start; 'X' 8 to; 'X' 12 stop; 'X' 16 flush; 'X' 20 farg; 'D' 24 nfmt; 'X' 28 args; 'D' 32 r; 'D' 36 width; 'D' 40 prec; 'U' 44 flags; }; defn Fmt(addr) { complex Fmt addr; print(" runes ", addr.runes, "\n"); print(" start ", addr.start\X, "\n"); print(" to ", addr.to\X, "\n"); print(" stop ", addr.stop\X, "\n"); print(" flush ", addr.flush\X, "\n"); print(" farg ", addr.farg\X, "\n"); print(" nfmt ", addr.nfmt, "\n"); print(" args ", addr.args\X, "\n"); print(" r ", addr.r, "\n"); print(" width ", addr.width, "\n"); print(" prec ", addr.prec, "\n"); print(" flags ", addr.flags, "\n"); }; FmtWidth = 1; FmtLeft = 2; FmtPrec = 4; FmtSharp = 8; FmtSpace = 16; FmtSign = 32; FmtZero = 64; FmtUnsigned = 128; FmtShort = 256; FmtLong = 512; FmtVLong = 1024; FmtComma = 2048; FmtByte = 4096; FmtFlag = 8192; sizeofTm = 40; aggr Tm { 'D' 0 sec; 'D' 4 min; 'D' 8 hour; 'D' 12 mday; 'D' 16 mon; 'D' 20 year; 'D' 24 wday; 'D' 28 yday; 'a' 32 zone; 'D' 36 tzoff; }; defn Tm(addr) { complex Tm addr; print(" sec ", addr.sec, "\n"); print(" min ", addr.min, "\n"); print(" hour ", addr.hour, "\n"); print(" mday ", addr.mday, "\n"); print(" mon ", addr.mon, "\n"); print(" year ", addr.year, "\n"); print(" wday ", addr.wday, "\n"); print(" yday ", addr.yday, "\n"); print(" zone ", addr.zone, "\n"); print(" tzoff ", addr.tzoff, "\n"); }; PNPROC = 1; PNGROUP = 2; Profoff = 0; Profuser = 1; Profkernel = 2; Proftime = 3; Profsample = 4; sizeofLock = 4; aggr Lock { 'D' 0 val; }; defn Lock(addr) { complex Lock addr; print(" val ", addr.val, "\n"); }; sizeofQLp = 12; aggr QLp { 'D' 0 inuse; 'A' QLp 4 next; 'C' 8 state; }; defn QLp(addr) { complex QLp addr; print(" inuse ", addr.inuse, "\n"); print(" next ", addr.next\X, "\n"); print(" state ", addr.state, "\n"); }; sizeofQLock = 16; aggr QLock { Lock 0 lock; 'D' 4 locked; 'A' QLp 8 $head; 'A' QLp 12 $tail; }; defn QLock(addr) { complex QLock addr; print("Lock lock {\n"); Lock(addr.lock); print("}\n"); print(" locked ", addr.locked, "\n"); print(" $head ", addr.$head\X, "\n"); print(" $tail ", addr.$tail\X, "\n"); }; sizeofRWLock = 20; aggr RWLock { Lock 0 lock; 'D' 4 readers; 'D' 8 writer; 'A' QLp 12 $head; 'A' QLp 16 $tail; }; defn RWLock(addr) { complex RWLock addr; print("Lock lock {\n"); Lock(addr.lock); print("}\n"); print(" readers ", addr.readers, "\n"); print(" writer ", addr.writer, "\n"); print(" $head ", addr.$head\X, "\n"); print(" $tail ", addr.$tail\X, "\n"); }; sizeofRendez = 12; aggr Rendez { 'A' QLock 0 l; 'A' QLp 4 $head; 'A' QLp 8 $tail; }; defn Rendez(addr) { complex Rendez addr; print(" l ", addr.l\X, "\n"); print(" $head ", addr.$head\X, "\n"); print(" $tail ", addr.$tail\X, "\n"); }; sizeofNetConnInfo = 36; aggr NetConnInfo { 'X' 0 dir; 'X' 4 root; 'X' 8 spec; 'X' 12 lsys; 'X' 16 lserv; 'X' 20 rsys; 'X' 24 rserv; 'X' 28 laddr; 'X' 32 raddr; }; defn NetConnInfo(addr) { complex NetConnInfo addr; print(" dir ", addr.dir\X, "\n"); print(" root ", addr.root\X, "\n"); print(" spec ", addr.spec\X, "\n"); print(" lsys ", addr.lsys\X, "\n"); print(" lserv ", addr.lserv\X, "\n"); print(" rsys ", addr.rsys\X, "\n"); print(" rserv ", addr.rserv\X, "\n"); print(" laddr ", addr.laddr\X, "\n"); print(" raddr ", addr.raddr\X, "\n"); }; RFNAMEG = 1; RFENVG = 2; RFFDG = 4; RFNOTEG = 8; RFPROC = 16; RFMEM = 32; RFNOWAIT = 64; RFCNAMEG = 1024; RFCENVG = 2048; RFCFDG = 4096; RFREND = 8192; RFNOMNT = 16384; sizeofQid = 16; aggr Qid { 'W' 0 path; 'U' 8 vers; 'b' 12 type; }; defn Qid(addr) { complex Qid addr; print(" path ", addr.path, "\n"); print(" vers ", addr.vers, "\n"); print(" type ", addr.type, "\n"); }; sizeofDir = 60; aggr Dir { 'u' 0 type; 'U' 4 dev; Qid 8 qid; 'U' 24 mode; 'U' 28 atime; 'U' 32 mtime; 'V' 36 length; 'X' 44 name; 'X' 48 uid; 'X' 52 gid; 'X' 56 muid; }; defn Dir(addr) { complex Dir addr; print(" type ", addr.type, "\n"); print(" dev ", addr.dev, "\n"); print("Qid qid {\n"); Qid(addr.qid); print("}\n"); print(" mode ", addr.mode, "\n"); print(" atime ", addr.atime, "\n"); print(" mtime ", addr.mtime, "\n"); print(" length ", addr.length, "\n"); print(" name ", addr.name\X, "\n"); print(" uid ", addr.uid\X, "\n"); print(" gid ", addr.gid\X, "\n"); print(" muid ", addr.muid\X, "\n"); }; sizeofWaitmsg = 20; aggr Waitmsg { 'D' 0 pid; 'a' 4 time; 'X' 16 msg; }; defn Waitmsg(addr) { complex Waitmsg addr; print(" pid ", addr.pid, "\n"); print(" time ", addr.time, "\n"); print(" msg ", addr.msg\X, "\n"); }; sizeofIOchunk = 8; aggr IOchunk { 'X' 0 addr; 'U' 4 len; }; defn IOchunk(addr) { complex IOchunk addr; print(" addr ", addr.addr\X, "\n"); print(" len ", addr.len, "\n"); }; MaxFragSize = 9216; sizeofVtLog = 40; aggr VtLog { 'A' VtLog 0 next; 'X' 4 name; 'X' 8 chunk; 'U' 12 nchunk; 'X' 16 w; QLock 20 lk; 'D' 36 ref; }; defn VtLog(addr) { complex VtLog addr; print(" next ", addr.next\X, "\n"); print(" name ", addr.name\X, "\n"); print(" chunk ", addr.chunk\X, "\n"); print(" nchunk ", addr.nchunk, "\n"); print(" w ", addr.w\X, "\n"); print("QLock lk {\n"); QLock(addr.lk); print("}\n"); print(" ref ", addr.ref, "\n"); }; sizeofVtLogChunk = 12; aggr VtLogChunk { 'X' 0 p; 'X' 4 ep; 'X' 8 wp; }; defn VtLogChunk(addr) { complex VtLogChunk addr; print(" p ", addr.p\X, "\n"); print(" ep ", addr.ep\X, "\n"); print(" wp ", addr.wp\X, "\n"); }; VtScoreSize = 20; VtMaxStringSize = 1024; VtMaxLumpSize = 57344; VtPointerDepth = 7; VtDataType = 0; VtDirType = 8; VtRootType = 16; VtMaxType = 17; VtCorruptType = 255; VtTypeDepthMask = 7; VtTypeBaseMask = -8; VtEntryActive = 1; _VtEntryDir = 2; _VtEntryDepthShift = 2; _VtEntryDepthMask = 28; VtEntryLocal = 32; VtEntrySize = 40; sizeofVtEntry = 40; aggr VtEntry { 'U' 0 gen; 'u' 4 psize; 'u' 6 dsize; 'b' 8 type; 'b' 9 flags; 'W' 12 size; 'a' 20 score; }; defn VtEntry(addr) { complex VtEntry addr; print(" gen ", addr.gen, "\n"); print(" psize ", addr.psize, "\n"); print(" dsize ", addr.dsize, "\n"); print(" type ", addr.type, "\n"); print(" flags ", addr.flags, "\n"); print(" size ", addr.size, "\n"); print(" score ", addr.score, "\n"); }; sizeofVtRoot = 300; aggr VtRoot { 'a' 0 name; 'a' 128 type; 'a' 256 score; 'u' 276 blocksize; 'a' 278 prev; }; defn VtRoot(addr) { complex VtRoot addr; print(" name ", addr.name, "\n"); print(" type ", addr.type, "\n"); print(" score ", addr.score, "\n"); print(" blocksize ", addr.blocksize, "\n"); print(" prev ", addr.prev, "\n"); }; VtRootSize = 300; VtRootVersion = 2; VtCryptoStrengthNone = 0; VtCryptoStrengthAuth = 1; VtCryptoStrengthWeak = 2; VtCryptoStrengthStrong = 3; VtCryptoNone = 0; VtCryptoSSL3 = 1; VtCryptoTLS1 = 2; VtCryptoMax = 3; VtCodecNone = 0; VtCodecDeflate = 1; VtCodecThwack = 2; VtCodecMax = 3; VtRerror = 1; VtTping = 2; VtRping = 3; VtThello = 4; VtRhello = 5; VtTgoodbye = 6; VtRgoodbye = 7; VtTauth0 = 8; VtRauth0 = 9; VtTauth1 = 10; VtRauth1 = 11; VtTread = 12; VtRread = 13; VtTwrite = 14; VtRwrite = 15; VtTsync = 16; VtRsync = 17; VtTmax = 18; sizeofVtFcall = 80; aggr VtFcall { 'b' 0 msgtype; 'b' 1 tag; 'X' 4 error; 'X' 8 version; 'X' 12 uid; 'b' 16 strength; 'X' 20 crypto; 'U' 24 ncrypto; 'X' 28 codec; 'U' 32 ncodec; 'X' 36 sid; 'b' 40 rcrypto; 'b' 41 rcodec; 'X' 44 auth; 'U' 48 nauth; 'a' 52 score; 'b' 72 blocktype; 'u' 74 count; 'X' 76 data; }; defn VtFcall(addr) { complex VtFcall addr; print(" msgtype ", addr.msgtype, "\n"); print(" tag ", addr.tag, "\n"); print(" error ", addr.error\X, "\n"); print(" version ", addr.version\X, "\n"); print(" uid ", addr.uid\X, "\n"); print(" strength ", addr.strength, "\n"); print(" crypto ", addr.crypto\X, "\n"); print(" ncrypto ", addr.ncrypto, "\n"); print(" codec ", addr.codec\X, "\n"); print(" ncodec ", addr.ncodec, "\n"); print(" sid ", addr.sid\X, "\n"); print(" rcrypto ", addr.rcrypto, "\n"); print(" rcodec ", addr.rcodec, "\n"); print(" auth ", addr.auth\X, "\n"); print(" nauth ", addr.nauth, "\n"); print(" score ", addr.score, "\n"); print(" blocktype ", addr.blocktype, "\n"); print(" count ", addr.count, "\n"); print(" data ", addr.data\X, "\n"); }; VtStateAlloc = 0; VtStateConnected = 1; VtStateClosed = 2; sizeofVtConn = 1404; aggr VtConn { QLock 0 lk; QLock 16 inlk; QLock 32 outlk; 'D' 48 debug; 'D' 52 infd; 'D' 56 outfd; 'D' 60 muxer; 'X' 64 writeq; 'X' 68 readq; 'D' 72 state; 'a' 76 wait; 'U' 1100 ntag; 'U' 1104 nsleep; 'X' 1108 part; Rendez 1112 tagrend; Rendez 1124 rpcfork; 'X' 1136 version; 'X' 1140 uid; 'X' 1144 sid; 'a' 1148 addr; }; defn VtConn(addr) { complex VtConn addr; print("QLock lk {\n"); QLock(addr.lk); print("}\n"); print("QLock inlk {\n"); QLock(addr.inlk); print("}\n"); print("QLock outlk {\n"); QLock(addr.outlk); print("}\n"); print(" debug ", addr.debug, "\n"); print(" infd ", addr.infd, "\n"); print(" outfd ", addr.outfd, "\n"); print(" muxer ", addr.muxer, "\n"); print(" writeq ", addr.writeq\X, "\n"); print(" readq ", addr.readq\X, "\n"); print(" state ", addr.state, "\n"); print(" wait ", addr.wait, "\n"); print(" ntag ", addr.ntag, "\n"); print(" nsleep ", addr.nsleep, "\n"); print(" part ", addr.part\X, "\n"); print("Rendez tagrend {\n"); Rendez(addr.tagrend); print("}\n"); print("Rendez rpcfork {\n"); Rendez(addr.rpcfork); print("}\n"); print(" version ", addr.version\X, "\n"); print(" uid ", addr.uid\X, "\n"); print(" sid ", addr.sid\X, "\n"); print(" addr ", addr.addr, "\n"); }; sizeofVtReq = 168; aggr VtReq { VtFcall 0 tx; VtFcall 80 rx; 'X' 160 srv; 'X' 164 sc; }; defn VtReq(addr) { complex VtReq addr; print("VtFcall tx {\n"); VtFcall(addr.tx); print("}\n"); print("VtFcall rx {\n"); VtFcall(addr.rx); print("}\n"); print(" srv ", addr.srv\X, "\n"); print(" sc ", addr.sc\X, "\n"); }; NilBlock = -1; sizeofVtBlock = 84; aggr VtBlock { 'X' 0 c; QLock 4 lk; 'X' 20 data; 'a' 24 score; 'b' 44 type; 'D' 48 nlock; 'D' 52 iostate; 'D' 56 ref; 'U' 60 heap; 'A' VtBlock 64 next; 'A' VtBlock 68 prev; 'U' 72 used; 'U' 76 used2; 'U' 80 addr; }; defn VtBlock(addr) { complex VtBlock addr; print(" c ", addr.c\X, "\n"); print("QLock lk {\n"); QLock(addr.lk); print("}\n"); print(" data ", addr.data\X, "\n"); print(" score ", addr.score, "\n"); print(" type ", addr.type, "\n"); print(" nlock ", addr.nlock, "\n"); print(" iostate ", addr.iostate, "\n"); print(" ref ", addr.ref, "\n"); print(" heap ", addr.heap, "\n"); print(" next ", addr.next\X, "\n"); print(" prev ", addr.prev\X, "\n"); print(" used ", addr.used, "\n"); print(" used2 ", addr.used2, "\n"); print(" addr ", addr.addr, "\n"); }; sizeofVtFile = 84; aggr VtFile { QLock 0 lk; 'D' 16 ref; 'D' 20 $local; 'A' VtBlock 24 b; 'a' 28 score; 'X' 48 c; 'D' 52 mode; 'U' 56 gen; 'D' 60 dsize; 'D' 64 psize; 'D' 68 dir; 'A' VtFile 72 parent; 'D' 76 epb; 'U' 80 offset; }; defn VtFile(addr) { complex VtFile addr; print("QLock lk {\n"); QLock(addr.lk); print("}\n"); print(" ref ", addr.ref, "\n"); print(" $local ", addr.$local, "\n"); print(" b ", addr.b\X, "\n"); print(" score ", addr.score, "\n"); print(" c ", addr.c\X, "\n"); print(" mode ", addr.mode, "\n"); print(" gen ", addr.gen, "\n"); print(" dsize ", addr.dsize, "\n"); print(" psize ", addr.psize, "\n"); print(" dir ", addr.dir, "\n"); print(" parent ", addr.parent\X, "\n"); print(" epb ", addr.epb, "\n"); print(" offset ", addr.offset, "\n"); }; VtOREAD = 0; VtOWRITE = 1; VtORDWR = 2; AESbsize = 16; AESmaxkey = 32; AESmaxrounds = 14; sizeofAESstate = 540; aggr AESstate { 'U' 0 setup; 'D' 4 rounds; 'D' 8 keybytes; 'a' 12 key; 'a' 44 ekey; 'a' 284 dkey; 'a' 524 ivec; }; defn AESstate(addr) { complex AESstate addr; print(" setup ", addr.setup, "\n"); print(" rounds ", addr.rounds, "\n"); print(" keybytes ", addr.keybytes, "\n"); print(" key ", addr.key, "\n"); print(" ekey ", addr.ekey, "\n"); print(" dkey ", addr.dkey, "\n"); print(" ivec ", addr.ivec, "\n"); }; BFbsize = 8; BFrounds = 16; sizeofBFstate = 4236; aggr BFstate { 'U' 0 setup; 'a' 4 key; 'a' 60 ivec; 'a' 68 pbox; 'a' 140 sbox; }; defn BFstate(addr) { complex BFstate addr; print(" setup ", addr.setup, "\n"); print(" key ", addr.key, "\n"); print(" ivec ", addr.ivec, "\n"); print(" pbox ", addr.pbox, "\n"); print(" sbox ", addr.sbox, "\n"); }; DESbsize = 8; sizeofDESstate = 148; aggr DESstate { 'U' 0 setup; 'a' 4 key; 'a' 12 expanded; 'a' 140 ivec; }; defn DESstate(addr) { complex DESstate addr; print(" setup ", addr.setup, "\n"); print(" key ", addr.key, "\n"); print(" expanded ", addr.expanded, "\n"); print(" ivec ", addr.ivec, "\n"); }; DES3E = 0; DES3D = 1; DES3EEE = 0; DES3EDE = 2; DES3DED = 5; DES3DDD = 7; sizeofDES3state = 420; aggr DES3state { 'U' 0 setup; 'a' 4 key; 'a' 28 expanded; 'a' 412 ivec; }; defn DES3state(addr) { complex DES3state addr; print(" setup ", addr.setup, "\n"); print(" key ", addr.key, "\n"); print(" expanded ", addr.expanded, "\n"); print(" ivec ", addr.ivec, "\n"); }; SHA1dlen = 20; MD4dlen = 16; MD5dlen = 16; sizeofDigestState = 164; aggr DigestState { 'W' 0 len; 'a' 8 state; 'a' 28 buf; 'D' 156 blen; 'C' 160 malloced; 'C' 161 seeded; }; defn DigestState(addr) { complex DigestState addr; print(" len ", addr.len, "\n"); print(" state ", addr.state, "\n"); print(" buf ", addr.buf, "\n"); print(" blen ", addr.blen, "\n"); print(" malloced ", addr.malloced, "\n"); print(" seeded ", addr.seeded, "\n"); }; sizeofRC4state = 260; aggr RC4state { 'a' 0 state; 'b' 256 x; 'b' 257 y; }; defn RC4state(addr) { complex RC4state addr; print(" state ", addr.state, "\n"); print(" x ", addr.x, "\n"); print(" y ", addr.y, "\n"); }; sizeofRSApub = 8; aggr RSApub { 'X' 0 n; 'X' 4 ek; }; defn RSApub(addr) { complex RSApub addr; print(" n ", addr.n\X, "\n"); print(" ek ", addr.ek\X, "\n"); }; sizeofRSApriv = 32; aggr RSApriv { RSApub 0 pub; 'X' 8 dk; 'X' 12 p; 'X' 16 q; 'X' 20 kp; 'X' 24 kq; 'X' 28 c2; }; defn RSApriv(addr) { complex RSApriv addr; print("RSApub pub {\n"); RSApub(addr.pub); print("}\n"); print(" dk ", addr.dk\X, "\n"); print(" p ", addr.p\X, "\n"); print(" q ", addr.q\X, "\n"); print(" kp ", addr.kp\X, "\n"); print(" kq ", addr.kq\X, "\n"); print(" c2 ", addr.c2\X, "\n"); }; sizeofPEMChain = 12; aggr PEMChain { 'A' PEMChain 0 next; 'X' 4 pem; 'D' 8 pemlen; }; defn PEMChain(addr) { complex PEMChain addr; print(" next ", addr.next\X, "\n"); print(" pem ", addr.pem\X, "\n"); print(" pemlen ", addr.pemlen, "\n"); }; sizeofEGpub = 12; aggr EGpub { 'X' 0 p; 'X' 4 alpha; 'X' 8 key; }; defn EGpub(addr) { complex EGpub addr; print(" p ", addr.p\X, "\n"); print(" alpha ", addr.alpha\X, "\n"); print(" key ", addr.key\X, "\n"); }; sizeofEGpriv = 16; aggr EGpriv { EGpub 0 pub; 'X' 12 secret; }; defn EGpriv(addr) { complex EGpriv addr; print("EGpub pub {\n"); EGpub(addr.pub); print("}\n"); print(" secret ", addr.secret\X, "\n"); }; sizeofEGsig = 8; aggr EGsig { 'X' 0 r; 'X' 4 s; }; defn EGsig(addr) { complex EGsig addr; print(" r ", addr.r\X, "\n"); print(" s ", addr.s\X, "\n"); }; sizeofDSApub = 16; aggr DSApub { 'X' 0 p; 'X' 4 q; 'X' 8 alpha; 'X' 12 key; }; defn DSApub(addr) { complex DSApub addr; print(" p ", addr.p\X, "\n"); print(" q ", addr.q\X, "\n"); print(" alpha ", addr.alpha\X, "\n"); print(" key ", addr.key\X, "\n"); }; sizeofDSApriv = 20; aggr DSApriv { DSApub 0 pub; 'X' 16 secret; }; defn DSApriv(addr) { complex DSApriv addr; print("DSApub pub {\n"); DSApub(addr.pub); print("}\n"); print(" secret ", addr.secret\X, "\n"); }; sizeofDSAsig = 8; aggr DSAsig { 'X' 0 r; 'X' 4 s; }; defn DSAsig(addr) { complex DSAsig addr; print(" r ", addr.r\X, "\n"); print(" s ", addr.s\X, "\n"); }; sizeofThumbprint = 24; aggr Thumbprint { 'A' Thumbprint 0 next; 'a' 4 sha1; }; defn Thumbprint(addr) { complex Thumbprint addr; print(" next ", addr.next\X, "\n"); print(" sha1 ", addr.sha1, "\n"); }; sizeofTLSconn = 80; aggr TLSconn { 'a' 0 dir; 'X' 40 cert; 'X' 44 sessionID; 'D' 48 certlen; 'D' 52 sessionIDlen; 'X' 56 trace; 'A' PEMChain 60 chain; 'X' 64 sessionType; 'X' 68 sessionKey; 'D' 72 sessionKeylen; 'X' 76 sessionConst; }; defn TLSconn(addr) { complex TLSconn addr; print(" dir ", addr.dir, "\n"); print(" cert ", addr.cert\X, "\n"); print(" sessionID ", addr.sessionID\X, "\n"); print(" certlen ", addr.certlen, "\n"); print(" sessionIDlen ", addr.sessionIDlen, "\n"); print(" trace ", addr.trace\X, "\n"); print(" chain ", addr.chain\X, "\n"); print(" sessionType ", addr.sessionType\X, "\n"); print(" sessionKey ", addr.sessionKey\X, "\n"); print(" sessionKeylen ", addr.sessionKeylen, "\n"); print(" sessionConst ", addr.sessionConst\X, "\n"); }; BigMemSize = 9216; SmallMemSize = 1152; NLocalFrag = 2; PFront = 0; PMiddle = 1; PEnd = 2; sizeofMem = 28; aggr Mem { Lock 0 lk; 'D' 4 ref; 'X' 8 bp; 'X' 12 ep; 'X' 16 rp; 'X' 20 wp; 'A' Mem 24 next; }; defn Mem(addr) { complex Mem addr; print("Lock lk {\n"); Lock(addr.lk); print("}\n"); print(" ref ", addr.ref, "\n"); print(" bp ", addr.bp\X, "\n"); print(" ep ", addr.ep\X, "\n"); print(" rp ", addr.rp\X, "\n"); print(" wp ", addr.wp\X, "\n"); print(" next ", addr.next\X, "\n"); }; FragLocalFree = 0; FragLocalAlloc = 1; FragGlobal = 2; sizeofFrag = 32; aggr Frag { 'D' 0 state; 'A' Mem 4 mem; 'X' 8 rp; 'X' 12 wp; 'A' Frag 16 next; 'X' 20 free; 'X' 24 a; 'X' 28 p; }; defn Frag(addr) { complex Frag addr; print(" state ", addr.state, "\n"); print(" mem ", addr.mem\X, "\n"); print(" rp ", addr.rp\X, "\n"); print(" wp ", addr.wp\X, "\n"); print(" next ", addr.next\X, "\n"); print(" free ", addr.free\X, "\n"); print(" a ", addr.a\X, "\n"); print(" p ", addr.p\X, "\n"); }; sizeofPacket = 88; aggr Packet { 'D' 0 size; 'D' 4 asize; 'U' 8 pc; 'A' Packet 12 next; 'A' Frag 16 first; 'A' Frag 20 last; 'a' 24 $local; }; defn Packet(addr) { complex Packet addr; print(" size ", addr.size, "\n"); print(" asize ", addr.asize, "\n"); print(" pc ", addr.pc, "\n"); print(" next ", addr.next\X, "\n"); print(" first ", addr.first\X, "\n"); print(" last ", addr.last\X, "\n"); print(" $local ", addr.$local, "\n"); }; sizeof_2_ = 36; aggr _2_ { Lock 0 lk; 'A' Packet 4 packet; 'D' 8 npacket; 'A' Frag 12 frag; 'D' 16 nfrag; 'A' Mem 20 bigmem; 'D' 24 nbigmem; 'A' Mem 28 smallmem; 'D' 32 nsmallmem; }; defn _2_(addr) { complex _2_ addr; print("Lock lk {\n"); Lock(addr.lk); print("}\n"); print(" packet ", addr.packet\X, "\n"); print(" npacket ", addr.npacket, "\n"); print(" frag ", addr.frag\X, "\n"); print(" nfrag ", addr.nfrag, "\n"); print(" bigmem ", addr.bigmem\X, "\n"); print(" nbigmem ", addr.nbigmem, "\n"); print(" smallmem ", addr.smallmem\X, "\n"); print(" nsmallmem ", addr.nsmallmem, "\n"); }; complex _2_ freelist; complex Packet packetalloc:p; complex Packet packetfree:p; complex Frag packetfree:f; complex Frag packetfree:ff; complex Packet packetdup:p; complex Frag packetdup:f; complex Frag packetdup:ff; complex Packet packetdup:pp; complex Packet packetsplit:p; complex Packet packetsplit:pp; complex Frag packetsplit:f; complex Frag packetsplit:ff; complex Packet packetconsume:p; complex Packet packettrim:p; complex Frag packettrim:f; complex Frag packettrim:ff; complex Packet packetheader:p; complex Frag packetheader:f; complex Mem packetheader:m; complex Packet packettrailer:p; complex Mem packettrailer:m; complex Frag packettrailer:f; complex Packet packetprefix:p; complex Frag packetprefix:f; complex Mem packetprefix:m; complex Packet packetappend:p; complex Frag packetappend:f; complex Mem packetappend:m; complex Packet packetconcat:p; complex Packet packetconcat:pp; complex Frag packetconcat:f; complex Packet packetpeek:p; complex Frag packetpeek:f; complex Packet packetcopy:p; complex Packet packetfragments:p; complex IOchunk packetfragments:io; complex Frag packetfragments:f; complex IOchunk packetfragments:eio; complex Packet packetstats:p; complex Frag packetstats:f; complex Mem packetstats:m; complex Packet packetsize:p; complex Frag packetsize:f; complex Packet packetasize:p; complex Frag packetasize:f; complex Packet packetsha1:p; complex DigestState packetsha1:ds; complex Frag packetsha1:f; complex Packet packetcmp:pkt0; complex Packet packetcmp:pkt1; complex Frag packetcmp:f0; complex Frag packetcmp:f1; complex Packet fragalloc:p; complex Frag fragalloc:next; complex Frag fragalloc:f; complex Frag fragalloc:ef; complex Mem fragalloc:m; complex Packet packetforeign:p; complex Frag packetforeign:f; complex Packet fragdup:p; complex Frag fragdup:f; complex Frag fragdup:ff; complex Mem fragdup:m; complex Frag fragfree:f; complex Mem memalloc:m; complex Mem memfree:m; complex Mem memhead:m; complex Mem memtail:m;