#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(10);
define__KLsimple_object_vectorGVKd(3);
define__KLsimple_object_vectorGVKd(20);
define__KLsimple_object_vectorGVKd(256);
define__KLsimple_object_vectorGVKd(6);
define__KLsimple_object_vectorGVKd(0);

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

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

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 private_lambda_name_internal_;
  D private_lambda_location_;
  D private_lambda_all_locators_;
  D private_lambda_selected_locators_internal_;
  D private_lambda_variable_scopes_internal_;
  D private_lambda_all_variable_scopes_;
  D private_lambda_all_variable_names_;
  D compiled_lambda_packed_slot_;
} _KLcompiled_lambdaGYbase_harpVharp;

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

typedef struct {
  D wrapper;
  D xep_;
} _KLfunctionGVKd;

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

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


/* 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;
extern _KLclassGVKd KLsimple_object_vectorGVKd;
extern _KLmm_wrapperGVKi_0 KLsimple_object_vectorGVKdW;
D Kmake_harp_variablesYharp_varsVharpMM0I (D, D, D, D);
extern _KLempty_listGVKd KPempty_listVKi;
extern _KLclassGVKd KLempty_listGVKd;
extern _KLmm_wrapperGVKi_0 KLempty_listGVKdW;
D Kpre_cg_lambdaYmain_harpVharpMM0I (D);
extern _KLincremental_generic_functionGVKe Kdummy_harp_source_locatorQYharp_debug_infoVharp;
extern _KLfunction_classGVKi KLincremental_generic_functionGVKe;
extern _KLclassGVKd KLfunction_classGVKi;
extern _KLmm_wrapperGVKi_0 KLfunction_classGVKiW;
extern _KLmm_wrapperGVKi_0 KLincremental_generic_functionGVKeW;
extern _KLincremental_generic_functionGVKe Kharp_consistency_checkYmain_harpVharp;
extern _KLincremental_generic_functionGVKe Kpost_cg_lambdaYmain_harpVharp;
D Kcopy_shared_variablesYbase_harpVharpMM0I (D, D);
D Kclear_shared_variablesYbase_harpVharpMM0I (D, D, D);
extern _KLsimple_object_vectorGVKd_0 KPempty_vectorVKi;
extern _KLclassGVKd KLsymbolGVKd;
extern _KLmm_wrapperGVKi_0 KLsymbolGVKdW;
extern _KLclassGVKd KLbyte_stringGVKd;
extern _KLmm_wrapperGVKi_0 KLbyte_stringGVKdW;
extern _KLfunction_classGVKi KLkeyword_methodGVKe;
extern _KLmm_wrapperGVKi_0 KLkeyword_methodGVKeW;
extern _KLsymbolGVKd KJcode_;
extern _KLclassGVKd KLkeyword_signatureAvaluesGVKi;
extern _KLmm_wrapperGVKi_0 KLkeyword_signatureAvaluesGVKiW;
extern _KLsimple_object_vectorGVKd_256 KDsignature_LobjectG_typesVKi;
extern _KLclassGVKd KLcompiled_lambdaGYbase_harpVharp;
extern _KLmm_wrapperGVKi_0 KLcompiled_lambdaGYbase_harpVharpW;
extern _KLclassGVKd KLharp_back_endGYbase_harpVharp;
extern _KLmm_wrapperGVKi_0 KLharp_back_endGYbase_harpVharpW;
extern _KLclassGVKd KLfunctionGVKd;
extern _KLmm_wrapperGVKi_0 KLfunctionGVKdW;
extern _KLfunction_classGVKi KLsimple_methodGVKe;
extern _KLmm_wrapperGVKi_0 KLsimple_methodGVKeW;
extern _KLclassGVKd KLsignatureAvaluesGVKi;
extern _KLmm_wrapperGVKi_0 KLsignatureAvaluesGVKiW;
extern D DunsuppliedYcommon_extensionsVcommon_dylan;

/* Defined object declarations */

extern _KLkeyword_methodGVKe Kinvoke_harpYmain_harpVharpMM0;
D Kinvoke_harpYmain_harpVharpMM0I (D, D, D, D, D, D, D, D, D, D, D, D, D, D);
static _KLsymbolGVKd KJdefasm_;
static _KLsymbolGVKd KJcall_in_;
static _KLsymbolGVKd KJprototype_;
static _KLbyte_stringGVKd_9 K5;
static _KLbyte_stringGVKd_7 K6;
static _KLbyte_stringGVKd_6 K7;
static _KLkeyword_signatureAvaluesGVKi K8;
static _KLsimple_object_vectorGVKd_20 K9;
static _KLsymbolGVKd KJoutputter_;
static _KLsymbolGVKd KJsection_;
static _KLsymbolGVKd KJstatic_;
static _KLsymbolGVKd KJpublic_;
static _KLsymbolGVKd KJexport_;
static _KLsymbolGVKd KJsource_locator_;
static _KLsymbolGVKd KJharp_debug_;
static _KLsymbolGVKd KJcheck_;
static _KLbyte_stringGVKd_5 K18;
static _KLbyte_stringGVKd_10 K19;
static _KLbyte_stringGVKd_14 K20;
static _KLbyte_stringGVKd_6 K21;
static _KLbyte_stringGVKd_6 K22;
static _KLbyte_stringGVKd_6 K23;
static _KLbyte_stringGVKd_7 K24;
static _KLbyte_stringGVKd_9 K25;
static _KLsimple_object_vectorGVKd_3 K26;
static _KLsimple_object_vectorGVKd_10 K27;
static _KLsimple_object_vectorGVKd_1 K28;
extern _KLsimple_methodGVKe Kinvoke_harp_asmYmain_harpVharpMM0;
D Kinvoke_harp_asmYmain_harpVharpMM0I (D, D, D, D);
static _KLsignatureAvaluesGVKi K31;

/* Indirection variables */

static D IKJdefasm_ = &KJdefasm_;
static D IKJcall_in_ = &KJcall_in_;
static D IKJprototype_ = &KJprototype_;
static D IKJoutputter_ = &KJoutputter_;
static D IKJsection_ = &KJsection_;
static D IKJstatic_ = &KJstatic_;
static D IKJpublic_ = &KJpublic_;
static D IKJexport_ = &KJexport_;
static D IKJsource_locator_ = &KJsource_locator_;
static D IKJharp_debug_ = &KJharp_debug_;
static D IKJcheck_ = &KJcheck_;

/* Variables */

D invoke_harp_asmYmain_harpVharp = &Kinvoke_harp_asmYmain_harpVharpMM0;
D invoke_harpYmain_harpVharp = &Kinvoke_harpYmain_harpVharpMM0;
D print_harp_debug_by_defaultYmain_harpVharp = &KPfalseVKi;
D check_consistency_by_defaultYmain_harpVharp = &KPfalseVKi;
D export_publics_by_defaultYmain_harpVharp = &KPtrueVKi;
D export_call_ins_by_defaultYmain_harpVharp = &KPfalseVKi;

/* Objects */

_KLkeyword_methodGVKe Kinvoke_harpYmain_harpVharpMM0 = {
  &KLkeyword_methodGVKeW /* wrapper */,
  &rest_key_xep,
  &K8,
  &key_mep,
  &Kinvoke_harpYmain_harpVharpMM0I,
  &K9
};

static _KLsymbolGVKd KJdefasm_ = {
  &KLsymbolGVKdW /* wrapper */,
  &K7
};

static _KLsymbolGVKd KJcall_in_ = {
  &KLsymbolGVKdW /* wrapper */,
  &K6
};

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

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

static _KLbyte_stringGVKd_7 K6 = {
  &KLbyte_stringGVKdW /* wrapper */,
  (D) 29,
  "call-in"
};

static _KLbyte_stringGVKd_6 K7 = {
  &KLbyte_stringGVKdW /* wrapper */,
  (D) 25,
  "defasm"
};

static _KLkeyword_signatureAvaluesGVKi K8 = {
  &KLkeyword_signatureAvaluesGVKiW /* wrapper */,
  (D) 33817613,
  &K26,
  &K27,
  &KDsignature_LobjectG_typesVKi,
  &K28
};

static _KLsimple_object_vectorGVKd_20 K9 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (D) 81,
  &KJoutputter_,
  &KPfalseVKi,
  &KJsection_,
  &KJcode_,
  &KJdefasm_,
  &KPfalseVKi,
  &KJcall_in_,
  &KPfalseVKi,
  &KJstatic_,
  &KPfalseVKi,
  &KJpublic_,
  &KPunboundVKi,
  &KJexport_,
  &KPunboundVKi,
  &KJsource_locator_,
  &KPfalseVKi,
  &KJharp_debug_,
  &KPunboundVKi,
  &KJcheck_,
  &KPunboundVKi
};

static _KLsymbolGVKd KJoutputter_ = {
  &KLsymbolGVKdW /* wrapper */,
  &K25
};

static _KLsymbolGVKd KJsection_ = {
  &KLsymbolGVKdW /* wrapper */,
  &K24
};

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

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

static _KLsymbolGVKd KJexport_ = {
  &KLsymbolGVKdW /* wrapper */,
  &K21
};

static _KLsymbolGVKd KJsource_locator_ = {
  &KLsymbolGVKdW /* wrapper */,
  &K20
};

static _KLsymbolGVKd KJharp_debug_ = {
  &KLsymbolGVKdW /* wrapper */,
  &K19
};

static _KLsymbolGVKd KJcheck_ = {
  &KLsymbolGVKdW /* wrapper */,
  &K18
};

static _KLbyte_stringGVKd_5 K18 = {
  &KLbyte_stringGVKdW /* wrapper */,
  (D) 21,
  "check"
};

static _KLbyte_stringGVKd_10 K19 = {
  &KLbyte_stringGVKdW /* wrapper */,
  (D) 41,
  "harp-debug"
};

static _KLbyte_stringGVKd_14 K20 = {
  &KLbyte_stringGVKdW /* wrapper */,
  (D) 57,
  "source-locator"
};

static _KLbyte_stringGVKd_6 K21 = {
  &KLbyte_stringGVKdW /* wrapper */,
  (D) 25,
  "export"
};

static _KLbyte_stringGVKd_6 K22 = {
  &KLbyte_stringGVKdW /* wrapper */,
  (D) 25,
  "public"
};

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

static _KLbyte_stringGVKd_7 K24 = {
  &KLbyte_stringGVKdW /* wrapper */,
  (D) 29,
  "section"
};

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

static _KLsimple_object_vectorGVKd_3 K26 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (D) 13,
  &KLharp_back_endGYbase_harpVharp,
  &KLfunctionGVKd,
  &KLobjectGVKd
};

static _KLsimple_object_vectorGVKd_10 K27 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (D) 41,
  &KJoutputter_,
  &KJsection_,
  &KJdefasm_,
  &KJcall_in_,
  &KJstatic_,
  &KJpublic_,
  &KJexport_,
  &KJsource_locator_,
  &KJharp_debug_,
  &KJcheck_
};

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

_KLsimple_methodGVKe Kinvoke_harp_asmYmain_harpVharpMM0 = {
  &KLsimple_methodGVKeW /* wrapper */,
  &rest_xep_3,
  &K31,
  &Kinvoke_harp_asmYmain_harpVharpMM0I
};

static _KLsignatureAvaluesGVKi K31 = {
  &KLsignatureAvaluesGVKiW /* wrapper */,
  (D) 34604045,
  &K26,
  &K28
};

/* Code */

D Kinvoke_harpYmain_harpVharpMM0I (D backend_, D continuation_, D function_name_, D Urest_, D outputter_, D section_, D defasm_, D call_in_, D static_, D public_, D export_, D source_locator_, D harp_debug_, D check_) {
  D T15;
  D publicF16;
  D T17;
  D exportF18;
  D T19;
  D harp_debugF20;
  D T21;
  D T22;
  D checkF23;
  D T24;
  D harp_debugF25;
  D T26;
  D T27;
  D Utmp_;
  D T29;
  D T30;
  D T31;
  D exportF32;
  D T33;
  D T34;
  D T35;
  D source_locatorF36;
  D compiled_lambda_;
  D T38_0;
  D code_gen_completeQ_;
  D T40;
  D T41;
  D T42;
  D T43;
  D T44;
  D T45;
  D T46;
  D T47;
  D T48;
  _KLsimple_object_vectorGVKd_6 T49 = {&KLsimple_object_vectorGVKdW, (D) 25};
  D new_vars_;
  D T51;

  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/harp-invoke.dylan:18
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/harp-invoke.dylan:18
  T41 = primitive_idQ(public_,&KPunboundVKi);
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/harp-invoke.dylan:18
  if (T41 != &KPfalseVKi) {
    // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/harp-invoke.dylan:25
    T42 = primitive_not(static_);
    // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/harp-invoke.dylan:18
    T15 = T42;
    publicF16 = T15;
  } else {
    publicF16 = public_;
  }
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/harp-invoke.dylan:18
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/harp-invoke.dylan:18
  T43 = primitive_idQ(export_,&KPunboundVKi);
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/harp-invoke.dylan:18
  if (T43 != &KPfalseVKi) {
    // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/harp-invoke.dylan:18
    T17 = DunsuppliedYcommon_extensionsVcommon_dylan;
    exportF18 = T17;
  } else {
    exportF18 = export_;
  }
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/harp-invoke.dylan:18
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/harp-invoke.dylan:18
  T44 = primitive_idQ(harp_debug_,&KPunboundVKi);
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/harp-invoke.dylan:18
  if (T44 != &KPfalseVKi) {
    // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/harp-invoke.dylan:18
    T19 = DunsuppliedYcommon_extensionsVcommon_dylan;
    harp_debugF20 = T19;
  } else {
    harp_debugF20 = harp_debug_;
  }
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/harp-invoke.dylan:18
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/harp-invoke.dylan:18
  T45 = primitive_idQ(check_,&KPunboundVKi);
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/harp-invoke.dylan:18
  if (T45 != &KPfalseVKi) {
    // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/harp-invoke.dylan:31
    T21 = check_consistency_by_defaultYmain_harpVharp;
    // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/harp-invoke.dylan:18
    T22 = T21;
    checkF23 = T22;
  } else {
    checkF23 = check_;
  }
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/harp-invoke.dylan:18
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/harp-invoke.dylan:33
  T46 = primitive_idQ(harp_debugF20,DunsuppliedYcommon_extensionsVcommon_dylan);
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/harp-invoke.dylan:33
  if (T46 != &KPfalseVKi) {
    // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/harp-invoke.dylan:33
    T24 = print_harp_debug_by_defaultYmain_harpVharp;
    harp_debugF25 = T24;
  } else {
    harp_debugF25 = harp_debugF20;
  }
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/harp-invoke.dylan:33
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/harp-invoke.dylan:34
  T47 = primitive_idQ(exportF18,DunsuppliedYcommon_extensionsVcommon_dylan);
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/harp-invoke.dylan:34
  if (T47 != &KPfalseVKi) {
    // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/harp-invoke.dylan:36
    if (call_in_ != &KPfalseVKi) {
      T26 = &KPfalseVKi;
    } else {
      T26 = publicF16;
    }
    // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/harp-invoke.dylan:36
    // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/harp-invoke.dylan:36
    if (T26 != &KPfalseVKi) {
      // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/harp-invoke.dylan:36
      T27 = export_publics_by_defaultYmain_harpVharp;
      Utmp_ = T27;
    } else {
      Utmp_ = &KPfalseVKi;
    }
    // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/harp-invoke.dylan:36
    // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/harp-invoke.dylan:36
    if (Utmp_ != &KPfalseVKi) {
      T31 = Utmp_;
    } else {
      // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/harp-invoke.dylan:37
      if (call_in_ != &KPfalseVKi) {
        // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/harp-invoke.dylan:37
        T29 = export_call_ins_by_defaultYmain_harpVharp;
        T30 = T29;
      } else {
        T30 = &KPfalseVKi;
      }
      // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/harp-invoke.dylan:37
      T31 = T30;
    }
    // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/harp-invoke.dylan:36
    exportF32 = T31;
  } else {
    exportF32 = exportF18;
  }
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/harp-invoke.dylan:34
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/harp-invoke.dylan:39
  T48 = SLOT_VALUE(backend_, 3);
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/harp-invoke.dylan:40
  code_gen_completeQ_ = &KPfalseVKi;
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/harp-invoke.dylan:41
  ENTER_UNWIND_FRAME(T33);
  if (!nlx_setjmp(FRAME_DEST(T33))) {
    // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/harp-invoke.dylan:42
    T49.vector_element_[0] = IKJdefasm_;
    T49.vector_element_[1] = defasm_;
    T49.vector_element_[2] = IKJcall_in_;
    T49.vector_element_[3] = call_in_;
    T49.vector_element_[4] = IKJprototype_;
    T49.vector_element_[5] = T48;
    // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/harp-invoke.dylan:42
    new_vars_ = Kmake_harp_variablesYharp_varsVharpMM0I(backend_, function_name_, &T49, T48);
    // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/harp-invoke.dylan:45
    SLOT_VALUE_SETTER(new_vars_, backend_, 3);
    // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/harp-invoke.dylan:46
    Kpre_cg_lambdaYmain_harpVharpMM0I(backend_);
    // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/harp-invoke.dylan:47
    CALL1(continuation_, backend_);
    // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/harp-invoke.dylan:54
    if (source_locator_ != &KPfalseVKi) {
      // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/harp-invoke.dylan:54
      CONGRUENT_CALL_PROLOG(&Kdummy_harp_source_locatorQYharp_debug_infoVharp, 1);
      T34 = CONGRUENT_CALL1(source_locator_);
      T35 = T34;
    } else {
      T35 = &KPfalseVKi;
    }
    // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/harp-invoke.dylan:54
    // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/harp-invoke.dylan:54
    if (T35 != &KPfalseVKi) {
      source_locatorF36 = &KPfalseVKi;
    } else {
      source_locatorF36 = source_locator_;
    }
    // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/harp-invoke.dylan:54
    // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/harp-invoke.dylan:59
    if (checkF23 != &KPfalseVKi) {
      // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/harp-invoke.dylan:59
      CONGRUENT_CALL_PROLOG(&Kharp_consistency_checkYmain_harpVharp, 1);
      CONGRUENT_CALL1(backend_);
    }
    // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/harp-invoke.dylan:59
    // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/harp-invoke.dylan:61
    CONGRUENT_CALL_PROLOG(&Kpost_cg_lambdaYmain_harpVharp, 7);
    compiled_lambda_ = CONGRUENT_CALL7(backend_, outputter_, harp_debugF25, publicF16, exportF32, source_locatorF36, section_);
    // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/harp-invoke.dylan:62
    Kcopy_shared_variablesYbase_harpVharpMM0I(T48, new_vars_);
    // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/harp-invoke.dylan:63
    code_gen_completeQ_ = &KPtrueVKi;
    // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/harp-invoke.dylan:64
    T38_0 = compiled_lambda_;
    // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/harp-invoke.dylan:41
    FALL_THROUGH_UNWIND(T38_0);
  }
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/harp-invoke.dylan:66
  SLOT_VALUE_SETTER(T48, backend_, 3);
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/harp-invoke.dylan:67
  T40 = code_gen_completeQ_;
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/harp-invoke.dylan:67
  T51 = primitive_not(T40);
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/harp-invoke.dylan:67
  Kclear_shared_variablesYbase_harpVharpMM0I(backend_, &KPempty_vectorVKi, T51);
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/harp-invoke.dylan:41
  CONTINUE_UNWIND();
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/harp-invoke.dylan:18
  MV_SET_COUNT(1);
  return(T38_0);
}

D Kinvoke_harp_asmYmain_harpVharpMM0I (D backend_, D continuation_, D function_name_, D all_keys_) {
  D T5_0;

  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/harp-invoke.dylan:71
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/harp-invoke.dylan:75
  T5_0 = APPLY6(&Kinvoke_harpYmain_harpVharpMM0, backend_, continuation_, function_name_, IKJdefasm_, &KPtrueVKi, all_keys_);
  // /Users/bruce/Development/dylan/opendylan/sources/harp/core-harp/harp-invoke.dylan:71
  MV_SET_COUNT(1);
  return(T5_0);
}


/* SYSTEM INIT CODE */

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

    T0 = KPresolve_symbolVKiI(&KJdefasm_);
    if (T0 != &KJdefasm_) {
      IKJdefasm_ = T0;
      primitive_repeated_slot_value_setter(T0, &K27, 1, 2);
      primitive_repeated_slot_value_setter(T0, &K9, 1, 4);
    }
  }
  {
    D T0;

    T0 = KPresolve_symbolVKiI(&KJcall_in_);
    if (T0 != &KJcall_in_) {
      primitive_repeated_slot_value_setter(T0, &K27, 1, 3);
      primitive_repeated_slot_value_setter(T0, &K9, 1, 6);
      IKJcall_in_ = T0;
    }
  }
  {
    D T0;

    T0 = KPresolve_symbolVKiI(&KJprototype_);
    if (T0 != &KJprototype_) {
      IKJprototype_ = T0;
    }
  }
  {
    D T0;

    T0 = KPresolve_symbolVKiI(&KJoutputter_);
    if (T0 != &KJoutputter_) {
      primitive_repeated_slot_value_setter(T0, &K27, 1, 0);
      primitive_repeated_slot_value_setter(T0, &K9, 1, 0);
    }
  }
  {
    D T0;

    T0 = KPresolve_symbolVKiI(&KJsection_);
    if (T0 != &KJsection_) {
      primitive_repeated_slot_value_setter(T0, &K27, 1, 1);
      primitive_repeated_slot_value_setter(T0, &K9, 1, 2);
    }
  }
  {
    D T0;

    T0 = KPresolve_symbolVKiI(&KJstatic_);
    if (T0 != &KJstatic_) {
      primitive_repeated_slot_value_setter(T0, &K27, 1, 4);
      primitive_repeated_slot_value_setter(T0, &K9, 1, 8);
    }
  }
  {
    D T0;

    T0 = KPresolve_symbolVKiI(&KJpublic_);
    if (T0 != &KJpublic_) {
      primitive_repeated_slot_value_setter(T0, &K27, 1, 5);
      primitive_repeated_slot_value_setter(T0, &K9, 1, 10);
    }
  }
  {
    D T0;

    T0 = KPresolve_symbolVKiI(&KJexport_);
    if (T0 != &KJexport_) {
      primitive_repeated_slot_value_setter(T0, &K27, 1, 6);
      primitive_repeated_slot_value_setter(T0, &K9, 1, 12);
    }
  }
  {
    D T0;

    T0 = KPresolve_symbolVKiI(&KJsource_locator_);
    if (T0 != &KJsource_locator_) {
      primitive_repeated_slot_value_setter(T0, &K27, 1, 7);
      primitive_repeated_slot_value_setter(T0, &K9, 1, 14);
    }
  }
  {
    D T0;

    T0 = KPresolve_symbolVKiI(&KJharp_debug_);
    if (T0 != &KJharp_debug_) {
      primitive_repeated_slot_value_setter(T0, &K27, 1, 8);
      primitive_repeated_slot_value_setter(T0, &K9, 1, 16);
    }
  }
  {
    D T0;

    T0 = KPresolve_symbolVKiI(&KJcheck_);
    if (T0 != &KJcheck_) {
      primitive_repeated_slot_value_setter(T0, &K27, 1, 9);
      primitive_repeated_slot_value_setter(T0, &K9, 1, 18);
    }
  }
  return;
}

/* USER INIT CODE */

void _Init_harp__X_harp_invoke_for_user () {
  return;
}


/* eof */
