#include "run-time.h"

/* Typedefs for referenced classes */

typedef struct {
  D wrapper;
  D instanceQ_iep_;
  D debug_name_;
  D class_implementation_class_;
  D class_subtype_bit_;
  D class_module_;
} _KLclassGVKd;

#define  define__KLmm_wrapperGVKi(nrepeated) \
  typedef struct { \
    D wrapper; \
    D mm_wrapper_implementation_class_; \
    D mm_wrapper_subtype_mask_; \
    DWORD mm_wrapper_fixed_part_; \
    DWORD mm_wrapper_variable_part_; \
    D mm_wrapper_number_patterns_; \
    DWORD mm_wrapper_pattern_element_[nrepeated+1]; \
  } _KLmm_wrapperGVKi_##nrepeated;
define__KLmm_wrapperGVKi(1);
define__KLmm_wrapperGVKi(0);

typedef struct {
  D wrapper;
} _KLobjectGVKd;

typedef struct {
  D wrapper;
} _KLunboundGVKe;

typedef struct {
  D wrapper;
} _KLbooleanGVKd;

#define  define__KLsimple_object_vectorGVKd(nrepeated) \
  typedef struct { \
    D wrapper; \
    D size_; \
    D vector_element_[nrepeated+1]; \
  } _KLsimple_object_vectorGVKd_##nrepeated;
define__KLsimple_object_vectorGVKd(1);
define__KLsimple_object_vectorGVKd(256);
define__KLsimple_object_vectorGVKd(16);
define__KLsimple_object_vectorGVKd(5);
define__KLsimple_object_vectorGVKd(4);
define__KLsimple_object_vectorGVKd(0);
define__KLsimple_object_vectorGVKd(2);

typedef struct {
  D wrapper;
  D symbol_name_;
} _KLsymbolGVKd;

typedef struct {
  D wrapper;
  D stretchy_representation_;
} _KLstretchy_object_vectorGVKe;

typedef struct {
  D wrapper;
  D head_;
  D tail_;
} _KLempty_listGVKd;

typedef struct {
  D wrapper;
  D xep_;
  D function_signature_;
  D Pgf_cache_;
  D debug_name_;
  D generic_function_methods_;
  D discriminator_;
} _KLsealed_generic_functionGVKe;

typedef struct {
  D wrapper;
  D xep_;
  D function_signature_;
  D Pgf_cache_;
  D debug_name_;
  D generic_function_methods_;
  D discriminator_;
  D incremental_gf_module_;
  D incremental_gf_domain_info_;
  D incremental_gf_method_libraries_;
  D incremental_gf_properties_;
} _KLincremental_generic_functionGVKe;

typedef struct {
  D wrapper;
  D instanceQ_iep_;
  D debug_name_;
  D class_implementation_class_;
  D class_subtype_bit_;
  D class_module_;
} _KLfunction_classGVKi;

typedef struct {
  D wrapper;
  D bb_start_;
  D bb_end_;
  D bb_taags_;
  D bb_fall_thru_;
  D bb_next_set_;
  D bb_prev_set_;
  D bb_other_set_;
  D bb_defs_;
  D bb_last_entry_;
  D bb_live_entry_;
  D bb_properties_;
  D bb_copy_of_;
} _KLbasic_blockGYharp_basic_blockVharp;

typedef struct {
  D wrapper;
  D xep_;
  D function_signature_;
  D mep_;
} _KLsimple_methodGVKe;

typedef struct {
  D wrapper;
  D vr_vect_;
  D green_vr_vect_;
  D next_vreg_id_;
  D allow_vreg_reuse_;
  D gregs_to_reuse_;
  D nregs_to_reuse_;
  D reused_vreg_count_;
  D fresh_vreg_count_;
  D dont_reuse_vregs_;
  D report_on_vreg_reuse_;
  D unique_registers_;
  D allocated_reals_;
  D allocated_preserved_;
  D number_preserved_;
  D raw_size_;
  D next_ng_spill_;
  D next_gc_spill_;
  D next_sf_spill_;
  D next_df_spill_;
  D ng_spill_central_;
  D gc_spill_central_;
  D sf_spill_central_;
  D df_spill_central_;
} _KLvreg_stateGYharp_registersVharp;

typedef struct {
  D wrapper;
  D instanceQ_iep_;
  D limited_collection_class_;
  D limited_collection_element_type_;
  D limited_collection_concrete_class_;
  D limited_collection_size_;
  D limited_collection_dimensions_;
} _KLlimited_stretchy_vector_typeGVKi;

typedef struct {
  D wrapper;
  D sv_instructions_;
  D fp_instructions_;
  D current_bb_;
  D top_block_;
  D bb_colour_flag_;
  D all_the_sdis_;
  D optimize_leaf_case_;
  D all_preserved_mask_;
  D processor_specific_return_offset_;
  D debug_code_select_;
  D taag_no_;
  D blocks_coalesced_yet_;
  D current_instruction_can_be_moved_;
  D prev_instruction_can_be_moved_;
  D word_size_of_bit_set_;
  D block_fixed_offset_;
  D current_block_;
  D with_stack_;
  D code_vector_;
  D pgm_vect_;
  D in_back_end_;
  D building_stack_frame_;
  D bind_exit_frameQ_;
  D reload_registers_;
  D respill_registers_;
  D vreg_state_;
  D function_name_;
  D compiling_defasm_;
  D compiling_call_in_;
  D asm_line_pos_;
  D arg_spill_count_;
  D named_variables_tables_;
  D external_references_;
  D referenced_data_words_;
  D virtual_register_clashes_;
} _KLharp_variablesGYharp_varsVharp;

typedef struct {
  D wrapper;
  D properties_;
  D engine_node_callback_;
  D engine_node_entry_point_;
} _KLabsent_engine_nodeGVKg;

typedef struct {
  D wrapper;
  D namespace_name_;
  D home_library_;
} _KLmoduleGVKe;

#define  define__KLbyte_stringGVKd(nrepeated) \
  typedef struct { \
    D wrapper; \
    D size_; \
    char string_element_[nrepeated+1]; \
  } _KLbyte_stringGVKd_##nrepeated;
define__KLbyte_stringGVKd(4);
define__KLbyte_stringGVKd(31);
define__KLbyte_stringGVKd(28);
define__KLbyte_stringGVKd(9);
define__KLbyte_stringGVKd(36);

typedef struct {
  D wrapper;
  D signature_properties_;
  D signature_required_;
  D signature_values_;
} _KLsignatureAvaluesGVKi;

typedef struct {
  D wrapper;
  D mangler_;
  D cg_variables_;
  D registers_;
  D variables_;
} _KLharp_back_endGYbase_harpVharp;

typedef struct {
  D wrapper;
  D head_;
  D tail_;
} _KLpairGVKd;

typedef struct {
  D wrapper;
  D xep_;
  D function_signature_;
  D mep_;
  D iep_;
  D keyword_specifiers_;
} _KLkeyword_methodGVKe;

typedef struct {
  D wrapper;
  D signature_properties_;
  D signature_required_;
  D signature_keys_;
  D signature_key_types_;
  D signature_values_;
} _KLkeyword_signatureAvaluesGVKi;

typedef struct {
  D wrapper;
  D signature_properties_;
  D signature_required_;
} _KLsignatureGVKe;

typedef struct {
  D wrapper;
  D signature_properties_;
  D signature_required_;
  D signature_keys_;
  D signature_key_types_;
} _KLkeyword_signatureGVKe;


/* Typedefs for defined classes */


/* Referenced object declarations */

extern _KLclassGVKd KLclassGVKd;
extern _KLmm_wrapperGVKi_0 KLclassGVKdW;
extern _KLclassGVKd KLmm_wrapperGVKi;
extern _KLmm_wrapperGVKi_1 KLmm_wrapperGVKiW;
extern _KLclassGVKd KLobjectGVKd;
extern _KLmm_wrapperGVKi_0 KLobjectGVKdW;
extern _KLunboundGVKe KPunboundVKi;
extern _KLclassGVKd KLunboundGVKe;
extern _KLmm_wrapperGVKi_0 KLunboundGVKeW;
extern _KLbooleanGVKd KPtrueVKi;
extern _KLclassGVKd KLbooleanGVKd;
extern _KLmm_wrapperGVKi_0 KLbooleanGVKdW;
extern _KLbooleanGVKd KPfalseVKi;
D Kclear_named_variablesYharp_varsVharpI (D);
D Kmake_bit_setYharp_utilsVharpMM0I (D);
extern _KLclassGVKd KLsimple_object_vectorGVKd;
extern _KLmm_wrapperGVKi_0 KLsimple_object_vectorGVKdW;
extern _KLsymbolGVKd KJcapacity_;
extern _KLclassGVKd KLsymbolGVKd;
extern _KLmm_wrapperGVKi_0 KLsymbolGVKdW;
D KLstretchy_object_vectorGZ32ZconstructorVKiMM0I (D, D);
extern _KLclassGVKd KLstretchy_object_vectorGVKe;
extern _KLmm_wrapperGVKi_0 KLstretchy_object_vectorGVKeW;
D Ksize_setterVKdMM1I (D, D);
extern _KLempty_listGVKd KPempty_listVKi;
extern _KLclassGVKd KLempty_listGVKd;
extern _KLmm_wrapperGVKi_0 KLempty_listGVKdW;
D KmakeVKdMM23I (D, D, D, D);
extern _KLsimple_object_vectorGVKd_0 KPempty_vectorVKi;
D KfillXVKdMM11I (D, D, D, D, D);
extern _KLsealed_generic_functionGVKe Kcode_vector_setterYharp_varsVharp;
extern _KLclassGVKd KLsealed_generic_functionGVKe;
extern _KLmm_wrapperGVKi_0 KLsealed_generic_functionGVKeW;
extern _KLsealed_generic_functionGVKe Kvirtual_register_clashes_setterYharp_varsVharp;
extern _KLsealed_generic_functionGVKe Knamed_variables_tables_setterYharp_varsVharp;
extern _KLsymbolGVKd KJstart_;
extern _KLsymbolGVKd KJend_;
extern _KLincremental_generic_functionGVKe KmakeVKd;
extern _KLfunction_classGVKi KLincremental_generic_functionGVKe;
extern _KLclassGVKd KLfunction_classGVKi;
extern _KLmm_wrapperGVKi_0 KLfunction_classGVKiW;
extern _KLmm_wrapperGVKi_0 KLincremental_generic_functionGVKeW;
extern _KLclassGVKd KLbasic_blockGYharp_basic_blockVharp;
extern _KLmm_wrapperGVKi_0 KLbasic_blockGYharp_basic_blockVharpW;
extern _KLsimple_methodGVKe Kbb_colour_setterYharp_basic_blockVharpMM0;
extern _KLfunction_classGVKi KLsimple_methodGVKe;
extern _KLmm_wrapperGVKi_0 KLsimple_methodGVKeW;
D Kbb_loop_depth_setterYharp_basic_blockVharpMM0I (D, D);
extern _KLincremental_generic_functionGVKe Kmake_harp_variables_internalYharp_varsVharp;
extern _KLclassGVKd KLvreg_stateGYharp_registersVharp;
extern _KLmm_wrapperGVKi_0 KLvreg_stateGYharp_registersVharpW;
extern _KLlimited_stretchy_vector_typeGVKi KLstretchy_virtual_register_vectorGYharp_registersVharp;
extern _KLclassGVKd KLlimited_stretchy_vector_typeGVKi;
extern _KLmm_wrapperGVKi_0 KLlimited_stretchy_vector_typeGVKiW;
extern _KLclassGVKd KLharp_variablesGYharp_varsVharp;
extern _KLmm_wrapperGVKi_0 KLharp_variablesGYharp_varsVharpW;
extern _KLabsent_engine_nodeGVKg RSINGULAR_Labsent_engine_nodeG;
extern _KLclassGVKd KLabsent_engine_nodeGVKg;
extern _KLmm_wrapperGVKi_0 KLabsent_engine_nodeGVKgW;
extern _KLmoduleGVKe Kbase_harp_moduleYdylan_userVharp;
extern _KLclassGVKd KLmoduleGVKe;
extern _KLmm_wrapperGVKi_0 KLmoduleGVKeW;
extern _KLclassGVKd KLbyte_stringGVKd;
extern _KLmm_wrapperGVKi_0 KLbyte_stringGVKdW;
extern _KLclassGVKd KLsignatureAvaluesGVKi;
extern _KLmm_wrapperGVKi_0 KLsignatureAvaluesGVKiW;
extern _KLsimple_object_vectorGVKd_16 KDsignature_LintegerG_typesVKi;
extern _KLclassGVKd KLharp_back_endGYbase_harpVharp;
extern _KLmm_wrapperGVKi_0 KLharp_back_endGYbase_harpVharpW;
extern _KLclassGVKd KLpairGVKd;
extern _KLmm_wrapperGVKi_0 KLpairGVKdW;
extern _KLfunction_classGVKi KLkeyword_methodGVKe;
extern _KLmm_wrapperGVKi_0 KLkeyword_methodGVKeW;
extern _KLclassGVKd KLkeyword_signatureAvaluesGVKi;
extern _KLmm_wrapperGVKi_0 KLkeyword_signatureAvaluesGVKiW;
extern _KLsimple_object_vectorGVKd_256 KDsignature_LobjectG_typesVKi;
extern _KLsealed_generic_functionGVKe Kbb_live_entry_setterYharp_basic_blockVharp;
extern _KLsealed_generic_functionGVKe Kbb_live_entryYharp_basic_blockVharp;
extern _KLsealed_generic_functionGVKe Kbb_defs_setterYharp_basic_blockVharp;
extern _KLsealed_generic_functionGVKe Kbb_defsYharp_basic_blockVharp;
extern _KLsealed_generic_functionGVKe Kbb_last_entry_setterYharp_basic_blockVharp;
extern _KLsealed_generic_functionGVKe Kbb_last_entryYharp_basic_blockVharp;
extern _KLsealed_generic_functionGVKe Kbb_fall_thru_setterYharp_basic_blockVharp;
extern _KLsealed_generic_functionGVKe Kbb_fall_thruYharp_basic_blockVharp;
extern _KLclassGVKd KLsignatureGVKe;
extern _KLmm_wrapperGVKi_0 KLsignatureGVKeW;
extern _KLclassGVKd KLkeyword_signatureGVKe;
extern _KLmm_wrapperGVKi_0 KLkeyword_signatureGVKeW;
extern D Dempty_stretchy_vectorYharp_varsVharp;
extern D Dempty_bit_setYharp_utilsVharp;
extern D Dempty_named_variables_tablesYharp_varsVharp;

/* Defined object declarations */

extern _KLkeyword_methodGVKe Kmake_harp_variablesYharp_varsVharpMM0;
D Kmake_harp_variablesYharp_varsVharpMM0I (D, D, D, D);
D Kmake_bbYbase_harpVharpMM0I (D);
D Kcopy_shared_variablesYbase_harpVharpMM0I (D, D);
D Kclear_shared_variablesYbase_harpVharpMM0I (D, D, D);
D Kinitialize_back_end_variablesYbase_harpVharpMM0I (D);
D Kinitialize_vectorYbase_harpVharpMM0I (D, D);
D Kinitialize_stretchy_vectorYbase_harpVharpMM0I (D);
D Kinitialize_bit_setYbase_harpVharpMM0I (D);
extern _KLincremental_generic_functionGVKe Kestimate_harp_virtual_registers_sizeYbase_harpVharp;
D Kmake_instructions_vectorYbase_harpVharpMM0I ();
D Kmake_code_vectorYbase_harpVharpMM0I ();
D Kallocate_back_end_variablesYbase_harpVharpMM0I (D);
extern _KLsimple_methodGVKe Kestimate_harp_virtual_registers_sizeYbase_harpVharpMM0;
D Kestimate_harp_virtual_registers_sizeYbase_harpVharpMM0I (D, D);
static _KLpairGVKd K15;
static _KLsignatureAvaluesGVKi K16;
static _KLbyte_stringGVKd_36 K17;
static _KLsimple_object_vectorGVKd_2 K18;
static _KLkeyword_signatureAvaluesGVKi K19;
static _KLsimple_object_vectorGVKd_2 K20;
static _KLsymbolGVKd KJprototype_;
static _KLbyte_stringGVKd_9 K22;
static _KLsimple_object_vectorGVKd_1 K23;
static _KLsimple_object_vectorGVKd_1 K24;
extern _KLincremental_generic_functionGVKe Kestimate_harp_variables_sizeYbase_harpVharp;
extern _KLsimple_methodGVKe Kestimate_harp_variables_sizeYbase_harpVharpMM0;
D Kestimate_harp_variables_sizeYbase_harpVharpMM0I (D);
static _KLpairGVKd K28;
static _KLsignatureAvaluesGVKi K29;
static _KLbyte_stringGVKd_28 K30;
static _KLsimple_object_vectorGVKd_1 K31;
extern _KLincremental_generic_functionGVKe Kestimate_harp_instructions_sizeYbase_harpVharp;
extern _KLsimple_methodGVKe Kestimate_harp_instructions_sizeYbase_harpVharpMM0;
D Kestimate_harp_instructions_sizeYbase_harpVharpMM0I (D, D);
static _KLpairGVKd K35;
static _KLbyte_stringGVKd_31 K36;
extern _KLsimple_methodGVKe Kmake_bbYbase_harpVharpMM0;
static _KLsignatureAvaluesGVKi K38;
static _KLsimple_object_vectorGVKd_1 K39;
extern _KLsimple_methodGVKe Kcopy_shared_variablesYbase_harpVharpMM0;
static _KLsignatureGVKe K41;
static _KLsimple_object_vectorGVKd_2 K42;
extern _KLkeyword_methodGVKe Kclear_shared_variablesYbase_harpVharpMM0;
static _KLkeyword_signatureGVKe K44;
static _KLsimple_object_vectorGVKd_2 K45;
static _KLsymbolGVKd KJallQ_;
static _KLbyte_stringGVKd_4 K47;
static _KLsimple_object_vectorGVKd_1 K48;
extern _KLsimple_methodGVKe Kinitialize_back_end_variablesYbase_harpVharpMM0;
static _KLsignatureGVKe K50;

/* Indirection variables */

static D IKJprototype_ = &KJprototype_;
static D IKJallQ_ = &KJallQ_;

/* Variables */

D initialize_back_end_variablesYbase_harpVharp = &Kinitialize_back_end_variablesYbase_harpVharpMM0;
D clear_shared_variablesYbase_harpVharp = &Kclear_shared_variablesYbase_harpVharpMM0;
D copy_shared_variablesYbase_harpVharp = &Kcopy_shared_variablesYbase_harpVharpMM0;
D make_bbYbase_harpVharp = &Kmake_bbYbase_harpVharpMM0;
D bb_fixed_offsetYbase_harpVharp = &Kbb_fall_thruYharp_basic_blockVharp;
D bb_fixed_offset_setterYbase_harpVharp = &Kbb_fall_thru_setterYharp_basic_blockVharp;
D bb_preceding_sdisYbase_harpVharp = &Kbb_last_entryYharp_basic_blockVharp;
D bb_preceding_sdis_setterYbase_harpVharp = &Kbb_last_entry_setterYharp_basic_blockVharp;
D bb_seenYbase_harpVharp = &Kbb_defsYharp_basic_blockVharp;
D bb_seen_setterYbase_harpVharp = &Kbb_defs_setterYharp_basic_blockVharp;
D bb_code_ptrYbase_harpVharp = &Kbb_defsYharp_basic_blockVharp;
D bb_code_ptr_setterYbase_harpVharp = &Kbb_defs_setterYharp_basic_blockVharp;
D bb_branch_infYbase_harpVharp = &Kbb_live_entryYharp_basic_blockVharp;
D bb_branch_inf_setterYbase_harpVharp = &Kbb_live_entry_setterYharp_basic_blockVharp;
D estimate_harp_instructions_sizeYbase_harpVharp = &Kestimate_harp_instructions_sizeYbase_harpVharp;
D estimate_harp_variables_sizeYbase_harpVharp = &Kestimate_harp_variables_sizeYbase_harpVharp;
D estimate_harp_virtual_registers_sizeYbase_harpVharp = &Kestimate_harp_virtual_registers_sizeYbase_harpVharp;

/* Objects */

_KLkeyword_methodGVKe Kmake_harp_variablesYharp_varsVharpMM0 = {
  &KLkeyword_methodGVKeW /* wrapper */,
  &rest_key_xep_4,
  &K19,
  &key_mep_4,
  &Kmake_harp_variablesYharp_varsVharpMM0I,
  &K20
};

_KLincremental_generic_functionGVKe Kestimate_harp_virtual_registers_sizeYbase_harpVharp = {
  &KLincremental_generic_functionGVKeW /* wrapper */,
  &gf_xep_2,
  &K16,
  (D) 1,
  &K17,
  &K15,
  &RSINGULAR_Labsent_engine_nodeG,
  &Kbase_harp_moduleYdylan_userVharp,
  &KPfalseVKi,
  &KPempty_vectorVKi,
  (D) 25
};

_KLsimple_methodGVKe Kestimate_harp_virtual_registers_sizeYbase_harpVharpMM0 = {
  &KLsimple_methodGVKeW /* wrapper */,
  &xep_2,
  &K16,
  &Kestimate_harp_virtual_registers_sizeYbase_harpVharpMM0I
};

static _KLpairGVKd K15 = {
  &KLpairGVKdW /* wrapper */,
  &Kestimate_harp_virtual_registers_sizeYbase_harpVharpMM0,
  &KPempty_listVKi
};

static _KLsignatureAvaluesGVKi K16 = {
  &KLsignatureAvaluesGVKiW /* wrapper */,
  (D) 33555465,
  &K18,
  &KDsignature_LintegerG_typesVKi
};

static _KLbyte_stringGVKd_36 K17 = {
  &KLbyte_stringGVKdW /* wrapper */,
  (D) 145,
  "estimate-harp-virtual-registers-size"
};

static _KLsimple_object_vectorGVKd_2 K18 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (D) 9,
  &KLharp_back_endGYbase_harpVharp,
  &KLobjectGVKd
};

static _KLkeyword_signatureAvaluesGVKi K19 = {
  &KLkeyword_signatureAvaluesGVKiW /* wrapper */,
  (D) 35390473,
  &K18,
  &K23,
  &KDsignature_LobjectG_typesVKi,
  &K24
};

static _KLsimple_object_vectorGVKd_2 K20 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (D) 9,
  &KJprototype_,
  &KPfalseVKi
};

static _KLsymbolGVKd KJprototype_ = {
  &KLsymbolGVKdW /* wrapper */,
  &K22
};

static _KLbyte_stringGVKd_9 K22 = {
  &KLbyte_stringGVKdW /* wrapper */,
  (D) 37,
  "prototype"
};

static _KLsimple_object_vectorGVKd_1 K23 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (D) 5,
  &KJprototype_
};

static _KLsimple_object_vectorGVKd_1 K24 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (D) 5,
  &KLharp_variablesGYharp_varsVharp
};

_KLincremental_generic_functionGVKe Kestimate_harp_variables_sizeYbase_harpVharp = {
  &KLincremental_generic_functionGVKeW /* wrapper */,
  &gf_xep_1,
  &K29,
  &KPfalseVKi,
  &K30,
  &K28,
  &RSINGULAR_Labsent_engine_nodeG,
  &Kbase_harp_moduleYdylan_userVharp,
  &KPfalseVKi,
  &KPempty_vectorVKi,
  (D) 25
};

_KLsimple_methodGVKe Kestimate_harp_variables_sizeYbase_harpVharpMM0 = {
  &KLsimple_methodGVKeW /* wrapper */,
  &xep_1,
  &K29,
  &Kestimate_harp_variables_sizeYbase_harpVharpMM0I
};

static _KLpairGVKd K28 = {
  &KLpairGVKdW /* wrapper */,
  &Kestimate_harp_variables_sizeYbase_harpVharpMM0,
  &KPempty_listVKi
};

static _KLsignatureAvaluesGVKi K29 = {
  &KLsignatureAvaluesGVKiW /* wrapper */,
  (D) 33555461,
  &K31,
  &KDsignature_LintegerG_typesVKi
};

static _KLbyte_stringGVKd_28 K30 = {
  &KLbyte_stringGVKdW /* wrapper */,
  (D) 113,
  "estimate-harp-variables-size"
};

static _KLsimple_object_vectorGVKd_1 K31 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (D) 5,
  &KLharp_back_endGYbase_harpVharp
};

_KLincremental_generic_functionGVKe Kestimate_harp_instructions_sizeYbase_harpVharp = {
  &KLincremental_generic_functionGVKeW /* wrapper */,
  &gf_xep_2,
  &K16,
  &KPfalseVKi,
  &K36,
  &K35,
  &RSINGULAR_Labsent_engine_nodeG,
  &Kbase_harp_moduleYdylan_userVharp,
  &KPfalseVKi,
  &KPempty_vectorVKi,
  (D) 25
};

_KLsimple_methodGVKe Kestimate_harp_instructions_sizeYbase_harpVharpMM0 = {
  &KLsimple_methodGVKeW /* wrapper */,
  &xep_2,
  &K16,
  &Kestimate_harp_instructions_sizeYbase_harpVharpMM0I
};

static _KLpairGVKd K35 = {
  &KLpairGVKdW /* wrapper */,
  &Kestimate_harp_instructions_sizeYbase_harpVharpMM0,
  &KPempty_listVKi
};

static _KLbyte_stringGVKd_31 K36 = {
  &KLbyte_stringGVKdW /* wrapper */,
  (D) 125,
  "estimate-harp-instructions-size"
};

_KLsimple_methodGVKe Kmake_bbYbase_harpVharpMM0 = {
  &KLsimple_methodGVKeW /* wrapper */,
  &xep_1,
  &K38,
  &Kmake_bbYbase_harpVharpMM0I
};

static _KLsignatureAvaluesGVKi K38 = {
  &KLsignatureAvaluesGVKiW /* wrapper */,
  (D) 33555461,
  &K31,
  &K39
};

static _KLsimple_object_vectorGVKd_1 K39 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (D) 5,
  &KLbasic_blockGYharp_basic_blockVharp
};

_KLsimple_methodGVKe Kcopy_shared_variablesYbase_harpVharpMM0 = {
  &KLsimple_methodGVKeW /* wrapper */,
  &xep_2,
  &K41,
  &Kcopy_shared_variablesYbase_harpVharpMM0I
};

static _KLsignatureGVKe K41 = {
  &KLsignatureGVKeW /* wrapper */,
  (D) 41943049,
  &K42
};

static _KLsimple_object_vectorGVKd_2 K42 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (D) 9,
  &KLharp_variablesGYharp_varsVharp,
  &KLharp_variablesGYharp_varsVharp
};

_KLkeyword_methodGVKe Kclear_shared_variablesYbase_harpVharpMM0 = {
  &KLkeyword_methodGVKeW /* wrapper */,
  &rest_key_xep_3,
  &K44,
  &key_mep_3,
  &Kclear_shared_variablesYbase_harpVharpMM0I,
  &K45
};

static _KLkeyword_signatureGVKe K44 = {
  &KLkeyword_signatureGVKeW /* wrapper */,
  (D) 42205189,
  &K31,
  &K48,
  &KDsignature_LobjectG_typesVKi
};

static _KLsimple_object_vectorGVKd_2 K45 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (D) 9,
  &KJallQ_,
  &KPfalseVKi
};

static _KLsymbolGVKd KJallQ_ = {
  &KLsymbolGVKdW /* wrapper */,
  &K47
};

static _KLbyte_stringGVKd_4 K47 = {
  &KLbyte_stringGVKdW /* wrapper */,
  (D) 17,
  "all?"
};

static _KLsimple_object_vectorGVKd_1 K48 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (D) 5,
  &KJallQ_
};

_KLsimple_methodGVKe Kinitialize_back_end_variablesYbase_harpVharpMM0 = {
  &KLsimple_methodGVKeW /* wrapper */,
  &xep_1,
  &K50,
  &Kinitialize_back_end_variablesYbase_harpVharpMM0I
};

static _KLsignatureGVKe K50 = {
  &KLsignatureGVKeW /* wrapper */,
  (D) 41943045,
  &K31
};

/* Code */

D Kmake_harp_variablesYharp_varsVharpMM0I (D backend_, D name_, D keys_, D prototype_) {
  D T5;
  D T6;
  D T7;
  D T8;
  D prototypeF9;
  D T10;
  D T11;
  D T12;
  D T13_0;
  D T14;
  D varsF15;
  D T16;
  _KLsimple_object_vectorGVKd_2 T17 = {&KLsimple_object_vectorGVKdW, (D) 9};
  D T18;
  D T19;
  D T20;
  DWORD T21;
  D T22;
  D T23;
  D T24;
  D T25;
  D T26;
  D T27;
  D T28;
  _KLsimple_object_vectorGVKd_5 T29 = {&KLsimple_object_vectorGVKdW, (D) 21};
  D T30;

  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:40
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:43
  varsF15 = APPLY3(&Kmake_harp_variables_internalYharp_varsVharp, backend_, name_, keys_);
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:44
  SLOT_VALUE_SETTER(varsF15, backend_, 3);
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:45
  T5 = Kmake_bbYbase_harpVharpMM0I(backend_);
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:45
  SLOT_VALUE_SETTER(T5, varsF15, 3);
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:46
  T16 = SLOT_VALUE(varsF15, 3);
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:46
  SLOT_VALUE_SETTER(T16, varsF15, 2);
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:47
  CONGRUENT_CALL_PROLOG(&KmakeVKd, 2);
  T6 = CONGRUENT_CALL2(&KLvreg_stateGYharp_registersVharp, &KPempty_vectorVKi);
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:47
  SLOT_VALUE_SETTER(T6, varsF15, 25);
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:50
  CONGRUENT_CALL_PROLOG(&Kestimate_harp_virtual_registers_sizeYbase_harpVharp, 2);
  T7 = CONGRUENT_CALL2(backend_, name_);
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:49
  T17.vector_element_[0] = &KJcapacity_;
  T17.vector_element_[1] = T7;
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:49
  CONGRUENT_CALL_PROLOG(&KmakeVKd, 2);
  T8 = CONGRUENT_CALL2(&KLstretchy_virtual_register_vectorGYharp_registersVharp, &T17);
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:48
  T18 = SLOT_VALUE(varsF15, 25);
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:48
  SLOT_VALUE_SETTER(T8, T18, 0);
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:52
  if (prototype_ != &KPfalseVKi) {
    T14 = prototype_;
    // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:53
    primitive_type_check(T14, &KLharp_variablesGYharp_varsVharp);
    prototypeF9 = T14;
    // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:55
    T19 = SLOT_VALUE_INITD(prototypeF9, 0);
    // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:56
    T20 = SLOT_VALUE_INITD(T19, 0);
    // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:56
    T21 = primitive_cast_integer_as_raw(T20);
    // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:56
    T22 = primitive_machine_word_equalQ(T21,1);
    // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:56
    if (T22 != &KPfalseVKi) {
      // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:57
      T10 = Kmake_instructions_vectorYbase_harpVharpMM0I();
      // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:57
      SLOT_VALUE_SETTER(T10, varsF15, 0);
    } else {
      // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:59
      SLOT_VALUE_SETTER(T19, varsF15, 0);
    }
    // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:56
    // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:62
    T23 = SLOT_VALUE_INITD(prototypeF9, 18);
    // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:63
    T24 = primitive_idQ(T23,Dempty_stretchy_vectorYharp_varsVharp);
    // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:63
    if (T24 != &KPfalseVKi) {
      // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:64
      T11 = Kmake_code_vectorYbase_harpVharpMM0I();
      // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:64
      SLOT_VALUE_SETTER(T11, varsF15, 18);
    } else {
      // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:66
      SLOT_VALUE_SETTER(T23, varsF15, 18);
    }
    // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:63
    // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:69
    T25 = SLOT_VALUE_INITD(prototypeF9, 34);
    // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:70
    T26 = primitive_idQ(T25,Dempty_bit_setYharp_utilsVharp);
    // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:70
    if (T26 != &KPfalseVKi) {
      // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:72
      T12 = Kmake_bit_setYharp_utilsVharpMM0I((D) 8321);
      // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:72
      SLOT_VALUE_SETTER(T12, varsF15, 34);
    } else {
      // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:74
      SLOT_VALUE_SETTER(T25, varsF15, 34);
    }
    // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:70
    // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:77
    T27 = SLOT_VALUE_INITD(prototypeF9, 31);
    // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:78
    T28 = primitive_idQ(T27,Dempty_named_variables_tablesYharp_varsVharp);
    // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:78
    if (T28 != &KPfalseVKi) {
      // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:79
      T29.vector_element_[0] = &KPfalseVKi;
      T29.vector_element_[1] = &KPfalseVKi;
      T29.vector_element_[2] = &KPfalseVKi;
      T29.vector_element_[3] = &KPfalseVKi;
      T29.vector_element_[4] = &KPfalseVKi;
      // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:79
      T30 = primitive_copy_vector(&T29);
      // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:79
      SLOT_VALUE_SETTER(T30, varsF15, 31);
    } else {
      // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:81
      SLOT_VALUE_SETTER(T27, varsF15, 31);
    }
    // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:78
  } else {
    // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:84
    Kallocate_back_end_variablesYbase_harpVharpMM0I(varsF15);
  }
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:52
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:87
  T13_0 = varsF15;
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:40
  MV_SET_COUNT(1);
  return(T13_0);
}

D Kmake_bbYbase_harpVharpMM0I (D back_end_) {
  D T2;
  D T3_0;
  D T4;
  D T5;
  D T6;
  _KLsimple_object_vectorGVKd_4 T7 = {&KLsimple_object_vectorGVKdW, (D) 17};
  D T8;

  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:12
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:13
  T4 = SLOT_VALUE(back_end_, 3);
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:16
  T5 = SLOT_VALUE_INITD(T4, 1);
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:17
  T6 = SLOT_VALUE_INITD(T4, 1);
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:15
  T7.vector_element_[0] = &KJstart_;
  T7.vector_element_[1] = T5;
  T7.vector_element_[2] = &KJend_;
  T7.vector_element_[3] = T6;
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:15
  CONGRUENT_CALL_PROLOG(&KmakeVKd, 2);
  T2 = CONGRUENT_CALL2(&KLbasic_blockGYharp_basic_blockVharp, &T7);
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:22
  T8 = SLOT_VALUE_INITD(T4, 4);
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:22
  CALL2(&Kbb_colour_setterYharp_basic_blockVharpMM0, T8, T2);
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:23
  Kbb_loop_depth_setterYharp_basic_blockVharpMM0I((D) 5, T2);
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:25
  T3_0 = T2;
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:12
  MV_SET_COUNT(1);
  return(T3_0);
}

D Kcopy_shared_variablesYbase_harpVharpMM0I (D old_vars_, D new_vars_) {
  D T3;
  D T4;
  D T5;
  D T6;
  D T7;
  D T8;

  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:93
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:95
  T4 = SLOT_VALUE_INITD(new_vars_, 0);
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:95
  SLOT_VALUE_SETTER(T4, old_vars_, 0);
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:96
  T5 = SLOT_VALUE_INITD(new_vars_, 1);
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:96
  SLOT_VALUE_SETTER(T5, old_vars_, 1);
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:97
  T6 = SLOT_VALUE_INITD(new_vars_, 18);
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:97
  SLOT_VALUE_SETTER(T6, old_vars_, 18);
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:98
  T7 = SLOT_VALUE_INITD(new_vars_, 34);
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:98
  SLOT_VALUE_SETTER(T7, old_vars_, 34);
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:99
  T8 = SLOT_VALUE_INITD(new_vars_, 31);
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:99
  SLOT_VALUE_SETTER(T8, old_vars_, 31);
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:99
  T3 = &KPfalseVKi;
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:93
  MV_SET_COUNT(0);
  return(T3);
}

D Kclear_shared_variablesYbase_harpVharpMM0I (D backend_, D Urest_, D allQ_) {
  D T4;
  D T5;
  D T6;
  D T7;
  D T8;
  D T9;
  D T10;
  D T11;
  D T12;
  D T13;
  D T14;
  D T15;

  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:104
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:106
  T10 = SLOT_VALUE(backend_, 3);
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:107
  if (allQ_ != &KPfalseVKi) {
    // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:108
    T4 = Kinitialize_back_end_variablesYbase_harpVharpMM0I(backend_);
    T9 = T4;
  } else {
    // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:112
    T11 = SLOT_VALUE_INITD(T10, 0);
    // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:112
    T12 = SLOT_VALUE_INITD(T10, 1);
    // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:112
    T5 = Kinitialize_vectorYbase_harpVharpMM0I(T11, T12);
    // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:111
    SLOT_VALUE_SETTER(T5, T10, 0);
    // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:114
    T13 = SLOT_VALUE_INITD(T10, 18);
    // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:114
    T6 = Kinitialize_stretchy_vectorYbase_harpVharpMM0I(T13);
    // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:113
    SLOT_VALUE_SETTER(T6, T10, 18);
    // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:116
    T14 = SLOT_VALUE_INITD(T10, 34);
    // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:116
    T7 = Kinitialize_bit_setYbase_harpVharpMM0I(T14);
    // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:115
    SLOT_VALUE_SETTER(T7, T10, 34);
    // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:117
    T15 = SLOT_VALUE_INITD(T10, 31);
    // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:117
    T8 = Kclear_named_variablesYharp_varsVharpI(T15);
    T9 = T8;
  }
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:107
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:104
  MV_SET_COUNT(0);
  return(T9);
}

D Kinitialize_back_end_variablesYbase_harpVharpMM0I (D backend_) {
  D T2;
  D T3;

  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:124
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:126
  T3 = SLOT_VALUE(backend_, 3);
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:127
  SLOT_VALUE_SETTER(&KPempty_vectorVKi, T3, 0);
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:128
  CALL2(&Kcode_vector_setterYharp_varsVharp, Dempty_stretchy_vectorYharp_varsVharp, T3);
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:129
  CALL2(&Kvirtual_register_clashes_setterYharp_varsVharp, Dempty_bit_setYharp_utilsVharp, T3);
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:130
  CALL2(&Knamed_variables_tables_setterYharp_varsVharp, Dempty_named_variables_tablesYharp_varsVharp, T3);
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:130
  T2 = &KPfalseVKi;
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:124
  MV_SET_COUNT(0);
  return(T2);
}

D Kinitialize_vectorYbase_harpVharpMM0I (D vec_, D last_) {
  D T3_0;
  D T4_0;
  D T5;
  DWORD T6;
  D T7;
  D T8_0;

  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:148
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:151
  T5 = SLOT_VALUE_INITD(vec_, 0);
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:151
  T6 = primitive_cast_integer_as_raw(T5);
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:151
  T7 = primitive_machine_word_less_thanQ(16001,T6);
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:151
  if (T7 != &KPfalseVKi) {
    // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:152
    T8_0 = KmakeVKdMM23I(&KLsimple_object_vectorGVKd, &KPempty_vectorVKi, &KPfalseVKi, (D) 16001);
    T4_0 = T8_0;
  } else {
    // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:154
    KfillXVKdMM11I(vec_, &KPfalseVKi, &KPempty_vectorVKi, (D) 1, last_);
    // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:155
    T3_0 = vec_;
    T4_0 = T3_0;
  }
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:151
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:148
  MV_SET_COUNT(1);
  return(T4_0);
}

D Kinitialize_stretchy_vectorYbase_harpVharpMM0I (D vec_) {
  D T2_0;
  D T3_0;
  D T4;
  D T5;
  DWORD T6;
  D T7;
  D T8_0;
  _KLsimple_object_vectorGVKd_2 T9 = {&KLsimple_object_vectorGVKdW, (D) 9};

  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:159
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:162
  T4 = SLOT_VALUE_INITD(vec_, 0);
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:162
  T5 = SLOT_VALUE_INITD(T4, 0);
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:162
  T6 = primitive_cast_integer_as_raw(T5);
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:162
  T7 = primitive_machine_word_less_thanQ(16001,T6);
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:162
  if (T7 != &KPfalseVKi) {
    // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:163
    T9.vector_element_[0] = &KJcapacity_;
    T9.vector_element_[1] = (D) 16001;
    // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:163
    T8_0 = KLstretchy_object_vectorGZ32ZconstructorVKiMM0I(&KLstretchy_object_vectorGVKe, &T9);
    T3_0 = T8_0;
  } else {
    // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:165
    Ksize_setterVKdMM1I((D) 1, vec_);
    // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:166
    T2_0 = vec_;
    T3_0 = T2_0;
  }
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:162
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:159
  MV_SET_COUNT(1);
  return(T3_0);
}

D Kinitialize_bit_setYbase_harpVharpMM0I (D set_) {
  D T2_0;
  D T3_0;
  D T4_0;
  D T5;
  DWORD T6;
  D T7;

  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:170
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:173
  T5 = SLOT_VALUE_INITD(set_, 0);
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:173
  T6 = primitive_cast_integer_as_raw(T5);
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:173
  T7 = primitive_machine_word_less_thanQ(16001,T6);
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:173
  if (T7 != &KPfalseVKi) {
    // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:174
    T2_0 = Kmake_bit_setYharp_utilsVharpMM0I((D) 512001);
    T4_0 = T2_0;
  } else {
    // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:176
    T3_0 = set_;
    T4_0 = T3_0;
  }
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:173
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:170
  MV_SET_COUNT(1);
  return(T4_0);
}

D Kmake_instructions_vectorYbase_harpVharpMM0I () {
  D T1_0;

  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:181
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:183
  T1_0 = KmakeVKdMM23I(&KLsimple_object_vectorGVKd, &KPempty_vectorVKi, &KPfalseVKi, (D) 1001);
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:181
  MV_SET_COUNT(1);
  return(T1_0);
}

D Kmake_code_vectorYbase_harpVharpMM0I () {
  D T1_0;
  _KLsimple_object_vectorGVKd_2 T2 = {&KLsimple_object_vectorGVKdW, (D) 9};

  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:186
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:188
  T2.vector_element_[0] = &KJcapacity_;
  T2.vector_element_[1] = (D) 601;
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:188
  T1_0 = KLstretchy_object_vectorGZ32ZconstructorVKiMM0I(&KLstretchy_object_vectorGVKe, &T2);
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:186
  MV_SET_COUNT(1);
  return(T1_0);
}

D Kallocate_back_end_variablesYbase_harpVharpMM0I (D vars_) {
  D T2;
  D T3;
  D T4;
  D T5;
  _KLsimple_object_vectorGVKd_5 T6 = {&KLsimple_object_vectorGVKdW, (D) 21};
  D T7;

  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:135
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:137
  T2 = Kmake_instructions_vectorYbase_harpVharpMM0I();
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:137
  SLOT_VALUE_SETTER(T2, vars_, 0);
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:138
  T3 = Kmake_code_vectorYbase_harpVharpMM0I();
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:138
  SLOT_VALUE_SETTER(T3, vars_, 18);
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:140
  T4 = Kmake_bit_setYharp_utilsVharpMM0I((D) 8321);
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:140
  SLOT_VALUE_SETTER(T4, vars_, 34);
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:141
  T6.vector_element_[0] = &KPfalseVKi;
  T6.vector_element_[1] = &KPfalseVKi;
  T6.vector_element_[2] = &KPfalseVKi;
  T6.vector_element_[3] = &KPfalseVKi;
  T6.vector_element_[4] = &KPfalseVKi;
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:141
  T7 = primitive_copy_vector(&T6);
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:141
  SLOT_VALUE_SETTER(T7, vars_, 31);
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:141
  T5 = &KPfalseVKi;
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:135
  MV_SET_COUNT(0);
  return(T5);
}

D Kestimate_harp_virtual_registers_sizeYbase_harpVharpMM0I (D backend_, D function_) {
  D T3_0;

  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:211
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:213
  T3_0 = (D) 1;
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:211
  MV_SET_COUNT(1);
  return(T3_0);
}

D Kestimate_harp_variables_sizeYbase_harpVharpMM0I (D backend_) {
  D T2;
  D T3;
  DWORD T4;
  DWORD T5;
  DSFLT T6;
  DSFLT T7;
  D T8_0;
  D T9;
  D T10;
  D T11;
  DWORD T12;
  D T13;
  D T14_0;
  D T14_1;
  D T15;
  D T16;
  D T17;
  DWORD T18;
  D T19;
  D T20_0;
  D T20_1;
  D T21_0;
  D T21_1;
  D T22_0;
  D T22_1;
  D T23_0;
  D T23_1;
  DSFLT T24;
  DSINT T25;
  DWORD T26;
  DWORD T27;
  D T28;
  DSFLT T29;
  DSFLT T30;
  DSFLT T31;
  D T32;
  D T33;
  D T34;
  DSFLT T35;
  D T36;
  D T37;
  D T38;
  DSFLT T39;
  D T40;

  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:203
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:205
  T2 = SLOT_VALUE(backend_, 3);
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:205
  T3 = SLOT_VALUE_INITD(T2, 1);
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:205
  T4 = primitive_cast_integer_as_raw(T3);
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:205
  T5 = primitive_machine_word_shift_right(T4,2);
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:205
  T6 = primitive_integer_as_single_float(T5);
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:205
  T7 = primitive_single_float_multiply(0.6000000,T6);
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:205
  T24 = primitive_single_float_divide(T7,1.0000000);
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:205
  T25 = primitive_single_float_as_integer(T24);
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:205
  T26 = primitive_machine_word_shift_left_signal_overflow(T25,2);
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:205
  T27 = primitive_machine_word_logior(T26,1);
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:205
  T28 = primitive_cast_raw_as_integer(T27);
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:205
  T29 = primitive_integer_as_single_float(T25);
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:205
  T30 = primitive_single_float_subtract(T24,T29);
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:205
  T31 = primitive_single_float_multiply(1.0000000,T30);
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:205
  T32 = primitive_raw_as_single_float(T31);
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:205
  T33 = primitive_single_float_less_thanQ(0.5000000,T31);
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:205
  if (T33 != &KPfalseVKi) {
    T11 = T33;
  } else {
    // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:205
    T34 = primitive_single_float_equalsQ(T31,0.5000000);
    // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:205
    if (T34 != &KPfalseVKi) {
      // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:205
      T9 = primitive_machine_word_logbitQ(2,T27);
      T10 = T9;
    } else {
      T10 = &KPfalseVKi;
    }
    // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:205
    T11 = T10;
  }
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:205
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:205
  if (T11 != &KPfalseVKi) {
    // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:205
    T12 = primitive_machine_word_add_signal_overflow(T27,4);
    // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:205
    T13 = primitive_cast_raw_as_integer(T12);
    // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:205
    T35 = primitive_single_float_subtract(T31,1.0000000);
    // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:205
    T36 = primitive_raw_as_single_float(T35);
    // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:205
    T14_0 = T13;
    T14_1 = T36;
    T23_0 = T14_0;
    T23_1 = T14_1;
  } else {
    // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:205
    T37 = primitive_single_float_less_thanQ(T31,-0.5000000);
    // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:205
    if (T37 != &KPfalseVKi) {
      T17 = T37;
    } else {
      // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:205
      T38 = primitive_single_float_equalsQ(T31,-0.5000000);
      // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:205
      if (T38 != &KPfalseVKi) {
        // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:205
        T15 = primitive_machine_word_logbitQ(2,T27);
        T16 = T15;
      } else {
        T16 = &KPfalseVKi;
      }
      // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:205
      T17 = T16;
    }
    // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:205
    // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:205
    if (T17 != &KPfalseVKi) {
      // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:205
      T18 = primitive_machine_word_subtract_signal_overflow(T27,4);
      // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:205
      T19 = primitive_cast_raw_as_integer(T18);
      // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:205
      T39 = primitive_single_float_add(T31,1.0000000);
      // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:205
      T40 = primitive_raw_as_single_float(T39);
      // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:205
      T20_0 = T19;
      T20_1 = T40;
      T22_0 = T20_0;
      T22_1 = T20_1;
    } else {
      // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:205
      T21_0 = T28;
      T21_1 = T32;
      T22_0 = T21_0;
      T22_1 = T21_1;
    }
    // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:205
    T23_0 = T22_0;
    T23_1 = T22_1;
  }
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:205
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:205
  T8_0 = T23_0;
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:203
  MV_SET_COUNT(1);
  return(T8_0);
}

D Kestimate_harp_instructions_sizeYbase_harpVharpMM0I (D backend_, D function_) {
  D T3_0;

  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:195
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:197
  T3_0 = (D) 1001;
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/basic-block-support.dylan:195
  MV_SET_COUNT(1);
  return(T3_0);
}


/* SYSTEM INIT CODE */

void _Init_harp__X_basic_block_support_for_system () {
  extern D KPresolve_symbolVKiI(D);
  {
    D T0;

    T0 = KPresolve_symbolVKiI(&KJprototype_);
    if (T0 != &KJprototype_) {
      primitive_repeated_slot_value_setter(T0, &K23, 1, 0);
      primitive_repeated_slot_value_setter(T0, &K20, 1, 0);
    }
  }
  {
    D T0;

    T0 = KPresolve_symbolVKiI(&KJallQ_);
    if (T0 != &KJallQ_) {
      primitive_repeated_slot_value_setter(T0, &K48, 1, 0);
      primitive_repeated_slot_value_setter(T0, &K45, 1, 0);
    }
  }
  return;
}

/* USER INIT CODE */

void _Init_harp__X_basic_block_support_for_user () {
  return;
}


/* eof */
