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

#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(16);
define__KLsimple_object_vectorGVKd(2);
define__KLsimple_object_vectorGVKd(0);

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;


/* 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 _KLincremental_generic_functionGVKe KsizeVKd;
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 KLintegerGVKd;
extern _KLmm_wrapperGVKi_0 KLintegerGVKdW;
extern _KLincremental_generic_functionGVKe KEVKd;
extern _KLincremental_generic_functionGVKe KelementVKd;
extern _KLsimple_object_vectorGVKd_0 KPempty_vectorVKi;
extern _KLclassGVKd KLsimple_object_vectorGVKd;
extern _KLmm_wrapperGVKi_0 KLsimple_object_vectorGVKdW;
extern _KLfunction_classGVKi KLsimple_methodGVKe;
extern _KLmm_wrapperGVKi_0 KLsimple_methodGVKeW;
extern _KLclassGVKd KLsignatureAvaluesGVKi;
extern _KLmm_wrapperGVKi_0 KLsignatureAvaluesGVKiW;
extern _KLsimple_object_vectorGVKd_2 KDsignature_LvectorG_typesVKi;
extern _KLsimple_object_vectorGVKd_16 KDsignature_LbooleanG_typesVKi;

/* Defined object declarations */

extern _KLsimple_methodGVKe KEVKdMM35;
dylan_value KEVKdMM35I (dylan_value, dylan_value);
static _KLsignatureAvaluesGVKi K2;

/* Indirection variables */


/* Variables */


/* Objects */

_KLsimple_methodGVKe KEVKdMM35 = {
  &KLsimple_methodGVKeW /* wrapper */,
  &xep_2,
  &K2,
  &KEVKdMM35I
};

static _KLsignatureAvaluesGVKi K2 = {
  &KLsignatureAvaluesGVKiW /* wrapper */,
  (dylan_value) 33555465,
  &KDsignature_LvectorG_typesVKi,
  &KDsignature_LbooleanG_typesVKi
};

/* Code */

dylan_value KEVKdMM35I (dylan_value x_, dylan_value y_) {
  dylan_value T3;
  dylan_value x_size_;
  dylan_value T5;
  dylan_value T6;
  dylan_value T7_0;
  dylan_value T8_0;
  dylan_value T9;
  dylan_value T10;
  dylan_value T11;
  dylan_value T12;
  dylan_value T13;
  dylan_value T14;
  dylan_value T15;
  DWORD T16;
  dylan_value T17;
  DWORD T18;
  dylan_value T19;
  DWORD iF20T, iF20;
  dylan_value T21;

  // /home/bruce/Development/dylan/opendylan/sources/dylan/speed.dylan:8
  // /home/bruce/Development/dylan/opendylan/sources/dylan/speed.dylan:9
  CONGRUENT_CALL_PROLOG(&KsizeVKd, 1);
  T3 = CONGRUENT_CALL1(x_);
  // /home/bruce/Development/dylan/opendylan/sources/dylan/speed.dylan:9
  x_size_ = T3;
  // /home/bruce/Development/dylan/opendylan/sources/dylan/speed.dylan:10
  CONGRUENT_CALL_PROLOG(&KsizeVKd, 1);
  T5 = CONGRUENT_CALL1(y_);
  // /home/bruce/Development/dylan/opendylan/sources/dylan/speed.dylan:10
  CONGRUENT_CALL_PROLOG(&KEVKd, 2);
  T6 = CONGRUENT_CALL2(x_size_, T5);
  // /home/bruce/Development/dylan/opendylan/sources/dylan/speed.dylan:10
  if (T6 != &KPfalseVKi) {
    // /home/bruce/Development/dylan/opendylan/sources/dylan/speed.dylan:13
    iF20T = 1;
  L0: ;
      // /home/bruce/Development/dylan/opendylan/sources/dylan/speed.dylan:13
      iF20 = iF20T;
      // /home/bruce/Development/dylan/opendylan/sources/dylan/speed.dylan:12
      T21 = primitive_cast_raw_as_integer(iF20);
      // /home/bruce/Development/dylan/opendylan/sources/dylan/speed.dylan:12
      T16 = primitive_cast_integer_as_raw(x_size_);
      // /home/bruce/Development/dylan/opendylan/sources/dylan/speed.dylan:12
      T17 = primitive_machine_word_less_thanQ(iF20,T16);
      // /home/bruce/Development/dylan/opendylan/sources/dylan/speed.dylan:12
      if (T17 != &KPfalseVKi) {
        // /home/bruce/Development/dylan/opendylan/sources/dylan/speed.dylan:13
        CONGRUENT_CALL_PROLOG(&KelementVKd, 3);
        T9 = CONGRUENT_CALL3(x_, T21, &KPempty_vectorVKi);
        // /home/bruce/Development/dylan/opendylan/sources/dylan/speed.dylan:13
        CONGRUENT_CALL_PROLOG(&KelementVKd, 3);
        T10 = CONGRUENT_CALL3(y_, T21, &KPempty_vectorVKi);
        // /home/bruce/Development/dylan/opendylan/sources/dylan/speed.dylan:13
        CONGRUENT_CALL_PROLOG(&KEVKd, 2);
        T11 = CONGRUENT_CALL2(T9, T10);
        // /home/bruce/Development/dylan/opendylan/sources/dylan/speed.dylan:13
        if (T11 != &KPfalseVKi) {
          // /home/bruce/Development/dylan/opendylan/sources/dylan/speed.dylan:13
          T18 = primitive_machine_word_add_signal_overflow(iF20,4);
          // /home/bruce/Development/dylan/opendylan/sources/dylan/speed.dylan:13
          iF20T = T18;
          goto L0;
          T13 = T19;
        } else {
          // /home/bruce/Development/dylan/opendylan/sources/dylan/speed.dylan:13
          T12 = &KPfalseVKi;
          MV_SET_ELT(0, &KPfalseVKi);
          MV_SET_COUNT(1);
          T13 = T12;
        }
        // /home/bruce/Development/dylan/opendylan/sources/dylan/speed.dylan:13
        T15 = T13;
      } else {
        // /home/bruce/Development/dylan/opendylan/sources/dylan/speed.dylan:15
        T14 = &KPtrueVKi;
        MV_SET_ELT(0, &KPtrueVKi);
        MV_SET_COUNT(1);
        T15 = T14;
      }
      // /home/bruce/Development/dylan/opendylan/sources/dylan/speed.dylan:12
      // /home/bruce/Development/dylan/opendylan/sources/dylan/speed.dylan:13
    T8_0 = T15;
  } else {
    // /home/bruce/Development/dylan/opendylan/sources/dylan/speed.dylan:10
    T7_0 = &KPfalseVKi;
    T8_0 = T7_0;
  }
  // /home/bruce/Development/dylan/opendylan/sources/dylan/speed.dylan:10
  // /home/bruce/Development/dylan/opendylan/sources/dylan/speed.dylan:8
  MV_SET_COUNT(1);
  return(T8_0);
}


/* SYSTEM INIT CODE */

void _Init_dylan__X_speed_for_system () {
  extern dylan_value KPresolve_symbolVKiI(dylan_value);
  return;
}

/* USER INIT CODE */

void _Init_dylan__X_speed_for_user () {
  return;
}


/* eof */
