Lines Matching refs:env
39 fc_reg_read(fcode_env_t *env, char *service, fstack_t virt, int *errp) in fc_reg_read() argument
45 forth_abort(env, "fc_reg_read: bad mcookie: 0x%x\n", virt); in fc_reg_read()
52 error = fc_run_priv(env->private, service, nin, 1, virtaddr, &data); in fc_reg_read()
57 forth_abort(env, "fc_read_reg: ERROR: cookie: %llx" in fc_reg_read()
64 fc_reg_write(fcode_env_t *env, char *service, fstack_t virt, fc_cell_t data, in fc_reg_write() argument
71 forth_abort(env, "fc_reg_write: bad mcookie: 0x%x\n", virt); in fc_reg_write()
78 error = fc_run_priv(env->private, service, nin, 0, virtaddr, data); in fc_reg_write()
83 forth_abort(env, "fc_write_reg: ERROR: cookie: %llx" in fc_reg_write()
89 check_address_abuse(fcode_env_t *env, fstack_t addr, char *type, in check_address_abuse() argument
96 (*alt)(env); in check_address_abuse()
103 rlfetch(fcode_env_t *env) in rlfetch() argument
107 CHECK_DEPTH(env, 1, "rl@"); in rlfetch()
109 if (!check_address_abuse(env, p, "rl@", 1, lfetch)) in rlfetch()
110 TOS = (lforth_t)fc_reg_read(env, "rl@", p, NULL); in rlfetch()
114 rlstore(fcode_env_t *env) in rlstore() argument
118 CHECK_DEPTH(env, 2, "rl!"); in rlstore()
120 if (!check_address_abuse(env, p, "rl!", 1, lstore)) { in rlstore()
123 fc_reg_write(env, "rl!", p, d, NULL); in rlstore()
128 rwfetch(fcode_env_t *env) in rwfetch() argument
132 CHECK_DEPTH(env, 1, "rw@"); in rwfetch()
134 if (!check_address_abuse(env, p, "rw@", 1, wfetch)) in rwfetch()
135 TOS = (wforth_t)fc_reg_read(env, "rw@", p, NULL); in rwfetch()
139 rwstore(fcode_env_t *env) in rwstore() argument
143 CHECK_DEPTH(env, 2, "rw!"); in rwstore()
145 if (!check_address_abuse(env, p, "rw!", 1, wstore)) { in rwstore()
148 fc_reg_write(env, "rw!", p, d, NULL); in rwstore()
153 rbfetch(fcode_env_t *env) in rbfetch() argument
157 CHECK_DEPTH(env, 1, "rb@"); in rbfetch()
159 if (!check_address_abuse(env, p, "rb@", 1, cfetch)) { in rbfetch()
160 TOS = (uchar_t)fc_reg_read(env, "rb@", p, NULL); in rbfetch()
165 rbstore(fcode_env_t *env) in rbstore() argument
169 CHECK_DEPTH(env, 2, "rb!"); in rbstore()
171 if (!check_address_abuse(env, p, "rb!", 1, cstore)) { in rbstore()
174 fc_reg_write(env, "rb!", p, d, NULL); in rbstore()
182 rxfetch(fcode_env_t *env) in rxfetch() argument
187 CHECK_DEPTH(env, 1, "rx@"); in rxfetch()
189 if (!check_address_abuse(env, p, "rx@", 1, xfetch)) { in rxfetch()
191 push_xforth(env, (xforth_t)fc_reg_read(env, "rx@", p, NULL)); in rxfetch()
199 rxstore(fcode_env_t *env) in rxstore() argument
204 CHECK_DEPTH(env, 2, "rx!"); in rxstore()
206 if (!check_address_abuse(env, p, "rx!", 1, xstore)) { in rxstore()
208 d = pop_xforth(env); in rxstore()
209 fc_reg_write(env, "rx!", p, d, NULL); in rxstore()
214 lpeek(fcode_env_t *env) in lpeek() argument
220 CHECK_DEPTH(env, 1, "lpeek"); in lpeek()
222 r = (lforth_t)fc_reg_read(env, "rl@", p, &error); in lpeek()
232 lpoke(fcode_env_t *env) in lpoke() argument
237 CHECK_DEPTH(env, 2, "lpoke"); in lpoke()
240 fc_reg_write(env, "rl!", p, d, &error); in lpoke()
245 wpeek(fcode_env_t *env) in wpeek() argument
251 CHECK_DEPTH(env, 1, "wpeek"); in wpeek()
253 r = (wforth_t)fc_reg_read(env, "rw@", p, &error); in wpeek()
263 wpoke(fcode_env_t *env) in wpoke() argument
268 CHECK_DEPTH(env, 2, "wpoke"); in wpoke()
271 fc_reg_write(env, "rw!", p, d, &error); in wpoke()
276 cpeek(fcode_env_t *env) in cpeek() argument
282 CHECK_DEPTH(env, 1, "cpeek"); in cpeek()
284 r = (uchar_t)fc_reg_read(env, "rb@", p, &error); in cpeek()
294 cpoke(fcode_env_t *env) in cpoke() argument
299 CHECK_DEPTH(env, 2, "cpoke"); in cpoke()
302 fc_reg_write(env, "rb!", p, d, &error); in cpoke()
310 fcd_cfetch(fcode_env_t *env) in fcd_cfetch() argument
314 CHECK_DEPTH(env, 1, "c@"); in fcd_cfetch()
315 if (!check_address_abuse(env, addr, "c@", 0, rbfetch)) in fcd_cfetch()
316 cfetch(env); in fcd_cfetch()
323 fcd_cstore(fcode_env_t *env) in fcd_cstore() argument
327 CHECK_DEPTH(env, 2, "c!"); in fcd_cstore()
328 if (!check_address_abuse(env, addr, "c!", 0, rbstore)) in fcd_cstore()
329 cstore(env); in fcd_cstore()
336 fcd_wfetch(fcode_env_t *env) in fcd_wfetch() argument
340 CHECK_DEPTH(env, 1, "w@"); in fcd_wfetch()
341 if (!check_address_abuse(env, addr, "w@", 0, rwfetch)) in fcd_wfetch()
342 wfetch(env); in fcd_wfetch()
349 fcd_wstore(fcode_env_t *env) in fcd_wstore() argument
353 CHECK_DEPTH(env, 2, "w!"); in fcd_wstore()
354 if (!check_address_abuse(env, addr, "w!", 0, rwstore)) in fcd_wstore()
355 wstore(env); in fcd_wstore()
362 fcd_lfetch(fcode_env_t *env) in fcd_lfetch() argument
366 CHECK_DEPTH(env, 1, "l@"); in fcd_lfetch()
367 if (!check_address_abuse(env, addr, "l@", 0, rlfetch)) in fcd_lfetch()
368 lfetch(env); in fcd_lfetch()
375 fcd_lstore(fcode_env_t *env) in fcd_lstore() argument
379 CHECK_DEPTH(env, 2, "l!"); in fcd_lstore()
380 if (!check_address_abuse(env, addr, "l!", 0, rlstore)) in fcd_lstore()
381 lstore(env); in fcd_lstore()
388 fcd_xfetch(fcode_env_t *env) in fcd_xfetch() argument
392 CHECK_DEPTH(env, 1, "x@"); in fcd_xfetch()
393 if (!check_address_abuse(env, addr, "x@", 0, rxfetch)) in fcd_xfetch()
394 xfetch(env); in fcd_xfetch()
401 fcd_xstore(fcode_env_t *env) in fcd_xstore() argument
405 CHECK_DEPTH(env, 2, "x!"); in fcd_xstore()
406 if (!check_address_abuse(env, addr, "x!", 0, rxstore)) in fcd_xstore()
407 xstore(env); in fcd_xstore()
414 fcd_move(fcode_env_t *env) in fcd_move() argument
419 CHECK_DEPTH(env, 3, "move"); in fcd_move()
425 fcd_cfetch(env); in fcd_move()
427 fcd_cstore(env); in fcd_move()
432 fcd_comp(fcode_env_t *env) in fcd_comp() argument
437 CHECK_DEPTH(env, 3, "comp"); in fcd_comp()
443 fcd_cfetch(env); in fcd_comp()
446 fcd_cfetch(env); in fcd_comp()
461 get_eeprom_value(fcode_env_t *env, char *name) in get_eeprom_value() argument
479 local_mac_address(fcode_env_t *env) in local_mac_address() argument
484 mac_str = get_eeprom_value(env, "local-mac-address?"); in local_mac_address()
507 push_mac_address(fcode_env_t *env) in push_mac_address() argument
517 local_ether_addr(fcode_env_t *env) in local_ether_addr() argument
523 error = fc_run_priv(env->private, "local-ether-addr", 0, 2, &mac_add[0], in local_ether_addr()
537 mac_address(fcode_env_t *env) in mac_address() argument
542 push_mac_address(env); in mac_address()
550 local_mac_address(env); in mac_address()
553 push_a_string(env, "local-mac-address"); in mac_address()
554 get_inherited_prop(env); in mac_address()
558 two_drop(env); in mac_address()
560 local_ether_addr(env); in mac_address()
570 set_diagnostic_mode(fcode_env_t *env) in set_diagnostic_mode() argument
579 push_diagnostic_mode(fcode_env_t *env) in push_diagnostic_mode() argument
588 diagnostic_mode(fcode_env_t *env) in diagnostic_mode() argument
594 diag_str = get_eeprom_value(env, "diag-switch?"); in diagnostic_mode()
600 set_diagnostic_mode(env); in diagnostic_mode()
603 push_diagnostic_mode(env); in diagnostic_mode()
616 fcode_env_t *env = initial_env; in _init() local
620 ASSERT(env); in _init()