Lines Matching defs:p
105 fstack_t p;
108 p = TOS;
109 if (!check_address_abuse(env, p, "rl@", 1, lfetch))
110 TOS = (lforth_t)fc_reg_read(env, "rl@", p, NULL);
116 fstack_t p, d;
119 p = TOS;
120 if (!check_address_abuse(env, p, "rl!", 1, lstore)) {
121 p = POP(DS);
123 fc_reg_write(env, "rl!", p, d, NULL);
130 fstack_t p;
133 p = TOS;
134 if (!check_address_abuse(env, p, "rw@", 1, wfetch))
135 TOS = (wforth_t)fc_reg_read(env, "rw@", p, NULL);
141 fstack_t p, d;
144 p = TOS;
145 if (!check_address_abuse(env, p, "rw!", 1, wstore)) {
146 p = POP(DS);
148 fc_reg_write(env, "rw!", p, d, NULL);
155 fstack_t p;
158 p = TOS;
159 if (!check_address_abuse(env, p, "rb@", 1, cfetch)) {
160 TOS = (uchar_t)fc_reg_read(env, "rb@", p, NULL);
167 fstack_t p, d;
170 p = TOS;
171 if (!check_address_abuse(env, p, "rb!", 1, cstore)) {
172 p = POP(DS);
174 fc_reg_write(env, "rb!", p, d, NULL);
184 fstack_t p;
188 p = TOS;
189 if (!check_address_abuse(env, p, "rx@", 1, xfetch)) {
190 p = POP(DS);
191 push_xforth(env, (xforth_t)fc_reg_read(env, "rx@", p, NULL));
201 fstack_t p;
205 p = TOS;
206 if (!check_address_abuse(env, p, "rx!", 1, xstore)) {
207 p = POP(DS);
209 fc_reg_write(env, "rx!", p, d, NULL);
216 fstack_t p;
221 p = POP(DS);
222 r = (lforth_t)fc_reg_read(env, "rl@", p, &error);
234 fstack_t p, d;
238 p = POP(DS);
240 fc_reg_write(env, "rl!", p, d, &error);
247 fstack_t p;
252 p = POP(DS);
253 r = (wforth_t)fc_reg_read(env, "rw@", p, &error);
265 fstack_t p, d;
269 p = POP(DS);
271 fc_reg_write(env, "rw!", p, d, &error);
278 fstack_t p;
283 p = POP(DS);
284 r = (uchar_t)fc_reg_read(env, "rb@", p, &error);
296 fstack_t p, d;
300 p = POP(DS);
302 fc_reg_write(env, "rb!", p, d, &error);
464 char buf[80], *p;
471 if ((p = strchr(buf, '\n')) != NULL)
472 *p = '\0';
473 if ((p = strchr(buf, '=')) != NULL)
474 return (p + 1);