/* ** ** The C code is generated by [ATS/Postiats-0-3-8] ** The starting compilation time is: 2018-1-11: 12h:57m ** */ /* ** include runtime header files */ #ifndef _ATS_CCOMP_HEADER_NONE_ #include "pats_ccomp_config.h" #include "pats_ccomp_basics.h" #include "pats_ccomp_typedefs.h" #include "pats_ccomp_instrset.h" #include "pats_ccomp_memalloc.h" #ifndef _ATS_CCOMP_EXCEPTION_NONE_ #include "pats_ccomp_memalloca.h" #include "pats_ccomp_exception.h" #endif // end of [_ATS_CCOMP_EXCEPTION_NONE_] #endif /* _ATS_CCOMP_HEADER_NONE_ */ /* ** include prelude cats files */ #ifndef _ATS_CCOMP_PRELUDE_NONE_ // #include "prelude/CATS/basics.cats" #include "prelude/CATS/integer.cats" #include "prelude/CATS/pointer.cats" #include "prelude/CATS/integer_long.cats" #include "prelude/CATS/integer_size.cats" #include "prelude/CATS/integer_short.cats" #include "prelude/CATS/bool.cats" #include "prelude/CATS/char.cats" #include "prelude/CATS/float.cats" #include "prelude/CATS/integer_ptr.cats" #include "prelude/CATS/integer_fixed.cats" #include "prelude/CATS/memory.cats" #include "prelude/CATS/string.cats" #include "prelude/CATS/strptr.cats" // #include "prelude/CATS/fprintf.cats" // #include "prelude/CATS/filebas.cats" // #include "prelude/CATS/list.cats" #include "prelude/CATS/option.cats" #include "prelude/CATS/array.cats" #include "prelude/CATS/arrayptr.cats" #include "prelude/CATS/arrayref.cats" #include "prelude/CATS/matrix.cats" #include "prelude/CATS/matrixptr.cats" // #endif /* _ATS_CCOMP_PRELUDE_NONE_ */ /* ** for user-supplied prelude */ #ifdef _ATS_CCOMP_PRELUDE_USER_ // #include _ATS_CCOMP_PRELUDE_USER_ // #endif /* _ATS_CCOMP_PRELUDE_USER_ */ /* ** for user2-supplied prelude */ #ifdef _ATS_CCOMP_PRELUDE_USER2_ // #include _ATS_CCOMP_PRELUDE_USER2_ // #endif /* _ATS_CCOMP_PRELUDE_USER2_ */ /* staload-prologues(beg) */ /* /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/basics.dats: 1636(line=50, offs=1) -- 1675(line=50, offs=40) */ /* /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 1596(line=49, offs=1) -- 1635(line=49, offs=40) */ /* /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/pointer.dats: 1533(line=44, offs=1) -- 1572(line=44, offs=40) */ /* /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer_long.dats: 1602(line=49, offs=1) -- 1641(line=49, offs=40) */ /* /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer_size.dats: 1597(line=49, offs=1) -- 1636(line=49, offs=40) */ /* /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer_short.dats: 1603(line=49, offs=1) -- 1642(line=49, offs=40) */ /* /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/char.dats: 1610(line=48, offs=1) -- 1649(line=48, offs=40) */ /* /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/float.dats: 1636(line=50, offs=1) -- 1675(line=50, offs=40) */ /* /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/string.dats: 1631(line=50, offs=1) -- 1670(line=50, offs=40) */ /* /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/strptr.dats: 1629(line=50, offs=1) -- 1668(line=50, offs=40) */ /* /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/strptr.dats: 1691(line=54, offs=1) -- 1738(line=54, offs=48) */ /* /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 1596(line=49, offs=1) -- 1635(line=49, offs=40) */ /* /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer_ptr.dats: 1601(line=49, offs=1) -- 1640(line=49, offs=40) */ /* /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer_fixed.dats: 1603(line=49, offs=1) -- 1642(line=49, offs=40) */ /* /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/memory.dats: 1410(line=38, offs=1) -- 1449(line=39, offs=32) */ /* /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/filebas.dats: 1613(line=49, offs=1) -- 1652(line=50, offs=32) */ /* /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/filebas.dats: 1675(line=54, offs=1) -- 1721(line=55, offs=39) */ /* /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 1596(line=49, offs=1) -- 1635(line=49, offs=40) */ /* /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/filebas.dats: 1744(line=59, offs=1) -- 1789(line=60, offs=38) */ /* /usr/local/lib/ats2-postiats-0.3.8/libats/libc/SATS/stdio.sats: 1390(line=36, offs=1) -- 1437(line=39, offs=3) */ #include \ "libats/libc/CATS/stdio.cats" /* /usr/local/lib/ats2-postiats-0.3.8/libats/libc/SATS/stdio.sats: 1950(line=69, offs=1) -- 1999(line=71, offs=34) */ /* /usr/local/lib/ats2-postiats-0.3.8/libats/libc/SATS/sys/types.sats: 1390(line=36, offs=1) -- 1441(line=39, offs=3) */ #include \ "libats/libc/CATS/sys/types.cats" /* /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/filebas.dats: 1871(line=66, offs=1) -- 1918(line=66, offs=48) */ /* /usr/local/lib/ats2-postiats-0.3.8/libats/libc/SATS/sys/stat.sats: 1390(line=36, offs=1) -- 1440(line=39, offs=3) */ #include \ "libats/libc/CATS/sys/stat.cats" /* /usr/local/lib/ats2-postiats-0.3.8/libats/libc/SATS/sys/stat.sats: 1756(line=58, offs=1) -- 1805(line=60, offs=34) */ /* /usr/local/lib/ats2-postiats-0.3.8/libats/libc/SATS/sys/types.sats: 1390(line=36, offs=1) -- 1441(line=39, offs=3) */ #include \ "libats/libc/CATS/sys/types.cats" /* /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/filebas.dats: 15529(line=878, offs=1) -- 15566(line=879, offs=30) */ /* /usr/local/lib/ats2-postiats-0.3.8/libats/libc/SATS/stdio.sats: 1390(line=36, offs=1) -- 1437(line=39, offs=3) */ #include \ "libats/libc/CATS/stdio.cats" /* /usr/local/lib/ats2-postiats-0.3.8/libats/libc/SATS/stdio.sats: 1950(line=69, offs=1) -- 1999(line=71, offs=34) */ /* /usr/local/lib/ats2-postiats-0.3.8/libats/libc/SATS/sys/types.sats: 1390(line=36, offs=1) -- 1441(line=39, offs=3) */ #include \ "libats/libc/CATS/sys/types.cats" /* /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/list.dats: 1529(line=44, offs=1) -- 1568(line=45, offs=32) */ /* /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/list.dats: 1569(line=46, offs=1) -- 1615(line=47, offs=39) */ /* /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/unsafe.dats: 1532(line=44, offs=1) -- 1566(line=44, offs=35) */ /* /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/list_vt.dats: 1538(line=44, offs=1) -- 1577(line=45, offs=32) */ /* /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/list_vt.dats: 1578(line=46, offs=1) -- 1624(line=47, offs=39) */ /* /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/unsafe.dats: 1532(line=44, offs=1) -- 1566(line=44, offs=35) */ /* /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/SHARE/list_vt_mergesort.dats: 1546(line=44, offs=1) -- 1585(line=44, offs=40) */ /* /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/SHARE/list_vt_quicksort.dats: 1546(line=44, offs=1) -- 1585(line=44, offs=40) */ /* /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/array.dats: 1534(line=44, offs=1) -- 1573(line=44, offs=40) */ /* /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/array.dats: 1574(line=45, offs=1) -- 1616(line=45, offs=43) */ /* /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/SHARE/array_bsearch.dats: 1531(line=44, offs=1) -- 1570(line=44, offs=40) */ /* /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/SHARE/array_quicksort.dats: 1531(line=44, offs=1) -- 1570(line=44, offs=40) */ /* /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/arrayptr.dats: 1532(line=44, offs=1) -- 1571(line=44, offs=40) */ /* /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/arrayref.dats: 1532(line=44, offs=1) -- 1571(line=44, offs=40) */ /* /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/matrix.dats: 1535(line=44, offs=1) -- 1574(line=44, offs=40) */ /* /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/matrixptr.dats: 1538(line=44, offs=1) -- 1577(line=44, offs=40) */ /* /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/matrixref.dats: 1538(line=44, offs=1) -- 1577(line=44, offs=40) */ /* /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/stream.dats: 1523(line=44, offs=1) -- 1562(line=44, offs=40) */ /* /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/stream_vt.dats: 1523(line=44, offs=1) -- 1562(line=44, offs=40) */ /* /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/tostring.dats: 1528(line=44, offs=1) -- 1567(line=45, offs=32) */ /* /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/unsafe.dats: 1532(line=44, offs=1) -- 1566(line=44, offs=35) */ /* /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/checkast.dats: 1531(line=44, offs=1) -- 1570(line=45, offs=32) */ /* /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/SATS/intinf_t.sats: 1805(line=48, offs=1) -- 1828(line=48, offs=24) */ /* /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/SATS/intinf_vt.sats: 1806(line=48, offs=1) -- 1829(line=48, offs=24) */ /* /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 1660(line=37, offs=1) -- 1700(line=38, offs=27) */ /* /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 1727(line=42, offs=1) -- 1759(line=42, offs=33) */ /* /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 1833(line=49, offs=1) -- 1867(line=49, offs=35) */ /* /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/SATS/intinf_t.sats: 1805(line=48, offs=1) -- 1828(line=48, offs=24) */ /* /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 1868(line=50, offs=1) -- 1908(line=50, offs=41) */ /* /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/SATS/intinf_vt.sats: 1806(line=48, offs=1) -- 1829(line=48, offs=24) */ /* /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 1656(line=37, offs=1) -- 1696(line=39, offs=27) */ /* /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/mydepies.hats: 192(line=16, offs=1) -- 232(line=16, offs=41) */ /* /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-libgmp/SATS/gmp.sats: 1178(line=38, offs=1) -- 1233(line=43, offs=3) */ // #include \ "atscntrb-libgmp/CATS/gmp.cats" // /* /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 1813(line=49, offs=1) -- 1845(line=49, offs=33) */ /* /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 1846(line=50, offs=1) -- 1881(line=50, offs=36) */ /* /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/SATS/intinf_vt.sats: 1806(line=48, offs=1) -- 1829(line=48, offs=24) */ /* /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/gintinf_t.dats: 1657(line=37, offs=1) -- 1689(line=37, offs=33) */ /* /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/gintinf_t.dats: 1690(line=38, offs=1) -- 1724(line=38, offs=35) */ /* /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/SATS/intinf_t.sats: 1805(line=48, offs=1) -- 1828(line=48, offs=24) */ /* /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-libgmp/SATS/gmp.sats: 1178(line=38, offs=1) -- 1233(line=43, offs=3) */ // #include \ "atscntrb-libgmp/CATS/gmp.cats" // /* /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/SATS/intinf_vt.sats: 1806(line=48, offs=1) -- 1829(line=48, offs=24) */ /* /usr/local/lib/ats2-postiats-0.3.8/libats/libc/SATS/math.sats: 1380(line=35, offs=1) -- 1426(line=38, offs=3) */ #include \ "libats/libc/CATS/math.cats" /* /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/SATS/intinf_t.sats: 1805(line=48, offs=1) -- 1828(line=48, offs=24) */ /* /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/SATS/intinf_vt.sats: 1806(line=48, offs=1) -- 1829(line=48, offs=24) */ /* /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 1660(line=37, offs=1) -- 1700(line=38, offs=27) */ /* /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 1727(line=42, offs=1) -- 1759(line=42, offs=33) */ /* /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 1833(line=49, offs=1) -- 1867(line=49, offs=35) */ /* /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/SATS/intinf_t.sats: 1805(line=48, offs=1) -- 1828(line=48, offs=24) */ /* /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 1868(line=50, offs=1) -- 1908(line=50, offs=41) */ /* /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/SATS/intinf_vt.sats: 1806(line=48, offs=1) -- 1829(line=48, offs=24) */ /* /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 1656(line=37, offs=1) -- 1696(line=39, offs=27) */ /* /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/mydepies.hats: 192(line=16, offs=1) -- 232(line=16, offs=41) */ /* /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-libgmp/SATS/gmp.sats: 1178(line=38, offs=1) -- 1233(line=43, offs=3) */ // #include \ "atscntrb-libgmp/CATS/gmp.cats" // /* /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 1813(line=49, offs=1) -- 1845(line=49, offs=33) */ /* /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 1846(line=50, offs=1) -- 1881(line=50, offs=36) */ /* /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/SATS/intinf_vt.sats: 1806(line=48, offs=1) -- 1829(line=48, offs=24) */ /* /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/gintinf_t.dats: 1657(line=37, offs=1) -- 1689(line=37, offs=33) */ /* /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/gintinf_t.dats: 1690(line=38, offs=1) -- 1724(line=38, offs=35) */ /* /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/SATS/intinf_t.sats: 1805(line=48, offs=1) -- 1828(line=48, offs=24) */ /* /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/SATS/intinf_vt.sats: 1806(line=48, offs=1) -- 1829(line=48, offs=24) */ /* staload-prologues(end) */ /* typedefs-for-tyrecs-and-tysums(beg) */ typedef ATSstruct { #if(0) int contag ; #endif atstkind_t0ype(atstype_int) atslab__0 ; atstkind_type(atstype_ptrk) atslab__1 ; } postiats_tysum_0 ; /* typedefs-for-tyrecs-and-tysums(end) */ /* dynconlst-declaration(beg) */ /* dynconlst-declaration(end) */ /* dyncstlst-declaration(beg) */ ATSdyncst_mac(atspre_ptr_alloc_tsz) ATSdyncst_mac(atspre_g0int2uint_int_ulint) ATSdyncst_mac(atspre_g1int_add_int) ATSdyncst_mac(atscntrb_gmp_mpz_init) ATSdyncst_mac(atscntrb_gmp_mpz_fib_uint) ATSdyncst_mac(atspre_g1int2int_int_int) ATSdyncst_mac(atspre_g1int_gt_int) ATSdyncst_mac(atspre_g1int_half_int) ATSdyncst_mac(atspre_g0int_mod_int) ATSdyncst_mac(atspre_g0int2int_int_int) ATSdyncst_mac(atspre_g0int_eq_int) ATSdyncst_mac(atspre_g0int_mul_int) ATSdyncst_mac(atspre_g0float2int_float_int) ATSdyncst_mac(atslib_libats_libc_sqrt_float) ATSdyncst_mac(atspre_g0int2float_int_float) ATSdyncst_mac(atspre_g1int_lt_int) ATSdyncst_mac(atspre_g1int_eq_int) ATSdyncst_mac(atspre_g0int_div_int) ATSdyncst_mac(atspre_g1int_gte_int) ATSdyncst_mac(atspre_g0int_add_int) ATSdyncst_mac(atspre_g1int_sub_int) ATSdyncst_mac(atspre_g1int_neq_int) ATSdyncst_mac(atscntrb_gmp_mpz_add2_int) ATSdyncst_mac(atscntrb_gmp_mpz_init_set_int) /* dyncstlst-declaration(end) */ /* dynvalist-implementation(beg) */ /* dynvalist-implementation(end) */ /* exnconlst-declaration(beg) */ #ifndef _ATS_CCOMP_EXCEPTION_NONE_ ATSextern() atsvoid_t0ype the_atsexncon_initize ( atstype_exnconptr d2c, atstype_string exnmsg ) ; #endif // end of [_ATS_CCOMP_EXCEPTION_NONE_] /* exnconlst-declaration(end) */ /* extypelst-declaration(beg) */ /* extypelst-declaration(end) */ /* assumelst-declaration(beg) */ #ifndef _ATS_CCOMP_ASSUME_CHECK_NONE_ #endif // #ifndef(_ATS_CCOMP_ASSUME_CHECK_NONE_) /* assumelst-declaration(end) */ ATSstatic() atstkind_t0ype(atstype_int) witness_0(atstkind_t0ype(atstype_int)) ; ATSstatic() atstkind_type(atstype_ptrk) fib_gmp_1(atstkind_t0ype(atstype_int)) ; #if(0) #if(0) ATSextern() atstkind_type(atstype_ptrk) ATSLIB_056_prelude__ptr_alloc__2() ; #endif // end of [QUALIFIED] #endif // end of [TEMPLATE] ATSstatic() atstkind_type(atstype_ptrk) ATSLIB_056_prelude__ptr_alloc__2__1() ; ATSstatic() atstkind_t0ype(atstype_int) exp_5(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; #if(0) #if(0) ATSextern() atstkind_t0ype(atstype_bool) ATSLIB_056_prelude__gt_g1int_int__6(atstkind_t0ype(atstyvar_type(tk)), atstkind_t0ype(atstype_int)) ; #endif // end of [QUALIFIED] #endif // end of [TEMPLATE] ATSstatic() atstkind_t0ype(atstype_bool) ATSLIB_056_prelude__gt_g1int_int__6__1(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; #if(0) #if(0) ATSextern() atstkind_t0ype(atstype_bool) ATSLIB_056_prelude__eq_g0int_int__12(atstkind_t0ype(atstyvar_type(tk)), atstkind_t0ype(atstype_int)) ; #endif // end of [QUALIFIED] #endif // end of [TEMPLATE] ATSstatic() atstkind_t0ype(atstype_bool) ATSLIB_056_prelude__eq_g0int_int__12__1(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; ATSstatic() atstkind_t0ype(atstype_int) sqrt_int_17(atstkind_t0ype(atstype_int)) ; ATSstatic() atstkind_t0ype(atstype_bool) is_prime_20(atstkind_t0ype(atstype_int)) ; ATSstatic() atstkind_t0ype(atstype_bool) loop_21(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; #if(0) #if(0) ATSextern() atstkind_t0ype(atstype_bool) ATSLIB_056_prelude__lt_g1int_int__22(atstkind_t0ype(atstyvar_type(tk)), atstkind_t0ype(atstype_int)) ; #endif // end of [QUALIFIED] #endif // end of [TEMPLATE] ATSstatic() atstkind_t0ype(atstype_bool) ATSLIB_056_prelude__lt_g1int_int__22__1(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; ATSstatic() atstkind_t0ype(atstype_bool) ATSLIB_056_prelude__eq_g0int_int__12__2(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; #if(0) #if(0) ATSextern() atstkind_t0ype(atstype_bool) ATSLIB_056_prelude__eq_g1int_int__26(atstkind_t0ype(atstyvar_type(tk)), atstkind_t0ype(atstype_int)) ; #endif // end of [QUALIFIED] #endif // end of [TEMPLATE] ATSstatic() atstkind_t0ype(atstype_bool) ATSLIB_056_prelude__eq_g1int_int__26__1(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; ATSstatic() atstkind_t0ype(atstype_bool) ATSLIB_056_prelude__eq_g0int_int__12__3(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; ATSstatic() atstkind_t0ype(atstype_bool) divides_30(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; ATSstatic() atstkind_t0ype(atstype_bool) ATSLIB_056_prelude__eq_g0int_int__12__4(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; ATSstatic() atstkind_t0ype(atstype_int) gcd_32(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; ATSstatic() atstkind_t0ype(atstype_bool) ATSLIB_056_prelude__gt_g1int_int__6__2(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; ATSstatic() atstkind_t0ype(atstype_int) lcm_34(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; ATSstatic() atstkind_type(atstype_ptrk) divisors_36(atstkind_t0ype(atstype_int)) ; ATSstatic() atstkind_type(atstype_ptrk) loop_37(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; #if(0) #if(0) ATSextern() atstkind_t0ype(atstype_bool) ATSLIB_056_prelude__gte_g1int_int__38(atstkind_t0ype(atstyvar_type(tk)), atstkind_t0ype(atstype_int)) ; #endif // end of [QUALIFIED] #endif // end of [TEMPLATE] ATSstatic() atstkind_t0ype(atstype_bool) ATSLIB_056_prelude__gte_g1int_int__38__1(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; ATSstatic() atstype_boxed __patsfun_41(atstkind_t0ype(atstype_int), atstype_bool) ; ATSstatic() atstype_boxed __patsfun_42(atstype_bool) ; ATSstatic() atstkind_t0ype(atstype_bool) ATSLIB_056_prelude__eq_g0int_int__12__5(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; ATSstatic() atstype_boxed __patsfun_44(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int), atstype_bool) ; ATSstatic() atstype_boxed __patsfun_45(atstype_bool) ; ATSstatic() atstkind_type(atstype_ptrk) prime_divisors_46(atstkind_t0ype(atstype_int)) ; ATSstatic() atstkind_type(atstype_ptrk) loop_47(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; ATSstatic() atstkind_t0ype(atstype_bool) ATSLIB_056_prelude__gte_g1int_int__38__2(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; ATSstatic() atstype_boxed __patsfun_49(atstkind_t0ype(atstype_int), atstype_bool) ; ATSstatic() atstype_boxed __patsfun_50(atstype_bool) ; ATSstatic() atstkind_t0ype(atstype_bool) ATSLIB_056_prelude__eq_g0int_int__12__6(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; ATSstatic() atstype_boxed __patsfun_52(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int), atstype_bool) ; ATSstatic() atstype_boxed __patsfun_53(atstype_bool) ; ATSstatic() atstkind_t0ype(atstype_int) count_divisors_54(atstkind_t0ype(atstype_int)) ; ATSstatic() atstkind_t0ype(atstype_int) loop_55(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; ATSstatic() atstkind_t0ype(atstype_bool) ATSLIB_056_prelude__gte_g1int_int__38__3(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; ATSstatic() atstkind_t0ype(atstype_bool) ATSLIB_056_prelude__eq_g0int_int__12__7(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; ATSstatic() atstkind_t0ype(atstype_int) sum_divisors_59(atstkind_t0ype(atstype_int)) ; ATSstatic() atstkind_t0ype(atstype_int) loop_60(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; ATSstatic() atstkind_t0ype(atstype_bool) ATSLIB_056_prelude__gte_g1int_int__38__4(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; ATSstatic() atstkind_t0ype(atstype_bool) ATSLIB_056_prelude__eq_g0int_int__12__8(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; ATSstatic() atstkind_t0ype(atstype_bool) is_perfect_63(atstkind_t0ype(atstype_int)) ; ATSstatic() atstkind_t0ype(atstype_bool) ATSLIB_056_prelude__eq_g0int_int__12__9(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; ATSstatic() atstkind_t0ype(atstype_int) little_omega_65(atstkind_t0ype(atstype_int)) ; ATSstatic() atstkind_t0ype(atstype_int) loop_66(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; ATSstatic() atstkind_t0ype(atstype_bool) ATSLIB_056_prelude__gte_g1int_int__38__5(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; ATSstatic() atstkind_t0ype(atstype_bool) ATSLIB_056_prelude__eq_g0int_int__12__10(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; ATSstatic() atstkind_t0ype(atstype_int) totient_69(atstkind_t0ype(atstype_int)) ; ATSstatic() atstkind_t0ype(atstype_int) loop_70(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; ATSstatic() atstkind_t0ype(atstype_bool) ATSLIB_056_prelude__gte_g1int_int__38__6(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; ATSstatic() atstkind_t0ype(atstype_bool) ATSLIB_056_prelude__eq_g0int_int__12__11(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; #if(0) #if(0) ATSextern() atstkind_t0ype(atstype_bool) ATSLIB_056_prelude__neq_g1int_int__74(atstkind_t0ype(atstyvar_type(tk)), atstkind_t0ype(atstype_int)) ; #endif // end of [QUALIFIED] #endif // end of [TEMPLATE] ATSstatic() atstkind_t0ype(atstype_bool) ATSLIB_056_prelude__neq_g1int_int__74__1(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; ATSstatic() atstkind_type(atstype_ptrk) totient_sum_77(atstkind_t0ype(atstype_int)) ; ATSstatic() atstkind_type(atstype_ptrk) loop_78(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; ATSstatic() atstkind_t0ype(atstype_bool) ATSLIB_056_prelude__lt_g1int_int__22__2(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; #if(0) #if(0) ATSextern() atstkind_type(atstype_ptrk) ATSCNTRB_056_HX_056_intinf_vt__add_intinf0_int__80(atstkind_type(atstype_ptrk), atstkind_t0ype(atstype_int)) ; #endif // end of [QUALIFIED] #endif // end of [TEMPLATE] ATSstatic() atstkind_type(atstype_ptrk) ATSCNTRB_056_HX_056_intinf_vt__add_intinf0_int__80__1(atstkind_type(atstype_ptrk), atstkind_t0ype(atstype_int)) ; #if(0) #if(0) ATSextern() atstkind_type(atstype_ptrk) ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__82(atstkind_t0ype(atstype_int)) ; #endif // end of [QUALIFIED] #endif // end of [TEMPLATE] ATSstatic() atstkind_type(atstype_ptrk) ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__82__1(atstkind_t0ype(atstype_int)) ; ATSstatic() atstkind_type(atstype_ptrk) ATSLIB_056_prelude__ptr_alloc__2__2() ; #if(0) ATSextern() atstkind_t0ype(atstype_int) sum_divisors_ats(atstkind_t0ype(atstype_int)) ; #endif // end of [QUALIFIED] #if(0) ATSextern() atstkind_t0ype(atstype_int) count_divisors_ats(atstkind_t0ype(atstype_int)) ; #endif // end of [QUALIFIED] #if(0) ATSextern() atstkind_t0ype(atstype_int) totient_ats(atstkind_t0ype(atstype_int)) ; #endif // end of [QUALIFIED] #if(0) ATSextern() atstkind_t0ype(atstype_int) little_omega_ats(atstkind_t0ype(atstype_int)) ; #endif // end of [QUALIFIED] #if(0) ATSextern() atstkind_t0ype(atstype_bool) is_perfect_ats(atstkind_t0ype(atstype_int)) ; #endif // end of [QUALIFIED] ATSclosurerize_beg(__patsfun_41, (atstkind_t0ype(atstype_int)), (atstype_bool), atstype_boxed) typedef ATSstruct { atstype_funptr cfun ; atstkind_t0ype(atstype_int) env0 ; } __patsfun_41__closure_t0ype ; ATSstatic() atstype_boxed __patsfun_41__cfun ( __patsfun_41__closure_t0ype *p_cenv, atstype_bool arg0 ) { ATSFCreturn(__patsfun_41(p_cenv->env0, arg0)) ; } /* end of [cfun] */ ATSstatic() atstype_cloptr __patsfun_41__closureinit ( __patsfun_41__closure_t0ype *p_cenv, atstkind_t0ype(atstype_int) env0 ) { p_cenv->env0 = env0 ; p_cenv->cfun = __patsfun_41__cfun ; return p_cenv ; } /* end of [closureinit] */ ATSstatic() atstype_cloptr __patsfun_41__closurerize ( atstkind_t0ype(atstype_int) env0 ) { return __patsfun_41__closureinit(ATS_MALLOC(sizeof(__patsfun_41__closure_t0ype)), env0) ; } /* end of [closurerize] */ ATSclosurerize_end() ATSclosurerize_beg(__patsfun_42, (), (atstype_bool), atstype_boxed) typedef ATSstruct { atstype_funptr cfun ; } __patsfun_42__closure_t0ype ; ATSstatic() atstype_boxed __patsfun_42__cfun ( __patsfun_42__closure_t0ype *p_cenv, atstype_bool arg0 ) { ATSFCreturn(__patsfun_42(arg0)) ; } /* end of [cfun] */ ATSstatic() atstype_cloptr __patsfun_42__closureinit ( __patsfun_42__closure_t0ype *p_cenv ) { p_cenv->cfun = __patsfun_42__cfun ; return p_cenv ; } /* end of [closureinit] */ ATSstatic() atstype_cloptr __patsfun_42__closurerize ( // argumentless ) { return __patsfun_42__closureinit(ATS_MALLOC(sizeof(__patsfun_42__closure_t0ype))) ; } /* end of [closurerize] */ ATSclosurerize_end() ATSclosurerize_beg(__patsfun_44, (atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)), (atstype_bool), atstype_boxed) typedef ATSstruct { atstype_funptr cfun ; atstkind_t0ype(atstype_int) env0 ; atstkind_t0ype(atstype_int) env1 ; } __patsfun_44__closure_t0ype ; ATSstatic() atstype_boxed __patsfun_44__cfun ( __patsfun_44__closure_t0ype *p_cenv, atstype_bool arg0 ) { ATSFCreturn(__patsfun_44(p_cenv->env0, p_cenv->env1, arg0)) ; } /* end of [cfun] */ ATSstatic() atstype_cloptr __patsfun_44__closureinit ( __patsfun_44__closure_t0ype *p_cenv, atstkind_t0ype(atstype_int) env0, atstkind_t0ype(atstype_int) env1 ) { p_cenv->env0 = env0 ; p_cenv->env1 = env1 ; p_cenv->cfun = __patsfun_44__cfun ; return p_cenv ; } /* end of [closureinit] */ ATSstatic() atstype_cloptr __patsfun_44__closurerize ( atstkind_t0ype(atstype_int) env0, atstkind_t0ype(atstype_int) env1 ) { return __patsfun_44__closureinit(ATS_MALLOC(sizeof(__patsfun_44__closure_t0ype)), env0, env1) ; } /* end of [closurerize] */ ATSclosurerize_end() ATSclosurerize_beg(__patsfun_45, (), (atstype_bool), atstype_boxed) typedef ATSstruct { atstype_funptr cfun ; } __patsfun_45__closure_t0ype ; ATSstatic() atstype_boxed __patsfun_45__cfun ( __patsfun_45__closure_t0ype *p_cenv, atstype_bool arg0 ) { ATSFCreturn(__patsfun_45(arg0)) ; } /* end of [cfun] */ ATSstatic() atstype_cloptr __patsfun_45__closureinit ( __patsfun_45__closure_t0ype *p_cenv ) { p_cenv->cfun = __patsfun_45__cfun ; return p_cenv ; } /* end of [closureinit] */ ATSstatic() atstype_cloptr __patsfun_45__closurerize ( // argumentless ) { return __patsfun_45__closureinit(ATS_MALLOC(sizeof(__patsfun_45__closure_t0ype))) ; } /* end of [closurerize] */ ATSclosurerize_end() ATSclosurerize_beg(__patsfun_49, (atstkind_t0ype(atstype_int)), (atstype_bool), atstype_boxed) typedef ATSstruct { atstype_funptr cfun ; atstkind_t0ype(atstype_int) env0 ; } __patsfun_49__closure_t0ype ; ATSstatic() atstype_boxed __patsfun_49__cfun ( __patsfun_49__closure_t0ype *p_cenv, atstype_bool arg0 ) { ATSFCreturn(__patsfun_49(p_cenv->env0, arg0)) ; } /* end of [cfun] */ ATSstatic() atstype_cloptr __patsfun_49__closureinit ( __patsfun_49__closure_t0ype *p_cenv, atstkind_t0ype(atstype_int) env0 ) { p_cenv->env0 = env0 ; p_cenv->cfun = __patsfun_49__cfun ; return p_cenv ; } /* end of [closureinit] */ ATSstatic() atstype_cloptr __patsfun_49__closurerize ( atstkind_t0ype(atstype_int) env0 ) { return __patsfun_49__closureinit(ATS_MALLOC(sizeof(__patsfun_49__closure_t0ype)), env0) ; } /* end of [closurerize] */ ATSclosurerize_end() ATSclosurerize_beg(__patsfun_50, (), (atstype_bool), atstype_boxed) typedef ATSstruct { atstype_funptr cfun ; } __patsfun_50__closure_t0ype ; ATSstatic() atstype_boxed __patsfun_50__cfun ( __patsfun_50__closure_t0ype *p_cenv, atstype_bool arg0 ) { ATSFCreturn(__patsfun_50(arg0)) ; } /* end of [cfun] */ ATSstatic() atstype_cloptr __patsfun_50__closureinit ( __patsfun_50__closure_t0ype *p_cenv ) { p_cenv->cfun = __patsfun_50__cfun ; return p_cenv ; } /* end of [closureinit] */ ATSstatic() atstype_cloptr __patsfun_50__closurerize ( // argumentless ) { return __patsfun_50__closureinit(ATS_MALLOC(sizeof(__patsfun_50__closure_t0ype))) ; } /* end of [closurerize] */ ATSclosurerize_end() ATSclosurerize_beg(__patsfun_52, (atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)), (atstype_bool), atstype_boxed) typedef ATSstruct { atstype_funptr cfun ; atstkind_t0ype(atstype_int) env0 ; atstkind_t0ype(atstype_int) env1 ; } __patsfun_52__closure_t0ype ; ATSstatic() atstype_boxed __patsfun_52__cfun ( __patsfun_52__closure_t0ype *p_cenv, atstype_bool arg0 ) { ATSFCreturn(__patsfun_52(p_cenv->env0, p_cenv->env1, arg0)) ; } /* end of [cfun] */ ATSstatic() atstype_cloptr __patsfun_52__closureinit ( __patsfun_52__closure_t0ype *p_cenv, atstkind_t0ype(atstype_int) env0, atstkind_t0ype(atstype_int) env1 ) { p_cenv->env0 = env0 ; p_cenv->env1 = env1 ; p_cenv->cfun = __patsfun_52__cfun ; return p_cenv ; } /* end of [closureinit] */ ATSstatic() atstype_cloptr __patsfun_52__closurerize ( atstkind_t0ype(atstype_int) env0, atstkind_t0ype(atstype_int) env1 ) { return __patsfun_52__closureinit(ATS_MALLOC(sizeof(__patsfun_52__closure_t0ype)), env0, env1) ; } /* end of [closurerize] */ ATSclosurerize_end() ATSclosurerize_beg(__patsfun_53, (), (atstype_bool), atstype_boxed) typedef ATSstruct { atstype_funptr cfun ; } __patsfun_53__closure_t0ype ; ATSstatic() atstype_boxed __patsfun_53__cfun ( __patsfun_53__closure_t0ype *p_cenv, atstype_bool arg0 ) { ATSFCreturn(__patsfun_53(arg0)) ; } /* end of [cfun] */ ATSstatic() atstype_cloptr __patsfun_53__closureinit ( __patsfun_53__closure_t0ype *p_cenv ) { p_cenv->cfun = __patsfun_53__cfun ; return p_cenv ; } /* end of [closureinit] */ ATSstatic() atstype_cloptr __patsfun_53__closurerize ( // argumentless ) { return __patsfun_53__closureinit(ATS_MALLOC(sizeof(__patsfun_53__closure_t0ype))) ; } /* end of [closurerize] */ ATSclosurerize_end() /* /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 305(line=11, offs=4) -- 360(line=12, offs=14) */ /* local: global: witness_0$0(level=0) local: global: */ ATSstatic() atstkind_t0ype(atstype_int) witness_0(atstkind_t0ype(atstype_int) arg0) { /* tmpvardeclst(beg) */ ATStmpdec(tmpret0, atstkind_t0ype(atstype_int)) ; /* tmpvardeclst(end) */ ATSfunbody_beg() /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 305(line=11, offs=4) -- 360(line=12, offs=14) */ ATSINSflab(__patsflab_witness_0): /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 349(line=12, offs=3) -- 359(line=12, offs=13) */ ATSINSmove(tmpret0, ATSPMVcastfn(cast, atstkind_t0ype(atstype_int), arg0)) ; ATSfunbody_end() ATSreturn(tmpret0) ; } /* end of [witness_0] */ /* /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 425(line=15, offs=5) -- 644(line=23, offs=6) */ /* local: global: fib_gmp_1$0(level=0) local: global: */ ATSstatic() atstkind_type(atstype_ptrk) fib_gmp_1(atstkind_t0ype(atstype_int) arg0) { /* tmpvardeclst(beg) */ ATStmpdec(tmpret1, atstkind_type(atstype_ptrk)) ; ATStmpdec(tmp2, atstkind_type(atstype_ptrk)) ; ATStmpdec(tmp5, atstkind_t0ype(atstype_ulint)) ; ATStmpdec(tmp6, atstkind_t0ype(atstype_int)) ; // ATStmpdec_void(tmp7) ; // ATStmpdec_void(tmp8) ; /* tmpvardeclst(end) */ ATSfunbody_beg() /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 425(line=15, offs=5) -- 644(line=23, offs=6) */ ATSINSflab(__patsflab_fib_gmp_1): /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 461(line=16, offs=3) -- 644(line=23, offs=6) */ /* letpush(beg) */ /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 477(line=17, offs=13) -- 488(line=17, offs=24) */ ATSINSmove(tmp2, ATSLIB_056_prelude__ptr_alloc__2__1()) ; /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 529(line=18, offs=41) -- 534(line=18, offs=46) */ ATSINSmove(tmp6, atspre_g1int_add_int(arg0, ATSPMVi0nt(1))) ; /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 508(line=18, offs=20) -- 535(line=18, offs=47) */ ATSINSmove(tmp5, atspre_g0int2uint_int_ulint(tmp6)) ; /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 549(line=19, offs=14) -- 570(line=19, offs=35) */ ATSINSmove_void(tmp7, atscntrb_gmp_mpz_init(ATSPMVrefarg1(ATSSELrecsin(tmp2, atstkind_type(atstype_ptrk), atslab__2)))) ; /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 584(line=20, offs=14) -- 612(line=20, offs=42) */ ATSINSmove_void(tmp8, atscntrb_gmp_mpz_fib_uint(ATSPMVrefarg1(ATSSELrecsin(tmp2, atstkind_type(atstype_ptrk), atslab__2)), tmp5)) ; /* letpush(end) */ /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 622(line=22, offs=5) -- 637(line=22, offs=20) */ ATSINSmove(tmpret1, ATSPMVcastfn(castvwtp0, atstkind_type(atstype_ptrk), tmp2)) ; /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 461(line=16, offs=3) -- 644(line=23, offs=6) */ /* INSletpop() */ ATSfunbody_end() ATSreturn(tmpret1) ; } /* end of [fib_gmp_1] */ #if(0) /* /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42) */ /* local: global: ptr_alloc$2$0(level=0) local: global: */ ATSextern() /* imparg = a(4806) tmparg = S2Evar(a(4806)) tmpsub = None() */ atstkind_type(atstype_ptrk) ATSLIB_056_prelude__ptr_alloc__2() { /* tmpvardeclst(beg) */ ATStmpdec(tmpret3, atstkind_type(atstype_ptrk)) ; /* tmpvardeclst(end) */ ATSfunbody_beg() /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3708(line=184, offs=1) -- 3749(line=184, offs=42) */ ATSINSflab(__patsflab_ptr_alloc): /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42) */ ATSINSmove(tmpret3, atspre_ptr_alloc_tsz(ATSPMVsizeof(atstyvar_type(a)))) ; ATSfunbody_end() ATSreturn(tmpret3) ; } /* end of [ATSLIB_056_prelude__ptr_alloc__2] */ #endif // end of [TEMPLATE] /* /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42) */ /* local: global: ptr_alloc$2$1(level=1) local: global: */ ATSstatic() /* imparg = a(4806) tmparg = S2Evar(a(4806)) tmpsub = Some(a(4806) -> S2EVar(5569)) */ atstkind_type(atstype_ptrk) ATSLIB_056_prelude__ptr_alloc__2__1() { /* tmpvardeclst(beg) */ ATStmpdec(tmpret3__1, atstkind_type(atstype_ptrk)) ; /* tmpvardeclst(end) */ ATSfunbody_beg() /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3708(line=184, offs=1) -- 3749(line=184, offs=42) */ ATSINSflab(__patsflab_ptr_alloc): /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42) */ ATSINSmove(tmpret3__1, atspre_ptr_alloc_tsz(ATSPMVsizeof(atscntrb_gmp_mpz))) ; ATSfunbody_end() ATSreturn(tmpret3__1) ; } /* end of [ATSLIB_056_prelude__ptr_alloc__2__1] */ /* /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 722(line=26, offs=5) -- 1159(line=47, offs=10) */ /* local: exp_5$0(level=0) global: exp_5$0(level=0) local: global: */ ATSstatic() atstkind_t0ype(atstype_int) exp_5(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) { /* tmpvardeclst(beg) */ ATStmpdec(apy0, atstkind_t0ype(atstype_int)) ; ATStmpdec(apy1, atstkind_t0ype(atstype_int)) ; ATStmpdec(tmpret9, atstkind_t0ype(atstype_int)) ; ATStmpdec(tmp10, atstkind_t0ype(atstype_bool)) ; ATStmpdec(tmpref15, atstkind_t0ype(atstype_int)) ; ATStmpdec(tmpref16, atstkind_t0ype(atstype_int)) ; ATStmpdec(tmp17, atstkind_t0ype(atstype_bool)) ; ATStmpdec(tmp22, atstkind_t0ype(atstype_int)) ; ATStmpdec(tmp23, atstkind_t0ype(atstype_int)) ; /* tmpvardeclst(end) */ ATSfunbody_beg() /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 722(line=26, offs=5) -- 1159(line=47, offs=10) */ ATSINSflab(__patsflab_exp_5): /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 774(line=27, offs=3) -- 1159(line=47, offs=10) */ ATScaseof_beg() /* ** ibranchlst-beg */ ATSbranch_beg() /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 791(line=28, offs=7) -- 792(line=28, offs=8) */ ATSINSlab(__atstmplab0): /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 743(line=26, offs=26) -- 744(line=26, offs=27) */ ATSifnthen(ATSCKpat_int(arg0, ATSPMVint(0))) { ATSINSgoto(__atstmplab2) ; } ; /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 792(line=28, offs=8) -- 792(line=28, offs=8) */ ATSINSlab(__atstmplab1): /* emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) */ /* ibranch-mbody: */ /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 796(line=28, offs=12) -- 797(line=28, offs=13) */ ATSINSmove(tmpret9, ATSPMVi0nt(0)) ; ATSbranch_end() ATSbranch_beg() /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 805(line=29, offs=8) -- 805(line=29, offs=8) */ ATSINSlab(__atstmplab2): /* emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) */ /* ibranch-mbody: */ /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 834(line=31, offs=12) -- 839(line=31, offs=17) */ ATSINSmove(tmp10, ATSLIB_056_prelude__gt_g1int_int__6__1(arg1, ATSPMVi0nt(0))) ; /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 831(line=31, offs=9) -- 1149(line=46, offs=12) */ ATSif( tmp10 ) ATSthen() { /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 855(line=32, offs=11) -- 1124(line=44, offs=14) */ /* letpush(beg) */ /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 875(line=33, offs=17) -- 877(line=33, offs=19) */ /* ATSINStmpdec(tmpref15) ; */ /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 880(line=33, offs=22) -- 886(line=33, offs=28) */ ATSINSmove(tmpref15, atspre_g1int_half_int(arg1)) ; /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 904(line=34, offs=17) -- 906(line=34, offs=19) */ /* ATSINStmpdec(tmpref16) ; */ /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 909(line=34, offs=22) -- 914(line=34, offs=27) */ ATSINSmove(tmpref16, atspre_g0int_mod_int(arg1, ATSPMVi0nt(2))) ; /* letpush(end) */ /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 943(line=36, offs=16) -- 949(line=36, offs=22) */ ATSINSmove(tmp17, ATSLIB_056_prelude__eq_g0int_int__12__1(tmpref16, ATSPMVi0nt(0))) ; /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 940(line=36, offs=13) -- 1110(line=43, offs=18) */ ATSif( tmp17 ) ATSthen() { /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 973(line=37, offs=19) -- 978(line=37, offs=24) */ ATSINSmove(tmp22, atspre_g0int_mul_int(arg0, arg0)) ; /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 969(line=37, offs=15) -- 983(line=37, offs=29) */ ATStailcal_beg() ATSINSmove_tlcal(apy0, tmp22) ; ATSINSmove_tlcal(apy1, tmpref15) ; ATSINSargmove_tlcal(arg0, apy0) ; ATSINSargmove_tlcal(arg1, apy1) ; ATSINSfgoto(__patsflab_exp_5) ; ATStailcal_end() } ATSelse() { /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 1015(line=39, offs=15) -- 1110(line=43, offs=18) */ /* letpush(beg) */ /* letpush(end) */ /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 1047(line=40, offs=29) -- 1052(line=40, offs=34) */ ATSINSmove(tmp23, atspre_g0int_mul_int(arg0, arg0)) ; /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 1043(line=40, offs=25) -- 1057(line=40, offs=39) */ ATStailcal_beg() ATSINSmove_tlcal(apy0, tmp23) ; ATSINSmove_tlcal(apy1, tmpref15) ; ATSINSargmove_tlcal(arg0, apy0) ; ATSINSargmove_tlcal(arg1, apy1) ; ATSINSfgoto(__patsflab_exp_5) ; ATStailcal_end() /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 1015(line=39, offs=15) -- 1110(line=43, offs=18) */ /* INSletpop() */ } /* ATSendif */ /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 855(line=32, offs=11) -- 1124(line=44, offs=14) */ /* INSletpop() */ } ATSelse() { /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 1148(line=46, offs=11) -- 1149(line=46, offs=12) */ ATSINSmove(tmpret9, ATSPMVi0nt(1)) ; } /* ATSendif */ ATSbranch_end() /* ** ibranchlst-end */ ATScaseof_end() ATSfunbody_end() ATSreturn(tmpret9) ; } /* end of [exp_5] */ #if(0) /* /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 12679(line=659, offs=3) -- 12718(line=659, offs=42) */ /* local: global: gt_g1int_int$6$0(level=0) local: global: */ ATSextern() /* imparg = tk(4703) tmparg = S2Evar(tk(4703)) tmpsub = None() */ atstkind_t0ype(atstype_bool) ATSLIB_056_prelude__gt_g1int_int__6(atstkind_t0ype(atstyvar_type(tk)) arg0, atstkind_t0ype(atstype_int) arg1) { /* tmpvardeclst(beg) */ ATStmpdec(tmpret11, atstkind_t0ype(atstype_bool)) ; ATStmpdec(tmp12, atstkind_t0ype(atstyvar_type(tk))) ; /* tmpvardeclst(end) */ ATSfunbody_beg() /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12664(line=658, offs=1) -- 12718(line=659, offs=42) */ ATSINSflab(__patsflab_gt_g1int_int): /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12705(line=659, offs=29) -- 12716(line=659, offs=40) */ ATSINSmove(tmp12, PMVtmpltcst(g1int2int)(arg1)) ; /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12688(line=659, offs=12) -- 12718(line=659, offs=42) */ ATSINSmove(tmpret11, PMVtmpltcst(g1int_gt)(arg0, tmp12)) ; ATSfunbody_end() ATSreturn(tmpret11) ; } /* end of [ATSLIB_056_prelude__gt_g1int_int__6] */ #endif // end of [TEMPLATE] /* /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 12679(line=659, offs=3) -- 12718(line=659, offs=42) */ /* local: global: gt_g1int_int$6$1(level=1) local: global: */ ATSstatic() /* imparg = tk(4703) tmparg = S2Evar(tk(4703)) tmpsub = Some(tk(4703) -> S2Eextkind(atstype_int)) */ atstkind_t0ype(atstype_bool) ATSLIB_056_prelude__gt_g1int_int__6__1(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) { /* tmpvardeclst(beg) */ ATStmpdec(tmpret11__1, atstkind_t0ype(atstype_bool)) ; ATStmpdec(tmp12__1, atstkind_t0ype(atstype_int)) ; /* tmpvardeclst(end) */ ATSfunbody_beg() /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12664(line=658, offs=1) -- 12718(line=659, offs=42) */ ATSINSflab(__patsflab_gt_g1int_int): /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12705(line=659, offs=29) -- 12716(line=659, offs=40) */ ATSINSmove(tmp12__1, atspre_g1int2int_int_int(arg1)) ; /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12688(line=659, offs=12) -- 12718(line=659, offs=42) */ ATSINSmove(tmpret11__1, atspre_g1int_gt_int(arg0, tmp12__1)) ; ATSfunbody_end() ATSreturn(tmpret11__1) ; } /* end of [ATSLIB_056_prelude__gt_g1int_int__6__1] */ #if(0) /* /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) */ /* local: global: eq_g0int_int$12$0(level=0) local: global: */ ATSextern() /* imparg = tk(4694) tmparg = S2Evar(tk(4694)) tmpsub = None() */ atstkind_t0ype(atstype_bool) ATSLIB_056_prelude__eq_g0int_int__12(atstkind_t0ype(atstyvar_type(tk)) arg0, atstkind_t0ype(atstype_int) arg1) { /* tmpvardeclst(beg) */ ATStmpdec(tmpret18, atstkind_t0ype(atstype_bool)) ; ATStmpdec(tmp19, atstkind_t0ype(atstyvar_type(tk))) ; /* tmpvardeclst(end) */ ATSfunbody_beg() /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) */ ATSINSflab(__patsflab_eq_g0int_int): /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) */ ATSINSmove(tmp19, PMVtmpltcst(g0int2int)(arg1)) ; /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) */ ATSINSmove(tmpret18, PMVtmpltcst(g0int_eq)(arg0, tmp19)) ; ATSfunbody_end() ATSreturn(tmpret18) ; } /* end of [ATSLIB_056_prelude__eq_g0int_int__12] */ #endif // end of [TEMPLATE] /* /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) */ /* local: global: eq_g0int_int$12$1(level=1) local: global: */ ATSstatic() /* imparg = tk(4694) tmparg = S2Evar(tk(4694)) tmpsub = Some(tk(4694) -> S2Eextkind(atstype_int)) */ atstkind_t0ype(atstype_bool) ATSLIB_056_prelude__eq_g0int_int__12__1(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) { /* tmpvardeclst(beg) */ ATStmpdec(tmpret18__1, atstkind_t0ype(atstype_bool)) ; ATStmpdec(tmp19__1, atstkind_t0ype(atstype_int)) ; /* tmpvardeclst(end) */ ATSfunbody_beg() /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) */ ATSINSflab(__patsflab_eq_g0int_int): /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) */ ATSINSmove(tmp19__1, atspre_g0int2int_int_int(arg1)) ; /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) */ ATSINSmove(tmpret18__1, atspre_g0int_eq_int(arg0, tmp19__1)) ; ATSfunbody_end() ATSreturn(tmpret18__1) ; } /* end of [ATSLIB_056_prelude__eq_g0int_int__12__1] */ /* /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 1164(line=49, offs=4) -- 1308(line=54, offs=6) */ /* local: witness_0$0(level=0) global: witness_0$0(level=0), sqrt_int_17$0(level=0) local: global: */ ATSstatic() atstkind_t0ype(atstype_int) sqrt_int_17(atstkind_t0ype(atstype_int) arg0) { /* tmpvardeclst(beg) */ ATStmpdec(tmpret24, atstkind_t0ype(atstype_int)) ; ATStmpdec(tmpref25, atstkind_t0ype(atstype_int)) ; ATStmpdec(tmp26, atstkind_t0ype(atstype_float)) ; ATStmpdec(tmp27, atstkind_t0ype(atstype_float)) ; /* tmpvardeclst(end) */ ATSfunbody_beg() /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 1164(line=49, offs=4) -- 1308(line=54, offs=6) */ ATSINSflab(__patsflab_sqrt_int_17): /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 1214(line=50, offs=3) -- 1308(line=54, offs=6) */ /* letpush(beg) */ /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 1226(line=51, offs=9) -- 1231(line=51, offs=14) */ /* ATSINStmpdec(tmpref25) ; */ /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 1262(line=51, offs=45) -- 1275(line=51, offs=58) */ ATSINSmove(tmp27, atspre_g0int2float_int_float(arg0)) ; /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 1251(line=51, offs=34) -- 1277(line=51, offs=60) */ ATSINSmove(tmp26, atslib_libats_libc_sqrt_float(tmp27)) ; /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 1239(line=51, offs=22) -- 1278(line=51, offs=61) */ ATSINSmove(tmpref25, atspre_g0float2int_float_int(tmp26)) ; /* letpush(end) */ /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 1288(line=53, offs=5) -- 1301(line=53, offs=18) */ ATSINSmove(tmpret24, witness_0(tmpref25)) ; /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 1214(line=50, offs=3) -- 1308(line=54, offs=6) */ /* INSletpop() */ ATSfunbody_end() ATSreturn(tmpret24) ; } /* end of [sqrt_int_17] */ /* /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 1344(line=57, offs=4) -- 1929(line=80, offs=10) */ /* local: sqrt_int_17$0(level=0) global: witness_0$0(level=0), sqrt_int_17$0(level=0), is_prime_20$0(level=0) local: global: */ ATSstatic() atstkind_t0ype(atstype_bool) is_prime_20(atstkind_t0ype(atstype_int) arg0) { /* tmpvardeclst(beg) */ ATStmpdec(tmpret28, atstkind_t0ype(atstype_bool)) ; ATStmpdec(tmp49, atstkind_t0ype(atstype_int)) ; /* tmpvardeclst(end) */ ATSfunbody_beg() /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 1344(line=57, offs=4) -- 1929(line=80, offs=10) */ ATSINSflab(__patsflab_is_prime_20): /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 1380(line=58, offs=3) -- 1929(line=80, offs=10) */ ATScaseof_beg() /* ** ibranchlst-beg */ ATSbranch_beg() /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 1397(line=59, offs=7) -- 1398(line=59, offs=8) */ ATSINSlab(__atstmplab3): /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 1353(line=57, offs=13) -- 1354(line=57, offs=14) */ ATSifnthen(ATSCKpat_int(arg0, ATSPMVint(1))) { ATSINSgoto(__atstmplab5) ; } ; /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 1398(line=59, offs=8) -- 1398(line=59, offs=8) */ ATSINSlab(__atstmplab4): /* emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) */ /* ibranch-mbody: */ /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 1402(line=59, offs=12) -- 1407(line=59, offs=17) */ ATSINSmove(tmpret28, ATSPMVbool_false()) ; ATSbranch_end() ATSbranch_beg() /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 1415(line=60, offs=8) -- 1415(line=60, offs=8) */ ATSINSlab(__atstmplab5): /* emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) */ /* ibranch-mbody: */ /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 1440(line=62, offs=9) -- 1919(line=79, offs=12) */ /* letpush(beg) */ /* letpush(end) */ /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 1895(line=78, offs=19) -- 1905(line=78, offs=29) */ ATSINSmove(tmp49, sqrt_int_17(arg0)) ; /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 1887(line=78, offs=11) -- 1907(line=78, offs=31) */ ATSINSmove(tmpret28, loop_21(arg0, ATSPMVi0nt(2), tmp49)) ; /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 1440(line=62, offs=9) -- 1919(line=79, offs=12) */ /* INSletpop() */ ATSbranch_end() /* ** ibranchlst-end */ ATScaseof_end() ATSfunbody_end() ATSreturn(tmpret28) ; } /* end of [is_prime_20] */ /* /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 1458(line=63, offs=15) -- 1865(line=76, offs=21) */ /* local: loop_21$0(level=1) global: loop_21$0(level=1) local: k$5106(1)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))) global: k$5106(1)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))) */ ATSstatic() atstkind_t0ype(atstype_bool) loop_21(atstkind_t0ype(atstype_int) env0, atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) { /* tmpvardeclst(beg) */ ATStmpdec(apy0, atstkind_t0ype(atstype_int)) ; ATStmpdec(apy1, atstkind_t0ype(atstype_int)) ; ATStmpdec(tmpret29, atstkind_t0ype(atstype_bool)) ; ATStmpdec(tmp30, atstkind_t0ype(atstype_bool)) ; ATStmpdec(tmp35, atstkind_t0ype(atstype_bool)) ; ATStmpdec(tmp38, atstkind_t0ype(atstype_int)) ; ATStmpdec(tmp39, atstkind_t0ype(atstype_int)) ; ATStmpdec(tmp40, atstkind_t0ype(atstype_bool)) ; ATStmpdec(tmp45, atstkind_t0ype(atstype_bool)) ; ATStmpdec(tmp48, atstkind_t0ype(atstype_int)) ; /* tmpvardeclst(end) */ /* emit_funent_fnxdeclst: */ ATSfunbody_beg() /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 1458(line=63, offs=15) -- 1865(line=76, offs=21) */ ATSINSflab(__patsflab_loop_21): /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 1552(line=64, offs=16) -- 1561(line=64, offs=25) */ ATSINSmove(tmp30, ATSLIB_056_prelude__lt_g1int_int__22__1(arg0, arg1)) ; /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 1549(line=64, offs=13) -- 1865(line=76, offs=21) */ ATSif( tmp30 ) ATSthen() { /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 1584(line=65, offs=18) -- 1589(line=65, offs=23) */ ATSINSmove(tmp38, atspre_g0int_mod_int(env0, arg0)) ; /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 1584(line=65, offs=18) -- 1593(line=65, offs=27) */ ATSINSmove(tmp35, ATSLIB_056_prelude__eq_g0int_int__12__2(tmp38, ATSPMVi0nt(0))) ; /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 1581(line=65, offs=15) -- 1674(line=68, offs=35) */ ATSif( tmp35 ) ATSthen() { /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 1615(line=66, offs=17) -- 1620(line=66, offs=22) */ ATSINSmove(tmpret29, ATSPMVbool_false()) ; } ATSelse() { /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 1661(line=68, offs=22) -- 1666(line=68, offs=27) */ ATSINSmove(tmp39, atspre_g1int_add_int(arg0, ATSPMVi0nt(1))) ; /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 1656(line=68, offs=17) -- 1674(line=68, offs=35) */ ATStailcal_beg() ATSINSmove_tlcal(apy0, tmp39) ; ATSINSmove_tlcal(apy1, arg1) ; ATSINSargmove_tlcal(arg0, apy0) ; ATSINSargmove_tlcal(arg1, apy1) ; ATSINSfgoto(__patsflab_loop_21) ; ATStailcal_end() } /* ATSendif */ } ATSelse() { /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 1709(line=70, offs=18) -- 1718(line=70, offs=27) */ ATSINSmove(tmp40, ATSLIB_056_prelude__eq_g1int_int__26__1(arg0, arg1)) ; /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 1706(line=70, offs=15) -- 1865(line=76, offs=21) */ ATSif( tmp40 ) ATSthen() { /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 1743(line=71, offs=20) -- 1748(line=71, offs=25) */ ATSINSmove(tmp48, atspre_g0int_mod_int(env0, arg0)) ; /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 1743(line=71, offs=20) -- 1752(line=71, offs=29) */ ATSINSmove(tmp45, ATSLIB_056_prelude__eq_g0int_int__12__3(tmp48, ATSPMVi0nt(0))) ; /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 1740(line=71, offs=17) -- 1825(line=74, offs=23) */ ATSif( tmp45 ) ATSthen() { /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 1776(line=72, offs=19) -- 1781(line=72, offs=24) */ ATSINSmove(tmpret29, ATSPMVbool_false()) ; } ATSelse() { /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 1821(line=74, offs=19) -- 1825(line=74, offs=23) */ ATSINSmove(tmpret29, ATSPMVbool_true()) ; } /* ATSendif */ } ATSelse() { /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 1861(line=76, offs=17) -- 1865(line=76, offs=21) */ ATSINSmove(tmpret29, ATSPMVbool_true()) ; } /* ATSendif */ } /* ATSendif */ ATSfunbody_end() ATSreturn(tmpret29) ; /* emit_funent_fnxbodylst: */ } /* end of [loop_21] */ #if(0) /* /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 12520(line=650, offs=3) -- 12559(line=650, offs=42) */ /* local: global: lt_g1int_int$22$0(level=0) local: global: */ ATSextern() /* imparg = tk(4697) tmparg = S2Evar(tk(4697)) tmpsub = None() */ atstkind_t0ype(atstype_bool) ATSLIB_056_prelude__lt_g1int_int__22(atstkind_t0ype(atstyvar_type(tk)) arg0, atstkind_t0ype(atstype_int) arg1) { /* tmpvardeclst(beg) */ ATStmpdec(tmpret31, atstkind_t0ype(atstype_bool)) ; ATStmpdec(tmp32, atstkind_t0ype(atstyvar_type(tk))) ; /* tmpvardeclst(end) */ ATSfunbody_beg() /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12505(line=649, offs=1) -- 12559(line=650, offs=42) */ ATSINSflab(__patsflab_lt_g1int_int): /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12546(line=650, offs=29) -- 12557(line=650, offs=40) */ ATSINSmove(tmp32, PMVtmpltcst(g1int2int)(arg1)) ; /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12529(line=650, offs=12) -- 12559(line=650, offs=42) */ ATSINSmove(tmpret31, PMVtmpltcst(g1int_lt)(arg0, tmp32)) ; ATSfunbody_end() ATSreturn(tmpret31) ; } /* end of [ATSLIB_056_prelude__lt_g1int_int__22] */ #endif // end of [TEMPLATE] /* /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 12520(line=650, offs=3) -- 12559(line=650, offs=42) */ /* local: global: lt_g1int_int$22$1(level=2) local: global: */ ATSstatic() /* imparg = tk(4697) tmparg = S2Evar(tk(4697)) tmpsub = Some(tk(4697) -> S2Eextkind(atstype_int)) */ atstkind_t0ype(atstype_bool) ATSLIB_056_prelude__lt_g1int_int__22__1(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) { /* tmpvardeclst(beg) */ ATStmpdec(tmpret31__1, atstkind_t0ype(atstype_bool)) ; ATStmpdec(tmp32__1, atstkind_t0ype(atstype_int)) ; /* tmpvardeclst(end) */ ATSfunbody_beg() /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12505(line=649, offs=1) -- 12559(line=650, offs=42) */ ATSINSflab(__patsflab_lt_g1int_int): /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12546(line=650, offs=29) -- 12557(line=650, offs=40) */ ATSINSmove(tmp32__1, atspre_g1int2int_int_int(arg1)) ; /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12529(line=650, offs=12) -- 12559(line=650, offs=42) */ ATSINSmove(tmpret31__1, atspre_g1int_lt_int(arg0, tmp32__1)) ; ATSfunbody_end() ATSreturn(tmpret31__1) ; } /* end of [ATSLIB_056_prelude__lt_g1int_int__22__1] */ /* /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) */ /* local: global: eq_g0int_int$12$2(level=2) local: global: */ ATSstatic() /* imparg = tk(4694) tmparg = S2Evar(tk(4694)) tmpsub = Some(tk(4694) -> S2Eextkind(atstype_int)) */ atstkind_t0ype(atstype_bool) ATSLIB_056_prelude__eq_g0int_int__12__2(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) { /* tmpvardeclst(beg) */ ATStmpdec(tmpret18__2, atstkind_t0ype(atstype_bool)) ; ATStmpdec(tmp19__2, atstkind_t0ype(atstype_int)) ; /* tmpvardeclst(end) */ ATSfunbody_beg() /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) */ ATSINSflab(__patsflab_eq_g0int_int): /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) */ ATSINSmove(tmp19__2, atspre_g0int2int_int_int(arg1)) ; /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) */ ATSINSmove(tmpret18__2, atspre_g0int_eq_int(arg0, tmp19__2)) ; ATSfunbody_end() ATSreturn(tmpret18__2) ; } /* end of [ATSLIB_056_prelude__eq_g0int_int__12__2] */ #if(0) /* /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 12838(line=668, offs=3) -- 12877(line=668, offs=42) */ /* local: global: eq_g1int_int$26$0(level=0) local: global: */ ATSextern() /* imparg = tk(4709) tmparg = S2Evar(tk(4709)) tmpsub = None() */ atstkind_t0ype(atstype_bool) ATSLIB_056_prelude__eq_g1int_int__26(atstkind_t0ype(atstyvar_type(tk)) arg0, atstkind_t0ype(atstype_int) arg1) { /* tmpvardeclst(beg) */ ATStmpdec(tmpret41, atstkind_t0ype(atstype_bool)) ; ATStmpdec(tmp42, atstkind_t0ype(atstyvar_type(tk))) ; /* tmpvardeclst(end) */ ATSfunbody_beg() /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12823(line=667, offs=1) -- 12877(line=668, offs=42) */ ATSINSflab(__patsflab_eq_g1int_int): /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12864(line=668, offs=29) -- 12875(line=668, offs=40) */ ATSINSmove(tmp42, PMVtmpltcst(g1int2int)(arg1)) ; /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12847(line=668, offs=12) -- 12877(line=668, offs=42) */ ATSINSmove(tmpret41, PMVtmpltcst(g1int_eq)(arg0, tmp42)) ; ATSfunbody_end() ATSreturn(tmpret41) ; } /* end of [ATSLIB_056_prelude__eq_g1int_int__26] */ #endif // end of [TEMPLATE] /* /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 12838(line=668, offs=3) -- 12877(line=668, offs=42) */ /* local: global: eq_g1int_int$26$1(level=2) local: global: */ ATSstatic() /* imparg = tk(4709) tmparg = S2Evar(tk(4709)) tmpsub = Some(tk(4709) -> S2Eextkind(atstype_int)) */ atstkind_t0ype(atstype_bool) ATSLIB_056_prelude__eq_g1int_int__26__1(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) { /* tmpvardeclst(beg) */ ATStmpdec(tmpret41__1, atstkind_t0ype(atstype_bool)) ; ATStmpdec(tmp42__1, atstkind_t0ype(atstype_int)) ; /* tmpvardeclst(end) */ ATSfunbody_beg() /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12823(line=667, offs=1) -- 12877(line=668, offs=42) */ ATSINSflab(__patsflab_eq_g1int_int): /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12864(line=668, offs=29) -- 12875(line=668, offs=40) */ ATSINSmove(tmp42__1, atspre_g1int2int_int_int(arg1)) ; /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12847(line=668, offs=12) -- 12877(line=668, offs=42) */ ATSINSmove(tmpret41__1, atspre_g1int_eq_int(arg0, tmp42__1)) ; ATSfunbody_end() ATSreturn(tmpret41__1) ; } /* end of [ATSLIB_056_prelude__eq_g1int_int__26__1] */ /* /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) */ /* local: global: eq_g0int_int$12$3(level=2) local: global: */ ATSstatic() /* imparg = tk(4694) tmparg = S2Evar(tk(4694)) tmpsub = Some(tk(4694) -> S2Eextkind(atstype_int)) */ atstkind_t0ype(atstype_bool) ATSLIB_056_prelude__eq_g0int_int__12__3(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) { /* tmpvardeclst(beg) */ ATStmpdec(tmpret18__3, atstkind_t0ype(atstype_bool)) ; ATStmpdec(tmp19__3, atstkind_t0ype(atstype_int)) ; /* tmpvardeclst(end) */ ATSfunbody_beg() /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) */ ATSINSflab(__patsflab_eq_g0int_int): /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) */ ATSINSmove(tmp19__3, atspre_g0int2int_int_int(arg1)) ; /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) */ ATSINSmove(tmpret18__3, atspre_g0int_eq_int(arg0, tmp19__3)) ; ATSfunbody_end() ATSreturn(tmpret18__3) ; } /* end of [ATSLIB_056_prelude__eq_g0int_int__12__3] */ /* /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 519(line=20, offs=4) -- 567(line=21, offs=12) */ /* local: global: divides_30$0(level=0) local: global: */ ATSstatic() atstkind_t0ype(atstype_bool) divides_30(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) { /* tmpvardeclst(beg) */ ATStmpdec(tmpret50, atstkind_t0ype(atstype_bool)) ; ATStmpdec(tmp53, atstkind_t0ype(atstype_int)) ; /* tmpvardeclst(end) */ ATSfunbody_beg() /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 519(line=20, offs=4) -- 567(line=21, offs=12) */ ATSINSflab(__patsflab_divides_30): /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 558(line=21, offs=3) -- 563(line=21, offs=8) */ ATSINSmove(tmp53, atspre_g0int_mod_int(arg1, arg0)) ; /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 558(line=21, offs=3) -- 567(line=21, offs=12) */ ATSINSmove(tmpret50, ATSLIB_056_prelude__eq_g0int_int__12__4(tmp53, ATSPMVi0nt(0))) ; ATSfunbody_end() ATSreturn(tmpret50) ; } /* end of [divides_30] */ /* /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) */ /* local: global: eq_g0int_int$12$4(level=1) local: global: */ ATSstatic() /* imparg = tk(4694) tmparg = S2Evar(tk(4694)) tmpsub = Some(tk(4694) -> S2Eextkind(atstype_int)) */ atstkind_t0ype(atstype_bool) ATSLIB_056_prelude__eq_g0int_int__12__4(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) { /* tmpvardeclst(beg) */ ATStmpdec(tmpret18__4, atstkind_t0ype(atstype_bool)) ; ATStmpdec(tmp19__4, atstkind_t0ype(atstype_int)) ; /* tmpvardeclst(end) */ ATSfunbody_beg() /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) */ ATSINSflab(__patsflab_eq_g0int_int): /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) */ ATSINSmove(tmp19__4, atspre_g0int2int_int_int(arg1)) ; /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) */ ATSINSmove(tmpret18__4, atspre_g0int_eq_int(arg0, tmp19__4)) ; ATSfunbody_end() ATSreturn(tmpret18__4) ; } /* end of [ATSLIB_056_prelude__eq_g0int_int__12__4] */ /* /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 573(line=23, offs=5) -- 684(line=27, offs=6) */ /* local: witness_0$0(level=0), gcd_32$0(level=0) global: witness_0$0(level=0), gcd_32$0(level=0) local: global: */ ATSstatic() atstkind_t0ype(atstype_int) gcd_32(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) { /* tmpvardeclst(beg) */ ATStmpdec(apy0, atstkind_t0ype(atstype_int)) ; ATStmpdec(apy1, atstkind_t0ype(atstype_int)) ; ATStmpdec(tmpret54, atstkind_t0ype(atstype_int)) ; ATStmpdec(tmp55, atstkind_t0ype(atstype_bool)) ; ATStmpdec(tmp58, atstkind_t0ype(atstype_int)) ; ATStmpdec(tmp59, atstkind_t0ype(atstype_int)) ; /* tmpvardeclst(end) */ /* emit_funent_fnxdeclst: */ ATSfunbody_beg() /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 573(line=23, offs=5) -- 684(line=27, offs=6) */ ATSINSflab(__patsflab_gcd_32): /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 634(line=24, offs=6) -- 639(line=24, offs=11) */ ATSINSmove(tmp55, ATSLIB_056_prelude__gt_g1int_int__6__2(arg1, ATSPMVi0nt(0))) ; /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 631(line=24, offs=3) -- 684(line=27, offs=6) */ ATSif( tmp55 ) ATSthen() { /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 664(line=25, offs=20) -- 669(line=25, offs=25) */ ATSINSmove(tmp59, atspre_g0int_mod_int(arg0, arg1)) ; /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 656(line=25, offs=12) -- 670(line=25, offs=26) */ ATSINSmove(tmp58, witness_0(tmp59)) ; /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 649(line=25, offs=5) -- 671(line=25, offs=27) */ ATStailcal_beg() ATSINSmove_tlcal(apy0, arg1) ; ATSINSmove_tlcal(apy1, tmp58) ; ATSINSargmove_tlcal(arg0, apy0) ; ATSINSargmove_tlcal(arg1, apy1) ; ATSINSfgoto(__patsflab_gcd_32) ; ATStailcal_end() } ATSelse() { /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 683(line=27, offs=5) -- 684(line=27, offs=6) */ ATSINSmove(tmpret54, arg0) ; } /* ATSendif */ ATSfunbody_end() ATSreturn(tmpret54) ; /* emit_funent_fnxbodylst: */ } /* end of [gcd_32] */ /* /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 12679(line=659, offs=3) -- 12718(line=659, offs=42) */ /* local: global: gt_g1int_int$6$2(level=1) local: global: */ ATSstatic() /* imparg = tk(4703) tmparg = S2Evar(tk(4703)) tmpsub = Some(tk(4703) -> S2Eextkind(atstype_int)) */ atstkind_t0ype(atstype_bool) ATSLIB_056_prelude__gt_g1int_int__6__2(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) { /* tmpvardeclst(beg) */ ATStmpdec(tmpret11__2, atstkind_t0ype(atstype_bool)) ; ATStmpdec(tmp12__2, atstkind_t0ype(atstype_int)) ; /* tmpvardeclst(end) */ ATSfunbody_beg() /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12664(line=658, offs=1) -- 12718(line=659, offs=42) */ ATSINSflab(__patsflab_gt_g1int_int): /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12705(line=659, offs=29) -- 12716(line=659, offs=40) */ ATSINSmove(tmp12__2, atspre_g1int2int_int_int(arg1)) ; /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12688(line=659, offs=12) -- 12718(line=659, offs=42) */ ATSINSmove(tmpret11__2, atspre_g1int_gt_int(arg0, tmp12__2)) ; ATSfunbody_end() ATSreturn(tmpret11__2) ; } /* end of [ATSLIB_056_prelude__gt_g1int_int__6__2] */ /* /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 689(line=29, offs=4) -- 766(line=30, offs=22) */ /* local: gcd_32$0(level=0) global: witness_0$0(level=0), gcd_32$0(level=0), lcm_34$0(level=0) local: global: */ ATSstatic() atstkind_t0ype(atstype_int) lcm_34(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) { /* tmpvardeclst(beg) */ ATStmpdec(tmpret60, atstkind_t0ype(atstype_int)) ; ATStmpdec(tmp61, atstkind_t0ype(atstype_int)) ; ATStmpdec(tmp62, atstkind_t0ype(atstype_int)) ; /* tmpvardeclst(end) */ ATSfunbody_beg() /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 689(line=29, offs=4) -- 766(line=30, offs=22) */ ATSINSflab(__patsflab_lcm_34): /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 752(line=30, offs=8) -- 761(line=30, offs=17) */ ATSINSmove(tmp62, gcd_32(arg0, arg1)) ; /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 748(line=30, offs=4) -- 761(line=30, offs=17) */ ATSINSmove(tmp61, atspre_g0int_div_int(arg0, tmp62)) ; /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 747(line=30, offs=3) -- 766(line=30, offs=22) */ ATSINSmove(tmpret60, atspre_g0int_mul_int(tmp61, arg1)) ; ATSfunbody_end() ATSreturn(tmpret60) ; } /* end of [lcm_34] */ /* /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 809(line=33, offs=4) -- 1217(line=45, offs=6) */ /* local: global: divisors_36$0(level=0) local: global: */ ATSstatic() atstkind_type(atstype_ptrk) divisors_36(atstkind_t0ype(atstype_int) arg0) { /* tmpvardeclst(beg) */ ATStmpdec(tmpret63, atstkind_type(atstype_ptrk)) ; /* tmpvardeclst(end) */ ATSfunbody_beg() /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 809(line=33, offs=4) -- 1217(line=45, offs=6) */ ATSINSflab(__patsflab_divisors_36): /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 856(line=34, offs=3) -- 1217(line=45, offs=6) */ /* letpush(beg) */ /* letpush(end) */ /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1201(line=44, offs=5) -- 1211(line=44, offs=15) */ ATSINSmove(tmpret63, loop_37(arg0, ATSPMVi0nt(1))) ; /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 856(line=34, offs=3) -- 1217(line=45, offs=6) */ /* INSletpop() */ ATSfunbody_end() ATSreturn(tmpret63) ; } /* end of [divisors_36] */ /* /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 868(line=35, offs=9) -- 1191(line=42, offs=33) */ /* local: loop_37$0(level=1) global: loop_37$0(level=1) local: global: */ ATSstatic() atstkind_type(atstype_ptrk) loop_37(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) { /* tmpvardeclst(beg) */ ATStmpdec(tmpret64, atstkind_type(atstype_ptrk)) ; ATStmpdec(tmp65, atstkind_t0ype(atstype_bool)) ; ATStmpdec(tmp73, atstkind_t0ype(atstype_bool)) ; ATStmpdec(tmp76, atstkind_t0ype(atstype_int)) ; /* tmpvardeclst(end) */ ATSfunbody_beg() /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 868(line=35, offs=9) -- 1191(line=42, offs=33) */ ATSINSflab(__patsflab_loop_37): /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 977(line=36, offs=10) -- 985(line=36, offs=18) */ ATSINSmove(tmp65, ATSLIB_056_prelude__gte_g1int_int__38__1(arg1, arg0)) ; /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 974(line=36, offs=7) -- 1191(line=42, offs=33) */ ATSif( tmp65 ) ATSthen() { /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 999(line=37, offs=9) -- 1051(line=37, offs=61) */ ATSINSmove_ldelay(tmpret64, atstype_boxed, ATSPMVcfunlab(1, __patsfun_41, (arg1))) ; } ATSelse() { /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1074(line=39, offs=12) -- 1081(line=39, offs=19) */ ATSINSmove(tmp76, atspre_g0int_mod_int(arg0, arg1)) ; /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1074(line=39, offs=12) -- 1085(line=39, offs=23) */ ATSINSmove(tmp73, ATSLIB_056_prelude__eq_g0int_int__12__5(tmp76, ATSPMVi0nt(0))) ; /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1071(line=39, offs=9) -- 1191(line=42, offs=33) */ ATSif( tmp73 ) ATSthen() { /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1101(line=40, offs=11) -- 1145(line=40, offs=55) */ ATSINSmove_ldelay(tmpret64, atstype_boxed, ATSPMVcfunlab(1, __patsfun_44, (arg0, arg1))) ; } ATSelse() { /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1169(line=42, offs=11) -- 1191(line=42, offs=33) */ ATSINSmove_ldelay(tmpret64, atstype_boxed, ATSPMVcfunlab(1, __patsfun_45, ())) ; } /* ATSendif */ } /* ATSendif */ ATSfunbody_end() ATSreturn(tmpret64) ; } /* end of [loop_37] */ #if(0) /* /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 12757(line=663, offs=3) -- 12797(line=663, offs=43) */ /* local: global: gte_g1int_int$38$0(level=0) local: global: */ ATSextern() /* imparg = tk(4706) tmparg = S2Evar(tk(4706)) tmpsub = None() */ atstkind_t0ype(atstype_bool) ATSLIB_056_prelude__gte_g1int_int__38(atstkind_t0ype(atstyvar_type(tk)) arg0, atstkind_t0ype(atstype_int) arg1) { /* tmpvardeclst(beg) */ ATStmpdec(tmpret66, atstkind_t0ype(atstype_bool)) ; ATStmpdec(tmp67, atstkind_t0ype(atstyvar_type(tk))) ; /* tmpvardeclst(end) */ ATSfunbody_beg() /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12741(line=662, offs=1) -- 12797(line=663, offs=43) */ ATSINSflab(__patsflab_gte_g1int_int): /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12784(line=663, offs=30) -- 12795(line=663, offs=41) */ ATSINSmove(tmp67, PMVtmpltcst(g1int2int)(arg1)) ; /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12766(line=663, offs=12) -- 12797(line=663, offs=43) */ ATSINSmove(tmpret66, PMVtmpltcst(g1int_gte)(arg0, tmp67)) ; ATSfunbody_end() ATSreturn(tmpret66) ; } /* end of [ATSLIB_056_prelude__gte_g1int_int__38] */ #endif // end of [TEMPLATE] /* /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 12757(line=663, offs=3) -- 12797(line=663, offs=43) */ /* local: global: gte_g1int_int$38$1(level=2) local: global: */ ATSstatic() /* imparg = tk(4706) tmparg = S2Evar(tk(4706)) tmpsub = Some(tk(4706) -> S2Eextkind(atstype_int)) */ atstkind_t0ype(atstype_bool) ATSLIB_056_prelude__gte_g1int_int__38__1(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) { /* tmpvardeclst(beg) */ ATStmpdec(tmpret66__1, atstkind_t0ype(atstype_bool)) ; ATStmpdec(tmp67__1, atstkind_t0ype(atstype_int)) ; /* tmpvardeclst(end) */ ATSfunbody_beg() /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12741(line=662, offs=1) -- 12797(line=663, offs=43) */ ATSINSflab(__patsflab_gte_g1int_int): /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12784(line=663, offs=30) -- 12795(line=663, offs=41) */ ATSINSmove(tmp67__1, atspre_g1int2int_int_int(arg1)) ; /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12766(line=663, offs=12) -- 12797(line=663, offs=43) */ ATSINSmove(tmpret66__1, atspre_g1int_gte_int(arg0, tmp67__1)) ; ATSfunbody_end() ATSreturn(tmpret66__1) ; } /* end of [ATSLIB_056_prelude__gte_g1int_int__38__1] */ /* /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 999(line=37, offs=9) -- 1051(line=37, offs=61) */ /* local: global: __patsfun_41$0(level=2) local: acc$5123(2)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))) global: acc$5123(2)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))) */ ATSstatic() atstype_boxed __patsfun_41(atstkind_t0ype(atstype_int) env0, atstype_bool arg0) { /* tmpvardeclst(beg) */ ATStmpdec(tmpret70, atstype_boxed) ; ATStmpdec(tmp71, atstkind_type(atstype_ptrk)) ; /* tmpvardeclst(end) */ ATSfunbody_beg() /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 999(line=37, offs=9) -- 1051(line=37, offs=61) */ ATSINSflab(__patsflab___patsfun_41): /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 999(line=37, offs=9) -- 1051(line=37, offs=61) */ ATSif( arg0 ) ATSthen() { /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1027(line=37, offs=37) -- 1049(line=37, offs=59) */ ATSINSmove_ldelay(tmp71, atstype_boxed, ATSPMVcfunlab(1, __patsfun_42, ())) ; /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1007(line=37, offs=17) -- 1050(line=37, offs=60) */ /* #LINCONSTATUS==0 */ ATSINSmove_con1_beg() ATSINSmove_con1_new(tmpret70, postiats_tysum_0) ; #if(0) ATSINSstore_con1_tag(tmpret70, 1) ; #endif ATSINSstore_con1_ofs(tmpret70, postiats_tysum_0, atslab__0, env0) ; ATSINSstore_con1_ofs(tmpret70, postiats_tysum_0, atslab__1, tmp71) ; ATSINSmove_con1_end() } ATSelse() { /* (*nothing*) */ } /* ATSendif */ ATSfunbody_end() ATSreturn(tmpret70) ; } /* end of [__patsfun_41] */ /* /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1027(line=37, offs=37) -- 1049(line=37, offs=59) */ /* local: global: __patsfun_42$0(level=3) local: global: */ ATSstatic() atstype_boxed __patsfun_42(atstype_bool arg0) { /* tmpvardeclst(beg) */ ATStmpdec(tmpret72, atstype_boxed) ; /* tmpvardeclst(end) */ ATSfunbody_beg() /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1027(line=37, offs=37) -- 1049(line=37, offs=59) */ ATSINSflab(__patsflab___patsfun_42): /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1027(line=37, offs=37) -- 1049(line=37, offs=59) */ ATSif( arg0 ) ATSthen() { /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1035(line=37, offs=45) -- 1048(line=37, offs=58) */ ATSINSmove_nil(tmpret72) ; } ATSelse() { /* (*nothing*) */ } /* ATSendif */ ATSfunbody_end() ATSreturn(tmpret72) ; } /* end of [__patsfun_42] */ /* /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) */ /* local: global: eq_g0int_int$12$5(level=2) local: global: */ ATSstatic() /* imparg = tk(4694) tmparg = S2Evar(tk(4694)) tmpsub = Some(tk(4694) -> S2Eextkind(atstype_int)) */ atstkind_t0ype(atstype_bool) ATSLIB_056_prelude__eq_g0int_int__12__5(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) { /* tmpvardeclst(beg) */ ATStmpdec(tmpret18__5, atstkind_t0ype(atstype_bool)) ; ATStmpdec(tmp19__5, atstkind_t0ype(atstype_int)) ; /* tmpvardeclst(end) */ ATSfunbody_beg() /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) */ ATSINSflab(__patsflab_eq_g0int_int): /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) */ ATSINSmove(tmp19__5, atspre_g0int2int_int_int(arg1)) ; /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) */ ATSINSmove(tmpret18__5, atspre_g0int_eq_int(arg0, tmp19__5)) ; ATSfunbody_end() ATSreturn(tmpret18__5) ; } /* end of [ATSLIB_056_prelude__eq_g0int_int__12__5] */ /* /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1101(line=40, offs=11) -- 1145(line=40, offs=55) */ /* local: loop_37$0(level=1) global: loop_37$0(level=1), __patsfun_44$0(level=2) local: n$5122(2)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))), acc$5123(2)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))) global: n$5122(2)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))), acc$5123(2)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))) */ ATSstatic() atstype_boxed __patsfun_44(atstkind_t0ype(atstype_int) env0, atstkind_t0ype(atstype_int) env1, atstype_bool arg0) { /* tmpvardeclst(beg) */ ATStmpdec(tmpret77, atstype_boxed) ; ATStmpdec(tmp78, atstkind_type(atstype_ptrk)) ; ATStmpdec(tmp79, atstkind_t0ype(atstype_int)) ; /* tmpvardeclst(end) */ ATSfunbody_beg() /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1101(line=40, offs=11) -- 1145(line=40, offs=55) */ ATSINSflab(__patsflab___patsfun_44): /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1101(line=40, offs=11) -- 1145(line=40, offs=55) */ ATSif( arg0 ) ATSthen() { /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1135(line=40, offs=45) -- 1142(line=40, offs=52) */ ATSINSmove(tmp79, atspre_g1int_add_int(env1, ATSPMVi0nt(1))) ; /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1127(line=40, offs=37) -- 1143(line=40, offs=53) */ ATSINSmove(tmp78, loop_37(env0, tmp79)) ; /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1109(line=40, offs=19) -- 1144(line=40, offs=54) */ /* #LINCONSTATUS==0 */ ATSINSmove_con1_beg() ATSINSmove_con1_new(tmpret77, postiats_tysum_0) ; #if(0) ATSINSstore_con1_tag(tmpret77, 1) ; #endif ATSINSstore_con1_ofs(tmpret77, postiats_tysum_0, atslab__0, env0) ; ATSINSstore_con1_ofs(tmpret77, postiats_tysum_0, atslab__1, tmp78) ; ATSINSmove_con1_end() } ATSelse() { /* (*nothing*) */ } /* ATSendif */ ATSfunbody_end() ATSreturn(tmpret77) ; } /* end of [__patsfun_44] */ /* /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1169(line=42, offs=11) -- 1191(line=42, offs=33) */ /* local: global: __patsfun_45$0(level=2) local: global: */ ATSstatic() atstype_boxed __patsfun_45(atstype_bool arg0) { /* tmpvardeclst(beg) */ ATStmpdec(tmpret80, atstype_boxed) ; /* tmpvardeclst(end) */ ATSfunbody_beg() /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1169(line=42, offs=11) -- 1191(line=42, offs=33) */ ATSINSflab(__patsflab___patsfun_45): /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1169(line=42, offs=11) -- 1191(line=42, offs=33) */ ATSif( arg0 ) ATSthen() { /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1177(line=42, offs=19) -- 1190(line=42, offs=32) */ ATSINSmove_nil(tmpret80) ; } ATSelse() { /* (*nothing*) */ } /* ATSendif */ ATSfunbody_end() ATSreturn(tmpret80) ; } /* end of [__patsfun_45] */ /* /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1288(line=48, offs=4) -- 1717(line=60, offs=6) */ /* local: is_prime_20$0(level=0) global: witness_0$0(level=0), sqrt_int_17$0(level=0), is_prime_20$0(level=0), prime_divisors_46$0(level=0) local: global: */ ATSstatic() atstkind_type(atstype_ptrk) prime_divisors_46(atstkind_t0ype(atstype_int) arg0) { /* tmpvardeclst(beg) */ ATStmpdec(tmpret81, atstkind_type(atstype_ptrk)) ; /* tmpvardeclst(end) */ ATSfunbody_beg() /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1288(line=48, offs=4) -- 1717(line=60, offs=6) */ ATSINSflab(__patsflab_prime_divisors_46): /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1341(line=49, offs=3) -- 1717(line=60, offs=6) */ /* letpush(beg) */ /* letpush(end) */ /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1701(line=59, offs=5) -- 1711(line=59, offs=15) */ ATSINSmove(tmpret81, loop_47(arg0, ATSPMVi0nt(1))) ; /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1341(line=49, offs=3) -- 1717(line=60, offs=6) */ /* INSletpop() */ ATSfunbody_end() ATSreturn(tmpret81) ; } /* end of [prime_divisors_46] */ /* /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1353(line=50, offs=9) -- 1691(line=57, offs=33) */ /* local: is_prime_20$0(level=0), loop_47$0(level=1) global: is_prime_20$0(level=0), loop_47$0(level=1) local: global: */ ATSstatic() atstkind_type(atstype_ptrk) loop_47(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) { /* tmpvardeclst(beg) */ ATStmpdec(tmpret82, atstkind_type(atstype_ptrk)) ; ATStmpdec(tmp83, atstkind_t0ype(atstype_bool)) ; ATStmpdec(tmp89, atstkind_t0ype(atstype_bool)) ; ATStmpdec(tmp90, atstkind_t0ype(atstype_bool)) ; ATStmpdec(tmp93, atstkind_t0ype(atstype_int)) ; /* tmpvardeclst(end) */ ATSfunbody_beg() /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1353(line=50, offs=9) -- 1691(line=57, offs=33) */ ATSINSflab(__patsflab_loop_47): /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1462(line=51, offs=10) -- 1470(line=51, offs=18) */ ATSINSmove(tmp83, ATSLIB_056_prelude__gte_g1int_int__38__2(arg1, arg0)) ; /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1459(line=51, offs=7) -- 1691(line=57, offs=33) */ ATSif( tmp83 ) ATSthen() { /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1484(line=52, offs=9) -- 1536(line=52, offs=61) */ ATSINSmove_ldelay(tmpret82, atstype_boxed, ATSPMVcfunlab(1, __patsfun_49, (arg1))) ; } ATSelse() { /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1559(line=54, offs=12) -- 1584(line=54, offs=37) */ ATSINSmove(tmp93, atspre_g0int_mod_int(arg0, arg1)) ; /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1559(line=54, offs=12) -- 1584(line=54, offs=37) */ ATSINSmove(tmp90, ATSLIB_056_prelude__eq_g0int_int__12__6(tmp93, ATSPMVi0nt(0))) ; /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1559(line=54, offs=12) -- 1584(line=54, offs=37) */ ATSif( tmp90 ) ATSthen() { /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1559(line=54, offs=12) -- 1584(line=54, offs=37) */ ATSINSmove(tmp89, is_prime_20(arg0)) ; } ATSelse() { /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1559(line=54, offs=12) -- 1584(line=54, offs=37) */ ATSINSmove(tmp89, ATSPMVbool_false()) ; } /* ATSendif */ /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1556(line=54, offs=9) -- 1691(line=57, offs=33) */ ATSif( tmp89 ) ATSthen() { /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1601(line=55, offs=11) -- 1645(line=55, offs=55) */ ATSINSmove_ldelay(tmpret82, atstype_boxed, ATSPMVcfunlab(1, __patsfun_52, (arg0, arg1))) ; } ATSelse() { /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1669(line=57, offs=11) -- 1691(line=57, offs=33) */ ATSINSmove_ldelay(tmpret82, atstype_boxed, ATSPMVcfunlab(1, __patsfun_53, ())) ; } /* ATSendif */ } /* ATSendif */ ATSfunbody_end() ATSreturn(tmpret82) ; } /* end of [loop_47] */ /* /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 12757(line=663, offs=3) -- 12797(line=663, offs=43) */ /* local: global: gte_g1int_int$38$2(level=2) local: global: */ ATSstatic() /* imparg = tk(4706) tmparg = S2Evar(tk(4706)) tmpsub = Some(tk(4706) -> S2Eextkind(atstype_int)) */ atstkind_t0ype(atstype_bool) ATSLIB_056_prelude__gte_g1int_int__38__2(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) { /* tmpvardeclst(beg) */ ATStmpdec(tmpret66__2, atstkind_t0ype(atstype_bool)) ; ATStmpdec(tmp67__2, atstkind_t0ype(atstype_int)) ; /* tmpvardeclst(end) */ ATSfunbody_beg() /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12741(line=662, offs=1) -- 12797(line=663, offs=43) */ ATSINSflab(__patsflab_gte_g1int_int): /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12784(line=663, offs=30) -- 12795(line=663, offs=41) */ ATSINSmove(tmp67__2, atspre_g1int2int_int_int(arg1)) ; /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12766(line=663, offs=12) -- 12797(line=663, offs=43) */ ATSINSmove(tmpret66__2, atspre_g1int_gte_int(arg0, tmp67__2)) ; ATSfunbody_end() ATSreturn(tmpret66__2) ; } /* end of [ATSLIB_056_prelude__gte_g1int_int__38__2] */ /* /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1484(line=52, offs=9) -- 1536(line=52, offs=61) */ /* local: global: __patsfun_49$0(level=2) local: acc$5128(2)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))) global: acc$5128(2)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))) */ ATSstatic() atstype_boxed __patsfun_49(atstkind_t0ype(atstype_int) env0, atstype_bool arg0) { /* tmpvardeclst(beg) */ ATStmpdec(tmpret86, atstype_boxed) ; ATStmpdec(tmp87, atstkind_type(atstype_ptrk)) ; /* tmpvardeclst(end) */ ATSfunbody_beg() /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1484(line=52, offs=9) -- 1536(line=52, offs=61) */ ATSINSflab(__patsflab___patsfun_49): /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1484(line=52, offs=9) -- 1536(line=52, offs=61) */ ATSif( arg0 ) ATSthen() { /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1512(line=52, offs=37) -- 1534(line=52, offs=59) */ ATSINSmove_ldelay(tmp87, atstype_boxed, ATSPMVcfunlab(1, __patsfun_50, ())) ; /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1492(line=52, offs=17) -- 1535(line=52, offs=60) */ /* #LINCONSTATUS==0 */ ATSINSmove_con1_beg() ATSINSmove_con1_new(tmpret86, postiats_tysum_0) ; #if(0) ATSINSstore_con1_tag(tmpret86, 1) ; #endif ATSINSstore_con1_ofs(tmpret86, postiats_tysum_0, atslab__0, env0) ; ATSINSstore_con1_ofs(tmpret86, postiats_tysum_0, atslab__1, tmp87) ; ATSINSmove_con1_end() } ATSelse() { /* (*nothing*) */ } /* ATSendif */ ATSfunbody_end() ATSreturn(tmpret86) ; } /* end of [__patsfun_49] */ /* /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1512(line=52, offs=37) -- 1534(line=52, offs=59) */ /* local: global: __patsfun_50$0(level=3) local: global: */ ATSstatic() atstype_boxed __patsfun_50(atstype_bool arg0) { /* tmpvardeclst(beg) */ ATStmpdec(tmpret88, atstype_boxed) ; /* tmpvardeclst(end) */ ATSfunbody_beg() /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1512(line=52, offs=37) -- 1534(line=52, offs=59) */ ATSINSflab(__patsflab___patsfun_50): /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1512(line=52, offs=37) -- 1534(line=52, offs=59) */ ATSif( arg0 ) ATSthen() { /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1520(line=52, offs=45) -- 1533(line=52, offs=58) */ ATSINSmove_nil(tmpret88) ; } ATSelse() { /* (*nothing*) */ } /* ATSendif */ ATSfunbody_end() ATSreturn(tmpret88) ; } /* end of [__patsfun_50] */ /* /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) */ /* local: global: eq_g0int_int$12$6(level=2) local: global: */ ATSstatic() /* imparg = tk(4694) tmparg = S2Evar(tk(4694)) tmpsub = Some(tk(4694) -> S2Eextkind(atstype_int)) */ atstkind_t0ype(atstype_bool) ATSLIB_056_prelude__eq_g0int_int__12__6(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) { /* tmpvardeclst(beg) */ ATStmpdec(tmpret18__6, atstkind_t0ype(atstype_bool)) ; ATStmpdec(tmp19__6, atstkind_t0ype(atstype_int)) ; /* tmpvardeclst(end) */ ATSfunbody_beg() /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) */ ATSINSflab(__patsflab_eq_g0int_int): /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) */ ATSINSmove(tmp19__6, atspre_g0int2int_int_int(arg1)) ; /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) */ ATSINSmove(tmpret18__6, atspre_g0int_eq_int(arg0, tmp19__6)) ; ATSfunbody_end() ATSreturn(tmpret18__6) ; } /* end of [ATSLIB_056_prelude__eq_g0int_int__12__6] */ /* /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1601(line=55, offs=11) -- 1645(line=55, offs=55) */ /* local: loop_47$0(level=1) global: loop_47$0(level=1), __patsfun_52$0(level=2) local: n$5127(2)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))), acc$5128(2)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))) global: n$5127(2)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))), acc$5128(2)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))) */ ATSstatic() atstype_boxed __patsfun_52(atstkind_t0ype(atstype_int) env0, atstkind_t0ype(atstype_int) env1, atstype_bool arg0) { /* tmpvardeclst(beg) */ ATStmpdec(tmpret94, atstype_boxed) ; ATStmpdec(tmp95, atstkind_type(atstype_ptrk)) ; ATStmpdec(tmp96, atstkind_t0ype(atstype_int)) ; /* tmpvardeclst(end) */ ATSfunbody_beg() /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1601(line=55, offs=11) -- 1645(line=55, offs=55) */ ATSINSflab(__patsflab___patsfun_52): /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1601(line=55, offs=11) -- 1645(line=55, offs=55) */ ATSif( arg0 ) ATSthen() { /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1635(line=55, offs=45) -- 1642(line=55, offs=52) */ ATSINSmove(tmp96, atspre_g1int_add_int(env1, ATSPMVi0nt(1))) ; /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1627(line=55, offs=37) -- 1643(line=55, offs=53) */ ATSINSmove(tmp95, loop_47(env0, tmp96)) ; /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1609(line=55, offs=19) -- 1644(line=55, offs=54) */ /* #LINCONSTATUS==0 */ ATSINSmove_con1_beg() ATSINSmove_con1_new(tmpret94, postiats_tysum_0) ; #if(0) ATSINSstore_con1_tag(tmpret94, 1) ; #endif ATSINSstore_con1_ofs(tmpret94, postiats_tysum_0, atslab__0, env0) ; ATSINSstore_con1_ofs(tmpret94, postiats_tysum_0, atslab__1, tmp95) ; ATSINSmove_con1_end() } ATSelse() { /* (*nothing*) */ } /* ATSendif */ ATSfunbody_end() ATSreturn(tmpret94) ; } /* end of [__patsfun_52] */ /* /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1669(line=57, offs=11) -- 1691(line=57, offs=33) */ /* local: global: __patsfun_53$0(level=2) local: global: */ ATSstatic() atstype_boxed __patsfun_53(atstype_bool arg0) { /* tmpvardeclst(beg) */ ATStmpdec(tmpret97, atstype_boxed) ; /* tmpvardeclst(end) */ ATSfunbody_beg() /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1669(line=57, offs=11) -- 1691(line=57, offs=33) */ ATSINSflab(__patsflab___patsfun_53): /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1669(line=57, offs=11) -- 1691(line=57, offs=33) */ ATSif( arg0 ) ATSthen() { /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1677(line=57, offs=19) -- 1690(line=57, offs=32) */ ATSINSmove_nil(tmpret97) ; } ATSelse() { /* (*nothing*) */ } /* ATSendif */ ATSfunbody_end() ATSreturn(tmpret97) ; } /* end of [__patsfun_53] */ /* /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1722(line=62, offs=4) -- 2033(line=74, offs=6) */ /* local: global: count_divisors_54$0(level=0) local: global: */ ATSstatic() atstkind_t0ype(atstype_int) count_divisors_54(atstkind_t0ype(atstype_int) arg0) { /* tmpvardeclst(beg) */ ATStmpdec(tmpret98, atstkind_t0ype(atstype_int)) ; /* tmpvardeclst(end) */ ATSfunbody_beg() /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1722(line=62, offs=4) -- 2033(line=74, offs=6) */ ATSINSflab(__patsflab_count_divisors_54): /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1764(line=63, offs=3) -- 2033(line=74, offs=6) */ /* letpush(beg) */ /* letpush(end) */ /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2017(line=73, offs=5) -- 2027(line=73, offs=15) */ ATSINSmove(tmpret98, loop_55(arg0, ATSPMVi0nt(1))) ; /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1764(line=63, offs=3) -- 2033(line=74, offs=6) */ /* INSletpop() */ ATSfunbody_end() ATSreturn(tmpret98) ; } /* end of [count_divisors_54] */ /* /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1776(line=64, offs=9) -- 2007(line=71, offs=27) */ /* local: loop_55$0(level=1) global: loop_55$0(level=1) local: global: */ ATSstatic() atstkind_t0ype(atstype_int) loop_55(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) { /* tmpvardeclst(beg) */ ATStmpdec(apy0, atstkind_t0ype(atstype_int)) ; ATStmpdec(apy1, atstkind_t0ype(atstype_int)) ; ATStmpdec(tmpret99, atstkind_t0ype(atstype_int)) ; ATStmpdec(tmp100, atstkind_t0ype(atstype_bool)) ; ATStmpdec(tmp103, atstkind_t0ype(atstype_bool)) ; ATStmpdec(tmp106, atstkind_t0ype(atstype_int)) ; ATStmpdec(tmp107, atstkind_t0ype(atstype_int)) ; ATStmpdec(tmp108, atstkind_t0ype(atstype_int)) ; ATStmpdec(tmp109, atstkind_t0ype(atstype_int)) ; /* tmpvardeclst(end) */ ATSfunbody_beg() /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1776(line=64, offs=9) -- 2007(line=71, offs=27) */ ATSINSflab(__patsflab_loop_55): /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1874(line=65, offs=10) -- 1882(line=65, offs=18) */ ATSINSmove(tmp100, ATSLIB_056_prelude__gte_g1int_int__38__3(arg1, arg0)) ; /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1871(line=65, offs=7) -- 2007(line=71, offs=27) */ ATSif( tmp100 ) ATSthen() { /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1896(line=66, offs=9) -- 1897(line=66, offs=10) */ ATSINSmove(tmpret99, ATSPMVi0nt(1)) ; } ATSelse() { /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1920(line=68, offs=12) -- 1927(line=68, offs=19) */ ATSINSmove(tmp106, atspre_g0int_mod_int(arg0, arg1)) ; /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1920(line=68, offs=12) -- 1931(line=68, offs=23) */ ATSINSmove(tmp103, ATSLIB_056_prelude__eq_g0int_int__12__7(tmp106, ATSPMVi0nt(0))) ; /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1917(line=68, offs=9) -- 2007(line=71, offs=27) */ ATSif( tmp103 ) ATSthen() { /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1959(line=69, offs=23) -- 1966(line=69, offs=30) */ ATSINSmove(tmp108, atspre_g1int_add_int(arg1, ATSPMVi0nt(1))) ; /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1951(line=69, offs=15) -- 1967(line=69, offs=31) */ ATSINSmove(tmp107, loop_55(arg0, tmp108)) ; /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1947(line=69, offs=11) -- 1967(line=69, offs=31) */ ATSINSmove(tmpret99, atspre_g0int_add_int(ATSPMVi0nt(1), tmp107)) ; } ATSelse() { /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1999(line=71, offs=19) -- 2006(line=71, offs=26) */ ATSINSmove(tmp109, atspre_g1int_add_int(arg1, ATSPMVi0nt(1))) ; /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1991(line=71, offs=11) -- 2007(line=71, offs=27) */ ATStailcal_beg() ATSINSmove_tlcal(apy0, arg0) ; ATSINSmove_tlcal(apy1, tmp109) ; ATSINSargmove_tlcal(arg0, apy0) ; ATSINSargmove_tlcal(arg1, apy1) ; ATSINSfgoto(__patsflab_loop_55) ; ATStailcal_end() } /* ATSendif */ } /* ATSendif */ ATSfunbody_end() ATSreturn(tmpret99) ; } /* end of [loop_55] */ /* /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 12757(line=663, offs=3) -- 12797(line=663, offs=43) */ /* local: global: gte_g1int_int$38$3(level=2) local: global: */ ATSstatic() /* imparg = tk(4706) tmparg = S2Evar(tk(4706)) tmpsub = Some(tk(4706) -> S2Eextkind(atstype_int)) */ atstkind_t0ype(atstype_bool) ATSLIB_056_prelude__gte_g1int_int__38__3(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) { /* tmpvardeclst(beg) */ ATStmpdec(tmpret66__3, atstkind_t0ype(atstype_bool)) ; ATStmpdec(tmp67__3, atstkind_t0ype(atstype_int)) ; /* tmpvardeclst(end) */ ATSfunbody_beg() /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12741(line=662, offs=1) -- 12797(line=663, offs=43) */ ATSINSflab(__patsflab_gte_g1int_int): /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12784(line=663, offs=30) -- 12795(line=663, offs=41) */ ATSINSmove(tmp67__3, atspre_g1int2int_int_int(arg1)) ; /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12766(line=663, offs=12) -- 12797(line=663, offs=43) */ ATSINSmove(tmpret66__3, atspre_g1int_gte_int(arg0, tmp67__3)) ; ATSfunbody_end() ATSreturn(tmpret66__3) ; } /* end of [ATSLIB_056_prelude__gte_g1int_int__38__3] */ /* /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) */ /* local: global: eq_g0int_int$12$7(level=2) local: global: */ ATSstatic() /* imparg = tk(4694) tmparg = S2Evar(tk(4694)) tmpsub = Some(tk(4694) -> S2Eextkind(atstype_int)) */ atstkind_t0ype(atstype_bool) ATSLIB_056_prelude__eq_g0int_int__12__7(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) { /* tmpvardeclst(beg) */ ATStmpdec(tmpret18__7, atstkind_t0ype(atstype_bool)) ; ATStmpdec(tmp19__7, atstkind_t0ype(atstype_int)) ; /* tmpvardeclst(end) */ ATSfunbody_beg() /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) */ ATSINSflab(__patsflab_eq_g0int_int): /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) */ ATSINSmove(tmp19__7, atspre_g0int2int_int_int(arg1)) ; /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) */ ATSINSmove(tmpret18__7, atspre_g0int_eq_int(arg0, tmp19__7)) ; ATSfunbody_end() ATSreturn(tmpret18__7) ; } /* end of [ATSLIB_056_prelude__eq_g0int_int__12__7] */ /* /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2038(line=76, offs=4) -- 2349(line=88, offs=6) */ /* local: global: sum_divisors_59$0(level=0) local: global: */ ATSstatic() atstkind_t0ype(atstype_int) sum_divisors_59(atstkind_t0ype(atstype_int) arg0) { /* tmpvardeclst(beg) */ ATStmpdec(tmpret110, atstkind_t0ype(atstype_int)) ; /* tmpvardeclst(end) */ ATSfunbody_beg() /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2038(line=76, offs=4) -- 2349(line=88, offs=6) */ ATSINSflab(__patsflab_sum_divisors_59): /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2078(line=77, offs=3) -- 2349(line=88, offs=6) */ /* letpush(beg) */ /* letpush(end) */ /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2333(line=87, offs=5) -- 2343(line=87, offs=15) */ ATSINSmove(tmpret110, loop_60(arg0, ATSPMVi0nt(1))) ; /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2078(line=77, offs=3) -- 2349(line=88, offs=6) */ /* INSletpop() */ ATSfunbody_end() ATSreturn(tmpret110) ; } /* end of [sum_divisors_59] */ /* /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2090(line=78, offs=9) -- 2323(line=85, offs=27) */ /* local: loop_60$0(level=1) global: loop_60$0(level=1) local: global: */ ATSstatic() atstkind_t0ype(atstype_int) loop_60(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) { /* tmpvardeclst(beg) */ ATStmpdec(apy0, atstkind_t0ype(atstype_int)) ; ATStmpdec(apy1, atstkind_t0ype(atstype_int)) ; ATStmpdec(tmpret111, atstkind_t0ype(atstype_int)) ; ATStmpdec(tmp112, atstkind_t0ype(atstype_bool)) ; ATStmpdec(tmp115, atstkind_t0ype(atstype_bool)) ; ATStmpdec(tmp118, atstkind_t0ype(atstype_int)) ; ATStmpdec(tmp119, atstkind_t0ype(atstype_int)) ; ATStmpdec(tmp120, atstkind_t0ype(atstype_int)) ; ATStmpdec(tmp121, atstkind_t0ype(atstype_int)) ; /* tmpvardeclst(end) */ ATSfunbody_beg() /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2090(line=78, offs=9) -- 2323(line=85, offs=27) */ ATSINSflab(__patsflab_loop_60): /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2188(line=79, offs=10) -- 2196(line=79, offs=18) */ ATSINSmove(tmp112, ATSLIB_056_prelude__gte_g1int_int__38__4(arg1, arg0)) ; /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2185(line=79, offs=7) -- 2323(line=85, offs=27) */ ATSif( tmp112 ) ATSthen() { /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2210(line=80, offs=9) -- 2211(line=80, offs=10) */ ATSINSmove(tmpret111, ATSPMVi0nt(0)) ; } ATSelse() { /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2234(line=82, offs=12) -- 2241(line=82, offs=19) */ ATSINSmove(tmp118, atspre_g0int_mod_int(arg0, arg1)) ; /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2234(line=82, offs=12) -- 2245(line=82, offs=23) */ ATSINSmove(tmp115, ATSLIB_056_prelude__eq_g0int_int__12__8(tmp118, ATSPMVi0nt(0))) ; /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2231(line=82, offs=9) -- 2323(line=85, offs=27) */ ATSif( tmp115 ) ATSthen() { /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2275(line=83, offs=25) -- 2282(line=83, offs=32) */ ATSINSmove(tmp120, atspre_g1int_add_int(arg1, ATSPMVi0nt(1))) ; /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2267(line=83, offs=17) -- 2283(line=83, offs=33) */ ATSINSmove(tmp119, loop_60(arg0, tmp120)) ; /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2261(line=83, offs=11) -- 2283(line=83, offs=33) */ ATSINSmove(tmpret111, atspre_g0int_add_int(arg1, tmp119)) ; } ATSelse() { /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2315(line=85, offs=19) -- 2322(line=85, offs=26) */ ATSINSmove(tmp121, atspre_g1int_add_int(arg1, ATSPMVi0nt(1))) ; /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2307(line=85, offs=11) -- 2323(line=85, offs=27) */ ATStailcal_beg() ATSINSmove_tlcal(apy0, arg0) ; ATSINSmove_tlcal(apy1, tmp121) ; ATSINSargmove_tlcal(arg0, apy0) ; ATSINSargmove_tlcal(arg1, apy1) ; ATSINSfgoto(__patsflab_loop_60) ; ATStailcal_end() } /* ATSendif */ } /* ATSendif */ ATSfunbody_end() ATSreturn(tmpret111) ; } /* end of [loop_60] */ /* /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 12757(line=663, offs=3) -- 12797(line=663, offs=43) */ /* local: global: gte_g1int_int$38$4(level=2) local: global: */ ATSstatic() /* imparg = tk(4706) tmparg = S2Evar(tk(4706)) tmpsub = Some(tk(4706) -> S2Eextkind(atstype_int)) */ atstkind_t0ype(atstype_bool) ATSLIB_056_prelude__gte_g1int_int__38__4(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) { /* tmpvardeclst(beg) */ ATStmpdec(tmpret66__4, atstkind_t0ype(atstype_bool)) ; ATStmpdec(tmp67__4, atstkind_t0ype(atstype_int)) ; /* tmpvardeclst(end) */ ATSfunbody_beg() /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12741(line=662, offs=1) -- 12797(line=663, offs=43) */ ATSINSflab(__patsflab_gte_g1int_int): /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12784(line=663, offs=30) -- 12795(line=663, offs=41) */ ATSINSmove(tmp67__4, atspre_g1int2int_int_int(arg1)) ; /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12766(line=663, offs=12) -- 12797(line=663, offs=43) */ ATSINSmove(tmpret66__4, atspre_g1int_gte_int(arg0, tmp67__4)) ; ATSfunbody_end() ATSreturn(tmpret66__4) ; } /* end of [ATSLIB_056_prelude__gte_g1int_int__38__4] */ /* /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) */ /* local: global: eq_g0int_int$12$8(level=2) local: global: */ ATSstatic() /* imparg = tk(4694) tmparg = S2Evar(tk(4694)) tmpsub = Some(tk(4694) -> S2Eextkind(atstype_int)) */ atstkind_t0ype(atstype_bool) ATSLIB_056_prelude__eq_g0int_int__12__8(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) { /* tmpvardeclst(beg) */ ATStmpdec(tmpret18__8, atstkind_t0ype(atstype_bool)) ; ATStmpdec(tmp19__8, atstkind_t0ype(atstype_int)) ; /* tmpvardeclst(end) */ ATSfunbody_beg() /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) */ ATSINSflab(__patsflab_eq_g0int_int): /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) */ ATSINSmove(tmp19__8, atspre_g0int2int_int_int(arg1)) ; /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) */ ATSINSmove(tmpret18__8, atspre_g0int_eq_int(arg0, tmp19__8)) ; ATSfunbody_end() ATSreturn(tmpret18__8) ; } /* end of [ATSLIB_056_prelude__eq_g0int_int__12__8] */ /* /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2354(line=90, offs=4) -- 2412(line=91, offs=22) */ /* local: sum_divisors_59$0(level=0) global: sum_divisors_59$0(level=0), is_perfect_63$0(level=0) local: global: */ ATSstatic() atstkind_t0ype(atstype_bool) is_perfect_63(atstkind_t0ype(atstype_int) arg0) { /* tmpvardeclst(beg) */ ATStmpdec(tmpret122, atstkind_t0ype(atstype_bool)) ; ATStmpdec(tmp125, atstkind_t0ype(atstype_int)) ; /* tmpvardeclst(end) */ ATSfunbody_beg() /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2354(line=90, offs=4) -- 2412(line=91, offs=22) */ ATSINSflab(__patsflab_is_perfect_63): /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2393(line=91, offs=3) -- 2407(line=91, offs=17) */ ATSINSmove(tmp125, sum_divisors_59(arg0)) ; /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2393(line=91, offs=3) -- 2412(line=91, offs=22) */ ATSINSmove(tmpret122, ATSLIB_056_prelude__eq_g0int_int__12__9(tmp125, arg0)) ; ATSfunbody_end() ATSreturn(tmpret122) ; } /* end of [is_perfect_63] */ /* /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) */ /* local: global: eq_g0int_int$12$9(level=1) local: global: */ ATSstatic() /* imparg = tk(4694) tmparg = S2Evar(tk(4694)) tmpsub = Some(tk(4694) -> S2Eextkind(atstype_int)) */ atstkind_t0ype(atstype_bool) ATSLIB_056_prelude__eq_g0int_int__12__9(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) { /* tmpvardeclst(beg) */ ATStmpdec(tmpret18__9, atstkind_t0ype(atstype_bool)) ; ATStmpdec(tmp19__9, atstkind_t0ype(atstype_int)) ; /* tmpvardeclst(end) */ ATSfunbody_beg() /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) */ ATSINSflab(__patsflab_eq_g0int_int): /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) */ ATSINSmove(tmp19__9, atspre_g0int2int_int_int(arg1)) ; /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) */ ATSINSmove(tmpret18__9, atspre_g0int_eq_int(arg0, tmp19__9)) ; ATSfunbody_end() ATSreturn(tmpret18__9) ; } /* end of [ATSLIB_056_prelude__eq_g0int_int__12__9] */ /* /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2444(line=94, offs=4) -- 2825(line=109, offs=6) */ /* local: is_prime_20$0(level=0) global: witness_0$0(level=0), sqrt_int_17$0(level=0), is_prime_20$0(level=0), little_omega_65$0(level=0) local: global: */ ATSstatic() atstkind_t0ype(atstype_int) little_omega_65(atstkind_t0ype(atstype_int) arg0) { /* tmpvardeclst(beg) */ ATStmpdec(tmpret126, atstkind_t0ype(atstype_int)) ; /* tmpvardeclst(end) */ ATSfunbody_beg() /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2444(line=94, offs=4) -- 2825(line=109, offs=6) */ ATSINSflab(__patsflab_little_omega_65): /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2484(line=95, offs=3) -- 2825(line=109, offs=6) */ /* letpush(beg) */ /* letpush(end) */ /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2809(line=108, offs=5) -- 2819(line=108, offs=15) */ ATSINSmove(tmpret126, loop_66(arg0, ATSPMVi0nt(1))) ; /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2484(line=95, offs=3) -- 2825(line=109, offs=6) */ /* INSletpop() */ ATSfunbody_end() ATSreturn(tmpret126) ; } /* end of [little_omega_65] */ /* /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2496(line=96, offs=9) -- 2799(line=106, offs=27) */ /* local: is_prime_20$0(level=0), loop_66$0(level=1) global: is_prime_20$0(level=0), loop_66$0(level=1) local: global: */ ATSstatic() atstkind_t0ype(atstype_int) loop_66(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) { /* tmpvardeclst(beg) */ ATStmpdec(apy0, atstkind_t0ype(atstype_int)) ; ATStmpdec(apy1, atstkind_t0ype(atstype_int)) ; ATStmpdec(tmpret127, atstkind_t0ype(atstype_int)) ; ATStmpdec(tmp128, atstkind_t0ype(atstype_bool)) ; ATStmpdec(tmp131, atstkind_t0ype(atstype_bool)) ; ATStmpdec(tmp132, atstkind_t0ype(atstype_bool)) ; ATStmpdec(tmp133, atstkind_t0ype(atstype_bool)) ; ATStmpdec(tmp136, atstkind_t0ype(atstype_int)) ; ATStmpdec(tmp137, atstkind_t0ype(atstype_int)) ; ATStmpdec(tmp138, atstkind_t0ype(atstype_int)) ; ATStmpdec(tmp139, atstkind_t0ype(atstype_int)) ; /* tmpvardeclst(end) */ ATSfunbody_beg() /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2496(line=96, offs=9) -- 2799(line=106, offs=27) */ ATSINSflab(__patsflab_loop_66): /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2594(line=97, offs=10) -- 2602(line=97, offs=18) */ ATSINSmove(tmp128, ATSLIB_056_prelude__gte_g1int_int__38__5(arg1, arg0)) ; /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2591(line=97, offs=7) -- 2799(line=106, offs=27) */ ATSif( tmp128 ) ATSthen() { /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2619(line=98, offs=12) -- 2629(line=98, offs=22) */ ATSINSmove(tmp131, is_prime_20(arg0)) ; /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2616(line=98, offs=9) -- 2672(line=101, offs=12) */ ATSif( tmp131 ) ATSthen() { /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2646(line=99, offs=11) -- 2647(line=99, offs=12) */ ATSINSmove(tmpret127, ATSPMVi0nt(1)) ; } ATSelse() { /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2671(line=101, offs=11) -- 2672(line=101, offs=12) */ ATSINSmove(tmpret127, ATSPMVi0nt(0)) ; } /* ATSendif */ } ATSelse() { /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2695(line=103, offs=12) -- 2722(line=103, offs=39) */ ATSINSmove(tmp136, atspre_g0int_mod_int(arg0, arg1)) ; /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2695(line=103, offs=12) -- 2722(line=103, offs=39) */ ATSINSmove(tmp133, ATSLIB_056_prelude__eq_g0int_int__12__10(tmp136, ATSPMVi0nt(0))) ; /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2695(line=103, offs=12) -- 2722(line=103, offs=39) */ ATSif( tmp133 ) ATSthen() { /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2695(line=103, offs=12) -- 2722(line=103, offs=39) */ ATSINSmove(tmp132, is_prime_20(arg1)) ; } ATSelse() { /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2695(line=103, offs=12) -- 2722(line=103, offs=39) */ ATSINSmove(tmp132, ATSPMVbool_false()) ; } /* ATSendif */ /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2692(line=103, offs=9) -- 2799(line=106, offs=27) */ ATSif( tmp132 ) ATSthen() { /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2751(line=104, offs=23) -- 2758(line=104, offs=30) */ ATSINSmove(tmp138, atspre_g1int_add_int(arg1, ATSPMVi0nt(1))) ; /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2743(line=104, offs=15) -- 2759(line=104, offs=31) */ ATSINSmove(tmp137, loop_66(arg0, tmp138)) ; /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2739(line=104, offs=11) -- 2759(line=104, offs=31) */ ATSINSmove(tmpret127, atspre_g0int_add_int(ATSPMVi0nt(1), tmp137)) ; } ATSelse() { /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2791(line=106, offs=19) -- 2798(line=106, offs=26) */ ATSINSmove(tmp139, atspre_g1int_add_int(arg1, ATSPMVi0nt(1))) ; /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2783(line=106, offs=11) -- 2799(line=106, offs=27) */ ATStailcal_beg() ATSINSmove_tlcal(apy0, arg0) ; ATSINSmove_tlcal(apy1, tmp139) ; ATSINSargmove_tlcal(arg0, apy0) ; ATSINSargmove_tlcal(arg1, apy1) ; ATSINSfgoto(__patsflab_loop_66) ; ATStailcal_end() } /* ATSendif */ } /* ATSendif */ ATSfunbody_end() ATSreturn(tmpret127) ; } /* end of [loop_66] */ /* /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 12757(line=663, offs=3) -- 12797(line=663, offs=43) */ /* local: global: gte_g1int_int$38$5(level=2) local: global: */ ATSstatic() /* imparg = tk(4706) tmparg = S2Evar(tk(4706)) tmpsub = Some(tk(4706) -> S2Eextkind(atstype_int)) */ atstkind_t0ype(atstype_bool) ATSLIB_056_prelude__gte_g1int_int__38__5(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) { /* tmpvardeclst(beg) */ ATStmpdec(tmpret66__5, atstkind_t0ype(atstype_bool)) ; ATStmpdec(tmp67__5, atstkind_t0ype(atstype_int)) ; /* tmpvardeclst(end) */ ATSfunbody_beg() /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12741(line=662, offs=1) -- 12797(line=663, offs=43) */ ATSINSflab(__patsflab_gte_g1int_int): /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12784(line=663, offs=30) -- 12795(line=663, offs=41) */ ATSINSmove(tmp67__5, atspre_g1int2int_int_int(arg1)) ; /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12766(line=663, offs=12) -- 12797(line=663, offs=43) */ ATSINSmove(tmpret66__5, atspre_g1int_gte_int(arg0, tmp67__5)) ; ATSfunbody_end() ATSreturn(tmpret66__5) ; } /* end of [ATSLIB_056_prelude__gte_g1int_int__38__5] */ /* /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) */ /* local: global: eq_g0int_int$12$10(level=2) local: global: */ ATSstatic() /* imparg = tk(4694) tmparg = S2Evar(tk(4694)) tmpsub = Some(tk(4694) -> S2Eextkind(atstype_int)) */ atstkind_t0ype(atstype_bool) ATSLIB_056_prelude__eq_g0int_int__12__10(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) { /* tmpvardeclst(beg) */ ATStmpdec(tmpret18__10, atstkind_t0ype(atstype_bool)) ; ATStmpdec(tmp19__10, atstkind_t0ype(atstype_int)) ; /* tmpvardeclst(end) */ ATSfunbody_beg() /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) */ ATSINSflab(__patsflab_eq_g0int_int): /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) */ ATSINSmove(tmp19__10, atspre_g0int2int_int_int(arg1)) ; /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) */ ATSINSmove(tmpret18__10, atspre_g0int_eq_int(arg0, tmp19__10)) ; ATSfunbody_end() ATSreturn(tmpret18__10) ; } /* end of [ATSLIB_056_prelude__eq_g0int_int__12__10] */ /* /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2859(line=112, offs=4) -- 3407(line=132, offs=10) */ /* local: is_prime_20$0(level=0) global: witness_0$0(level=0), sqrt_int_17$0(level=0), is_prime_20$0(level=0), totient_69$0(level=0) local: global: */ ATSstatic() atstkind_t0ype(atstype_int) totient_69(atstkind_t0ype(atstype_int) arg0) { /* tmpvardeclst(beg) */ ATStmpdec(tmpret140, atstkind_t0ype(atstype_int)) ; /* tmpvardeclst(end) */ ATSfunbody_beg() /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2859(line=112, offs=4) -- 3407(line=132, offs=10) */ ATSINSflab(__patsflab_totient_69): /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2892(line=113, offs=3) -- 3407(line=132, offs=10) */ ATScaseof_beg() /* ** ibranchlst-beg */ ATSbranch_beg() /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2909(line=114, offs=7) -- 2910(line=114, offs=8) */ ATSINSlab(__atstmplab6): /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2867(line=112, offs=12) -- 2868(line=112, offs=13) */ ATSifnthen(ATSCKpat_int(arg0, ATSPMVint(1))) { ATSINSgoto(__atstmplab8) ; } ; /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2910(line=114, offs=8) -- 2910(line=114, offs=8) */ ATSINSlab(__atstmplab7): /* emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) */ /* ibranch-mbody: */ /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2914(line=114, offs=12) -- 2915(line=114, offs=13) */ ATSINSmove(tmpret140, ATSPMVi0nt(1)) ; ATSbranch_end() ATSbranch_beg() /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2923(line=115, offs=8) -- 2923(line=115, offs=8) */ ATSINSlab(__atstmplab8): /* emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) */ /* ibranch-mbody: */ /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2949(line=117, offs=9) -- 3397(line=131, offs=12) */ /* letpush(beg) */ /* letpush(end) */ /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 3375(line=130, offs=11) -- 3385(line=130, offs=21) */ ATSINSmove(tmpret140, loop_70(ATSPMVi0nt(1), arg0)) ; /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2949(line=117, offs=9) -- 3397(line=131, offs=12) */ /* INSletpop() */ ATSbranch_end() /* ** ibranchlst-end */ ATScaseof_end() ATSfunbody_end() ATSreturn(tmpret140) ; } /* end of [totient_69] */ /* /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2967(line=118, offs=15) -- 3353(line=128, offs=31) */ /* local: is_prime_20$0(level=0), loop_70$0(level=1) global: is_prime_20$0(level=0), loop_70$0(level=1) local: global: */ ATSstatic() atstkind_t0ype(atstype_int) loop_70(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) { /* tmpvardeclst(beg) */ ATStmpdec(apy0, atstkind_t0ype(atstype_int)) ; ATStmpdec(apy1, atstkind_t0ype(atstype_int)) ; ATStmpdec(tmpret141, atstkind_t0ype(atstype_int)) ; ATStmpdec(tmp142, atstkind_t0ype(atstype_bool)) ; ATStmpdec(tmp145, atstkind_t0ype(atstype_bool)) ; ATStmpdec(tmp146, atstkind_t0ype(atstype_bool)) ; ATStmpdec(tmp147, atstkind_t0ype(atstype_bool)) ; ATStmpdec(tmp148, atstkind_t0ype(atstype_bool)) ; ATStmpdec(tmp151, atstkind_t0ype(atstype_int)) ; ATStmpdec(tmp156, atstkind_t0ype(atstype_int)) ; ATStmpdec(tmp157, atstkind_t0ype(atstype_int)) ; ATStmpdec(tmp158, atstkind_t0ype(atstype_int)) ; ATStmpdec(tmp159, atstkind_t0ype(atstype_int)) ; ATStmpdec(tmp160, atstkind_t0ype(atstype_int)) ; /* tmpvardeclst(end) */ /* emit_funent_fnxdeclst: */ ATSfunbody_beg() /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2967(line=118, offs=15) -- 3353(line=128, offs=31) */ ATSINSflab(__patsflab_loop_70): /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 3078(line=119, offs=16) -- 3084(line=119, offs=22) */ ATSINSmove(tmp142, ATSLIB_056_prelude__gte_g1int_int__38__6(arg0, arg1)) ; /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 3075(line=119, offs=13) -- 3353(line=128, offs=31) */ ATSif( tmp142 ) ATSthen() { /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 3107(line=120, offs=18) -- 3117(line=120, offs=28) */ ATSINSmove(tmp145, is_prime_20(arg1)) ; /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 3104(line=120, offs=15) -- 3182(line=123, offs=18) */ ATSif( tmp145 ) ATSthen() { /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 3140(line=121, offs=17) -- 3145(line=121, offs=22) */ ATSINSmove(tmpret141, atspre_g1int_sub_int(arg1, ATSPMVi0nt(1))) ; } ATSelse() { /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 3181(line=123, offs=17) -- 3182(line=123, offs=18) */ ATSINSmove(tmpret141, arg1) ; } /* ATSendif */ } ATSelse() { /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 3217(line=125, offs=18) -- 3251(line=125, offs=52) */ ATSINSmove(tmp151, atspre_g0int_mod_int(arg1, arg0)) ; /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 3217(line=125, offs=18) -- 3251(line=125, offs=52) */ ATSINSmove(tmp148, ATSLIB_056_prelude__eq_g0int_int__12__11(tmp151, ATSPMVi0nt(0))) ; /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 3217(line=125, offs=18) -- 3251(line=125, offs=52) */ ATSif( tmp148 ) ATSthen() { /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 3217(line=125, offs=18) -- 3251(line=125, offs=52) */ ATSINSmove(tmp147, is_prime_20(arg0)) ; } ATSelse() { /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 3217(line=125, offs=18) -- 3251(line=125, offs=52) */ ATSINSmove(tmp147, ATSPMVbool_false()) ; } /* ATSendif */ /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 3217(line=125, offs=18) -- 3251(line=125, offs=52) */ ATSif( tmp147 ) ATSthen() { /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 3217(line=125, offs=18) -- 3251(line=125, offs=52) */ ATSINSmove(tmp146, ATSLIB_056_prelude__neq_g1int_int__74__1(arg0, arg1)) ; } ATSelse() { /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 3217(line=125, offs=18) -- 3251(line=125, offs=52) */ ATSINSmove(tmp146, ATSPMVbool_false()) ; } /* ATSendif */ /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 3214(line=125, offs=15) -- 3353(line=128, offs=31) */ ATSif( tmp146 ) ATSthen() { /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 3279(line=126, offs=23) -- 3284(line=126, offs=28) */ ATSINSmove(tmp158, atspre_g1int_add_int(arg0, ATSPMVi0nt(1))) ; /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 3274(line=126, offs=18) -- 3288(line=126, offs=32) */ ATSINSmove(tmp157, loop_70(tmp158, arg1)) ; /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 3274(line=126, offs=18) -- 3292(line=126, offs=36) */ ATSINSmove(tmp156, atspre_g0int_div_int(tmp157, arg0)) ; /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 3297(line=126, offs=41) -- 3302(line=126, offs=46) */ ATSINSmove(tmp159, atspre_g1int_sub_int(arg0, ATSPMVi0nt(1))) ; /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 3273(line=126, offs=17) -- 3303(line=126, offs=47) */ ATSINSmove(tmpret141, atspre_g0int_mul_int(tmp156, tmp159)) ; } ATSelse() { /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 3344(line=128, offs=22) -- 3349(line=128, offs=27) */ ATSINSmove(tmp160, atspre_g1int_add_int(arg0, ATSPMVi0nt(1))) ; /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 3339(line=128, offs=17) -- 3353(line=128, offs=31) */ ATStailcal_beg() ATSINSmove_tlcal(apy0, tmp160) ; ATSINSmove_tlcal(apy1, arg1) ; ATSINSargmove_tlcal(arg0, apy0) ; ATSINSargmove_tlcal(arg1, apy1) ; ATSINSfgoto(__patsflab_loop_70) ; ATStailcal_end() } /* ATSendif */ } /* ATSendif */ ATSfunbody_end() ATSreturn(tmpret141) ; /* emit_funent_fnxbodylst: */ } /* end of [loop_70] */ /* /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 12757(line=663, offs=3) -- 12797(line=663, offs=43) */ /* local: global: gte_g1int_int$38$6(level=2) local: global: */ ATSstatic() /* imparg = tk(4706) tmparg = S2Evar(tk(4706)) tmpsub = Some(tk(4706) -> S2Eextkind(atstype_int)) */ atstkind_t0ype(atstype_bool) ATSLIB_056_prelude__gte_g1int_int__38__6(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) { /* tmpvardeclst(beg) */ ATStmpdec(tmpret66__6, atstkind_t0ype(atstype_bool)) ; ATStmpdec(tmp67__6, atstkind_t0ype(atstype_int)) ; /* tmpvardeclst(end) */ ATSfunbody_beg() /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12741(line=662, offs=1) -- 12797(line=663, offs=43) */ ATSINSflab(__patsflab_gte_g1int_int): /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12784(line=663, offs=30) -- 12795(line=663, offs=41) */ ATSINSmove(tmp67__6, atspre_g1int2int_int_int(arg1)) ; /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12766(line=663, offs=12) -- 12797(line=663, offs=43) */ ATSINSmove(tmpret66__6, atspre_g1int_gte_int(arg0, tmp67__6)) ; ATSfunbody_end() ATSreturn(tmpret66__6) ; } /* end of [ATSLIB_056_prelude__gte_g1int_int__38__6] */ /* /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) */ /* local: global: eq_g0int_int$12$11(level=2) local: global: */ ATSstatic() /* imparg = tk(4694) tmparg = S2Evar(tk(4694)) tmpsub = Some(tk(4694) -> S2Eextkind(atstype_int)) */ atstkind_t0ype(atstype_bool) ATSLIB_056_prelude__eq_g0int_int__12__11(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) { /* tmpvardeclst(beg) */ ATStmpdec(tmpret18__11, atstkind_t0ype(atstype_bool)) ; ATStmpdec(tmp19__11, atstkind_t0ype(atstype_int)) ; /* tmpvardeclst(end) */ ATSfunbody_beg() /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) */ ATSINSflab(__patsflab_eq_g0int_int): /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) */ ATSINSmove(tmp19__11, atspre_g0int2int_int_int(arg1)) ; /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) */ ATSINSmove(tmpret18__11, atspre_g0int_eq_int(arg0, tmp19__11)) ; ATSfunbody_end() ATSreturn(tmpret18__11) ; } /* end of [ATSLIB_056_prelude__eq_g0int_int__12__11] */ #if(0) /* /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 12916(line=672, offs=3) -- 12956(line=672, offs=43) */ /* local: global: neq_g1int_int$74$0(level=0) local: global: */ ATSextern() /* imparg = tk(4712) tmparg = S2Evar(tk(4712)) tmpsub = None() */ atstkind_t0ype(atstype_bool) ATSLIB_056_prelude__neq_g1int_int__74(atstkind_t0ype(atstyvar_type(tk)) arg0, atstkind_t0ype(atstype_int) arg1) { /* tmpvardeclst(beg) */ ATStmpdec(tmpret152, atstkind_t0ype(atstype_bool)) ; ATStmpdec(tmp153, atstkind_t0ype(atstyvar_type(tk))) ; /* tmpvardeclst(end) */ ATSfunbody_beg() /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12900(line=671, offs=1) -- 12956(line=672, offs=43) */ ATSINSflab(__patsflab_neq_g1int_int): /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12943(line=672, offs=30) -- 12954(line=672, offs=41) */ ATSINSmove(tmp153, PMVtmpltcst(g1int2int)(arg1)) ; /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12925(line=672, offs=12) -- 12956(line=672, offs=43) */ ATSINSmove(tmpret152, PMVtmpltcst(g1int_neq)(arg0, tmp153)) ; ATSfunbody_end() ATSreturn(tmpret152) ; } /* end of [ATSLIB_056_prelude__neq_g1int_int__74] */ #endif // end of [TEMPLATE] /* /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 12916(line=672, offs=3) -- 12956(line=672, offs=43) */ /* local: global: neq_g1int_int$74$1(level=2) local: global: */ ATSstatic() /* imparg = tk(4712) tmparg = S2Evar(tk(4712)) tmpsub = Some(tk(4712) -> S2Eextkind(atstype_int)) */ atstkind_t0ype(atstype_bool) ATSLIB_056_prelude__neq_g1int_int__74__1(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) { /* tmpvardeclst(beg) */ ATStmpdec(tmpret152__1, atstkind_t0ype(atstype_bool)) ; ATStmpdec(tmp153__1, atstkind_t0ype(atstype_int)) ; /* tmpvardeclst(end) */ ATSfunbody_beg() /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12900(line=671, offs=1) -- 12956(line=672, offs=43) */ ATSINSflab(__patsflab_neq_g1int_int): /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12943(line=672, offs=30) -- 12954(line=672, offs=41) */ ATSINSmove(tmp153__1, atspre_g1int2int_int_int(arg1)) ; /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12925(line=672, offs=12) -- 12956(line=672, offs=43) */ ATSINSmove(tmpret152__1, atspre_g1int_neq_int(arg0, tmp153__1)) ; ATSfunbody_end() ATSreturn(tmpret152__1) ; } /* end of [ATSLIB_056_prelude__neq_g1int_int__74__1] */ /* /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 3491(line=136, offs=5) -- 3879(line=150, offs=6) */ /* local: witness_0$0(level=0), totient_69$0(level=0) global: witness_0$0(level=0), sqrt_int_17$0(level=0), is_prime_20$0(level=0), totient_69$0(level=0), totient_sum_77$0(level=0) local: global: */ ATSstatic() atstkind_type(atstype_ptrk) totient_sum_77(atstkind_t0ype(atstype_int) arg0) { /* tmpvardeclst(beg) */ ATStmpdec(tmpret161, atstkind_type(atstype_ptrk)) ; /* tmpvardeclst(end) */ ATSfunbody_beg() /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 3491(line=136, offs=5) -- 3879(line=150, offs=6) */ ATSINSflab(__patsflab_totient_sum_77): /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 3531(line=137, offs=3) -- 3879(line=150, offs=6) */ /* letpush(beg) */ /* letpush(end) */ /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 3863(line=149, offs=5) -- 3873(line=149, offs=15) */ ATSINSmove(tmpret161, loop_78(ATSPMVi0nt(1), arg0)) ; /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 3531(line=137, offs=3) -- 3879(line=150, offs=6) */ /* INSletpop() */ ATSfunbody_end() ATSreturn(tmpret161) ; } /* end of [totient_sum_77] */ /* /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 3543(line=138, offs=9) -- 3853(line=147, offs=40) */ /* local: witness_0$0(level=0), totient_69$0(level=0), loop_78$0(level=1) global: witness_0$0(level=0), totient_69$0(level=0), loop_78$0(level=1) local: global: */ ATSstatic() atstkind_type(atstype_ptrk) loop_78(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) { /* tmpvardeclst(beg) */ ATStmpdec(apy0, atstkind_t0ype(atstype_int)) ; ATStmpdec(apy1, atstkind_t0ype(atstype_int)) ; ATStmpdec(tmpret162, atstkind_type(atstype_ptrk)) ; ATStmpdec(tmp163, atstkind_t0ype(atstype_bool)) ; ATStmpdec(tmp166, atstkind_type(atstype_ptrk)) ; ATStmpdec(tmp167, atstkind_t0ype(atstype_int)) ; ATStmpdec(tmp172, atstkind_t0ype(atstype_int)) ; ATStmpdec(tmp173, atstkind_t0ype(atstype_int)) ; ATStmpdec(tmp181, atstkind_t0ype(atstype_int)) ; ATStmpdec(tmp182, atstkind_t0ype(atstype_int)) ; /* tmpvardeclst(end) */ /* emit_funent_fnxdeclst: */ ATSfunbody_beg() /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 3543(line=138, offs=9) -- 3853(line=147, offs=40) */ ATSINSflab(__patsflab_loop_78): /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 3646(line=139, offs=10) -- 3655(line=139, offs=19) */ ATSINSmove(tmp163, ATSLIB_056_prelude__lt_g1int_int__22__2(arg0, arg1)) ; /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 3643(line=139, offs=7) -- 3853(line=147, offs=40) */ ATSif( tmp163 ) ATSthen() { /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 3669(line=140, offs=9) -- 3802(line=145, offs=12) */ /* letpush(beg) */ /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 3696(line=141, offs=24) -- 3701(line=141, offs=29) */ ATSINSmove(tmp167, atspre_g1int_add_int(arg0, ATSPMVi0nt(1))) ; /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 3691(line=141, offs=19) -- 3709(line=141, offs=37) */ ATSINSmove(tmp166, loop_78(tmp167, arg1)) ; /* letpush(end) */ /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 3755(line=142, offs=46) -- 3764(line=142, offs=55) */ ATSINSmove(tmp173, totient_69(arg0)) ; /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 3747(line=142, offs=38) -- 3766(line=142, offs=57) */ ATSINSmove(tmp172, witness_0(tmp173)) ; /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 3728(line=142, offs=19) -- 3767(line=142, offs=58) */ ATSINSmove(tmpret162, ATSCNTRB_056_HX_056_intinf_vt__add_intinf0_int__80__1(tmp166, tmp172)) ; /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 3669(line=140, offs=9) -- 3802(line=145, offs=12) */ /* INSletpop() */ } ATSelse() { /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 3822(line=147, offs=9) -- 3853(line=147, offs=40) */ ATSINSmove(tmp182, totient_69(arg0)) ; /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 3822(line=147, offs=9) -- 3853(line=147, offs=40) */ ATSINSmove(tmp181, witness_0(tmp182)) ; /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 3822(line=147, offs=9) -- 3853(line=147, offs=40) */ ATSINSmove(tmpret162, ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__82__1(tmp181)) ; } /* ATSendif */ ATSfunbody_end() ATSreturn(tmpret162) ; /* emit_funent_fnxbodylst: */ } /* end of [loop_78] */ /* /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 12520(line=650, offs=3) -- 12559(line=650, offs=42) */ /* local: global: lt_g1int_int$22$2(level=2) local: global: */ ATSstatic() /* imparg = tk(4697) tmparg = S2Evar(tk(4697)) tmpsub = Some(tk(4697) -> S2Eextkind(atstype_int)) */ atstkind_t0ype(atstype_bool) ATSLIB_056_prelude__lt_g1int_int__22__2(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) { /* tmpvardeclst(beg) */ ATStmpdec(tmpret31__2, atstkind_t0ype(atstype_bool)) ; ATStmpdec(tmp32__2, atstkind_t0ype(atstype_int)) ; /* tmpvardeclst(end) */ ATSfunbody_beg() /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12505(line=649, offs=1) -- 12559(line=650, offs=42) */ ATSINSflab(__patsflab_lt_g1int_int): /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12546(line=650, offs=29) -- 12557(line=650, offs=40) */ ATSINSmove(tmp32__2, atspre_g1int2int_int_int(arg1)) ; /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12529(line=650, offs=12) -- 12559(line=650, offs=42) */ ATSINSmove(tmpret31__2, atspre_g1int_lt_int(arg0, tmp32__2)) ; ATSfunbody_end() ATSreturn(tmpret31__2) ; } /* end of [ATSLIB_056_prelude__lt_g1int_int__22__2] */ #if(0) /* /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5151(line=274, offs=3) -- 5217(line=279, offs=2) */ /* local: global: add_intinf0_int$80$0(level=0) local: global: */ ATSextern() /* imparg = tmparg = tmpsub = None() */ atstkind_type(atstype_ptrk) ATSCNTRB_056_HX_056_intinf_vt__add_intinf0_int__80(atstkind_type(atstype_ptrk) arg0, atstkind_t0ype(atstype_int) arg1) { /* tmpvardeclst(beg) */ ATStmpdec(tmpret168, atstkind_type(atstype_ptrk)) ; // ATStmpdec_void(tmp169) ; /* tmpvardeclst(end) */ ATSfunbody_beg() /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5133(line=273, offs=1) -- 5217(line=279, offs=2) */ ATSINSflab(__patsflab_add_intinf0_int): /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5160(line=274, offs=12) -- 5217(line=279, offs=2) */ /* letpush(beg) */ /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5184(line=277, offs=10) -- 5212(line=277, offs=38) */ ATSINSmove_void(tmp169, atscntrb_gmp_mpz_add2_int(ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), arg1)) ; /* letpush(end) */ /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5161(line=274, offs=13) -- 5162(line=274, offs=14) */ ATSINSmove(tmpret168, arg0) ; /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5160(line=274, offs=12) -- 5217(line=279, offs=2) */ /* INSletpop() */ ATSfunbody_end() ATSreturn(tmpret168) ; } /* end of [ATSCNTRB_056_HX_056_intinf_vt__add_intinf0_int__80] */ #endif // end of [TEMPLATE] /* /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5151(line=274, offs=3) -- 5217(line=279, offs=2) */ /* local: global: add_intinf0_int$80$1(level=2) local: global: */ ATSstatic() /* imparg = tmparg = tmpsub = Some() */ atstkind_type(atstype_ptrk) ATSCNTRB_056_HX_056_intinf_vt__add_intinf0_int__80__1(atstkind_type(atstype_ptrk) arg0, atstkind_t0ype(atstype_int) arg1) { /* tmpvardeclst(beg) */ ATStmpdec(tmpret168__1, atstkind_type(atstype_ptrk)) ; // ATStmpdec_void(tmp169__1) ; /* tmpvardeclst(end) */ ATSfunbody_beg() /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5133(line=273, offs=1) -- 5217(line=279, offs=2) */ ATSINSflab(__patsflab_add_intinf0_int): /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5160(line=274, offs=12) -- 5217(line=279, offs=2) */ /* letpush(beg) */ /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5184(line=277, offs=10) -- 5212(line=277, offs=38) */ ATSINSmove_void(tmp169__1, atscntrb_gmp_mpz_add2_int(ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), arg1)) ; /* letpush(end) */ /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5161(line=274, offs=13) -- 5162(line=274, offs=14) */ ATSINSmove(tmpret168__1, arg0) ; /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5160(line=274, offs=12) -- 5217(line=279, offs=2) */ /* INSletpop() */ ATSfunbody_end() ATSreturn(tmpret168__1) ; } /* end of [ATSCNTRB_056_HX_056_intinf_vt__add_intinf0_int__80__1] */ #if(0) /* /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2209(line=74, offs=3) -- 2301(line=80, offs=2) */ /* local: global: intinf_make_int$82$0(level=0) local: global: */ ATSextern() /* imparg = tmparg = tmpsub = None() */ atstkind_type(atstype_ptrk) ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__82(atstkind_t0ype(atstype_int) arg0) { /* tmpvardeclst(beg) */ ATStmpdec(tmpret174, atstkind_type(atstype_ptrk)) ; ATStmpdec(tmp175, atstkind_type(atstype_ptrk)) ; // ATStmpdec_void(tmp176) ; /* tmpvardeclst(end) */ ATSfunbody_beg() /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2191(line=73, offs=1) -- 2301(line=80, offs=2) */ ATSINSflab(__patsflab_intinf_make_int): /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) */ /* letpush(beg) */ /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2238(line=77, offs=9) -- 2254(line=77, offs=25) */ ATSINSmove(tmp175, PMVtmpltcst(ptr_alloc)()) ; /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2264(line=78, offs=10) -- 2296(line=78, offs=42) */ ATSINSmove_void(tmp176, atscntrb_gmp_mpz_init_set_int(ATSPMVrefarg1(ATSSELrecsin(tmp175, atstkind_type(atstype_ptrk), atslab__2)), arg0)) ; /* letpush(end) */ /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2216(line=74, offs=10) -- 2217(line=74, offs=11) */ ATSINSmove(tmpret174, tmp175) ; /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) */ /* INSletpop() */ ATSfunbody_end() ATSreturn(tmpret174) ; } /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__82] */ #endif // end of [TEMPLATE] /* /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2209(line=74, offs=3) -- 2301(line=80, offs=2) */ /* local: global: intinf_make_int$82$1(level=2) local: global: */ ATSstatic() /* imparg = tmparg = tmpsub = Some() */ atstkind_type(atstype_ptrk) ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__82__1(atstkind_t0ype(atstype_int) arg0) { /* tmpvardeclst(beg) */ ATStmpdec(tmpret174__1, atstkind_type(atstype_ptrk)) ; ATStmpdec(tmp175__1, atstkind_type(atstype_ptrk)) ; // ATStmpdec_void(tmp176__1) ; /* tmpvardeclst(end) */ ATSfunbody_beg() /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2191(line=73, offs=1) -- 2301(line=80, offs=2) */ ATSINSflab(__patsflab_intinf_make_int): /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) */ /* letpush(beg) */ /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2238(line=77, offs=9) -- 2254(line=77, offs=25) */ ATSINSmove(tmp175__1, ATSLIB_056_prelude__ptr_alloc__2__2()) ; /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2264(line=78, offs=10) -- 2296(line=78, offs=42) */ ATSINSmove_void(tmp176__1, atscntrb_gmp_mpz_init_set_int(ATSPMVrefarg1(ATSSELrecsin(tmp175__1, atstkind_type(atstype_ptrk), atslab__2)), arg0)) ; /* letpush(end) */ /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2216(line=74, offs=10) -- 2217(line=74, offs=11) */ ATSINSmove(tmpret174__1, tmp175__1) ; /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) */ /* INSletpop() */ ATSfunbody_end() ATSreturn(tmpret174__1) ; } /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__82__1] */ /* /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42) */ /* local: global: ptr_alloc$2$2(level=3) local: global: */ ATSstatic() /* imparg = a(4806) tmparg = S2Evar(a(4806)) tmpsub = Some(a(4806) -> S2Ecst(mpz_vt0ype)) */ atstkind_type(atstype_ptrk) ATSLIB_056_prelude__ptr_alloc__2__2() { /* tmpvardeclst(beg) */ ATStmpdec(tmpret3__2, atstkind_type(atstype_ptrk)) ; /* tmpvardeclst(end) */ ATSfunbody_beg() /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3708(line=184, offs=1) -- 3749(line=184, offs=42) */ ATSINSflab(__patsflab_ptr_alloc): /* emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42) */ ATSINSmove(tmpret3__2, atspre_ptr_alloc_tsz(ATSPMVsizeof(atscntrb_gmp_mpz))) ; ATSfunbody_end() ATSreturn(tmpret3__2) ; } /* end of [ATSLIB_056_prelude__ptr_alloc__2__2] */ /* /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory-ffi.dats: 491(line=26, offs=28) -- 513(line=27, offs=17) */ /* local: sum_divisors_59$0(level=0) global: sum_divisors_59$0(level=0), sum_divisors_ats$85$0(level=0) local: global: */ ATSextern() atstkind_t0ype(atstype_int) sum_divisors_ats(atstkind_t0ype(atstype_int) arg0) { /* tmpvardeclst(beg) */ ATStmpdec(tmpret183, atstkind_t0ype(atstype_int)) ; /* tmpvardeclst(end) */ ATSfunbody_beg() /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory-ffi.dats: 474(line=26, offs=11) -- 514(line=27, offs=18) */ ATSINSflab(__patsflab_sum_divisors_ats): /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory-ffi.dats: 499(line=27, offs=3) -- 513(line=27, offs=17) */ ATSINSmove(tmpret183, sum_divisors_59(arg0)) ; ATSfunbody_end() ATSreturn(tmpret183) ; } /* end of [sum_divisors_ats] */ /* /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory-ffi.dats: 545(line=29, offs=30) -- 569(line=30, offs=19) */ /* local: count_divisors_54$0(level=0) global: count_divisors_54$0(level=0), count_divisors_ats$86$0(level=0) local: global: */ ATSextern() atstkind_t0ype(atstype_int) count_divisors_ats(atstkind_t0ype(atstype_int) arg0) { /* tmpvardeclst(beg) */ ATStmpdec(tmpret184, atstkind_t0ype(atstype_int)) ; /* tmpvardeclst(end) */ ATSfunbody_beg() /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory-ffi.dats: 526(line=29, offs=11) -- 570(line=30, offs=20) */ ATSINSflab(__patsflab_count_divisors_ats): /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory-ffi.dats: 553(line=30, offs=3) -- 569(line=30, offs=19) */ ATSINSmove(tmpret184, count_divisors_54(arg0)) ; ATSfunbody_end() ATSreturn(tmpret184) ; } /* end of [count_divisors_ats] */ /* /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory-ffi.dats: 594(line=32, offs=23) -- 611(line=33, offs=12) */ /* local: totient_69$0(level=0) global: witness_0$0(level=0), sqrt_int_17$0(level=0), is_prime_20$0(level=0), totient_69$0(level=0), totient_ats$87$0(level=0) local: global: */ ATSextern() atstkind_t0ype(atstype_int) totient_ats(atstkind_t0ype(atstype_int) arg0) { /* tmpvardeclst(beg) */ ATStmpdec(tmpret185, atstkind_t0ype(atstype_int)) ; /* tmpvardeclst(end) */ ATSfunbody_beg() /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory-ffi.dats: 582(line=32, offs=11) -- 612(line=33, offs=13) */ ATSINSflab(__patsflab_totient_ats): /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory-ffi.dats: 602(line=33, offs=3) -- 611(line=33, offs=12) */ ATSINSmove(tmpret185, totient_69(arg0)) ; ATSfunbody_end() ATSreturn(tmpret185) ; } /* end of [totient_ats] */ /* /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory-ffi.dats: 641(line=35, offs=28) -- 663(line=36, offs=17) */ /* local: little_omega_65$0(level=0) global: witness_0$0(level=0), sqrt_int_17$0(level=0), is_prime_20$0(level=0), little_omega_65$0(level=0), little_omega_ats$88$0(level=0) local: global: */ ATSextern() atstkind_t0ype(atstype_int) little_omega_ats(atstkind_t0ype(atstype_int) arg0) { /* tmpvardeclst(beg) */ ATStmpdec(tmpret186, atstkind_t0ype(atstype_int)) ; /* tmpvardeclst(end) */ ATSfunbody_beg() /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory-ffi.dats: 624(line=35, offs=11) -- 664(line=36, offs=18) */ ATSINSflab(__patsflab_little_omega_ats): /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory-ffi.dats: 649(line=36, offs=3) -- 663(line=36, offs=17) */ ATSINSmove(tmpret186, little_omega_65(arg0)) ; ATSfunbody_end() ATSreturn(tmpret186) ; } /* end of [little_omega_ats] */ /* /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory-ffi.dats: 691(line=38, offs=26) -- 711(line=39, offs=15) */ /* local: is_perfect_63$0(level=0) global: sum_divisors_59$0(level=0), is_perfect_63$0(level=0), is_perfect_ats$89$0(level=0) local: global: */ ATSextern() atstkind_t0ype(atstype_bool) is_perfect_ats(atstkind_t0ype(atstype_int) arg0) { /* tmpvardeclst(beg) */ ATStmpdec(tmpret187, atstkind_t0ype(atstype_bool)) ; /* tmpvardeclst(end) */ ATSfunbody_beg() /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory-ffi.dats: 676(line=38, offs=11) -- 712(line=39, offs=16) */ ATSINSflab(__patsflab_is_perfect_ats): /* emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory-ffi.dats: 699(line=39, offs=3) -- 711(line=39, offs=15) */ ATSINSmove(tmpret187, is_perfect_63(arg0)) ; ATSfunbody_end() ATSreturn(tmpret187) ; } /* end of [is_perfect_ats] */ /* ** for initialization(dynloading) */ ATSdynloadflag_minit(_057_home_057_vanessa_057_programming_057_haskell_057_done_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_055_ffi_056_dats__dynloadflag) ; ATSextern() atsvoid_t0ype _057_home_057_vanessa_057_programming_057_haskell_057_done_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_055_ffi_056_dats__dynload() { ATSfunbody_beg() ATSdynload(/*void*/) ATSdynloadflag_sta( _057_home_057_vanessa_057_programming_057_haskell_057_done_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_055_ffi_056_dats__dynloadflag ) ; ATSif( ATSCKiseqz( _057_home_057_vanessa_057_programming_057_haskell_057_done_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_055_ffi_056_dats__dynloadflag ) ) ATSthen() { ATSdynloadset(_057_home_057_vanessa_057_programming_057_haskell_057_done_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_055_ffi_056_dats__dynloadflag) ; /* dynexnlst-initize(beg) */ /* dynexnlst-initize(end) */ /* local */ /* in of [local] */ /* end of [local] */ } /* ATSendif */ ATSfunbody_end() ATSreturn_void(tmpret_void) ; } /* end of [*_dynload] */ /* ****** ****** */ /* end-of-compilation-unit */