Lines Matching refs:env
237 #define DS (env->ds)
238 #define RS (env->rs)
240 #define IP (env->ip)
241 #define WA (env->wa)
242 #define DEPTH (DS-env->ds0)
243 #define CURRENT (env->current)
244 #define ORDER (env->order)
245 #define BASE (env->base)
246 #define HERE (env->here)
247 #define CONTEXT env->order[env->order_depth]
248 #define MYSELF (env->my_self)
277 #define FORTH(fl, nm, fnc) define_word(env, fl, nm, fnc);
285 #define EXPOSE_ACF *((acf_t)env->current) = \
286 (token_t)(env->lastlink)
288 #define COMPILE_TOKEN(x) PUSH(DS, (fstack_t)(x)); compile_comma(env);
289 #define CHECK_DEPTH(env, x, w) if ((x) > (env->ds - env->ds0)) \
290 forth_abort(env, "%s: stack underflow\n", w);
291 #define CHECK_RETURN_DEPTH(env, x, w) if ((x) > (env->rs - env->rs0)) \
292 forth_abort(env, "%s: return stack underflow\n", w);
297 #define CONVERT_PHANDLE(e, x, y) x = env->convert_phandle(e, y)
298 #define REVERT_PHANDLE(e, x, y) x = env->revert_phandle(e, y)
299 #define ALLOCATE_PHANDLE(e) env->allocate_phandle(e)
306 extern fcode_env_t *env;