Lines Matching defs:current_device
146 env->current_device = d;
154 env->current_device = d;
225 ASSERT(env->current_device);
237 parent_dev = env->current_device->parent;
546 d = env->current_device;
686 current_device(fcode_env_t *env)
688 PUSH(DS, (fstack_t)&env->current_device);
716 if (env->current_device)
717 push_a_string(env, get_path(env, env->current_device));
725 if (env->current_device) {
727 get_path(env, env->current_device));
738 if (env->current_device == NULL) {
743 d = env->current_device->child;
766 if (env->current_device == NULL) {
772 p = env->current_device->parent;
774 device_t *n = env->current_device->child;
832 if (env->current_device) {
1003 env->current_device = d;
1007 env->current_device = NULL;
1044 FORTH(0, "current-device", current_device);