x-eval-layout.h

Go to the documentation of this file.

/* GENERATED by tools/contract/gen-base-layout.awk from tools/contract/base-layout.x.
 * DO NOT EDIT -- edit the descriptor and regenerate (make gen-layout).
 *
 * Accessors are include-guarded (use normally).  The construction
 * skeleton is emitted only when X_EVAL_BUILD_TREE is defined before
 * inclusion -- x_eval_make does that to build the empty pair tree;
 * initial values are set by the hand-written init pass after it. */
 
#ifndef X_EVAL_LAYOUT_H
#define X_EVAL_LAYOUT_H
#define x_eval_env(X)   x_00(x_base(X))
#define x_eval_field_env(X) x_0(x_eval_env(X))  /* direct */
#define x_eval_field_env_root(X)    x_1(x_eval_env(X))  /* direct */
#define x_eval_ctrl(X)  x_10(x_base(X))
#define x_eval_field_save_stack(X)  x_00(x_eval_ctrl(X))    /* direct */
#define x_eval_field_error_handler(X)   x_10(x_eval_ctrl(X))    /* cell */
#define x_eval_field_tco_expr(X)    x_01(x_eval_ctrl(X))    /* cell */
#define x_eval_field_tco_env(X) x_11(x_eval_ctrl(X))    /* cell */
#define x_eval_field_type_alist(X)  x_00(x_base_field_io_group(X))  /* cell */
#define x_eval_io_state(X)  x_1(x_base_field_io_group(X))
#define x_eval_field_line(X)    x_0(x_eval_io_state(X)) /* cell */
#define x_eval_field_true(X)    x_01(x_eval_io_state(X))    /* cell */
#define x_eval_field_false(X)   x_11(x_eval_io_state(X))    /* cell */
#define x_eval_field_profile_evals(X)   x_01(x_base_field_profile(X))   /* cell */
#define x_eval_field_profile_tco(X) x_011(x_base_field_profile(X))  /* cell */
#define x_eval_field_profile_assoc_calls(X) x_0111(x_base_field_profile(X)) /* cell */
#define x_eval_field_profile_assoc_steps(X) x_0111(x_1(x_base_field_profile(X)))    /* cell */
#define x_eval_field_profile_sym_find_calls(X)  x_0111(x_11(x_base_field_profile(X)))   /* cell */
#define x_eval_field_profile_sym_find_steps(X)  x_0111(x_111(x_base_field_profile(X)))  /* cell */
#define x_eval_field_profile_gc_runs(X) x_0111(x_1111(x_base_field_profile(X))) /* cell */
#define x_eval_field_profile_bst_hits(X)    x_0111(x_1111(x_1(x_base_field_profile(X))))    /* cell */
#define x_eval_field_profile_bst_misses(X)  x_0111(x_1111(x_11(x_base_field_profile(X))))   /* cell */
#define x_eval_state(X) x_111(x_base_field_meta_group(X))
#define x_eval_field_eval_list(X)   x_0(x_eval_state(X))    /* cell */
#define x_eval_field_token_cache(X) x_01(x_eval_state(X))   /* cell */
#define x_eval_field_sigint(X)  x_011(x_eval_state(X))  /* cell */
#define x_eval_field_err(X) x_0111(x_eval_state(X)) /* cell */
#define x_eval_field_prims(X)   x_0111(x_1(x_eval_state(X)))    /* cell */
#define x_eval_field_file(X)    x_0111(x_11(x_eval_state(X)))   /* cell */
#define x_eval_field_err_line(X)    x_0111(x_111(x_eval_state(X)))  /* cell */
#define x_eval_field_err_file(X)    x_0111(x_1111(x_eval_state(X))) /* cell */
#define x_eval_field_file_registry(X)   x_1111(x_1111(x_eval_state(X))) /* cell */
#endif /* X_EVAL_LAYOUT_H */
 
#ifdef X_EVAL_BUILD_TREE
    x_0(x_base(p_base)) = pair(pair(nil, nil), pair(pair(nil, pair(nil, nil)), pair(pair(nil, nil), pair(nil, nil))));
    x_00(x_base_field_io_group(p_base)) = pair(nil, nil);
    x_1(x_base_field_io_group(p_base)) = pair(pair(nil, nil), pair(pair(nil, nil), pair(nil, nil)));
    x_1(x_base_field_profile(p_base)) = pair(pair(nil, nil), pair(pair(nil, nil), pair(pair(nil, nil), pair(pair(nil, nil), pair(pair(nil, nil), pair(pair(nil, nil), pair(pair(nil, nil), pair(pair(nil, nil), pair(pair(nil, nil), nil)))))))));
    x_111(x_base_field_meta_group(p_base)) = pair(pair(nil, nil), pair(pair(nil, nil), pair(pair(nil, nil), pair(pair(nil, nil), pair(pair(nil, nil), pair(pair(nil, nil), pair(pair(nil, nil), pair(pair(nil, nil), pair(nil, nil)))))))));
#endif /* X_EVAL_BUILD_TREE */