ats_void_type
loop_6 (ats_int_type arg0, ats_ptr_type arg1, ats_int_type arg2) {
/* local vardec */
// ATSlocal_void (tmp30) ;
ATSlocal (ats_bool_type, tmp31) ;
ATSlocal (ats_int_type, tmp32) ;
ATSlocal (ats_int_type, tmp33) ;
ATSlocal (ats_int_type, tmp34) ;
// ATSlocal_void (tmp35) ;
ATSlocal (ats_ptr_type, tmp48) ;
ATSlocal (ats_int_type, tmp49) ;
__ats_lab_loop_6:
tmp32 = atspre_isub (arg0, arg2) ;
tmp31 = atspre_igte (tmp32, 2) ;
if (tmp31) {
tmp34 = atspre_isub (arg0, arg2) ;
tmp33 = atslib_randint (tmp34) ;
/* tmp35 = */ array_ptr_exch__intsz_01527_ats_int_type (arg1, 0, tmp33) ;
tmp48 = atspre_padd_size (arg1, sizeof(ats_int_type)) ;
tmp49 = atspre_iadd (arg2, 1) ;
arg0 = arg0 ;
arg1 = tmp48 ;
arg2 = tmp49 ;
goto __ats_lab_loop_6 ; // tail call
} else {
/* empty */
} /* end of [if] */
return /* (tmp30) */ ;
} /* end of [loop_6] */
ats_int_type
markstack_pop (ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2, ats_ref_type arg3) {
/* local vardec */
ATSlocal (ats_int_type, tmp5) ;
ATSlocal (ats_int_type, tmp6) ;
ATSlocal (ats_bool_type, tmp7) ;
// ATSlocal_void (tmp8) ;
ATSlocal (ats_ptr_type, tmp9) ;
ATSlocal (ats_bool_type, tmp10) ;
ATSlocal (ats_int_type, tmp11) ;
// ATSlocal_void (tmp12) ;
__ats_lab_markstack_pop:
#line 68 "gcats1_marking.dats"
tmp6 = atspre_isub (ats_ptrget_mac(ats_int_type, arg1), 1) ;
#line 70 "gcats1_marking.dats"
tmp7 = atspre_igte (tmp6, 0) ;
#line 70 "gcats1_marking.dats"
if (tmp7) {
#line 71 "gcats1_marking.dats"
/* tmp8 = */ markstackpagelst_entry_get (ats_ptrget_mac(ats_ptr_type, arg0), tmp6, arg2, arg3) ;
#line 73 "gcats1_marking.dats"
ats_ptrget_mac(ats_int_type, arg1) = tmp6 ;
#line 73 "gcats1_marking.dats"
tmp5 = 0 ;
} else {
#line 75 "gcats1_marking.dats"
tmp9 = markstackpagelst_prev_get (ats_ptrget_mac(ats_ptr_type, arg0)) ;
#line 77 "gcats1_marking.dats"
tmp10 = markstackpagelst_is_cons (tmp9) ;
#line 77 "gcats1_marking.dats"
if (tmp10) {
#line 78 "gcats1_marking.dats"
ats_ptrget_mac(ats_ptr_type, arg0) = tmp9 ;
#line 79 "gcats1_marking.dats"
tmp11 = atspre_isub (4000, 1) ;
#line 80 "gcats1_marking.dats"
/* tmp12 = */ markstackpagelst_entry_get (ats_ptrget_mac(ats_ptr_type, arg0), tmp11, arg2, arg3) ;
#line 82 "gcats1_marking.dats"
ats_ptrget_mac(ats_int_type, arg1) = tmp11 ;
#line 82 "gcats1_marking.dats"
tmp5 = 0 ;
} else {
#line 84 "gcats1_marking.dats"
ats_ptrget_mac(ats_ptr_type, arg2) = atspre_null_ptr ;
#line 84 "gcats1_marking.dats"
ats_ptrget_mac(ats_int_type, arg3) = 0 ;
#line 84 "gcats1_marking.dats"
tmp5 = 1 ;
} /* end of [if] */
} /* end of [if] */
return (tmp5) ;
} /* end of [markstack_pop] */
ats_void_type
aux_2 (ats_ptr_type arg0, ats_int_type arg1, ats_ptr_type arg2) {
/* local vardec */
// ATSlocal_void (tmp9) ;
ATSlocal (ats_bool_type, tmp10) ;
ATSlocal (ats_ptr_type, tmp11) ;
ATSlocal (ats_int_type, tmp12) ;
__ats_lab_aux_2:
tmp10 = atspre_igt (arg1, 0) ;
if (tmp10) {
ats_ptrget_mac(ats_ptr_type, arg0) = arg2 ;
tmp11 = atspre_padd_size (arg0, sizeof(ats_ptr_type)) ;
tmp12 = atspre_isub (arg1, 1) ;
arg0 = tmp11 ;
arg1 = tmp12 ;
arg2 = arg2 ;
goto __ats_lab_aux_2 ; // tail call
} else {
/* empty */
} /* end of [if] */
return /* (tmp9) */ ;
} /* end of [aux_2] */
ats_bool_type
insert_35 (ats_clo_ref_type env0, ats_ref_type arg0, ats_int_type arg1) {
/* local vardec */
ATSlocal (ats_bool_type, tmp59) ;
ATSlocal (ats_ptr_type, tmp60) ;
ATSlocal (ats_ptr_type, tmp61) ;
ATSlocal (ats_ptr_type, tmp62) ;
ATSlocal (ats_ptr_type, tmp63) ;
ATSlocal (ats_int_type, tmp64) ;
ATSlocal (ats_int_type, tmp65) ;
ATSlocal (ats_bool_type, tmp66) ;
ATSlocal (ats_bool_type, tmp67) ;
ATSlocal (ats_int_type, tmp68) ;
ATSlocal (ats_ptr_type, tmp71) ;
ATSlocal (ats_int_type, tmp72) ;
ATSlocal (ats_ptr_type, tmp73) ;
ATSlocal (ats_bool_type, tmp74) ;
ATSlocal (ats_int_type, tmp75) ;
ATSlocal (ats_int_type, tmp76) ;
ATSlocal (ats_int_type, tmp77) ;
ATSlocal (ats_ptr_type, tmp78) ;
ATSlocal (ats_bool_type, tmp108) ;
ATSlocal (ats_bool_type, tmp109) ;
ATSlocal (ats_int_type, tmp110) ;
ATSlocal (ats_ptr_type, tmp111) ;
ATSlocal (ats_int_type, tmp112) ;
ATSlocal (ats_ptr_type, tmp113) ;
ATSlocal (ats_bool_type, tmp114) ;
ATSlocal (ats_int_type, tmp115) ;
ATSlocal (ats_int_type, tmp116) ;
ATSlocal (ats_int_type, tmp117) ;
ATSlocal (ats_ptr_type, tmp118) ;
ATSlocal (ats_ptr_type, tmp148) ;
ATSlocal (ats_ptr_type, tmp149) ;
ATSlocal (ats_ptr_type, tmp150) ;
__ats_lab_insert_35:
do {
/* branch: __ats_lab_6 */
__ats_lab_6_0:
if (ats_ptrget_mac(ats_ptr_type, arg0) == (ats_sum_ptr_type)0) { goto __ats_lab_9_0 ; }
__ats_lab_6_1:
tmp60 = &ats_caselptrlab_mac(anairiats_sum_0, ats_ptrget_mac(ats_ptr_type, arg0), atslab_0) ;
tmp61 = &ats_caselptrlab_mac(anairiats_sum_0, ats_ptrget_mac(ats_ptr_type, arg0), atslab_1) ;
tmp62 = &ats_caselptrlab_mac(anairiats_sum_0, ats_ptrget_mac(ats_ptr_type, arg0), atslab_2) ;
tmp63 = &ats_caselptrlab_mac(anairiats_sum_0, ats_ptrget_mac(ats_ptr_type, arg0), atslab_3) ;
tmp65 = ats_ptrget_mac(ats_int_type, tmp61) ;
tmp64 = compare_elt_elt_01770_ats_int_type (arg1, tmp65, env0) ;
tmp66 = atspre_lt_int_int (tmp64, 0) ;
if (tmp66) {
tmp67 = insert_35 (env0, tmp62, arg1) ;
tmp71 = ats_ptrget_mac(ats_ptr_type, tmp62) ;
tmp68 = avltree_height_067_ats_int_type (tmp71) ;
tmp73 = ats_ptrget_mac(ats_ptr_type, tmp63) ;
tmp72 = avltree_height_067_ats_int_type (tmp73) ;
tmp75 = atspre_isub (tmp68, tmp72) ;
tmp74 = atspre_ilte (tmp75, 1) ;
if (tmp74) {
tmp77 = atspre_imax (tmp68, tmp72) ;
tmp76 = atspre_iadd (1, tmp77) ;
ats_ptrget_mac(ats_int_type, tmp60) = tmp76 ;
tmp59 = tmp67 ;
} else {
tmp78 = avltree_rrotate_0121_ats_int_type (tmp60, tmp68, tmp62, tmp72, tmp63, ats_ptrget_mac(ats_ptr_type, arg0)) ;
ats_ptrget_mac(ats_ptr_type, arg0) = tmp78 ;
tmp59 = tmp67 ;
} /* end of [if] */
} else {
tmp108 = atspre_gt_int_int (tmp64, 0) ;
if (tmp108) {
tmp109 = insert_35 (env0, tmp63, arg1) ;
tmp111 = ats_ptrget_mac(ats_ptr_type, tmp62) ;
tmp110 = avltree_height_067_ats_int_type (tmp111) ;
tmp113 = ats_ptrget_mac(ats_ptr_type, tmp63) ;
tmp112 = avltree_height_067_ats_int_type (tmp113) ;
tmp115 = atspre_isub (tmp112, tmp110) ;
tmp114 = atspre_ilte (tmp115, 1) ;
if (tmp114) {
tmp117 = atspre_imax (tmp110, tmp112) ;
tmp116 = atspre_iadd (1, tmp117) ;
ats_ptrget_mac(ats_int_type, tmp60) = tmp116 ;
tmp59 = tmp109 ;
} else {
tmp118 = avltree_lrotate_097_ats_int_type (tmp60, tmp110, tmp62, tmp112, tmp63, ats_ptrget_mac(ats_ptr_type, arg0)) ;
ats_ptrget_mac(ats_ptr_type, arg0) = tmp118 ;
tmp59 = tmp109 ;
} /* end of [if] */
} else {
tmp59 = ats_true_bool ;
} /* end of [if] */
} /* end of [if] */
break ;
/* branch: __ats_lab_9 */
__ats_lab_9_0:
// if (ats_ptrget_mac(ats_ptr_type, arg0) != (ats_sum_ptr_type)0) { ats_deadcode_failure_handle () ; }
__ats_lab_9_1:
tmp149 = (ats_sum_ptr_type)0 ;
tmp150 = (ats_sum_ptr_type)0 ;
tmp148 = ATS_MALLOC(sizeof(anairiats_sum_0)) ;
ats_selptrset_mac(anairiats_sum_0, tmp148, atslab_0, 1) ;
ats_selptrset_mac(anairiats_sum_0, tmp148, atslab_1, arg1) ;
ats_selptrset_mac(anairiats_sum_0, tmp148, atslab_2, tmp149) ;
ats_selptrset_mac(anairiats_sum_0, tmp148, atslab_3, tmp150) ;
ats_ptrget_mac(ats_ptr_type, arg0) = tmp148 ;
tmp59 = ats_false_bool ;
break ;
} while (0) ;
return (tmp59) ;
} /* end of [insert_35] */
ats_bool_type
insert_12 (ats_uint_type env0, ats_clo_ref_type env1, ats_ref_type arg0, ats_ptr_type arg1, ats_ref_type arg2) {
/* local vardec */
ATSlocal (ats_bool_type, tmp33) ;
ATSlocal (ats_ptr_type, tmp34) ;
ATSlocal (ats_ptr_type, tmp35) ;
ATSlocal (ats_ptr_type, tmp36) ;
ATSlocal (ats_ptr_type, tmp37) ;
ATSlocal (ats_ptr_type, tmp38) ;
ATSlocal (ats_int_type, tmp39) ;
ATSlocal (ats_uint_type, tmp40) ;
ATSlocal (ats_bool_type, tmp41) ;
ATSlocal (ats_bool_type, tmp42) ;
ATSlocal (ats_int_type, tmp43) ;
ATSlocal (ats_ptr_type, tmp46) ;
ATSlocal (ats_int_type, tmp47) ;
ATSlocal (ats_ptr_type, tmp48) ;
ATSlocal (ats_bool_type, tmp49) ;
ATSlocal (ats_int_type, tmp50) ;
ATSlocal (ats_int_type, tmp51) ;
ATSlocal (ats_int_type, tmp52) ;
ATSlocal (ats_ptr_type, tmp53) ;
ATSlocal (ats_bool_type, tmp83) ;
ATSlocal (ats_bool_type, tmp84) ;
ATSlocal (ats_int_type, tmp85) ;
ATSlocal (ats_ptr_type, tmp86) ;
ATSlocal (ats_int_type, tmp87) ;
ATSlocal (ats_ptr_type, tmp88) ;
ATSlocal (ats_bool_type, tmp89) ;
ATSlocal (ats_int_type, tmp90) ;
ATSlocal (ats_int_type, tmp91) ;
ATSlocal (ats_int_type, tmp92) ;
ATSlocal (ats_ptr_type, tmp93) ;
ATSlocal (ats_ptr_type, tmp123) ;
ATSlocal (ats_ptr_type, tmp124) ;
ATSlocal (ats_ptr_type, tmp125) ;
ATSlocal (ats_ptr_type, tmp126) ;
__ats_lab_insert_12:
do {
/* branch: __ats_lab_7 */
__ats_lab_7_0:
if (ats_ptrget_mac(ats_ptr_type, arg0) == (ats_sum_ptr_type)0) { goto __ats_lab_10_0 ; }
__ats_lab_7_1:
tmp34 = &ats_caselptrlab_mac(anairiats_sum_0, ats_ptrget_mac(ats_ptr_type, arg0), atslab_0) ;
tmp35 = &ats_caselptrlab_mac(anairiats_sum_0, ats_ptrget_mac(ats_ptr_type, arg0), atslab_1) ;
tmp36 = &ats_caselptrlab_mac(anairiats_sum_0, ats_ptrget_mac(ats_ptr_type, arg0), atslab_2) ;
tmp37 = &ats_caselptrlab_mac(anairiats_sum_0, ats_ptrget_mac(ats_ptr_type, arg0), atslab_3) ;
tmp38 = &ats_caselptrlab_mac(anairiats_sum_0, ats_ptrget_mac(ats_ptr_type, arg0), atslab_4) ;
tmp40 = ats_ptrget_mac(ats_uint_type, tmp35) ;
tmp39 = compare_key_key_01713_ats_uint_type (env0, tmp40, env1) ;
tmp41 = atspre_lt_int_int (tmp39, 0) ;
if (tmp41) {
tmp42 = insert_12 (env0, env1, tmp37, arg1, arg2) ;
tmp46 = ats_ptrget_mac(ats_ptr_type, tmp37) ;
tmp43 = avltree_height_036_ats_uint_type_2cats_ptr_type (tmp46) ;
tmp48 = ats_ptrget_mac(ats_ptr_type, tmp38) ;
tmp47 = avltree_height_036_ats_uint_type_2cats_ptr_type (tmp48) ;
tmp50 = atspre_isub (tmp43, tmp47) ;
tmp49 = atspre_ilte (tmp50, 1) ;
if (tmp49) {
tmp52 = atspre_imax (tmp43, tmp47) ;
tmp51 = atspre_iadd (1, tmp52) ;
ats_ptrget_mac(ats_int_type, tmp34) = tmp51 ;
tmp33 = tmp42 ;
} else {
tmp53 = avltree_rrotate_089_ats_uint_type_2cats_ptr_type (tmp34, tmp43, tmp37, tmp47, tmp38, ats_ptrget_mac(ats_ptr_type, arg0)) ;
ats_ptrget_mac(ats_ptr_type, arg0) = tmp53 ;
tmp33 = tmp42 ;
} /* end of [if] */
} else {
tmp83 = atspre_gt_int_int (tmp39, 0) ;
if (tmp83) {
tmp84 = insert_12 (env0, env1, tmp38, arg1, arg2) ;
tmp86 = ats_ptrget_mac(ats_ptr_type, tmp37) ;
tmp85 = avltree_height_036_ats_uint_type_2cats_ptr_type (tmp86) ;
tmp88 = ats_ptrget_mac(ats_ptr_type, tmp38) ;
tmp87 = avltree_height_036_ats_uint_type_2cats_ptr_type (tmp88) ;
tmp90 = atspre_isub (tmp87, tmp85) ;
tmp89 = atspre_ilte (tmp90, 1) ;
if (tmp89) {
tmp92 = atspre_imax (tmp85, tmp87) ;
tmp91 = atspre_iadd (1, tmp92) ;
ats_ptrget_mac(ats_int_type, tmp34) = tmp91 ;
tmp33 = tmp84 ;
} else {
tmp93 = avltree_lrotate_064_ats_uint_type_2cats_ptr_type (tmp34, tmp85, tmp37, tmp87, tmp38, ats_ptrget_mac(ats_ptr_type, arg0)) ;
ats_ptrget_mac(ats_ptr_type, arg0) = tmp93 ;
tmp33 = tmp84 ;
} /* end of [if] */
} else {
tmp123 = ats_ptrget_mac(ats_ptr_type, tmp36) ;
ats_ptrget_mac(ats_ptr_type, arg2) = tmp123 ;
ats_ptrget_mac(ats_ptr_type, tmp36) = arg1 ;
tmp33 = ats_true_bool ;
} /* end of [if] */
} /* end of [if] */
break ;
/* branch: __ats_lab_10 */
__ats_lab_10_0:
// if (ats_ptrget_mac(ats_ptr_type, arg0) != (ats_sum_ptr_type)0) { ats_deadcode_failure_handle () ; }
__ats_lab_10_1:
tmp125 = (ats_sum_ptr_type)0 ;
tmp126 = (ats_sum_ptr_type)0 ;
tmp124 = ATS_MALLOC(sizeof(anairiats_sum_0)) ;
ats_selptrset_mac(anairiats_sum_0, tmp124, atslab_0, 1) ;
ats_selptrset_mac(anairiats_sum_0, tmp124, atslab_1, env0) ;
ats_selptrset_mac(anairiats_sum_0, tmp124, atslab_2, arg1) ;
ats_selptrset_mac(anairiats_sum_0, tmp124, atslab_3, tmp125) ;
ats_selptrset_mac(anairiats_sum_0, tmp124, atslab_4, tmp126) ;
ats_ptrget_mac(ats_ptr_type, arg0) = tmp124 ;
tmp33 = ats_false_bool ;
break ;
} while (0) ;
return (tmp33) ;
} /* end of [insert_12] */