#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;

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 head_;
  D tail_;
} _KLempty_listGVKd;

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

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

#define  define__KLbyte_stringGVKd(nrepeated) \
  typedef struct { \
    D wrapper; \
    D size_; \
    char string_element_[nrepeated+1]; \
  } _KLbyte_stringGVKd_##nrepeated;
define__KLbyte_stringGVKd(5);
define__KLbyte_stringGVKd(20);
define__KLbyte_stringGVKd(9);
define__KLbyte_stringGVKd(8);
define__KLbyte_stringGVKd(13);
define__KLbyte_stringGVKd(6);

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

typedef struct {
  D wrapper;
  D xep_;
  D method_slot_descriptor_;
} _KLgetter_methodGVKi;

typedef struct {
  D wrapper;
  D slot_descriptor_properties_;
  D init_data_slot_;
  D slot_owner_;
  D init_keyword_;
  D slot_getter_;
  D slot_setter_;
  D slot_type_;
} _KLinstance_slot_descriptorGVKe;

typedef struct {
  D wrapper;
  D xep_;
  D method_slot_descriptor_;
} _KLsetter_methodGVKi;

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 namespace_name_;
  D home_library_;
} _KLmoduleGVKe;

#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(6);
define__KLsimple_object_vectorGVKd(3);
define__KLsimple_object_vectorGVKd(1);
define__KLsimple_object_vectorGVKd(256);
define__KLsimple_object_vectorGVKd(2);
define__KLsimple_object_vectorGVKd(4);
define__KLsimple_object_vectorGVKd(0);

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 symbol_name_;
} _KLsymbolGVKd;

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

typedef struct {
  D wrapper;
  D class_properties_;
  D iclass_class_;
  D class_mm_wrapper_;
  D repeated_slot_descriptor_;
  D instance_slot_descriptors_;
  D iclass_dispatch_key_;
  D class_constructor_;
  D direct_superclasses_;
  D class_rcpl_vector_;
  D class_rcpl_position_;
  D class_rcpl_other_positions_;
  D class_known_joint_;
  D iclass_dependent_generics_;
  D iclass_subclass_dependent_generics_;
  D direct_subclasses_;
  D direct_methods_;
  D direct_slot_descriptors_;
  D slot_descriptors_;
  D direct_inherited_slot_descriptors_;
  D direct_initialization_argument_descriptors_;
  D class_slot_descriptors_;
  D defaulted_initialization_arguments_slot_;
  D class_slot_storage_;
} _KLimplementation_classGVKe;

typedef struct {
  D wrapper;
} _KLintegerGVKd;

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 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;


/* Typedefs for defined classes */

typedef struct {
  D wrapper;
  D tag_no_;
  D tag_bb_;
  D tag_variables_;
} _KLtagGYbase_harpVharp;


/* Referenced object declarations */

D KPadd_classVKeI (D);
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;
extern _KLclassGVKd KLsealed_generic_functionGVKe;
extern _KLmm_wrapperGVKi_0 KLsealed_generic_functionGVKeW;
extern _KLempty_listGVKd KPempty_listVKi;
extern _KLclassGVKd KLempty_listGVKd;
extern _KLmm_wrapperGVKi_0 KLempty_listGVKdW;
extern _KLobject_signatureGVKe KDsignature_LobjectG_object_rest_value_1VKi;
extern _KLclassGVKd KLobject_signatureGVKe;
extern _KLmm_wrapperGVKi_0 KLobject_signatureGVKeW;
extern _KLabsent_engine_nodeGVKg RSINGULAR_Labsent_engine_nodeG;
extern _KLclassGVKd KLabsent_engine_nodeGVKg;
extern _KLmm_wrapperGVKi_0 KLabsent_engine_nodeGVKgW;
extern _KLclassGVKd KLbyte_stringGVKd;
extern _KLmm_wrapperGVKi_0 KLbyte_stringGVKdW;
extern _KLclassGVKd KLpairGVKd;
extern _KLmm_wrapperGVKi_0 KLpairGVKdW;
extern _KLclassGVKd KLgetter_methodGVKi;
extern _KLmm_wrapperGVKi_0 KLgetter_methodGVKiW;
extern _KLclassGVKd KLinstance_slot_descriptorGVKe;
extern _KLmm_wrapperGVKi_0 KLinstance_slot_descriptorGVKeW;
extern _KLobject_signatureGVKe KDsignature_LobjectG_object_rest_value_2VKi;
extern _KLclassGVKd KLsetter_methodGVKi;
extern _KLmm_wrapperGVKi_0 KLsetter_methodGVKiW;
extern _KLfunction_classGVKi KLincremental_generic_functionGVKe;
extern _KLclassGVKd KLfunction_classGVKi;
extern _KLmm_wrapperGVKi_0 KLfunction_classGVKiW;
extern _KLmm_wrapperGVKi_0 KLincremental_generic_functionGVKeW;
extern _KLmoduleGVKe Kbase_harp_moduleYdylan_userVharp;
extern _KLclassGVKd KLmoduleGVKe;
extern _KLmm_wrapperGVKi_0 KLmoduleGVKeW;
extern _KLsimple_object_vectorGVKd_0 KPempty_vectorVKi;
extern _KLclassGVKd KLsimple_object_vectorGVKd;
extern _KLmm_wrapperGVKi_0 KLsimple_object_vectorGVKdW;
extern _KLclassGVKd KLsignatureAvaluesGVKi;
extern _KLmm_wrapperGVKi_0 KLsignatureAvaluesGVKiW;
extern _KLclassGVKd KLharp_back_endGYbase_harpVharp;
extern _KLmm_wrapperGVKi_0 KLharp_back_endGYbase_harpVharpW;
extern _KLincremental_generic_functionGVKe KmakeVKd;
extern _KLclassGVKd KLsymbolGVKd;
extern _KLmm_wrapperGVKi_0 KLsymbolGVKdW;
extern _KLfunction_classGVKi KLsimple_methodGVKe;
extern _KLmm_wrapperGVKi_0 KLsimple_methodGVKeW;
extern _KLclassGVKd KLimplementation_classGVKe;
extern _KLmm_wrapperGVKi_0 KLimplementation_classGVKeW;
extern _KLclassGVKd KLintegerGVKd;
extern _KLmm_wrapperGVKi_0 KLintegerGVKdW;
extern _KLclassGVKd KLharp_variablesGYharp_varsVharp;
extern _KLmm_wrapperGVKi_0 KLharp_variablesGYharp_varsVharpW;
extern _KLincremental_generic_functionGVKe KinitializeVKd;
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_2 KDsignature_LclassG_typesVKi;
extern _KLsimple_object_vectorGVKd_256 KDsignature_LobjectG_typesVKi;
D Kclass_instanceQ_rcpl_single_smallVKiI (D, D);

/* Defined object declarations */

extern _KLclassGVKd KLtagGYbase_harpVharp;
extern _KLmm_wrapperGVKi_0 KLtagGYbase_harpVharpW;
extern _KLsealed_generic_functionGVKe Ktag_bbYbase_harpVharp;
extern _KLgetter_methodGVKi Ktag_bbYbase_harpVharpMM0;
static _KLpairGVKd K5;
static _KLbyte_stringGVKd_6 K6;
extern _KLinstance_slot_descriptorGVKe Ktag_bbYbase_harpVharpHLtagG;
extern _KLsealed_generic_functionGVKe Ktag_bb_setterYbase_harpVharp;
extern _KLsetter_methodGVKi Ktag_bb_setterYbase_harpVharpMM0;
static _KLpairGVKd K10;
static _KLbyte_stringGVKd_13 K11;
extern _KLincremental_generic_functionGVKe Kmake_tagYbase_harpVharp;
extern _KLsimple_methodGVKe Kmake_tagYbase_harpVharpMM0;
D Kmake_tagYbase_harpVharpMM0I (D);
static _KLpairGVKd K15;
static _KLsignatureAvaluesGVKi K16;
static _KLbyte_stringGVKd_8 K17;
static _KLsimple_object_vectorGVKd_1 K18;
static _KLsimple_object_vectorGVKd_1 K19;
static _KLsymbolGVKd KJtag_no_;
static _KLsymbolGVKd KJvariables_;
static _KLbyte_stringGVKd_9 K22;
static _KLbyte_stringGVKd_6 K23;
static _KLimplementation_classGVKe K24;
static _KLsimple_object_vectorGVKd_3 K25;
extern _KLkeyword_methodGVKe KLtagGZ32ZconstructorYbase_harpVharpMM0;
D KLtagGZ32ZconstructorYbase_harpVharpMM0I (D, D, D, D);
static _KLsimple_object_vectorGVKd_1 K28;
static _KLsimple_object_vectorGVKd_6 K29;
static _KLkeyword_signatureAvaluesGVKi K30;
static _KLsimple_object_vectorGVKd_4 K31;
static _KLsimple_object_vectorGVKd_2 K32;
extern _KLinstance_slot_descriptorGVKe Ktag_noYbase_harpVharpHLtagG;
extern _KLinstance_slot_descriptorGVKe Ktag_variablesYbase_harpVharpHLtagG;
extern _KLsealed_generic_functionGVKe Ktag_variablesYbase_harpVharp;
extern _KLsealed_generic_functionGVKe Ktag_variables_setterYbase_harpVharp;
extern _KLsetter_methodGVKi Ktag_variables_setterYbase_harpVharpMM0;
static _KLpairGVKd K38;
static _KLbyte_stringGVKd_20 K39;
extern _KLgetter_methodGVKi Ktag_variablesYbase_harpVharpMM0;
static _KLpairGVKd K41;
static _KLbyte_stringGVKd_13 K42;
extern _KLsealed_generic_functionGVKe Ktag_noYbase_harpVharp;
extern _KLsealed_generic_functionGVKe Ktag_no_setterYbase_harpVharp;
extern _KLsetter_methodGVKi Ktag_no_setterYbase_harpVharpMM0;
static _KLpairGVKd K46;
static _KLbyte_stringGVKd_13 K47;
extern _KLgetter_methodGVKi Ktag_noYbase_harpVharpMM0;
static _KLpairGVKd K49;
static _KLbyte_stringGVKd_5 K50;

/* Indirection variables */

static D IKJtag_no_ = &KJtag_no_;
static D IKJvariables_ = &KJvariables_;

/* Variables */

D tag_noYbase_harpVharp = &Ktag_noYbase_harpVharp;
D tag_no_setterYbase_harpVharp = &Ktag_no_setterYbase_harpVharp;
D tag_bbYbase_harpVharp = &Ktag_bbYbase_harpVharp;
D tag_bb_setterYbase_harpVharp = &Ktag_bb_setterYbase_harpVharp;
D tag_variablesYbase_harpVharp = &Ktag_variablesYbase_harpVharp;
D tag_variables_setterYbase_harpVharp = &Ktag_variables_setterYbase_harpVharp;
D LtagGYbase_harpVharp = &KLtagGYbase_harpVharp;
D make_tagYbase_harpVharp = &Kmake_tagYbase_harpVharp;

/* Objects */

_KLclassGVKd KLtagGYbase_harpVharp = {
  &KLclassGVKdW /* wrapper */,
  &Kclass_instanceQ_rcpl_single_smallVKiI,
  &K50,
  &K24,
  (D) 1,
  &Kbase_harp_moduleYdylan_userVharp
};

_KLmm_wrapperGVKi_0 KLtagGYbase_harpVharpW = {
  &KLmm_wrapperGVKiW /* wrapper */,
  &K24,
  (D) 1,
  13,
  33554439,
  (D) 1
};

_KLsealed_generic_functionGVKe Ktag_bbYbase_harpVharp = {
  &KLsealed_generic_functionGVKeW /* wrapper */,
  &gf_xep_1,
  &KDsignature_LobjectG_object_rest_value_1VKi,
  &KPfalseVKi,
  &K6,
  &K5,
  &RSINGULAR_Labsent_engine_nodeG
};

_KLgetter_methodGVKi Ktag_bbYbase_harpVharpMM0 = {
  &KLgetter_methodGVKiW /* wrapper */,
  &slotacc_single_q_instance_getter_xep,
  &Ktag_bbYbase_harpVharpHLtagG
};

static _KLpairGVKd K5 = {
  &KLpairGVKdW /* wrapper */,
  &Ktag_bbYbase_harpVharpMM0,
  &KPempty_listVKi
};

static _KLbyte_stringGVKd_6 K6 = {
  &KLbyte_stringGVKdW /* wrapper */,
  (D) 25,
  "tag-bb"
};

_KLinstance_slot_descriptorGVKe Ktag_bbYbase_harpVharpHLtagG = {
  &KLinstance_slot_descriptorGVKeW /* wrapper */,
  (D) 157,
  &KPfalseVKi,
  &KLtagGYbase_harpVharp,
  &KPfalseVKi,
  &Ktag_bbYbase_harpVharp,
  &Ktag_bb_setterYbase_harpVharp,
  &KLobjectGVKd
};

_KLsealed_generic_functionGVKe Ktag_bb_setterYbase_harpVharp = {
  &KLsealed_generic_functionGVKeW /* wrapper */,
  &gf_xep_2,
  &KDsignature_LobjectG_object_rest_value_2VKi,
  &KPfalseVKi,
  &K11,
  &K10,
  &RSINGULAR_Labsent_engine_nodeG
};

_KLsetter_methodGVKi Ktag_bb_setterYbase_harpVharpMM0 = {
  &KLsetter_methodGVKiW /* wrapper */,
  &slotacc_single_q_instance_setter_xep,
  &Ktag_bbYbase_harpVharpHLtagG
};

static _KLpairGVKd K10 = {
  &KLpairGVKdW /* wrapper */,
  &Ktag_bb_setterYbase_harpVharpMM0,
  &KPempty_listVKi
};

static _KLbyte_stringGVKd_13 K11 = {
  &KLbyte_stringGVKdW /* wrapper */,
  (D) 53,
  "tag-bb-setter"
};

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

_KLsimple_methodGVKe Kmake_tagYbase_harpVharpMM0 = {
  &KLsimple_methodGVKeW /* wrapper */,
  &xep_1,
  &K16,
  &Kmake_tagYbase_harpVharpMM0I
};

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

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

static _KLbyte_stringGVKd_8 K17 = {
  &KLbyte_stringGVKdW /* wrapper */,
  (D) 33,
  "make-tag"
};

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

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

static _KLsymbolGVKd KJtag_no_ = {
  &KLsymbolGVKdW /* wrapper */,
  &K23
};

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

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

static _KLbyte_stringGVKd_6 K23 = {
  &KLbyte_stringGVKdW /* wrapper */,
  (D) 25,
  "tag-no"
};

static _KLimplementation_classGVKe K24 = {
  &KLimplementation_classGVKeW /* wrapper */,
  (D) 392691725,
  &KLtagGYbase_harpVharp,
  &KLtagGYbase_harpVharpW,
  &KPfalseVKi,
  &K25,
  (D) -3,
  &KLtagGZ32ZconstructorYbase_harpVharpMM0,
  &K28,
  &K29,
  (D) 5,
  &KPempty_vectorVKi,
  &KPempty_vectorVKi,
  &KPempty_listVKi,
  &KPempty_listVKi,
  &KPempty_listVKi,
  &KPempty_vectorVKi,
  &K25,
  &K25,
  &KPempty_vectorVKi,
  &KPempty_vectorVKi,
  &KPempty_vectorVKi,
  &KPempty_vectorVKi,
  &KPempty_vectorVKi
};

static _KLsimple_object_vectorGVKd_3 K25 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (D) 13,
  &Ktag_noYbase_harpVharpHLtagG,
  &Ktag_bbYbase_harpVharpHLtagG,
  &Ktag_variablesYbase_harpVharpHLtagG
};

_KLkeyword_methodGVKe KLtagGZ32ZconstructorYbase_harpVharpMM0 = {
  &KLkeyword_methodGVKeW /* wrapper */,
  &rest_key_xep_4,
  &K30,
  &key_mep_2,
  &KLtagGZ32ZconstructorYbase_harpVharpMM0I,
  &K31
};

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

static _KLsimple_object_vectorGVKd_6 K29 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (D) 25,
  &KLobjectGVKd,
  &KLtagGYbase_harpVharp,
  &KPfalseVKi,
  &KPfalseVKi,
  &KPfalseVKi,
  &KPfalseVKi
};

static _KLkeyword_signatureAvaluesGVKi K30 = {
  &KLkeyword_signatureAvaluesGVKiW /* wrapper */,
  (D) 35390469,
  &KDsignature_LclassG_typesVKi,
  &K32,
  &KDsignature_LobjectG_typesVKi,
  &K19
};

static _KLsimple_object_vectorGVKd_4 K31 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (D) 17,
  &KJtag_no_,
  (D) -3,
  &KJvariables_,
  &KPunboundVKi
};

static _KLsimple_object_vectorGVKd_2 K32 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (D) 9,
  &KJtag_no_,
  &KJvariables_
};

_KLinstance_slot_descriptorGVKe Ktag_noYbase_harpVharpHLtagG = {
  &KLinstance_slot_descriptorGVKeW /* wrapper */,
  (D) 157,
  (D) -3,
  &KLtagGYbase_harpVharp,
  &KJtag_no_,
  &Ktag_noYbase_harpVharp,
  &Ktag_no_setterYbase_harpVharp,
  &KLintegerGVKd
};

_KLinstance_slot_descriptorGVKe Ktag_variablesYbase_harpVharpHLtagG = {
  &KLinstance_slot_descriptorGVKeW /* wrapper */,
  (D) 129,
  &KPfalseVKi,
  &KLtagGYbase_harpVharp,
  &KJvariables_,
  &Ktag_variablesYbase_harpVharp,
  &Ktag_variables_setterYbase_harpVharp,
  &KLharp_variablesGYharp_varsVharp
};

_KLsealed_generic_functionGVKe Ktag_variablesYbase_harpVharp = {
  &KLsealed_generic_functionGVKeW /* wrapper */,
  &gf_xep_1,
  &KDsignature_LobjectG_object_rest_value_1VKi,
  &KPfalseVKi,
  &K42,
  &K41,
  &RSINGULAR_Labsent_engine_nodeG
};

_KLsealed_generic_functionGVKe Ktag_variables_setterYbase_harpVharp = {
  &KLsealed_generic_functionGVKeW /* wrapper */,
  &gf_xep_2,
  &KDsignature_LobjectG_object_rest_value_2VKi,
  &KPfalseVKi,
  &K39,
  &K38,
  &RSINGULAR_Labsent_engine_nodeG
};

_KLsetter_methodGVKi Ktag_variables_setterYbase_harpVharpMM0 = {
  &KLsetter_methodGVKiW /* wrapper */,
  &slotacc_single_q_instance_setter_xep,
  &Ktag_variablesYbase_harpVharpHLtagG
};

static _KLpairGVKd K38 = {
  &KLpairGVKdW /* wrapper */,
  &Ktag_variables_setterYbase_harpVharpMM0,
  &KPempty_listVKi
};

static _KLbyte_stringGVKd_20 K39 = {
  &KLbyte_stringGVKdW /* wrapper */,
  (D) 81,
  "tag-variables-setter"
};

_KLgetter_methodGVKi Ktag_variablesYbase_harpVharpMM0 = {
  &KLgetter_methodGVKiW /* wrapper */,
  &slotacc_single_q_instance_getter_xep,
  &Ktag_variablesYbase_harpVharpHLtagG
};

static _KLpairGVKd K41 = {
  &KLpairGVKdW /* wrapper */,
  &Ktag_variablesYbase_harpVharpMM0,
  &KPempty_listVKi
};

static _KLbyte_stringGVKd_13 K42 = {
  &KLbyte_stringGVKdW /* wrapper */,
  (D) 53,
  "tag-variables"
};

_KLsealed_generic_functionGVKe Ktag_noYbase_harpVharp = {
  &KLsealed_generic_functionGVKeW /* wrapper */,
  &gf_xep_1,
  &KDsignature_LobjectG_object_rest_value_1VKi,
  &KPfalseVKi,
  &K23,
  &K49,
  &RSINGULAR_Labsent_engine_nodeG
};

_KLsealed_generic_functionGVKe Ktag_no_setterYbase_harpVharp = {
  &KLsealed_generic_functionGVKeW /* wrapper */,
  &gf_xep_2,
  &KDsignature_LobjectG_object_rest_value_2VKi,
  &KPfalseVKi,
  &K47,
  &K46,
  &RSINGULAR_Labsent_engine_nodeG
};

_KLsetter_methodGVKi Ktag_no_setterYbase_harpVharpMM0 = {
  &KLsetter_methodGVKiW /* wrapper */,
  &slotacc_single_q_instance_setter_xep,
  &Ktag_noYbase_harpVharpHLtagG
};

static _KLpairGVKd K46 = {
  &KLpairGVKdW /* wrapper */,
  &Ktag_no_setterYbase_harpVharpMM0,
  &KPempty_listVKi
};

static _KLbyte_stringGVKd_13 K47 = {
  &KLbyte_stringGVKdW /* wrapper */,
  (D) 53,
  "tag-no-setter"
};

_KLgetter_methodGVKi Ktag_noYbase_harpVharpMM0 = {
  &KLgetter_methodGVKiW /* wrapper */,
  &slotacc_single_q_instance_getter_xep,
  &Ktag_noYbase_harpVharpHLtagG
};

static _KLpairGVKd K49 = {
  &KLpairGVKdW /* wrapper */,
  &Ktag_noYbase_harpVharpMM0,
  &KPempty_listVKi
};

static _KLbyte_stringGVKd_5 K50 = {
  &KLbyte_stringGVKdW /* wrapper */,
  (D) 21,
  "<tag>"
};

/* Code */

D Kmake_tagYbase_harpVharpMM0I (D backend_) {
  D T2_0;
  D T3;
  D T4;
  DWORD T5;
  DWORD T6;
  D T7;
  _KLsimple_object_vectorGVKd_4 T8 = {&KLsimple_object_vectorGVKdW, (D) 17};

  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/tag.dylan:26
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/tag.dylan:27
  T3 = SLOT_VALUE(backend_, 3);
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/tag.dylan:28
  T4 = SLOT_VALUE_INITD(T3, 10);
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/tag.dylan:28
  T5 = primitive_cast_integer_as_raw(T4);
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/tag.dylan:28
  T6 = primitive_machine_word_add_signal_overflow(T5,4);
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/tag.dylan:28
  T7 = primitive_cast_raw_as_integer(T6);
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/tag.dylan:28
  SLOT_VALUE_SETTER(T7, T3, 10);
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/tag.dylan:29
  T8.vector_element_[0] = IKJtag_no_;
  T8.vector_element_[1] = T7;
  T8.vector_element_[2] = IKJvariables_;
  T8.vector_element_[3] = T3;
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/tag.dylan:29
  CONGRUENT_CALL_PROLOG(&KmakeVKd, 2);
  T2_0 = CONGRUENT_CALL2(&KLtagGYbase_harpVharp, &T8);
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/tag.dylan:26
  MV_SET_COUNT(1);
  return(T2_0);
}

D KLtagGZ32ZconstructorYbase_harpVharpMM0I (D class_, D init_args_, D Uunique_tag_no_, D Uunique_tag_variables_) {
  D T5;
  D Uunique_tag_noF6;
  D Uunique_tag_variablesF7;
  D Uunique_tag_variablesF8;
  D T9_0;
  D T10;

  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/tag.dylan:17
  T5 = primitive_object_allocate_filled(4,&KLtagGYbase_harpVharpW,3,&KPunboundVKi,0,0,&KPunboundVKi);
  primitive_type_check(Uunique_tag_no_, &KLintegerGVKd);
  Uunique_tag_noF6 = Uunique_tag_no_;
  SLOT_VALUE_SETTER(Uunique_tag_noF6, T5, 0);
  SLOT_VALUE_SETTER(&KPfalseVKi, T5, 1);
  T10 = primitive_idQ(Uunique_tag_variables_,&KPunboundVKi);
  if (T10 != &KPfalseVKi) {
    Uunique_tag_variablesF8 = Uunique_tag_variables_;
  } else {
    primitive_type_check(Uunique_tag_variables_, &KLharp_variablesGYharp_varsVharp);
    Uunique_tag_variablesF7 = Uunique_tag_variables_;
    Uunique_tag_variablesF8 = Uunique_tag_variablesF7;
  }
  SLOT_VALUE_SETTER(Uunique_tag_variablesF8, T5, 2);
  APPLY2(&KinitializeVKd, T5, init_args_);
  T9_0 = T5;
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/tag.dylan:17
  MV_SET_COUNT(1);
  return(T9_0);
}


/* SYSTEM INIT CODE */

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

    T0 = KPresolve_symbolVKiI(&KJtag_no_);
    if (T0 != &KJtag_no_) {
      primitive_slot_value_setter(T0, &Ktag_noYbase_harpVharpHLtagG, 3);
      primitive_repeated_slot_value_setter(T0, &K32, 1, 0);
      primitive_repeated_slot_value_setter(T0, &K31, 1, 0);
      IKJtag_no_ = T0;
    }
  }
  {
    D T0;

    T0 = KPresolve_symbolVKiI(&KJvariables_);
    if (T0 != &KJvariables_) {
      primitive_slot_value_setter(T0, &Ktag_variablesYbase_harpVharpHLtagG, 3);
      primitive_repeated_slot_value_setter(T0, &K32, 1, 1);
      primitive_repeated_slot_value_setter(T0, &K31, 1, 2);
      IKJvariables_ = T0;
    }
  }
{
  D T0;

  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/tag.dylan:17
  T0 = KPadd_classVKeI(&KLtagGYbase_harpVharp);
  goto I0;
}
I0:

  return;
}

/* USER INIT CODE */

void _Init_harp__X_tag_for_user () {
  return;
}


/* eof */
