#include "opendylan/run-time.h"

/* Generated by Open Dylan 2014.1 for x86_64-linux */

/* Typedefs for referenced classes */

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

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

typedef struct {
  dylan_value wrapper;
} _KLobjectGVKd;

typedef struct {
  dylan_value wrapper;
} _KLunboundGVKe;

typedef struct {
  dylan_value wrapper;
} _KLbooleanGVKd;

typedef struct {
  dylan_value wrapper;
  D raw_pointer_address_;
} _KLc_raw_signed_charTGVKc;

typedef struct {
  dylan_value wrapper;
  dylan_value instanceQ_iep_;
  dylan_value debug_name_;
  dylan_value class_implementation_class_;
  dylan_value class_subtype_bit_;
  dylan_value class_module_;
  dylan_value alignment_of_;
  dylan_value size_of_;
  dylan_value referenced_type_;
  dylan_value concrete_pointer_type_;
  dylan_value abstract_pointer_type_;
} _KLc_automatic_pointer_designator_classGVKi;

typedef struct {
  dylan_value wrapper;
} _KLc_raw_signed_charGVKc;

typedef struct {
  dylan_value wrapper;
  dylan_value instanceQ_iep_;
  dylan_value debug_name_;
  dylan_value class_implementation_class_;
  dylan_value class_subtype_bit_;
  dylan_value class_module_;
  dylan_value alignment_of_;
  dylan_value size_of_;
  dylan_value referenced_type_;
  dylan_value concrete_pointer_type_;
  dylan_value abstract_pointer_type_;
} _KLdesignator_classGVKc;

typedef struct {
  dylan_value wrapper;
  D raw_pointer_address_;
} _KLc_pointerGVKc;

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

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

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

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

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

#define  define__KLbyte_stringGVKd(nrepeated) \
  typedef struct { \
    dylan_value wrapper; \
    dylan_value size_; \
    char string_element_[nrepeated+1]; \
  } _KLbyte_stringGVKd_##nrepeated;
define__KLbyte_stringGVKd(13);
define__KLbyte_stringGVKd(20);
define__KLbyte_stringGVKd(5);
define__KLbyte_stringGVKd(21);
define__KLbyte_stringGVKd(19);

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

typedef struct {
  dylan_value wrapper;
  dylan_value properties_;
  dylan_value engine_node_callback_;
  dylan_value engine_node_entry_point_;
  dylan_value cache_header_engine_node_next_;
  dylan_value cache_header_engine_node_parent_;
} _KLsimple_typechecked_cache_header_engine_nodeGVKg;

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

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

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

#define  define__KLsimple_object_vectorGVKd(nrepeated) \
  typedef struct { \
    dylan_value wrapper; \
    dylan_value size_; \
    dylan_value vector_element_[nrepeated+1]; \
  } _KLsimple_object_vectorGVKd_##nrepeated;
define__KLsimple_object_vectorGVKd(2);
define__KLsimple_object_vectorGVKd(1);
define__KLsimple_object_vectorGVKd(3);
define__KLsimple_object_vectorGVKd(256);
define__KLsimple_object_vectorGVKd(0);

typedef struct {
  dylan_value wrapper;
  DWORD Pmachine_word_data_;
} _KLmachine_wordGVKe;

typedef struct {
  dylan_value wrapper;
  dylan_value instanceQ_iep_;
  dylan_value debug_name_;
  dylan_value class_implementation_class_;
  dylan_value class_subtype_bit_;
  dylan_value class_module_;
} _KLvalue_classGVKi;

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

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

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

typedef struct {
  dylan_value wrapper;
  dylan_value instanceQ_iep_;
  dylan_value union_type1_;
  dylan_value union_type2_;
} _KLunionGVKe;

typedef struct {
  dylan_value wrapper;
  dylan_value instanceQ_iep_;
  dylan_value singleton_object_;
} _KLsingletonGVKd;


/* 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 _KLc_automatic_pointer_designator_classGVKi KLc_raw_signed_charTGVKc;
extern _KLclassGVKd KLc_automatic_pointer_designator_classGVKi;
extern _KLmm_wrapperGVKi_0 KLc_automatic_pointer_designator_classGVKiW;
extern _KLmm_wrapperGVKi_1 KLc_raw_signed_charTGVKcW;
extern _KLdesignator_classGVKc KLc_raw_signed_charGVKc;
extern _KLclassGVKd KLdesignator_classGVKc;
extern _KLmm_wrapperGVKi_0 KLdesignator_classGVKcW;
extern _KLmm_wrapperGVKi_0 KLc_raw_signed_charGVKcW;
extern _KLdesignator_classGVKc KLc_pointerGVKc;
extern _KLmm_wrapperGVKi_1 KLc_pointerGVKcW;
dylan_value Kdefaulted_initialization_argumentsVKiI (dylan_value);
dylan_value Kconcatenate_2VKeMM1I (dylan_value, dylan_value);
extern _KLempty_listGVKd KPempty_listVKi;
extern _KLclassGVKd KLempty_listGVKd;
extern _KLmm_wrapperGVKi_0 KLempty_listGVKdW;
extern _KLkeyword_methodGVKe Kdefault_initializeVKi;
extern _KLfunction_classGVKi KLkeyword_methodGVKe;
extern _KLclassGVKd KLfunction_classGVKi;
extern _KLmm_wrapperGVKi_0 KLfunction_classGVKiW;
extern _KLmm_wrapperGVKi_0 KLkeyword_methodGVKeW;
extern _KLincremental_generic_functionGVKe KinitializeVKd;
extern _KLfunction_classGVKi KLincremental_generic_functionGVKe;
extern _KLmm_wrapperGVKi_0 KLincremental_generic_functionGVKeW;
extern _KLclassGVKd KLsymbolGVKd;
extern _KLmm_wrapperGVKi_0 KLsymbolGVKdW;
extern _KLclassGVKd KLbyte_stringGVKd;
extern _KLmm_wrapperGVKi_0 KLbyte_stringGVKdW;
dylan_value Kfind_or_create_class_slot_storageVKiI (dylan_value, dylan_value, dylan_value);
dylan_value Kallocation_attributesVKiMM0I (dylan_value, dylan_value);
extern _KLsealed_generic_functionGVKe Ksystem_allocate_repeated_instanceVKe;
extern _KLclassGVKd KLsealed_generic_functionGVKe;
extern _KLmm_wrapperGVKi_0 KLsealed_generic_functionGVKeW;
extern _KLclassGVKd KLsimple_typechecked_cache_header_engine_nodeGVKg;
extern _KLmm_wrapperGVKi_0 KLsimple_typechecked_cache_header_engine_nodeGVKgW;
extern _KLabsent_engine_nodeGVKg RSINGULAR_Labsent_engine_nodeG;
extern _KLclassGVKd KLabsent_engine_nodeGVKg;
extern _KLmm_wrapperGVKi_0 KLabsent_engine_nodeGVKgW;
extern _KLfunction_classGVKi KLsimple_methodGVKe;
extern _KLmm_wrapperGVKi_0 KLsimple_methodGVKeW;
extern _KLclassGVKd KLsignatureAvaluesGVKi;
extern _KLmm_wrapperGVKi_0 KLsignatureAvaluesGVKiW;
extern _KLclassGVKd KLsimple_object_vectorGVKd;
extern _KLmm_wrapperGVKi_0 KLsimple_object_vectorGVKdW;
extern _KLvalue_classGVKi KLmachine_wordGVKe;
extern _KLclassGVKd KLvalue_classGVKi;
extern _KLmm_wrapperGVKi_0 KLvalue_classGVKiW;
extern _KLmm_wrapperGVKi_1 KLmachine_wordGVKeW;
extern _KLmoduleGVKe Kdylan_c_ffi_moduleYdylan_userVdylan;
extern _KLclassGVKd KLmoduleGVKe;
extern _KLmm_wrapperGVKi_0 KLmoduleGVKeW;
extern _KLsimple_object_vectorGVKd_0 KPempty_vectorVKi;
extern _KLclassGVKd KLkeyword_signatureAvaluesGVKi;
extern _KLmm_wrapperGVKi_0 KLkeyword_signatureAvaluesGVKiW;
extern _KLsimple_object_vectorGVKd_256 KDsignature_LobjectG_typesVKi;
extern _KLclassGVKd KLkeyword_signatureGVKe;
extern _KLmm_wrapperGVKi_0 KLkeyword_signatureGVKeW;
extern _KLclassGVKd KLunionGVKe;
extern _KLmm_wrapperGVKi_0 KLunionGVKeW;
dylan_value Kunion_instanceQVKiI (dylan_value, dylan_value);
extern _KLclassGVKd KLsingletonGVKd;
extern _KLmm_wrapperGVKi_0 KLsingletonGVKdW;
dylan_value Ksingleton_pointer_idQ_instanceQVKiI (dylan_value, dylan_value);

/* Defined object declarations */

extern _KLsimple_methodGVKe Kmake_c_pointer_internalVKc;
dylan_value Kmake_c_pointer_internalVKcI (dylan_value, dylan_value, dylan_value);
dylan_value Kallocate_c_pointer_instanceVKiI (dylan_value, dylan_value);
static _KLsymbolGVKd KJraw_pointer_address_;
static _KLbyte_stringGVKd_19 K4;
static _KLsimple_typechecked_cache_header_engine_nodeGVKg K5;
static _KLsignatureAvaluesGVKi K6;
static _KLsimple_object_vectorGVKd_3 K7;
static _KLsimple_object_vectorGVKd_1 K8;
extern _KLincremental_generic_functionGVKe Kpointer_value_addressVKc;
static _KLkeyword_signatureAvaluesGVKi K10;
static _KLbyte_stringGVKd_21 K11;
static _KLsimple_object_vectorGVKd_1 K12;
static _KLsymbolGVKd KJindex_;
static _KLbyte_stringGVKd_5 K14;
extern _KLincremental_generic_functionGVKe Kpointer_value_setterVKc;
static _KLkeyword_signatureGVKe K16;
static _KLbyte_stringGVKd_20 K17;
static _KLsimple_object_vectorGVKd_2 K18;
extern _KLincremental_generic_functionGVKe Kpointer_valueVKc;
static _KLkeyword_signatureGVKe K20;
static _KLbyte_stringGVKd_13 K21;
extern _KLsimple_methodGVKe Kconcrete_classVKcMM0;
dylan_value Kconcrete_classVKcMM0I (dylan_value class_);
static _KLsignatureAvaluesGVKi K24;
static _KLsimple_object_vectorGVKd_1 K25;
static _KLsimple_object_vectorGVKd_1 K26;
static _KLunionGVKe K27;
static _KLsingletonGVKd K28;
extern _KLsimple_methodGVKe Kconcrete_class_setterVKcMM0;
dylan_value Kconcrete_class_setterVKcMM0I (dylan_value cclass_, dylan_value class_);
static _KLsignatureAvaluesGVKi K31;
static _KLsimple_object_vectorGVKd_2 K32;

/* Indirection variables */

static dylan_value IKJraw_pointer_address_ = &KJraw_pointer_address_;
static dylan_value IKJindex_ = &KJindex_;

/* Variables */

dylan_value concrete_class_setterVKc = &Kconcrete_class_setterVKcMM0;
dylan_value concrete_classVKc = &Kconcrete_classVKcMM0;
dylan_value pointer_valueVKc = &Kpointer_valueVKc;
dylan_value pointer_value_setterVKc = &Kpointer_value_setterVKc;
dylan_value pointer_value_addressVKc = &Kpointer_value_addressVKc;
dylan_value make_c_pointer_internalVKc = &Kmake_c_pointer_internalVKc;
dylan_value Lc_raw_charGVKc = &KLc_raw_signed_charGVKc;
dylan_value Lc_raw_charTGVKc = &KLc_raw_signed_charTGVKc;

/* Objects */

_KLsimple_methodGVKe Kmake_c_pointer_internalVKc = {
  &KLsimple_methodGVKeW /* wrapper */,
  &xep_3,
  &K6,
  &Kmake_c_pointer_internalVKcI
};

static _KLsymbolGVKd KJraw_pointer_address_ = {
  &KLsymbolGVKdW /* wrapper */,
  &K4
};

static _KLbyte_stringGVKd_19 K4 = {
  &KLbyte_stringGVKdW /* wrapper */,
  (dylan_value) 77,
  "raw-pointer-address"
};

static _KLsimple_typechecked_cache_header_engine_nodeGVKg K5 = {
  &KLsimple_typechecked_cache_header_engine_nodeGVKgW /* wrapper */,
  (dylan_value) 524345,
  &KPfalseVKi,
  &cache_header_engine_5,
  &RSINGULAR_Labsent_engine_nodeG,
  &Ksystem_allocate_repeated_instanceVKe
};

static _KLsignatureAvaluesGVKi K6 = {
  &KLsignatureAvaluesGVKiW /* wrapper */,
  (dylan_value) 33555469,
  &K7,
  &K8
};

static _KLsimple_object_vectorGVKd_3 K7 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (dylan_value) 13,
  &KLdesignator_classGVKc,
  &KLmachine_wordGVKe,
  &KLsimple_object_vectorGVKd
};

static _KLsimple_object_vectorGVKd_1 K8 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (dylan_value) 5,
  &KLc_pointerGVKc
};

_KLincremental_generic_functionGVKe Kpointer_value_addressVKc = {
  &KLincremental_generic_functionGVKeW /* wrapper */,
  &gf_optional_xep_1,
  &K10,
  &KPfalseVKi,
  &K11,
  &KPempty_listVKi,
  &RSINGULAR_Labsent_engine_nodeG,
  &Kdylan_c_ffi_moduleYdylan_userVdylan,
  &KPfalseVKi,
  &KPempty_vectorVKi,
  (dylan_value) 25
};

static _KLkeyword_signatureAvaluesGVKi K10 = {
  &KLkeyword_signatureAvaluesGVKiW /* wrapper */,
  (dylan_value) 33817605,
  &K8,
  &K12,
  &KDsignature_LobjectG_typesVKi,
  &K8
};

static _KLbyte_stringGVKd_21 K11 = {
  &KLbyte_stringGVKdW /* wrapper */,
  (dylan_value) 85,
  "pointer-value-address"
};

static _KLsimple_object_vectorGVKd_1 K12 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (dylan_value) 5,
  &KJindex_
};

static _KLsymbolGVKd KJindex_ = {
  &KLsymbolGVKdW /* wrapper */,
  &K14
};

static _KLbyte_stringGVKd_5 K14 = {
  &KLbyte_stringGVKdW /* wrapper */,
  (dylan_value) 21,
  "index"
};

_KLincremental_generic_functionGVKe Kpointer_value_setterVKc = {
  &KLincremental_generic_functionGVKeW /* wrapper */,
  &gf_optional_xep_2,
  &K16,
  &KPfalseVKi,
  &K17,
  &KPempty_listVKi,
  &RSINGULAR_Labsent_engine_nodeG,
  &Kdylan_c_ffi_moduleYdylan_userVdylan,
  &KPfalseVKi,
  &KPempty_vectorVKi,
  (dylan_value) 25
};

static _KLkeyword_signatureGVKe K16 = {
  &KLkeyword_signatureGVKeW /* wrapper */,
  (dylan_value) 42206217,
  &K18,
  &K12,
  &KDsignature_LobjectG_typesVKi
};

static _KLbyte_stringGVKd_20 K17 = {
  &KLbyte_stringGVKdW /* wrapper */,
  (dylan_value) 81,
  "pointer-value-setter"
};

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

_KLincremental_generic_functionGVKe Kpointer_valueVKc = {
  &KLincremental_generic_functionGVKeW /* wrapper */,
  &gf_optional_xep_1,
  &K20,
  &KPfalseVKi,
  &K21,
  &KPempty_listVKi,
  &RSINGULAR_Labsent_engine_nodeG,
  &Kdylan_c_ffi_moduleYdylan_userVdylan,
  &KPfalseVKi,
  &KPempty_vectorVKi,
  (dylan_value) 25
};

static _KLkeyword_signatureGVKe K20 = {
  &KLkeyword_signatureGVKeW /* wrapper */,
  (dylan_value) 42206213,
  &K8,
  &K12,
  &KDsignature_LobjectG_typesVKi
};

static _KLbyte_stringGVKd_13 K21 = {
  &KLbyte_stringGVKdW /* wrapper */,
  (dylan_value) 53,
  "pointer-value"
};

_KLsimple_methodGVKe Kconcrete_classVKcMM0 = {
  &KLsimple_methodGVKeW /* wrapper */,
  &xep_1,
  &K24,
  &Kconcrete_classVKcMM0I
};

static _KLsignatureAvaluesGVKi K24 = {
  &KLsignatureAvaluesGVKiW /* wrapper */,
  (dylan_value) 33555461,
  &K25,
  &K26
};

static _KLsimple_object_vectorGVKd_1 K25 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (dylan_value) 5,
  &KLdesignator_classGVKc
};

static _KLsimple_object_vectorGVKd_1 K26 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (dylan_value) 5,
  &K27
};

static _KLunionGVKe K27 = {
  &KLunionGVKeW /* wrapper */,
  &Kunion_instanceQVKiI,
  &K28,
  &KLdesignator_classGVKc
};

static _KLsingletonGVKd K28 = {
  &KLsingletonGVKdW /* wrapper */,
  &Ksingleton_pointer_idQ_instanceQVKiI,
  &KPfalseVKi
};

_KLsimple_methodGVKe Kconcrete_class_setterVKcMM0 = {
  &KLsimple_methodGVKeW /* wrapper */,
  &xep_2,
  &K31,
  &Kconcrete_class_setterVKcMM0I
};

static _KLsignatureAvaluesGVKi K31 = {
  &KLsignatureAvaluesGVKiW /* wrapper */,
  (dylan_value) 33555465,
  &K32,
  &K26
};

static _KLsimple_object_vectorGVKd_2 K32 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (dylan_value) 9,
  &K27,
  &KLdesignator_classGVKc
};

/* Code */

dylan_value Kmake_c_pointer_internalVKcI (dylan_value class_, dylan_value address_, dylan_value init_args_) {
  dylan_value T3;
  dylan_value instance_;
  DWORD raw_address_;
  dylan_value T6;
  D T7;
  dylan_value T8_0;
  dylan_value init_argsF9;

  // /home/bruce/Development/dylan/opendylan/sources/dylan/dylan-c-ffi-stubs.dylan:57
  // /home/bruce/Development/dylan/opendylan/sources/dylan/dylan-c-ffi-stubs.dylan:62
  T3 = Kallocate_c_pointer_instanceVKiI(class_, init_args_);
  // /home/bruce/Development/dylan/opendylan/sources/dylan/dylan-c-ffi-stubs.dylan:62
  instance_ = T3;
  // /home/bruce/Development/dylan/opendylan/sources/dylan/dylan-c-ffi-stubs.dylan:63
  raw_address_ = primitive_unwrap_machine_word(address_);
  // /home/bruce/Development/dylan/opendylan/sources/dylan/dylan-c-ffi-stubs.dylan:65
  T6 = Kdefaulted_initialization_argumentsVKiI(class_);
  // /home/bruce/Development/dylan/opendylan/sources/dylan/dylan-c-ffi-stubs.dylan:65
  init_argsF9 = Kconcatenate_2VKeMM1I(init_args_, T6);
  // /home/bruce/Development/dylan/opendylan/sources/dylan/dylan-c-ffi-stubs.dylan:67
  T7 = primitive_cast_raw_as_pointer(raw_address_);
  // /home/bruce/Development/dylan/opendylan/sources/dylan/dylan-c-ffi-stubs.dylan:66
  APPLY5(&Kdefault_initializeVKi, class_, instance_, IKJraw_pointer_address_, T7, init_argsF9);
  // /home/bruce/Development/dylan/opendylan/sources/dylan/dylan-c-ffi-stubs.dylan:69
  APPLY2(&KinitializeVKd, instance_, init_argsF9);
  // /home/bruce/Development/dylan/opendylan/sources/dylan/dylan-c-ffi-stubs.dylan:70
  T8_0 = instance_;
  // /home/bruce/Development/dylan/opendylan/sources/dylan/dylan-c-ffi-stubs.dylan:57
  MV_SET_COUNT(1);
  return(T8_0);
}

dylan_value Kallocate_c_pointer_instanceVKiI (dylan_value class_, dylan_value init_args_) {
  DWORD i_T, i_;
  dylan_value T3_0;
  dylan_value T3_1;
  dylan_value T3_2;
  dylan_value T3_3;
  dylan_value T3_4;
  dylan_value repeated_slotQ_;
  dylan_value repeated_slot_type_;
  dylan_value repeated_size_;
  dylan_value fillF7;
  dylan_value T8_0;
  dylan_value T9;
  dylan_value T10;
  dylan_value T11;
  DWORD T12;
  dylan_value T13;
  dylan_value T14;
  DWORD T15;
  dylan_value T16_0;
  dylan_value T17;
  dylan_value T18;
  dylan_value T19;
  DWORD T20;
  DWORD T21;
  DWORD T22;
  DWORD T23;
  dylan_value T24_0;
  dylan_value T25;
  dylan_value T26_0;
  dylan_value T27;
  DWORD T28;

  // /home/bruce/Development/dylan/opendylan/sources/dylan/dylan-c-ffi-stubs.dylan:76
  // /home/bruce/Development/dylan/opendylan/sources/dylan/dylan-c-ffi-stubs.dylan:78
  T9 = SLOT_VALUE(class_, 2);
  // /home/bruce/Development/dylan/opendylan/sources/dylan/dylan-c-ffi-stubs.dylan:84
  T10 = SLOT_VALUE_INITD(T9, 20);
  // /home/bruce/Development/dylan/opendylan/sources/dylan/dylan-c-ffi-stubs.dylan:84
  T11 = SLOT_VALUE_INITD(T10, 0);
  // /home/bruce/Development/dylan/opendylan/sources/dylan/dylan-c-ffi-stubs.dylan:84
  T12 = primitive_cast_integer_as_raw(T11);
  // /home/bruce/Development/dylan/opendylan/sources/dylan/dylan-c-ffi-stubs.dylan:84
  i_T = 1;
L0: ;
    // /home/bruce/Development/dylan/opendylan/sources/dylan/dylan-c-ffi-stubs.dylan:84
    i_ = i_T;
    // /home/bruce/Development/dylan/opendylan/sources/dylan/dylan-c-ffi-stubs.dylan:84
    T14 = primitive_cast_raw_as_integer(i_);
    // /home/bruce/Development/dylan/opendylan/sources/dylan/dylan-c-ffi-stubs.dylan:84
    T13 = primitive_machine_word_less_thanQ(i_,T12);
    // /home/bruce/Development/dylan/opendylan/sources/dylan/dylan-c-ffi-stubs.dylan:84
    if (T13 != &KPfalseVKi) {
      // /home/bruce/Development/dylan/opendylan/sources/dylan/dylan-c-ffi-stubs.dylan:85
      Kfind_or_create_class_slot_storageVKiI(T9, T14, &KPtrueVKi);
      // /home/bruce/Development/dylan/opendylan/sources/dylan/dylan-c-ffi-stubs.dylan:84
      T15 = primitive_machine_word_add_signal_overflow(i_,4);
      // /home/bruce/Development/dylan/opendylan/sources/dylan/dylan-c-ffi-stubs.dylan:84
      i_T = T15;
      goto L0;
    }
    // /home/bruce/Development/dylan/opendylan/sources/dylan/dylan-c-ffi-stubs.dylan:84
    // /home/bruce/Development/dylan/opendylan/sources/dylan/dylan-c-ffi-stubs.dylan:84
  // /home/bruce/Development/dylan/opendylan/sources/dylan/dylan-c-ffi-stubs.dylan:90
  T3_0 = Kallocation_attributesVKiMM0I(T9, init_args_);
  T3_1 = MV_GET_ELT(1);
  T3_2 = MV_GET_ELT(2);
  T3_3 = MV_GET_ELT(3);
  T3_4 = MV_GET_ELT(4);
  // /home/bruce/Development/dylan/opendylan/sources/dylan/dylan-c-ffi-stubs.dylan:84
  repeated_slotQ_ = T3_1;
  // /home/bruce/Development/dylan/opendylan/sources/dylan/dylan-c-ffi-stubs.dylan:84
  repeated_slot_type_ = T3_2;
  // /home/bruce/Development/dylan/opendylan/sources/dylan/dylan-c-ffi-stubs.dylan:84
  repeated_size_ = T3_3;
  // /home/bruce/Development/dylan/opendylan/sources/dylan/dylan-c-ffi-stubs.dylan:84
  fillF7 = T3_4;
  // /home/bruce/Development/dylan/opendylan/sources/dylan/dylan-c-ffi-stubs.dylan:92
  if (repeated_slotQ_ != &KPfalseVKi) {
    // /home/bruce/Development/dylan/opendylan/sources/dylan/dylan-c-ffi-stubs.dylan:93
    ENGINE_NODE_CALL_PROLOG(&Ksystem_allocate_repeated_instanceVKe, &K5, 5);
    T16_0 = ENGINE_NODE_CALL5(&K5, class_, repeated_slot_type_, &KPunboundVKi, repeated_size_, fillF7);
    T8_0 = T16_0;
  } else {
    // /home/bruce/Development/dylan/opendylan/sources/dylan/dylan-c-ffi-stubs.dylan:96
    T19 = SLOT_VALUE_INITD(T9, 0);
    // /home/bruce/Development/dylan/opendylan/sources/dylan/dylan-c-ffi-stubs.dylan:96
    T20 = primitive_cast_integer_as_raw(T19);
    // /home/bruce/Development/dylan/opendylan/sources/dylan/dylan-c-ffi-stubs.dylan:96
    T21 = primitive_machine_word_logand(T20,262140);
    // /home/bruce/Development/dylan/opendylan/sources/dylan/dylan-c-ffi-stubs.dylan:96
    T22 = primitive_machine_word_add_signal_overflow(5,T21);
    // /home/bruce/Development/dylan/opendylan/sources/dylan/dylan-c-ffi-stubs.dylan:96
    T23 = primitive_machine_word_shift_right(T22,2);
    // /home/bruce/Development/dylan/opendylan/sources/dylan/dylan-c-ffi-stubs.dylan:96
    T25 = SLOT_VALUE_INITD(T9, 2);
    // /home/bruce/Development/dylan/opendylan/sources/dylan/dylan-c-ffi-stubs.dylan:96
    T26_0 = T25;
    // /home/bruce/Development/dylan/opendylan/sources/dylan/dylan-c-ffi-stubs.dylan:96
    T24_0 = T26_0;
    // /home/bruce/Development/dylan/opendylan/sources/dylan/dylan-c-ffi-stubs.dylan:96
    T27 = T24_0;
    // /home/bruce/Development/dylan/opendylan/sources/dylan/dylan-c-ffi-stubs.dylan:96
    T28 = primitive_machine_word_shift_right(T21,2);
    // /home/bruce/Development/dylan/opendylan/sources/dylan/dylan-c-ffi-stubs.dylan:96
    T17 = primitive_object_allocate_filled(T23,T27,T28,&KPunboundVKi,0,0,&KPunboundVKi);
    // /home/bruce/Development/dylan/opendylan/sources/dylan/dylan-c-ffi-stubs.dylan:96
    T18 = T17;
    MV_SET_ELT(0, T17);
    MV_SET_COUNT(1);
    T8_0 = T18;
  }
  // /home/bruce/Development/dylan/opendylan/sources/dylan/dylan-c-ffi-stubs.dylan:92
  // /home/bruce/Development/dylan/opendylan/sources/dylan/dylan-c-ffi-stubs.dylan:76
  MV_SET_COUNT(1);
  return(T8_0);
}

dylan_value Kconcrete_classVKcMM0I (dylan_value class_) {
  dylan_value T2_0;

  // /home/bruce/Development/dylan/opendylan/sources/dylan/dylan-c-ffi-stubs.dylan:106
  // /home/bruce/Development/dylan/opendylan/sources/dylan/dylan-c-ffi-stubs.dylan:109
  T2_0 = class_;
  // /home/bruce/Development/dylan/opendylan/sources/dylan/dylan-c-ffi-stubs.dylan:106
  MV_SET_COUNT(1);
  return(T2_0);
}

dylan_value Kconcrete_class_setterVKcMM0I (dylan_value cclass_, dylan_value class_) {
  dylan_value T3_0;

  // /home/bruce/Development/dylan/opendylan/sources/dylan/dylan-c-ffi-stubs.dylan:112
  // /home/bruce/Development/dylan/opendylan/sources/dylan/dylan-c-ffi-stubs.dylan:115
  T3_0 = cclass_;
  // /home/bruce/Development/dylan/opendylan/sources/dylan/dylan-c-ffi-stubs.dylan:112
  MV_SET_COUNT(1);
  return(T3_0);
}


/* SYSTEM INIT CODE */

void _Init_dylan__X_dylan_c_ffi_stubs_for_system () {
  extern dylan_value KPresolve_symbolVKiI(dylan_value);
  {
    dylan_value T0;

    T0 = KPresolve_symbolVKiI(&KJraw_pointer_address_);
    if (T0 != &KJraw_pointer_address_) {
      IKJraw_pointer_address_ = T0;
    }
  }
  {
    dylan_value T0;

    T0 = KPresolve_symbolVKiI(&KJindex_);
    if (T0 != &KJindex_) {
      primitive_repeated_slot_value_setter(T0, &K12, 1, 0);
    }
  }
  return;
}

/* USER INIT CODE */

void _Init_dylan__X_dylan_c_ffi_stubs_for_user () {
  return;
}


/* eof */
