fast-arithmetic-0.6.4.3: cbits/number-theory.c
/*
**
** The C code is generated by [ATS/Postiats-0-3-13]
**
*/
/*
** 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)
*/
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/basics.dats: 1636(line=50, offs=1) -- 1675(line=50, offs=40)
*/
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 1596(line=49, offs=1) -- 1635(line=49, offs=40)
*/
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats: 1533(line=44, offs=1) -- 1572(line=44, offs=40)
*/
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer_long.dats: 1602(line=49, offs=1) -- 1641(line=49, offs=40)
*/
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer_size.dats: 1597(line=49, offs=1) -- 1636(line=49, offs=40)
*/
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer_short.dats: 1603(line=49, offs=1) -- 1642(line=49, offs=40)
*/
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/char.dats: 1610(line=48, offs=1) -- 1649(line=48, offs=40)
*/
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/float.dats: 1636(line=50, offs=1) -- 1675(line=50, offs=40)
*/
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/string.dats: 1631(line=50, offs=1) -- 1670(line=50, offs=40)
*/
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/strptr.dats: 1629(line=50, offs=1) -- 1668(line=50, offs=40)
*/
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/strptr.dats: 1691(line=54, offs=1) -- 1738(line=54, offs=48)
*/
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 1596(line=49, offs=1) -- 1635(line=49, offs=40)
*/
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer_ptr.dats: 1601(line=49, offs=1) -- 1640(line=49, offs=40)
*/
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer_fixed.dats: 1603(line=49, offs=1) -- 1642(line=49, offs=40)
*/
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/memory.dats: 1410(line=38, offs=1) -- 1449(line=39, offs=32)
*/
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/filebas.dats: 1607(line=49, offs=1) -- 1646(line=50, offs=32)
*/
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/filebas.dats: 1669(line=54, offs=1) -- 1715(line=55, offs=39)
*/
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 1596(line=49, offs=1) -- 1635(line=49, offs=40)
*/
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/filebas.dats: 1738(line=59, offs=1) -- 1783(line=60, offs=38)
*/
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/libats/libc/SATS/stdio.sats: 1390(line=36, offs=1) -- 1437(line=39, offs=3)
*/
#include \
"libats/libc/CATS/stdio.cats"
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/libats/libc/SATS/stdio.sats: 1950(line=69, offs=1) -- 1999(line=71, offs=34)
*/
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/libats/libc/SATS/sys/types.sats: 1390(line=36, offs=1) -- 1441(line=39, offs=3)
*/
#include \
"libats/libc/CATS/sys/types.cats"
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/filebas.dats: 1865(line=66, offs=1) -- 1912(line=66, offs=48)
*/
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/libats/libc/SATS/sys/stat.sats: 1390(line=36, offs=1) -- 1440(line=39, offs=3)
*/
#include \
"libats/libc/CATS/sys/stat.cats"
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/libats/libc/SATS/sys/stat.sats: 1756(line=58, offs=1) -- 1805(line=60, offs=34)
*/
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/libats/libc/SATS/sys/types.sats: 1390(line=36, offs=1) -- 1441(line=39, offs=3)
*/
#include \
"libats/libc/CATS/sys/types.cats"
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/filebas.dats: 15937(line=927, offs=1) -- 15974(line=928, offs=30)
*/
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/libats/libc/SATS/stdio.sats: 1390(line=36, offs=1) -- 1437(line=39, offs=3)
*/
#include \
"libats/libc/CATS/stdio.cats"
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/libats/libc/SATS/stdio.sats: 1950(line=69, offs=1) -- 1999(line=71, offs=34)
*/
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/libats/libc/SATS/sys/types.sats: 1390(line=36, offs=1) -- 1441(line=39, offs=3)
*/
#include \
"libats/libc/CATS/sys/types.cats"
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/list.dats: 1529(line=44, offs=1) -- 1568(line=45, offs=32)
*/
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/list.dats: 1569(line=46, offs=1) -- 1615(line=47, offs=39)
*/
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/unsafe.dats: 1532(line=44, offs=1) -- 1566(line=44, offs=35)
*/
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/list_vt.dats: 1538(line=44, offs=1) -- 1577(line=45, offs=32)
*/
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/list_vt.dats: 1578(line=46, offs=1) -- 1624(line=47, offs=39)
*/
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/unsafe.dats: 1532(line=44, offs=1) -- 1566(line=44, offs=35)
*/
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/SHARE/list_vt_mergesort.dats: 1546(line=44, offs=1) -- 1585(line=44, offs=40)
*/
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/SHARE/list_vt_quicksort.dats: 1546(line=44, offs=1) -- 1585(line=44, offs=40)
*/
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/array.dats: 1528(line=44, offs=1) -- 1567(line=45, offs=32)
*/
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/SHARE/array_bsearch.dats: 1531(line=44, offs=1) -- 1570(line=44, offs=40)
*/
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/SHARE/array_quicksort.dats: 1531(line=44, offs=1) -- 1570(line=44, offs=40)
*/
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/arrayptr.dats: 1532(line=44, offs=1) -- 1571(line=44, offs=40)
*/
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/arrayref.dats: 1532(line=44, offs=1) -- 1571(line=44, offs=40)
*/
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/matrix.dats: 1535(line=44, offs=1) -- 1574(line=44, offs=40)
*/
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/matrixptr.dats: 1538(line=44, offs=1) -- 1577(line=44, offs=40)
*/
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/matrixref.dats: 1538(line=44, offs=1) -- 1577(line=44, offs=40)
*/
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream.dats: 1523(line=44, offs=1) -- 1562(line=44, offs=40)
*/
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats: 1523(line=44, offs=1) -- 1562(line=44, offs=40)
*/
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/tostring.dats: 1528(line=44, offs=1) -- 1567(line=45, offs=32)
*/
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/unsafe.dats: 1532(line=44, offs=1) -- 1566(line=44, offs=35)
*/
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/checkast.dats: 1531(line=44, offs=1) -- 1570(line=45, offs=32)
*/
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/contrib/atscntrb/atscntrb-hx-libgmp/SATS/gmp.sats: 1178(line=38, offs=1) -- 1236(line=43, offs=3)
*/
//
#include \
"atscntrb-hx-libgmp/CATS/gmp.cats"
//
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/SATS/intinf_t.sats: 1805(line=48, offs=1) -- 1828(line=48, offs=24)
*/
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/SATS/intinf_vt.sats: 1806(line=48, offs=1) -- 1829(line=48, offs=24)
*/
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 1660(line=37, offs=1) -- 1700(line=38, offs=27)
*/
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 1727(line=42, offs=1) -- 1759(line=42, offs=33)
*/
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 1833(line=49, offs=1) -- 1867(line=49, offs=35)
*/
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/SATS/intinf_t.sats: 1805(line=48, offs=1) -- 1828(line=48, offs=24)
*/
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 1868(line=50, offs=1) -- 1908(line=50, offs=41)
*/
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/SATS/intinf_vt.sats: 1806(line=48, offs=1) -- 1829(line=48, offs=24)
*/
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 1656(line=37, offs=1) -- 1696(line=39, offs=27)
*/
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/mydepies.hats: 208(line=18, offs=1) -- 248(line=19, offs=32)
*/
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/contrib/atscntrb/atscntrb-hx-libgmp/SATS/gmp.sats: 1178(line=38, offs=1) -- 1236(line=43, offs=3)
*/
//
#include \
"atscntrb-hx-libgmp/CATS/gmp.cats"
//
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 1813(line=49, offs=1) -- 1845(line=49, offs=33)
*/
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 1846(line=50, offs=1) -- 1881(line=50, offs=36)
*/
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/SATS/intinf_vt.sats: 1806(line=48, offs=1) -- 1829(line=48, offs=24)
*/
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/gintinf_t.dats: 1657(line=37, offs=1) -- 1689(line=37, offs=33)
*/
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/gintinf_t.dats: 1690(line=38, offs=1) -- 1724(line=38, offs=35)
*/
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/SATS/intinf_t.sats: 1805(line=48, offs=1) -- 1828(line=48, offs=24)
*/
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/contrib/atscntrb/atscntrb-hx-libgmp/SATS/gmp.sats: 1178(line=38, offs=1) -- 1236(line=43, offs=3)
*/
//
#include \
"atscntrb-hx-libgmp/CATS/gmp.cats"
//
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/SATS/intinf_t.sats: 1805(line=48, offs=1) -- 1828(line=48, offs=24)
*/
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/SATS/intinf_vt.sats: 1806(line=48, offs=1) -- 1829(line=48, offs=24)
*/
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 1660(line=37, offs=1) -- 1700(line=38, offs=27)
*/
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 1727(line=42, offs=1) -- 1759(line=42, offs=33)
*/
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 1833(line=49, offs=1) -- 1867(line=49, offs=35)
*/
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/SATS/intinf_t.sats: 1805(line=48, offs=1) -- 1828(line=48, offs=24)
*/
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 1868(line=50, offs=1) -- 1908(line=50, offs=41)
*/
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/SATS/intinf_vt.sats: 1806(line=48, offs=1) -- 1829(line=48, offs=24)
*/
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 1656(line=37, offs=1) -- 1696(line=39, offs=27)
*/
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/mydepies.hats: 208(line=18, offs=1) -- 248(line=19, offs=32)
*/
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/contrib/atscntrb/atscntrb-hx-libgmp/SATS/gmp.sats: 1178(line=38, offs=1) -- 1236(line=43, offs=3)
*/
//
#include \
"atscntrb-hx-libgmp/CATS/gmp.cats"
//
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 1813(line=49, offs=1) -- 1845(line=49, offs=33)
*/
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 1846(line=50, offs=1) -- 1881(line=50, offs=36)
*/
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/SATS/intinf_vt.sats: 1806(line=48, offs=1) -- 1829(line=48, offs=24)
*/
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/gintinf_t.dats: 1657(line=37, offs=1) -- 1689(line=37, offs=33)
*/
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/gintinf_t.dats: 1690(line=38, offs=1) -- 1724(line=38, offs=35)
*/
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/SATS/intinf_t.sats: 1805(line=48, offs=1) -- 1828(line=48, offs=24)
*/
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/SATS/intinf_vt.sats: 1806(line=48, offs=1) -- 1829(line=48, offs=24)
*/
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/libats/libc/SATS/math.sats: 1380(line=35, offs=1) -- 1426(line=38, offs=3)
*/
#include \
"libats/libc/CATS/math.cats"
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.sats: 1(line=1, offs=1) -- 63(line=1, offs=63)
*/
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/SATS/intinf_vt.sats: 1806(line=48, offs=1) -- 1829(line=48, offs=24)
*/
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.sats: 64(line=2, offs=1) -- 95(line=2, offs=32)
*/
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/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 {
atstkind_t0ype(atstype_int) atslab__first ;
atstkind_t0ype(atstype_int) atslab__second ;
} postiats_tyrec_0 ;
typedef
ATSstruct {
#if(0)
int contag ;
#endif
atstkind_t0ype(atstype_int) atslab__0 ;
atstkind_type(atstype_ptrk) atslab__1 ;
} postiats_tysum_1 ;
typedef
ATSstruct {
#if(0)
int contag ;
#endif
atstyvar_type(a) atslab__0 ;
atstkind_type(atstype_ptrk) atslab__1 ;
} postiats_tysum_2 ;
typedef
ATSstruct {
#if(0)
int contag ;
#endif
atstyvar_type(a) atslab__0 ;
atstkind_type(atstype_ptrk) atslab__1 ;
} postiats_tysum_3 ;
/*
typedefs-for-tyrecs-and-tysums(end)
*/
/*
dynconlst-declaration(beg)
*/
/*
dynconlst-declaration(end)
*/
/*
dyncstlst-declaration(beg)
*/
ATSdyncst_mac(atspre_ptr_alloc_tsz)
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_g1int_eq_int)
ATSdyncst_mac(atscntrb_gmp_mpz_cmp_int)
ATSdyncst_mac(atspre_g0int_lt_int)
ATSdyncst_mac(atspre_g1int_neg_int)
ATSdyncst_mac(atspre_g0int_gt_int)
ATSdyncst_mac(atscntrb_gmp_mpz_init_set_mpz)
ATSdyncst_mac(atscntrb_gmp_mpz_mul2_mpz)
ATSdyncst_mac(atscntrb_gmp_mpz_clear)
ATSdyncst_mac(atspre_ptr_free)
ATSdyncst_mac(atscntrb_gmp_mpz_init_set_int)
ATSdyncst_mac(atspre_g0float2int_double_int)
ATSdyncst_mac(atslib_libats_libc_sqrt_double)
ATSdyncst_mac(atspre_g0int2float_int_double)
ATSdyncst_mac(atspre_g1int_lt_int)
ATSdyncst_mac(atspre_g1int_add_int)
ATSdyncst_mac(atspre_g1int_neq_int)
ATSdyncst_extfun(_057_home_057_vanessa_057_programming_057_haskell_057_done_057_hs_055_ats_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_sats__gcd, (atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)), atstkind_t0ype(atstype_int)) ;
ATSdyncst_mac(atspre_g0int_div_int)
ATSdyncst_mac(atspre_g1int_gte_int)
ATSdyncst_mac(atspre_g1int_div_int)
ATSdyncst_mac(atspre_g1int_sub_int)
ATSdyncst_mac(atspre_g0int_half_int)
ATSdyncst_mac(atspre_g1int_mul_int)
ATSdyncst_mac(atspre_g0int_neg_int)
ATSdyncst_extfun(_057_home_057_vanessa_057_programming_057_haskell_057_done_057_hs_055_ats_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_sats__divisors, (atstkind_t0ype(atstype_int)), atstkind_type(atstype_ptrk)) ;
ATSdyncst_mac(atspre_g0int_add_int)
ATSdyncst_extfun(sum_divisors_ats, (atstkind_t0ype(atstype_int)), atstkind_t0ype(atstype_int)) ;
ATSdyncst_mac(atspre_g0int_neq_int)
ATSdyncst_extfun(_057_home_057_vanessa_057_programming_057_haskell_057_done_057_hs_055_ats_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_sats__prime_factors, (atstkind_t0ype(atstype_int)), atstkind_type(atstype_ptrk)) ;
ATSdyncst_mac(atspre_g0int_sub_int)
ATSdyncst_mac(atspre_cloptr_free)
ATSdyncst_mac(atscntrb_gmp_mpz_add2_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_type(atstype_ptrk)
fib_gmp_0(atstkind_t0ype(atstype_uint)) ;
#if(0)
#if(0)
ATSextern()
atstkind_type(atstype_ptrk)
ATSLIB_056_prelude__ptr_alloc__1() ;
#endif // end of [QUALIFIED]
#endif // end of [TEMPLATE]
ATSstatic()
atstkind_type(atstype_ptrk)
ATSLIB_056_prelude__ptr_alloc__1__1() ;
ATSstatic()
atstkind_t0ype(atstype_int)
exp_3(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ;
#if(0)
#if(0)
ATSextern()
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__gt_g1int_int__4(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__4__1(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ;
#if(0)
#if(0)
ATSextern()
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__eq_g0int_int__10(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__10__1(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ;
ATSstatic()
atstkind_type(atstype_ptrk)
big_exp_15(atstkind_type(atstype_ptrk), atstkind_t0ype(atstype_int)) ;
#if(0)
#if(0)
ATSextern()
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__eq_g1int_int__16(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__16__1(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ;
#if(0)
#if(0)
ATSextern()
atstkind_t0ype(atstype_int)
ATSCNTRB_056_HX_056_intinf_vt__compare_intinf_int__19(atsrefarg0_type(atstkind_type(atstype_ptrk)), atstkind_t0ype(atstype_int)) ;
#endif // end of [QUALIFIED]
#endif // end of [TEMPLATE]
ATSstatic()
atstkind_t0ype(atstype_int)
ATSCNTRB_056_HX_056_intinf_vt__compare_intinf_int__19__1(atsrefarg0_type(atstkind_type(atstype_ptrk)), atstkind_t0ype(atstype_int)) ;
#if(0)
#if(0)
ATSextern()
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__lt_g0int_int__21(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_g0int_int__21__1(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ;
#if(0)
#if(0)
ATSextern()
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__gt_g0int_int__25(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_g0int_int__25__1(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ;
ATSstatic()
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__gt_g1int_int__4__2(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ;
ATSstatic()
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__eq_g0int_int__10__2(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ;
#if(0)
#if(0)
ATSextern()
atstkind_type(atstype_ptrk)
ATSCNTRB_056_HX_056_intinf_vt__square_intinf0__30(atstkind_type(atstype_ptrk)) ;
#endif // end of [QUALIFIED]
#endif // end of [TEMPLATE]
ATSstatic()
atstkind_type(atstype_ptrk)
ATSCNTRB_056_HX_056_intinf_vt__square_intinf0__30__1(atstkind_type(atstype_ptrk)) ;
#if(0)
#if(0)
ATSextern()
atstkind_type(atstype_ptrk)
ATSCNTRB_056_HX_056_intinf_vt__square_intinf1__32(atsrefarg0_type(atstkind_type(atstype_ptrk))) ;
#endif // end of [QUALIFIED]
#endif // end of [TEMPLATE]
ATSstatic()
atstkind_type(atstype_ptrk)
ATSCNTRB_056_HX_056_intinf_vt__square_intinf1__32__1(atsrefarg0_type(atstkind_type(atstype_ptrk))) ;
ATSstatic()
atstkind_type(atstype_ptrk)
ATSLIB_056_prelude__ptr_alloc__1__2() ;
#if(0)
#if(0)
ATSextern()
atsvoid_t0ype
ATSCNTRB_056_HX_056_intinf_vt__intinf_free__35(atstkind_type(atstype_ptrk)) ;
#endif // end of [QUALIFIED]
#endif // end of [TEMPLATE]
ATSstatic()
atsvoid_t0ype
ATSCNTRB_056_HX_056_intinf_vt__intinf_free__35__1(atstkind_type(atstype_ptrk)) ;
ATSstatic()
atstkind_type(atstype_ptrk)
ATSCNTRB_056_HX_056_intinf_vt__square_intinf1__32__2(atsrefarg0_type(atstkind_type(atstype_ptrk))) ;
ATSstatic()
atstkind_type(atstype_ptrk)
ATSLIB_056_prelude__ptr_alloc__1__3() ;
#if(0)
#if(0)
ATSextern()
atstkind_type(atstype_ptrk)
ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_intinf1__39(atstkind_type(atstype_ptrk), atsrefarg0_type(atstkind_type(atstype_ptrk))) ;
#endif // end of [QUALIFIED]
#endif // end of [TEMPLATE]
ATSstatic()
atstkind_type(atstype_ptrk)
ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_intinf1__39__1(atstkind_type(atstype_ptrk), atsrefarg0_type(atstkind_type(atstype_ptrk))) ;
ATSstatic()
atsvoid_t0ype
ATSCNTRB_056_HX_056_intinf_vt__intinf_free__35__2(atstkind_type(atstype_ptrk)) ;
ATSstatic()
atsvoid_t0ype
ATSCNTRB_056_HX_056_intinf_vt__intinf_free__35__3(atstkind_type(atstype_ptrk)) ;
#if(0)
#if(0)
ATSextern()
atstkind_type(atstype_ptrk)
ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__43(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__43__1(atstkind_t0ype(atstype_int)) ;
ATSstatic()
atstkind_type(atstype_ptrk)
ATSLIB_056_prelude__ptr_alloc__1__4() ;
ATSstatic()
atstkind_t0ype(atstype_int)
sqrt_int_46(atstkind_t0ype(atstype_int)) ;
ATSstatic()
atstkind_t0ype(atstype_bool)
is_prime_48(atstkind_t0ype(atstype_int)) ;
ATSstatic()
atstkind_t0ype(atstype_bool)
loop_49(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__50(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__50__1(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ;
ATSstatic()
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__eq_g0int_int__10__3(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ;
ATSstatic()
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__eq_g1int_int__16__2(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ;
ATSstatic()
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__eq_g0int_int__10__4(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ;
#if(0)
ATSextern()
atstkind_t0ype(atstype_bool)
_057_home_057_vanessa_057_programming_057_haskell_057_done_057_hs_055_ats_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_sats__divides(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ;
#endif // end of [QUALIFIED]
ATSstatic()
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__eq_g0int_int__10__5(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ;
#if(0)
ATSextern()
atstkind_t0ype(atstype_int)
_057_home_057_vanessa_057_programming_057_haskell_057_done_057_hs_055_ats_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_sats__gcd(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ;
#endif // end of [QUALIFIED]
#if(0)
#if(0)
ATSextern()
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__neq_g1int_int__60(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__60__1(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ;
#if(0)
ATSextern()
atstkind_t0ype(atstype_int)
_057_home_057_vanessa_057_programming_057_haskell_057_done_057_hs_055_ats_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_sats__lcm(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ;
#endif // end of [QUALIFIED]
#if(0)
ATSextern()
atstkind_t0ype(atstype_bool)
_057_home_057_vanessa_057_programming_057_haskell_057_done_057_hs_055_ats_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_sats__coprime(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ;
#endif // end of [QUALIFIED]
ATSstatic()
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__eq_g0int_int__10__6(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ;
#if(0)
ATSextern()
atstkind_type(atstype_ptrk)
_057_home_057_vanessa_057_programming_057_haskell_057_done_057_hs_055_ats_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_sats__divisors(atstkind_t0ype(atstype_int)) ;
#endif // end of [QUALIFIED]
ATSstatic()
atstype_boxed
__patsfun_68(atstype_bool) ;
ATSstatic()
atstype_boxed
__patsfun_69(atstype_bool) ;
ATSstatic()
atstkind_type(atstype_ptrk)
loop_70(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ;
#if(0)
#if(0)
ATSextern()
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__gte_g1int_int__71(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__71__1(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ;
ATSstatic()
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__eq_g0int_int__10__7(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ;
ATSstatic()
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__neq_g1int_int__60__2(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ;
ATSstatic()
atstype_boxed
__patsfun_77(atstkind_t0ype(atstype_int), atstkind_type(atstype_ptrk), atstype_bool) ;
ATSstatic()
atstype_boxed
__patsfun_78(atstkind_type(atstype_ptrk), atstype_bool) ;
ATSstatic()
atstype_boxed
__patsfun_79(atstype_bool) ;
ATSstatic()
atstype_boxed
__patsfun_80(atstkind_t0ype(atstype_int), atstype_bool) ;
ATSstatic()
atstype_boxed
__patsfun_81(atstype_bool) ;
ATSstatic()
atstype_boxed
__patsfun_82(atstype_bool) ;
ATSstatic()
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__eq_g0int_int__10__8(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ;
ATSstatic()
atstype_boxed
__patsfun_84(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int), atstkind_type(atstype_ptrk), atstype_bool) ;
ATSstatic()
atstype_boxed
__patsfun_85(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int), atstkind_type(atstype_ptrk), atstype_bool) ;
ATSstatic()
atstkind_t0ype(atstype_int)
div_gt_zero_86(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ;
ATSstatic()
atstkind_t0ype(atstype_int)
jacobi_87(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ;
ATSstatic()
atstkind_t0ype(atstype_int)
legendre_88(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ;
ATSstatic()
atstkind_t0ype(atstype_int)
exp_mod_prime_89(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ;
ATSstatic()
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__gt_g1int_int__4__3(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ;
ATSstatic()
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__eq_g0int_int__10__9(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ;
ATSstatic()
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__eq_g0int_int__10__10(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ;
ATSstatic()
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__eq_g0int_int__10__11(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ;
ATSstatic()
atstkind_t0ype(atstype_int)
get_multiplicity_97(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ;
ATSstatic()
atstkind_t0ype(atstype_int)
loop_98(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ;
ATSstatic()
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__gt_g1int_int__4__4(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ;
ATSstatic()
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__eq_g1int_int__16__3(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ;
ATSstatic()
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__eq_g0int_int__10__12(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ;
ATSstatic()
atstkind_t0ype(atstype_int)
jacobi2_102(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ;
ATSstatic()
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__gt_g1int_int__4__5(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ;
ATSstatic()
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__eq_g0int_int__10__13(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ;
ATSstatic()
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__eq_g0int_int__10__14(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ;
ATSstatic()
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__eq_g0int_int__10__15(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ;
ATSstatic()
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__eq_g0int_int__10__16(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ;
ATSstatic()
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__eq_g0int_int__10__17(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ;
#if(0)
ATSextern()
atstkind_t0ype(atstype_int)
count_divisors_ats(atstkind_t0ype(atstype_int)) ;
#endif // end of [QUALIFIED]
#if(0)
#if(0)
ATSextern()
atstkind_t0ype(atstype_int)
ATSLIB_056_prelude__stream_vt_length__111(atstkind_type(atstype_ptrk)) ;
#endif // end of [QUALIFIED]
#endif // end of [TEMPLATE]
#if(0)
ATSstatic()
atstkind_t0ype(atstype_int)
loop_112__112(atstkind_type(atstype_ptrk), atstkind_t0ype(atstype_int)) ;
#endif // end of [TEMPLATE]
ATSstatic()
atstkind_t0ype(atstype_int)
ATSLIB_056_prelude__stream_vt_length__111__1(atstkind_type(atstype_ptrk)) ;
ATSstatic()
atstkind_t0ype(atstype_int)
loop_112__112__1(atstkind_type(atstype_ptrk), atstkind_t0ype(atstype_int)) ;
#if(0)
ATSextern()
atstkind_t0ype(atstype_int)
sum_divisors_ats(atstkind_t0ype(atstype_int)) ;
#endif // end of [QUALIFIED]
ATSstatic()
atstkind_t0ype(atstype_int)
loop_116(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ;
ATSstatic()
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__gte_g1int_int__71__2(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ;
ATSstatic()
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__eq_g0int_int__10__18(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ;
ATSstatic()
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__neq_g1int_int__60__3(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ;
ATSstatic()
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__eq_g0int_int__10__19(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ;
#if(0)
ATSextern()
atstkind_t0ype(atstype_bool)
is_perfect_ats(atstkind_t0ype(atstype_int)) ;
#endif // end of [QUALIFIED]
ATSstatic()
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__eq_g0int_int__10__20(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ;
ATSstatic()
atstkind_t0ype(atstype_int)
rip_124(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ;
#if(0)
#if(0)
ATSextern()
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__neq_g0int_int__125(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_g0int_int__125__1(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ;
ATSstatic()
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__gt_g1int_int__4__6(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ;
ATSstatic()
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__lt_g1int_int__50__2(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ;
#if(0)
ATSextern()
atstkind_type(atstype_ptrk)
_057_home_057_vanessa_057_programming_057_haskell_057_done_057_hs_055_ats_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_sats__prime_factors(atstkind_t0ype(atstype_int)) ;
#endif // end of [QUALIFIED]
ATSstatic()
atstkind_type(atstype_ptrk)
loop_131(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ;
ATSstatic()
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__gte_g1int_int__71__3(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ;
ATSstatic()
atstype_boxed
__patsfun_133(atstkind_t0ype(atstype_int), atstype_bool) ;
ATSstatic()
atstype_boxed
__patsfun_134(atstype_bool) ;
ATSstatic()
atstype_boxed
__patsfun_135(atstype_bool) ;
ATSstatic()
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__eq_g0int_int__10__21(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ;
ATSstatic()
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__gt_g1int_int__4__7(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ;
ATSstatic()
atstype_boxed
__patsfun_138(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int), atstype_bool) ;
ATSstatic()
atstype_boxed
__patsfun_139(atstkind_t0ype(atstype_int), atstype_bool) ;
ATSstatic()
atstype_boxed
__patsfun_140(atstype_bool) ;
#if(0)
ATSextern()
atstkind_t0ype(atstype_int)
little_omega_ats(atstkind_t0ype(atstype_int)) ;
#endif // end of [QUALIFIED]
ATSstatic()
atstkind_t0ype(atstype_int)
loop_142(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ;
ATSstatic()
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__gte_g1int_int__71__4(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ;
ATSstatic()
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__eq_g0int_int__10__22(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ;
ATSstatic()
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__gt_g1int_int__4__8(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ;
#if(0)
ATSextern()
atstkind_t0ype(atstype_int)
radical_ats(atstkind_t0ype(atstype_int)) ;
#endif // end of [QUALIFIED]
ATSstatic()
atstkind_t0ype(atstype_int)
product_147(atstkind_type(atstype_ptrk)) ;
ATSstatic()
atstkind_t0ype(atstype_int)
totient_148(atstkind_t0ype(atstype_int)) ;
ATSstatic()
postiats_tyrec_0
adjust_contents_149(postiats_tyrec_0, atstkind_t0ype(atstype_int)) ;
#if(0)
#if(0)
ATSextern()
atstyvar_type(res)
ATSLIB_056_prelude__stream_vt_foldleft_cloptr__151(atstkind_type(atstype_ptrk), atstyvar_type(res), atstype_cloptr) ;
#endif // end of [QUALIFIED]
#endif // end of [TEMPLATE]
#if(0)
ATSstatic()
atstyvar_type(res)
loop_152__152(atstkind_type(atstype_ptrk), atstyvar_type(res), atstype_cloptr) ;
#endif // end of [TEMPLATE]
ATSstatic()
postiats_tyrec_0
ATSLIB_056_prelude__stream_vt_foldleft_cloptr__151__1(atstkind_type(atstype_ptrk), postiats_tyrec_0, atstype_cloptr) ;
ATSstatic()
postiats_tyrec_0
loop_152__152__1(atstkind_type(atstype_ptrk), postiats_tyrec_0, atstype_cloptr) ;
ATSstatic()
postiats_tyrec_0
__patsfun_155(postiats_tyrec_0, atsrefarg1_type(atstkind_t0ype(atstype_int))) ;
#if(0)
ATSextern()
atstkind_type(atstype_ptrk)
_057_home_057_vanessa_057_programming_057_haskell_057_done_057_hs_055_ats_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_sats__totient_sum(atstkind_t0ype(atstype_int)) ;
#endif // end of [QUALIFIED]
ATSstatic()
atstkind_type(atstype_ptrk)
loop_157(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ;
ATSstatic()
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__lt_g1int_int__50__3(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__159(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__159__1(atstkind_type(atstype_ptrk), atstkind_t0ype(atstype_int)) ;
ATSstatic()
atstkind_type(atstype_ptrk)
ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__43__2(atstkind_t0ype(atstype_int)) ;
ATSstatic()
atstkind_type(atstype_ptrk)
ATSLIB_056_prelude__ptr_alloc__1__5() ;
#if(0)
ATSextern()
atstkind_t0ype(atstype_int)
totient_ats(atstkind_t0ype(atstype_int)) ;
#endif // end of [QUALIFIED]
#if(0)
ATSextern()
atstkind_t0ype(atstype_int)
jacobi_ats(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ;
#endif // end of [QUALIFIED]
ATSclosurerize_beg(__patsfun_68, (), (atstype_bool), atstype_boxed)
typedef
ATSstruct {
atstype_funptr cfun ;
} __patsfun_68__closure_t0ype ;
ATSstatic()
atstype_boxed
__patsfun_68__cfun
(
__patsfun_68__closure_t0ype *p_cenv, atstype_bool arg0
)
{
ATSFCreturn(__patsfun_68(arg0)) ;
} /* end of [cfun] */
ATSstatic()
atstype_cloptr
__patsfun_68__closureinit
(
__patsfun_68__closure_t0ype *p_cenv
)
{
p_cenv->cfun = __patsfun_68__cfun ;
return p_cenv ;
} /* end of [closureinit] */
ATSstatic()
atstype_cloptr
__patsfun_68__closurerize
(
// argumentless
)
{
return __patsfun_68__closureinit(ATS_MALLOC(sizeof(__patsfun_68__closure_t0ype))) ;
} /* end of [closurerize] */
ATSclosurerize_end()
ATSclosurerize_beg(__patsfun_69, (), (atstype_bool), atstype_boxed)
typedef
ATSstruct {
atstype_funptr cfun ;
} __patsfun_69__closure_t0ype ;
ATSstatic()
atstype_boxed
__patsfun_69__cfun
(
__patsfun_69__closure_t0ype *p_cenv, atstype_bool arg0
)
{
ATSFCreturn(__patsfun_69(arg0)) ;
} /* end of [cfun] */
ATSstatic()
atstype_cloptr
__patsfun_69__closureinit
(
__patsfun_69__closure_t0ype *p_cenv
)
{
p_cenv->cfun = __patsfun_69__cfun ;
return p_cenv ;
} /* end of [closureinit] */
ATSstatic()
atstype_cloptr
__patsfun_69__closurerize
(
// argumentless
)
{
return __patsfun_69__closureinit(ATS_MALLOC(sizeof(__patsfun_69__closure_t0ype))) ;
} /* end of [closurerize] */
ATSclosurerize_end()
ATSclosurerize_beg(__patsfun_77, (atstkind_t0ype(atstype_int), atstkind_type(atstype_ptrk)), (atstype_bool), atstype_boxed)
typedef
ATSstruct {
atstype_funptr cfun ;
atstkind_t0ype(atstype_int) env0 ;
atstkind_type(atstype_ptrk) env1 ;
} __patsfun_77__closure_t0ype ;
ATSstatic()
atstype_boxed
__patsfun_77__cfun
(
__patsfun_77__closure_t0ype *p_cenv, atstype_bool arg0
)
{
ATSFCreturn(__patsfun_77(p_cenv->env0, p_cenv->env1, arg0)) ;
} /* end of [cfun] */
ATSstatic()
atstype_cloptr
__patsfun_77__closureinit
(
__patsfun_77__closure_t0ype *p_cenv, atstkind_t0ype(atstype_int) env0, atstkind_type(atstype_ptrk) env1
)
{
p_cenv->env0 = env0 ;
p_cenv->env1 = env1 ;
p_cenv->cfun = __patsfun_77__cfun ;
return p_cenv ;
} /* end of [closureinit] */
ATSstatic()
atstype_cloptr
__patsfun_77__closurerize
(
atstkind_t0ype(atstype_int) env0, atstkind_type(atstype_ptrk) env1
)
{
return __patsfun_77__closureinit(ATS_MALLOC(sizeof(__patsfun_77__closure_t0ype)), env0, env1) ;
} /* end of [closurerize] */
ATSclosurerize_end()
ATSclosurerize_beg(__patsfun_78, (atstkind_type(atstype_ptrk)), (atstype_bool), atstype_boxed)
typedef
ATSstruct {
atstype_funptr cfun ;
atstkind_type(atstype_ptrk) env0 ;
} __patsfun_78__closure_t0ype ;
ATSstatic()
atstype_boxed
__patsfun_78__cfun
(
__patsfun_78__closure_t0ype *p_cenv, atstype_bool arg0
)
{
ATSFCreturn(__patsfun_78(p_cenv->env0, arg0)) ;
} /* end of [cfun] */
ATSstatic()
atstype_cloptr
__patsfun_78__closureinit
(
__patsfun_78__closure_t0ype *p_cenv, atstkind_type(atstype_ptrk) env0
)
{
p_cenv->env0 = env0 ;
p_cenv->cfun = __patsfun_78__cfun ;
return p_cenv ;
} /* end of [closureinit] */
ATSstatic()
atstype_cloptr
__patsfun_78__closurerize
(
atstkind_type(atstype_ptrk) env0
)
{
return __patsfun_78__closureinit(ATS_MALLOC(sizeof(__patsfun_78__closure_t0ype)), env0) ;
} /* end of [closurerize] */
ATSclosurerize_end()
ATSclosurerize_beg(__patsfun_79, (), (atstype_bool), atstype_boxed)
typedef
ATSstruct {
atstype_funptr cfun ;
} __patsfun_79__closure_t0ype ;
ATSstatic()
atstype_boxed
__patsfun_79__cfun
(
__patsfun_79__closure_t0ype *p_cenv, atstype_bool arg0
)
{
ATSFCreturn(__patsfun_79(arg0)) ;
} /* end of [cfun] */
ATSstatic()
atstype_cloptr
__patsfun_79__closureinit
(
__patsfun_79__closure_t0ype *p_cenv
)
{
p_cenv->cfun = __patsfun_79__cfun ;
return p_cenv ;
} /* end of [closureinit] */
ATSstatic()
atstype_cloptr
__patsfun_79__closurerize
(
// argumentless
)
{
return __patsfun_79__closureinit(ATS_MALLOC(sizeof(__patsfun_79__closure_t0ype))) ;
} /* end of [closurerize] */
ATSclosurerize_end()
ATSclosurerize_beg(__patsfun_80, (atstkind_t0ype(atstype_int)), (atstype_bool), atstype_boxed)
typedef
ATSstruct {
atstype_funptr cfun ;
atstkind_t0ype(atstype_int) env0 ;
} __patsfun_80__closure_t0ype ;
ATSstatic()
atstype_boxed
__patsfun_80__cfun
(
__patsfun_80__closure_t0ype *p_cenv, atstype_bool arg0
)
{
ATSFCreturn(__patsfun_80(p_cenv->env0, arg0)) ;
} /* end of [cfun] */
ATSstatic()
atstype_cloptr
__patsfun_80__closureinit
(
__patsfun_80__closure_t0ype *p_cenv, atstkind_t0ype(atstype_int) env0
)
{
p_cenv->env0 = env0 ;
p_cenv->cfun = __patsfun_80__cfun ;
return p_cenv ;
} /* end of [closureinit] */
ATSstatic()
atstype_cloptr
__patsfun_80__closurerize
(
atstkind_t0ype(atstype_int) env0
)
{
return __patsfun_80__closureinit(ATS_MALLOC(sizeof(__patsfun_80__closure_t0ype)), env0) ;
} /* end of [closurerize] */
ATSclosurerize_end()
ATSclosurerize_beg(__patsfun_81, (), (atstype_bool), atstype_boxed)
typedef
ATSstruct {
atstype_funptr cfun ;
} __patsfun_81__closure_t0ype ;
ATSstatic()
atstype_boxed
__patsfun_81__cfun
(
__patsfun_81__closure_t0ype *p_cenv, atstype_bool arg0
)
{
ATSFCreturn(__patsfun_81(arg0)) ;
} /* end of [cfun] */
ATSstatic()
atstype_cloptr
__patsfun_81__closureinit
(
__patsfun_81__closure_t0ype *p_cenv
)
{
p_cenv->cfun = __patsfun_81__cfun ;
return p_cenv ;
} /* end of [closureinit] */
ATSstatic()
atstype_cloptr
__patsfun_81__closurerize
(
// argumentless
)
{
return __patsfun_81__closureinit(ATS_MALLOC(sizeof(__patsfun_81__closure_t0ype))) ;
} /* end of [closurerize] */
ATSclosurerize_end()
ATSclosurerize_beg(__patsfun_82, (), (atstype_bool), atstype_boxed)
typedef
ATSstruct {
atstype_funptr cfun ;
} __patsfun_82__closure_t0ype ;
ATSstatic()
atstype_boxed
__patsfun_82__cfun
(
__patsfun_82__closure_t0ype *p_cenv, atstype_bool arg0
)
{
ATSFCreturn(__patsfun_82(arg0)) ;
} /* end of [cfun] */
ATSstatic()
atstype_cloptr
__patsfun_82__closureinit
(
__patsfun_82__closure_t0ype *p_cenv
)
{
p_cenv->cfun = __patsfun_82__cfun ;
return p_cenv ;
} /* end of [closureinit] */
ATSstatic()
atstype_cloptr
__patsfun_82__closurerize
(
// argumentless
)
{
return __patsfun_82__closureinit(ATS_MALLOC(sizeof(__patsfun_82__closure_t0ype))) ;
} /* end of [closurerize] */
ATSclosurerize_end()
ATSclosurerize_beg(__patsfun_84, (atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int), atstkind_type(atstype_ptrk)), (atstype_bool), atstype_boxed)
typedef
ATSstruct {
atstype_funptr cfun ;
atstkind_t0ype(atstype_int) env0 ;
atstkind_t0ype(atstype_int) env1 ;
atstkind_type(atstype_ptrk) env2 ;
} __patsfun_84__closure_t0ype ;
ATSstatic()
atstype_boxed
__patsfun_84__cfun
(
__patsfun_84__closure_t0ype *p_cenv, atstype_bool arg0
)
{
ATSFCreturn(__patsfun_84(p_cenv->env0, p_cenv->env1, p_cenv->env2, arg0)) ;
} /* end of [cfun] */
ATSstatic()
atstype_cloptr
__patsfun_84__closureinit
(
__patsfun_84__closure_t0ype *p_cenv, atstkind_t0ype(atstype_int) env0, atstkind_t0ype(atstype_int) env1, atstkind_type(atstype_ptrk) env2
)
{
p_cenv->env0 = env0 ;
p_cenv->env1 = env1 ;
p_cenv->env2 = env2 ;
p_cenv->cfun = __patsfun_84__cfun ;
return p_cenv ;
} /* end of [closureinit] */
ATSstatic()
atstype_cloptr
__patsfun_84__closurerize
(
atstkind_t0ype(atstype_int) env0, atstkind_t0ype(atstype_int) env1, atstkind_type(atstype_ptrk) env2
)
{
return __patsfun_84__closureinit(ATS_MALLOC(sizeof(__patsfun_84__closure_t0ype)), env0, env1, env2) ;
} /* end of [closurerize] */
ATSclosurerize_end()
ATSclosurerize_beg(__patsfun_85, (atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int), atstkind_type(atstype_ptrk)), (atstype_bool), atstype_boxed)
typedef
ATSstruct {
atstype_funptr cfun ;
atstkind_t0ype(atstype_int) env0 ;
atstkind_t0ype(atstype_int) env1 ;
atstkind_type(atstype_ptrk) env2 ;
} __patsfun_85__closure_t0ype ;
ATSstatic()
atstype_boxed
__patsfun_85__cfun
(
__patsfun_85__closure_t0ype *p_cenv, atstype_bool arg0
)
{
ATSFCreturn(__patsfun_85(p_cenv->env0, p_cenv->env1, p_cenv->env2, arg0)) ;
} /* end of [cfun] */
ATSstatic()
atstype_cloptr
__patsfun_85__closureinit
(
__patsfun_85__closure_t0ype *p_cenv, atstkind_t0ype(atstype_int) env0, atstkind_t0ype(atstype_int) env1, atstkind_type(atstype_ptrk) env2
)
{
p_cenv->env0 = env0 ;
p_cenv->env1 = env1 ;
p_cenv->env2 = env2 ;
p_cenv->cfun = __patsfun_85__cfun ;
return p_cenv ;
} /* end of [closureinit] */
ATSstatic()
atstype_cloptr
__patsfun_85__closurerize
(
atstkind_t0ype(atstype_int) env0, atstkind_t0ype(atstype_int) env1, atstkind_type(atstype_ptrk) env2
)
{
return __patsfun_85__closureinit(ATS_MALLOC(sizeof(__patsfun_85__closure_t0ype)), env0, env1, env2) ;
} /* end of [closurerize] */
ATSclosurerize_end()
ATSclosurerize_beg(__patsfun_133, (atstkind_t0ype(atstype_int)), (atstype_bool), atstype_boxed)
typedef
ATSstruct {
atstype_funptr cfun ;
atstkind_t0ype(atstype_int) env0 ;
} __patsfun_133__closure_t0ype ;
ATSstatic()
atstype_boxed
__patsfun_133__cfun
(
__patsfun_133__closure_t0ype *p_cenv, atstype_bool arg0
)
{
ATSFCreturn(__patsfun_133(p_cenv->env0, arg0)) ;
} /* end of [cfun] */
ATSstatic()
atstype_cloptr
__patsfun_133__closureinit
(
__patsfun_133__closure_t0ype *p_cenv, atstkind_t0ype(atstype_int) env0
)
{
p_cenv->env0 = env0 ;
p_cenv->cfun = __patsfun_133__cfun ;
return p_cenv ;
} /* end of [closureinit] */
ATSstatic()
atstype_cloptr
__patsfun_133__closurerize
(
atstkind_t0ype(atstype_int) env0
)
{
return __patsfun_133__closureinit(ATS_MALLOC(sizeof(__patsfun_133__closure_t0ype)), env0) ;
} /* end of [closurerize] */
ATSclosurerize_end()
ATSclosurerize_beg(__patsfun_134, (), (atstype_bool), atstype_boxed)
typedef
ATSstruct {
atstype_funptr cfun ;
} __patsfun_134__closure_t0ype ;
ATSstatic()
atstype_boxed
__patsfun_134__cfun
(
__patsfun_134__closure_t0ype *p_cenv, atstype_bool arg0
)
{
ATSFCreturn(__patsfun_134(arg0)) ;
} /* end of [cfun] */
ATSstatic()
atstype_cloptr
__patsfun_134__closureinit
(
__patsfun_134__closure_t0ype *p_cenv
)
{
p_cenv->cfun = __patsfun_134__cfun ;
return p_cenv ;
} /* end of [closureinit] */
ATSstatic()
atstype_cloptr
__patsfun_134__closurerize
(
// argumentless
)
{
return __patsfun_134__closureinit(ATS_MALLOC(sizeof(__patsfun_134__closure_t0ype))) ;
} /* end of [closurerize] */
ATSclosurerize_end()
ATSclosurerize_beg(__patsfun_135, (), (atstype_bool), atstype_boxed)
typedef
ATSstruct {
atstype_funptr cfun ;
} __patsfun_135__closure_t0ype ;
ATSstatic()
atstype_boxed
__patsfun_135__cfun
(
__patsfun_135__closure_t0ype *p_cenv, atstype_bool arg0
)
{
ATSFCreturn(__patsfun_135(arg0)) ;
} /* end of [cfun] */
ATSstatic()
atstype_cloptr
__patsfun_135__closureinit
(
__patsfun_135__closure_t0ype *p_cenv
)
{
p_cenv->cfun = __patsfun_135__cfun ;
return p_cenv ;
} /* end of [closureinit] */
ATSstatic()
atstype_cloptr
__patsfun_135__closurerize
(
// argumentless
)
{
return __patsfun_135__closureinit(ATS_MALLOC(sizeof(__patsfun_135__closure_t0ype))) ;
} /* end of [closurerize] */
ATSclosurerize_end()
ATSclosurerize_beg(__patsfun_138, (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_138__closure_t0ype ;
ATSstatic()
atstype_boxed
__patsfun_138__cfun
(
__patsfun_138__closure_t0ype *p_cenv, atstype_bool arg0
)
{
ATSFCreturn(__patsfun_138(p_cenv->env0, p_cenv->env1, arg0)) ;
} /* end of [cfun] */
ATSstatic()
atstype_cloptr
__patsfun_138__closureinit
(
__patsfun_138__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_138__cfun ;
return p_cenv ;
} /* end of [closureinit] */
ATSstatic()
atstype_cloptr
__patsfun_138__closurerize
(
atstkind_t0ype(atstype_int) env0, atstkind_t0ype(atstype_int) env1
)
{
return __patsfun_138__closureinit(ATS_MALLOC(sizeof(__patsfun_138__closure_t0ype)), env0, env1) ;
} /* end of [closurerize] */
ATSclosurerize_end()
ATSclosurerize_beg(__patsfun_139, (atstkind_t0ype(atstype_int)), (atstype_bool), atstype_boxed)
typedef
ATSstruct {
atstype_funptr cfun ;
atstkind_t0ype(atstype_int) env0 ;
} __patsfun_139__closure_t0ype ;
ATSstatic()
atstype_boxed
__patsfun_139__cfun
(
__patsfun_139__closure_t0ype *p_cenv, atstype_bool arg0
)
{
ATSFCreturn(__patsfun_139(p_cenv->env0, arg0)) ;
} /* end of [cfun] */
ATSstatic()
atstype_cloptr
__patsfun_139__closureinit
(
__patsfun_139__closure_t0ype *p_cenv, atstkind_t0ype(atstype_int) env0
)
{
p_cenv->env0 = env0 ;
p_cenv->cfun = __patsfun_139__cfun ;
return p_cenv ;
} /* end of [closureinit] */
ATSstatic()
atstype_cloptr
__patsfun_139__closurerize
(
atstkind_t0ype(atstype_int) env0
)
{
return __patsfun_139__closureinit(ATS_MALLOC(sizeof(__patsfun_139__closure_t0ype)), env0) ;
} /* end of [closurerize] */
ATSclosurerize_end()
ATSclosurerize_beg(__patsfun_140, (), (atstype_bool), atstype_boxed)
typedef
ATSstruct {
atstype_funptr cfun ;
} __patsfun_140__closure_t0ype ;
ATSstatic()
atstype_boxed
__patsfun_140__cfun
(
__patsfun_140__closure_t0ype *p_cenv, atstype_bool arg0
)
{
ATSFCreturn(__patsfun_140(arg0)) ;
} /* end of [cfun] */
ATSstatic()
atstype_cloptr
__patsfun_140__closureinit
(
__patsfun_140__closure_t0ype *p_cenv
)
{
p_cenv->cfun = __patsfun_140__cfun ;
return p_cenv ;
} /* end of [closureinit] */
ATSstatic()
atstype_cloptr
__patsfun_140__closurerize
(
// argumentless
)
{
return __patsfun_140__closureinit(ATS_MALLOC(sizeof(__patsfun_140__closure_t0ype))) ;
} /* end of [closurerize] */
ATSclosurerize_end()
ATSclosurerize_beg(__patsfun_155, (), (postiats_tyrec_0, atsrefarg1_type(atstkind_t0ype(atstype_int))), postiats_tyrec_0)
typedef
ATSstruct {
atstype_funptr cfun ;
} __patsfun_155__closure_t0ype ;
ATSstatic()
postiats_tyrec_0
__patsfun_155__cfun
(
__patsfun_155__closure_t0ype *p_cenv, postiats_tyrec_0 arg0, atsrefarg1_type(atstkind_t0ype(atstype_int)) arg1
)
{
ATSFCreturn(__patsfun_155(arg0, arg1)) ;
} /* end of [cfun] */
ATSstatic()
atstype_cloptr
__patsfun_155__closureinit
(
__patsfun_155__closure_t0ype *p_cenv
)
{
p_cenv->cfun = __patsfun_155__cfun ;
return p_cenv ;
} /* end of [closureinit] */
ATSstatic()
atstype_cloptr
__patsfun_155__closurerize
(
// argumentless
)
{
return __patsfun_155__closureinit(ATS_MALLOC(sizeof(__patsfun_155__closure_t0ype))) ;
} /* end of [closurerize] */
ATSclosurerize_end()
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 414(line=12, offs=4) -- 587(line=19, offs=6)
*/
/*
local:
global: fib_gmp_0$0(level=0)
local:
global:
*/
ATSstatic()
atstkind_type(atstype_ptrk)
fib_gmp_0(atstkind_t0ype(atstype_uint) arg0)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret0, atstkind_type(atstype_ptrk)) ;
ATStmpdec(tmpref1, atstkind_type(atstype_ptrk)) ;
// ATStmpdec_void(tmp4) ;
// ATStmpdec_void(tmp5) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 414(line=12, offs=4) -- 587(line=19, offs=6)
*/
ATSINSflab(__patsflab_fib_gmp_0):
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 451(line=13, offs=3) -- 587(line=19, offs=6)
*/
/*
letpush(beg)
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 463(line=14, offs=9) -- 464(line=14, offs=10)
*/
/*
ATSINStmpdec(tmpref1) ;
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 467(line=14, offs=13) -- 478(line=14, offs=24)
*/
ATSINSmove(tmpref1, ATSLIB_056_prelude__ptr_alloc__1__1()) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 492(line=15, offs=14) -- 513(line=15, offs=35)
*/
ATSINSmove_void(tmp4, atscntrb_gmp_mpz_init(ATSPMVrefarg1(ATSSELrecsin(tmpref1, atstkind_type(atstype_ptrk), atslab__2)))) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 527(line=16, offs=14) -- 555(line=16, offs=42)
*/
ATSINSmove_void(tmp5, atscntrb_gmp_mpz_fib_uint(ATSPMVrefarg1(ATSSELrecsin(tmpref1, atstkind_type(atstype_ptrk), atslab__2)), arg0)) ;
/*
letpush(end)
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 565(line=18, offs=5) -- 580(line=18, offs=20)
*/
ATSINSmove(tmpret0, ATSPMVcastfn(castvwtp0, atstkind_type(atstype_ptrk), tmpref1)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 451(line=13, offs=3) -- 587(line=19, offs=6)
*/
/*
INSletpop()
*/
ATSfunbody_end()
ATSreturn(tmpret0) ;
} /* end of [fib_gmp_0] */
#if(0)
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42)
*/
/*
local:
global: ptr_alloc$1$0(level=0)
local:
global:
*/
ATSextern()
/*
imparg = a(4740)
tmparg = S2Evar(a(4740))
tmpsub = None()
*/
atstkind_type(atstype_ptrk)
ATSLIB_056_prelude__ptr_alloc__1()
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret2, atstkind_type(atstype_ptrk)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/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 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42)
*/
ATSINSmove(tmpret2, atspre_ptr_alloc_tsz(ATSPMVsizeof(atstyvar_type(a)))) ;
ATSfunbody_end()
ATSreturn(tmpret2) ;
} /* end of [ATSLIB_056_prelude__ptr_alloc__1] */
#endif // end of [TEMPLATE]
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42)
*/
/*
local:
global: ptr_alloc$1$1(level=1)
local:
global:
*/
ATSstatic()
/*
imparg = a(4740)
tmparg = S2Evar(a(4740))
tmpsub = Some(a(4740) -> S2EVar(5559))
*/
atstkind_type(atstype_ptrk)
ATSLIB_056_prelude__ptr_alloc__1__1()
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret2__1, atstkind_type(atstype_ptrk)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/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 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42)
*/
ATSINSmove(tmpret2__1, atspre_ptr_alloc_tsz(ATSPMVsizeof(atscntrb_gmp_mpz))) ;
ATSfunbody_end()
ATSreturn(tmpret2__1) ;
} /* end of [ATSLIB_056_prelude__ptr_alloc__1__1] */
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 764(line=24, offs=5) -- 1203(line=45, offs=10)
*/
/*
local: exp_3$0(level=0)
global: exp_3$0(level=0)
local:
global:
*/
ATSstatic()
atstkind_t0ype(atstype_int)
exp_3(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(tmpret6, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmp7, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmpref12, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmpref13, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmp14, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp19, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmpref20, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmp21, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmp22, atstkind_t0ype(atstype_int)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 764(line=24, offs=5) -- 1203(line=45, offs=10)
*/
ATSINSflab(__patsflab_exp_3):
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 814(line=25, offs=3) -- 1203(line=45, offs=10)
*/
ATScaseof_beg()
/*
** ibranchlst-beg
*/
ATSbranch_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 831(line=26, offs=7) -- 832(line=26, offs=8)
*/
ATSINSlab(__atstmplab0):
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 783(line=24, offs=24) -- 784(line=24, offs=25)
*/
ATSifnthen(ATSCKpat_int(arg0, ATSPMVint(0))) { ATSINSgoto(__atstmplab2) ; } ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 832(line=26, offs=8) -- 832(line=26, 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/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 836(line=26, offs=12) -- 837(line=26, offs=13)
*/
ATSINSmove(tmpret6, ATSPMVi0nt(0)) ;
ATSbranch_end()
ATSbranch_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 845(line=27, offs=8) -- 845(line=27, 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/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 874(line=29, offs=12) -- 879(line=29, offs=17)
*/
ATSINSmove(tmp7, ATSLIB_056_prelude__gt_g1int_int__4__1(arg1, ATSPMVi0nt(0))) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 871(line=29, offs=9) -- 1193(line=44, offs=12)
*/
ATSif(
tmp7
) ATSthen() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 895(line=30, offs=11) -- 1168(line=42, offs=14)
*/
/*
letpush(beg)
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 915(line=31, offs=17) -- 917(line=31, offs=19)
*/
/*
ATSINStmpdec(tmpref12) ;
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 920(line=31, offs=22) -- 926(line=31, offs=28)
*/
ATSINSmove(tmpref12, atspre_g1int_half_int(arg1)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 944(line=32, offs=17) -- 946(line=32, offs=19)
*/
/*
ATSINStmpdec(tmpref13) ;
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 949(line=32, offs=22) -- 954(line=32, offs=27)
*/
ATSINSmove(tmpref13, atspre_g0int_mod_int(arg1, ATSPMVi0nt(2))) ;
/*
letpush(end)
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 983(line=34, offs=16) -- 989(line=34, offs=22)
*/
ATSINSmove(tmp14, ATSLIB_056_prelude__eq_g0int_int__10__1(tmpref13, ATSPMVi0nt(0))) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 980(line=34, offs=13) -- 1154(line=41, offs=18)
*/
ATSif(
tmp14
) ATSthen() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1013(line=35, offs=19) -- 1018(line=35, offs=24)
*/
ATSINSmove(tmp19, atspre_g0int_mul_int(arg0, arg0)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1009(line=35, offs=15) -- 1023(line=35, offs=29)
*/
ATStailcal_beg()
ATSINSmove_tlcal(apy0, tmp19) ;
ATSINSmove_tlcal(apy1, tmpref12) ;
ATSINSargmove_tlcal(arg0, apy0) ;
ATSINSargmove_tlcal(arg1, apy1) ;
ATSINSfgoto(__patsflab_exp_3) ;
ATStailcal_end()
} ATSelse() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1055(line=37, offs=15) -- 1154(line=41, offs=18)
*/
/*
letpush(beg)
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1079(line=38, offs=21) -- 1080(line=38, offs=22)
*/
/*
ATSINStmpdec(tmpref20) ;
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1091(line=38, offs=33) -- 1096(line=38, offs=38)
*/
ATSINSmove(tmp22, atspre_g0int_mul_int(arg0, arg0)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1087(line=38, offs=29) -- 1101(line=38, offs=43)
*/
ATSINSmove(tmp21, exp_3(tmp22, tmpref12)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1083(line=38, offs=25) -- 1101(line=38, offs=43)
*/
ATSINSmove(tmpref20, atspre_g0int_mul_int(arg0, tmp21)) ;
/*
letpush(end)
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1135(line=40, offs=17) -- 1136(line=40, offs=18)
*/
ATSINSmove(tmpret6, tmpref20) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1055(line=37, offs=15) -- 1154(line=41, offs=18)
*/
/*
INSletpop()
*/
} /* ATSendif */
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 895(line=30, offs=11) -- 1168(line=42, offs=14)
*/
/*
INSletpop()
*/
} ATSelse() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1192(line=44, offs=11) -- 1193(line=44, offs=12)
*/
ATSINSmove(tmpret6, ATSPMVi0nt(1)) ;
} /* ATSendif */
ATSbranch_end()
/*
** ibranchlst-end
*/
ATScaseof_end()
ATSfunbody_end()
ATSreturn(tmpret6) ;
} /* end of [exp_3] */
#if(0)
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12679(line=659, offs=3) -- 12718(line=659, offs=42)
*/
/*
local:
global: gt_g1int_int$4$0(level=0)
local:
global:
*/
ATSextern()
/*
imparg = tk(4637)
tmparg = S2Evar(tk(4637))
tmpsub = None()
*/
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__gt_g1int_int__4(atstkind_t0ype(atstyvar_type(tk)) arg0, atstkind_t0ype(atstype_int) arg1)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret8, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp9, atstkind_t0ype(atstyvar_type(tk))) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/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 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12705(line=659, offs=29) -- 12716(line=659, offs=40)
*/
ATSINSmove(tmp9, PMVtmpltcst(g1int2int<S2Eextkind(atstype_int), S2Evar(tk(4637))>)(arg1)) ;
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12688(line=659, offs=12) -- 12718(line=659, offs=42)
*/
ATSINSmove(tmpret8, PMVtmpltcst(g1int_gt<S2Evar(tk(4637))>)(arg0, tmp9)) ;
ATSfunbody_end()
ATSreturn(tmpret8) ;
} /* end of [ATSLIB_056_prelude__gt_g1int_int__4] */
#endif // end of [TEMPLATE]
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12679(line=659, offs=3) -- 12718(line=659, offs=42)
*/
/*
local:
global: gt_g1int_int$4$1(level=1)
local:
global:
*/
ATSstatic()
/*
imparg = tk(4637)
tmparg = S2Evar(tk(4637))
tmpsub = Some(tk(4637) -> S2Eextkind(atstype_int))
*/
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__gt_g1int_int__4__1(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret8__1, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp9__1, atstkind_t0ype(atstype_int)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/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 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12705(line=659, offs=29) -- 12716(line=659, offs=40)
*/
ATSINSmove(tmp9__1, atspre_g1int2int_int_int(arg1)) ;
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12688(line=659, offs=12) -- 12718(line=659, offs=42)
*/
ATSINSmove(tmpret8__1, atspre_g1int_gt_int(arg0, tmp9__1)) ;
ATSfunbody_end()
ATSreturn(tmpret8__1) ;
} /* end of [ATSLIB_056_prelude__gt_g1int_int__4__1] */
#if(0)
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42)
*/
/*
local:
global: eq_g0int_int$10$0(level=0)
local:
global:
*/
ATSextern()
/*
imparg = tk(4628)
tmparg = S2Evar(tk(4628))
tmpsub = None()
*/
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__eq_g0int_int__10(atstkind_t0ype(atstyvar_type(tk)) arg0, atstkind_t0ype(atstype_int) arg1)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret15, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp16, atstkind_t0ype(atstyvar_type(tk))) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/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 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40)
*/
ATSINSmove(tmp16, PMVtmpltcst(g0int2int<S2Eextkind(atstype_int), S2Evar(tk(4628))>)(arg1)) ;
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42)
*/
ATSINSmove(tmpret15, PMVtmpltcst(g0int_eq<S2Evar(tk(4628))>)(arg0, tmp16)) ;
ATSfunbody_end()
ATSreturn(tmpret15) ;
} /* end of [ATSLIB_056_prelude__eq_g0int_int__10] */
#endif // end of [TEMPLATE]
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42)
*/
/*
local:
global: eq_g0int_int$10$1(level=1)
local:
global:
*/
ATSstatic()
/*
imparg = tk(4628)
tmparg = S2Evar(tk(4628))
tmpsub = Some(tk(4628) -> S2Eextkind(atstype_int))
*/
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__eq_g0int_int__10__1(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret15__1, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp16__1, atstkind_t0ype(atstype_int)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/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 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40)
*/
ATSINSmove(tmp16__1, atspre_g0int2int_int_int(arg1)) ;
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42)
*/
ATSINSmove(tmpret15__1, atspre_g0int_eq_int(arg0, tmp16__1)) ;
ATSfunbody_end()
ATSreturn(tmpret15__1) ;
} /* end of [ATSLIB_056_prelude__eq_g0int_int__10__1] */
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1241(line=48, offs=5) -- 1849(line=74, offs=39)
*/
/*
local: big_exp_15$0(level=0)
global: big_exp_15$0(level=0)
local:
global:
*/
ATSstatic()
atstkind_type(atstype_ptrk)
big_exp_15(atstkind_type(atstype_ptrk) arg0, atstkind_t0ype(atstype_int) arg1)
{
/* tmpvardeclst(beg) */
ATStmpdec(apy0, atstkind_type(atstype_ptrk)) ;
ATStmpdec(apy1, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmpret23, atstkind_type(atstype_ptrk)) ;
ATStmpdec(tmp24, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp29, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmp48, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmpref51, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmpref52, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmp53, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmpref56, atstkind_type(atstype_ptrk)) ;
ATStmpdec(tmpref76, atstkind_type(atstype_ptrk)) ;
ATStmpdec(tmpref82, atstkind_type(atstype_ptrk)) ;
ATStmpdec(tmpref83, atstkind_type(atstype_ptrk)) ;
// ATStmpdec_void(tmp88) ;
// ATStmpdec_void(tmp91) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1241(line=48, offs=5) -- 1849(line=74, offs=39)
*/
ATSINSflab(__patsflab_big_exp_15):
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1304(line=49, offs=6) -- 1328(line=49, offs=30)
*/
ATSINSmove(tmp29, ATSCNTRB_056_HX_056_intinf_vt__compare_intinf_int__19__1(ATSPMVrefarg0(arg0), ATSPMVi0nt(0))) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1304(line=49, offs=6) -- 1332(line=49, offs=34)
*/
ATSINSmove(tmp24, ATSLIB_056_prelude__eq_g1int_int__16__1(tmp29, ATSPMVi0nt(0))) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1301(line=49, offs=3) -- 1849(line=74, offs=39)
*/
ATSif(
tmp24
) ATSthen() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1342(line=50, offs=5) -- 1343(line=50, offs=6)
*/
ATSINSmove(tmpret23, arg0) ;
} ATSelse() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1358(line=52, offs=8) -- 1363(line=52, offs=13)
*/
ATSINSmove(tmp48, ATSLIB_056_prelude__gt_g1int_int__4__2(arg1, ATSPMVi0nt(0))) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1355(line=52, offs=5) -- 1849(line=74, offs=39)
*/
ATSif(
tmp48
) ATSthen() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1375(line=53, offs=7) -- 1801(line=72, offs=10)
*/
/*
letpush(beg)
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1391(line=54, offs=13) -- 1393(line=54, offs=15)
*/
/*
ATSINStmpdec(tmpref51) ;
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1396(line=54, offs=18) -- 1402(line=54, offs=24)
*/
ATSINSmove(tmpref51, atspre_g1int_half_int(arg1)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1416(line=55, offs=13) -- 1418(line=55, offs=15)
*/
/*
ATSINStmpdec(tmpref52) ;
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1421(line=55, offs=18) -- 1426(line=55, offs=23)
*/
ATSINSmove(tmpref52, atspre_g0int_mod_int(arg1, ATSPMVi0nt(2))) ;
/*
letpush(end)
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1447(line=57, offs=12) -- 1453(line=57, offs=18)
*/
ATSINSmove(tmp53, ATSLIB_056_prelude__eq_g0int_int__10__2(tmpref52, ATSPMVi0nt(0))) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1444(line=57, offs=9) -- 1791(line=71, offs=14)
*/
ATSif(
tmp53
) ATSthen() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1469(line=58, offs=11) -- 1564(line=62, offs=14)
*/
/*
letpush(beg)
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1489(line=59, offs=17) -- 1490(line=59, offs=18)
*/
/*
ATSINStmpdec(tmpref56) ;
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1493(line=59, offs=21) -- 1509(line=59, offs=37)
*/
ATSINSmove(tmpref56, ATSCNTRB_056_HX_056_intinf_vt__square_intinf0__30__1(arg0)) ;
/*
letpush(end)
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1536(line=61, offs=13) -- 1550(line=61, offs=27)
*/
ATStailcal_beg()
ATSINSmove_tlcal(apy0, tmpref56) ;
ATSINSmove_tlcal(apy1, tmpref51) ;
ATSINSargmove_tlcal(arg0, apy0) ;
ATSINSargmove_tlcal(arg1, apy1) ;
ATSINSfgoto(__patsflab_big_exp_15) ;
ATStailcal_end()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1469(line=58, offs=11) -- 1564(line=62, offs=14)
*/
/*
INSletpop()
*/
} ATSelse() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1588(line=64, offs=11) -- 1791(line=71, offs=14)
*/
/*
letpush(beg)
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1608(line=65, offs=17) -- 1610(line=65, offs=19)
*/
/*
ATSINStmpdec(tmpref76) ;
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1613(line=65, offs=22) -- 1629(line=65, offs=38)
*/
ATSINSmove(tmpref76, ATSCNTRB_056_HX_056_intinf_vt__square_intinf1__32__2(ATSPMVrefarg0(arg0))) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1647(line=66, offs=17) -- 1649(line=66, offs=19)
*/
/*
ATSINStmpdec(tmpref82) ;
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1652(line=66, offs=22) -- 1667(line=66, offs=37)
*/
ATSINSmove(tmpref82, big_exp_15(tmpref76, tmpref51)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1684(line=67, offs=17) -- 1685(line=67, offs=18)
*/
/*
ATSINStmpdec(tmpref83) ;
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1688(line=67, offs=21) -- 1714(line=67, offs=47)
*/
ATSINSmove(tmpref83, ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_intinf1__39__1(tmpref82, ATSPMVrefarg0(arg0))) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1736(line=68, offs=22) -- 1749(line=68, offs=35)
*/
ATSINSmove_void(tmp88, ATSCNTRB_056_HX_056_intinf_vt__intinf_free__35__2(arg0)) ;
/*
letpush(end)
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1776(line=70, offs=13) -- 1777(line=70, offs=14)
*/
ATSINSmove(tmpret23, tmpref83) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1588(line=64, offs=11) -- 1791(line=71, offs=14)
*/
/*
INSletpop()
*/
} /* ATSendif */
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1375(line=53, offs=7) -- 1801(line=72, offs=10)
*/
/*
INSletpop()
*/
} ATSelse() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1818(line=74, offs=8) -- 1831(line=74, offs=21)
*/
ATSINSmove_void(tmp91, ATSCNTRB_056_HX_056_intinf_vt__intinf_free__35__3(arg0)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1835(line=74, offs=25) -- 1848(line=74, offs=38)
*/
ATSINSmove(tmpret23, ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__43__1(ATSPMVi0nt(1))) ;
} /* ATSendif */
} /* ATSendif */
ATSfunbody_end()
ATSreturn(tmpret23) ;
} /* end of [big_exp_15] */
#if(0)
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12838(line=668, offs=3) -- 12877(line=668, offs=42)
*/
/*
local:
global: eq_g1int_int$16$0(level=0)
local:
global:
*/
ATSextern()
/*
imparg = tk(4643)
tmparg = S2Evar(tk(4643))
tmpsub = None()
*/
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__eq_g1int_int__16(atstkind_t0ype(atstyvar_type(tk)) arg0, atstkind_t0ype(atstype_int) arg1)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret25, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp26, atstkind_t0ype(atstyvar_type(tk))) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/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 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12864(line=668, offs=29) -- 12875(line=668, offs=40)
*/
ATSINSmove(tmp26, PMVtmpltcst(g1int2int<S2Eextkind(atstype_int), S2Evar(tk(4643))>)(arg1)) ;
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12847(line=668, offs=12) -- 12877(line=668, offs=42)
*/
ATSINSmove(tmpret25, PMVtmpltcst(g1int_eq<S2Evar(tk(4643))>)(arg0, tmp26)) ;
ATSfunbody_end()
ATSreturn(tmpret25) ;
} /* end of [ATSLIB_056_prelude__eq_g1int_int__16] */
#endif // end of [TEMPLATE]
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12838(line=668, offs=3) -- 12877(line=668, offs=42)
*/
/*
local:
global: eq_g1int_int$16$1(level=1)
local:
global:
*/
ATSstatic()
/*
imparg = tk(4643)
tmparg = S2Evar(tk(4643))
tmpsub = Some(tk(4643) -> S2Eextkind(atstype_int))
*/
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__eq_g1int_int__16__1(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret25__1, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp26__1, atstkind_t0ype(atstype_int)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/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 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12864(line=668, offs=29) -- 12875(line=668, offs=40)
*/
ATSINSmove(tmp26__1, atspre_g1int2int_int_int(arg1)) ;
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12847(line=668, offs=12) -- 12877(line=668, offs=42)
*/
ATSINSmove(tmpret25__1, atspre_g1int_eq_int(arg0, tmp26__1)) ;
ATSfunbody_end()
ATSreturn(tmpret25__1) ;
} /* end of [ATSLIB_056_prelude__eq_g1int_int__16__1] */
#if(0)
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13321(line=768, offs=9) -- 13484(line=775, offs=4)
*/
/*
local:
global: compare_intinf_int$19$0(level=0)
local:
global:
*/
ATSextern()
/*
imparg =
tmparg =
tmpsub = None()
*/
atstkind_t0ype(atstype_int)
ATSCNTRB_056_HX_056_intinf_vt__compare_intinf_int__19(atsrefarg0_type(atstkind_type(atstype_ptrk)) arg0, atstkind_t0ype(atstype_int) arg1)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret30, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmp31, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmp32, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmp33, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp34, atstkind_t0ype(atstype_bool)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13294(line=767, offs=1) -- 13484(line=775, offs=4)
*/
ATSINSflab(__patsflab_compare_intinf_int):
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13330(line=768, offs=18) -- 13484(line=775, offs=4)
*/
/*
letpush(beg)
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13347(line=770, offs=11) -- 13375(line=770, offs=39)
*/
ATSINSmove(tmp31, atscntrb_gmp_mpz_cmp_int(ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), arg1)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13390(line=771, offs=15) -- 13397(line=771, offs=22)
*/
ATSINSmove(tmp33, PMVtmpltcst(lt_g0int_int<S2Eextkind(atstype_int)>)(tmp31, ATSPMVi0nt(0))) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13387(line=771, offs=12) -- 13437(line=771, offs=62)
*/
ATSif(
tmp33
) ATSthen() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13403(line=771, offs=28) -- 13405(line=771, offs=30)
*/
ATSINSmove(tmp32, PMVtmpltcst(g1int_neg<S2Eextkind(atstype_int)>)(ATSPMVi0nt(1))) ;
} ATSelse() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13415(line=771, offs=40) -- 13422(line=771, offs=47)
*/
ATSINSmove(tmp34, PMVtmpltcst(gt_g0int_int<S2Eextkind(atstype_int)>)(tmp31, ATSPMVi0nt(0))) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13412(line=771, offs=37) -- 13436(line=771, offs=61)
*/
ATSif(
tmp34
) ATSthen() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13428(line=771, offs=53) -- 13429(line=771, offs=54)
*/
ATSINSmove(tmp32, ATSPMVi0nt(1)) ;
} ATSelse() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13435(line=771, offs=60) -- 13436(line=771, offs=61)
*/
ATSINSmove(tmp32, ATSPMVi0nt(0)) ;
} /* ATSendif */
} /* ATSendif */
/*
letpush(end)
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13452(line=774, offs=3) -- 13479(line=774, offs=30)
*/
ATSINSmove(tmpret30, ATSPMVcastfn(cast, atstkind_t0ype(atstype_int), tmp32)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13330(line=768, offs=18) -- 13484(line=775, offs=4)
*/
/*
INSletpop()
*/
ATSfunbody_end()
ATSreturn(tmpret30) ;
} /* end of [ATSCNTRB_056_HX_056_intinf_vt__compare_intinf_int__19] */
#endif // end of [TEMPLATE]
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13321(line=768, offs=9) -- 13484(line=775, offs=4)
*/
/*
local:
global: compare_intinf_int$19$1(level=1)
local:
global:
*/
ATSstatic()
/*
imparg =
tmparg =
tmpsub = Some()
*/
atstkind_t0ype(atstype_int)
ATSCNTRB_056_HX_056_intinf_vt__compare_intinf_int__19__1(atsrefarg0_type(atstkind_type(atstype_ptrk)) arg0, atstkind_t0ype(atstype_int) arg1)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret30__1, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmp31__1, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmp32__1, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmp33__1, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp34__1, atstkind_t0ype(atstype_bool)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13294(line=767, offs=1) -- 13484(line=775, offs=4)
*/
ATSINSflab(__patsflab_compare_intinf_int):
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13330(line=768, offs=18) -- 13484(line=775, offs=4)
*/
/*
letpush(beg)
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13347(line=770, offs=11) -- 13375(line=770, offs=39)
*/
ATSINSmove(tmp31__1, atscntrb_gmp_mpz_cmp_int(ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), arg1)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13390(line=771, offs=15) -- 13397(line=771, offs=22)
*/
ATSINSmove(tmp33__1, ATSLIB_056_prelude__lt_g0int_int__21__1(tmp31__1, ATSPMVi0nt(0))) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13387(line=771, offs=12) -- 13437(line=771, offs=62)
*/
ATSif(
tmp33__1
) ATSthen() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13403(line=771, offs=28) -- 13405(line=771, offs=30)
*/
ATSINSmove(tmp32__1, atspre_g1int_neg_int(ATSPMVi0nt(1))) ;
} ATSelse() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13415(line=771, offs=40) -- 13422(line=771, offs=47)
*/
ATSINSmove(tmp34__1, ATSLIB_056_prelude__gt_g0int_int__25__1(tmp31__1, ATSPMVi0nt(0))) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13412(line=771, offs=37) -- 13436(line=771, offs=61)
*/
ATSif(
tmp34__1
) ATSthen() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13428(line=771, offs=53) -- 13429(line=771, offs=54)
*/
ATSINSmove(tmp32__1, ATSPMVi0nt(1)) ;
} ATSelse() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13435(line=771, offs=60) -- 13436(line=771, offs=61)
*/
ATSINSmove(tmp32__1, ATSPMVi0nt(0)) ;
} /* ATSendif */
} /* ATSendif */
/*
letpush(end)
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13452(line=774, offs=3) -- 13479(line=774, offs=30)
*/
ATSINSmove(tmpret30__1, ATSPMVcastfn(cast, atstkind_t0ype(atstype_int), tmp32__1)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13330(line=768, offs=18) -- 13484(line=775, offs=4)
*/
/*
INSletpop()
*/
ATSfunbody_end()
ATSreturn(tmpret30__1) ;
} /* end of [ATSCNTRB_056_HX_056_intinf_vt__compare_intinf_int__19__1] */
#if(0)
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 11941(line=617, offs=3) -- 11980(line=617, offs=42)
*/
/*
local:
global: lt_g0int_int$21$0(level=0)
local:
global:
*/
ATSextern()
/*
imparg = tk(4624)
tmparg = S2Evar(tk(4624))
tmpsub = None()
*/
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__lt_g0int_int__21(atstkind_t0ype(atstyvar_type(tk)) arg0, atstkind_t0ype(atstype_int) arg1)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret40, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp41, atstkind_t0ype(atstyvar_type(tk))) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 11926(line=616, offs=1) -- 11980(line=617, offs=42)
*/
ATSINSflab(__patsflab_lt_g0int_int):
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 11967(line=617, offs=29) -- 11978(line=617, offs=40)
*/
ATSINSmove(tmp41, PMVtmpltcst(g0int2int<S2Eextkind(atstype_int), S2Evar(tk(4624))>)(arg1)) ;
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 11950(line=617, offs=12) -- 11980(line=617, offs=42)
*/
ATSINSmove(tmpret40, PMVtmpltcst(g0int_lt<S2Evar(tk(4624))>)(arg0, tmp41)) ;
ATSfunbody_end()
ATSreturn(tmpret40) ;
} /* end of [ATSLIB_056_prelude__lt_g0int_int__21] */
#endif // end of [TEMPLATE]
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 11941(line=617, offs=3) -- 11980(line=617, offs=42)
*/
/*
local:
global: lt_g0int_int$21$1(level=2)
local:
global:
*/
ATSstatic()
/*
imparg = tk(4624)
tmparg = S2Evar(tk(4624))
tmpsub = Some(tk(4624) -> S2Eextkind(atstype_int))
*/
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__lt_g0int_int__21__1(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret40__1, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp41__1, atstkind_t0ype(atstype_int)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 11926(line=616, offs=1) -- 11980(line=617, offs=42)
*/
ATSINSflab(__patsflab_lt_g0int_int):
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 11967(line=617, offs=29) -- 11978(line=617, offs=40)
*/
ATSINSmove(tmp41__1, atspre_g0int2int_int_int(arg1)) ;
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 11950(line=617, offs=12) -- 11980(line=617, offs=42)
*/
ATSINSmove(tmpret40__1, atspre_g0int_lt_int(arg0, tmp41__1)) ;
ATSfunbody_end()
ATSreturn(tmpret40__1) ;
} /* end of [ATSLIB_056_prelude__lt_g0int_int__21__1] */
#if(0)
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12100(line=626, offs=3) -- 12139(line=626, offs=42)
*/
/*
local:
global: gt_g0int_int$25$0(level=0)
local:
global:
*/
ATSextern()
/*
imparg = tk(4626)
tmparg = S2Evar(tk(4626))
tmpsub = None()
*/
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__gt_g0int_int__25(atstkind_t0ype(atstyvar_type(tk)) arg0, atstkind_t0ype(atstype_int) arg1)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret44, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp45, atstkind_t0ype(atstyvar_type(tk))) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12085(line=625, offs=1) -- 12139(line=626, offs=42)
*/
ATSINSflab(__patsflab_gt_g0int_int):
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12126(line=626, offs=29) -- 12137(line=626, offs=40)
*/
ATSINSmove(tmp45, PMVtmpltcst(g0int2int<S2Eextkind(atstype_int), S2Evar(tk(4626))>)(arg1)) ;
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12109(line=626, offs=12) -- 12139(line=626, offs=42)
*/
ATSINSmove(tmpret44, PMVtmpltcst(g0int_gt<S2Evar(tk(4626))>)(arg0, tmp45)) ;
ATSfunbody_end()
ATSreturn(tmpret44) ;
} /* end of [ATSLIB_056_prelude__gt_g0int_int__25] */
#endif // end of [TEMPLATE]
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12100(line=626, offs=3) -- 12139(line=626, offs=42)
*/
/*
local:
global: gt_g0int_int$25$1(level=2)
local:
global:
*/
ATSstatic()
/*
imparg = tk(4626)
tmparg = S2Evar(tk(4626))
tmpsub = Some(tk(4626) -> S2Eextkind(atstype_int))
*/
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__gt_g0int_int__25__1(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret44__1, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp45__1, atstkind_t0ype(atstype_int)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12085(line=625, offs=1) -- 12139(line=626, offs=42)
*/
ATSINSflab(__patsflab_gt_g0int_int):
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12126(line=626, offs=29) -- 12137(line=626, offs=40)
*/
ATSINSmove(tmp45__1, atspre_g0int2int_int_int(arg1)) ;
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12109(line=626, offs=12) -- 12139(line=626, offs=42)
*/
ATSINSmove(tmpret44__1, atspre_g0int_gt_int(arg0, tmp45__1)) ;
ATSfunbody_end()
ATSreturn(tmpret44__1) ;
} /* end of [ATSLIB_056_prelude__gt_g0int_int__25__1] */
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12679(line=659, offs=3) -- 12718(line=659, offs=42)
*/
/*
local:
global: gt_g1int_int$4$2(level=1)
local:
global:
*/
ATSstatic()
/*
imparg = tk(4637)
tmparg = S2Evar(tk(4637))
tmpsub = Some(tk(4637) -> S2Eextkind(atstype_int))
*/
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__gt_g1int_int__4__2(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret8__2, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp9__2, atstkind_t0ype(atstype_int)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/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 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12705(line=659, offs=29) -- 12716(line=659, offs=40)
*/
ATSINSmove(tmp9__2, atspre_g1int2int_int_int(arg1)) ;
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12688(line=659, offs=12) -- 12718(line=659, offs=42)
*/
ATSINSmove(tmpret8__2, atspre_g1int_gt_int(arg0, tmp9__2)) ;
ATSfunbody_end()
ATSreturn(tmpret8__2) ;
} /* end of [ATSLIB_056_prelude__gt_g1int_int__4__2] */
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42)
*/
/*
local:
global: eq_g0int_int$10$2(level=1)
local:
global:
*/
ATSstatic()
/*
imparg = tk(4628)
tmparg = S2Evar(tk(4628))
tmpsub = Some(tk(4628) -> S2Eextkind(atstype_int))
*/
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__eq_g0int_int__10__2(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret15__2, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp16__2, atstkind_t0ype(atstype_int)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/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 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40)
*/
ATSINSmove(tmp16__2, atspre_g0int2int_int_int(arg1)) ;
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42)
*/
ATSINSmove(tmpret15__2, atspre_g0int_eq_int(arg0, tmp16__2)) ;
ATSfunbody_end()
ATSreturn(tmpret15__2) ;
} /* end of [ATSLIB_056_prelude__eq_g0int_int__10__2] */
#if(0)
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4581(line=236, offs=3) -- 4665(line=240, offs=2)
*/
/*
local:
global: square_intinf0$30$0(level=0)
local:
global:
*/
ATSextern()
/*
imparg =
tmparg =
tmpsub = None()
*/
atstkind_type(atstype_ptrk)
ATSCNTRB_056_HX_056_intinf_vt__square_intinf0__30(atstkind_type(atstype_ptrk) arg0)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret57, atstkind_type(atstype_ptrk)) ;
ATStmpdec(tmp58, atstkind_type(atstype_ptrk)) ;
// ATStmpdec_void(tmp59) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4564(line=235, offs=1) -- 4665(line=240, offs=2)
*/
ATSINSflab(__patsflab_square_intinf0):
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4587(line=236, offs=9) -- 4665(line=240, offs=2)
*/
/*
letpush(beg)
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4611(line=238, offs=13) -- 4627(line=238, offs=29)
*/
ATSINSmove(tmp58, PMVtmpltcst(square_intinf1<>)(ATSPMVrefarg0(arg0))) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4649(line=239, offs=21) -- 4662(line=239, offs=34)
*/
ATSINSmove_void(tmp59, PMVtmpltcst(intinf_free<>)(arg0)) ;
/*
letpush(end)
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4587(line=236, offs=9) -- 4590(line=236, offs=12)
*/
ATSINSmove(tmpret57, tmp58) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4587(line=236, offs=9) -- 4665(line=240, offs=2)
*/
/*
INSletpop()
*/
ATSfunbody_end()
ATSreturn(tmpret57) ;
} /* end of [ATSCNTRB_056_HX_056_intinf_vt__square_intinf0__30] */
#endif // end of [TEMPLATE]
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4581(line=236, offs=3) -- 4665(line=240, offs=2)
*/
/*
local:
global: square_intinf0$30$1(level=1)
local:
global:
*/
ATSstatic()
/*
imparg =
tmparg =
tmpsub = Some()
*/
atstkind_type(atstype_ptrk)
ATSCNTRB_056_HX_056_intinf_vt__square_intinf0__30__1(atstkind_type(atstype_ptrk) arg0)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret57__1, atstkind_type(atstype_ptrk)) ;
ATStmpdec(tmp58__1, atstkind_type(atstype_ptrk)) ;
// ATStmpdec_void(tmp59__1) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4564(line=235, offs=1) -- 4665(line=240, offs=2)
*/
ATSINSflab(__patsflab_square_intinf0):
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4587(line=236, offs=9) -- 4665(line=240, offs=2)
*/
/*
letpush(beg)
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4611(line=238, offs=13) -- 4627(line=238, offs=29)
*/
ATSINSmove(tmp58__1, ATSCNTRB_056_HX_056_intinf_vt__square_intinf1__32__1(ATSPMVrefarg0(arg0))) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4649(line=239, offs=21) -- 4662(line=239, offs=34)
*/
ATSINSmove_void(tmp59__1, ATSCNTRB_056_HX_056_intinf_vt__intinf_free__35__1(arg0)) ;
/*
letpush(end)
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4587(line=236, offs=9) -- 4590(line=236, offs=12)
*/
ATSINSmove(tmpret57__1, tmp58__1) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4587(line=236, offs=9) -- 4665(line=240, offs=2)
*/
/*
INSletpop()
*/
ATSfunbody_end()
ATSreturn(tmpret57__1) ;
} /* end of [ATSCNTRB_056_HX_056_intinf_vt__square_intinf0__30__1] */
#if(0)
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4755(line=247, offs=3) -- 4900(line=256, offs=2)
*/
/*
local:
global: square_intinf1$32$0(level=0)
local:
global:
*/
ATSextern()
/*
imparg =
tmparg =
tmpsub = None()
*/
atstkind_type(atstype_ptrk)
ATSCNTRB_056_HX_056_intinf_vt__square_intinf1__32(atsrefarg0_type(atstkind_type(atstype_ptrk)) arg0)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret63, atstkind_type(atstype_ptrk)) ;
ATStmpdec(tmp64, atstkind_type(atstype_ptrk)) ;
// ATStmpdec_void(tmp65) ;
// ATStmpdec_void(tmp66) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4738(line=246, offs=1) -- 4900(line=256, offs=2)
*/
ATSINSflab(__patsflab_square_intinf1):
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4761(line=247, offs=9) -- 4900(line=256, offs=2)
*/
/*
letpush(beg)
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4784(line=250, offs=9) -- 4800(line=250, offs=25)
*/
ATSINSmove(tmp64, PMVtmpltcst(ptr_alloc<S2Ecst(mpz_vt0ype)>)()) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4812(line=252, offs=3) -- 4849(line=252, offs=40)
*/
ATSINSmove_void(tmp65, atscntrb_gmp_mpz_init_set_mpz(ATSPMVrefarg1(ATSSELrecsin(tmp64, atstkind_type(atstype_ptrk), atslab__2)), ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)))) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4862(line=254, offs=10) -- 4895(line=254, offs=43)
*/
ATSINSmove_void(tmp66, atscntrb_gmp_mpz_mul2_mpz(ATSPMVrefarg1(ATSSELrecsin(tmp64, atstkind_type(atstype_ptrk), atslab__2)), ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)))) ;
/*
letpush(end)
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4762(line=247, offs=10) -- 4763(line=247, offs=11)
*/
ATSINSmove(tmpret63, tmp64) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4761(line=247, offs=9) -- 4900(line=256, offs=2)
*/
/*
INSletpop()
*/
ATSfunbody_end()
ATSreturn(tmpret63) ;
} /* end of [ATSCNTRB_056_HX_056_intinf_vt__square_intinf1__32] */
#endif // end of [TEMPLATE]
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4755(line=247, offs=3) -- 4900(line=256, offs=2)
*/
/*
local:
global: square_intinf1$32$1(level=2)
local:
global:
*/
ATSstatic()
/*
imparg =
tmparg =
tmpsub = Some()
*/
atstkind_type(atstype_ptrk)
ATSCNTRB_056_HX_056_intinf_vt__square_intinf1__32__1(atsrefarg0_type(atstkind_type(atstype_ptrk)) arg0)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret63__1, atstkind_type(atstype_ptrk)) ;
ATStmpdec(tmp64__1, atstkind_type(atstype_ptrk)) ;
// ATStmpdec_void(tmp65__1) ;
// ATStmpdec_void(tmp66__1) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4738(line=246, offs=1) -- 4900(line=256, offs=2)
*/
ATSINSflab(__patsflab_square_intinf1):
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4761(line=247, offs=9) -- 4900(line=256, offs=2)
*/
/*
letpush(beg)
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4784(line=250, offs=9) -- 4800(line=250, offs=25)
*/
ATSINSmove(tmp64__1, ATSLIB_056_prelude__ptr_alloc__1__2()) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4812(line=252, offs=3) -- 4849(line=252, offs=40)
*/
ATSINSmove_void(tmp65__1, atscntrb_gmp_mpz_init_set_mpz(ATSPMVrefarg1(ATSSELrecsin(tmp64__1, atstkind_type(atstype_ptrk), atslab__2)), ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)))) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4862(line=254, offs=10) -- 4895(line=254, offs=43)
*/
ATSINSmove_void(tmp66__1, atscntrb_gmp_mpz_mul2_mpz(ATSPMVrefarg1(ATSSELrecsin(tmp64__1, atstkind_type(atstype_ptrk), atslab__2)), ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)))) ;
/*
letpush(end)
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4762(line=247, offs=10) -- 4763(line=247, offs=11)
*/
ATSINSmove(tmpret63__1, tmp64__1) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4761(line=247, offs=9) -- 4900(line=256, offs=2)
*/
/*
INSletpop()
*/
ATSfunbody_end()
ATSreturn(tmpret63__1) ;
} /* end of [ATSCNTRB_056_HX_056_intinf_vt__square_intinf1__32__1] */
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42)
*/
/*
local:
global: ptr_alloc$1$2(level=3)
local:
global:
*/
ATSstatic()
/*
imparg = a(4740)
tmparg = S2Evar(a(4740))
tmpsub = Some(a(4740) -> S2Ecst(mpz_vt0ype))
*/
atstkind_type(atstype_ptrk)
ATSLIB_056_prelude__ptr_alloc__1__2()
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret2__2, atstkind_type(atstype_ptrk)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/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 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42)
*/
ATSINSmove(tmpret2__2, atspre_ptr_alloc_tsz(ATSPMVsizeof(atscntrb_gmp_mpz))) ;
ATSfunbody_end()
ATSreturn(tmpret2__2) ;
} /* end of [ATSLIB_056_prelude__ptr_alloc__1__2] */
#if(0)
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2888(line=119, offs=12) -- 2987(line=122, offs=4)
*/
/*
local:
global: intinf_free$35$0(level=0)
local:
global:
*/
ATSextern()
/*
imparg =
tmparg =
tmpsub = None()
*/
atsvoid_t0ype
ATSCNTRB_056_HX_056_intinf_vt__intinf_free__35(atstkind_type(atstype_ptrk) arg0)
{
/* tmpvardeclst(beg) */
// ATStmpdec_void(tmpret72) ;
// ATStmpdec_void(tmp73) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2877(line=119, offs=1) -- 2987(line=122, offs=4)
*/
ATSINSflab(__patsflab_intinf_free):
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2894(line=119, offs=18) -- 2987(line=122, offs=4)
*/
/*
letpush(beg)
*/
/* (*nothing*) */
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2936(line=121, offs=12) -- 2955(line=121, offs=31)
*/
ATSINSmove_void(tmp73, atscntrb_gmp_mpz_clear(ATSPMVrefarg1(arg0))) ;
/*
letpush(end)
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2959(line=121, offs=35) -- 2983(line=121, offs=59)
*/
ATSINSmove_void(tmpret72, atspre_ptr_free(arg0)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2894(line=119, offs=18) -- 2987(line=122, offs=4)
*/
/*
INSletpop()
*/
ATSfunbody_end()
ATSreturn_void(tmpret72) ;
} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_free__35] */
#endif // end of [TEMPLATE]
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2888(line=119, offs=12) -- 2987(line=122, offs=4)
*/
/*
local:
global: intinf_free$35$1(level=2)
local:
global:
*/
ATSstatic()
/*
imparg =
tmparg =
tmpsub = Some()
*/
atsvoid_t0ype
ATSCNTRB_056_HX_056_intinf_vt__intinf_free__35__1(atstkind_type(atstype_ptrk) arg0)
{
/* tmpvardeclst(beg) */
// ATStmpdec_void(tmpret72__1) ;
// ATStmpdec_void(tmp73__1) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2877(line=119, offs=1) -- 2987(line=122, offs=4)
*/
ATSINSflab(__patsflab_intinf_free):
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2894(line=119, offs=18) -- 2987(line=122, offs=4)
*/
/*
letpush(beg)
*/
/* (*nothing*) */
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2936(line=121, offs=12) -- 2955(line=121, offs=31)
*/
ATSINSmove_void(tmp73__1, atscntrb_gmp_mpz_clear(ATSPMVrefarg1(arg0))) ;
/*
letpush(end)
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2959(line=121, offs=35) -- 2983(line=121, offs=59)
*/
ATSINSmove_void(tmpret72__1, atspre_ptr_free(arg0)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2894(line=119, offs=18) -- 2987(line=122, offs=4)
*/
/*
INSletpop()
*/
ATSfunbody_end()
ATSreturn_void(tmpret72__1) ;
} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_free__35__1] */
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4755(line=247, offs=3) -- 4900(line=256, offs=2)
*/
/*
local:
global: square_intinf1$32$2(level=1)
local:
global:
*/
ATSstatic()
/*
imparg =
tmparg =
tmpsub = Some()
*/
atstkind_type(atstype_ptrk)
ATSCNTRB_056_HX_056_intinf_vt__square_intinf1__32__2(atsrefarg0_type(atstkind_type(atstype_ptrk)) arg0)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret63__2, atstkind_type(atstype_ptrk)) ;
ATStmpdec(tmp64__2, atstkind_type(atstype_ptrk)) ;
// ATStmpdec_void(tmp65__2) ;
// ATStmpdec_void(tmp66__2) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4738(line=246, offs=1) -- 4900(line=256, offs=2)
*/
ATSINSflab(__patsflab_square_intinf1):
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4761(line=247, offs=9) -- 4900(line=256, offs=2)
*/
/*
letpush(beg)
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4784(line=250, offs=9) -- 4800(line=250, offs=25)
*/
ATSINSmove(tmp64__2, ATSLIB_056_prelude__ptr_alloc__1__3()) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4812(line=252, offs=3) -- 4849(line=252, offs=40)
*/
ATSINSmove_void(tmp65__2, atscntrb_gmp_mpz_init_set_mpz(ATSPMVrefarg1(ATSSELrecsin(tmp64__2, atstkind_type(atstype_ptrk), atslab__2)), ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)))) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4862(line=254, offs=10) -- 4895(line=254, offs=43)
*/
ATSINSmove_void(tmp66__2, atscntrb_gmp_mpz_mul2_mpz(ATSPMVrefarg1(ATSSELrecsin(tmp64__2, atstkind_type(atstype_ptrk), atslab__2)), ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)))) ;
/*
letpush(end)
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4762(line=247, offs=10) -- 4763(line=247, offs=11)
*/
ATSINSmove(tmpret63__2, tmp64__2) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4761(line=247, offs=9) -- 4900(line=256, offs=2)
*/
/*
INSletpop()
*/
ATSfunbody_end()
ATSreturn(tmpret63__2) ;
} /* end of [ATSCNTRB_056_HX_056_intinf_vt__square_intinf1__32__2] */
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42)
*/
/*
local:
global: ptr_alloc$1$3(level=2)
local:
global:
*/
ATSstatic()
/*
imparg = a(4740)
tmparg = S2Evar(a(4740))
tmpsub = Some(a(4740) -> S2Ecst(mpz_vt0ype))
*/
atstkind_type(atstype_ptrk)
ATSLIB_056_prelude__ptr_alloc__1__3()
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret2__3, atstkind_type(atstype_ptrk)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/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 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42)
*/
ATSINSmove(tmpret2__3, atspre_ptr_alloc_tsz(ATSPMVsizeof(atscntrb_gmp_mpz))) ;
ATSfunbody_end()
ATSreturn(tmpret2__3) ;
} /* end of [ATSLIB_056_prelude__ptr_alloc__1__3] */
#if(0)
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7761(line=437, offs=3) -- 7833(line=442, offs=2)
*/
/*
local:
global: mul_intinf0_intinf1$39$0(level=0)
local:
global:
*/
ATSextern()
/*
imparg =
tmparg =
tmpsub = None()
*/
atstkind_type(atstype_ptrk)
ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_intinf1__39(atstkind_type(atstype_ptrk) arg0, atsrefarg0_type(atstkind_type(atstype_ptrk)) arg1)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret84, atstkind_type(atstype_ptrk)) ;
// ATStmpdec_void(tmp85) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7739(line=436, offs=1) -- 7833(line=442, offs=2)
*/
ATSINSflab(__patsflab_mul_intinf0_intinf1):
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7770(line=437, offs=12) -- 7833(line=442, offs=2)
*/
/*
letpush(beg)
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7794(line=440, offs=10) -- 7828(line=440, offs=44)
*/
ATSINSmove_void(tmp85, atscntrb_gmp_mpz_mul2_mpz(ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), ATSPMVrefarg1(ATSSELrecsin(arg1, atstkind_type(atstype_ptrk), atslab__2)))) ;
/*
letpush(end)
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7771(line=437, offs=13) -- 7772(line=437, offs=14)
*/
ATSINSmove(tmpret84, arg0) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7770(line=437, offs=12) -- 7833(line=442, offs=2)
*/
/*
INSletpop()
*/
ATSfunbody_end()
ATSreturn(tmpret84) ;
} /* end of [ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_intinf1__39] */
#endif // end of [TEMPLATE]
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7761(line=437, offs=3) -- 7833(line=442, offs=2)
*/
/*
local:
global: mul_intinf0_intinf1$39$1(level=1)
local:
global:
*/
ATSstatic()
/*
imparg =
tmparg =
tmpsub = Some()
*/
atstkind_type(atstype_ptrk)
ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_intinf1__39__1(atstkind_type(atstype_ptrk) arg0, atsrefarg0_type(atstkind_type(atstype_ptrk)) arg1)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret84__1, atstkind_type(atstype_ptrk)) ;
// ATStmpdec_void(tmp85__1) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7739(line=436, offs=1) -- 7833(line=442, offs=2)
*/
ATSINSflab(__patsflab_mul_intinf0_intinf1):
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7770(line=437, offs=12) -- 7833(line=442, offs=2)
*/
/*
letpush(beg)
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7794(line=440, offs=10) -- 7828(line=440, offs=44)
*/
ATSINSmove_void(tmp85__1, atscntrb_gmp_mpz_mul2_mpz(ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), ATSPMVrefarg1(ATSSELrecsin(arg1, atstkind_type(atstype_ptrk), atslab__2)))) ;
/*
letpush(end)
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7771(line=437, offs=13) -- 7772(line=437, offs=14)
*/
ATSINSmove(tmpret84__1, arg0) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7770(line=437, offs=12) -- 7833(line=442, offs=2)
*/
/*
INSletpop()
*/
ATSfunbody_end()
ATSreturn(tmpret84__1) ;
} /* end of [ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_intinf1__39__1] */
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2888(line=119, offs=12) -- 2987(line=122, offs=4)
*/
/*
local:
global: intinf_free$35$2(level=1)
local:
global:
*/
ATSstatic()
/*
imparg =
tmparg =
tmpsub = Some()
*/
atsvoid_t0ype
ATSCNTRB_056_HX_056_intinf_vt__intinf_free__35__2(atstkind_type(atstype_ptrk) arg0)
{
/* tmpvardeclst(beg) */
// ATStmpdec_void(tmpret72__2) ;
// ATStmpdec_void(tmp73__2) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2877(line=119, offs=1) -- 2987(line=122, offs=4)
*/
ATSINSflab(__patsflab_intinf_free):
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2894(line=119, offs=18) -- 2987(line=122, offs=4)
*/
/*
letpush(beg)
*/
/* (*nothing*) */
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2936(line=121, offs=12) -- 2955(line=121, offs=31)
*/
ATSINSmove_void(tmp73__2, atscntrb_gmp_mpz_clear(ATSPMVrefarg1(arg0))) ;
/*
letpush(end)
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2959(line=121, offs=35) -- 2983(line=121, offs=59)
*/
ATSINSmove_void(tmpret72__2, atspre_ptr_free(arg0)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2894(line=119, offs=18) -- 2987(line=122, offs=4)
*/
/*
INSletpop()
*/
ATSfunbody_end()
ATSreturn_void(tmpret72__2) ;
} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_free__35__2] */
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2888(line=119, offs=12) -- 2987(line=122, offs=4)
*/
/*
local:
global: intinf_free$35$3(level=1)
local:
global:
*/
ATSstatic()
/*
imparg =
tmparg =
tmpsub = Some()
*/
atsvoid_t0ype
ATSCNTRB_056_HX_056_intinf_vt__intinf_free__35__3(atstkind_type(atstype_ptrk) arg0)
{
/* tmpvardeclst(beg) */
// ATStmpdec_void(tmpret72__3) ;
// ATStmpdec_void(tmp73__3) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2877(line=119, offs=1) -- 2987(line=122, offs=4)
*/
ATSINSflab(__patsflab_intinf_free):
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2894(line=119, offs=18) -- 2987(line=122, offs=4)
*/
/*
letpush(beg)
*/
/* (*nothing*) */
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2936(line=121, offs=12) -- 2955(line=121, offs=31)
*/
ATSINSmove_void(tmp73__3, atscntrb_gmp_mpz_clear(ATSPMVrefarg1(arg0))) ;
/*
letpush(end)
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2959(line=121, offs=35) -- 2983(line=121, offs=59)
*/
ATSINSmove_void(tmpret72__3, atspre_ptr_free(arg0)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2894(line=119, offs=18) -- 2987(line=122, offs=4)
*/
/*
INSletpop()
*/
ATSfunbody_end()
ATSreturn_void(tmpret72__3) ;
} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_free__35__3] */
#if(0)
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2209(line=74, offs=3) -- 2301(line=80, offs=2)
*/
/*
local:
global: intinf_make_int$43$0(level=0)
local:
global:
*/
ATSextern()
/*
imparg =
tmparg =
tmpsub = None()
*/
atstkind_type(atstype_ptrk)
ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__43(atstkind_t0ype(atstype_int) arg0)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret94, atstkind_type(atstype_ptrk)) ;
ATStmpdec(tmp95, atstkind_type(atstype_ptrk)) ;
// ATStmpdec_void(tmp96) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/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 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2)
*/
/*
letpush(beg)
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2238(line=77, offs=9) -- 2254(line=77, offs=25)
*/
ATSINSmove(tmp95, PMVtmpltcst(ptr_alloc<S2Ecst(mpz_vt0ype)>)()) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2264(line=78, offs=10) -- 2296(line=78, offs=42)
*/
ATSINSmove_void(tmp96, atscntrb_gmp_mpz_init_set_int(ATSPMVrefarg1(ATSSELrecsin(tmp95, atstkind_type(atstype_ptrk), atslab__2)), arg0)) ;
/*
letpush(end)
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2216(line=74, offs=10) -- 2217(line=74, offs=11)
*/
ATSINSmove(tmpret94, tmp95) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2)
*/
/*
INSletpop()
*/
ATSfunbody_end()
ATSreturn(tmpret94) ;
} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__43] */
#endif // end of [TEMPLATE]
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2209(line=74, offs=3) -- 2301(line=80, offs=2)
*/
/*
local:
global: intinf_make_int$43$1(level=1)
local:
global:
*/
ATSstatic()
/*
imparg =
tmparg =
tmpsub = Some()
*/
atstkind_type(atstype_ptrk)
ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__43__1(atstkind_t0ype(atstype_int) arg0)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret94__1, atstkind_type(atstype_ptrk)) ;
ATStmpdec(tmp95__1, atstkind_type(atstype_ptrk)) ;
// ATStmpdec_void(tmp96__1) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/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 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2)
*/
/*
letpush(beg)
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2238(line=77, offs=9) -- 2254(line=77, offs=25)
*/
ATSINSmove(tmp95__1, ATSLIB_056_prelude__ptr_alloc__1__4()) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2264(line=78, offs=10) -- 2296(line=78, offs=42)
*/
ATSINSmove_void(tmp96__1, atscntrb_gmp_mpz_init_set_int(ATSPMVrefarg1(ATSSELrecsin(tmp95__1, atstkind_type(atstype_ptrk), atslab__2)), arg0)) ;
/*
letpush(end)
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2216(line=74, offs=10) -- 2217(line=74, offs=11)
*/
ATSINSmove(tmpret94__1, tmp95__1) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2)
*/
/*
INSletpop()
*/
ATSfunbody_end()
ATSreturn(tmpret94__1) ;
} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__43__1] */
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42)
*/
/*
local:
global: ptr_alloc$1$4(level=2)
local:
global:
*/
ATSstatic()
/*
imparg = a(4740)
tmparg = S2Evar(a(4740))
tmpsub = Some(a(4740) -> S2Ecst(mpz_vt0ype))
*/
atstkind_type(atstype_ptrk)
ATSLIB_056_prelude__ptr_alloc__1__4()
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret2__4, atstkind_type(atstype_ptrk)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/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 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42)
*/
ATSINSmove(tmpret2__4, atspre_ptr_alloc_tsz(ATSPMVsizeof(atscntrb_gmp_mpz))) ;
ATSfunbody_end()
ATSreturn(tmpret2__4) ;
} /* end of [ATSLIB_056_prelude__ptr_alloc__1__4] */
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1895(line=77, offs=4) -- 2042(line=82, offs=6)
*/
/*
local:
global: sqrt_int_46$0(level=0)
local:
global:
*/
ATSstatic()
atstkind_t0ype(atstype_int)
sqrt_int_46(atstkind_t0ype(atstype_int) arg0)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret101, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmpref102, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmp103, atstkind_t0ype(atstype_double)) ;
ATStmpdec(tmp104, atstkind_t0ype(atstype_double)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1895(line=77, offs=4) -- 2042(line=82, offs=6)
*/
ATSINSflab(__patsflab_sqrt_int_46):
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1941(line=78, offs=3) -- 2042(line=82, offs=6)
*/
/*
letpush(beg)
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1953(line=79, offs=9) -- 1958(line=79, offs=14)
*/
/*
ATSINStmpdec(tmpref102) ;
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1985(line=79, offs=41) -- 2009(line=79, offs=65)
*/
ATSINSmove(tmp104, atspre_g0int2float_int_double(arg0)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1973(line=79, offs=29) -- 2011(line=79, offs=67)
*/
ATSINSmove(tmp103, atslib_libats_libc_sqrt_double(tmp104)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1961(line=79, offs=17) -- 2012(line=79, offs=68)
*/
ATSINSmove(tmpref102, atspre_g0float2int_double_int(tmp103)) ;
/*
letpush(end)
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2022(line=81, offs=5) -- 2035(line=81, offs=18)
*/
ATSINSmove(tmpret101, ATSPMVcastfn(witness, atstkind_t0ype(atstype_int), tmpref102)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1941(line=78, offs=3) -- 2042(line=82, offs=6)
*/
/*
INSletpop()
*/
ATSfunbody_end()
ATSreturn(tmpret101) ;
} /* end of [sqrt_int_46] */
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2078(line=85, offs=4) -- 2659(line=108, offs=10)
*/
/*
local: sqrt_int_46$0(level=0)
global: sqrt_int_46$0(level=0), is_prime_48$0(level=0)
local:
global:
*/
ATSstatic()
atstkind_t0ype(atstype_bool)
is_prime_48(atstkind_t0ype(atstype_int) arg0)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret105, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp124, atstkind_t0ype(atstype_int)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2078(line=85, offs=4) -- 2659(line=108, offs=10)
*/
ATSINSflab(__patsflab_is_prime_48):
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2114(line=86, offs=3) -- 2659(line=108, offs=10)
*/
ATScaseof_beg()
/*
** ibranchlst-beg
*/
ATSbranch_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2131(line=87, offs=7) -- 2132(line=87, offs=8)
*/
ATSINSlab(__atstmplab3):
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2087(line=85, offs=13) -- 2088(line=85, offs=14)
*/
ATSifnthen(ATSCKpat_int(arg0, ATSPMVint(1))) { ATSINSgoto(__atstmplab5) ; } ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2132(line=87, offs=8) -- 2132(line=87, 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/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2136(line=87, offs=12) -- 2141(line=87, offs=17)
*/
ATSINSmove(tmpret105, ATSPMVbool_false()) ;
ATSbranch_end()
ATSbranch_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2149(line=88, offs=8) -- 2149(line=88, 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/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2174(line=90, offs=9) -- 2649(line=107, offs=12)
*/
/*
letpush(beg)
*/
/*
letpush(end)
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2625(line=106, offs=19) -- 2635(line=106, offs=29)
*/
ATSINSmove(tmp124, sqrt_int_46(arg0)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2617(line=106, offs=11) -- 2637(line=106, offs=31)
*/
ATSINSmove(tmpret105, loop_49(arg0, ATSPMVi0nt(2), tmp124)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2174(line=90, offs=9) -- 2649(line=107, offs=12)
*/
/*
INSletpop()
*/
ATSbranch_end()
/*
** ibranchlst-end
*/
ATScaseof_end()
ATSfunbody_end()
ATSreturn(tmpret105) ;
} /* end of [is_prime_48] */
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2192(line=91, offs=15) -- 2595(line=104, offs=21)
*/
/*
local: loop_49$0(level=1)
global: loop_49$0(level=1)
local: k$5102(1)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int))))
global: k$5102(1)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int))))
*/
ATSstatic()
atstkind_t0ype(atstype_bool)
loop_49(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(tmpret106, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp107, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp112, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp115, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmp116, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmp117, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp120, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp123, atstkind_t0ype(atstype_int)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2192(line=91, offs=15) -- 2595(line=104, offs=21)
*/
ATSINSflab(__patsflab_loop_49):
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2282(line=92, offs=16) -- 2291(line=92, offs=25)
*/
ATSINSmove(tmp107, ATSLIB_056_prelude__lt_g1int_int__50__1(arg0, arg1)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2279(line=92, offs=13) -- 2595(line=104, offs=21)
*/
ATSif(
tmp107
) ATSthen() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2314(line=93, offs=18) -- 2319(line=93, offs=23)
*/
ATSINSmove(tmp115, atspre_g0int_mod_int(env0, arg0)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2314(line=93, offs=18) -- 2323(line=93, offs=27)
*/
ATSINSmove(tmp112, ATSLIB_056_prelude__eq_g0int_int__10__3(tmp115, ATSPMVi0nt(0))) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2311(line=93, offs=15) -- 2404(line=96, offs=35)
*/
ATSif(
tmp112
) ATSthen() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2345(line=94, offs=17) -- 2350(line=94, offs=22)
*/
ATSINSmove(tmpret106, ATSPMVbool_false()) ;
} ATSelse() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2391(line=96, offs=22) -- 2396(line=96, offs=27)
*/
ATSINSmove(tmp116, atspre_g1int_add_int(arg0, ATSPMVi0nt(1))) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2386(line=96, offs=17) -- 2404(line=96, offs=35)
*/
ATStailcal_beg()
ATSINSmove_tlcal(apy0, tmp116) ;
ATSINSmove_tlcal(apy1, arg1) ;
ATSINSargmove_tlcal(arg0, apy0) ;
ATSINSargmove_tlcal(arg1, apy1) ;
ATSINSfgoto(__patsflab_loop_49) ;
ATStailcal_end()
} /* ATSendif */
} ATSelse() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2439(line=98, offs=18) -- 2448(line=98, offs=27)
*/
ATSINSmove(tmp117, ATSLIB_056_prelude__eq_g1int_int__16__2(arg0, arg1)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2436(line=98, offs=15) -- 2595(line=104, offs=21)
*/
ATSif(
tmp117
) ATSthen() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2473(line=99, offs=20) -- 2478(line=99, offs=25)
*/
ATSINSmove(tmp123, atspre_g0int_mod_int(env0, arg0)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2473(line=99, offs=20) -- 2482(line=99, offs=29)
*/
ATSINSmove(tmp120, ATSLIB_056_prelude__eq_g0int_int__10__4(tmp123, ATSPMVi0nt(0))) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2470(line=99, offs=17) -- 2555(line=102, offs=23)
*/
ATSif(
tmp120
) ATSthen() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2506(line=100, offs=19) -- 2511(line=100, offs=24)
*/
ATSINSmove(tmpret106, ATSPMVbool_false()) ;
} ATSelse() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2551(line=102, offs=19) -- 2555(line=102, offs=23)
*/
ATSINSmove(tmpret106, ATSPMVbool_true()) ;
} /* ATSendif */
} ATSelse() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2591(line=104, offs=17) -- 2595(line=104, offs=21)
*/
ATSINSmove(tmpret106, ATSPMVbool_true()) ;
} /* ATSendif */
} /* ATSendif */
ATSfunbody_end()
ATSreturn(tmpret106) ;
} /* end of [loop_49] */
#if(0)
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12520(line=650, offs=3) -- 12559(line=650, offs=42)
*/
/*
local:
global: lt_g1int_int$50$0(level=0)
local:
global:
*/
ATSextern()
/*
imparg = tk(4631)
tmparg = S2Evar(tk(4631))
tmpsub = None()
*/
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__lt_g1int_int__50(atstkind_t0ype(atstyvar_type(tk)) arg0, atstkind_t0ype(atstype_int) arg1)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret108, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp109, atstkind_t0ype(atstyvar_type(tk))) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/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 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12546(line=650, offs=29) -- 12557(line=650, offs=40)
*/
ATSINSmove(tmp109, PMVtmpltcst(g1int2int<S2Eextkind(atstype_int), S2Evar(tk(4631))>)(arg1)) ;
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12529(line=650, offs=12) -- 12559(line=650, offs=42)
*/
ATSINSmove(tmpret108, PMVtmpltcst(g1int_lt<S2Evar(tk(4631))>)(arg0, tmp109)) ;
ATSfunbody_end()
ATSreturn(tmpret108) ;
} /* end of [ATSLIB_056_prelude__lt_g1int_int__50] */
#endif // end of [TEMPLATE]
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12520(line=650, offs=3) -- 12559(line=650, offs=42)
*/
/*
local:
global: lt_g1int_int$50$1(level=2)
local:
global:
*/
ATSstatic()
/*
imparg = tk(4631)
tmparg = S2Evar(tk(4631))
tmpsub = Some(tk(4631) -> S2Eextkind(atstype_int))
*/
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__lt_g1int_int__50__1(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret108__1, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp109__1, atstkind_t0ype(atstype_int)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/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 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12546(line=650, offs=29) -- 12557(line=650, offs=40)
*/
ATSINSmove(tmp109__1, atspre_g1int2int_int_int(arg1)) ;
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12529(line=650, offs=12) -- 12559(line=650, offs=42)
*/
ATSINSmove(tmpret108__1, atspre_g1int_lt_int(arg0, tmp109__1)) ;
ATSfunbody_end()
ATSreturn(tmpret108__1) ;
} /* end of [ATSLIB_056_prelude__lt_g1int_int__50__1] */
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42)
*/
/*
local:
global: eq_g0int_int$10$3(level=2)
local:
global:
*/
ATSstatic()
/*
imparg = tk(4628)
tmparg = S2Evar(tk(4628))
tmpsub = Some(tk(4628) -> S2Eextkind(atstype_int))
*/
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__eq_g0int_int__10__3(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret15__3, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp16__3, atstkind_t0ype(atstype_int)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/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 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40)
*/
ATSINSmove(tmp16__3, atspre_g0int2int_int_int(arg1)) ;
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42)
*/
ATSINSmove(tmpret15__3, atspre_g0int_eq_int(arg0, tmp16__3)) ;
ATSfunbody_end()
ATSreturn(tmpret15__3) ;
} /* end of [ATSLIB_056_prelude__eq_g0int_int__10__3] */
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12838(line=668, offs=3) -- 12877(line=668, offs=42)
*/
/*
local:
global: eq_g1int_int$16$2(level=2)
local:
global:
*/
ATSstatic()
/*
imparg = tk(4643)
tmparg = S2Evar(tk(4643))
tmpsub = Some(tk(4643) -> S2Eextkind(atstype_int))
*/
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__eq_g1int_int__16__2(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret25__2, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp26__2, atstkind_t0ype(atstype_int)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/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 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12864(line=668, offs=29) -- 12875(line=668, offs=40)
*/
ATSINSmove(tmp26__2, atspre_g1int2int_int_int(arg1)) ;
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12847(line=668, offs=12) -- 12877(line=668, offs=42)
*/
ATSINSmove(tmpret25__2, atspre_g1int_eq_int(arg0, tmp26__2)) ;
ATSfunbody_end()
ATSreturn(tmpret25__2) ;
} /* end of [ATSLIB_056_prelude__eq_g1int_int__16__2] */
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42)
*/
/*
local:
global: eq_g0int_int$10$4(level=2)
local:
global:
*/
ATSstatic()
/*
imparg = tk(4628)
tmparg = S2Evar(tk(4628))
tmpsub = Some(tk(4628) -> S2Eextkind(atstype_int))
*/
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__eq_g0int_int__10__4(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret15__4, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp16__4, atstkind_t0ype(atstype_int)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/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 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40)
*/
ATSINSmove(tmp16__4, atspre_g0int2int_int_int(arg1)) ;
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42)
*/
ATSINSmove(tmpret15__4, atspre_g0int_eq_int(arg0, tmp16__4)) ;
ATSfunbody_end()
ATSreturn(tmpret15__4) ;
} /* end of [ATSLIB_056_prelude__eq_g0int_int__10__4] */
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 451(line=14, offs=19) -- 471(line=15, offs=12)
*/
/*
local:
global: divides$57$0(level=0)
local:
global:
*/
ATSextern()
atstkind_t0ype(atstype_bool)
_057_home_057_vanessa_057_programming_057_haskell_057_done_057_hs_055_ats_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_sats__divides(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret125, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp128, atstkind_t0ype(atstype_int)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 443(line=14, offs=11) -- 471(line=15, offs=12)
*/
ATSINSflab(__patsflab_divides):
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 462(line=15, offs=3) -- 467(line=15, offs=8)
*/
ATSINSmove(tmp128, atspre_g0int_mod_int(arg1, arg0)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 462(line=15, offs=3) -- 471(line=15, offs=12)
*/
ATSINSmove(tmpret125, ATSLIB_056_prelude__eq_g0int_int__10__5(tmp128, ATSPMVi0nt(0))) ;
ATSfunbody_end()
ATSreturn(tmpret125) ;
} /* end of [_057_home_057_vanessa_057_programming_057_haskell_057_done_057_hs_055_ats_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_sats__divides] */
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42)
*/
/*
local:
global: eq_g0int_int$10$5(level=1)
local:
global:
*/
ATSstatic()
/*
imparg = tk(4628)
tmparg = S2Evar(tk(4628))
tmpsub = Some(tk(4628) -> S2Eextkind(atstype_int))
*/
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__eq_g0int_int__10__5(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret15__5, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp16__5, atstkind_t0ype(atstype_int)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/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 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40)
*/
ATSINSmove(tmp16__5, atspre_g0int2int_int_int(arg1)) ;
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42)
*/
ATSINSmove(tmpret15__5, atspre_g0int_eq_int(arg0, tmp16__5)) ;
ATSfunbody_end()
ATSreturn(tmpret15__5) ;
} /* end of [ATSLIB_056_prelude__eq_g0int_int__10__5] */
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 487(line=17, offs=15) -- 552(line=21, offs=6)
*/
/*
local:
global: gcd$59$0(level=0)
local:
global:
*/
ATSextern()
atstkind_t0ype(atstype_int)
_057_home_057_vanessa_057_programming_057_haskell_057_done_057_hs_055_ats_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_sats__gcd(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(tmpret129, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmp130, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp135, atstkind_t0ype(atstype_int)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 483(line=17, offs=11) -- 552(line=21, offs=6)
*/
ATSINSflab(__patsflab_gcd):
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 501(line=18, offs=6) -- 507(line=18, offs=12)
*/
ATSINSmove(tmp130, ATSLIB_056_prelude__neq_g1int_int__60__1(arg1, ATSPMVi0nt(0))) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 498(line=18, offs=3) -- 552(line=21, offs=6)
*/
ATSif(
tmp130
) ATSthen() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 532(line=19, offs=20) -- 537(line=19, offs=25)
*/
ATSINSmove(tmp135, atspre_g0int_mod_int(arg0, arg1)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 517(line=19, offs=5) -- 539(line=19, offs=27)
*/
ATStailcal_beg()
ATSINSmove_tlcal(apy0, arg1) ;
ATSINSmove_tlcal(apy1, ATSPMVcastfn(witness, atstkind_t0ype(atstype_int), tmp135)) ;
ATSINSargmove_tlcal(arg0, apy0) ;
ATSINSargmove_tlcal(arg1, apy1) ;
ATSINSfgoto(__patsflab_gcd) ;
ATStailcal_end()
} ATSelse() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 551(line=21, offs=5) -- 552(line=21, offs=6)
*/
ATSINSmove(tmpret129, arg0) ;
} /* ATSendif */
ATSfunbody_end()
ATSreturn(tmpret129) ;
} /* end of [_057_home_057_vanessa_057_programming_057_haskell_057_done_057_hs_055_ats_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_sats__gcd] */
#if(0)
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12916(line=672, offs=3) -- 12956(line=672, offs=43)
*/
/*
local:
global: neq_g1int_int$60$0(level=0)
local:
global:
*/
ATSextern()
/*
imparg = tk(4646)
tmparg = S2Evar(tk(4646))
tmpsub = None()
*/
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__neq_g1int_int__60(atstkind_t0ype(atstyvar_type(tk)) arg0, atstkind_t0ype(atstype_int) arg1)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret131, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp132, atstkind_t0ype(atstyvar_type(tk))) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/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 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12943(line=672, offs=30) -- 12954(line=672, offs=41)
*/
ATSINSmove(tmp132, PMVtmpltcst(g1int2int<S2Eextkind(atstype_int), S2Evar(tk(4646))>)(arg1)) ;
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12925(line=672, offs=12) -- 12956(line=672, offs=43)
*/
ATSINSmove(tmpret131, PMVtmpltcst(g1int_neq<S2Evar(tk(4646))>)(arg0, tmp132)) ;
ATSfunbody_end()
ATSreturn(tmpret131) ;
} /* end of [ATSLIB_056_prelude__neq_g1int_int__60] */
#endif // end of [TEMPLATE]
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12916(line=672, offs=3) -- 12956(line=672, offs=43)
*/
/*
local:
global: neq_g1int_int$60$1(level=1)
local:
global:
*/
ATSstatic()
/*
imparg = tk(4646)
tmparg = S2Evar(tk(4646))
tmpsub = Some(tk(4646) -> S2Eextkind(atstype_int))
*/
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__neq_g1int_int__60__1(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret131__1, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp132__1, atstkind_t0ype(atstype_int)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/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 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12943(line=672, offs=30) -- 12954(line=672, offs=41)
*/
ATSINSmove(tmp132__1, atspre_g1int2int_int_int(arg1)) ;
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12925(line=672, offs=12) -- 12956(line=672, offs=43)
*/
ATSINSmove(tmpret131__1, atspre_g1int_neq_int(arg0, tmp132__1)) ;
ATSfunbody_end()
ATSreturn(tmpret131__1) ;
} /* end of [ATSLIB_056_prelude__neq_g1int_int__60__1] */
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 568(line=23, offs=15) -- 598(line=24, offs=22)
*/
/*
local:
global: lcm$63$0(level=0)
local:
global:
*/
ATSextern()
atstkind_t0ype(atstype_int)
_057_home_057_vanessa_057_programming_057_haskell_057_done_057_hs_055_ats_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_sats__lcm(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret136, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmp137, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmp138, atstkind_t0ype(atstype_int)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 564(line=23, offs=11) -- 598(line=24, offs=22)
*/
ATSINSflab(__patsflab_lcm):
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 584(line=24, offs=8) -- 593(line=24, offs=17)
*/
ATSINSmove(tmp138, _057_home_057_vanessa_057_programming_057_haskell_057_done_057_hs_055_ats_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_sats__gcd(arg0, arg1)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 580(line=24, offs=4) -- 593(line=24, offs=17)
*/
ATSINSmove(tmp137, atspre_g0int_div_int(arg0, tmp138)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 579(line=24, offs=3) -- 598(line=24, offs=22)
*/
ATSINSmove(tmpret136, atspre_g0int_mul_int(tmp137, arg1)) ;
ATSfunbody_end()
ATSreturn(tmpret136) ;
} /* end of [_057_home_057_vanessa_057_programming_057_haskell_057_done_057_hs_055_ats_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_sats__lcm] */
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 618(line=26, offs=19) -- 642(line=27, offs=16)
*/
/*
local:
global: coprime$65$0(level=0)
local:
global:
*/
ATSextern()
atstkind_t0ype(atstype_bool)
_057_home_057_vanessa_057_programming_057_haskell_057_done_057_hs_055_ats_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_sats__coprime(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret139, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp142, atstkind_t0ype(atstype_int)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 610(line=26, offs=11) -- 642(line=27, offs=16)
*/
ATSINSflab(__patsflab_coprime):
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 629(line=27, offs=3) -- 638(line=27, offs=12)
*/
ATSINSmove(tmp142, _057_home_057_vanessa_057_programming_057_haskell_057_done_057_hs_055_ats_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_sats__gcd(arg0, arg1)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 629(line=27, offs=3) -- 642(line=27, offs=16)
*/
ATSINSmove(tmpret139, ATSLIB_056_prelude__eq_g0int_int__10__6(tmp142, ATSPMVi0nt(1))) ;
ATSfunbody_end()
ATSreturn(tmpret139) ;
} /* end of [_057_home_057_vanessa_057_programming_057_haskell_057_done_057_hs_055_ats_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_sats__coprime] */
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42)
*/
/*
local:
global: eq_g0int_int$10$6(level=1)
local:
global:
*/
ATSstatic()
/*
imparg = tk(4628)
tmparg = S2Evar(tk(4628))
tmpsub = Some(tk(4628) -> S2Eextkind(atstype_int))
*/
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__eq_g0int_int__10__6(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret15__6, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp16__6, atstkind_t0ype(atstype_int)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/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 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40)
*/
ATSINSmove(tmp16__6, atspre_g0int2int_int_int(arg1)) ;
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42)
*/
ATSINSmove(tmpret15__6, atspre_g0int_eq_int(arg0, tmp16__6)) ;
ATSfunbody_end()
ATSreturn(tmpret15__6) ;
} /* end of [ATSLIB_056_prelude__eq_g0int_int__10__6] */
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 663(line=29, offs=20) -- 1642(line=61, offs=8)
*/
/*
local: sqrt_int_46$0(level=0)
global: sqrt_int_46$0(level=0), divisors$67$0(level=0)
local:
global:
*/
ATSextern()
atstkind_type(atstype_ptrk)
_057_home_057_vanessa_057_programming_057_haskell_057_done_057_hs_055_ats_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_sats__divisors(atstkind_t0ype(atstype_int) arg0)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret143, atstkind_type(atstype_ptrk)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 654(line=29, offs=11) -- 1642(line=61, offs=8)
*/
ATSINSflab(__patsflab_divisors):
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 671(line=30, offs=3) -- 1642(line=61, offs=8)
*/
ATScaseof_beg()
/*
** ibranchlst-beg
*/
ATSbranch_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 688(line=31, offs=7) -- 689(line=31, offs=8)
*/
ATSINSlab(__atstmplab6):
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 664(line=29, offs=21) -- 665(line=29, offs=22)
*/
ATSifnthen(ATSCKpat_int(arg0, ATSPMVint(1))) { ATSINSgoto(__atstmplab8) ; } ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 689(line=31, offs=8) -- 689(line=31, 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/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 693(line=31, offs=12) -- 743(line=31, offs=62)
*/
ATSINSmove_ldelay(tmpret143, atstype_boxed, ATSPMVcfunlab(1, __patsfun_68, ())) ;
ATSbranch_end()
ATSbranch_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 751(line=32, offs=8) -- 751(line=32, 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/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 755(line=32, offs=12) -- 1642(line=61, offs=8)
*/
/*
letpush(beg)
*/
/*
letpush(end)
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1624(line=60, offs=7) -- 1634(line=60, offs=17)
*/
ATSINSmove(tmpret143, loop_70(arg0, ATSPMVi0nt(1))) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 755(line=32, offs=12) -- 1642(line=61, offs=8)
*/
/*
INSletpop()
*/
ATSbranch_end()
/*
** ibranchlst-end
*/
ATScaseof_end()
ATSfunbody_end()
ATSreturn(tmpret143) ;
} /* end of [_057_home_057_vanessa_057_programming_057_haskell_057_done_057_hs_055_ats_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_sats__divisors] */
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 693(line=31, offs=12) -- 743(line=31, offs=62)
*/
/*
local:
global: __patsfun_68$0(level=1)
local:
global:
*/
ATSstatic()
atstype_boxed
__patsfun_68(atstype_bool arg0)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret144, atstype_boxed) ;
ATStmpdec(tmp145, atstkind_type(atstype_ptrk)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 693(line=31, offs=12) -- 743(line=31, offs=62)
*/
ATSINSflab(__patsflab___patsfun_68):
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 693(line=31, offs=12) -- 743(line=31, offs=62)
*/
ATSif(
arg0
) ATSthen() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 719(line=31, offs=38) -- 741(line=31, offs=60)
*/
ATSINSmove_ldelay(tmp145, atstype_boxed, ATSPMVcfunlab(1, __patsfun_69, ())) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 701(line=31, offs=20) -- 742(line=31, offs=61)
*/
/*
#LINCONSTATUS==0
*/
ATSINSmove_con1_beg()
ATSINSmove_con1_new(tmpret144, postiats_tysum_1) ;
#if(0)
ATSINSstore_con1_tag(tmpret144, 1) ;
#endif
ATSINSstore_con1_ofs(tmpret144, postiats_tysum_1, atslab__0, ATSPMVi0nt(1)) ;
ATSINSstore_con1_ofs(tmpret144, postiats_tysum_1, atslab__1, tmp145) ;
ATSINSmove_con1_end()
} ATSelse() {
/* (*nothing*) */
} /* ATSendif */
ATSfunbody_end()
ATSreturn(tmpret144) ;
} /* end of [__patsfun_68] */
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 719(line=31, offs=38) -- 741(line=31, offs=60)
*/
/*
local:
global: __patsfun_69$0(level=2)
local:
global:
*/
ATSstatic()
atstype_boxed
__patsfun_69(atstype_bool arg0)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret146, atstype_boxed) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 719(line=31, offs=38) -- 741(line=31, offs=60)
*/
ATSINSflab(__patsflab___patsfun_69):
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 719(line=31, offs=38) -- 741(line=31, offs=60)
*/
ATSif(
arg0
) ATSthen() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 727(line=31, offs=46) -- 740(line=31, offs=59)
*/
ATSINSmove_nil(tmpret146) ;
} ATSelse() {
/* (*nothing*) */
} /* ATSendif */
ATSfunbody_end()
ATSreturn(tmpret146) ;
} /* end of [__patsfun_69] */
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 769(line=33, offs=11) -- 1610(line=58, offs=29)
*/
/*
local: sqrt_int_46$0(level=0), loop_70$0(level=1)
global: sqrt_int_46$0(level=0), loop_70$0(level=1)
local:
global:
*/
ATSstatic()
atstkind_type(atstype_ptrk)
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(tmpret147, atstkind_type(atstype_ptrk)) ;
ATStmpdec(tmp148, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp153, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmp154, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp157, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmp158, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp161, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmpref162, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmp172, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp175, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmpref176, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmp182, atstkind_t0ype(atstype_int)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 769(line=33, offs=11) -- 1610(line=58, offs=29)
*/
ATSINSflab(__patsflab_loop_70):
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 876(line=34, offs=19) -- 886(line=34, offs=29)
*/
ATSINSmove(tmp153, sqrt_int_46(arg0)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 869(line=34, offs=12) -- 886(line=34, offs=29)
*/
ATSINSmove(tmp148, ATSLIB_056_prelude__gte_g1int_int__71__1(arg1, tmp153)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 866(line=34, offs=9) -- 1610(line=58, offs=29)
*/
ATSif(
tmp148
) ATSthen() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 906(line=35, offs=14) -- 913(line=35, offs=21)
*/
ATSINSmove(tmp157, atspre_g0int_mod_int(arg0, arg1)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 906(line=35, offs=14) -- 917(line=35, offs=25)
*/
ATSINSmove(tmp154, ATSLIB_056_prelude__eq_g0int_int__10__7(tmp157, ATSPMVi0nt(0))) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 903(line=35, offs=11) -- 1350(line=49, offs=35)
*/
ATSif(
tmp154
) ATSthen() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 938(line=36, offs=16) -- 945(line=36, offs=23)
*/
ATSINSmove(tmp161, atspre_g1int_div_int(arg0, arg1)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 938(line=36, offs=16) -- 952(line=36, offs=30)
*/
ATSINSmove(tmp158, ATSLIB_056_prelude__neq_g1int_int__60__2(tmp161, arg1)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 935(line=36, offs=13) -- 1300(line=47, offs=18)
*/
ATSif(
tmp158
) ATSthen() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 972(line=37, offs=15) -- 1144(line=41, offs=18)
*/
/*
letpush(beg)
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 996(line=38, offs=21) -- 997(line=38, offs=22)
*/
/*
ATSINStmpdec(tmpref162) ;
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1005(line=38, offs=30) -- 1012(line=38, offs=37)
*/
ATSINSmove(tmpref162, atspre_g1int_div_int(arg0, arg1)) ;
/*
letpush(end)
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1046(line=40, offs=17) -- 1126(line=40, offs=97)
*/
ATSINSmove_ldelay(tmpret147, atstype_boxed, ATSPMVcfunlab(1, __patsfun_77, (arg1, ATSPMVptrof(tmpref162)))) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 972(line=37, offs=15) -- 1144(line=41, offs=18)
*/
/*
INSletpop()
*/
} ATSelse() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1230(line=46, offs=17) -- 1282(line=46, offs=69)
*/
ATSINSmove_ldelay(tmpret147, atstype_boxed, ATSPMVcfunlab(1, __patsfun_80, (arg1))) ;
} /* ATSendif */
} ATSelse() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1328(line=49, offs=13) -- 1350(line=49, offs=35)
*/
ATSINSmove_ldelay(tmpret147, atstype_boxed, ATSPMVcfunlab(1, __patsfun_82, ())) ;
} /* ATSendif */
} ATSelse() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1377(line=51, offs=14) -- 1384(line=51, offs=21)
*/
ATSINSmove(tmp175, atspre_g0int_mod_int(arg0, arg1)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1377(line=51, offs=14) -- 1388(line=51, offs=25)
*/
ATSINSmove(tmp172, ATSLIB_056_prelude__eq_g0int_int__10__8(tmp175, ATSPMVi0nt(0))) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1374(line=51, offs=11) -- 1610(line=58, offs=29)
*/
ATSif(
tmp172
) ATSthen() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1406(line=52, offs=13) -- 1566(line=56, offs=16)
*/
/*
letpush(beg)
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1428(line=53, offs=19) -- 1429(line=53, offs=20)
*/
/*
ATSINStmpdec(tmpref176) ;
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1437(line=53, offs=28) -- 1444(line=53, offs=35)
*/
ATSINSmove(tmpref176, atspre_g1int_div_int(arg0, arg1)) ;
/*
letpush(end)
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1474(line=55, offs=15) -- 1550(line=55, offs=91)
*/
ATSINSmove_ldelay(tmpret147, atstype_boxed, ATSPMVcfunlab(1, __patsfun_84, (arg0, arg1, ATSPMVptrof(tmpref176)))) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1406(line=52, offs=13) -- 1566(line=56, offs=16)
*/
/*
INSletpop()
*/
} ATSelse() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1602(line=58, offs=21) -- 1609(line=58, offs=28)
*/
ATSINSmove(tmp182, atspre_g1int_add_int(arg1, ATSPMVi0nt(1))) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1594(line=58, offs=13) -- 1610(line=58, offs=29)
*/
ATStailcal_beg()
ATSINSmove_tlcal(apy0, arg0) ;
ATSINSmove_tlcal(apy1, tmp182) ;
ATSINSargmove_tlcal(arg0, apy0) ;
ATSINSargmove_tlcal(arg1, apy1) ;
ATSINSfgoto(__patsflab_loop_70) ;
ATStailcal_end()
} /* ATSendif */
} /* ATSendif */
ATSfunbody_end()
ATSreturn(tmpret147) ;
} /* end of [loop_70] */
#if(0)
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12757(line=663, offs=3) -- 12797(line=663, offs=43)
*/
/*
local:
global: gte_g1int_int$71$0(level=0)
local:
global:
*/
ATSextern()
/*
imparg = tk(4640)
tmparg = S2Evar(tk(4640))
tmpsub = None()
*/
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__gte_g1int_int__71(atstkind_t0ype(atstyvar_type(tk)) arg0, atstkind_t0ype(atstype_int) arg1)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret149, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp150, atstkind_t0ype(atstyvar_type(tk))) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/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 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12784(line=663, offs=30) -- 12795(line=663, offs=41)
*/
ATSINSmove(tmp150, PMVtmpltcst(g1int2int<S2Eextkind(atstype_int), S2Evar(tk(4640))>)(arg1)) ;
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12766(line=663, offs=12) -- 12797(line=663, offs=43)
*/
ATSINSmove(tmpret149, PMVtmpltcst(g1int_gte<S2Evar(tk(4640))>)(arg0, tmp150)) ;
ATSfunbody_end()
ATSreturn(tmpret149) ;
} /* end of [ATSLIB_056_prelude__gte_g1int_int__71] */
#endif // end of [TEMPLATE]
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12757(line=663, offs=3) -- 12797(line=663, offs=43)
*/
/*
local:
global: gte_g1int_int$71$1(level=2)
local:
global:
*/
ATSstatic()
/*
imparg = tk(4640)
tmparg = S2Evar(tk(4640))
tmpsub = Some(tk(4640) -> S2Eextkind(atstype_int))
*/
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__gte_g1int_int__71__1(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret149__1, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp150__1, atstkind_t0ype(atstype_int)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/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 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12784(line=663, offs=30) -- 12795(line=663, offs=41)
*/
ATSINSmove(tmp150__1, atspre_g1int2int_int_int(arg1)) ;
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12766(line=663, offs=12) -- 12797(line=663, offs=43)
*/
ATSINSmove(tmpret149__1, atspre_g1int_gte_int(arg0, tmp150__1)) ;
ATSfunbody_end()
ATSreturn(tmpret149__1) ;
} /* end of [ATSLIB_056_prelude__gte_g1int_int__71__1] */
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42)
*/
/*
local:
global: eq_g0int_int$10$7(level=2)
local:
global:
*/
ATSstatic()
/*
imparg = tk(4628)
tmparg = S2Evar(tk(4628))
tmpsub = Some(tk(4628) -> S2Eextkind(atstype_int))
*/
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__eq_g0int_int__10__7(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret15__7, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp16__7, atstkind_t0ype(atstype_int)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/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 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40)
*/
ATSINSmove(tmp16__7, atspre_g0int2int_int_int(arg1)) ;
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42)
*/
ATSINSmove(tmpret15__7, atspre_g0int_eq_int(arg0, tmp16__7)) ;
ATSfunbody_end()
ATSreturn(tmpret15__7) ;
} /* end of [ATSLIB_056_prelude__eq_g0int_int__10__7] */
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12916(line=672, offs=3) -- 12956(line=672, offs=43)
*/
/*
local:
global: neq_g1int_int$60$2(level=2)
local:
global:
*/
ATSstatic()
/*
imparg = tk(4646)
tmparg = S2Evar(tk(4646))
tmpsub = Some(tk(4646) -> S2Eextkind(atstype_int))
*/
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__neq_g1int_int__60__2(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret131__2, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp132__2, atstkind_t0ype(atstype_int)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/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 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12943(line=672, offs=30) -- 12954(line=672, offs=41)
*/
ATSINSmove(tmp132__2, atspre_g1int2int_int_int(arg1)) ;
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12925(line=672, offs=12) -- 12956(line=672, offs=43)
*/
ATSINSmove(tmpret131__2, atspre_g1int_neq_int(arg0, tmp132__2)) ;
ATSfunbody_end()
ATSreturn(tmpret131__2) ;
} /* end of [ATSLIB_056_prelude__neq_g1int_int__60__2] */
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1046(line=40, offs=17) -- 1126(line=40, offs=97)
*/
/*
local:
global: __patsfun_77$0(level=2)
local: acc$5117(2)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))), x$5118(2)(HSEapp(HSEcst(atstkind_type); HSEs2exp(S2Eextkind(atstype_ptrk))))
global: acc$5117(2)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))), x$5118(2)(HSEapp(HSEcst(atstkind_type); HSEs2exp(S2Eextkind(atstype_ptrk))))
*/
ATSstatic()
atstype_boxed
__patsfun_77(atstkind_t0ype(atstype_int) env0, atstkind_type(atstype_ptrk) env1, atstype_bool arg0)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret163, atstype_boxed) ;
ATStmpdec(tmp164, atstkind_type(atstype_ptrk)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1046(line=40, offs=17) -- 1126(line=40, offs=97)
*/
ATSINSflab(__patsflab___patsfun_77):
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1046(line=40, offs=17) -- 1126(line=40, offs=97)
*/
ATSif(
arg0
) ATSthen() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1074(line=40, offs=45) -- 1124(line=40, offs=95)
*/
ATSINSmove_ldelay(tmp164, atstype_boxed, ATSPMVcfunlab(1, __patsfun_78, (env1))) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1054(line=40, offs=25) -- 1125(line=40, offs=96)
*/
/*
#LINCONSTATUS==0
*/
ATSINSmove_con1_beg()
ATSINSmove_con1_new(tmpret163, postiats_tysum_1) ;
#if(0)
ATSINSstore_con1_tag(tmpret163, 1) ;
#endif
ATSINSstore_con1_ofs(tmpret163, postiats_tysum_1, atslab__0, env0) ;
ATSINSstore_con1_ofs(tmpret163, postiats_tysum_1, atslab__1, tmp164) ;
ATSINSmove_con1_end()
} ATSelse() {
/* (*nothing*) */
} /* ATSendif */
ATSfunbody_end()
ATSreturn(tmpret163) ;
} /* end of [__patsfun_77] */
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1074(line=40, offs=45) -- 1124(line=40, offs=95)
*/
/*
local:
global: __patsfun_78$0(level=3)
local: x$5118(2)(HSEapp(HSEcst(atstkind_type); HSEs2exp(S2Eextkind(atstype_ptrk))))
global: x$5118(2)(HSEapp(HSEcst(atstkind_type); HSEs2exp(S2Eextkind(atstype_ptrk))))
*/
ATSstatic()
atstype_boxed
__patsfun_78(atstkind_type(atstype_ptrk) env0, atstype_bool arg0)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret165, atstype_boxed) ;
ATStmpdec(tmp166, atstkind_type(atstype_ptrk)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1074(line=40, offs=45) -- 1124(line=40, offs=95)
*/
ATSINSflab(__patsflab___patsfun_78):
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1074(line=40, offs=45) -- 1124(line=40, offs=95)
*/
ATSif(
arg0
) ATSthen() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1100(line=40, offs=71) -- 1122(line=40, offs=93)
*/
ATSINSmove_ldelay(tmp166, atstype_boxed, ATSPMVcfunlab(1, __patsfun_79, ())) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1082(line=40, offs=53) -- 1123(line=40, offs=94)
*/
/*
#LINCONSTATUS==0
*/
ATSINSmove_con1_beg()
ATSINSmove_con1_new(tmpret165, postiats_tysum_1) ;
#if(0)
ATSINSstore_con1_tag(tmpret165, 1) ;
#endif
ATSINSstore_con1_ofs(tmpret165, postiats_tysum_1, atslab__0, ATSderef(env0, atstkind_t0ype(atstype_int))) ;
ATSINSstore_con1_ofs(tmpret165, postiats_tysum_1, atslab__1, tmp166) ;
ATSINSmove_con1_end()
} ATSelse() {
/* (*nothing*) */
} /* ATSendif */
ATSfunbody_end()
ATSreturn(tmpret165) ;
} /* end of [__patsfun_78] */
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1100(line=40, offs=71) -- 1122(line=40, offs=93)
*/
/*
local:
global: __patsfun_79$0(level=4)
local:
global:
*/
ATSstatic()
atstype_boxed
__patsfun_79(atstype_bool arg0)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret167, atstype_boxed) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1100(line=40, offs=71) -- 1122(line=40, offs=93)
*/
ATSINSflab(__patsflab___patsfun_79):
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1100(line=40, offs=71) -- 1122(line=40, offs=93)
*/
ATSif(
arg0
) ATSthen() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1108(line=40, offs=79) -- 1121(line=40, offs=92)
*/
ATSINSmove_nil(tmpret167) ;
} ATSelse() {
/* (*nothing*) */
} /* ATSendif */
ATSfunbody_end()
ATSreturn(tmpret167) ;
} /* end of [__patsfun_79] */
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1230(line=46, offs=17) -- 1282(line=46, offs=69)
*/
/*
local:
global: __patsfun_80$0(level=2)
local: acc$5117(2)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int))))
global: acc$5117(2)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int))))
*/
ATSstatic()
atstype_boxed
__patsfun_80(atstkind_t0ype(atstype_int) env0, atstype_bool arg0)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret168, atstype_boxed) ;
ATStmpdec(tmp169, atstkind_type(atstype_ptrk)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1230(line=46, offs=17) -- 1282(line=46, offs=69)
*/
ATSINSflab(__patsflab___patsfun_80):
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1230(line=46, offs=17) -- 1282(line=46, offs=69)
*/
ATSif(
arg0
) ATSthen() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1258(line=46, offs=45) -- 1280(line=46, offs=67)
*/
ATSINSmove_ldelay(tmp169, atstype_boxed, ATSPMVcfunlab(1, __patsfun_81, ())) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1238(line=46, offs=25) -- 1281(line=46, offs=68)
*/
/*
#LINCONSTATUS==0
*/
ATSINSmove_con1_beg()
ATSINSmove_con1_new(tmpret168, postiats_tysum_1) ;
#if(0)
ATSINSstore_con1_tag(tmpret168, 1) ;
#endif
ATSINSstore_con1_ofs(tmpret168, postiats_tysum_1, atslab__0, env0) ;
ATSINSstore_con1_ofs(tmpret168, postiats_tysum_1, atslab__1, tmp169) ;
ATSINSmove_con1_end()
} ATSelse() {
/* (*nothing*) */
} /* ATSendif */
ATSfunbody_end()
ATSreturn(tmpret168) ;
} /* end of [__patsfun_80] */
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1258(line=46, offs=45) -- 1280(line=46, offs=67)
*/
/*
local:
global: __patsfun_81$0(level=3)
local:
global:
*/
ATSstatic()
atstype_boxed
__patsfun_81(atstype_bool arg0)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret170, atstype_boxed) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1258(line=46, offs=45) -- 1280(line=46, offs=67)
*/
ATSINSflab(__patsflab___patsfun_81):
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1258(line=46, offs=45) -- 1280(line=46, offs=67)
*/
ATSif(
arg0
) ATSthen() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1266(line=46, offs=53) -- 1279(line=46, offs=66)
*/
ATSINSmove_nil(tmpret170) ;
} ATSelse() {
/* (*nothing*) */
} /* ATSendif */
ATSfunbody_end()
ATSreturn(tmpret170) ;
} /* end of [__patsfun_81] */
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1328(line=49, offs=13) -- 1350(line=49, offs=35)
*/
/*
local:
global: __patsfun_82$0(level=2)
local:
global:
*/
ATSstatic()
atstype_boxed
__patsfun_82(atstype_bool arg0)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret171, atstype_boxed) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1328(line=49, offs=13) -- 1350(line=49, offs=35)
*/
ATSINSflab(__patsflab___patsfun_82):
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1328(line=49, offs=13) -- 1350(line=49, offs=35)
*/
ATSif(
arg0
) ATSthen() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1336(line=49, offs=21) -- 1349(line=49, offs=34)
*/
ATSINSmove_nil(tmpret171) ;
} ATSelse() {
/* (*nothing*) */
} /* ATSendif */
ATSfunbody_end()
ATSreturn(tmpret171) ;
} /* end of [__patsfun_82] */
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42)
*/
/*
local:
global: eq_g0int_int$10$8(level=2)
local:
global:
*/
ATSstatic()
/*
imparg = tk(4628)
tmparg = S2Evar(tk(4628))
tmpsub = Some(tk(4628) -> S2Eextkind(atstype_int))
*/
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__eq_g0int_int__10__8(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret15__8, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp16__8, atstkind_t0ype(atstype_int)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/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 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40)
*/
ATSINSmove(tmp16__8, atspre_g0int2int_int_int(arg1)) ;
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42)
*/
ATSINSmove(tmpret15__8, atspre_g0int_eq_int(arg0, tmp16__8)) ;
ATSfunbody_end()
ATSreturn(tmpret15__8) ;
} /* end of [ATSLIB_056_prelude__eq_g0int_int__10__8] */
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1474(line=55, offs=15) -- 1550(line=55, offs=91)
*/
/*
local: loop_70$0(level=1)
global: loop_70$0(level=1), __patsfun_84$0(level=2)
local: n$5116(2)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))), acc$5117(2)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))), x$5119(2)(HSEapp(HSEcst(atstkind_type); HSEs2exp(S2Eextkind(atstype_ptrk))))
global: n$5116(2)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))), acc$5117(2)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))), x$5119(2)(HSEapp(HSEcst(atstkind_type); HSEs2exp(S2Eextkind(atstype_ptrk))))
*/
ATSstatic()
atstype_boxed
__patsfun_84(atstkind_t0ype(atstype_int) env0, atstkind_t0ype(atstype_int) env1, atstkind_type(atstype_ptrk) env2, atstype_bool arg0)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret177, atstype_boxed) ;
ATStmpdec(tmp178, atstkind_type(atstype_ptrk)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1474(line=55, offs=15) -- 1550(line=55, offs=91)
*/
ATSINSflab(__patsflab___patsfun_84):
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1474(line=55, offs=15) -- 1550(line=55, offs=91)
*/
ATSif(
arg0
) ATSthen() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1502(line=55, offs=43) -- 1548(line=55, offs=89)
*/
ATSINSmove_ldelay(tmp178, atstype_boxed, ATSPMVcfunlab(1, __patsfun_85, (env0, env1, env2))) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1482(line=55, offs=23) -- 1549(line=55, offs=90)
*/
/*
#LINCONSTATUS==0
*/
ATSINSmove_con1_beg()
ATSINSmove_con1_new(tmpret177, postiats_tysum_1) ;
#if(0)
ATSINSstore_con1_tag(tmpret177, 1) ;
#endif
ATSINSstore_con1_ofs(tmpret177, postiats_tysum_1, atslab__0, env1) ;
ATSINSstore_con1_ofs(tmpret177, postiats_tysum_1, atslab__1, tmp178) ;
ATSINSmove_con1_end()
} ATSelse() {
/* (*nothing*) */
} /* ATSendif */
ATSfunbody_end()
ATSreturn(tmpret177) ;
} /* end of [__patsfun_84] */
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1502(line=55, offs=43) -- 1548(line=55, offs=89)
*/
/*
local: loop_70$0(level=1)
global: loop_70$0(level=1), __patsfun_85$0(level=3)
local: n$5116(2)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))), acc$5117(2)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))), x$5119(2)(HSEapp(HSEcst(atstkind_type); HSEs2exp(S2Eextkind(atstype_ptrk))))
global: n$5116(2)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))), acc$5117(2)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))), x$5119(2)(HSEapp(HSEcst(atstkind_type); HSEs2exp(S2Eextkind(atstype_ptrk))))
*/
ATSstatic()
atstype_boxed
__patsfun_85(atstkind_t0ype(atstype_int) env0, atstkind_t0ype(atstype_int) env1, atstkind_type(atstype_ptrk) env2, atstype_bool arg0)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret179, atstype_boxed) ;
ATStmpdec(tmp180, atstkind_type(atstype_ptrk)) ;
ATStmpdec(tmp181, atstkind_t0ype(atstype_int)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1502(line=55, offs=43) -- 1548(line=55, offs=89)
*/
ATSINSflab(__patsflab___patsfun_85):
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1502(line=55, offs=43) -- 1548(line=55, offs=89)
*/
ATSif(
arg0
) ATSthen() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1537(line=55, offs=78) -- 1544(line=55, offs=85)
*/
ATSINSmove(tmp181, atspre_g1int_add_int(env1, ATSPMVi0nt(1))) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1529(line=55, offs=70) -- 1545(line=55, offs=86)
*/
ATSINSmove(tmp180, loop_70(env0, tmp181)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1510(line=55, offs=51) -- 1547(line=55, offs=88)
*/
/*
#LINCONSTATUS==0
*/
ATSINSmove_con1_beg()
ATSINSmove_con1_new(tmpret179, postiats_tysum_1) ;
#if(0)
ATSINSstore_con1_tag(tmpret179, 1) ;
#endif
ATSINSstore_con1_ofs(tmpret179, postiats_tysum_1, atslab__0, ATSderef(env2, atstkind_t0ype(atstype_int))) ;
ATSINSstore_con1_ofs(tmpret179, postiats_tysum_1, atslab__1, tmp180) ;
ATSINSmove_con1_end()
} ATSelse() {
/* (*nothing*) */
} /* ATSendif */
ATSfunbody_end()
ATSreturn(tmpret179) ;
} /* end of [__patsfun_85] */
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1682(line=64, offs=4) -- 1754(line=65, offs=18)
*/
/*
local:
global: div_gt_zero_86$0(level=0)
local:
global:
*/
ATSstatic()
atstkind_t0ype(atstype_int)
div_gt_zero_86(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret183, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmp184, atstkind_t0ype(atstype_int)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1682(line=64, offs=4) -- 1754(line=65, offs=18)
*/
ATSINSflab(__patsflab_div_gt_zero_86):
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1748(line=65, offs=12) -- 1753(line=65, offs=17)
*/
ATSINSmove(tmp184, atspre_g1int_div_int(arg0, arg1)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1739(line=65, offs=3) -- 1754(line=65, offs=18)
*/
ATSINSmove(tmpret183, ATSPMVcastfn(cast, atstkind_t0ype(atstype_int), tmp184)) ;
ATSfunbody_end()
ATSreturn(tmpret183) ;
} /* end of [div_gt_zero_86] */
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1873(line=69, offs=5) -- 3801(line=132, offs=6)
*/
/*
local: exp_3$0(level=0), is_prime_48$0(level=0), div_gt_zero_86$0(level=0)
global: exp_3$0(level=0), sqrt_int_46$0(level=0), is_prime_48$0(level=0), div_gt_zero_86$0(level=0), jacobi_87$0(level=0)
local:
global:
*/
ATSstatic()
atstkind_t0ype(atstype_int)
jacobi_87(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret185, atstkind_t0ype(atstype_int)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1873(line=69, offs=5) -- 3801(line=132, offs=6)
*/
ATSINSflab(__patsflab_jacobi_87):
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1914(line=70, offs=3) -- 3801(line=132, offs=6)
*/
/*
letpush(beg)
*/
/*
letpush(end)
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3788(line=131, offs=5) -- 3795(line=131, offs=12)
*/
ATSINSmove(tmpret185, loop_98(arg0, arg1, ATSPMVi0nt(2))) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1914(line=70, offs=3) -- 3801(line=132, offs=6)
*/
/*
INSletpop()
*/
ATSfunbody_end()
ATSreturn(tmpret185) ;
} /* end of [jacobi_87] */
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1967(line=72, offs=9) -- 3295(line=112, offs=12)
*/
/*
local:
global: legendre_88$0(level=1)
local:
global:
*/
ATSstatic()
atstkind_t0ype(atstype_int)
legendre_88(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret186, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmp187, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmpref206, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmp207, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmp208, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmp209, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmp210, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp213, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmp214, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmp215, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp218, atstkind_t0ype(atstype_int)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1967(line=72, offs=9) -- 3295(line=112, offs=12)
*/
ATSINSflab(__patsflab_legendre_88):
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2055(line=73, offs=13) -- 2060(line=73, offs=18)
*/
ATSINSmove(tmp187, atspre_g0int_mod_int(arg1, arg0)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2049(line=73, offs=7) -- 3295(line=112, offs=12)
*/
ATScaseof_beg()
/*
** ibranchlst-beg
*/
ATSbranch_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2074(line=74, offs=11) -- 2075(line=74, offs=12)
*/
ATSINSlab(__atstmplab9):
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2055(line=73, offs=13) -- 2060(line=73, offs=18)
*/
ATSifnthen(ATSCKpat_int(tmp187, ATSPMVint(0))) { ATSINSgoto(__atstmplab11) ; } ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2075(line=74, offs=12) -- 2075(line=74, offs=12)
*/
ATSINSlab(__atstmplab10):
/*
emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0)
*/
/*
ibranch-mbody:
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2079(line=74, offs=16) -- 2080(line=74, offs=17)
*/
ATSINSmove(tmpret186, ATSPMVi0nt(0)) ;
ATSbranch_end()
ATSbranch_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2092(line=75, offs=12) -- 2092(line=75, offs=12)
*/
ATSINSlab(__atstmplab11):
/*
emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0)
*/
/*
ibranch-mbody:
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2096(line=75, offs=16) -- 3295(line=112, offs=12)
*/
/*
letpush(beg)
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3115(line=106, offs=15) -- 3116(line=106, offs=16)
*/
/*
ATSINStmpdec(tmpref206) ;
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3137(line=106, offs=37) -- 3142(line=106, offs=42)
*/
ATSINSmove(tmp208, atspre_g1int_sub_int(arg1, ATSPMVi0nt(1))) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3136(line=106, offs=36) -- 3147(line=106, offs=47)
*/
ATSINSmove(tmp207, atspre_g1int_div_int(tmp208, ATSPMVi0nt(2))) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3119(line=106, offs=19) -- 3151(line=106, offs=51)
*/
ATSINSmove(tmpref206, exp_mod_prime_89(arg0, tmp207, arg1)) ;
/*
letpush(end)
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3179(line=108, offs=17) -- 3180(line=108, offs=18)
*/
ATSINSmove(tmp209, tmpref206) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3173(line=108, offs=11) -- 3283(line=111, offs=21)
*/
ATScaseof_beg()
/*
** ibranchlst-beg
*/
ATSbranch_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3199(line=109, offs=16) -- 3199(line=109, offs=16)
*/
ATSINSlab(__atstmplab15):
/*
emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0)
*/
/*
ibranch-guard:
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3210(line=109, offs=27) -- 3215(line=109, offs=32)
*/
ATSINSmove(tmp214, atspre_g1int_sub_int(arg1, ATSPMVi0nt(1))) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3205(line=109, offs=22) -- 3216(line=109, offs=33)
*/
ATSINSmove(tmp213, atspre_g0int_mod_int(tmp209, tmp214)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3205(line=109, offs=22) -- 3220(line=109, offs=37)
*/
ATSINSmove(tmp210, ATSLIB_056_prelude__eq_g0int_int__10__10(tmp213, ATSPMVi0nt(0))) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3205(line=109, offs=22) -- 3220(line=109, offs=37)
*/
ATSifnthen(ATSCKpat_bool(tmp210, ATSPMVbool_true())) { ATSINSgoto(__atstmplab16) ; } ;
/*
emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0)
*/
/*
ibranch-mbody:
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3224(line=109, offs=41) -- 3226(line=109, offs=43)
*/
ATSINSmove(tmpret186, atspre_g1int_neg_int(ATSPMVi0nt(1))) ;
ATSbranch_end()
ATSbranch_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3242(line=110, offs=16) -- 3242(line=110, offs=16)
*/
ATSINSlab(__atstmplab16):
/*
emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0)
*/
/*
ibranch-guard:
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3248(line=110, offs=22) -- 3253(line=110, offs=27)
*/
ATSINSmove(tmp218, atspre_g0int_mod_int(tmp209, arg1)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3248(line=110, offs=22) -- 3257(line=110, offs=31)
*/
ATSINSmove(tmp215, ATSLIB_056_prelude__eq_g0int_int__10__11(tmp218, ATSPMVi0nt(0))) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3248(line=110, offs=22) -- 3257(line=110, offs=31)
*/
ATSifnthen(ATSCKpat_bool(tmp215, ATSPMVbool_true())) { ATSINSgoto(__atstmplab17) ; } ;
/*
emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0)
*/
/*
ibranch-mbody:
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3261(line=110, offs=35) -- 3262(line=110, offs=36)
*/
ATSINSmove(tmpret186, ATSPMVi0nt(0)) ;
ATSbranch_end()
ATSbranch_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3278(line=111, offs=16) -- 3278(line=111, offs=16)
*/
ATSINSlab(__atstmplab17):
/*
emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0)
*/
/*
ibranch-mbody:
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3282(line=111, offs=20) -- 3283(line=111, offs=21)
*/
ATSINSmove(tmpret186, ATSPMVi0nt(1)) ;
ATSbranch_end()
/*
** ibranchlst-end
*/
ATScaseof_end()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2096(line=75, offs=16) -- 3295(line=112, offs=12)
*/
/*
INSletpop()
*/
ATSbranch_end()
/*
** ibranchlst-end
*/
ATScaseof_end()
ATSfunbody_end()
ATSreturn(tmpret186) ;
} /* end of [legendre_88] */
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2156(line=77, offs=15) -- 3089(line=104, offs=16)
*/
/*
local: exp_mod_prime_89$0(level=2)
global: exp_mod_prime_89$0(level=2)
local:
global:
*/
ATSstatic()
atstkind_t0ype(atstype_int)
exp_mod_prime_89(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1, atstkind_t0ype(atstype_int) arg2)
{
/* tmpvardeclst(beg) */
ATStmpdec(apy0, atstkind_t0ype(atstype_int)) ;
ATStmpdec(apy1, atstkind_t0ype(atstype_int)) ;
ATStmpdec(apy2, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmpret188, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmpref189, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmpref190, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmp191, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmp192, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmpref195, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmp196, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmpref197, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmpref198, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmp199, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmp200, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmp201, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmpref204, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmp205, atstkind_t0ype(atstype_int)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2156(line=77, offs=15) -- 3089(line=104, offs=16)
*/
ATSINSflab(__patsflab_exp_mod_prime_89):
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2234(line=78, offs=13) -- 3089(line=104, offs=16)
*/
/*
letpush(beg)
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2256(line=79, offs=19) -- 2258(line=79, offs=21)
*/
/*
ATSINStmpdec(tmpref189) ;
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2261(line=79, offs=24) -- 2266(line=79, offs=29)
*/
ATSINSmove(tmpref189, atspre_g0int_mod_int(arg0, arg2)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2285(line=80, offs=19) -- 2287(line=80, offs=21)
*/
/*
ATSINStmpdec(tmpref190) ;
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2295(line=80, offs=29) -- 2300(line=80, offs=34)
*/
ATSINSmove(tmp191, atspre_g1int_sub_int(arg2, ATSPMVi0nt(1))) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2290(line=80, offs=24) -- 2301(line=80, offs=35)
*/
ATSINSmove(tmpref190, atspre_g0int_mod_int(arg1, tmp191)) ;
/*
letpush(end)
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2331(line=82, offs=15) -- 3073(line=103, offs=22)
*/
ATScaseof_beg()
/*
** ibranchlst-beg
*/
ATSbranch_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2360(line=83, offs=19) -- 2361(line=83, offs=20)
*/
ATSINSlab(__atstmplab12):
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2170(line=77, offs=29) -- 2171(line=77, offs=30)
*/
ATSifnthen(ATSCKpat_int(arg0, ATSPMVint(0))) { ATSINSgoto(__atstmplab14) ; } ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2361(line=83, offs=20) -- 2361(line=83, offs=20)
*/
ATSINSlab(__atstmplab13):
/*
emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0)
*/
/*
ibranch-mbody:
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2365(line=83, offs=24) -- 2366(line=83, offs=25)
*/
ATSINSmove(tmpret188, ATSPMVi0nt(0)) ;
ATSbranch_end()
ATSbranch_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2386(line=84, offs=20) -- 2386(line=84, offs=20)
*/
ATSINSlab(__atstmplab14):
/*
emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0)
*/
/*
ibranch-mbody:
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2439(line=86, offs=24) -- 2444(line=86, offs=29)
*/
ATSINSmove(tmp192, ATSLIB_056_prelude__gt_g1int_int__4__3(arg1, ATSPMVi0nt(0))) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2436(line=86, offs=21) -- 3051(line=102, offs=24)
*/
ATSif(
tmp192
) ATSthen() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2472(line=87, offs=23) -- 3002(line=100, offs=26)
*/
/*
letpush(beg)
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2504(line=88, offs=29) -- 2506(line=88, offs=31)
*/
/*
ATSINStmpdec(tmpref195) ;
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2529(line=88, offs=54) -- 2536(line=88, offs=61)
*/
ATSINSmove(tmp196, atspre_g0int_half_int(tmpref190)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2520(line=88, offs=45) -- 2538(line=88, offs=63)
*/
ATSINSmove(tmpref195, ATSPMVcastfn(cast, atstkind_t0ype(atstype_int), tmp196)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2567(line=89, offs=29) -- 2569(line=89, offs=31)
*/
/*
ATSINStmpdec(tmpref197) ;
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2572(line=89, offs=34) -- 2578(line=89, offs=40)
*/
ATSINSmove(tmpref197, atspre_g0int_mod_int(tmpref190, ATSPMVi0nt(2))) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2607(line=90, offs=29) -- 2611(line=90, offs=33)
*/
/*
ATSINStmpdec(tmpref198) ;
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2634(line=90, offs=56) -- 2639(line=90, offs=61)
*/
ATSINSmove(tmp200, atspre_g1int_mul_int(arg0, arg0)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2634(line=90, offs=56) -- 2643(line=90, offs=65)
*/
ATSINSmove(tmp199, atspre_g0int_mod_int(tmp200, arg2)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2625(line=90, offs=47) -- 2644(line=90, offs=66)
*/
ATSINSmove(tmpref198, ATSPMVcastfn(cast, atstkind_t0ype(atstype_int), tmp199)) ;
/*
letpush(end)
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2697(line=92, offs=28) -- 2703(line=92, offs=34)
*/
ATSINSmove(tmp201, ATSLIB_056_prelude__eq_g0int_int__10__9(tmpref197, ATSPMVi0nt(0))) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2694(line=92, offs=25) -- 2976(line=99, offs=30)
*/
ATSif(
tmp201
) ATSthen() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2735(line=93, offs=27) -- 2761(line=93, offs=53)
*/
ATStailcal_beg()
ATSINSmove_tlcal(apy0, tmpref198) ;
ATSINSmove_tlcal(apy1, tmpref195) ;
ATSINSmove_tlcal(apy2, arg2) ;
ATSINSargmove_tlcal(arg0, apy0) ;
ATSINSargmove_tlcal(arg1, apy1) ;
ATSINSargmove_tlcal(arg2, apy2) ;
ATSINSfgoto(__patsflab_exp_mod_prime_89) ;
ATStailcal_end()
} ATSelse() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2817(line=95, offs=27) -- 2976(line=99, offs=30)
*/
/*
letpush(beg)
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2853(line=96, offs=33) -- 2854(line=96, offs=34)
*/
/*
ATSINStmpdec(tmpref204) ;
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2861(line=96, offs=41) -- 2887(line=96, offs=67)
*/
ATSINSmove(tmp205, exp_mod_prime_89(tmpref198, tmpref195, arg2)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2857(line=96, offs=37) -- 2887(line=96, offs=67)
*/
ATSINSmove(tmpref204, atspre_g0int_mul_int(arg0, tmp205)) ;
/*
letpush(end)
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2945(line=98, offs=29) -- 2946(line=98, offs=30)
*/
ATSINSmove(tmpret188, tmpref204) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2817(line=95, offs=27) -- 2976(line=99, offs=30)
*/
/*
INSletpop()
*/
} /* ATSendif */
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2472(line=87, offs=23) -- 3002(line=100, offs=26)
*/
/*
INSletpop()
*/
} ATSelse() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3050(line=102, offs=23) -- 3051(line=102, offs=24)
*/
ATSINSmove(tmpret188, ATSPMVi0nt(1)) ;
} /* ATSendif */
ATSbranch_end()
/*
** ibranchlst-end
*/
ATScaseof_end()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2234(line=78, offs=13) -- 3089(line=104, offs=16)
*/
/*
INSletpop()
*/
ATSfunbody_end()
ATSreturn(tmpret188) ;
} /* end of [exp_mod_prime_89] */
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12679(line=659, offs=3) -- 12718(line=659, offs=42)
*/
/*
local:
global: gt_g1int_int$4$3(level=3)
local:
global:
*/
ATSstatic()
/*
imparg = tk(4637)
tmparg = S2Evar(tk(4637))
tmpsub = Some(tk(4637) -> S2Eextkind(atstype_int))
*/
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__gt_g1int_int__4__3(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret8__3, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp9__3, atstkind_t0ype(atstype_int)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/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 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12705(line=659, offs=29) -- 12716(line=659, offs=40)
*/
ATSINSmove(tmp9__3, atspre_g1int2int_int_int(arg1)) ;
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12688(line=659, offs=12) -- 12718(line=659, offs=42)
*/
ATSINSmove(tmpret8__3, atspre_g1int_gt_int(arg0, tmp9__3)) ;
ATSfunbody_end()
ATSreturn(tmpret8__3) ;
} /* end of [ATSLIB_056_prelude__gt_g1int_int__4__3] */
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42)
*/
/*
local:
global: eq_g0int_int$10$9(level=3)
local:
global:
*/
ATSstatic()
/*
imparg = tk(4628)
tmparg = S2Evar(tk(4628))
tmpsub = Some(tk(4628) -> S2Eextkind(atstype_int))
*/
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__eq_g0int_int__10__9(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret15__9, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp16__9, atstkind_t0ype(atstype_int)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/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 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40)
*/
ATSINSmove(tmp16__9, atspre_g0int2int_int_int(arg1)) ;
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42)
*/
ATSINSmove(tmpret15__9, atspre_g0int_eq_int(arg0, tmp16__9)) ;
ATSfunbody_end()
ATSreturn(tmpret15__9) ;
} /* end of [ATSLIB_056_prelude__eq_g0int_int__10__9] */
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42)
*/
/*
local:
global: eq_g0int_int$10$10(level=2)
local:
global:
*/
ATSstatic()
/*
imparg = tk(4628)
tmparg = S2Evar(tk(4628))
tmpsub = Some(tk(4628) -> S2Eextkind(atstype_int))
*/
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__eq_g0int_int__10__10(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret15__10, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp16__10, atstkind_t0ype(atstype_int)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/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 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40)
*/
ATSINSmove(tmp16__10, atspre_g0int2int_int_int(arg1)) ;
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42)
*/
ATSINSmove(tmpret15__10, atspre_g0int_eq_int(arg0, tmp16__10)) ;
ATSfunbody_end()
ATSreturn(tmpret15__10) ;
} /* end of [ATSLIB_056_prelude__eq_g0int_int__10__10] */
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42)
*/
/*
local:
global: eq_g0int_int$10$11(level=2)
local:
global:
*/
ATSstatic()
/*
imparg = tk(4628)
tmparg = S2Evar(tk(4628))
tmpsub = Some(tk(4628) -> S2Eextkind(atstype_int))
*/
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__eq_g0int_int__10__11(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret15__11, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp16__11, atstkind_t0ype(atstype_int)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/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 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40)
*/
ATSINSmove(tmp16__11, atspre_g0int2int_int_int(arg1)) ;
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42)
*/
ATSINSmove(tmpret15__11, atspre_g0int_eq_int(arg0, tmp16__11)) ;
ATSfunbody_end()
ATSreturn(tmpret15__11) ;
} /* end of [ATSLIB_056_prelude__eq_g0int_int__10__11] */
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3309(line=114, offs=9) -- 3464(line=117, offs=17)
*/
/*
local: div_gt_zero_86$0(level=0), get_multiplicity_97$0(level=1)
global: div_gt_zero_86$0(level=0), get_multiplicity_97$0(level=1)
local:
global:
*/
ATSstatic()
atstkind_t0ype(atstype_int)
get_multiplicity_97(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret219, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmp220, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmp221, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmp222, atstkind_t0ype(atstype_int)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3309(line=114, offs=9) -- 3464(line=117, offs=17)
*/
ATSINSflab(__patsflab_get_multiplicity_97):
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3381(line=115, offs=13) -- 3386(line=115, offs=18)
*/
ATSINSmove(tmp220, atspre_g0int_mod_int(arg0, arg1)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3375(line=115, offs=7) -- 3464(line=117, offs=17)
*/
ATScaseof_beg()
/*
** ibranchlst-beg
*/
ATSbranch_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3400(line=116, offs=11) -- 3401(line=116, offs=12)
*/
ATSINSlab(__atstmplab18):
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3381(line=115, offs=13) -- 3386(line=115, offs=18)
*/
ATSifnthen(ATSCKpat_int(tmp220, ATSPMVint(0))) { ATSINSgoto(__atstmplab20) ; } ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3401(line=116, offs=12) -- 3401(line=116, offs=12)
*/
ATSINSlab(__atstmplab19):
/*
emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0)
*/
/*
ibranch-mbody:
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3426(line=116, offs=37) -- 3443(line=116, offs=54)
*/
ATSINSmove(tmp222, div_gt_zero_86(arg0, arg1)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3409(line=116, offs=20) -- 3447(line=116, offs=58)
*/
ATSINSmove(tmp221, get_multiplicity_97(tmp222, arg1)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3405(line=116, offs=16) -- 3447(line=116, offs=58)
*/
ATSINSmove(tmpret219, atspre_g1int_add_int(ATSPMVi0nt(1), tmp221)) ;
ATSbranch_end()
ATSbranch_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3459(line=117, offs=12) -- 3459(line=117, offs=12)
*/
ATSINSlab(__atstmplab20):
/*
emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0)
*/
/*
ibranch-mbody:
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3463(line=117, offs=16) -- 3464(line=117, offs=17)
*/
ATSINSmove(tmpret219, ATSPMVi0nt(0)) ;
ATSbranch_end()
/*
** ibranchlst-end
*/
ATScaseof_end()
ATSfunbody_end()
ATSreturn(tmpret219) ;
} /* end of [get_multiplicity_97] */
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3478(line=119, offs=9) -- 3778(line=129, offs=26)
*/
/*
local: exp_3$0(level=0), is_prime_48$0(level=0), legendre_88$0(level=1), get_multiplicity_97$0(level=1), loop_98$0(level=1)
global: exp_3$0(level=0), is_prime_48$0(level=0), div_gt_zero_86$0(level=0), legendre_88$0(level=1), get_multiplicity_97$0(level=1), loop_98$0(level=1)
local: a$5124(1)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))), n$5125(1)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int))))
global: a$5124(1)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))), n$5125(1)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int))))
*/
ATSstatic()
atstkind_t0ype(atstype_int)
loop_98(atstkind_t0ype(atstype_int) env0, atstkind_t0ype(atstype_int) env1, atstkind_t0ype(atstype_int) arg0)
{
/* tmpvardeclst(beg) */
ATStmpdec(apy0, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmpret223, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmp224, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp227, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp230, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp231, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp234, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmp235, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmp236, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmp237, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmp238, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmp239, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmp240, atstkind_t0ype(atstype_int)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3478(line=119, offs=9) -- 3778(line=129, offs=26)
*/
ATSINSflab(__patsflab_loop_98):
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3534(line=120, offs=10) -- 3541(line=120, offs=17)
*/
ATSINSmove(tmp224, ATSLIB_056_prelude__gt_g1int_int__4__4(arg0, env1)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3531(line=120, offs=7) -- 3778(line=129, offs=26)
*/
ATSif(
tmp224
) ATSthen() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3555(line=121, offs=9) -- 3556(line=121, offs=10)
*/
ATSINSmove(tmpret223, ATSPMVi0nt(1)) ;
} ATSelse() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3579(line=123, offs=12) -- 3584(line=123, offs=17)
*/
ATSINSmove(tmp227, ATSLIB_056_prelude__eq_g1int_int__16__3(env0, ATSPMVi0nt(0))) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3576(line=123, offs=9) -- 3778(line=129, offs=26)
*/
ATSif(
tmp227
) ATSthen() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3600(line=124, offs=11) -- 3601(line=124, offs=12)
*/
ATSINSmove(tmpret223, ATSPMVi0nt(0)) ;
} ATSelse() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3628(line=126, offs=14) -- 3655(line=126, offs=41)
*/
ATSINSmove(tmp234, atspre_g0int_mod_int(env0, arg0)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3628(line=126, offs=14) -- 3655(line=126, offs=41)
*/
ATSINSmove(tmp231, ATSLIB_056_prelude__eq_g0int_int__10__12(tmp234, ATSPMVi0nt(0))) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3628(line=126, offs=14) -- 3655(line=126, offs=41)
*/
ATSif(
tmp231
) ATSthen() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3628(line=126, offs=14) -- 3655(line=126, offs=41)
*/
ATSINSmove(tmp230, is_prime_48(arg0)) ;
} ATSelse() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3628(line=126, offs=14) -- 3655(line=126, offs=41)
*/
ATSINSmove(tmp230, ATSPMVbool_false()) ;
} /* ATSendif */
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3625(line=126, offs=11) -- 3778(line=129, offs=26)
*/
ATSif(
tmp230
) ATSthen() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3679(line=127, offs=18) -- 3686(line=127, offs=25)
*/
ATSINSmove(tmp236, atspre_g1int_add_int(arg0, ATSPMVi0nt(1))) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3674(line=127, offs=13) -- 3687(line=127, offs=26)
*/
ATSINSmove(tmp235, loop_98(env0, env1, tmp236)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3694(line=127, offs=33) -- 3710(line=127, offs=49)
*/
ATSINSmove(tmp238, legendre_88(arg0, env1)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3712(line=127, offs=51) -- 3736(line=127, offs=75)
*/
ATSINSmove(tmp239, get_multiplicity_97(env0, arg0)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3690(line=127, offs=29) -- 3737(line=127, offs=76)
*/
ATSINSmove(tmp237, exp_3(tmp238, tmp239)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3674(line=127, offs=13) -- 3737(line=127, offs=76)
*/
ATSINSmove(tmpret223, atspre_g0int_mul_int(tmp235, tmp237)) ;
} ATSelse() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3770(line=129, offs=18) -- 3777(line=129, offs=25)
*/
ATSINSmove(tmp240, atspre_g1int_add_int(arg0, ATSPMVi0nt(1))) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3765(line=129, offs=13) -- 3778(line=129, offs=26)
*/
ATStailcal_beg()
ATSINSmove_tlcal(apy0, tmp240) ;
ATSINSargmove_tlcal(arg0, apy0) ;
ATSINSfgoto(__patsflab_loop_98) ;
ATStailcal_end()
} /* ATSendif */
} /* ATSendif */
} /* ATSendif */
ATSfunbody_end()
ATSreturn(tmpret223) ;
} /* end of [loop_98] */
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12679(line=659, offs=3) -- 12718(line=659, offs=42)
*/
/*
local:
global: gt_g1int_int$4$4(level=2)
local:
global:
*/
ATSstatic()
/*
imparg = tk(4637)
tmparg = S2Evar(tk(4637))
tmpsub = Some(tk(4637) -> S2Eextkind(atstype_int))
*/
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__gt_g1int_int__4__4(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret8__4, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp9__4, atstkind_t0ype(atstype_int)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/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 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12705(line=659, offs=29) -- 12716(line=659, offs=40)
*/
ATSINSmove(tmp9__4, atspre_g1int2int_int_int(arg1)) ;
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12688(line=659, offs=12) -- 12718(line=659, offs=42)
*/
ATSINSmove(tmpret8__4, atspre_g1int_gt_int(arg0, tmp9__4)) ;
ATSfunbody_end()
ATSreturn(tmpret8__4) ;
} /* end of [ATSLIB_056_prelude__gt_g1int_int__4__4] */
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12838(line=668, offs=3) -- 12877(line=668, offs=42)
*/
/*
local:
global: eq_g1int_int$16$3(level=2)
local:
global:
*/
ATSstatic()
/*
imparg = tk(4643)
tmparg = S2Evar(tk(4643))
tmpsub = Some(tk(4643) -> S2Eextkind(atstype_int))
*/
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__eq_g1int_int__16__3(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret25__3, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp26__3, atstkind_t0ype(atstype_int)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/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 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12864(line=668, offs=29) -- 12875(line=668, offs=40)
*/
ATSINSmove(tmp26__3, atspre_g1int2int_int_int(arg1)) ;
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12847(line=668, offs=12) -- 12877(line=668, offs=42)
*/
ATSINSmove(tmpret25__3, atspre_g1int_eq_int(arg0, tmp26__3)) ;
ATSfunbody_end()
ATSreturn(tmpret25__3) ;
} /* end of [ATSLIB_056_prelude__eq_g1int_int__16__3] */
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42)
*/
/*
local:
global: eq_g0int_int$10$12(level=2)
local:
global:
*/
ATSstatic()
/*
imparg = tk(4628)
tmparg = S2Evar(tk(4628))
tmpsub = Some(tk(4628) -> S2Eextkind(atstype_int))
*/
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__eq_g0int_int__10__12(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret15__12, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp16__12, atstkind_t0ype(atstype_int)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/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 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40)
*/
ATSINSmove(tmp16__12, atspre_g0int2int_int_int(arg1)) ;
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42)
*/
ATSINSmove(tmpret15__12, atspre_g0int_eq_int(arg0, tmp16__12)) ;
ATSfunbody_end()
ATSreturn(tmpret15__12) ;
} /* end of [ATSLIB_056_prelude__eq_g0int_int__10__12] */
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3876(line=135, offs=5) -- 4214(line=145, offs=26)
*/
/*
local: jacobi2_102$0(level=0)
global: jacobi2_102$0(level=0)
local:
global:
*/
ATSstatic()
atstkind_t0ype(atstype_int)
jacobi2_102(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(tmpret241, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmp242, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp245, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmp246, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp249, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmp250, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp251, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp254, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmp257, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmp258, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmp259, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmp260, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmp261, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmp262, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp263, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp266, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmp269, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmp270, atstkind_t0ype(atstype_int)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3876(line=135, offs=5) -- 4214(line=145, offs=26)
*/
ATSINSflab(__patsflab_jacobi2_102):
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3933(line=136, offs=3) -- 4214(line=145, offs=26)
*/
ATScaseof_beg()
/*
** ibranchlst-beg
*/
ATSbranch_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3950(line=137, offs=7) -- 3951(line=137, offs=8)
*/
ATSINSlab(__atstmplab21):
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3899(line=135, offs=28) -- 3900(line=135, offs=29)
*/
ATSifnthen(ATSCKpat_int(arg0, ATSPMVint(0))) { ATSINSgoto(__atstmplab23) ; } ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3951(line=137, offs=8) -- 3951(line=137, offs=8)
*/
ATSINSlab(__atstmplab22):
/*
emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0)
*/
/*
ibranch-mbody:
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3955(line=137, offs=12) -- 3956(line=137, offs=13)
*/
ATSINSmove(tmpret241, ATSPMVi0nt(0)) ;
ATSbranch_end()
ATSbranch_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3963(line=138, offs=7) -- 3964(line=138, offs=8)
*/
ATSINSlab(__atstmplab23):
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3899(line=135, offs=28) -- 3900(line=135, offs=29)
*/
ATSifnthen(ATSCKpat_int(arg0, ATSPMVint(1))) { ATSINSgoto(__atstmplab25) ; } ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3964(line=138, offs=8) -- 3964(line=138, offs=8)
*/
ATSINSlab(__atstmplab24):
/*
emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0)
*/
/*
ibranch-mbody:
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3968(line=138, offs=12) -- 3969(line=138, offs=13)
*/
ATSINSmove(tmpret241, ATSPMVi0nt(1)) ;
ATSbranch_end()
ATSbranch_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3977(line=139, offs=8) -- 3977(line=139, offs=8)
*/
ATSINSlab(__atstmplab25):
/*
emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0)
*/
/*
ibranch-guard:
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3983(line=139, offs=14) -- 3988(line=139, offs=19)
*/
ATSINSmove(tmp242, ATSLIB_056_prelude__gt_g1int_int__4__5(arg0, arg1)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3983(line=139, offs=14) -- 3988(line=139, offs=19)
*/
ATSifnthen(ATSCKpat_bool(tmp242, ATSPMVbool_true())) { ATSINSgoto(__atstmplab26) ; } ;
/*
emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0)
*/
/*
ibranch-mbody:
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4009(line=139, offs=40) -- 4014(line=139, offs=45)
*/
ATSINSmove(tmp245, atspre_g0int_mod_int(arg0, arg1)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3992(line=139, offs=23) -- 4019(line=139, offs=50)
*/
ATStailcal_beg()
ATSINSmove_tlcal(apy0, ATSPMVcastfn(cast, atstkind_t0ype(atstype_int), tmp245)) ;
ATSINSmove_tlcal(apy1, arg1) ;
ATSINSargmove_tlcal(arg0, apy0) ;
ATSINSargmove_tlcal(arg1, apy1) ;
ATSINSfgoto(__patsflab_jacobi2_102) ;
ATStailcal_end()
ATSbranch_end()
ATSbranch_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4027(line=140, offs=8) -- 4027(line=140, offs=8)
*/
ATSINSlab(__atstmplab26):
/*
emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0)
*/
/*
ibranch-guard:
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4033(line=140, offs=14) -- 4038(line=140, offs=19)
*/
ATSINSmove(tmp249, atspre_g0int_mod_int(arg0, ATSPMVi0nt(2))) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4033(line=140, offs=14) -- 4042(line=140, offs=23)
*/
ATSINSmove(tmp246, ATSLIB_056_prelude__eq_g0int_int__10__13(tmp249, ATSPMVi0nt(0))) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4033(line=140, offs=14) -- 4042(line=140, offs=23)
*/
ATSifnthen(ATSCKpat_bool(tmp246, ATSPMVbool_true())) { ATSINSgoto(__atstmplab27) ; } ;
/*
emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0)
*/
/*
ibranch-mbody:
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4049(line=140, offs=30) -- 4072(line=140, offs=53)
*/
ATSINSmove(tmp254, atspre_g0int_mod_int(arg1, ATSPMVi0nt(8))) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4049(line=140, offs=30) -- 4072(line=140, offs=53)
*/
ATSINSmove(tmp251, ATSLIB_056_prelude__eq_g0int_int__10__14(tmp254, ATSPMVi0nt(1))) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4049(line=140, offs=30) -- 4072(line=140, offs=53)
*/
ATSif(
tmp251
) ATSthen() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4049(line=140, offs=30) -- 4072(line=140, offs=53)
*/
ATSINSmove(tmp250, ATSPMVbool_true()) ;
} ATSelse() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4049(line=140, offs=30) -- 4072(line=140, offs=53)
*/
ATSINSmove(tmp257, atspre_g0int_mod_int(arg1, ATSPMVi0nt(8))) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4049(line=140, offs=30) -- 4072(line=140, offs=53)
*/
ATSINSmove(tmp258, atspre_g1int_neg_int(ATSPMVi0nt(1))) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4049(line=140, offs=30) -- 4072(line=140, offs=53)
*/
ATSINSmove(tmp250, ATSLIB_056_prelude__eq_g0int_int__10__15(tmp257, tmp258)) ;
} /* ATSendif */
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4046(line=140, offs=27) -- 4135(line=143, offs=25)
*/
ATSif(
tmp250
) ATSthen() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4092(line=141, offs=15) -- 4097(line=141, offs=20)
*/
ATSINSmove(tmp259, atspre_g1int_div_int(arg0, ATSPMVi0nt(2))) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4084(line=141, offs=7) -- 4101(line=141, offs=24)
*/
ATStailcal_beg()
ATSINSmove_tlcal(apy0, tmp259) ;
ATSINSmove_tlcal(apy1, arg1) ;
ATSINSargmove_tlcal(arg0, apy0) ;
ATSINSargmove_tlcal(arg1, apy1) ;
ATSINSfgoto(__patsflab_jacobi2_102) ;
ATStailcal_end()
} ATSelse() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4126(line=143, offs=16) -- 4131(line=143, offs=21)
*/
ATSINSmove(tmp261, atspre_g1int_div_int(arg0, ATSPMVi0nt(2))) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4118(line=143, offs=8) -- 4135(line=143, offs=25)
*/
ATSINSmove(tmp260, jacobi2_102(tmp261, arg1)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4117(line=143, offs=7) -- 4135(line=143, offs=25)
*/
ATSINSmove(tmpret241, atspre_g0int_neg_int(tmp260)) ;
} /* ATSendif */
ATSbranch_end()
ATSbranch_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4143(line=144, offs=8) -- 4143(line=144, offs=8)
*/
ATSINSlab(__atstmplab27):
/*
emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0)
*/
/*
ibranch-guard:
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4149(line=144, offs=14) -- 4171(line=144, offs=36)
*/
ATSINSmove(tmp266, atspre_g0int_mod_int(arg0, ATSPMVi0nt(4))) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4149(line=144, offs=14) -- 4171(line=144, offs=36)
*/
ATSINSmove(tmp263, ATSLIB_056_prelude__eq_g0int_int__10__16(tmp266, ATSPMVi0nt(3))) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4149(line=144, offs=14) -- 4171(line=144, offs=36)
*/
ATSif(
tmp263
) ATSthen() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4149(line=144, offs=14) -- 4171(line=144, offs=36)
*/
ATSINSmove(tmp269, atspre_g0int_mod_int(arg1, ATSPMVi0nt(4))) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4149(line=144, offs=14) -- 4171(line=144, offs=36)
*/
ATSINSmove(tmp262, ATSLIB_056_prelude__eq_g0int_int__10__17(tmp269, ATSPMVi0nt(3))) ;
} ATSelse() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4149(line=144, offs=14) -- 4171(line=144, offs=36)
*/
ATSINSmove(tmp262, ATSPMVbool_false()) ;
} /* ATSendif */
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4149(line=144, offs=14) -- 4171(line=144, offs=36)
*/
ATSifnthen(ATSCKpat_bool(tmp262, ATSPMVbool_true())) { ATSINSgoto(__atstmplab28) ; } ;
/*
emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0)
*/
/*
ibranch-mbody:
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4175(line=144, offs=40) -- 4188(line=144, offs=53)
*/
ATStailcal_beg()
ATSINSmove_tlcal(apy0, arg1) ;
ATSINSmove_tlcal(apy1, arg0) ;
ATSINSargmove_tlcal(arg0, apy0) ;
ATSINSargmove_tlcal(arg1, apy1) ;
ATSINSfgoto(__patsflab_jacobi2_102) ;
ATStailcal_end()
ATSbranch_end()
ATSbranch_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4196(line=145, offs=8) -- 4196(line=145, offs=8)
*/
ATSINSlab(__atstmplab28):
/*
emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0)
*/
/*
ibranch-mbody:
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4201(line=145, offs=13) -- 4214(line=145, offs=26)
*/
ATSINSmove(tmp270, jacobi2_102(arg1, arg0)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4200(line=145, offs=12) -- 4214(line=145, offs=26)
*/
ATSINSmove(tmpret241, atspre_g0int_neg_int(tmp270)) ;
ATSbranch_end()
/*
** ibranchlst-end
*/
ATScaseof_end()
ATSfunbody_end()
ATSreturn(tmpret241) ;
} /* end of [jacobi2_102] */
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12679(line=659, offs=3) -- 12718(line=659, offs=42)
*/
/*
local:
global: gt_g1int_int$4$5(level=1)
local:
global:
*/
ATSstatic()
/*
imparg = tk(4637)
tmparg = S2Evar(tk(4637))
tmpsub = Some(tk(4637) -> S2Eextkind(atstype_int))
*/
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__gt_g1int_int__4__5(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret8__5, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp9__5, atstkind_t0ype(atstype_int)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/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 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12705(line=659, offs=29) -- 12716(line=659, offs=40)
*/
ATSINSmove(tmp9__5, atspre_g1int2int_int_int(arg1)) ;
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12688(line=659, offs=12) -- 12718(line=659, offs=42)
*/
ATSINSmove(tmpret8__5, atspre_g1int_gt_int(arg0, tmp9__5)) ;
ATSfunbody_end()
ATSreturn(tmpret8__5) ;
} /* end of [ATSLIB_056_prelude__gt_g1int_int__4__5] */
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42)
*/
/*
local:
global: eq_g0int_int$10$13(level=1)
local:
global:
*/
ATSstatic()
/*
imparg = tk(4628)
tmparg = S2Evar(tk(4628))
tmpsub = Some(tk(4628) -> S2Eextkind(atstype_int))
*/
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__eq_g0int_int__10__13(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret15__13, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp16__13, atstkind_t0ype(atstype_int)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/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 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40)
*/
ATSINSmove(tmp16__13, atspre_g0int2int_int_int(arg1)) ;
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42)
*/
ATSINSmove(tmpret15__13, atspre_g0int_eq_int(arg0, tmp16__13)) ;
ATSfunbody_end()
ATSreturn(tmpret15__13) ;
} /* end of [ATSLIB_056_prelude__eq_g0int_int__10__13] */
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42)
*/
/*
local:
global: eq_g0int_int$10$14(level=1)
local:
global:
*/
ATSstatic()
/*
imparg = tk(4628)
tmparg = S2Evar(tk(4628))
tmpsub = Some(tk(4628) -> S2Eextkind(atstype_int))
*/
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__eq_g0int_int__10__14(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret15__14, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp16__14, atstkind_t0ype(atstype_int)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/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 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40)
*/
ATSINSmove(tmp16__14, atspre_g0int2int_int_int(arg1)) ;
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42)
*/
ATSINSmove(tmpret15__14, atspre_g0int_eq_int(arg0, tmp16__14)) ;
ATSfunbody_end()
ATSreturn(tmpret15__14) ;
} /* end of [ATSLIB_056_prelude__eq_g0int_int__10__14] */
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42)
*/
/*
local:
global: eq_g0int_int$10$15(level=1)
local:
global:
*/
ATSstatic()
/*
imparg = tk(4628)
tmparg = S2Evar(tk(4628))
tmpsub = Some(tk(4628) -> S2Eextkind(atstype_int))
*/
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__eq_g0int_int__10__15(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret15__15, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp16__15, atstkind_t0ype(atstype_int)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/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 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40)
*/
ATSINSmove(tmp16__15, atspre_g0int2int_int_int(arg1)) ;
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42)
*/
ATSINSmove(tmpret15__15, atspre_g0int_eq_int(arg0, tmp16__15)) ;
ATSfunbody_end()
ATSreturn(tmpret15__15) ;
} /* end of [ATSLIB_056_prelude__eq_g0int_int__10__15] */
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42)
*/
/*
local:
global: eq_g0int_int$10$16(level=1)
local:
global:
*/
ATSstatic()
/*
imparg = tk(4628)
tmparg = S2Evar(tk(4628))
tmpsub = Some(tk(4628) -> S2Eextkind(atstype_int))
*/
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__eq_g0int_int__10__16(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret15__16, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp16__16, atstkind_t0ype(atstype_int)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/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 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40)
*/
ATSINSmove(tmp16__16, atspre_g0int2int_int_int(arg1)) ;
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42)
*/
ATSINSmove(tmpret15__16, atspre_g0int_eq_int(arg0, tmp16__16)) ;
ATSfunbody_end()
ATSreturn(tmpret15__16) ;
} /* end of [ATSLIB_056_prelude__eq_g0int_int__10__16] */
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42)
*/
/*
local:
global: eq_g0int_int$10$17(level=1)
local:
global:
*/
ATSstatic()
/*
imparg = tk(4628)
tmparg = S2Evar(tk(4628))
tmpsub = Some(tk(4628) -> S2Eextkind(atstype_int))
*/
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__eq_g0int_int__10__17(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret15__17, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp16__17, atstkind_t0ype(atstype_int)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/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 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40)
*/
ATSINSmove(tmp16__17, atspre_g0int2int_int_int(arg1)) ;
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42)
*/
ATSINSmove(tmpret15__17, atspre_g0int_eq_int(arg0, tmp16__17)) ;
ATSfunbody_end()
ATSreturn(tmpret15__17) ;
} /* end of [ATSLIB_056_prelude__eq_g0int_int__10__17] */
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4245(line=147, offs=30) -- 4282(line=148, offs=32)
*/
/*
local:
global: count_divisors_ats$110$0(level=0)
local:
global:
*/
ATSextern()
atstkind_t0ype(atstype_int)
count_divisors_ats(atstkind_t0ype(atstype_int) arg0)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret271, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmp283, atstkind_type(atstype_ptrk)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4226(line=147, offs=11) -- 4282(line=148, offs=32)
*/
ATSINSflab(__patsflab_count_divisors_ats):
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4270(line=148, offs=20) -- 4280(line=148, offs=30)
*/
ATSINSmove(tmp283, _057_home_057_vanessa_057_programming_057_haskell_057_done_057_hs_055_ats_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_sats__divisors(arg0)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4253(line=148, offs=3) -- 4282(line=148, offs=32)
*/
ATSINSmove(tmpret271, ATSLIB_056_prelude__stream_vt_length__111__1(tmp283)) ;
ATSfunbody_end()
ATSreturn(tmpret271) ;
} /* end of [count_divisors_ats] */
#if(0)
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats: 8385(line=480, offs=17) -- 8607(line=495, offs=4)
*/
/*
local:
global: stream_vt_length$111$0(level=0)
local:
global:
*/
ATSextern()
/*
imparg = a(8194)
tmparg = S2Evar(a(8194))
tmpsub = None()
*/
atstkind_t0ype(atstype_int)
ATSLIB_056_prelude__stream_vt_length__111(atstkind_type(atstype_ptrk) arg0)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret272, atstkind_t0ype(atstype_int)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 8369(line=480, offs=1) -- 8607(line=495, offs=4)
*/
ATSINSflab(__patsflab_stream_vt_length):
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 8393(line=480, offs=25) -- 8607(line=495, offs=4)
*/
/*
letpush(beg)
*/
/*
letpush(end)
*/
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 8590(line=494, offs=16) -- 8602(line=494, offs=28)
*/
ATSINSmove(tmpret272, ATSfunclo_fun(PMVd2vfunlab(d2v=loop$4191(1), flab=loop_112$0(level=1)), (atstkind_type(atstype_ptrk), atstkind_t0ype(atstype_int)), atstkind_t0ype(atstype_int))(arg0, ATSPMVi0nt(0))) ;
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 8393(line=480, offs=25) -- 8607(line=495, offs=4)
*/
/*
INSletpop()
*/
ATSfunbody_end()
ATSreturn(tmpret272) ;
} /* end of [ATSLIB_056_prelude__stream_vt_length__111] */
#endif // end of [TEMPLATE]
#if(0)
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats: 8404(line=483, offs=1) -- 8548(line=491, offs=2)
*/
/*
local: loop_112$0(level=1)
global: loop_112$0(level=1)
local:
global:
*/
ATSstatic()
atstkind_t0ype(atstype_int)
loop_112__112(atstkind_type(atstype_ptrk) arg0, atstkind_t0ype(atstype_int) arg1)
{
/* tmpvardeclst(beg) */
ATStmpdec(apy0, atstkind_type(atstype_ptrk)) ;
ATStmpdec(apy1, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmpret273, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmp274, atstype_boxed) ;
ATStmpdec(tmp276, atstkind_type(atstype_ptrk)) ;
ATStmpdec(tmp277, atstkind_t0ype(atstype_int)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 8404(line=483, offs=1) -- 8548(line=491, offs=2)
*/
ATSINSflab(__patsflab_loop_112):
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 8470(line=488, offs=9) -- 8473(line=488, offs=12)
*/
ATSINSmove_llazyeval(tmp274, atstype_boxed, arg0) ;
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 8464(line=488, offs=3) -- 8546(line=490, offs=44)
*/
ATScaseof_beg()
/*
** ibranchlst-beg
*/
ATSbranch_beg()
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 8481(line=489, offs=5) -- 8497(line=489, offs=21)
*/
ATSINSlab(__atstmplab29):
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 8470(line=488, offs=9) -- 8473(line=488, offs=12)
*/
ATSifthen(ATSCKptriscons(tmp274)) { ATSINSgoto(__atstmplab32) ; } ;
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 8497(line=489, offs=21) -- 8497(line=489, offs=21)
*/
ATSINSlab(__atstmplab30):
/*
emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0)
*/
/*
ibranch-mbody:
*/
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 8501(line=489, offs=25) -- 8502(line=489, offs=26)
*/
ATSINSmove(tmpret273, arg1) ;
ATSbranch_end()
ATSbranch_beg()
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 8507(line=490, offs=5) -- 8529(line=490, offs=27)
*/
ATSINSlab(__atstmplab31):
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 8470(line=488, offs=9) -- 8473(line=488, offs=12)
*/
#if(0)
ATSifthen(ATSCKptrisnull(tmp274)) { ATSINSdeadcode_fail() ; } ;
#endif
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 8529(line=490, offs=27) -- 8529(line=490, offs=27)
*/
ATSINSlab(__atstmplab32):
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 8526(line=490, offs=24) -- 8528(line=490, offs=26)
*/
ATSINSmove(tmp276, ATSSELcon(tmp274, postiats_tysum_2, atslab__1)) ;
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 8507(line=490, offs=5) -- 8546(line=490, offs=44)
*/
ATSINSfreecon(tmp274) ;
/*
emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0)
*/
/*
ibranch-mbody:
*/
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 8542(line=490, offs=40) -- 8545(line=490, offs=43)
*/
ATSINSmove(tmp277, PMVtmpltcst(g1int_add<S2Eextkind(atstype_int)>)(arg1, ATSPMVi0nt(1))) ;
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 8533(line=490, offs=31) -- 8546(line=490, offs=44)
*/
ATStailcal_beg()
ATSINSmove_tlcal(apy0, tmp276) ;
ATSINSmove_tlcal(apy1, tmp277) ;
ATSINSargmove_tlcal(arg0, apy0) ;
ATSINSargmove_tlcal(arg1, apy1) ;
ATSINSfgoto(__patsflab_loop_112) ;
ATStailcal_end()
ATSbranch_end()
/*
** ibranchlst-end
*/
ATScaseof_end()
ATSfunbody_end()
ATSreturn(tmpret273) ;
} /* end of [loop_112__112] */
#endif // end of [TEMPLATE]
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats: 8385(line=480, offs=17) -- 8607(line=495, offs=4)
*/
/*
local:
global: stream_vt_length$111$1(level=1)
local:
global:
*/
ATSstatic()
/*
imparg = a(8194)
tmparg = S2Evar(a(8194))
tmpsub = Some(a(8194) -> S2Eapp(S2Ecst(g0int_t0ype); S2Eextkind(atstype_int)))
*/
atstkind_t0ype(atstype_int)
ATSLIB_056_prelude__stream_vt_length__111__1(atstkind_type(atstype_ptrk) arg0)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret272__1, atstkind_t0ype(atstype_int)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 8369(line=480, offs=1) -- 8607(line=495, offs=4)
*/
ATSINSflab(__patsflab_stream_vt_length):
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 8393(line=480, offs=25) -- 8607(line=495, offs=4)
*/
/*
letpush(beg)
*/
/*
letpush(end)
*/
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 8590(line=494, offs=16) -- 8602(line=494, offs=28)
*/
ATSINSmove(tmpret272__1, loop_112__112__1(arg0, ATSPMVi0nt(0))) ;
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 8393(line=480, offs=25) -- 8607(line=495, offs=4)
*/
/*
INSletpop()
*/
ATSfunbody_end()
ATSreturn(tmpret272__1) ;
} /* end of [ATSLIB_056_prelude__stream_vt_length__111__1] */
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats: 8404(line=483, offs=1) -- 8548(line=491, offs=2)
*/
/*
local: loop_112$1(level=2)
global: loop_112$1(level=2)
local:
global:
*/
ATSstatic()
atstkind_t0ype(atstype_int)
loop_112__112__1(atstkind_type(atstype_ptrk) arg0, atstkind_t0ype(atstype_int) arg1)
{
/* tmpvardeclst(beg) */
ATStmpdec(apy0, atstkind_type(atstype_ptrk)) ;
ATStmpdec(apy1, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmpret273__1, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmp274__1, atstype_boxed) ;
ATStmpdec(tmp276__1, atstkind_type(atstype_ptrk)) ;
ATStmpdec(tmp277__1, atstkind_t0ype(atstype_int)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 8404(line=483, offs=1) -- 8548(line=491, offs=2)
*/
ATSINSflab(__patsflab_loop_112):
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 8470(line=488, offs=9) -- 8473(line=488, offs=12)
*/
ATSINSmove_llazyeval(tmp274__1, atstype_boxed, arg0) ;
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 8464(line=488, offs=3) -- 8546(line=490, offs=44)
*/
ATScaseof_beg()
/*
** ibranchlst-beg
*/
ATSbranch_beg()
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 8481(line=489, offs=5) -- 8497(line=489, offs=21)
*/
ATSINSlab(__atstmplab29):
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 8470(line=488, offs=9) -- 8473(line=488, offs=12)
*/
ATSifthen(ATSCKptriscons(tmp274__1)) { ATSINSgoto(__atstmplab32) ; } ;
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 8497(line=489, offs=21) -- 8497(line=489, offs=21)
*/
ATSINSlab(__atstmplab30):
/*
emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0)
*/
/*
ibranch-mbody:
*/
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 8501(line=489, offs=25) -- 8502(line=489, offs=26)
*/
ATSINSmove(tmpret273__1, arg1) ;
ATSbranch_end()
ATSbranch_beg()
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 8507(line=490, offs=5) -- 8529(line=490, offs=27)
*/
ATSINSlab(__atstmplab31):
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 8470(line=488, offs=9) -- 8473(line=488, offs=12)
*/
#if(0)
ATSifthen(ATSCKptrisnull(tmp274__1)) { ATSINSdeadcode_fail() ; } ;
#endif
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 8529(line=490, offs=27) -- 8529(line=490, offs=27)
*/
ATSINSlab(__atstmplab32):
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 8526(line=490, offs=24) -- 8528(line=490, offs=26)
*/
ATSINSmove(tmp276__1, ATSSELcon(tmp274__1, postiats_tysum_1, atslab__1)) ;
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 8507(line=490, offs=5) -- 8546(line=490, offs=44)
*/
ATSINSfreecon(tmp274__1) ;
/*
emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0)
*/
/*
ibranch-mbody:
*/
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 8542(line=490, offs=40) -- 8545(line=490, offs=43)
*/
ATSINSmove(tmp277__1, atspre_g1int_add_int(arg1, ATSPMVi0nt(1))) ;
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 8533(line=490, offs=31) -- 8546(line=490, offs=44)
*/
ATStailcal_beg()
ATSINSmove_tlcal(apy0, tmp276__1) ;
ATSINSmove_tlcal(apy1, tmp277__1) ;
ATSINSargmove_tlcal(arg0, apy0) ;
ATSINSargmove_tlcal(arg1, apy1) ;
ATSINSfgoto(__patsflab_loop_112) ;
ATStailcal_end()
ATSbranch_end()
/*
** ibranchlst-end
*/
ATScaseof_end()
ATSfunbody_end()
ATSreturn(tmpret273__1) ;
} /* end of [loop_112__112__1] */
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4311(line=150, offs=28) -- 4880(line=176, offs=6)
*/
/*
local: sqrt_int_46$0(level=0)
global: sqrt_int_46$0(level=0), sum_divisors_ats$115$0(level=0)
local:
global:
*/
ATSextern()
atstkind_t0ype(atstype_int)
sum_divisors_ats(atstkind_t0ype(atstype_int) arg0)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret284, atstkind_t0ype(atstype_int)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4294(line=150, offs=11) -- 4880(line=176, offs=6)
*/
ATSINSflab(__patsflab_sum_divisors_ats):
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4319(line=151, offs=3) -- 4880(line=176, offs=6)
*/
/*
letpush(beg)
*/
/*
letpush(end)
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4864(line=175, offs=5) -- 4874(line=175, offs=15)
*/
ATSINSmove(tmpret284, loop_116(arg0, ATSPMVi0nt(1))) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4319(line=151, offs=3) -- 4880(line=176, offs=6)
*/
/*
INSletpop()
*/
ATSfunbody_end()
ATSreturn(tmpret284) ;
} /* end of [sum_divisors_ats] */
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4331(line=152, offs=9) -- 4854(line=173, offs=27)
*/
/*
local: sqrt_int_46$0(level=0), loop_116$0(level=1)
global: sqrt_int_46$0(level=0), loop_116$0(level=1)
local:
global:
*/
ATSstatic()
atstkind_t0ype(atstype_int)
loop_116(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(tmpret285, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmp286, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp289, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmp290, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp293, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmp294, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp297, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmpref298, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmp299, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp302, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmpref303, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmp304, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmp305, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmp306, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmp307, atstkind_t0ype(atstype_int)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4331(line=152, offs=9) -- 4854(line=173, offs=27)
*/
ATSINSflab(__patsflab_loop_116):
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4425(line=153, offs=17) -- 4435(line=153, offs=27)
*/
ATSINSmove(tmp289, sqrt_int_46(arg0)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4418(line=153, offs=10) -- 4435(line=153, offs=27)
*/
ATSINSmove(tmp286, ATSLIB_056_prelude__gte_g1int_int__71__2(arg1, tmp289)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4415(line=153, offs=7) -- 4854(line=173, offs=27)
*/
ATSif(
tmp286
) ATSthen() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4453(line=154, offs=12) -- 4460(line=154, offs=19)
*/
ATSINSmove(tmp293, atspre_g0int_mod_int(arg0, arg1)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4453(line=154, offs=12) -- 4464(line=154, offs=23)
*/
ATSINSmove(tmp290, ATSLIB_056_prelude__eq_g0int_int__10__18(tmp293, ATSPMVi0nt(0))) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4450(line=154, offs=9) -- 4662(line=164, offs=12)
*/
ATSif(
tmp290
) ATSthen() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4483(line=155, offs=14) -- 4490(line=155, offs=21)
*/
ATSINSmove(tmp297, atspre_g1int_div_int(arg0, arg1)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4483(line=155, offs=14) -- 4497(line=155, offs=28)
*/
ATSINSmove(tmp294, ATSLIB_056_prelude__neq_g1int_int__60__3(tmp297, arg1)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4480(line=155, offs=11) -- 4637(line=162, offs=16)
*/
ATSif(
tmp294
) ATSthen() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4515(line=156, offs=13) -- 4606(line=160, offs=16)
*/
/*
letpush(beg)
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4537(line=157, offs=19) -- 4538(line=157, offs=20)
*/
/*
ATSINStmpdec(tmpref298) ;
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4546(line=157, offs=28) -- 4553(line=157, offs=35)
*/
ATSINSmove(tmpref298, atspre_g1int_div_int(arg0, arg1)) ;
/*
letpush(end)
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4583(line=159, offs=15) -- 4590(line=159, offs=22)
*/
ATSINSmove(tmpret285, atspre_g1int_add_int(arg1, tmpref298)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4515(line=156, offs=13) -- 4606(line=160, offs=16)
*/
/*
INSletpop()
*/
} ATSelse() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4634(line=162, offs=13) -- 4637(line=162, offs=16)
*/
ATSINSmove(tmpret285, arg1) ;
} /* ATSendif */
} ATSelse() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4661(line=164, offs=11) -- 4662(line=164, offs=12)
*/
ATSINSmove(tmpret285, ATSPMVi0nt(0)) ;
} /* ATSendif */
} ATSelse() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4685(line=166, offs=12) -- 4692(line=166, offs=19)
*/
ATSINSmove(tmp302, atspre_g0int_mod_int(arg0, arg1)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4685(line=166, offs=12) -- 4696(line=166, offs=23)
*/
ATSINSmove(tmp299, ATSLIB_056_prelude__eq_g0int_int__10__19(tmp302, ATSPMVi0nt(0))) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4682(line=166, offs=9) -- 4854(line=173, offs=27)
*/
ATSif(
tmp299
) ATSthen() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4712(line=167, offs=11) -- 4814(line=171, offs=14)
*/
/*
letpush(beg)
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4732(line=168, offs=17) -- 4733(line=168, offs=18)
*/
/*
ATSINStmpdec(tmpref303) ;
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4741(line=168, offs=26) -- 4748(line=168, offs=33)
*/
ATSINSmove(tmpref303, atspre_g1int_div_int(arg0, arg1)) ;
/*
letpush(end)
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4774(line=170, offs=13) -- 4781(line=170, offs=20)
*/
ATSINSmove(tmp304, atspre_g1int_add_int(arg1, tmpref303)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4792(line=170, offs=31) -- 4799(line=170, offs=38)
*/
ATSINSmove(tmp306, atspre_g1int_add_int(arg1, ATSPMVi0nt(1))) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4784(line=170, offs=23) -- 4800(line=170, offs=39)
*/
ATSINSmove(tmp305, loop_116(arg0, tmp306)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4774(line=170, offs=13) -- 4800(line=170, offs=39)
*/
ATSINSmove(tmpret285, atspre_g0int_add_int(tmp304, tmp305)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4712(line=167, offs=11) -- 4814(line=171, offs=14)
*/
/*
INSletpop()
*/
} ATSelse() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4846(line=173, offs=19) -- 4853(line=173, offs=26)
*/
ATSINSmove(tmp307, atspre_g1int_add_int(arg1, ATSPMVi0nt(1))) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4838(line=173, offs=11) -- 4854(line=173, offs=27)
*/
ATStailcal_beg()
ATSINSmove_tlcal(apy0, arg0) ;
ATSINSmove_tlcal(apy1, tmp307) ;
ATSINSargmove_tlcal(arg0, apy0) ;
ATSINSargmove_tlcal(arg1, apy1) ;
ATSINSfgoto(__patsflab_loop_116) ;
ATStailcal_end()
} /* ATSendif */
} /* ATSendif */
ATSfunbody_end()
ATSreturn(tmpret285) ;
} /* end of [loop_116] */
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12757(line=663, offs=3) -- 12797(line=663, offs=43)
*/
/*
local:
global: gte_g1int_int$71$2(level=2)
local:
global:
*/
ATSstatic()
/*
imparg = tk(4640)
tmparg = S2Evar(tk(4640))
tmpsub = Some(tk(4640) -> S2Eextkind(atstype_int))
*/
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__gte_g1int_int__71__2(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret149__2, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp150__2, atstkind_t0ype(atstype_int)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/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 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12784(line=663, offs=30) -- 12795(line=663, offs=41)
*/
ATSINSmove(tmp150__2, atspre_g1int2int_int_int(arg1)) ;
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12766(line=663, offs=12) -- 12797(line=663, offs=43)
*/
ATSINSmove(tmpret149__2, atspre_g1int_gte_int(arg0, tmp150__2)) ;
ATSfunbody_end()
ATSreturn(tmpret149__2) ;
} /* end of [ATSLIB_056_prelude__gte_g1int_int__71__2] */
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42)
*/
/*
local:
global: eq_g0int_int$10$18(level=2)
local:
global:
*/
ATSstatic()
/*
imparg = tk(4628)
tmparg = S2Evar(tk(4628))
tmpsub = Some(tk(4628) -> S2Eextkind(atstype_int))
*/
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__eq_g0int_int__10__18(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret15__18, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp16__18, atstkind_t0ype(atstype_int)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/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 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40)
*/
ATSINSmove(tmp16__18, atspre_g0int2int_int_int(arg1)) ;
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42)
*/
ATSINSmove(tmpret15__18, atspre_g0int_eq_int(arg0, tmp16__18)) ;
ATSfunbody_end()
ATSreturn(tmpret15__18) ;
} /* end of [ATSLIB_056_prelude__eq_g0int_int__10__18] */
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12916(line=672, offs=3) -- 12956(line=672, offs=43)
*/
/*
local:
global: neq_g1int_int$60$3(level=2)
local:
global:
*/
ATSstatic()
/*
imparg = tk(4646)
tmparg = S2Evar(tk(4646))
tmpsub = Some(tk(4646) -> S2Eextkind(atstype_int))
*/
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__neq_g1int_int__60__3(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret131__3, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp132__3, atstkind_t0ype(atstype_int)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/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 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12943(line=672, offs=30) -- 12954(line=672, offs=41)
*/
ATSINSmove(tmp132__3, atspre_g1int2int_int_int(arg1)) ;
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12925(line=672, offs=12) -- 12956(line=672, offs=43)
*/
ATSINSmove(tmpret131__3, atspre_g1int_neq_int(arg0, tmp132__3)) ;
ATSfunbody_end()
ATSreturn(tmpret131__3) ;
} /* end of [ATSLIB_056_prelude__neq_g1int_int__60__3] */
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42)
*/
/*
local:
global: eq_g0int_int$10$19(level=2)
local:
global:
*/
ATSstatic()
/*
imparg = tk(4628)
tmparg = S2Evar(tk(4628))
tmpsub = Some(tk(4628) -> S2Eextkind(atstype_int))
*/
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__eq_g0int_int__10__19(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret15__19, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp16__19, atstkind_t0ype(atstype_int)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/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 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40)
*/
ATSINSmove(tmp16__19, atspre_g0int2int_int_int(arg1)) ;
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42)
*/
ATSINSmove(tmpret15__19, atspre_g0int_eq_int(arg0, tmp16__19)) ;
ATSfunbody_end()
ATSreturn(tmpret15__19) ;
} /* end of [ATSLIB_056_prelude__eq_g0int_int__10__19] */
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4907(line=178, offs=26) -- 4938(line=179, offs=26)
*/
/*
local:
global: is_perfect_ats$122$0(level=0)
local:
global:
*/
ATSextern()
atstkind_t0ype(atstype_bool)
is_perfect_ats(atstkind_t0ype(atstype_int) arg0)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret308, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp311, atstkind_t0ype(atstype_int)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4892(line=178, offs=11) -- 4938(line=179, offs=26)
*/
ATSINSflab(__patsflab_is_perfect_ats):
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4915(line=179, offs=3) -- 4933(line=179, offs=21)
*/
ATSINSmove(tmp311, sum_divisors_ats(arg0)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4915(line=179, offs=3) -- 4938(line=179, offs=26)
*/
ATSINSmove(tmpret308, ATSLIB_056_prelude__eq_g0int_int__10__20(tmp311, arg0)) ;
ATSfunbody_end()
ATSreturn(tmpret308) ;
} /* end of [is_perfect_ats] */
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42)
*/
/*
local:
global: eq_g0int_int$10$20(level=1)
local:
global:
*/
ATSstatic()
/*
imparg = tk(4628)
tmparg = S2Evar(tk(4628))
tmpsub = Some(tk(4628) -> S2Eextkind(atstype_int))
*/
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__eq_g0int_int__10__20(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret15__20, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp16__20, atstkind_t0ype(atstype_int)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/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 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40)
*/
ATSINSmove(tmp16__20, atspre_g0int2int_int_int(arg1)) ;
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42)
*/
ATSINSmove(tmpret15__20, atspre_g0int_eq_int(arg0, tmp16__20)) ;
ATSfunbody_end()
ATSreturn(tmpret15__20) ;
} /* end of [ATSLIB_056_prelude__eq_g0int_int__10__20] */
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4944(line=181, offs=5) -- 5254(line=195, offs=8)
*/
/*
local: rip_124$0(level=0)
global: rip_124$0(level=0)
local:
global:
*/
ATSstatic()
atstkind_t0ype(atstype_int)
rip_124(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(tmpret312, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmp313, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp318, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmp319, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp322, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmpref323, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmp324, atstkind_t0ype(atstype_bool)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4944(line=181, offs=5) -- 5254(line=195, offs=8)
*/
ATSINSflab(__patsflab_rip_124):
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5066(line=182, offs=6) -- 5071(line=182, offs=11)
*/
ATSINSmove(tmp318, atspre_g0int_mod_int(arg0, arg1)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5066(line=182, offs=6) -- 5076(line=182, offs=16)
*/
ATSINSmove(tmp313, ATSLIB_056_prelude__neq_g0int_int__125__1(tmp318, ATSPMVi0nt(0))) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5063(line=182, offs=3) -- 5254(line=195, offs=8)
*/
ATSif(
tmp313
) ATSthen() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5086(line=183, offs=5) -- 5087(line=183, offs=6)
*/
ATSINSmove(tmpret312, arg0) ;
} ATSelse() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5102(line=185, offs=8) -- 5107(line=185, offs=13)
*/
ATSINSmove(tmp322, atspre_g1int_div_int(arg0, arg1)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5102(line=185, offs=8) -- 5111(line=185, offs=17)
*/
ATSINSmove(tmp319, ATSLIB_056_prelude__gt_g1int_int__4__6(tmp322, ATSPMVi0nt(0))) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5099(line=185, offs=5) -- 5254(line=195, offs=8)
*/
ATSif(
tmp319
) ATSthen() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5123(line=186, offs=7) -- 5237(line=193, offs=10)
*/
/*
letpush(beg)
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5139(line=187, offs=13) -- 5141(line=187, offs=15)
*/
/*
ATSINStmpdec(tmpref323) ;
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5144(line=187, offs=18) -- 5149(line=187, offs=23)
*/
ATSINSmove(tmpref323, atspre_g1int_div_int(arg0, arg1)) ;
/*
letpush(end)
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5170(line=189, offs=12) -- 5176(line=189, offs=18)
*/
ATSINSmove(tmp324, ATSLIB_056_prelude__lt_g1int_int__50__2(tmpref323, arg0)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5167(line=189, offs=9) -- 5227(line=192, offs=12)
*/
ATSif(
tmp324
) ATSthen() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5192(line=190, offs=11) -- 5202(line=190, offs=21)
*/
ATStailcal_beg()
ATSINSmove_tlcal(apy0, tmpref323) ;
ATSINSmove_tlcal(apy1, arg1) ;
ATSINSargmove_tlcal(arg0, apy0) ;
ATSINSargmove_tlcal(arg1, apy1) ;
ATSINSfgoto(__patsflab_rip_124) ;
ATStailcal_end()
} ATSelse() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5226(line=192, offs=11) -- 5227(line=192, offs=12)
*/
ATSINSmove(tmpret312, ATSPMVi0nt(1)) ;
} /* ATSendif */
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5123(line=186, offs=7) -- 5237(line=193, offs=10)
*/
/*
INSletpop()
*/
} ATSelse() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5253(line=195, offs=7) -- 5254(line=195, offs=8)
*/
ATSINSmove(tmpret312, ATSPMVi0nt(1)) ;
} /* ATSendif */
} /* ATSendif */
ATSfunbody_end()
ATSreturn(tmpret312) ;
} /* end of [rip_124] */
#if(0)
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12337(line=639, offs=3) -- 12377(line=639, offs=43)
*/
/*
local:
global: neq_g0int_int$125$0(level=0)
local:
global:
*/
ATSextern()
/*
imparg = tk(4629)
tmparg = S2Evar(tk(4629))
tmpsub = None()
*/
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__neq_g0int_int__125(atstkind_t0ype(atstyvar_type(tk)) arg0, atstkind_t0ype(atstype_int) arg1)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret314, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp315, atstkind_t0ype(atstyvar_type(tk))) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12321(line=638, offs=1) -- 12377(line=639, offs=43)
*/
ATSINSflab(__patsflab_neq_g0int_int):
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12364(line=639, offs=30) -- 12375(line=639, offs=41)
*/
ATSINSmove(tmp315, PMVtmpltcst(g0int2int<S2Eextkind(atstype_int), S2Evar(tk(4629))>)(arg1)) ;
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12346(line=639, offs=12) -- 12377(line=639, offs=43)
*/
ATSINSmove(tmpret314, PMVtmpltcst(g0int_neq<S2Evar(tk(4629))>)(arg0, tmp315)) ;
ATSfunbody_end()
ATSreturn(tmpret314) ;
} /* end of [ATSLIB_056_prelude__neq_g0int_int__125] */
#endif // end of [TEMPLATE]
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12337(line=639, offs=3) -- 12377(line=639, offs=43)
*/
/*
local:
global: neq_g0int_int$125$1(level=1)
local:
global:
*/
ATSstatic()
/*
imparg = tk(4629)
tmparg = S2Evar(tk(4629))
tmpsub = Some(tk(4629) -> S2Eextkind(atstype_int))
*/
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__neq_g0int_int__125__1(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret314__1, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp315__1, atstkind_t0ype(atstype_int)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12321(line=638, offs=1) -- 12377(line=639, offs=43)
*/
ATSINSflab(__patsflab_neq_g0int_int):
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12364(line=639, offs=30) -- 12375(line=639, offs=41)
*/
ATSINSmove(tmp315__1, atspre_g0int2int_int_int(arg1)) ;
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12346(line=639, offs=12) -- 12377(line=639, offs=43)
*/
ATSINSmove(tmpret314__1, atspre_g0int_neq_int(arg0, tmp315__1)) ;
ATSfunbody_end()
ATSreturn(tmpret314__1) ;
} /* end of [ATSLIB_056_prelude__neq_g0int_int__125__1] */
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12679(line=659, offs=3) -- 12718(line=659, offs=42)
*/
/*
local:
global: gt_g1int_int$4$6(level=1)
local:
global:
*/
ATSstatic()
/*
imparg = tk(4637)
tmparg = S2Evar(tk(4637))
tmpsub = Some(tk(4637) -> S2Eextkind(atstype_int))
*/
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__gt_g1int_int__4__6(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret8__6, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp9__6, atstkind_t0ype(atstype_int)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/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 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12705(line=659, offs=29) -- 12716(line=659, offs=40)
*/
ATSINSmove(tmp9__6, atspre_g1int2int_int_int(arg1)) ;
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12688(line=659, offs=12) -- 12718(line=659, offs=42)
*/
ATSINSmove(tmpret8__6, atspre_g1int_gt_int(arg0, tmp9__6)) ;
ATSfunbody_end()
ATSreturn(tmpret8__6) ;
} /* end of [ATSLIB_056_prelude__gt_g1int_int__4__6] */
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12520(line=650, offs=3) -- 12559(line=650, offs=42)
*/
/*
local:
global: lt_g1int_int$50$2(level=1)
local:
global:
*/
ATSstatic()
/*
imparg = tk(4631)
tmparg = S2Evar(tk(4631))
tmpsub = Some(tk(4631) -> S2Eextkind(atstype_int))
*/
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__lt_g1int_int__50__2(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret108__2, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp109__2, atstkind_t0ype(atstype_int)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/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 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12546(line=650, offs=29) -- 12557(line=650, offs=40)
*/
ATSINSmove(tmp109__2, atspre_g1int2int_int_int(arg1)) ;
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12529(line=650, offs=12) -- 12559(line=650, offs=42)
*/
ATSINSmove(tmpret108__2, atspre_g1int_lt_int(arg0, tmp109__2)) ;
ATSfunbody_end()
ATSreturn(tmpret108__2) ;
} /* end of [ATSLIB_056_prelude__lt_g1int_int__50__2] */
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5280(line=197, offs=25) -- 5841(line=215, offs=6)
*/
/*
local: is_prime_48$0(level=0), rip_124$0(level=0)
global: sqrt_int_46$0(level=0), is_prime_48$0(level=0), rip_124$0(level=0), prime_factors$130$0(level=0)
local:
global:
*/
ATSextern()
atstkind_type(atstype_ptrk)
_057_home_057_vanessa_057_programming_057_haskell_057_done_057_hs_055_ats_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_sats__prime_factors(atstkind_t0ype(atstype_int) arg0)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret327, atstkind_type(atstype_ptrk)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5266(line=197, offs=11) -- 5841(line=215, offs=6)
*/
ATSINSflab(__patsflab_prime_factors):
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5288(line=198, offs=3) -- 5841(line=215, offs=6)
*/
/*
letpush(beg)
*/
/*
letpush(end)
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5825(line=214, offs=5) -- 5835(line=214, offs=15)
*/
ATSINSmove(tmpret327, loop_131(arg0, ATSPMVi0nt(1))) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5288(line=198, offs=3) -- 5841(line=215, offs=6)
*/
/*
INSletpop()
*/
ATSfunbody_end()
ATSreturn(tmpret327) ;
} /* end of [_057_home_057_vanessa_057_programming_057_haskell_057_done_057_hs_055_ats_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_sats__prime_factors] */
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5300(line=199, offs=9) -- 5815(line=212, offs=27)
*/
/*
local: is_prime_48$0(level=0), rip_124$0(level=0), loop_131$0(level=1)
global: is_prime_48$0(level=0), rip_124$0(level=0), loop_131$0(level=1)
local:
global:
*/
ATSstatic()
atstkind_type(atstype_ptrk)
loop_131(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(tmpret328, atstkind_type(atstype_ptrk)) ;
ATStmpdec(tmp329, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp332, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp337, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp338, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp341, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmp342, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp345, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmp352, atstkind_t0ype(atstype_int)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5300(line=199, offs=9) -- 5815(line=212, offs=27)
*/
ATSINSflab(__patsflab_loop_131):
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5398(line=200, offs=10) -- 5406(line=200, offs=18)
*/
ATSINSmove(tmp329, ATSLIB_056_prelude__gte_g1int_int__71__3(arg1, arg0)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5395(line=200, offs=7) -- 5815(line=212, offs=27)
*/
ATSif(
tmp329
) ATSthen() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5423(line=201, offs=12) -- 5433(line=201, offs=22)
*/
ATSINSmove(tmp332, is_prime_48(arg0)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5420(line=201, offs=9) -- 5546(line=204, offs=33)
*/
ATSif(
tmp332
) ATSthen() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5450(line=202, offs=11) -- 5500(line=202, offs=61)
*/
ATSINSmove_ldelay(tmpret328, atstype_boxed, ATSPMVcfunlab(1, __patsfun_133, (arg0))) ;
} ATSelse() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5524(line=204, offs=11) -- 5546(line=204, offs=33)
*/
ATSINSmove_ldelay(tmpret328, atstype_boxed, ATSPMVcfunlab(1, __patsfun_135, ())) ;
} /* ATSendif */
} ATSelse() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5569(line=206, offs=12) -- 5596(line=206, offs=39)
*/
ATSINSmove(tmp341, atspre_g0int_mod_int(arg0, arg1)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5569(line=206, offs=12) -- 5596(line=206, offs=39)
*/
ATSINSmove(tmp338, ATSLIB_056_prelude__eq_g0int_int__10__21(tmp341, ATSPMVi0nt(0))) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5569(line=206, offs=12) -- 5596(line=206, offs=39)
*/
ATSif(
tmp338
) ATSthen() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5569(line=206, offs=12) -- 5596(line=206, offs=39)
*/
ATSINSmove(tmp337, is_prime_48(arg1)) ;
} ATSelse() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5569(line=206, offs=12) -- 5596(line=206, offs=39)
*/
ATSINSmove(tmp337, ATSPMVbool_false()) ;
} /* ATSendif */
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5566(line=206, offs=9) -- 5815(line=212, offs=27)
*/
ATSif(
tmp337
) ATSthen() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5616(line=207, offs=14) -- 5623(line=207, offs=21)
*/
ATSINSmove(tmp345, atspre_g1int_div_int(arg0, arg1)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5616(line=207, offs=14) -- 5627(line=207, offs=25)
*/
ATSINSmove(tmp342, ATSLIB_056_prelude__gt_g1int_int__4__7(tmp345, ATSPMVi0nt(0))) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5613(line=207, offs=11) -- 5775(line=210, offs=65)
*/
ATSif(
tmp342
) ATSthen() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5645(line=208, offs=13) -- 5695(line=208, offs=63)
*/
ATSINSmove_ldelay(tmpret328, atstype_boxed, ATSPMVcfunlab(1, __patsfun_138, (arg0, arg1))) ;
} ATSelse() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5723(line=210, offs=13) -- 5775(line=210, offs=65)
*/
ATSINSmove_ldelay(tmpret328, atstype_boxed, ATSPMVcfunlab(1, __patsfun_139, (arg1))) ;
} /* ATSendif */
} ATSelse() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5807(line=212, offs=19) -- 5814(line=212, offs=26)
*/
ATSINSmove(tmp352, atspre_g1int_add_int(arg1, ATSPMVi0nt(1))) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5799(line=212, offs=11) -- 5815(line=212, offs=27)
*/
ATStailcal_beg()
ATSINSmove_tlcal(apy0, arg0) ;
ATSINSmove_tlcal(apy1, tmp352) ;
ATSINSargmove_tlcal(arg0, apy0) ;
ATSINSargmove_tlcal(arg1, apy1) ;
ATSINSfgoto(__patsflab_loop_131) ;
ATStailcal_end()
} /* ATSendif */
} /* ATSendif */
ATSfunbody_end()
ATSreturn(tmpret328) ;
} /* end of [loop_131] */
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12757(line=663, offs=3) -- 12797(line=663, offs=43)
*/
/*
local:
global: gte_g1int_int$71$3(level=2)
local:
global:
*/
ATSstatic()
/*
imparg = tk(4640)
tmparg = S2Evar(tk(4640))
tmpsub = Some(tk(4640) -> S2Eextkind(atstype_int))
*/
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__gte_g1int_int__71__3(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret149__3, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp150__3, atstkind_t0ype(atstype_int)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/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 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12784(line=663, offs=30) -- 12795(line=663, offs=41)
*/
ATSINSmove(tmp150__3, atspre_g1int2int_int_int(arg1)) ;
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12766(line=663, offs=12) -- 12797(line=663, offs=43)
*/
ATSINSmove(tmpret149__3, atspre_g1int_gte_int(arg0, tmp150__3)) ;
ATSfunbody_end()
ATSreturn(tmpret149__3) ;
} /* end of [ATSLIB_056_prelude__gte_g1int_int__71__3] */
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5450(line=202, offs=11) -- 5500(line=202, offs=61)
*/
/*
local:
global: __patsfun_133$0(level=2)
local: n$5165(2)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int))))
global: n$5165(2)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int))))
*/
ATSstatic()
atstype_boxed
__patsfun_133(atstkind_t0ype(atstype_int) env0, atstype_bool arg0)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret333, atstype_boxed) ;
ATStmpdec(tmp334, atstkind_type(atstype_ptrk)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5450(line=202, offs=11) -- 5500(line=202, offs=61)
*/
ATSINSflab(__patsflab___patsfun_133):
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5450(line=202, offs=11) -- 5500(line=202, offs=61)
*/
ATSif(
arg0
) ATSthen() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5476(line=202, offs=37) -- 5498(line=202, offs=59)
*/
ATSINSmove_ldelay(tmp334, atstype_boxed, ATSPMVcfunlab(1, __patsfun_134, ())) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5458(line=202, offs=19) -- 5499(line=202, offs=60)
*/
/*
#LINCONSTATUS==0
*/
ATSINSmove_con1_beg()
ATSINSmove_con1_new(tmpret333, postiats_tysum_1) ;
#if(0)
ATSINSstore_con1_tag(tmpret333, 1) ;
#endif
ATSINSstore_con1_ofs(tmpret333, postiats_tysum_1, atslab__0, env0) ;
ATSINSstore_con1_ofs(tmpret333, postiats_tysum_1, atslab__1, tmp334) ;
ATSINSmove_con1_end()
} ATSelse() {
/* (*nothing*) */
} /* ATSendif */
ATSfunbody_end()
ATSreturn(tmpret333) ;
} /* end of [__patsfun_133] */
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5476(line=202, offs=37) -- 5498(line=202, offs=59)
*/
/*
local:
global: __patsfun_134$0(level=3)
local:
global:
*/
ATSstatic()
atstype_boxed
__patsfun_134(atstype_bool arg0)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret335, atstype_boxed) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5476(line=202, offs=37) -- 5498(line=202, offs=59)
*/
ATSINSflab(__patsflab___patsfun_134):
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5476(line=202, offs=37) -- 5498(line=202, offs=59)
*/
ATSif(
arg0
) ATSthen() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5484(line=202, offs=45) -- 5497(line=202, offs=58)
*/
ATSINSmove_nil(tmpret335) ;
} ATSelse() {
/* (*nothing*) */
} /* ATSendif */
ATSfunbody_end()
ATSreturn(tmpret335) ;
} /* end of [__patsfun_134] */
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5524(line=204, offs=11) -- 5546(line=204, offs=33)
*/
/*
local:
global: __patsfun_135$0(level=2)
local:
global:
*/
ATSstatic()
atstype_boxed
__patsfun_135(atstype_bool arg0)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret336, atstype_boxed) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5524(line=204, offs=11) -- 5546(line=204, offs=33)
*/
ATSINSflab(__patsflab___patsfun_135):
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5524(line=204, offs=11) -- 5546(line=204, offs=33)
*/
ATSif(
arg0
) ATSthen() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5532(line=204, offs=19) -- 5545(line=204, offs=32)
*/
ATSINSmove_nil(tmpret336) ;
} ATSelse() {
/* (*nothing*) */
} /* ATSendif */
ATSfunbody_end()
ATSreturn(tmpret336) ;
} /* end of [__patsfun_135] */
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42)
*/
/*
local:
global: eq_g0int_int$10$21(level=2)
local:
global:
*/
ATSstatic()
/*
imparg = tk(4628)
tmparg = S2Evar(tk(4628))
tmpsub = Some(tk(4628) -> S2Eextkind(atstype_int))
*/
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__eq_g0int_int__10__21(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret15__21, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp16__21, atstkind_t0ype(atstype_int)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/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 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40)
*/
ATSINSmove(tmp16__21, atspre_g0int2int_int_int(arg1)) ;
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42)
*/
ATSINSmove(tmpret15__21, atspre_g0int_eq_int(arg0, tmp16__21)) ;
ATSfunbody_end()
ATSreturn(tmpret15__21) ;
} /* end of [ATSLIB_056_prelude__eq_g0int_int__10__21] */
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12679(line=659, offs=3) -- 12718(line=659, offs=42)
*/
/*
local:
global: gt_g1int_int$4$7(level=2)
local:
global:
*/
ATSstatic()
/*
imparg = tk(4637)
tmparg = S2Evar(tk(4637))
tmpsub = Some(tk(4637) -> S2Eextkind(atstype_int))
*/
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__gt_g1int_int__4__7(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret8__7, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp9__7, atstkind_t0ype(atstype_int)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/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 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12705(line=659, offs=29) -- 12716(line=659, offs=40)
*/
ATSINSmove(tmp9__7, atspre_g1int2int_int_int(arg1)) ;
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12688(line=659, offs=12) -- 12718(line=659, offs=42)
*/
ATSINSmove(tmpret8__7, atspre_g1int_gt_int(arg0, tmp9__7)) ;
ATSfunbody_end()
ATSreturn(tmpret8__7) ;
} /* end of [ATSLIB_056_prelude__gt_g1int_int__4__7] */
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5645(line=208, offs=13) -- 5695(line=208, offs=63)
*/
/*
local: rip_124$0(level=0), loop_131$0(level=1)
global: rip_124$0(level=0), loop_131$0(level=1), __patsfun_138$0(level=2)
local: n$5165(2)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))), acc$5166(2)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int))))
global: n$5165(2)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))), acc$5166(2)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int))))
*/
ATSstatic()
atstype_boxed
__patsfun_138(atstkind_t0ype(atstype_int) env0, atstkind_t0ype(atstype_int) env1, atstype_bool arg0)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret346, atstype_boxed) ;
ATStmpdec(tmp347, atstkind_type(atstype_ptrk)) ;
ATStmpdec(tmp348, atstkind_t0ype(atstype_int)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5645(line=208, offs=13) -- 5695(line=208, offs=63)
*/
ATSINSflab(__patsflab___patsfun_138):
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5645(line=208, offs=13) -- 5695(line=208, offs=63)
*/
ATSif(
arg0
) ATSthen() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5678(line=208, offs=46) -- 5689(line=208, offs=57)
*/
ATSINSmove(tmp348, rip_124(env0, env1)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5673(line=208, offs=41) -- 5693(line=208, offs=61)
*/
ATSINSmove(tmp347, loop_131(tmp348, ATSPMVi0nt(1))) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5653(line=208, offs=21) -- 5694(line=208, offs=62)
*/
/*
#LINCONSTATUS==0
*/
ATSINSmove_con1_beg()
ATSINSmove_con1_new(tmpret346, postiats_tysum_1) ;
#if(0)
ATSINSstore_con1_tag(tmpret346, 1) ;
#endif
ATSINSstore_con1_ofs(tmpret346, postiats_tysum_1, atslab__0, env1) ;
ATSINSstore_con1_ofs(tmpret346, postiats_tysum_1, atslab__1, tmp347) ;
ATSINSmove_con1_end()
} ATSelse() {
/* (*nothing*) */
} /* ATSendif */
ATSfunbody_end()
ATSreturn(tmpret346) ;
} /* end of [__patsfun_138] */
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5723(line=210, offs=13) -- 5775(line=210, offs=65)
*/
/*
local:
global: __patsfun_139$0(level=2)
local: acc$5166(2)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int))))
global: acc$5166(2)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int))))
*/
ATSstatic()
atstype_boxed
__patsfun_139(atstkind_t0ype(atstype_int) env0, atstype_bool arg0)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret349, atstype_boxed) ;
ATStmpdec(tmp350, atstkind_type(atstype_ptrk)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5723(line=210, offs=13) -- 5775(line=210, offs=65)
*/
ATSINSflab(__patsflab___patsfun_139):
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5723(line=210, offs=13) -- 5775(line=210, offs=65)
*/
ATSif(
arg0
) ATSthen() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5751(line=210, offs=41) -- 5773(line=210, offs=63)
*/
ATSINSmove_ldelay(tmp350, atstype_boxed, ATSPMVcfunlab(1, __patsfun_140, ())) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5731(line=210, offs=21) -- 5774(line=210, offs=64)
*/
/*
#LINCONSTATUS==0
*/
ATSINSmove_con1_beg()
ATSINSmove_con1_new(tmpret349, postiats_tysum_1) ;
#if(0)
ATSINSstore_con1_tag(tmpret349, 1) ;
#endif
ATSINSstore_con1_ofs(tmpret349, postiats_tysum_1, atslab__0, env0) ;
ATSINSstore_con1_ofs(tmpret349, postiats_tysum_1, atslab__1, tmp350) ;
ATSINSmove_con1_end()
} ATSelse() {
/* (*nothing*) */
} /* ATSendif */
ATSfunbody_end()
ATSreturn(tmpret349) ;
} /* end of [__patsfun_139] */
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5751(line=210, offs=41) -- 5773(line=210, offs=63)
*/
/*
local:
global: __patsfun_140$0(level=3)
local:
global:
*/
ATSstatic()
atstype_boxed
__patsfun_140(atstype_bool arg0)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret351, atstype_boxed) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5751(line=210, offs=41) -- 5773(line=210, offs=63)
*/
ATSINSflab(__patsflab___patsfun_140):
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5751(line=210, offs=41) -- 5773(line=210, offs=63)
*/
ATSif(
arg0
) ATSthen() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5759(line=210, offs=49) -- 5772(line=210, offs=62)
*/
ATSINSmove_nil(tmpret351) ;
} ATSelse() {
/* (*nothing*) */
} /* ATSendif */
ATSfunbody_end()
ATSreturn(tmpret351) ;
} /* end of [__patsfun_140] */
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5870(line=217, offs=28) -- 6279(line=235, offs=6)
*/
/*
local: is_prime_48$0(level=0), rip_124$0(level=0)
global: sqrt_int_46$0(level=0), is_prime_48$0(level=0), rip_124$0(level=0), little_omega_ats$141$0(level=0)
local:
global:
*/
ATSextern()
atstkind_t0ype(atstype_int)
little_omega_ats(atstkind_t0ype(atstype_int) arg0)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret353, atstkind_t0ype(atstype_int)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5853(line=217, offs=11) -- 6279(line=235, offs=6)
*/
ATSINSflab(__patsflab_little_omega_ats):
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5878(line=218, offs=3) -- 6279(line=235, offs=6)
*/
/*
letpush(beg)
*/
/*
letpush(end)
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6263(line=234, offs=5) -- 6273(line=234, offs=15)
*/
ATSINSmove(tmpret353, loop_142(arg0, ATSPMVi0nt(1))) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5878(line=218, offs=3) -- 6279(line=235, offs=6)
*/
/*
INSletpop()
*/
ATSfunbody_end()
ATSreturn(tmpret353) ;
} /* end of [little_omega_ats] */
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5890(line=219, offs=9) -- 6253(line=232, offs=27)
*/
/*
local: is_prime_48$0(level=0), rip_124$0(level=0), loop_142$0(level=1)
global: is_prime_48$0(level=0), rip_124$0(level=0), loop_142$0(level=1)
local:
global:
*/
ATSstatic()
atstkind_t0ype(atstype_int)
loop_142(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(tmpret354, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmp355, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp358, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp359, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp360, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp363, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmp364, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp367, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmp368, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmp369, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmp370, atstkind_t0ype(atstype_int)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5890(line=219, offs=9) -- 6253(line=232, offs=27)
*/
ATSINSflab(__patsflab_loop_142):
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5983(line=220, offs=10) -- 5991(line=220, offs=18)
*/
ATSINSmove(tmp355, ATSLIB_056_prelude__gte_g1int_int__71__4(arg1, arg0)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5980(line=220, offs=7) -- 6253(line=232, offs=27)
*/
ATSif(
tmp355
) ATSthen() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6008(line=221, offs=12) -- 6018(line=221, offs=22)
*/
ATSINSmove(tmp358, is_prime_48(arg0)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6005(line=221, offs=9) -- 6061(line=224, offs=12)
*/
ATSif(
tmp358
) ATSthen() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6035(line=222, offs=11) -- 6036(line=222, offs=12)
*/
ATSINSmove(tmpret354, ATSPMVi0nt(1)) ;
} ATSelse() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6060(line=224, offs=11) -- 6061(line=224, offs=12)
*/
ATSINSmove(tmpret354, ATSPMVi0nt(0)) ;
} /* ATSendif */
} ATSelse() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6084(line=226, offs=12) -- 6111(line=226, offs=39)
*/
ATSINSmove(tmp363, atspre_g0int_mod_int(arg0, arg1)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6084(line=226, offs=12) -- 6111(line=226, offs=39)
*/
ATSINSmove(tmp360, ATSLIB_056_prelude__eq_g0int_int__10__22(tmp363, ATSPMVi0nt(0))) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6084(line=226, offs=12) -- 6111(line=226, offs=39)
*/
ATSif(
tmp360
) ATSthen() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6084(line=226, offs=12) -- 6111(line=226, offs=39)
*/
ATSINSmove(tmp359, is_prime_48(arg1)) ;
} ATSelse() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6084(line=226, offs=12) -- 6111(line=226, offs=39)
*/
ATSINSmove(tmp359, ATSPMVbool_false()) ;
} /* ATSendif */
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6081(line=226, offs=9) -- 6253(line=232, offs=27)
*/
ATSif(
tmp359
) ATSthen() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6131(line=227, offs=14) -- 6138(line=227, offs=21)
*/
ATSINSmove(tmp367, atspre_g1int_div_int(arg0, arg1)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6131(line=227, offs=14) -- 6142(line=227, offs=25)
*/
ATSINSmove(tmp364, ATSLIB_056_prelude__gt_g1int_int__4__8(tmp367, ATSPMVi0nt(0))) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6128(line=227, offs=11) -- 6213(line=230, offs=14)
*/
ATSif(
tmp364
) ATSthen() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6169(line=228, offs=22) -- 6180(line=228, offs=33)
*/
ATSINSmove(tmp369, rip_124(arg0, arg1)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6164(line=228, offs=17) -- 6184(line=228, offs=37)
*/
ATSINSmove(tmp368, loop_142(tmp369, ATSPMVi0nt(1))) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6160(line=228, offs=13) -- 6184(line=228, offs=37)
*/
ATSINSmove(tmpret354, atspre_g0int_add_int(ATSPMVi0nt(1), tmp368)) ;
} ATSelse() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6212(line=230, offs=13) -- 6213(line=230, offs=14)
*/
ATSINSmove(tmpret354, ATSPMVi0nt(1)) ;
} /* ATSendif */
} ATSelse() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6245(line=232, offs=19) -- 6252(line=232, offs=26)
*/
ATSINSmove(tmp370, atspre_g1int_add_int(arg1, ATSPMVi0nt(1))) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6237(line=232, offs=11) -- 6253(line=232, offs=27)
*/
ATStailcal_beg()
ATSINSmove_tlcal(apy0, arg0) ;
ATSINSmove_tlcal(apy1, tmp370) ;
ATSINSargmove_tlcal(arg0, apy0) ;
ATSINSargmove_tlcal(arg1, apy1) ;
ATSINSfgoto(__patsflab_loop_142) ;
ATStailcal_end()
} /* ATSendif */
} /* ATSendif */
ATSfunbody_end()
ATSreturn(tmpret354) ;
} /* end of [loop_142] */
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12757(line=663, offs=3) -- 12797(line=663, offs=43)
*/
/*
local:
global: gte_g1int_int$71$4(level=2)
local:
global:
*/
ATSstatic()
/*
imparg = tk(4640)
tmparg = S2Evar(tk(4640))
tmpsub = Some(tk(4640) -> S2Eextkind(atstype_int))
*/
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__gte_g1int_int__71__4(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret149__4, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp150__4, atstkind_t0ype(atstype_int)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/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 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12784(line=663, offs=30) -- 12795(line=663, offs=41)
*/
ATSINSmove(tmp150__4, atspre_g1int2int_int_int(arg1)) ;
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12766(line=663, offs=12) -- 12797(line=663, offs=43)
*/
ATSINSmove(tmpret149__4, atspre_g1int_gte_int(arg0, tmp150__4)) ;
ATSfunbody_end()
ATSreturn(tmpret149__4) ;
} /* end of [ATSLIB_056_prelude__gte_g1int_int__71__4] */
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42)
*/
/*
local:
global: eq_g0int_int$10$22(level=2)
local:
global:
*/
ATSstatic()
/*
imparg = tk(4628)
tmparg = S2Evar(tk(4628))
tmpsub = Some(tk(4628) -> S2Eextkind(atstype_int))
*/
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__eq_g0int_int__10__22(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret15__22, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp16__22, atstkind_t0ype(atstype_int)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/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 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40)
*/
ATSINSmove(tmp16__22, atspre_g0int2int_int_int(arg1)) ;
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42)
*/
ATSINSmove(tmpret15__22, atspre_g0int_eq_int(arg0, tmp16__22)) ;
ATSfunbody_end()
ATSreturn(tmpret15__22) ;
} /* end of [ATSLIB_056_prelude__eq_g0int_int__10__22] */
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12679(line=659, offs=3) -- 12718(line=659, offs=42)
*/
/*
local:
global: gt_g1int_int$4$8(level=2)
local:
global:
*/
ATSstatic()
/*
imparg = tk(4637)
tmparg = S2Evar(tk(4637))
tmpsub = Some(tk(4637) -> S2Eextkind(atstype_int))
*/
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__gt_g1int_int__4__8(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret8__8, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp9__8, atstkind_t0ype(atstype_int)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/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 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12705(line=659, offs=29) -- 12716(line=659, offs=40)
*/
ATSINSmove(tmp9__8, atspre_g1int2int_int_int(arg1)) ;
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12688(line=659, offs=12) -- 12718(line=659, offs=42)
*/
ATSINSmove(tmpret8__8, atspre_g1int_gt_int(arg0, tmp9__8)) ;
ATSfunbody_end()
ATSreturn(tmpret8__8) ;
} /* end of [ATSLIB_056_prelude__gt_g1int_int__4__8] */
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6303(line=237, offs=23) -- 6593(line=249, offs=8)
*/
/*
local:
global: radical_ats$146$0(level=0)
local:
global:
*/
ATSextern()
atstkind_t0ype(atstype_int)
radical_ats(atstkind_t0ype(atstype_int) arg0)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret371, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmpref372, atstkind_type(atstype_ptrk)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6291(line=237, offs=11) -- 6593(line=249, offs=8)
*/
ATSINSflab(__patsflab_radical_ats):
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6311(line=238, offs=3) -- 6593(line=249, offs=8)
*/
ATScaseof_beg()
/*
** ibranchlst-beg
*/
ATSbranch_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6328(line=239, offs=7) -- 6329(line=239, offs=8)
*/
ATSINSlab(__atstmplab33):
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6304(line=237, offs=24) -- 6305(line=237, offs=25)
*/
ATSifnthen(ATSCKpat_int(arg0, ATSPMVint(1))) { ATSINSgoto(__atstmplab35) ; } ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6329(line=239, offs=8) -- 6329(line=239, offs=8)
*/
ATSINSlab(__atstmplab34):
/*
emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0)
*/
/*
ibranch-mbody:
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6333(line=239, offs=12) -- 6334(line=239, offs=13)
*/
ATSINSmove(tmpret371, ATSPMVi0nt(1)) ;
ATSbranch_end()
ATSbranch_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6342(line=240, offs=8) -- 6342(line=240, offs=8)
*/
ATSINSlab(__atstmplab35):
/*
emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0)
*/
/*
ibranch-mbody:
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6347(line=240, offs=13) -- 6593(line=249, offs=8)
*/
/*
letpush(beg)
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6361(line=241, offs=11) -- 6362(line=241, offs=12)
*/
/*
ATSINStmpdec(tmpref372) ;
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6381(line=241, offs=31) -- 6396(line=241, offs=46)
*/
ATSINSmove(tmpref372, _057_home_057_vanessa_057_programming_057_haskell_057_done_057_hs_055_ats_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_sats__prime_factors(arg0)) ;
/*
letpush(end)
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6575(line=248, offs=7) -- 6584(line=248, offs=16)
*/
ATSINSmove(tmpret371, product_147(tmpref372)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6347(line=240, offs=13) -- 6593(line=249, offs=8)
*/
/*
INSletpop()
*/
ATSbranch_end()
/*
** ibranchlst-end
*/
ATScaseof_end()
ATSfunbody_end()
ATSreturn(tmpret371) ;
} /* end of [radical_ats] */
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6415(line=243, offs=11) -- 6561(line=246, offs=34)
*/
/*
local: product_147$0(level=1)
global: product_147$0(level=1)
local:
global:
*/
ATSstatic()
atstkind_t0ype(atstype_int)
product_147(atstkind_type(atstype_ptrk) arg0)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret373, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmp374, atstype_boxed) ;
ATStmpdec(tmp375, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmp376, atstkind_type(atstype_ptrk)) ;
ATStmpdec(tmp377, atstkind_t0ype(atstype_int)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6415(line=243, offs=11) -- 6561(line=246, offs=34)
*/
ATSINSflab(__patsflab_product_147):
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6466(line=244, offs=15) -- 6469(line=244, offs=18)
*/
ATSINSmove_llazyeval(tmp374, atstype_boxed, arg0) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6460(line=244, offs=9) -- 6561(line=246, offs=34)
*/
ATScaseof_beg()
/*
** ibranchlst-beg
*/
ATSbranch_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6485(line=245, offs=13) -- 6508(line=245, offs=36)
*/
ATSINSlab(__atstmplab36):
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6466(line=244, offs=15) -- 6469(line=244, offs=18)
*/
ATSifthen(ATSCKptrisnull(tmp374)) { ATSINSgoto(__atstmplab39) ; } ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6508(line=245, offs=36) -- 6508(line=245, offs=36)
*/
ATSINSlab(__atstmplab37):
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6502(line=245, offs=30) -- 6503(line=245, offs=31)
*/
ATSINSmove(tmp375, ATSSELcon(tmp374, postiats_tysum_1, atslab__0)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6505(line=245, offs=33) -- 6507(line=245, offs=35)
*/
ATSINSmove(tmp376, ATSSELcon(tmp374, postiats_tysum_1, atslab__1)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6485(line=245, offs=13) -- 6527(line=245, offs=55)
*/
ATSINSfreecon(tmp374) ;
/*
emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0)
*/
/*
ibranch-mbody:
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6516(line=245, offs=44) -- 6526(line=245, offs=54)
*/
ATSINSmove(tmp377, product_147(tmp376)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6512(line=245, offs=40) -- 6526(line=245, offs=54)
*/
ATSINSmove(tmpret373, atspre_g0int_mul_int(tmp375, tmp377)) ;
ATSbranch_end()
ATSbranch_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6540(line=246, offs=13) -- 6556(line=246, offs=29)
*/
ATSINSlab(__atstmplab38):
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6466(line=244, offs=15) -- 6469(line=244, offs=18)
*/
#if(0)
ATSifthen(ATSCKptriscons(tmp374)) { ATSINSdeadcode_fail() ; } ;
#endif
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6556(line=246, offs=29) -- 6556(line=246, offs=29)
*/
ATSINSlab(__atstmplab39):
/*
emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0)
*/
/*
ibranch-mbody:
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6560(line=246, offs=33) -- 6561(line=246, offs=34)
*/
ATSINSmove(tmpret373, ATSPMVi0nt(1)) ;
ATSbranch_end()
/*
** ibranchlst-end
*/
ATScaseof_end()
ATSfunbody_end()
ATSreturn(tmpret373) ;
} /* end of [product_147] */
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6598(line=251, offs=4) -- 7147(line=265, offs=8)
*/
/*
local:
global: totient_148$0(level=0)
local:
global:
*/
ATSstatic()
atstkind_t0ype(atstype_int)
totient_148(atstkind_t0ype(atstype_int) arg0)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret378, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmpref383, atstkind_type(atstype_ptrk)) ;
ATStmpdec(tmpref384, postiats_tyrec_0) ;
ATStmpdec(tmpref385, postiats_tyrec_0) ;
ATStmpdec(tmp403, atstkind_t0ype(atstype_int)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6598(line=251, offs=4) -- 7147(line=265, offs=8)
*/
ATSINSflab(__patsflab_totient_148):
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6631(line=252, offs=3) -- 7147(line=265, offs=8)
*/
ATScaseof_beg()
/*
** ibranchlst-beg
*/
ATSbranch_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6648(line=253, offs=7) -- 6649(line=253, offs=8)
*/
ATSINSlab(__atstmplab40):
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6606(line=251, offs=12) -- 6607(line=251, offs=13)
*/
ATSifnthen(ATSCKpat_int(arg0, ATSPMVint(1))) { ATSINSgoto(__atstmplab42) ; } ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6649(line=253, offs=8) -- 6649(line=253, offs=8)
*/
ATSINSlab(__atstmplab41):
/*
emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0)
*/
/*
ibranch-mbody:
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6653(line=253, offs=12) -- 6654(line=253, offs=13)
*/
ATSINSmove(tmpret378, ATSPMVi0nt(1)) ;
ATSbranch_end()
ATSbranch_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6662(line=254, offs=8) -- 6662(line=254, offs=8)
*/
ATSINSlab(__atstmplab42):
/*
emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0)
*/
/*
ibranch-mbody:
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6667(line=254, offs=13) -- 7147(line=265, offs=8)
*/
/*
letpush(beg)
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6881(line=260, offs=11) -- 6882(line=260, offs=12)
*/
/*
ATSINStmpdec(tmpref383) ;
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6901(line=260, offs=31) -- 6916(line=260, offs=46)
*/
ATSINSmove(tmpref383, _057_home_057_vanessa_057_programming_057_haskell_057_done_057_hs_055_ats_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_sats__prime_factors(arg0)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6928(line=261, offs=11) -- 6938(line=261, offs=21)
*/
/*
ATSINStmpdec(tmpref384) ;
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6941(line=261, offs=24) -- 6967(line=261, offs=50)
*/
ATSINSmove_fltrec_beg()
ATSINSstore_fltrec_ofs(tmpref384, postiats_tyrec_0, atslab__first, ATSPMVi0nt(1)) ;
ATSINSstore_fltrec_ofs(tmpref384, postiats_tyrec_0, atslab__second, ATSPMVi0nt(1)) ;
ATSINSmove_fltrec_end()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6985(line=262, offs=11) -- 6986(line=262, offs=12)
*/
/*
ATSINStmpdec(tmpref385) ;
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6989(line=262, offs=15) -- 7076(line=262, offs=102)
*/
ATSINSmove(tmpref385, ATSLIB_056_prelude__stream_vt_foldleft_cloptr__151__1(tmpref383, tmpref384, ATSPMVcfunlab(1, __patsfun_155, ()))) ;
/*
letpush(end)
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 7107(line=264, offs=17) -- 7128(line=264, offs=38)
*/
ATSINSmove(tmp403, atspre_g0int_mul_int(arg0, ATSSELfltrec(tmpref385, postiats_tyrec_0, atslab__first))) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 7097(line=264, offs=7) -- 7139(line=264, offs=49)
*/
ATSINSmove(tmpret378, atspre_g0int_div_int(tmp403, ATSSELfltrec(tmpref385, postiats_tyrec_0, atslab__second))) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6667(line=254, offs=13) -- 7147(line=265, offs=8)
*/
/*
INSletpop()
*/
ATSbranch_end()
/*
** ibranchlst-end
*/
ATScaseof_end()
ATSfunbody_end()
ATSreturn(tmpret378) ;
} /* end of [totient_148] */
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6740(line=257, offs=10) -- 6863(line=258, offs=80)
*/
/*
local:
global: adjust_contents_149$0(level=1)
local:
global:
*/
ATSstatic()
postiats_tyrec_0
adjust_contents_149(postiats_tyrec_0 arg0, atstkind_t0ype(atstype_int) arg1)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret379, postiats_tyrec_0) ;
ATStmpdec(tmp380, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmp381, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmp382, atstkind_t0ype(atstype_int)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6740(line=257, offs=10) -- 6863(line=258, offs=80)
*/
ATSINSflab(__patsflab_adjust_contents_149):
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6822(line=258, offs=39) -- 6827(line=258, offs=44)
*/
ATSINSmove(tmp381, atspre_g0int_sub_int(arg1, ATSPMVi0nt(1))) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6803(line=258, offs=20) -- 6828(line=258, offs=45)
*/
ATSINSmove(tmp380, atspre_g0int_mul_int(ATSSELfltrec(arg0, postiats_tyrec_0, atslab__first), tmp381)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6839(line=258, offs=56) -- 6861(line=258, offs=78)
*/
ATSINSmove(tmp382, atspre_g0int_mul_int(ATSSELfltrec(arg0, postiats_tyrec_0, atslab__second), arg1)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6792(line=258, offs=9) -- 6863(line=258, offs=80)
*/
ATSINSmove_fltrec_beg()
ATSINSstore_fltrec_ofs(tmpret379, postiats_tyrec_0, atslab__first, tmp380) ;
ATSINSstore_fltrec_ofs(tmpret379, postiats_tyrec_0, atslab__second, tmp382) ;
ATSINSmove_fltrec_end()
ATSfunbody_end()
ATSreturn(tmpret379) ;
} /* end of [adjust_contents_149] */
#if(0)
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats: 29943(line=1864, offs=3) -- 30423(line=1895, offs=2)
*/
/*
local:
global: stream_vt_foldleft_cloptr$151$0(level=0)
local:
global:
*/
ATSextern()
/*
imparg = res(8342), a(8343)
tmparg = S2Evar(res(8342)); S2Evar(a(8343))
tmpsub = None()
*/
atstyvar_type(res)
ATSLIB_056_prelude__stream_vt_foldleft_cloptr__151(atstkind_type(atstype_ptrk) arg0, atstyvar_type(res) arg1, atstype_cloptr arg2)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret386, atstyvar_type(res)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 29915(line=1863, offs=1) -- 30423(line=1895, offs=2)
*/
ATSINSflab(__patsflab_stream_vt_foldleft_cloptr):
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 29964(line=1865, offs=3) -- 30423(line=1895, offs=2)
*/
/*
letpush(beg)
*/
/*
letpush(end)
*/
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 29964(line=1865, offs=3) -- 29984(line=1865, offs=23)
*/
ATSINSmove(tmpret386, ATSfunclo_fun(PMVd2vfunlab(d2v=loop$4484(1), flab=loop_152$0(level=1)), (atstkind_type(atstype_ptrk), atstyvar_type(res), atstype_cloptr), atstyvar_type(res))(arg0, arg1, arg2)) ;
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 29964(line=1865, offs=3) -- 30423(line=1895, offs=2)
*/
/*
INSletpop()
*/
ATSfunbody_end()
ATSreturn(tmpret386) ;
} /* end of [ATSLIB_056_prelude__stream_vt_foldleft_cloptr__151] */
#endif // end of [TEMPLATE]
#if(0)
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats: 30000(line=1869, offs=1) -- 30401(line=1893, offs=4)
*/
/*
local: loop_152$0(level=1)
global: loop_152$0(level=1)
local:
global:
*/
ATSstatic()
atstyvar_type(res)
loop_152__152(atstkind_type(atstype_ptrk) arg0, atstyvar_type(res) arg1, atstype_cloptr arg2)
{
/* tmpvardeclst(beg) */
ATStmpdec(apy0, atstkind_type(atstype_ptrk)) ;
ATStmpdec(apy1, atstyvar_type(res)) ;
ATStmpdec(apy2, atstype_cloptr) ;
ATStmpdec(tmpret387, atstyvar_type(res)) ;
ATStmpdec(tmpref388, atstkind_type(atstype_ptrk)) ;
ATStmpdec(tmp389, atstype_boxed) ;
// ATStmpdec_void(tmp392) ;
ATStmpdec(tmp393, atstyvar_type(res)) ;
ATStmpdec(tmp394, atstkind_type(atstype_ptrk)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30000(line=1869, offs=1) -- 30401(line=1893, offs=4)
*/
ATSINSflab(__patsflab_loop_152):
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30078(line=1875, offs=6) -- 30401(line=1893, offs=4)
*/
/*
letpush(beg)
*/
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30088(line=1876, offs=7) -- 30094(line=1876, offs=13)
*/
/*
ATSINStmpdec(tmpref388) ;
*/
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30097(line=1876, offs=16) -- 30100(line=1876, offs=19)
*/
ATSINSmove_llazyeval(tmpref388, atstype_boxed, arg0) ;
/*
letpush(end)
*/
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30113(line=1880, offs=1) -- 30119(line=1880, offs=7)
*/
ATSINSmove(tmp389, tmpref388) ;
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30107(line=1879, offs=1) -- 30367(line=1891, offs=6)
*/
ATScaseof_beg()
/*
** ibranchlst-beg
*/
ATSbranch_beg()
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30134(line=1882, offs=3) -- 30155(line=1883, offs=7)
*/
ATSINSlab(__atstmplab43):
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30113(line=1880, offs=1) -- 30119(line=1880, offs=7)
*/
ATSifthen(ATSCKptriscons(tmp389)) { ATSINSgoto(__atstmplab46) ; } ;
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30155(line=1883, offs=7) -- 30155(line=1883, offs=7)
*/
ATSINSlab(__atstmplab44):
/*
emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0)
*/
/*
ibranch-mbody:
*/
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30167(line=1885, offs=5) -- 30199(line=1885, offs=37)
*/
ATSINSmove_void(tmp392, atspre_cloptr_free(ATSPMVcastfn(castvwtp0, atstkind_type(atstype_ptrk), arg2))) ;
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30201(line=1885, offs=39) -- 30204(line=1885, offs=42)
*/
ATSINSmove(tmpret387, arg1) ;
ATSbranch_end()
ATSbranch_beg()
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30240(line=1887, offs=3) -- 30269(line=1888, offs=14)
*/
ATSINSlab(__atstmplab45):
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30113(line=1880, offs=1) -- 30119(line=1880, offs=7)
*/
#if(0)
ATSifthen(ATSCKptrisnull(tmp389)) { ATSINSdeadcode_fail() ; } ;
#endif
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30269(line=1888, offs=14) -- 30269(line=1888, offs=14)
*/
ATSINSlab(__atstmplab46):
/*
emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0)
*/
/*
ibranch-mbody:
*/
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30273(line=1888, offs=18) -- 30367(line=1891, offs=6)
*/
/*
letpush(beg)
*/
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30291(line=1889, offs=15) -- 30304(line=1889, offs=28)
*/
ATSINSmove(tmp393, ATSfunclo_clo(ATSPMVrefarg0(arg2), (atstype_cloptr, atstyvar_type(res), atsrefarg1_type(atstyvar_type(a))), atstyvar_type(res))(ATSPMVrefarg0(arg2), arg1, ATSPMVrefarg1(ATSPMVptrof(ATSSELcon(tmp389, postiats_tysum_3, atslab__0))))) ;
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30319(line=1890, offs=15) -- 30322(line=1890, offs=18)
*/
ATSINSmove(tmp394, ATSSELcon(tmp389, postiats_tysum_3, atslab__1)) ;
/*
letpush(end)
*/
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30326(line=1890, offs=22) -- 30338(line=1890, offs=34)
*/
ATSINSfreecon(tmpref388) ;
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30341(line=1890, offs=37) -- 30361(line=1890, offs=57)
*/
ATStailcal_beg()
ATSINSmove_tlcal(apy0, tmp394) ;
ATSINSmove_tlcal(apy1, tmp393) ;
ATSINSmove_tlcal(apy2, arg2) ;
ATSINSargmove_tlcal(arg0, apy0) ;
ATSINSargmove_tlcal(arg1, apy1) ;
ATSINSargmove_tlcal(arg2, apy2) ;
ATSINSfgoto(__patsflab_loop_152) ;
ATStailcal_end()
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30273(line=1888, offs=18) -- 30367(line=1891, offs=6)
*/
/*
INSletpop()
*/
ATSbranch_end()
/*
** ibranchlst-end
*/
ATScaseof_end()
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30078(line=1875, offs=6) -- 30401(line=1893, offs=4)
*/
/*
INSletpop()
*/
ATSfunbody_end()
ATSreturn(tmpret387) ;
} /* end of [loop_152__152] */
#endif // end of [TEMPLATE]
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats: 29943(line=1864, offs=3) -- 30423(line=1895, offs=2)
*/
/*
local:
global: stream_vt_foldleft_cloptr$151$1(level=1)
local:
global:
*/
ATSstatic()
/*
imparg = res(8342), a(8343)
tmparg = S2Evar(res(8342)); S2Evar(a(8343))
tmpsub = Some(res(8342) -> S2EVar(5923); a(8343) -> S2Eapp(S2Ecst(g0int_t0ype); S2Eextkind(atstype_int)))
*/
postiats_tyrec_0
ATSLIB_056_prelude__stream_vt_foldleft_cloptr__151__1(atstkind_type(atstype_ptrk) arg0, postiats_tyrec_0 arg1, atstype_cloptr arg2)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret386__1, postiats_tyrec_0) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 29915(line=1863, offs=1) -- 30423(line=1895, offs=2)
*/
ATSINSflab(__patsflab_stream_vt_foldleft_cloptr):
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 29964(line=1865, offs=3) -- 30423(line=1895, offs=2)
*/
/*
letpush(beg)
*/
/*
letpush(end)
*/
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 29964(line=1865, offs=3) -- 29984(line=1865, offs=23)
*/
ATSINSmove(tmpret386__1, loop_152__152__1(arg0, arg1, arg2)) ;
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 29964(line=1865, offs=3) -- 30423(line=1895, offs=2)
*/
/*
INSletpop()
*/
ATSfunbody_end()
ATSreturn(tmpret386__1) ;
} /* end of [ATSLIB_056_prelude__stream_vt_foldleft_cloptr__151__1] */
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats: 30000(line=1869, offs=1) -- 30401(line=1893, offs=4)
*/
/*
local: loop_152$1(level=2)
global: loop_152$1(level=2)
local:
global:
*/
ATSstatic()
postiats_tyrec_0
loop_152__152__1(atstkind_type(atstype_ptrk) arg0, postiats_tyrec_0 arg1, atstype_cloptr arg2)
{
/* tmpvardeclst(beg) */
ATStmpdec(apy0, atstkind_type(atstype_ptrk)) ;
ATStmpdec(apy1, postiats_tyrec_0) ;
ATStmpdec(apy2, atstype_cloptr) ;
ATStmpdec(tmpret387__1, postiats_tyrec_0) ;
ATStmpdec(tmpref388__1, atstkind_type(atstype_ptrk)) ;
ATStmpdec(tmp389__1, atstype_boxed) ;
// ATStmpdec_void(tmp392__1) ;
ATStmpdec(tmp393__1, postiats_tyrec_0) ;
ATStmpdec(tmp394__1, atstkind_type(atstype_ptrk)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30000(line=1869, offs=1) -- 30401(line=1893, offs=4)
*/
ATSINSflab(__patsflab_loop_152):
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30078(line=1875, offs=6) -- 30401(line=1893, offs=4)
*/
/*
letpush(beg)
*/
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30088(line=1876, offs=7) -- 30094(line=1876, offs=13)
*/
/*
ATSINStmpdec(tmpref388) ;
*/
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30097(line=1876, offs=16) -- 30100(line=1876, offs=19)
*/
ATSINSmove_llazyeval(tmpref388__1, atstype_boxed, arg0) ;
/*
letpush(end)
*/
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30113(line=1880, offs=1) -- 30119(line=1880, offs=7)
*/
ATSINSmove(tmp389__1, tmpref388__1) ;
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30107(line=1879, offs=1) -- 30367(line=1891, offs=6)
*/
ATScaseof_beg()
/*
** ibranchlst-beg
*/
ATSbranch_beg()
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30134(line=1882, offs=3) -- 30155(line=1883, offs=7)
*/
ATSINSlab(__atstmplab43):
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30113(line=1880, offs=1) -- 30119(line=1880, offs=7)
*/
ATSifthen(ATSCKptriscons(tmp389__1)) { ATSINSgoto(__atstmplab46) ; } ;
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30155(line=1883, offs=7) -- 30155(line=1883, offs=7)
*/
ATSINSlab(__atstmplab44):
/*
emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0)
*/
/*
ibranch-mbody:
*/
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30167(line=1885, offs=5) -- 30199(line=1885, offs=37)
*/
ATSINSmove_void(tmp392__1, atspre_cloptr_free(ATSPMVcastfn(castvwtp0, atstkind_type(atstype_ptrk), arg2))) ;
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30201(line=1885, offs=39) -- 30204(line=1885, offs=42)
*/
ATSINSmove(tmpret387__1, arg1) ;
ATSbranch_end()
ATSbranch_beg()
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30240(line=1887, offs=3) -- 30269(line=1888, offs=14)
*/
ATSINSlab(__atstmplab45):
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30113(line=1880, offs=1) -- 30119(line=1880, offs=7)
*/
#if(0)
ATSifthen(ATSCKptrisnull(tmp389__1)) { ATSINSdeadcode_fail() ; } ;
#endif
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30269(line=1888, offs=14) -- 30269(line=1888, offs=14)
*/
ATSINSlab(__atstmplab46):
/*
emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0)
*/
/*
ibranch-mbody:
*/
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30273(line=1888, offs=18) -- 30367(line=1891, offs=6)
*/
/*
letpush(beg)
*/
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30291(line=1889, offs=15) -- 30304(line=1889, offs=28)
*/
ATSINSmove(tmp393__1, ATSfunclo_clo(ATSPMVrefarg0(arg2), (atstype_cloptr, postiats_tyrec_0, atsrefarg1_type(atstkind_t0ype(atstype_int))), postiats_tyrec_0)(ATSPMVrefarg0(arg2), arg1, ATSPMVrefarg1(ATSPMVptrof(ATSSELcon(tmp389__1, postiats_tysum_1, atslab__0))))) ;
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30319(line=1890, offs=15) -- 30322(line=1890, offs=18)
*/
ATSINSmove(tmp394__1, ATSSELcon(tmp389__1, postiats_tysum_1, atslab__1)) ;
/*
letpush(end)
*/
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30326(line=1890, offs=22) -- 30338(line=1890, offs=34)
*/
ATSINSfreecon(tmpref388__1) ;
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30341(line=1890, offs=37) -- 30361(line=1890, offs=57)
*/
ATStailcal_beg()
ATSINSmove_tlcal(apy0, tmp394__1) ;
ATSINSmove_tlcal(apy1, tmp393__1) ;
ATSINSmove_tlcal(apy2, arg2) ;
ATSINSargmove_tlcal(arg0, apy0) ;
ATSINSargmove_tlcal(arg1, apy1) ;
ATSINSargmove_tlcal(arg2, apy2) ;
ATSINSfgoto(__patsflab_loop_152) ;
ATStailcal_end()
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30273(line=1888, offs=18) -- 30367(line=1891, offs=6)
*/
/*
INSletpop()
*/
ATSbranch_end()
/*
** ibranchlst-end
*/
ATScaseof_end()
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30078(line=1875, offs=6) -- 30401(line=1893, offs=4)
*/
/*
INSletpop()
*/
ATSfunbody_end()
ATSreturn(tmpret387__1) ;
} /* end of [loop_152__152__1] */
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 7030(line=262, offs=56) -- 7075(line=262, offs=101)
*/
/*
local: adjust_contents_149$0(level=1)
global: adjust_contents_149$0(level=1), __patsfun_155$0(level=1)
local:
global:
*/
ATSstatic()
postiats_tyrec_0
__patsfun_155(postiats_tyrec_0 arg0, atsrefarg1_type(atstkind_t0ype(atstype_int)) arg1)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret402, postiats_tyrec_0) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 7030(line=262, offs=56) -- 7075(line=262, offs=101)
*/
ATSINSflab(__patsflab___patsfun_155):
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 7049(line=262, offs=75) -- 7075(line=262, offs=101)
*/
ATSINSmove(tmpret402, adjust_contents_149(arg0, ATSderef(arg1, atstkind_t0ype(atstype_int)))) ;
ATSfunbody_end()
ATSreturn(tmpret402) ;
} /* end of [__patsfun_155] */
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 7171(line=267, offs=23) -- 7527(line=281, offs=6)
*/
/*
local: totient_148$0(level=0)
global: totient_148$0(level=0), totient_sum$156$0(level=0)
local:
global:
*/
ATSextern()
atstkind_type(atstype_ptrk)
_057_home_057_vanessa_057_programming_057_haskell_057_done_057_hs_055_ats_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_sats__totient_sum(atstkind_t0ype(atstype_int) arg0)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret404, atstkind_type(atstype_ptrk)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 7159(line=267, offs=11) -- 7527(line=281, offs=6)
*/
ATSINSflab(__patsflab_totient_sum):
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 7179(line=268, offs=3) -- 7527(line=281, offs=6)
*/
/*
letpush(beg)
*/
/*
letpush(end)
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 7511(line=280, offs=5) -- 7521(line=280, offs=15)
*/
ATSINSmove(tmpret404, loop_157(ATSPMVi0nt(1), arg0)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 7179(line=268, offs=3) -- 7527(line=281, offs=6)
*/
/*
INSletpop()
*/
ATSfunbody_end()
ATSreturn(tmpret404) ;
} /* end of [_057_home_057_vanessa_057_programming_057_haskell_057_done_057_hs_055_ats_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_sats__totient_sum] */
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 7191(line=269, offs=9) -- 7501(line=278, offs=40)
*/
/*
local: totient_148$0(level=0), loop_157$0(level=1)
global: totient_148$0(level=0), loop_157$0(level=1)
local:
global:
*/
ATSstatic()
atstkind_type(atstype_ptrk)
loop_157(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret405, atstkind_type(atstype_ptrk)) ;
ATStmpdec(tmp406, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmpref409, atstkind_type(atstype_ptrk)) ;
ATStmpdec(tmp410, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmpref411, atstkind_type(atstype_ptrk)) ;
ATStmpdec(tmp416, atstkind_t0ype(atstype_int)) ;
ATStmpdec(tmp421, atstkind_t0ype(atstype_int)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 7191(line=269, offs=9) -- 7501(line=278, offs=40)
*/
ATSINSflab(__patsflab_loop_157):
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 7294(line=270, offs=10) -- 7303(line=270, offs=19)
*/
ATSINSmove(tmp406, ATSLIB_056_prelude__lt_g1int_int__50__3(arg0, arg1)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 7291(line=270, offs=7) -- 7501(line=278, offs=40)
*/
ATSif(
tmp406
) ATSthen() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 7317(line=271, offs=9) -- 7450(line=276, offs=12)
*/
/*
letpush(beg)
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 7335(line=272, offs=15) -- 7336(line=272, offs=16)
*/
/*
ATSINStmpdec(tmpref409) ;
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 7344(line=272, offs=24) -- 7349(line=272, offs=29)
*/
ATSINSmove(tmp410, atspre_g1int_add_int(arg0, ATSPMVi0nt(1))) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 7339(line=272, offs=19) -- 7357(line=272, offs=37)
*/
ATSINSmove(tmpref409, loop_157(tmp410, arg1)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 7372(line=273, offs=15) -- 7373(line=273, offs=16)
*/
/*
ATSINStmpdec(tmpref411) ;
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 7403(line=273, offs=46) -- 7412(line=273, offs=55)
*/
ATSINSmove(tmp416, totient_148(arg0)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 7376(line=273, offs=19) -- 7415(line=273, offs=58)
*/
ATSINSmove(tmpref411, ATSCNTRB_056_HX_056_intinf_vt__add_intinf0_int__159__1(tmpref409, ATSPMVcastfn(witness, atstkind_t0ype(atstype_int), tmp416))) ;
/*
letpush(end)
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 7437(line=275, offs=11) -- 7438(line=275, offs=12)
*/
ATSINSmove(tmpret405, tmpref411) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 7317(line=271, offs=9) -- 7450(line=276, offs=12)
*/
/*
INSletpop()
*/
} ATSelse() {
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 7470(line=278, offs=9) -- 7501(line=278, offs=40)
*/
ATSINSmove(tmp421, totient_148(arg0)) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 7470(line=278, offs=9) -- 7501(line=278, offs=40)
*/
ATSINSmove(tmpret405, ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__43__2(ATSPMVcastfn(witness, atstkind_t0ype(atstype_int), tmp421))) ;
} /* ATSendif */
ATSfunbody_end()
ATSreturn(tmpret405) ;
} /* end of [loop_157] */
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12520(line=650, offs=3) -- 12559(line=650, offs=42)
*/
/*
local:
global: lt_g1int_int$50$3(level=2)
local:
global:
*/
ATSstatic()
/*
imparg = tk(4631)
tmparg = S2Evar(tk(4631))
tmpsub = Some(tk(4631) -> S2Eextkind(atstype_int))
*/
atstkind_t0ype(atstype_bool)
ATSLIB_056_prelude__lt_g1int_int__50__3(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret108__3, atstkind_t0ype(atstype_bool)) ;
ATStmpdec(tmp109__3, atstkind_t0ype(atstype_int)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/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 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12546(line=650, offs=29) -- 12557(line=650, offs=40)
*/
ATSINSmove(tmp109__3, atspre_g1int2int_int_int(arg1)) ;
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12529(line=650, offs=12) -- 12559(line=650, offs=42)
*/
ATSINSmove(tmpret108__3, atspre_g1int_lt_int(arg0, tmp109__3)) ;
ATSfunbody_end()
ATSreturn(tmpret108__3) ;
} /* end of [ATSLIB_056_prelude__lt_g1int_int__50__3] */
#if(0)
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5151(line=274, offs=3) -- 5217(line=279, offs=2)
*/
/*
local:
global: add_intinf0_int$159$0(level=0)
local:
global:
*/
ATSextern()
/*
imparg =
tmparg =
tmpsub = None()
*/
atstkind_type(atstype_ptrk)
ATSCNTRB_056_HX_056_intinf_vt__add_intinf0_int__159(atstkind_type(atstype_ptrk) arg0, atstkind_t0ype(atstype_int) arg1)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret412, atstkind_type(atstype_ptrk)) ;
// ATStmpdec_void(tmp413) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/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 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5160(line=274, offs=12) -- 5217(line=279, offs=2)
*/
/*
letpush(beg)
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5184(line=277, offs=10) -- 5212(line=277, offs=38)
*/
ATSINSmove_void(tmp413, atscntrb_gmp_mpz_add2_int(ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), arg1)) ;
/*
letpush(end)
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5161(line=274, offs=13) -- 5162(line=274, offs=14)
*/
ATSINSmove(tmpret412, arg0) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5160(line=274, offs=12) -- 5217(line=279, offs=2)
*/
/*
INSletpop()
*/
ATSfunbody_end()
ATSreturn(tmpret412) ;
} /* end of [ATSCNTRB_056_HX_056_intinf_vt__add_intinf0_int__159] */
#endif // end of [TEMPLATE]
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5151(line=274, offs=3) -- 5217(line=279, offs=2)
*/
/*
local:
global: add_intinf0_int$159$1(level=2)
local:
global:
*/
ATSstatic()
/*
imparg =
tmparg =
tmpsub = Some()
*/
atstkind_type(atstype_ptrk)
ATSCNTRB_056_HX_056_intinf_vt__add_intinf0_int__159__1(atstkind_type(atstype_ptrk) arg0, atstkind_t0ype(atstype_int) arg1)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret412__1, atstkind_type(atstype_ptrk)) ;
// ATStmpdec_void(tmp413__1) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/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 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5160(line=274, offs=12) -- 5217(line=279, offs=2)
*/
/*
letpush(beg)
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5184(line=277, offs=10) -- 5212(line=277, offs=38)
*/
ATSINSmove_void(tmp413__1, atscntrb_gmp_mpz_add2_int(ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), arg1)) ;
/*
letpush(end)
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5161(line=274, offs=13) -- 5162(line=274, offs=14)
*/
ATSINSmove(tmpret412__1, arg0) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5160(line=274, offs=12) -- 5217(line=279, offs=2)
*/
/*
INSletpop()
*/
ATSfunbody_end()
ATSreturn(tmpret412__1) ;
} /* end of [ATSCNTRB_056_HX_056_intinf_vt__add_intinf0_int__159__1] */
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2209(line=74, offs=3) -- 2301(line=80, offs=2)
*/
/*
local:
global: intinf_make_int$43$2(level=2)
local:
global:
*/
ATSstatic()
/*
imparg =
tmparg =
tmpsub = Some()
*/
atstkind_type(atstype_ptrk)
ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__43__2(atstkind_t0ype(atstype_int) arg0)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret94__2, atstkind_type(atstype_ptrk)) ;
ATStmpdec(tmp95__2, atstkind_type(atstype_ptrk)) ;
// ATStmpdec_void(tmp96__2) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/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 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2)
*/
/*
letpush(beg)
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2238(line=77, offs=9) -- 2254(line=77, offs=25)
*/
ATSINSmove(tmp95__2, ATSLIB_056_prelude__ptr_alloc__1__5()) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2264(line=78, offs=10) -- 2296(line=78, offs=42)
*/
ATSINSmove_void(tmp96__2, atscntrb_gmp_mpz_init_set_int(ATSPMVrefarg1(ATSSELrecsin(tmp95__2, atstkind_type(atstype_ptrk), atslab__2)), arg0)) ;
/*
letpush(end)
*/
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2216(line=74, offs=10) -- 2217(line=74, offs=11)
*/
ATSINSmove(tmpret94__2, tmp95__2) ;
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2)
*/
/*
INSletpop()
*/
ATSfunbody_end()
ATSreturn(tmpret94__2) ;
} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__43__2] */
/*
/home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42)
*/
/*
local:
global: ptr_alloc$1$5(level=3)
local:
global:
*/
ATSstatic()
/*
imparg = a(4740)
tmparg = S2Evar(a(4740))
tmpsub = Some(a(4740) -> S2Ecst(mpz_vt0ype))
*/
atstkind_type(atstype_ptrk)
ATSLIB_056_prelude__ptr_alloc__1__5()
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret2__5, atstkind_type(atstype_ptrk)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/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 = /home/vanessa/.atspkg/0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42)
*/
ATSINSmove(tmpret2__5, atspre_ptr_alloc_tsz(ATSPMVsizeof(atscntrb_gmp_mpz))) ;
ATSfunbody_end()
ATSreturn(tmpret2__5) ;
} /* end of [ATSLIB_056_prelude__ptr_alloc__1__5] */
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 7551(line=283, offs=23) -- 7568(line=284, offs=12)
*/
/*
local: totient_148$0(level=0)
global: totient_148$0(level=0), totient_ats$163$0(level=0)
local:
global:
*/
ATSextern()
atstkind_t0ype(atstype_int)
totient_ats(atstkind_t0ype(atstype_int) arg0)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret422, atstkind_t0ype(atstype_int)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 7539(line=283, offs=11) -- 7569(line=284, offs=13)
*/
ATSINSflab(__patsflab_totient_ats):
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 7559(line=284, offs=3) -- 7568(line=284, offs=12)
*/
ATSINSmove(tmpret422, totient_148(arg0)) ;
ATSfunbody_end()
ATSreturn(tmpret422) ;
} /* end of [totient_ats] */
/*
/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 7592(line=286, offs=22) -- 7625(line=287, offs=25)
*/
/*
local: jacobi_87$0(level=0)
global: exp_3$0(level=0), sqrt_int_46$0(level=0), is_prime_48$0(level=0), div_gt_zero_86$0(level=0), jacobi_87$0(level=0), jacobi_ats$164$0(level=0)
local:
global:
*/
ATSextern()
atstkind_t0ype(atstype_int)
jacobi_ats(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1)
{
/* tmpvardeclst(beg) */
ATStmpdec(tmpret423, atstkind_t0ype(atstype_int)) ;
/* tmpvardeclst(end) */
ATSfunbody_beg()
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 7581(line=286, offs=11) -- 7625(line=287, offs=25)
*/
ATSINSflab(__patsflab_jacobi_ats):
/*
emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 7603(line=287, offs=3) -- 7625(line=287, offs=25)
*/
ATSINSmove(tmpret423, jacobi_87(arg0, ATSPMVcastfn(cast, atstkind_t0ype(atstype_int), arg1))) ;
ATSfunbody_end()
ATSreturn(tmpret423) ;
} /* end of [jacobi_ats] */
/*
** for initialization(dynloading)
*/
ATSdynloadflag_minit(_057_home_057_vanessa_057_programming_057_haskell_057_done_057_hs_055_ats_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_dats__dynloadflag) ;
ATSextern()
atsvoid_t0ype
_057_home_057_vanessa_057_programming_057_haskell_057_done_057_hs_055_ats_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_dats__dynload()
{
ATSfunbody_beg()
ATSdynload(/*void*/)
ATSdynloadflag_sta(
_057_home_057_vanessa_057_programming_057_haskell_057_done_057_hs_055_ats_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_dats__dynloadflag
) ;
ATSif(
ATSCKiseqz(
_057_home_057_vanessa_057_programming_057_haskell_057_done_057_hs_055_ats_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_dats__dynloadflag
)
) ATSthen() {
ATSdynloadset(_057_home_057_vanessa_057_programming_057_haskell_057_done_057_hs_055_ats_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_dats__dynloadflag) ;
/*
dynexnlst-initize(beg)
*/
/*
dynexnlst-initize(end)
*/
/* local */
/* in of [local] */
/* local */
/* in of [local] */
/* end of [local] */
/* local */
/* in of [local] */
/* end of [local] */
/* end of [local] */
} /* ATSendif */
ATSfunbody_end()
ATSreturn_void(tmpret_void) ;
} /* end of [*_dynload] */
/* ****** ****** */
/* end-of-compilation-unit */