ats_void_type
_2home_2hwxi_2Research_2ATS_2dPostiats_2src_2pats_basics_2esats__fprint_funclo (ats_ptr_type arg0, ats_ptr_type arg1) {
/* local vardec */
// ATSlocal_void (tmp58) ;
ATSlocal (ats_int_type, tmp59) ;
__ats_lab__2home_2hwxi_2Research_2ATS_2dPostiats_2src_2pats_basics_2esats__fprint_funclo:
do {
/* branch: __ats_lab_61 */
__ats_lab_61_0:
if (arg1 == (ats_sum_ptr_type)0) {
goto __ats_lab_62_0 ;
}
__ats_lab_61_1:
tmp59 = ats_caselptrlab_mac(anairiats_sum_0, arg1, atslab_0) ;
/* tmp58 = */ atspre_fprintf_exn (arg0, ATSstrcst("CLO(%i)"), tmp59) ;
break ;
/* branch: __ats_lab_62 */
__ats_lab_62_0:
// if (arg1 != (ats_sum_ptr_type)0) { ats_deadcode_failure_handle () ; }
__ats_lab_62_1:
/* tmp58 = */
atspre_fprintf_exn (arg0, ATSstrcst("FUN")) ;
break ;
} while (0) ;
return /* (tmp58) */ ;
} /* end of [_2home_2hwxi_2Research_2ATS_2dPostiats_2src_2pats_basics_2esats__fprint_funclo] */
ats_void_type
ATS_2d0_2e2_2e10_2ccomp_2runtime_2GCATS1_2gcats1_2esats__gc_fprint_stats (ats_ref_type arg0) {
/* local vardec */
// ATSlocal_void (tmp0) ;
ATSlocal (ats_int_type, tmp1) ;
// ATSlocal_void (tmp2) ;
ATSlocal (ats_int_type, tmp3) ;
ATSlocal (ats_ptr_type, tmp4) ;
// ATSlocal_void (tmp5) ;
__ats_lab_ATS_2d0_2e2_2e10_2ccomp_2runtime_2GCATS1_2gcats1_2esats__gc_fprint_stats:
#line 198 "gcats1_top.dats"
tmp1 = the_chunk_count_get () ;
#line 200 "gcats1_top.dats"
/* tmp2 = */ atspre_fprintf_exn (arg0, ATSstrcst("the_chunk_count:\t%i\n"), tmp1) ;
#line 203 "gcats1_top.dats"
tmp4 = freeitmlst_chunk_data_get () ;
#line 203 "gcats1_top.dats"
tmp3 = freeitmlst_length (tmp4) ;
#line 205 "gcats1_top.dats"
/* tmp5 = */ atspre_fprintf_exn (arg0, ATSstrcst("the_free_chunk_data_count:\t%i\n"), tmp3) ;
#line 219 "gcats1_top.dats"
/* tmp0 = */ gcats1_top_loop_1 (arg0, 0) ;
return /* (tmp0) */ ;
} /* end of [ATS_2d0_2e2_2e10_2ccomp_2runtime_2GCATS1_2gcats1_2esats__gc_fprint_stats] */
ats_void_type
_2home_2hwxi_2research_2Postiats_2git_2src_2pats_location_2esats__fprint_position (ats_ptr_type arg0, pats_position_struct arg1) {
/* local vardec */
// ATSlocal_void (tmp1) ;
ATSlocal (ats_lint_type, tmp2) ;
ATSlocal (ats_int_type, tmp3) ;
ATSlocal (ats_int_type, tmp4) ;
ATSlocal (ats_lint_type, tmp5) ;
ATSlocal (ats_int_type, tmp6) ;
ATSlocal (ats_int_type, tmp7) ;
__ats_lab__2home_2hwxi_2research_2Postiats_2git_2src_2pats_location_2esats__fprint_position:
tmp2 = ats_select_mac(arg1, ntot) ;
tmp3 = ats_select_mac(arg1, nrow) ;
tmp4 = ats_select_mac(arg1, ncol) ;
tmp5 = atspre_add_lint_lint (tmp2, 1L) ;
tmp6 = atspre_add_int_int (tmp3, 1) ;
tmp7 = atspre_add_int_int (tmp4, 1) ;
/* tmp1 = */ atspre_fprintf_exn (arg0, ATSstrcst("%li(line=%i, offs=%i)"), tmp5, tmp6, tmp7) ;
return /* (tmp1) */ ;
} /* end of [_2home_2hwxi_2research_2Postiats_2git_2src_2pats_location_2esats__fprint_position] */
ats_void_type
gcats1_top_loop_1 (ats_ref_type arg0, ats_int_type arg1) {
/* local vardec */
// ATSlocal_void (tmp6) ;
ATSlocal (ats_bool_type, tmp7) ;
ATSlocal (ats_int_type, tmp8) ;
ATSlocal (ats_ptr_type, tmp9) ;
ATSlocal (ats_int_type, tmp10) ;
// ATSlocal_void (tmp11) ;
ATSlocal (ats_int_type, tmp12) ;
__ats_lab_gcats1_top_loop_1:
#line 210 "gcats1_top.dats"
tmp8 = atspre_iadd (11, 1) ;
#line 210 "gcats1_top.dats"
tmp7 = atspre_ilt (arg1, tmp8) ;
#line 210 "gcats1_top.dats"
if (tmp7) {
#line 211 "gcats1_top.dats"
tmp9 = the_freeitmlst_array_get (arg1) ;
#line 212 "gcats1_top.dats"
tmp10 = freeitmlst_length (tmp9) ;
#line 213 "gcats1_top.dats"
/* tmp11 = */ atspre_fprintf_exn (arg0, ATSstrcst("freeitmlst(%i):\t%i\n"), arg1, tmp10) ;
#line 216 "gcats1_top.dats"
tmp12 = atspre_iadd (arg1, 1) ;
#line 216 "gcats1_top.dats"
arg0 = arg0 ;
#line 216 "gcats1_top.dats"
arg1 = tmp12 ;
#line 216 "gcats1_top.dats"
goto __ats_lab_gcats1_top_loop_1 ; // tail call
} else {
/* empty */
} /* end of [if] */
return /* (tmp6) */ ;
} /* end of [gcats1_top_loop_1] */
