1195 lines
21 KiB
Plaintext
1195 lines
21 KiB
Plaintext
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;
|