3 <SETG CHMKS-OBLIST <MOBLIST CHMK>>
6 <SET B <CHTYPE .B CHMK>>
7 <MSETG <SET A <OR <LOOKUP .A ,CHMKS-OBLIST>
8 <INSERT .A ,CHMKS-OBLIST>>> .B>
11 <COND (<GASSIGNED? XMSETG>
12 <SETG ALL-CHMKS [ <XMSETG "EXIT" 1>
50 ;<XMSETG "SETPGRP" 39>
66 <XMSETG "READLINK" 58>
71 <XMSETG "GETPAGESIZE" 64>
83 <XMSETG "GETGROUPS" 79>
84 <XMSETG "SETGROUPS" 80>
87 <XMSETG "SETITIMER" 83>
90 <XMSETG "GETITIMER" 86>
91 <XMSETG "GETHOSTNAME" 87>
92 <XMSETG "SETHOSTNAME" 88>
93 <XMSETG "GETDTABLESIZE" 89>
100 <XMSETG "SETPRIORITY" 96>
102 <XMSETG "CONNECT" 98>
104 <XMSETG "GETPRIORITY" 100>
108 <XMSETG "SETSOCKOPT" 105>
109 <XMSETG "LISTEN" 106>
110 <XMSETG "VTIMES" 107>
111 <XMSETG "SIGVEC" 108>
112 <XMSETG "SIGBLOCK" 109>
113 <XMSETG "SIGSETMASK" 110>
114 <XMSETG "SIGPAUSE" 111>
115 <XMSETG "SIGSTACK" 112>
116 <XMSETG "RECVMSG" 113>
117 <XMSETG "SENDMSG" 114>
118 <XMSETG "GETTIMEOFDAY" 116>
119 <XMSETG "GETRUSAGE" 117>
120 <XMSETG "GETSOCKOPT" 118>
122 <XMSETG "WRITEV" 121>
123 <XMSETG "SETTIMEOFDAY" 122>
124 <XMSETG "FCHOWN" 123>
125 <XMSETG "FCHMOD" 124>
126 <XMSETG "RECVFROM" 125>
127 <XMSETG "SETREUID" 126>
128 <XMSETG "SETREGID" 127>
129 <XMSETG "RENAME" 128>
130 <XMSETG "TRUNCATE" 129>
131 <XMSETG "FTRUNCATE" 130>
133 <XMSETG "SENDTO" 133>
134 <XMSETG "SHUTDOWN" 134>
135 <XMSETG "SOCKETPAIR" 135>
138 <XMSETG "UTIMES" 138>
139 <XMSETG "REVOKE" 140>
140 <XMSETG "GETPEERNAME" 141>
141 <XMSETG "GETHOSTID" 142>
142 <XMSETG "SETHOSTID" 143>
143 <XMSETG "GETRLIMIT" 144>
144 <XMSETG "SETRLIMIT" 145>
145 <XMSETG "KILLPG" 146>
146 <XMSETG "SETQUOTA" 148>
148 <XMSETG "GETSOCKNAME" 150>]>)>
151 <DEFINE SYSCALL-GEN (DISPCODE NUMARG "OPT" (RES <>) HINT TYP "AUX" ATM NUM)
152 <COND (<OR <AND <TYPE? .DISPCODE ATOM>
153 <TYPE? <SET ATM <LOOKUP <SPNAME .DISPCODE>
157 <TYPE? <SET NUM ,.ATM> CHMK>>
158 <AND <TYPE? <SET NUM .DISPCODE> FIX CHMK>
161 #DECL ((A) <LIST ATOM FIX>)
162 <COND (<==? <2 .A> .NUM>
166 <COND (<==? .NUM ,VFORK!-CHMK>
168 (<CALL-RTE ,ISYSCALL!-MIMOP CALL .RES <> .NUMARG .NUM>)>)
170 <ERROR BAD-SYSCALL!-ERRORS>)>
173 <DEFINE DO-VFORK (RES "AUX" (LABEL <MAKE-LABEL>) LV)
174 #DECL ((RES) <OR VARTBL FALSE>)
176 <EMIT ,INST-CHMK <MA-IMM ,VFORK!-CHMK>>
178 <EMIT-MOVE <MA-REG ,AC-0> <MA-REG ,AC-1> LONG>
179 <EMIT-MOVE <TYPE-CODE FIX> <MA-REG ,AC-0> LONG>
180 <SET LV <LINK-VAR-TO-AC .RES ,AC-0 TYPE-VALUE-PAIR>>
181 <GEN-BRANCH ,INST-BCC .LABEL CONDITIONAL-BRANCH>
182 <CONS-GEN .RES () .RES FALSE>
183 <EMIT-MOVE <TYPE-CODE FALSE> <MA-REG ,AC-0> LONG>
184 <LINKVAR-DECL <LINK-VAR-TO-AC .RES ,AC-0 TYPE-VALUE-PAIR> <>>
185 <VARTBL-RDECL .RES <>>
186 <VARTBL-TDECL .RES <>>
187 <EMIT-LABEL .LABEL <>>)
189 <GEN-BRANCH ,INST-BCC .LABEL <>>
190 <CALL-RTE ,ICOMPERR!-MIMOP CALL <> <>>
191 <EMIT-LABEL .LABEL <>>)>>
193 <DEFINE PIPE-GEN (UVEC "OPTIONAL" (RES <>))
194 <CALL-RTE ,IPIPE!-MIMOP CALL .RES <> .UVEC>>