4 <SETG CHMKS-OBLIST <MOBLIST CHMK>>
7 <GFCN
\1aXMSETG ("VALUE" <LIST ANY CHMK> ANY ANY) A4 B5>
10 <CHTYPE B5 <TYPE-CODE CHMK> = B5>
14 <GVAL 'CHMKS-OBLIST = STACK>
15 <CALL '
\1aLOOKUP 2 = TEMP8>
16 <TYPE? TEMP8 <TYPE-CODE FALSE> - BOOL7>
20 <GVAL 'CHMKS-OBLIST = STACK>
21 <CALL '
\1aINSERT 2 = TEMP8>
30 <CONS A4 TEMP8 = TEMP8>
36 <COND (<GASSIGNED? XMSETG> <SETG ALL-CHMKS [<XMSETG "EXIT" 1> <XMSETG "FORK" 2> <XMSETG "READ" 3> <XMSETG "WRITE" 4> <XMSETG "OPEN" 5> <XMSETG "CLOSE" 6> <XMSETG "CREAT" 8> <XMSETG "LINK" 9> <XMSETG "UNLINK" 10> <XMSETG "EXEC" 11> <XMSETG "CHDIR" 12> <XMSETG "MKNOD" 14> <XMSETG "CHMOD" 15> <XMSETG "CHOWN" 16> <XMSETG "LSEEK" 19> <XMSETG "GETPID" 20> <XMSETG "MOUNT" 21> <XMSETG "UMOUNT" 22> <XMSETG "GETUID" 24> <XMSETG "PTRACE" 26> <XMSETG "ACCESS" 33> <XMSETG "SYNC" 36> <XMSETG "KILL" 37> <XMSETG "STAT" 38> <XMSETG "LSTAT" 40> <XMSETG "DUP" 41> <XMSETG "PIPE" 42> <XMSETG "PROFIL" 44> <XMSETG "GETGID" 47> <XMSETG "ACCT" 51> <XMSETG "IOCTL" 54> <XMSETG "REBOOT" 55> <XMSETG "SYMLINK" 57> <XMSETG "READLINK" 58> <XMSETG "EXECVE" 59> <XMSETG "UMASK" 60> <XMSETG "CHROOT" 61> <XMSETG "FSTAT" 62> <XMSETG "GETPAGESIZE" 64> <XMSETG "MREMAP" 65> <XMSETG "VFORK" 66> <XMSETG "SBRK" 69> <XMSETG "SSTK" 70> <XMSETG "MMAP" 71> <XMSETG "VADVISE" 72> <XMSETG "VHANGUP" 76> <XMSETG "MINCORE" 78> <XMSETG "GETGROUPS" 79> <XMSETG "SETGROUPS" 80> <XMSETG "GETPGRP" 81> <XMSETG "SETPGRP" 82> <XMSETG "SETITIMER" 83> <XMSETG "WAIT" 84> <XMSETG "VSWAPON" 85> <XMSETG "GETITIMER" 86> <XMSETG "GETHOSTNAME" 87> <XMSETG "SETHOSTNAME" 88> <XMSETG "GETDTABLESIZE" 89> <XMSETG "DUP2" 90> <XMSETG "GETDOPT" 91> <XMSETG "FCNTL" 92> <XMSETG "SELECT" 93> <XMSETG "SETDOPT" 94> <XMSETG "FSYNC" 95> <XMSETG "SETPRIORITY" 96> <XMSETG "SOCKET" 97> <XMSETG "CONNECT" 98> <XMSETG "ACCEPT" 99> <XMSETG "GETPRIORITY" 100> <XMSETG "SEND" 101> <XMSETG "RECV" 102> <XMSETG "BIND" 104> <XMSETG "SETSOCKOPT" 105> <XMSETG "LISTEN" 106> <XMSETG "VTIMES" 107> <XMSETG "SIGVEC" 108> <XMSETG "SIGBLOCK" 109> <XMSETG "SIGSETMASK" 110> <XMSETG "SIGPAUSE" 111> <XMSETG "SIGSTACK" 112> <XMSETG "RECVMSG" 113> <XMSETG "SENDMSG" 114> <XMSETG "GETTIMEOFDAY" 116> <XMSETG "GETRUSAGE" 117> <XMSETG "GETSOCKOPT" 118> <XMSETG "READV" 120> <XMSETG "WRITEV" 121> <XMSETG "SETTIMEOFDAY" 122> <XMSETG "FCHOWN" 123> <XMSETG "FCHMOD" 124> <XMSETG "RECVFROM" 125> <XMSETG "SETREUID" 126> <XMSETG "SETREGID" 127> <XMSETG "RENAME" 128> <XMSETG "TRUNCATE" 129> <XMSETG "FTRUNCATE" 130> <XMSETG "FLOCK" 131> <XMSETG "SENDTO" 133> <XMSETG "SHUTDOWN" 134> <XMSETG "SOCKETPAIR" 135> <XMSETG "MKDIR" 136> <XMSETG "RMDIR" 137> <XMSETG "UTIMES" 138> <XMSETG "REVOKE" 140> <XMSETG "GETPEERNAME" 141> <XMSETG "GETHOSTID" 142> <XMSETG "SETHOSTID" 143> <XMSETG "GETRLIMIT" 144> <XMSETG "SETRLIMIT" 145> <XMSETG "KILLPG" 146> <XMSETG "SETQUOTA" 148> <XMSETG "QUOTA" 149> <XMSETG "GETSOCKNAME" 150>]>)>
39 <GFCN
\1aSYSCALL-GEN ("VALUE" ATOM ANY ANY "OPTIONAL" ANY ANY ANY) DISPCODE8 NUMARG9 RES10 HINT11 TYP12>
40 <OPT-DISPATCH 2 %<> OPT4 OPT5 OPT6 OPT7>
48 <TEMP ATM13 TEMP20 TEMP31 TEMP38>
50 <TYPE? DISPCODE8 <TYPE-CODE ATOM> - BOOL18>
52 <NTHR DISPCODE8 3 = STACK (RECORD-TYPE ATOM)>
53 <GVAL 'CHMKS-OBLIST = STACK>
54 <CALL '
\1aLOOKUP 2 = ATM13>
55 <TYPE? ATM13 <TYPE-CODE ATOM> - BOOL18>
56 <NTHR ATM13 1 = TEMP20 (RECORD-TYPE ATOM) (BRANCH-FALSE + BOOL18)>
57 <TYPE? TEMP20 <TYPE-CODE FALSE> + BOOL18>
58 <NTHR TEMP20 1 = TEMP20 (RECORD-TYPE GBIND)>
59 <TYPE? TEMP20 <TYPE-CODE UNBOUND> + BOOL18>
63 <TYPE? TEMP20 <TYPE-CODE CHMK> + BOOL17>
65 <SET TEMP20 DISPCODE8>
67 <TYPE? TEMP20 <TYPE-CODE FIX> + TAG22>
68 <TYPE? TEMP20 <TYPE-CODE CHMK> - BOOL21>
70 <SET TEMP31 %<> (TYPE FALSE)>
71 <GVAL 'ALL-CHMKS = ATM13>
75 <EMPTY? ATM13 + MAPAP27>
77 <RESTL TEMP31 1 = TEMP38 (TYPE LIST)>
78 <NTHL TEMP38 1 = TEMP38 (TYPE FIX)>
79 <EQUAL? TEMP38 TEMP20 + TAG37>
81 <SET TEMP31 %<> (TYPE FALSE)>
84 <NTHL TEMP31 1 = ATM13 (TYPE ATOM)>
94 <TYPE? ATM13 <TYPE-CODE FALSE> - BOOL17>
97 <TYPE? TEMP20 <TYPE-CODE VARTBL> - PHRASE16>
99 <EQUAL? TEMP20 #CHMK 66 - PHRASE40>
103 <CALL '
\1aDO-VFORK 1>
107 <GVAL 'ISYSCALL!-MIMOP = STACK>
116 <CALL '
\1aCALL-RTE 6>
120 <PUSH 'BAD-SYSCALL!-ERRORS>
126 <GFCN
\1aDO-VFORK ("VALUE" ANY <OR VARTBL FALSE>) RES4>
129 <FRAME '
\1aMAKE-LABEL>
130 <CALL '
\1aMAKE-LABEL 0 = LABEL5>
131 <FRAME '
\1aFLUSH-ACS>
132 <CALL '
\1aFLUSH-ACS 0>
137 <CALL '
\1aMA-IMM 1 = STACK>
139 <TYPE? RES4 <TYPE-CODE FALSE> + PHRASE12>
140 <FRAME '
\1aEMIT-MOVE>
141 <GVAL 'AC-0 = TEMP14>
142 <NTHUV TEMP14 2 = TEMP14 (TYPE FIX)>
143 <OR TEMP14 #WORD *120* = TEMP14>
144 <LSH TEMP14 24 = TEMP14 (TYPE FIX)>
145 <CHTYPE TEMP14 <TYPE-CODE EFF-ADDR> = STACK>
147 <GVAL 'AC-1 = TEMP14>
148 <NTHUV TEMP14 2 = TEMP14 (TYPE FIX)>
149 <OR TEMP14 #WORD *120* = TEMP14>
150 <LSH TEMP14 24 = TEMP14 (TYPE FIX)>
151 <CHTYPE TEMP14 <TYPE-CODE EFF-ADDR> = STACK>
154 <CALL '
\1aEMIT-MOVE 3>
155 <FRAME '
\1aEMIT-MOVE>
156 <FRAME '
\1aTYPE-CODE>
158 <CALL '
\1aTYPE-CODE 1 = STACK>
159 <GVAL 'AC-0 = TEMP14>
160 <NTHUV TEMP14 2 = TEMP14 (TYPE FIX)>
161 <OR TEMP14 #WORD *120* = TEMP14>
162 <LSH TEMP14 24 = TEMP14 (TYPE FIX)>
163 <CHTYPE TEMP14 <TYPE-CODE EFF-ADDR> = STACK>
166 <CALL '
\1aEMIT-MOVE 3>
167 <FRAME '
\1aLINK-VAR-TO-AC>
170 <PUSH 'TYPE-VALUE-PAIR>
171 <CALL '
\1aLINK-VAR-TO-AC 3 = TEMP14>
172 <FRAME '
\1aGEN-BRANCH>
175 <PUSH 'CONDITIONAL-BRANCH>
176 <CALL '
\1aGEN-BRANCH 3>
182 <CALL '
\1aCONS-GEN 4>
183 <FRAME '
\1aEMIT-MOVE>
184 <FRAME '
\1aTYPE-CODE>
186 <CALL '
\1aTYPE-CODE 1 = STACK>
187 <GVAL 'AC-0 = TEMP14>
188 <NTHUV TEMP14 2 = TEMP14 (TYPE FIX)>
189 <OR TEMP14 #WORD *120* = TEMP14>
190 <LSH TEMP14 24 = TEMP14 (TYPE FIX)>
191 <CHTYPE TEMP14 <TYPE-CODE EFF-ADDR> = STACK>
194 <CALL '
\1aEMIT-MOVE 3>
195 <FRAME '
\1aLINK-VAR-TO-AC>
198 <PUSH 'TYPE-VALUE-PAIR>
199 <CALL '
\1aLINK-VAR-TO-AC 3 = TEMP14>
205 <FRAME '
\1aEMIT-LABEL>
209 <CALL '
\1aEMIT-LABEL 2 = TEMP14>
213 <FRAME '
\1aGEN-BRANCH>
217 <CALL '
\1aGEN-BRANCH 3>
219 <GVAL 'ICOMPERR!-MIMOP = STACK>
223 <CALL '
\1aCALL-RTE 4>
224 <FRAME '
\1aEMIT-LABEL>
228 <CALL '
\1aEMIT-LABEL 2 = TEMP14>
234 <GFCN
\1aPIPE-GEN ("VALUE" ANY ANY "OPTIONAL" ANY) UVEC6 RES7>
235 <OPT-DISPATCH 1 %<> OPT4 OPT5>
242 <GVAL 'IPIPE!-MIMOP = STACK>
249 <CALL '
\1aCALL-RTE 5 = TEMP9>