diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -1,6 +1,6 @@ # fast-combinatorics -[![Build Status](https://travis-ci.org/vmchale/fast-combinatorics.svg?branch=master)](https://travis-ci.org/vmchale/fast-combinatorics) +[![Build Status](https://travis-ci.org/vmchale/fast-arithmetic.svg?branch=master)](https://travis-ci.org/vmchale/fast-arithmetic) This is a library for fast arithmetical functions using ATS, with a Haskell wrapper. diff --git a/ats-src/combinatorics-ffi.dats b/ats-src/combinatorics-ffi.dats --- a/ats-src/combinatorics-ffi.dats +++ b/ats-src/combinatorics-ffi.dats @@ -1,7 +1,13 @@ -#define ATS_MAINATSFLAG 1 - #include "share/atspre_staload.hats" #include "ats-src/combinatorics.dats" + +%{^ +#define ATS_MEMALLOC_LIBC +#include "ccomp/runtime/pats_ccomp_memalloc_libc.h" +#include "ccomp/runtime/pats_ccomp_runtime_memalloc.c" +%} + +#define ATS_MAINATSFLAG 1 extern fun choose_ats {n : nat}{ m : nat | m <= n } : (int(n), int(m)) -> Intinf = diff --git a/ats-src/combinatorics.dats b/ats-src/combinatorics.dats --- a/ats-src/combinatorics.dats +++ b/ats-src/combinatorics.dats @@ -1,28 +1,40 @@ #define ATS_MAINATSFLAG 1 #include "share/atspre_staload.hats" +#include "contrib/atscntrb-hx-intinf/mylibies.hats" -staload "contrib/atscntrb-hx-intinf/SATS/intinf_t.sats" -staload "libats/libc/SATS/math.sats" -staload "contrib/atscntrb-hx-intinf/SATS/intinf.sats" +staload "contrib/atscntrb-hx-intinf/SATS/intinf_vt.sats" staload UN = "prelude/SATS/unsafe.sats" +// TODO fancy/insane bit-flipping? fnx fact {n : nat} .. (k : int(n)) : [ n : nat | n > 0 ] intinf(n) = case+ k of | 0 => int2intinf(1) | 1 => int2intinf(1) - | k =>> $UN.cast(fact(k - 1) * k) + | k =>> $UN.castvwtp0(mul_intinf0_int(fact(k - 1), k)) // double factorial http://mathworld.wolfram.com/DoubleFactorial.html fnx dfact {n : nat} .. (k : int(n)) : Intinf = case+ k of | 0 => int2intinf(1) | 1 => int2intinf(1) - | k =>> k * dfact(k - 2) + | k =>> let + val x = dfact(k - 2) + val y = mul_intinf0_int(x, k) + in + y + end // Number of permutations on n objects using k at a time. -fn permutatsions {n : nat}{ k : nat | k <= n } (n : int(n), k : int(k)) : Intinf = - ndiv(fact(n), fact(n - k)) +fn permutations {n : nat}{ k : nat | k <= n } (n : int(n), k : int(k)) : Intinf = + let + val x = fact(n) + val y = fact(n - k) + val z = div_intinf0_intinf1(x, y) + val _ = intinf_free(y) + in + z + end // Number of permutations on n objects using k at a time. fn choose {n : nat}{ m : nat | m <= n } (n : int(n), k : int(m)) : Intinf = @@ -30,11 +42,23 @@ fun numerator_loop { m : nat | m > 1 } .. (i : int(m)) : [ n : nat | n > 0 ] intinf(n) = case+ i of | 1 => int2intinf(n) - | 2 => $UN.cast(int2intinf(n - 1) * n) - | i =>> $UN.cast((n + 1 - i) * numerator_loop(i - 1)) + | 2 => $UN.castvwtp0(int2intinf((n - 1) * n)) + | i =>> let + val x = numerator_loop(i - 1) + val y = mul_intinf0_int(x, n + 1 - i) + in + $UN.castvwtp0(y) + end in case+ k of | 0 => int2intinf(1) | 1 => int2intinf(n) - | k =>> ndiv(numerator_loop(k), fact(k)) + | k =>> let + val x = numerator_loop(k) + val y = fact(k) + val z = div_intinf0_intinf1(x, y) + val _ = intinf_free(y) + in + $UN.castvwtp0(z) + end end diff --git a/ats-src/number-theory.dats b/ats-src/number-theory.dats --- a/ats-src/number-theory.dats +++ b/ats-src/number-theory.dats @@ -1,12 +1,9 @@ #include "share/atspre_staload.hats" #include "ats-src/numerics.dats" -#include "contrib/atscntrb-hx-intinf/DATS/intinf_t.dats" -#include "contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats" +#include "contrib/atscntrb-hx-intinf/mylibies.hats" -staload "libats/libc/SATS/math.sats" staload UN = "prelude/SATS/unsafe.sats" -staload "contrib/atscntrb-hx-intinf/SATS/intinf.sats" -staload "contrib/atscntrb-hx-intinf/SATS/intinf_t.sats" +staload "contrib/atscntrb-hx-intinf/SATS/intinf_vt.sats" #define ATS_MAINATSFLAG 1 @@ -122,7 +119,12 @@ let fnx loop { n : nat | n >= 1 }{ m : nat | m >= n } .. (i : int(n), bound : int(m)) : Intinf = if i < bound then - loop(i + 1, bound) + witness(totient(i)) + let + val x = loop(i + 1, bound) + val y = add_intinf0_int(x, witness(totient(i))) + in + y + end else int2intinf(witness(totient(i))) in diff --git a/bench/Bench.hs b/bench/Bench.hs --- a/bench/Bench.hs +++ b/bench/Bench.hs @@ -1,6 +1,7 @@ module Main where import Criterion.Main +import Numeric.Combinatorics import Numeric.Integer import Numeric.NumberTheory import Numeric.Pure @@ -26,5 +27,13 @@ , bgroup "perfection check" [ bench "isPerfect" $ nf isPerfect 318 , bench "hsIsPerfect" $ nf hsIsPerfect (318 :: Int) + ] + , bgroup "factorial" + [ bench "factorial" $ nfIO (factorial 1000) + , bench "hsFactorial" $ nf hsFactorial (1000 :: Integer) + ] + , bgroup "choose" + [ bench "choose" $ nfIO (choose 322 16) + , bench "hsChoose" $ nf (hsChoose 322) (16 :: Integer) ] ] diff --git a/cbits/combinatorics.c b/cbits/combinatorics.c new file mode 100644 --- /dev/null +++ b/cbits/combinatorics.c @@ -0,0 +1,2805 @@ +/* +** +** The C code is generated by [ATS/Postiats-0-3-8] +** The starting compilation time is: 2018-1-6: 1h:14m +** +*/ + +/* +** include runtime header files +*/ +#ifndef _ATS_CCOMP_HEADER_NONE_ +#include "pats_ccomp_config.h" +#include "pats_ccomp_basics.h" +#include "pats_ccomp_typedefs.h" +#include "pats_ccomp_instrset.h" +#include "pats_ccomp_memalloc.h" +#ifndef _ATS_CCOMP_EXCEPTION_NONE_ +#include "pats_ccomp_memalloca.h" +#include "pats_ccomp_exception.h" +#endif // end of [_ATS_CCOMP_EXCEPTION_NONE_] +#endif /* _ATS_CCOMP_HEADER_NONE_ */ + + +/* +** include prelude cats files +*/ +#ifndef _ATS_CCOMP_PRELUDE_NONE_ +// +#include "prelude/CATS/basics.cats" +#include "prelude/CATS/integer.cats" +#include "prelude/CATS/pointer.cats" +#include "prelude/CATS/integer_long.cats" +#include "prelude/CATS/integer_size.cats" +#include "prelude/CATS/integer_short.cats" +#include "prelude/CATS/bool.cats" +#include "prelude/CATS/char.cats" +#include "prelude/CATS/float.cats" +#include "prelude/CATS/integer_ptr.cats" +#include "prelude/CATS/integer_fixed.cats" +#include "prelude/CATS/memory.cats" +#include "prelude/CATS/string.cats" +#include "prelude/CATS/strptr.cats" +// +#include "prelude/CATS/fprintf.cats" +// +#include "prelude/CATS/filebas.cats" +// +#include "prelude/CATS/list.cats" +#include "prelude/CATS/option.cats" +#include "prelude/CATS/array.cats" +#include "prelude/CATS/arrayptr.cats" +#include "prelude/CATS/arrayref.cats" +#include "prelude/CATS/matrix.cats" +#include "prelude/CATS/matrixptr.cats" +// +#endif /* _ATS_CCOMP_PRELUDE_NONE_ */ +/* +** for user-supplied prelude +*/ +#ifdef _ATS_CCOMP_PRELUDE_USER_ +// +#include _ATS_CCOMP_PRELUDE_USER_ +// +#endif /* _ATS_CCOMP_PRELUDE_USER_ */ +/* +** for user2-supplied prelude +*/ +#ifdef _ATS_CCOMP_PRELUDE_USER2_ +// +#include _ATS_CCOMP_PRELUDE_USER2_ +// +#endif /* _ATS_CCOMP_PRELUDE_USER2_ */ + +/* +staload-prologues(beg) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/basics.dats: 1636(line=50, offs=1) -- 1675(line=50, offs=40) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 1596(line=49, offs=1) -- 1635(line=49, offs=40) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/pointer.dats: 1533(line=44, offs=1) -- 1572(line=44, offs=40) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer_long.dats: 1602(line=49, offs=1) -- 1641(line=49, offs=40) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer_size.dats: 1597(line=49, offs=1) -- 1636(line=49, offs=40) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer_short.dats: 1603(line=49, offs=1) -- 1642(line=49, offs=40) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/char.dats: 1610(line=48, offs=1) -- 1649(line=48, offs=40) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/float.dats: 1636(line=50, offs=1) -- 1675(line=50, offs=40) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/string.dats: 1631(line=50, offs=1) -- 1670(line=50, offs=40) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/strptr.dats: 1629(line=50, offs=1) -- 1668(line=50, offs=40) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/strptr.dats: 1691(line=54, offs=1) -- 1738(line=54, offs=48) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 1596(line=49, offs=1) -- 1635(line=49, offs=40) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer_ptr.dats: 1601(line=49, offs=1) -- 1640(line=49, offs=40) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer_fixed.dats: 1603(line=49, offs=1) -- 1642(line=49, offs=40) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/memory.dats: 1410(line=38, offs=1) -- 1449(line=39, offs=32) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/filebas.dats: 1613(line=49, offs=1) -- 1652(line=50, offs=32) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/filebas.dats: 1675(line=54, offs=1) -- 1721(line=55, offs=39) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 1596(line=49, offs=1) -- 1635(line=49, offs=40) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/filebas.dats: 1744(line=59, offs=1) -- 1789(line=60, offs=38) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/libats/libc/SATS/stdio.sats: 1390(line=36, offs=1) -- 1437(line=39, offs=3) +*/ + +#include \ +"libats/libc/CATS/stdio.cats" +/* +/usr/local/lib/ats2-postiats-0.3.8/libats/libc/SATS/stdio.sats: 1950(line=69, offs=1) -- 1999(line=71, offs=34) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/libats/libc/SATS/sys/types.sats: 1390(line=36, offs=1) -- 1441(line=39, offs=3) +*/ + +#include \ +"libats/libc/CATS/sys/types.cats" +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/filebas.dats: 1871(line=66, offs=1) -- 1918(line=66, offs=48) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/libats/libc/SATS/sys/stat.sats: 1390(line=36, offs=1) -- 1440(line=39, offs=3) +*/ + +#include \ +"libats/libc/CATS/sys/stat.cats" +/* +/usr/local/lib/ats2-postiats-0.3.8/libats/libc/SATS/sys/stat.sats: 1756(line=58, offs=1) -- 1805(line=60, offs=34) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/libats/libc/SATS/sys/types.sats: 1390(line=36, offs=1) -- 1441(line=39, offs=3) +*/ + +#include \ +"libats/libc/CATS/sys/types.cats" +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/filebas.dats: 15552(line=879, offs=1) -- 15589(line=880, offs=30) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/libats/libc/SATS/stdio.sats: 1390(line=36, offs=1) -- 1437(line=39, offs=3) +*/ + +#include \ +"libats/libc/CATS/stdio.cats" +/* +/usr/local/lib/ats2-postiats-0.3.8/libats/libc/SATS/stdio.sats: 1950(line=69, offs=1) -- 1999(line=71, offs=34) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/libats/libc/SATS/sys/types.sats: 1390(line=36, offs=1) -- 1441(line=39, offs=3) +*/ + +#include \ +"libats/libc/CATS/sys/types.cats" +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/list.dats: 1529(line=44, offs=1) -- 1568(line=45, offs=32) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/list.dats: 1569(line=46, offs=1) -- 1615(line=47, offs=39) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/unsafe.dats: 1532(line=44, offs=1) -- 1566(line=44, offs=35) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/list_vt.dats: 1538(line=44, offs=1) -- 1577(line=45, offs=32) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/list_vt.dats: 1578(line=46, offs=1) -- 1624(line=47, offs=39) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/unsafe.dats: 1532(line=44, offs=1) -- 1566(line=44, offs=35) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/SHARE/list_vt_mergesort.dats: 1546(line=44, offs=1) -- 1585(line=44, offs=40) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/SHARE/list_vt_quicksort.dats: 1546(line=44, offs=1) -- 1585(line=44, offs=40) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/array.dats: 1534(line=44, offs=1) -- 1573(line=44, offs=40) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/array.dats: 1574(line=45, offs=1) -- 1616(line=45, offs=43) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/SHARE/array_bsearch.dats: 1531(line=44, offs=1) -- 1570(line=44, offs=40) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/SHARE/array_quicksort.dats: 1531(line=44, offs=1) -- 1570(line=44, offs=40) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/arrayptr.dats: 1532(line=44, offs=1) -- 1571(line=44, offs=40) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/arrayref.dats: 1532(line=44, offs=1) -- 1571(line=44, offs=40) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/matrix.dats: 1535(line=44, offs=1) -- 1574(line=44, offs=40) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/matrixptr.dats: 1538(line=44, offs=1) -- 1577(line=44, offs=40) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/matrixref.dats: 1538(line=44, offs=1) -- 1577(line=44, offs=40) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/stream.dats: 1523(line=44, offs=1) -- 1562(line=44, offs=40) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/stream_vt.dats: 1523(line=44, offs=1) -- 1562(line=44, offs=40) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/tostring.dats: 1528(line=44, offs=1) -- 1567(line=45, offs=32) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/unsafe.dats: 1532(line=44, offs=1) -- 1566(line=44, offs=35) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/checkast.dats: 1531(line=44, offs=1) -- 1570(line=45, offs=32) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/SATS/intinf_t.sats: 1805(line=48, offs=1) -- 1828(line=48, offs=24) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/SATS/intinf_vt.sats: 1806(line=48, offs=1) -- 1829(line=48, offs=24) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 1660(line=37, offs=1) -- 1700(line=38, offs=27) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 1727(line=42, offs=1) -- 1759(line=42, offs=33) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 1833(line=49, offs=1) -- 1867(line=49, offs=35) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/SATS/intinf_t.sats: 1805(line=48, offs=1) -- 1828(line=48, offs=24) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 1868(line=50, offs=1) -- 1908(line=50, offs=41) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/SATS/intinf_vt.sats: 1806(line=48, offs=1) -- 1829(line=48, offs=24) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 1656(line=37, offs=1) -- 1696(line=39, offs=27) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/mydepies.hats: 192(line=16, offs=1) -- 232(line=16, offs=41) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-libgmp/SATS/gmp.sats: 1178(line=38, offs=1) -- 1233(line=43, offs=3) +*/ + +// +#include \ +"atscntrb-libgmp/CATS/gmp.cats" +// +/* +/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 1813(line=49, offs=1) -- 1845(line=49, offs=33) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 1846(line=50, offs=1) -- 1881(line=50, offs=36) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/SATS/intinf_vt.sats: 1806(line=48, offs=1) -- 1829(line=48, offs=24) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/gintinf_t.dats: 1657(line=37, offs=1) -- 1689(line=37, offs=33) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/gintinf_t.dats: 1690(line=38, offs=1) -- 1724(line=38, offs=35) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/SATS/intinf_t.sats: 1805(line=48, offs=1) -- 1828(line=48, offs=24) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/SATS/intinf_vt.sats: 1806(line=48, offs=1) -- 1829(line=48, offs=24) +*/ +/* +staload-prologues(end) +*/ +/* +/home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics-ffi.dats: 77(line=4, offs=1) -- 216(line=8, offs=3) +*/ +ATSextcode_beg() +#define ATS_MEMALLOC_LIBC +#include "ccomp/runtime/pats_ccomp_memalloc_libc.h" +#include "ccomp/runtime/pats_ccomp_runtime_memalloc.c" +ATSextcode_end() +/* +typedefs-for-tyrecs-and-tysums(beg) +*/ +/* +typedefs-for-tyrecs-and-tysums(end) +*/ +/* +dynconlst-declaration(beg) +*/ +/* +dynconlst-declaration(end) +*/ +/* +dyncstlst-declaration(beg) +*/ +ATSdyncst_mac(atscntrb_gmp_mpz_init_set_int) +ATSdyncst_mac(atspre_ptr_alloc_tsz) +ATSdyncst_mac(atscntrb_gmp_mpz_mul2_int) +ATSdyncst_mac(atspre_g1int_sub_int) +ATSdyncst_mac(atscntrb_gmp_mpz_tdiv2_q_mpz) +ATSdyncst_mac(atscntrb_gmp_mpz_clear) +ATSdyncst_mac(atspre_ptr_free) +ATSdyncst_mac(atspre_g1int_mul_int) +ATSdyncst_mac(atspre_g1int_add_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) +fact_0(atstkind_t0ype(atstype_int)) ; + +#if(0) +#if(0) +ATSextern() +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__1(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__1__1(atstkind_t0ype(atstype_int)) ; + +#if(0) +#if(0) +ATSextern() +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__3() ; +#endif // end of [QUALIFIED] +#endif // end of [TEMPLATE] + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__3__1() ; + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__1__2(atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__3__2() ; + +#if(0) +#if(0) +ATSextern() +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_int__7(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__mul_intinf0_int__7__1(atstkind_type(atstype_ptrk), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_type(atstype_ptrk) +dfact_10(atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__1__3(atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__3__3() ; + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__1__4(atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__3__4() ; + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_int__7__2(atstkind_type(atstype_ptrk), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_type(atstype_ptrk) +permutations_16(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +#if(0) +#if(0) +ATSextern() +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__div_intinf0_intinf1__17(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__div_intinf0_intinf1__17__1(atstkind_type(atstype_ptrk), atsrefarg0_type(atstkind_type(atstype_ptrk))) ; + +#if(0) +#if(0) +ATSextern() +atsvoid_t0ype +ATSCNTRB_056_HX_056_intinf_vt__intinf_free__19(atstkind_type(atstype_ptrk)) ; +#endif // end of [QUALIFIED] +#endif // end of [TEMPLATE] + +ATSstatic() +atsvoid_t0ype +ATSCNTRB_056_HX_056_intinf_vt__intinf_free__19__1(atstkind_type(atstype_ptrk)) ; + +ATSstatic() +atstkind_type(atstype_ptrk) +choose_21(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_type(atstype_ptrk) +numerator_loop_22(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__1__5(atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__3__5() ; + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__1__6(atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__3__6() ; + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_int__7__3(atstkind_type(atstype_ptrk), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__1__7(atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__3__7() ; + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__1__8(atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__3__8() ; + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__div_intinf0_intinf1__17__2(atstkind_type(atstype_ptrk), atsrefarg0_type(atstkind_type(atstype_ptrk))) ; + +ATSstatic() +atsvoid_t0ype +ATSCNTRB_056_HX_056_intinf_vt__intinf_free__19__2(atstkind_type(atstype_ptrk)) ; + +#if(0) +ATSextern() +atstkind_type(atstype_ptrk) +choose_ats(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; +#endif // end of [QUALIFIED] + +#if(0) +ATSextern() +atstkind_type(atstype_ptrk) +double_factorial(atstkind_t0ype(atstype_int)) ; +#endif // end of [QUALIFIED] + +#if(0) +ATSextern() +atstkind_type(atstype_ptrk) +factorial_ats(atstkind_t0ype(atstype_int)) ; +#endif // end of [QUALIFIED] + +/* +/home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics.dats: 255(line=10, offs=5) -- 444(line=14, offs=59) +*/ +/* +local: fact_0$0(level=0) +global: fact_0$0(level=0) +local: +global: +*/ +ATSstatic() +atstkind_type(atstype_ptrk) +fact_0(atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(apy0, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmpret0, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp13, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp18, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp19, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +/* +emit_funent_fnxdeclst: +*/ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics.dats: 255(line=10, offs=5) -- 444(line=14, offs=59) +*/ +ATSINSflab(__patsflab_fact_0): +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics.dats: 325(line=11, offs=3) -- 444(line=14, offs=59) +*/ +ATScaseof_beg() +/* +** ibranchlst-beg +*/ +ATSbranch_beg() +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics.dats: 342(line=12, offs=7) -- 343(line=12, offs=8) +*/ +ATSINSlab(__atstmplab0): +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics.dats: 277(line=10, offs=27) -- 278(line=10, offs=28) +*/ +ATSifnthen(ATSCKpat_int(arg0, ATSPMVint(0))) { ATSINSgoto(__atstmplab2) ; } ; +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics.dats: 343(line=12, offs=8) -- 343(line=12, offs=8) +*/ +ATSINSlab(__atstmplab1): +/* +emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) +*/ +/* +ibranch-mbody: +*/ +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics.dats: 347(line=12, offs=12) -- 360(line=12, offs=25) +*/ +ATSINSmove(tmpret0, ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__1__1(ATSPMVi0nt(1))) ; + +ATSbranch_end() + +ATSbranch_beg() +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics.dats: 367(line=13, offs=7) -- 368(line=13, offs=8) +*/ +ATSINSlab(__atstmplab2): +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics.dats: 277(line=10, offs=27) -- 278(line=10, offs=28) +*/ +ATSifnthen(ATSCKpat_int(arg0, ATSPMVint(1))) { ATSINSgoto(__atstmplab4) ; } ; +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics.dats: 368(line=13, offs=8) -- 368(line=13, offs=8) +*/ +ATSINSlab(__atstmplab3): +/* +emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) +*/ +/* +ibranch-mbody: +*/ +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics.dats: 372(line=13, offs=12) -- 385(line=13, offs=25) +*/ +ATSINSmove(tmpret0, ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__1__2(ATSPMVi0nt(1))) ; + +ATSbranch_end() + +ATSbranch_beg() +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics.dats: 393(line=14, offs=8) -- 393(line=14, offs=8) +*/ +ATSINSlab(__atstmplab4): +/* +emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) +*/ +/* +ibranch-mbody: +*/ +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics.dats: 433(line=14, offs=48) -- 438(line=14, offs=53) +*/ +ATSINSmove(tmp19, atspre_g1int_sub_int(arg0, ATSPMVi0nt(1))) ; + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics.dats: 428(line=14, offs=43) -- 439(line=14, offs=54) +*/ +ATSINSmove(tmp18, fact_0(tmp19)) ; + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics.dats: 412(line=14, offs=27) -- 443(line=14, offs=58) +*/ +ATSINSmove(tmp13, ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_int__7__1(tmp18, arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics.dats: 398(line=14, offs=13) -- 444(line=14, offs=59) +*/ +ATSINSmove(tmpret0, ATSPMVcastfn(castvwtp0, atstkind_type(atstype_ptrk), tmp13)) ; +ATSbranch_end() + +/* +** ibranchlst-end +*/ +ATScaseof_end() + +ATSfunbody_end() +ATSreturn(tmpret0) ; +/* +emit_funent_fnxbodylst: +*/ +} /* end of [fact_0] */ + +#if(0) +/* +/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2209(line=74, offs=3) -- 2301(line=80, offs=2) +*/ +/* +local: +global: intinf_make_int$1$0(level=0) +local: +global: +*/ +ATSextern() +/* +imparg = +tmparg = +tmpsub = None() +*/ +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__1(atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret1, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp2, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp3) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2191(line=73, offs=1) -- 2301(line=80, offs=2) +*/ +ATSINSflab(__patsflab_intinf_make_int): +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2238(line=77, offs=9) -- 2254(line=77, offs=25) +*/ +ATSINSmove(tmp2, PMVtmpltcst(ptr_alloc)()) ; + +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2264(line=78, offs=10) -- 2296(line=78, offs=42) +*/ +ATSINSmove_void(tmp3, atscntrb_gmp_mpz_init_set_int(ATSPMVrefarg1(ATSSELrecsin(tmp2, atstkind_type(atstype_ptrk), atslab__2)), arg0)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2216(line=74, offs=10) -- 2217(line=74, offs=11) +*/ +ATSINSmove(tmpret1, tmp2) ; +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret1) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__1] */ +#endif // end of [TEMPLATE] + +/* +/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2209(line=74, offs=3) -- 2301(line=80, offs=2) +*/ +/* +local: +global: intinf_make_int$1$1(level=1) +local: +global: +*/ +ATSstatic() +/* +imparg = +tmparg = +tmpsub = Some() +*/ +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__1__1(atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret1__1, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp2__1, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp3__1) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2191(line=73, offs=1) -- 2301(line=80, offs=2) +*/ +ATSINSflab(__patsflab_intinf_make_int): +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2238(line=77, offs=9) -- 2254(line=77, offs=25) +*/ +ATSINSmove(tmp2__1, ATSLIB_056_prelude__ptr_alloc__3__1()) ; + +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2264(line=78, offs=10) -- 2296(line=78, offs=42) +*/ +ATSINSmove_void(tmp3__1, atscntrb_gmp_mpz_init_set_int(ATSPMVrefarg1(ATSSELrecsin(tmp2__1, atstkind_type(atstype_ptrk), atslab__2)), arg0)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2216(line=74, offs=10) -- 2217(line=74, offs=11) +*/ +ATSINSmove(tmpret1__1, tmp2__1) ; +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret1__1) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__1__1] */ + +#if(0) +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42) +*/ +/* +local: +global: ptr_alloc$3$0(level=0) +local: +global: +*/ +ATSextern() +/* +imparg = a(4806) +tmparg = S2Evar(a(4806)) +tmpsub = None() +*/ +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__3() +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret7, atstkind_type(atstype_ptrk)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3708(line=184, offs=1) -- 3749(line=184, offs=42) +*/ +ATSINSflab(__patsflab_ptr_alloc): +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42) +*/ +ATSINSmove(tmpret7, atspre_ptr_alloc_tsz(ATSPMVsizeof(atstyvar_type(a)))) ; + +ATSfunbody_end() +ATSreturn(tmpret7) ; +} /* end of [ATSLIB_056_prelude__ptr_alloc__3] */ +#endif // end of [TEMPLATE] + +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42) +*/ +/* +local: +global: ptr_alloc$3$1(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = a(4806) +tmparg = S2Evar(a(4806)) +tmpsub = Some(a(4806) -> S2Ecst(mpz_vt0ype)) +*/ +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__3__1() +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret7__1, atstkind_type(atstype_ptrk)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3708(line=184, offs=1) -- 3749(line=184, offs=42) +*/ +ATSINSflab(__patsflab_ptr_alloc): +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42) +*/ +ATSINSmove(tmpret7__1, atspre_ptr_alloc_tsz(ATSPMVsizeof(atscntrb_gmp_mpz))) ; + +ATSfunbody_end() +ATSreturn(tmpret7__1) ; +} /* end of [ATSLIB_056_prelude__ptr_alloc__3__1] */ + +/* +/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2209(line=74, offs=3) -- 2301(line=80, offs=2) +*/ +/* +local: +global: intinf_make_int$1$2(level=1) +local: +global: +*/ +ATSstatic() +/* +imparg = +tmparg = +tmpsub = Some() +*/ +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__1__2(atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret1__2, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp2__2, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp3__2) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2191(line=73, offs=1) -- 2301(line=80, offs=2) +*/ +ATSINSflab(__patsflab_intinf_make_int): +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2238(line=77, offs=9) -- 2254(line=77, offs=25) +*/ +ATSINSmove(tmp2__2, ATSLIB_056_prelude__ptr_alloc__3__2()) ; + +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2264(line=78, offs=10) -- 2296(line=78, offs=42) +*/ +ATSINSmove_void(tmp3__2, atscntrb_gmp_mpz_init_set_int(ATSPMVrefarg1(ATSSELrecsin(tmp2__2, atstkind_type(atstype_ptrk), atslab__2)), arg0)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2216(line=74, offs=10) -- 2217(line=74, offs=11) +*/ +ATSINSmove(tmpret1__2, tmp2__2) ; +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret1__2) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__1__2] */ + +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42) +*/ +/* +local: +global: ptr_alloc$3$2(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = a(4806) +tmparg = S2Evar(a(4806)) +tmpsub = Some(a(4806) -> S2Ecst(mpz_vt0ype)) +*/ +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__3__2() +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret7__2, atstkind_type(atstype_ptrk)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3708(line=184, offs=1) -- 3749(line=184, offs=42) +*/ +ATSINSflab(__patsflab_ptr_alloc): +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42) +*/ +ATSINSmove(tmpret7__2, atspre_ptr_alloc_tsz(ATSPMVsizeof(atscntrb_gmp_mpz))) ; + +ATSfunbody_end() +ATSreturn(tmpret7__2) ; +} /* end of [ATSLIB_056_prelude__ptr_alloc__3__2] */ + +#if(0) +/* +/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7394(line=413, offs=3) -- 7461(line=418, offs=2) +*/ +/* +local: +global: mul_intinf0_int$7$0(level=0) +local: +global: +*/ +ATSextern() +/* +imparg = +tmparg = +tmpsub = None() +*/ +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_int__7(atstkind_type(atstype_ptrk) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret14, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp15) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7376(line=412, offs=1) -- 7461(line=418, offs=2) +*/ +ATSINSflab(__patsflab_mul_intinf0_int): +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7403(line=413, offs=12) -- 7461(line=418, offs=2) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7427(line=416, offs=10) -- 7456(line=416, offs=39) +*/ +ATSINSmove_void(tmp15, atscntrb_gmp_mpz_mul2_int(ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), arg1)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7404(line=413, offs=13) -- 7405(line=413, offs=14) +*/ +ATSINSmove(tmpret14, arg0) ; +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7403(line=413, offs=12) -- 7461(line=418, offs=2) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret14) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_int__7] */ +#endif // end of [TEMPLATE] + +/* +/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7394(line=413, offs=3) -- 7461(line=418, offs=2) +*/ +/* +local: +global: mul_intinf0_int$7$1(level=1) +local: +global: +*/ +ATSstatic() +/* +imparg = +tmparg = +tmpsub = Some() +*/ +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_int__7__1(atstkind_type(atstype_ptrk) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret14__1, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp15__1) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7376(line=412, offs=1) -- 7461(line=418, offs=2) +*/ +ATSINSflab(__patsflab_mul_intinf0_int): +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7403(line=413, offs=12) -- 7461(line=418, offs=2) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7427(line=416, offs=10) -- 7456(line=416, offs=39) +*/ +ATSINSmove_void(tmp15__1, atscntrb_gmp_mpz_mul2_int(ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), arg1)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7404(line=413, offs=13) -- 7405(line=413, offs=14) +*/ +ATSINSmove(tmpret14__1, arg0) ; +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7403(line=413, offs=12) -- 7461(line=418, offs=2) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret14__1) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_int__7__1] */ + +/* +/home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics.dats: 520(line=17, offs=5) -- 730(line=26, offs=8) +*/ +/* +local: dfact_10$0(level=0) +global: dfact_10$0(level=0) +local: +global: +*/ +ATSstatic() +atstkind_type(atstype_ptrk) +dfact_10(atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(apy0, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmpret20, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp29, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp30, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +/* +emit_funent_fnxdeclst: +*/ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics.dats: 520(line=17, offs=5) -- 730(line=26, offs=8) +*/ +ATSINSflab(__patsflab_dfact_10): +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics.dats: 568(line=18, offs=3) -- 730(line=26, offs=8) +*/ +ATScaseof_beg() +/* +** ibranchlst-beg +*/ +ATSbranch_beg() +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics.dats: 585(line=19, offs=7) -- 586(line=19, offs=8) +*/ +ATSINSlab(__atstmplab5): +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics.dats: 543(line=17, offs=28) -- 544(line=17, offs=29) +*/ +ATSifnthen(ATSCKpat_int(arg0, ATSPMVint(0))) { ATSINSgoto(__atstmplab7) ; } ; +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics.dats: 586(line=19, offs=8) -- 586(line=19, offs=8) +*/ +ATSINSlab(__atstmplab6): +/* +emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) +*/ +/* +ibranch-mbody: +*/ +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics.dats: 590(line=19, offs=12) -- 603(line=19, offs=25) +*/ +ATSINSmove(tmpret20, ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__1__3(ATSPMVi0nt(1))) ; + +ATSbranch_end() + +ATSbranch_beg() +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics.dats: 610(line=20, offs=7) -- 611(line=20, offs=8) +*/ +ATSINSlab(__atstmplab7): +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics.dats: 543(line=17, offs=28) -- 544(line=17, offs=29) +*/ +ATSifnthen(ATSCKpat_int(arg0, ATSPMVint(1))) { ATSINSgoto(__atstmplab9) ; } ; +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics.dats: 611(line=20, offs=8) -- 611(line=20, offs=8) +*/ +ATSINSlab(__atstmplab8): +/* +emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) +*/ +/* +ibranch-mbody: +*/ +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics.dats: 615(line=20, offs=12) -- 628(line=20, offs=25) +*/ +ATSINSmove(tmpret20, ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__1__4(ATSPMVi0nt(1))) ; + +ATSbranch_end() + +ATSbranch_beg() +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics.dats: 636(line=21, offs=8) -- 636(line=21, offs=8) +*/ +ATSINSlab(__atstmplab9): +/* +emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) +*/ +/* +ibranch-mbody: +*/ +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics.dats: 641(line=21, offs=13) -- 730(line=26, offs=8) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics.dats: 665(line=22, offs=21) -- 670(line=22, offs=26) +*/ +ATSINSmove(tmp30, atspre_g1int_sub_int(arg0, ATSPMVi0nt(2))) ; + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics.dats: 659(line=22, offs=15) -- 671(line=22, offs=27) +*/ +ATSINSmove(tmp29, dfact_10(tmp30)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics.dats: 686(line=23, offs=15) -- 707(line=23, offs=36) +*/ +ATSINSmove(tmpret20, ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_int__7__2(tmp29, arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics.dats: 641(line=21, offs=13) -- 730(line=26, offs=8) +*/ +/* +INSletpop() +*/ +ATSbranch_end() + +/* +** ibranchlst-end +*/ +ATScaseof_end() + +ATSfunbody_end() +ATSreturn(tmpret20) ; +/* +emit_funent_fnxbodylst: +*/ +} /* end of [dfact_10] */ + +/* +/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2209(line=74, offs=3) -- 2301(line=80, offs=2) +*/ +/* +local: +global: intinf_make_int$1$3(level=1) +local: +global: +*/ +ATSstatic() +/* +imparg = +tmparg = +tmpsub = Some() +*/ +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__1__3(atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret1__3, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp2__3, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp3__3) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2191(line=73, offs=1) -- 2301(line=80, offs=2) +*/ +ATSINSflab(__patsflab_intinf_make_int): +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2238(line=77, offs=9) -- 2254(line=77, offs=25) +*/ +ATSINSmove(tmp2__3, ATSLIB_056_prelude__ptr_alloc__3__3()) ; + +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2264(line=78, offs=10) -- 2296(line=78, offs=42) +*/ +ATSINSmove_void(tmp3__3, atscntrb_gmp_mpz_init_set_int(ATSPMVrefarg1(ATSSELrecsin(tmp2__3, atstkind_type(atstype_ptrk), atslab__2)), arg0)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2216(line=74, offs=10) -- 2217(line=74, offs=11) +*/ +ATSINSmove(tmpret1__3, tmp2__3) ; +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret1__3) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__1__3] */ + +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42) +*/ +/* +local: +global: ptr_alloc$3$3(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = a(4806) +tmparg = S2Evar(a(4806)) +tmpsub = Some(a(4806) -> S2Ecst(mpz_vt0ype)) +*/ +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__3__3() +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret7__3, atstkind_type(atstype_ptrk)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3708(line=184, offs=1) -- 3749(line=184, offs=42) +*/ +ATSINSflab(__patsflab_ptr_alloc): +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42) +*/ +ATSINSmove(tmpret7__3, atspre_ptr_alloc_tsz(ATSPMVsizeof(atscntrb_gmp_mpz))) ; + +ATSfunbody_end() +ATSreturn(tmpret7__3) ; +} /* end of [ATSLIB_056_prelude__ptr_alloc__3__3] */ + +/* +/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2209(line=74, offs=3) -- 2301(line=80, offs=2) +*/ +/* +local: +global: intinf_make_int$1$4(level=1) +local: +global: +*/ +ATSstatic() +/* +imparg = +tmparg = +tmpsub = Some() +*/ +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__1__4(atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret1__4, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp2__4, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp3__4) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2191(line=73, offs=1) -- 2301(line=80, offs=2) +*/ +ATSINSflab(__patsflab_intinf_make_int): +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2238(line=77, offs=9) -- 2254(line=77, offs=25) +*/ +ATSINSmove(tmp2__4, ATSLIB_056_prelude__ptr_alloc__3__4()) ; + +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2264(line=78, offs=10) -- 2296(line=78, offs=42) +*/ +ATSINSmove_void(tmp3__4, atscntrb_gmp_mpz_init_set_int(ATSPMVrefarg1(ATSSELrecsin(tmp2__4, atstkind_type(atstype_ptrk), atslab__2)), arg0)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2216(line=74, offs=10) -- 2217(line=74, offs=11) +*/ +ATSINSmove(tmpret1__4, tmp2__4) ; +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret1__4) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__1__4] */ + +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42) +*/ +/* +local: +global: ptr_alloc$3$4(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = a(4806) +tmparg = S2Evar(a(4806)) +tmpsub = Some(a(4806) -> S2Ecst(mpz_vt0ype)) +*/ +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__3__4() +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret7__4, atstkind_type(atstype_ptrk)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3708(line=184, offs=1) -- 3749(line=184, offs=42) +*/ +ATSINSflab(__patsflab_ptr_alloc): +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42) +*/ +ATSINSmove(tmpret7__4, atspre_ptr_alloc_tsz(ATSPMVsizeof(atscntrb_gmp_mpz))) ; + +ATSfunbody_end() +ATSreturn(tmpret7__4) ; +} /* end of [ATSLIB_056_prelude__ptr_alloc__3__4] */ + +/* +/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7394(line=413, offs=3) -- 7461(line=418, offs=2) +*/ +/* +local: +global: mul_intinf0_int$7$2(level=1) +local: +global: +*/ +ATSstatic() +/* +imparg = +tmparg = +tmpsub = Some() +*/ +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_int__7__2(atstkind_type(atstype_ptrk) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret14__2, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp15__2) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7376(line=412, offs=1) -- 7461(line=418, offs=2) +*/ +ATSINSflab(__patsflab_mul_intinf0_int): +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7403(line=413, offs=12) -- 7461(line=418, offs=2) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7427(line=416, offs=10) -- 7456(line=416, offs=39) +*/ +ATSINSmove_void(tmp15__2, atscntrb_gmp_mpz_mul2_int(ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), arg1)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7404(line=413, offs=13) -- 7405(line=413, offs=14) +*/ +ATSINSmove(tmpret14__2, arg0) ; +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7403(line=413, offs=12) -- 7461(line=418, offs=2) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret14__2) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_int__7__2] */ + +/* +/home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics.dats: 793(line=29, offs=4) -- 1003(line=37, offs=6) +*/ +/* +local: fact_0$0(level=0) +global: fact_0$0(level=0), permutations_16$0(level=0) +local: +global: +*/ +ATSstatic() +atstkind_type(atstype_ptrk) +permutations_16(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret33, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp34, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp35, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp36, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp37, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp42) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics.dats: 793(line=29, offs=4) -- 1003(line=37, offs=6) +*/ +ATSINSflab(__patsflab_permutations_16): +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics.dats: 874(line=30, offs=3) -- 1003(line=37, offs=6) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics.dats: 890(line=31, offs=13) -- 896(line=31, offs=19) +*/ +ATSINSmove(tmp34, fact_0(arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics.dats: 915(line=32, offs=18) -- 920(line=32, offs=23) +*/ +ATSINSmove(tmp36, atspre_g1int_sub_int(arg0, arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics.dats: 910(line=32, offs=13) -- 921(line=32, offs=24) +*/ +ATSINSmove(tmp35, fact_0(tmp36)) ; + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics.dats: 934(line=33, offs=13) -- 959(line=33, offs=38) +*/ +ATSINSmove(tmp37, ATSCNTRB_056_HX_056_intinf_vt__div_intinf0_intinf1__17__1(tmp34, ATSPMVrefarg0(tmp35))) ; + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics.dats: 972(line=34, offs=13) -- 985(line=34, offs=26) +*/ +ATSINSmove_void(tmp42, ATSCNTRB_056_HX_056_intinf_vt__intinf_free__19__1(tmp35)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics.dats: 996(line=36, offs=5) -- 997(line=36, offs=6) +*/ +ATSINSmove(tmpret33, tmp37) ; +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics.dats: 874(line=30, offs=3) -- 1003(line=37, offs=6) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret33) ; +} /* end of [permutations_16] */ + +#if(0) +/* +/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9009(line=513, offs=3) -- 9083(line=518, offs=2) +*/ +/* +local: +global: div_intinf0_intinf1$17$0(level=0) +local: +global: +*/ +ATSextern() +/* +imparg = +tmparg = +tmpsub = None() +*/ +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__div_intinf0_intinf1__17(atstkind_type(atstype_ptrk) arg0, atsrefarg0_type(atstkind_type(atstype_ptrk)) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret38, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp39) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 8987(line=512, offs=1) -- 9083(line=518, offs=2) +*/ +ATSINSflab(__patsflab_div_intinf0_intinf1): +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9018(line=513, offs=12) -- 9083(line=518, offs=2) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9042(line=516, offs=10) -- 9078(line=516, offs=46) +*/ +ATSINSmove_void(tmp39, atscntrb_gmp_mpz_tdiv2_q_mpz(ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), ATSPMVrefarg1(ATSSELrecsin(arg1, atstkind_type(atstype_ptrk), atslab__2)))) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9019(line=513, offs=13) -- 9020(line=513, offs=14) +*/ +ATSINSmove(tmpret38, arg0) ; +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9018(line=513, offs=12) -- 9083(line=518, offs=2) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret38) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__div_intinf0_intinf1__17] */ +#endif // end of [TEMPLATE] + +/* +/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9009(line=513, offs=3) -- 9083(line=518, offs=2) +*/ +/* +local: +global: div_intinf0_intinf1$17$1(level=1) +local: +global: +*/ +ATSstatic() +/* +imparg = +tmparg = +tmpsub = Some() +*/ +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__div_intinf0_intinf1__17__1(atstkind_type(atstype_ptrk) arg0, atsrefarg0_type(atstkind_type(atstype_ptrk)) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret38__1, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp39__1) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 8987(line=512, offs=1) -- 9083(line=518, offs=2) +*/ +ATSINSflab(__patsflab_div_intinf0_intinf1): +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9018(line=513, offs=12) -- 9083(line=518, offs=2) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9042(line=516, offs=10) -- 9078(line=516, offs=46) +*/ +ATSINSmove_void(tmp39__1, atscntrb_gmp_mpz_tdiv2_q_mpz(ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), ATSPMVrefarg1(ATSSELrecsin(arg1, atstkind_type(atstype_ptrk), atslab__2)))) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9019(line=513, offs=13) -- 9020(line=513, offs=14) +*/ +ATSINSmove(tmpret38__1, arg0) ; +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9018(line=513, offs=12) -- 9083(line=518, offs=2) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret38__1) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__div_intinf0_intinf1__17__1] */ + +#if(0) +/* +/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2888(line=119, offs=12) -- 2987(line=122, offs=4) +*/ +/* +local: +global: intinf_free$19$0(level=0) +local: +global: +*/ +ATSextern() +/* +imparg = +tmparg = +tmpsub = None() +*/ +atsvoid_t0ype +ATSCNTRB_056_HX_056_intinf_vt__intinf_free__19(atstkind_type(atstype_ptrk) arg0) +{ +/* tmpvardeclst(beg) */ +// ATStmpdec_void(tmpret43) ; +// ATStmpdec_void(tmp44) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/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 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2894(line=119, offs=18) -- 2987(line=122, offs=4) +*/ +/* +letpush(beg) +*/ +/* (*nothing*) */ +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2936(line=121, offs=12) -- 2955(line=121, offs=31) +*/ +ATSINSmove_void(tmp44, atscntrb_gmp_mpz_clear(ATSPMVrefarg1(arg0))) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2959(line=121, offs=35) -- 2983(line=121, offs=59) +*/ +ATSINSmove_void(tmpret43, atspre_ptr_free(arg0)) ; + +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2894(line=119, offs=18) -- 2987(line=122, offs=4) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn_void(tmpret43) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_free__19] */ +#endif // end of [TEMPLATE] + +/* +/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2888(line=119, offs=12) -- 2987(line=122, offs=4) +*/ +/* +local: +global: intinf_free$19$1(level=1) +local: +global: +*/ +ATSstatic() +/* +imparg = +tmparg = +tmpsub = Some() +*/ +atsvoid_t0ype +ATSCNTRB_056_HX_056_intinf_vt__intinf_free__19__1(atstkind_type(atstype_ptrk) arg0) +{ +/* tmpvardeclst(beg) */ +// ATStmpdec_void(tmpret43__1) ; +// ATStmpdec_void(tmp44__1) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/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 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2894(line=119, offs=18) -- 2987(line=122, offs=4) +*/ +/* +letpush(beg) +*/ +/* (*nothing*) */ +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2936(line=121, offs=12) -- 2955(line=121, offs=31) +*/ +ATSINSmove_void(tmp44__1, atscntrb_gmp_mpz_clear(ATSPMVrefarg1(arg0))) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2959(line=121, offs=35) -- 2983(line=121, offs=59) +*/ +ATSINSmove_void(tmpret43__1, atspre_ptr_free(arg0)) ; + +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2894(line=119, offs=18) -- 2987(line=122, offs=4) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn_void(tmpret43__1) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_free__19__1] */ + +/* +/home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics.dats: 1066(line=40, offs=4) -- 1771(line=64, offs=6) +*/ +/* +local: fact_0$0(level=0) +global: fact_0$0(level=0), choose_21$0(level=0) +local: +global: +*/ +ATSstatic() +atstkind_type(atstype_ptrk) +choose_21(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret47, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp75, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp76, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp77, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp80) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics.dats: 1066(line=40, offs=4) -- 1771(line=64, offs=6) +*/ +ATSINSflab(__patsflab_choose_21): +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics.dats: 1141(line=41, offs=3) -- 1771(line=64, offs=6) +*/ +/* +letpush(beg) +*/ +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics.dats: 1508(line=53, offs=5) -- 1765(line=63, offs=10) +*/ +ATScaseof_beg() +/* +** ibranchlst-beg +*/ +ATSbranch_beg() +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics.dats: 1527(line=54, offs=9) -- 1528(line=54, offs=10) +*/ +ATSINSlab(__atstmplab15): +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics.dats: 1116(line=40, offs=54) -- 1117(line=40, offs=55) +*/ +ATSifnthen(ATSCKpat_int(arg1, ATSPMVint(0))) { ATSINSgoto(__atstmplab17) ; } ; +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics.dats: 1528(line=54, offs=10) -- 1528(line=54, offs=10) +*/ +ATSINSlab(__atstmplab16): +/* +emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) +*/ +/* +ibranch-mbody: +*/ +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics.dats: 1532(line=54, offs=14) -- 1545(line=54, offs=27) +*/ +ATSINSmove(tmpret47, ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__1__7(ATSPMVi0nt(1))) ; + +ATSbranch_end() + +ATSbranch_beg() +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics.dats: 1554(line=55, offs=9) -- 1555(line=55, offs=10) +*/ +ATSINSlab(__atstmplab17): +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics.dats: 1116(line=40, offs=54) -- 1117(line=40, offs=55) +*/ +ATSifnthen(ATSCKpat_int(arg1, ATSPMVint(1))) { ATSINSgoto(__atstmplab19) ; } ; +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics.dats: 1555(line=55, offs=10) -- 1555(line=55, offs=10) +*/ +ATSINSlab(__atstmplab18): +/* +emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) +*/ +/* +ibranch-mbody: +*/ +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics.dats: 1559(line=55, offs=14) -- 1571(line=55, offs=26) +*/ +ATSINSmove(tmpret47, ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__1__8(arg0)) ; + +ATSbranch_end() + +ATSbranch_beg() +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics.dats: 1582(line=56, offs=10) -- 1582(line=56, offs=10) +*/ +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/fast-arithmetic/ats-src/combinatorics.dats: 1587(line=56, offs=15) -- 1765(line=63, offs=10) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics.dats: 1607(line=57, offs=17) -- 1623(line=57, offs=33) +*/ +ATSINSmove(tmp75, numerator_loop_22(arg0, arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics.dats: 1641(line=58, offs=17) -- 1647(line=58, offs=23) +*/ +ATSINSmove(tmp76, fact_0(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics.dats: 1665(line=59, offs=17) -- 1690(line=59, offs=42) +*/ +ATSINSmove(tmp77, ATSCNTRB_056_HX_056_intinf_vt__div_intinf0_intinf1__17__2(tmp75, ATSPMVrefarg0(tmp76))) ; + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics.dats: 1707(line=60, offs=17) -- 1720(line=60, offs=30) +*/ +ATSINSmove_void(tmp80, ATSCNTRB_056_HX_056_intinf_vt__intinf_free__19__2(tmp76)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics.dats: 1739(line=62, offs=9) -- 1754(line=62, offs=24) +*/ +ATSINSmove(tmpret47, ATSPMVcastfn(castvwtp0, atstkind_type(atstype_ptrk), tmp77)) ; +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics.dats: 1587(line=56, offs=15) -- 1765(line=63, offs=10) +*/ +/* +INSletpop() +*/ +ATSbranch_end() + +/* +** ibranchlst-end +*/ +ATScaseof_end() + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics.dats: 1141(line=41, offs=3) -- 1771(line=64, offs=6) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret47) ; +} /* end of [choose_21] */ + +/* +/home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics.dats: 1153(line=42, offs=9) -- 1498(line=51, offs=12) +*/ +/* +local: numerator_loop_22$0(level=1) +global: numerator_loop_22$0(level=1) +local: n$5103(1)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))) +global: n$5103(1)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))) +*/ +ATSstatic() +atstkind_type(atstype_ptrk) +numerator_loop_22(atstkind_t0ype(atstype_int) env0, atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret48, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp53, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp58, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp59, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp60, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp61, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp62, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp65, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp66, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics.dats: 1153(line=42, offs=9) -- 1498(line=51, offs=12) +*/ +ATSINSflab(__patsflab_numerator_loop_22): +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics.dats: 1247(line=43, offs=7) -- 1498(line=51, offs=12) +*/ +ATScaseof_beg() +/* +** ibranchlst-beg +*/ +ATSbranch_beg() +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics.dats: 1268(line=44, offs=11) -- 1269(line=44, offs=12) +*/ +ATSINSlab(__atstmplab10): +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics.dats: 1195(line=42, offs=51) -- 1196(line=42, offs=52) +*/ +ATSifnthen(ATSCKpat_int(arg0, ATSPMVint(1))) { ATSINSgoto(__atstmplab12) ; } ; +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics.dats: 1269(line=44, offs=12) -- 1269(line=44, 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/fast-arithmetic/ats-src/combinatorics.dats: 1273(line=44, offs=16) -- 1285(line=44, offs=28) +*/ +ATSINSmove(tmpret48, ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__1__5(env0)) ; + +ATSbranch_end() + +ATSbranch_beg() +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics.dats: 1297(line=45, offs=11) -- 1298(line=45, offs=12) +*/ +ATSINSlab(__atstmplab12): +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics.dats: 1195(line=42, offs=51) -- 1196(line=42, offs=52) +*/ +ATSifnthen(ATSCKpat_int(arg0, ATSPMVint(2))) { ATSINSgoto(__atstmplab14) ; } ; +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics.dats: 1298(line=45, offs=12) -- 1298(line=45, offs=12) +*/ +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/fast-arithmetic/ats-src/combinatorics.dats: 1316(line=45, offs=30) -- 1339(line=45, offs=53) +*/ +ATSINSmove(tmp59, atspre_g1int_sub_int(env0, ATSPMVi0nt(1))) ; + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics.dats: 1316(line=45, offs=30) -- 1339(line=45, offs=53) +*/ +ATSINSmove(tmp58, atspre_g1int_mul_int(tmp59, env0)) ; + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics.dats: 1316(line=45, offs=30) -- 1339(line=45, offs=53) +*/ +ATSINSmove(tmp53, ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__1__6(tmp58)) ; + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics.dats: 1302(line=45, offs=16) -- 1340(line=45, offs=54) +*/ +ATSINSmove(tmpret48, ATSPMVcastfn(castvwtp0, atstkind_type(atstype_ptrk), tmp53)) ; +ATSbranch_end() + +ATSbranch_beg() +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics.dats: 1352(line=46, offs=12) -- 1352(line=46, offs=12) +*/ +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/fast-arithmetic/ats-src/combinatorics.dats: 1357(line=46, offs=17) -- 1498(line=51, offs=12) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics.dats: 1394(line=47, offs=34) -- 1399(line=47, offs=39) +*/ +ATSINSmove(tmp61, atspre_g1int_sub_int(arg0, ATSPMVi0nt(1))) ; + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics.dats: 1379(line=47, offs=19) -- 1400(line=47, offs=40) +*/ +ATSINSmove(tmp60, numerator_loop_22(env0, tmp61)) ; + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics.dats: 1438(line=48, offs=38) -- 1443(line=48, offs=43) +*/ +ATSINSmove(tmp66, atspre_g1int_add_int(env0, ATSPMVi0nt(1))) ; + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics.dats: 1438(line=48, offs=38) -- 1447(line=48, offs=47) +*/ +ATSINSmove(tmp65, atspre_g1int_sub_int(tmp66, arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics.dats: 1419(line=48, offs=19) -- 1448(line=48, offs=48) +*/ +ATSINSmove(tmp62, ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_int__7__3(tmp60, tmp65)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics.dats: 1470(line=50, offs=11) -- 1485(line=50, offs=26) +*/ +ATSINSmove(tmpret48, ATSPMVcastfn(castvwtp0, atstkind_type(atstype_ptrk), tmp62)) ; +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics.dats: 1357(line=46, offs=17) -- 1498(line=51, offs=12) +*/ +/* +INSletpop() +*/ +ATSbranch_end() + +/* +** ibranchlst-end +*/ +ATScaseof_end() + +ATSfunbody_end() +ATSreturn(tmpret48) ; +} /* end of [numerator_loop_22] */ + +/* +/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2209(line=74, offs=3) -- 2301(line=80, offs=2) +*/ +/* +local: +global: intinf_make_int$1$5(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = +tmparg = +tmpsub = Some() +*/ +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__1__5(atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret1__5, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp2__5, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp3__5) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2191(line=73, offs=1) -- 2301(line=80, offs=2) +*/ +ATSINSflab(__patsflab_intinf_make_int): +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2238(line=77, offs=9) -- 2254(line=77, offs=25) +*/ +ATSINSmove(tmp2__5, ATSLIB_056_prelude__ptr_alloc__3__5()) ; + +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2264(line=78, offs=10) -- 2296(line=78, offs=42) +*/ +ATSINSmove_void(tmp3__5, atscntrb_gmp_mpz_init_set_int(ATSPMVrefarg1(ATSSELrecsin(tmp2__5, atstkind_type(atstype_ptrk), atslab__2)), arg0)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2216(line=74, offs=10) -- 2217(line=74, offs=11) +*/ +ATSINSmove(tmpret1__5, tmp2__5) ; +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret1__5) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__1__5] */ + +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42) +*/ +/* +local: +global: ptr_alloc$3$5(level=3) +local: +global: +*/ +ATSstatic() +/* +imparg = a(4806) +tmparg = S2Evar(a(4806)) +tmpsub = Some(a(4806) -> S2Ecst(mpz_vt0ype)) +*/ +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__3__5() +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret7__5, atstkind_type(atstype_ptrk)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3708(line=184, offs=1) -- 3749(line=184, offs=42) +*/ +ATSINSflab(__patsflab_ptr_alloc): +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42) +*/ +ATSINSmove(tmpret7__5, atspre_ptr_alloc_tsz(ATSPMVsizeof(atscntrb_gmp_mpz))) ; + +ATSfunbody_end() +ATSreturn(tmpret7__5) ; +} /* end of [ATSLIB_056_prelude__ptr_alloc__3__5] */ + +/* +/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2209(line=74, offs=3) -- 2301(line=80, offs=2) +*/ +/* +local: +global: intinf_make_int$1$6(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = +tmparg = +tmpsub = Some() +*/ +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__1__6(atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret1__6, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp2__6, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp3__6) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2191(line=73, offs=1) -- 2301(line=80, offs=2) +*/ +ATSINSflab(__patsflab_intinf_make_int): +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2238(line=77, offs=9) -- 2254(line=77, offs=25) +*/ +ATSINSmove(tmp2__6, ATSLIB_056_prelude__ptr_alloc__3__6()) ; + +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2264(line=78, offs=10) -- 2296(line=78, offs=42) +*/ +ATSINSmove_void(tmp3__6, atscntrb_gmp_mpz_init_set_int(ATSPMVrefarg1(ATSSELrecsin(tmp2__6, atstkind_type(atstype_ptrk), atslab__2)), arg0)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2216(line=74, offs=10) -- 2217(line=74, offs=11) +*/ +ATSINSmove(tmpret1__6, tmp2__6) ; +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret1__6) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__1__6] */ + +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42) +*/ +/* +local: +global: ptr_alloc$3$6(level=3) +local: +global: +*/ +ATSstatic() +/* +imparg = a(4806) +tmparg = S2Evar(a(4806)) +tmpsub = Some(a(4806) -> S2Ecst(mpz_vt0ype)) +*/ +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__3__6() +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret7__6, atstkind_type(atstype_ptrk)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3708(line=184, offs=1) -- 3749(line=184, offs=42) +*/ +ATSINSflab(__patsflab_ptr_alloc): +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42) +*/ +ATSINSmove(tmpret7__6, atspre_ptr_alloc_tsz(ATSPMVsizeof(atscntrb_gmp_mpz))) ; + +ATSfunbody_end() +ATSreturn(tmpret7__6) ; +} /* end of [ATSLIB_056_prelude__ptr_alloc__3__6] */ + +/* +/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7394(line=413, offs=3) -- 7461(line=418, offs=2) +*/ +/* +local: +global: mul_intinf0_int$7$3(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = +tmparg = +tmpsub = Some() +*/ +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_int__7__3(atstkind_type(atstype_ptrk) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret14__3, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp15__3) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7376(line=412, offs=1) -- 7461(line=418, offs=2) +*/ +ATSINSflab(__patsflab_mul_intinf0_int): +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7403(line=413, offs=12) -- 7461(line=418, offs=2) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7427(line=416, offs=10) -- 7456(line=416, offs=39) +*/ +ATSINSmove_void(tmp15__3, atscntrb_gmp_mpz_mul2_int(ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), arg1)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7404(line=413, offs=13) -- 7405(line=413, offs=14) +*/ +ATSINSmove(tmpret14__3, arg0) ; +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7403(line=413, offs=12) -- 7461(line=418, offs=2) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret14__3) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_int__7__3] */ + +/* +/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2209(line=74, offs=3) -- 2301(line=80, offs=2) +*/ +/* +local: +global: intinf_make_int$1$7(level=1) +local: +global: +*/ +ATSstatic() +/* +imparg = +tmparg = +tmpsub = Some() +*/ +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__1__7(atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret1__7, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp2__7, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp3__7) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2191(line=73, offs=1) -- 2301(line=80, offs=2) +*/ +ATSINSflab(__patsflab_intinf_make_int): +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2238(line=77, offs=9) -- 2254(line=77, offs=25) +*/ +ATSINSmove(tmp2__7, ATSLIB_056_prelude__ptr_alloc__3__7()) ; + +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2264(line=78, offs=10) -- 2296(line=78, offs=42) +*/ +ATSINSmove_void(tmp3__7, atscntrb_gmp_mpz_init_set_int(ATSPMVrefarg1(ATSSELrecsin(tmp2__7, atstkind_type(atstype_ptrk), atslab__2)), arg0)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2216(line=74, offs=10) -- 2217(line=74, offs=11) +*/ +ATSINSmove(tmpret1__7, tmp2__7) ; +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret1__7) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__1__7] */ + +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42) +*/ +/* +local: +global: ptr_alloc$3$7(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = a(4806) +tmparg = S2Evar(a(4806)) +tmpsub = Some(a(4806) -> S2Ecst(mpz_vt0ype)) +*/ +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__3__7() +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret7__7, atstkind_type(atstype_ptrk)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3708(line=184, offs=1) -- 3749(line=184, offs=42) +*/ +ATSINSflab(__patsflab_ptr_alloc): +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42) +*/ +ATSINSmove(tmpret7__7, atspre_ptr_alloc_tsz(ATSPMVsizeof(atscntrb_gmp_mpz))) ; + +ATSfunbody_end() +ATSreturn(tmpret7__7) ; +} /* end of [ATSLIB_056_prelude__ptr_alloc__3__7] */ + +/* +/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2209(line=74, offs=3) -- 2301(line=80, offs=2) +*/ +/* +local: +global: intinf_make_int$1$8(level=1) +local: +global: +*/ +ATSstatic() +/* +imparg = +tmparg = +tmpsub = Some() +*/ +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__1__8(atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret1__8, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp2__8, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp3__8) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2191(line=73, offs=1) -- 2301(line=80, offs=2) +*/ +ATSINSflab(__patsflab_intinf_make_int): +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2238(line=77, offs=9) -- 2254(line=77, offs=25) +*/ +ATSINSmove(tmp2__8, ATSLIB_056_prelude__ptr_alloc__3__8()) ; + +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2264(line=78, offs=10) -- 2296(line=78, offs=42) +*/ +ATSINSmove_void(tmp3__8, atscntrb_gmp_mpz_init_set_int(ATSPMVrefarg1(ATSSELrecsin(tmp2__8, atstkind_type(atstype_ptrk), atslab__2)), arg0)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2216(line=74, offs=10) -- 2217(line=74, offs=11) +*/ +ATSINSmove(tmpret1__8, tmp2__8) ; +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret1__8) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__1__8] */ + +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42) +*/ +/* +local: +global: ptr_alloc$3$8(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = a(4806) +tmparg = S2Evar(a(4806)) +tmpsub = Some(a(4806) -> S2Ecst(mpz_vt0ype)) +*/ +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__3__8() +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret7__8, atstkind_type(atstype_ptrk)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3708(line=184, offs=1) -- 3749(line=184, offs=42) +*/ +ATSINSflab(__patsflab_ptr_alloc): +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42) +*/ +ATSINSmove(tmpret7__8, atspre_ptr_alloc_tsz(ATSPMVsizeof(atscntrb_gmp_mpz))) ; + +ATSfunbody_end() +ATSreturn(tmpret7__8) ; +} /* end of [ATSLIB_056_prelude__ptr_alloc__3__8] */ + +/* +/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9009(line=513, offs=3) -- 9083(line=518, offs=2) +*/ +/* +local: +global: div_intinf0_intinf1$17$2(level=1) +local: +global: +*/ +ATSstatic() +/* +imparg = +tmparg = +tmpsub = Some() +*/ +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__div_intinf0_intinf1__17__2(atstkind_type(atstype_ptrk) arg0, atsrefarg0_type(atstkind_type(atstype_ptrk)) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret38__2, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp39__2) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 8987(line=512, offs=1) -- 9083(line=518, offs=2) +*/ +ATSINSflab(__patsflab_div_intinf0_intinf1): +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9018(line=513, offs=12) -- 9083(line=518, offs=2) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9042(line=516, offs=10) -- 9078(line=516, offs=46) +*/ +ATSINSmove_void(tmp39__2, atscntrb_gmp_mpz_tdiv2_q_mpz(ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), ATSPMVrefarg1(ATSSELrecsin(arg1, atstkind_type(atstype_ptrk), atslab__2)))) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9019(line=513, offs=13) -- 9020(line=513, offs=14) +*/ +ATSINSmove(tmpret38__2, arg0) ; +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9018(line=513, offs=12) -- 9083(line=518, offs=2) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret38__2) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__div_intinf0_intinf1__17__2] */ + +/* +/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2888(line=119, offs=12) -- 2987(line=122, offs=4) +*/ +/* +local: +global: intinf_free$19$2(level=1) +local: +global: +*/ +ATSstatic() +/* +imparg = +tmparg = +tmpsub = Some() +*/ +atsvoid_t0ype +ATSCNTRB_056_HX_056_intinf_vt__intinf_free__19__2(atstkind_type(atstype_ptrk) arg0) +{ +/* tmpvardeclst(beg) */ +// ATStmpdec_void(tmpret43__2) ; +// ATStmpdec_void(tmp44__2) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/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 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2894(line=119, offs=18) -- 2987(line=122, offs=4) +*/ +/* +letpush(beg) +*/ +/* (*nothing*) */ +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2936(line=121, offs=12) -- 2955(line=121, offs=31) +*/ +ATSINSmove_void(tmp44__2, atscntrb_gmp_mpz_clear(ATSPMVrefarg1(arg0))) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2959(line=121, offs=35) -- 2983(line=121, offs=59) +*/ +ATSINSmove_void(tmpret43__2, atspre_ptr_free(arg0)) ; + +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2894(line=119, offs=18) -- 2987(line=122, offs=4) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn_void(tmpret43__2) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_free__19__2] */ + +/* +/home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics-ffi.dats: 494(line=24, offs=22) -- 517(line=25, offs=15) +*/ +/* +local: choose_21$0(level=0) +global: fact_0$0(level=0), choose_21$0(level=0), choose_ats$36$0(level=0) +local: +global: +*/ +ATSextern() +atstkind_type(atstype_ptrk) +choose_ats(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret83, atstkind_type(atstype_ptrk)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics-ffi.dats: 483(line=24, offs=11) -- 517(line=25, offs=15) +*/ +ATSINSflab(__patsflab_choose_ats): +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics-ffi.dats: 505(line=25, offs=3) -- 517(line=25, offs=15) +*/ +ATSINSmove(tmpret83, choose_21(arg0, arg1)) ; + +ATSfunbody_end() +ATSreturn(tmpret83) ; +} /* end of [choose_ats] */ + +/* +/home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics-ffi.dats: 546(line=27, offs=28) -- 561(line=28, offs=10) +*/ +/* +local: dfact_10$0(level=0) +global: dfact_10$0(level=0), double_factorial$37$0(level=0) +local: +global: +*/ +ATSextern() +atstkind_type(atstype_ptrk) +double_factorial(atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret84, atstkind_type(atstype_ptrk)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics-ffi.dats: 529(line=27, offs=11) -- 562(line=28, offs=11) +*/ +ATSINSflab(__patsflab_double_factorial): +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics-ffi.dats: 554(line=28, offs=3) -- 561(line=28, offs=10) +*/ +ATSINSmove(tmpret84, dfact_10(arg0)) ; + +ATSfunbody_end() +ATSreturn(tmpret84) ; +} /* end of [double_factorial] */ + +/* +/home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics-ffi.dats: 588(line=30, offs=25) -- 602(line=31, offs=9) +*/ +/* +local: fact_0$0(level=0) +global: fact_0$0(level=0), factorial_ats$38$0(level=0) +local: +global: +*/ +ATSextern() +atstkind_type(atstype_ptrk) +factorial_ats(atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret85, atstkind_type(atstype_ptrk)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics-ffi.dats: 574(line=30, offs=11) -- 603(line=31, offs=10) +*/ +ATSINSflab(__patsflab_factorial_ats): +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/combinatorics-ffi.dats: 596(line=31, offs=3) -- 602(line=31, offs=9) +*/ +ATSINSmove(tmpret85, fact_0(arg0)) ; + +ATSfunbody_end() +ATSreturn(tmpret85) ; +} /* end of [factorial_ats] */ + +/* +** for initialization(dynloading) +*/ +ATSdynloadflag_minit(_057_home_057_vanessa_057_programming_057_haskell_057_done_057_fast_055_arithmetic_057_ats_055_src_057_combinatorics_055_ffi_056_dats__dynloadflag) ; +ATSextern() +atsvoid_t0ype +_057_home_057_vanessa_057_programming_057_haskell_057_done_057_fast_055_arithmetic_057_ats_055_src_057_combinatorics_055_ffi_056_dats__dynload() +{ +ATSfunbody_beg() +ATSdynload(/*void*/) +ATSdynloadflag_sta( +_057_home_057_vanessa_057_programming_057_haskell_057_done_057_fast_055_arithmetic_057_ats_055_src_057_combinatorics_055_ffi_056_dats__dynloadflag +) ; +ATSif( +ATSCKiseqz( +_057_home_057_vanessa_057_programming_057_haskell_057_done_057_fast_055_arithmetic_057_ats_055_src_057_combinatorics_055_ffi_056_dats__dynloadflag +) +) ATSthen() { +ATSdynloadset(_057_home_057_vanessa_057_programming_057_haskell_057_done_057_fast_055_arithmetic_057_ats_055_src_057_combinatorics_055_ffi_056_dats__dynloadflag) ; +/* +dynexnlst-initize(beg) +*/ +/* +dynexnlst-initize(end) +*/ +/* local */ +/* in of [local] */ +/* end of [local] */ +} /* ATSendif */ +ATSfunbody_end() +ATSreturn_void(tmpret_void) ; +} /* end of [*_dynload] */ + +/* ****** ****** */ + +/* end-of-compilation-unit */ diff --git a/cbits/number-theory.c b/cbits/number-theory.c --- a/cbits/number-theory.c +++ b/cbits/number-theory.c @@ -1,11425 +1,4362 @@ /* ** ** The C code is generated by [ATS/Postiats-0-3-8] -** The starting compilation time is: 2018-1-4: 15h:31m -** -*/ - -/* -** include runtime header files -*/ -#ifndef _ATS_CCOMP_HEADER_NONE_ -#include "pats_ccomp_config.h" -#include "pats_ccomp_basics.h" -#include "pats_ccomp_typedefs.h" -#include "pats_ccomp_instrset.h" -#include "pats_ccomp_memalloc.h" -#ifndef _ATS_CCOMP_EXCEPTION_NONE_ -#include "pats_ccomp_memalloca.h" -#include "pats_ccomp_exception.h" -#endif // end of [_ATS_CCOMP_EXCEPTION_NONE_] -#endif /* _ATS_CCOMP_HEADER_NONE_ */ - - -/* -** include prelude cats files -*/ -#ifndef _ATS_CCOMP_PRELUDE_NONE_ -// -#include "prelude/CATS/basics.cats" -#include "prelude/CATS/integer.cats" -#include "prelude/CATS/pointer.cats" -#include "prelude/CATS/integer_long.cats" -#include "prelude/CATS/integer_size.cats" -#include "prelude/CATS/integer_short.cats" -#include "prelude/CATS/bool.cats" -#include "prelude/CATS/char.cats" -#include "prelude/CATS/float.cats" -#include "prelude/CATS/integer_ptr.cats" -#include "prelude/CATS/integer_fixed.cats" -#include "prelude/CATS/memory.cats" -#include "prelude/CATS/string.cats" -#include "prelude/CATS/strptr.cats" -// -#include "prelude/CATS/fprintf.cats" -// -#include "prelude/CATS/filebas.cats" -// -#include "prelude/CATS/list.cats" -#include "prelude/CATS/option.cats" -#include "prelude/CATS/array.cats" -#include "prelude/CATS/arrayptr.cats" -#include "prelude/CATS/arrayref.cats" -#include "prelude/CATS/matrix.cats" -#include "prelude/CATS/matrixptr.cats" -// -#endif /* _ATS_CCOMP_PRELUDE_NONE_ */ -/* -** for user-supplied prelude -*/ -#ifdef _ATS_CCOMP_PRELUDE_USER_ -// -#include _ATS_CCOMP_PRELUDE_USER_ -// -#endif /* _ATS_CCOMP_PRELUDE_USER_ */ -/* -** for user2-supplied prelude -*/ -#ifdef _ATS_CCOMP_PRELUDE_USER2_ -// -#include _ATS_CCOMP_PRELUDE_USER2_ -// -#endif /* _ATS_CCOMP_PRELUDE_USER2_ */ - -/* -staload-prologues(beg) -*/ -/* -/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/basics.dats: 1636(line=50, offs=1) -- 1675(line=50, offs=40) -*/ -/* -/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 1596(line=49, offs=1) -- 1635(line=49, offs=40) -*/ -/* -/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/pointer.dats: 1533(line=44, offs=1) -- 1572(line=44, offs=40) -*/ -/* -/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer_long.dats: 1602(line=49, offs=1) -- 1641(line=49, offs=40) -*/ -/* -/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer_size.dats: 1597(line=49, offs=1) -- 1636(line=49, offs=40) -*/ -/* -/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer_short.dats: 1603(line=49, offs=1) -- 1642(line=49, offs=40) -*/ -/* -/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/char.dats: 1610(line=48, offs=1) -- 1649(line=48, offs=40) -*/ -/* -/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/float.dats: 1636(line=50, offs=1) -- 1675(line=50, offs=40) -*/ -/* -/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/string.dats: 1631(line=50, offs=1) -- 1670(line=50, offs=40) -*/ -/* -/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/strptr.dats: 1629(line=50, offs=1) -- 1668(line=50, offs=40) -*/ -/* -/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/strptr.dats: 1691(line=54, offs=1) -- 1738(line=54, offs=48) -*/ -/* -/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 1596(line=49, offs=1) -- 1635(line=49, offs=40) -*/ -/* -/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer_ptr.dats: 1601(line=49, offs=1) -- 1640(line=49, offs=40) -*/ -/* -/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer_fixed.dats: 1603(line=49, offs=1) -- 1642(line=49, offs=40) -*/ -/* -/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/memory.dats: 1410(line=38, offs=1) -- 1449(line=39, offs=32) -*/ -/* -/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/filebas.dats: 1613(line=49, offs=1) -- 1652(line=50, offs=32) -*/ -/* -/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/filebas.dats: 1675(line=54, offs=1) -- 1721(line=55, offs=39) -*/ -/* -/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 1596(line=49, offs=1) -- 1635(line=49, offs=40) -*/ -/* -/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/filebas.dats: 1744(line=59, offs=1) -- 1789(line=60, offs=38) -*/ -/* -/usr/local/lib/ats2-postiats-0.3.8/libats/libc/SATS/stdio.sats: 1390(line=36, offs=1) -- 1437(line=39, offs=3) -*/ - -#include \ -"libats/libc/CATS/stdio.cats" -/* -/usr/local/lib/ats2-postiats-0.3.8/libats/libc/SATS/stdio.sats: 1950(line=69, offs=1) -- 1999(line=71, offs=34) -*/ -/* -/usr/local/lib/ats2-postiats-0.3.8/libats/libc/SATS/sys/types.sats: 1390(line=36, offs=1) -- 1441(line=39, offs=3) -*/ - -#include \ -"libats/libc/CATS/sys/types.cats" -/* -/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/filebas.dats: 1871(line=66, offs=1) -- 1918(line=66, offs=48) -*/ -/* -/usr/local/lib/ats2-postiats-0.3.8/libats/libc/SATS/sys/stat.sats: 1390(line=36, offs=1) -- 1440(line=39, offs=3) -*/ - -#include \ -"libats/libc/CATS/sys/stat.cats" -/* -/usr/local/lib/ats2-postiats-0.3.8/libats/libc/SATS/sys/stat.sats: 1756(line=58, offs=1) -- 1805(line=60, offs=34) -*/ -/* -/usr/local/lib/ats2-postiats-0.3.8/libats/libc/SATS/sys/types.sats: 1390(line=36, offs=1) -- 1441(line=39, offs=3) -*/ - -#include \ -"libats/libc/CATS/sys/types.cats" -/* -/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/filebas.dats: 15552(line=879, offs=1) -- 15589(line=880, offs=30) -*/ -/* -/usr/local/lib/ats2-postiats-0.3.8/libats/libc/SATS/stdio.sats: 1390(line=36, offs=1) -- 1437(line=39, offs=3) -*/ - -#include \ -"libats/libc/CATS/stdio.cats" -/* -/usr/local/lib/ats2-postiats-0.3.8/libats/libc/SATS/stdio.sats: 1950(line=69, offs=1) -- 1999(line=71, offs=34) -*/ -/* -/usr/local/lib/ats2-postiats-0.3.8/libats/libc/SATS/sys/types.sats: 1390(line=36, offs=1) -- 1441(line=39, offs=3) -*/ - -#include \ -"libats/libc/CATS/sys/types.cats" -/* -/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/list.dats: 1529(line=44, offs=1) -- 1568(line=45, offs=32) -*/ -/* -/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/list.dats: 1569(line=46, offs=1) -- 1615(line=47, offs=39) -*/ -/* -/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/unsafe.dats: 1532(line=44, offs=1) -- 1566(line=44, offs=35) -*/ -/* -/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/list_vt.dats: 1538(line=44, offs=1) -- 1577(line=45, offs=32) -*/ -/* -/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/list_vt.dats: 1578(line=46, offs=1) -- 1624(line=47, offs=39) -*/ -/* -/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/unsafe.dats: 1532(line=44, offs=1) -- 1566(line=44, offs=35) -*/ -/* -/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/SHARE/list_vt_mergesort.dats: 1546(line=44, offs=1) -- 1585(line=44, offs=40) -*/ -/* -/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/SHARE/list_vt_quicksort.dats: 1546(line=44, offs=1) -- 1585(line=44, offs=40) -*/ -/* -/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/array.dats: 1534(line=44, offs=1) -- 1573(line=44, offs=40) -*/ -/* -/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/array.dats: 1574(line=45, offs=1) -- 1616(line=45, offs=43) -*/ -/* -/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/SHARE/array_bsearch.dats: 1531(line=44, offs=1) -- 1570(line=44, offs=40) -*/ -/* -/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/SHARE/array_quicksort.dats: 1531(line=44, offs=1) -- 1570(line=44, offs=40) -*/ -/* -/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/arrayptr.dats: 1532(line=44, offs=1) -- 1571(line=44, offs=40) -*/ -/* -/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/arrayref.dats: 1532(line=44, offs=1) -- 1571(line=44, offs=40) -*/ -/* -/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/matrix.dats: 1535(line=44, offs=1) -- 1574(line=44, offs=40) -*/ -/* -/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/matrixptr.dats: 1538(line=44, offs=1) -- 1577(line=44, offs=40) -*/ -/* -/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/matrixref.dats: 1538(line=44, offs=1) -- 1577(line=44, offs=40) -*/ -/* -/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/stream.dats: 1523(line=44, offs=1) -- 1562(line=44, offs=40) -*/ -/* -/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/stream_vt.dats: 1523(line=44, offs=1) -- 1562(line=44, offs=40) -*/ -/* -/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/tostring.dats: 1528(line=44, offs=1) -- 1567(line=45, offs=32) -*/ -/* -/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/unsafe.dats: 1532(line=44, offs=1) -- 1566(line=44, offs=35) -*/ -/* -/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/checkast.dats: 1531(line=44, offs=1) -- 1570(line=45, offs=32) -*/ -/* -/usr/local/lib/ats2-postiats-0.3.8/libats/libc/SATS/math.sats: 1380(line=35, offs=1) -- 1426(line=38, offs=3) -*/ - -#include \ -"libats/libc/CATS/math.cats" -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/SATS/intinf_t.sats: 1805(line=48, offs=1) -- 1828(line=48, offs=24) -*/ -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/SATS/intinf_vt.sats: 1806(line=48, offs=1) -- 1829(line=48, offs=24) -*/ -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-libgmp/SATS/gmp.sats: 1178(line=38, offs=1) -- 1233(line=43, offs=3) -*/ - -// -#include \ -"atscntrb-libgmp/CATS/gmp.cats" -// -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/SATS/intinf_vt.sats: 1806(line=48, offs=1) -- 1829(line=48, offs=24) -*/ -/* -/usr/local/lib/ats2-postiats-0.3.8/libats/libc/SATS/math.sats: 1380(line=35, offs=1) -- 1426(line=38, offs=3) -*/ - -#include \ -"libats/libc/CATS/math.cats" -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/SATS/intinf_t.sats: 1805(line=48, offs=1) -- 1828(line=48, offs=24) -*/ -/* -staload-prologues(end) -*/ -/* -typedefs-for-tyrecs-and-tysums(beg) -*/ -typedef -ATSstruct { -#if(0) -int contag ; -#endif -atstkind_t0ype(atstype_int) atslab__0 ; -atstkind_type(atstype_ptrk) atslab__1 ; -} postiats_tysum_0 ; -/* -typedefs-for-tyrecs-and-tysums(end) -*/ -/* -dynconlst-declaration(beg) -*/ -/* -dynconlst-declaration(end) -*/ -/* -dyncstlst-declaration(beg) -*/ -ATSdyncst_mac(atspre_g1int2int_int_int) -ATSdyncst_mac(atspre_g1int_gt_int) -ATSdyncst_mac(atspre_g1int_half_int) -ATSdyncst_mac(atspre_g0int_mod_int) -ATSdyncst_mac(atspre_g0int2int_int_int) -ATSdyncst_mac(atspre_g0int_eq_int) -ATSdyncst_mac(atspre_g0int_mul_int) -ATSdyncst_mac(atspre_g0float2int_float_int) -ATSdyncst_mac(atslib_libats_libc_sqrt_float) -ATSdyncst_mac(atspre_g0int2float_int_float) -ATSdyncst_mac(atspre_g1int_lt_int) -ATSdyncst_mac(atspre_g1int_add_int) -ATSdyncst_mac(atspre_g1int_eq_int) -ATSdyncst_mac(atspre_FILE_stdout) -ATSdyncst_mac(atspre_FILE_stderr) -ATSdyncst_mac(atscntrb_gmp_mpz_init_set_int) -ATSdyncst_mac(atscntrb_gmp_mpz_init_set_uint) -ATSdyncst_mac(atscntrb_gmp_mpz_init_set_lint) -ATSdyncst_mac(atscntrb_gmp_mpz_init_set_ulint) -ATSdyncst_mac(atscntrb_gmp_mpz_clear) -ATSdyncst_mac(atspre_ptr_free) -ATSdyncst_mac(atscntrb_gmp_mpz_get_int) -ATSdyncst_mac(atscntrb_gmp_mpz_get_lint) -ATSdyncst_mac(atscntrb_gmp_mpz_get_str_null) -ATSdyncst_mac(atscntrb_gmp_mpz_out_str) -ATSdyncst_mac(atspre_exit_errmsg) -ATSdyncst_mac(atscntrb_gmp_mpz_neg1) -ATSdyncst_mac(atscntrb_gmp_mpz_init) -ATSdyncst_mac(atscntrb_gmp_mpz_neg2) -ATSdyncst_mac(atscntrb_gmp_mpz_abs1) -ATSdyncst_mac(atscntrb_gmp_mpz_abs2) -ATSdyncst_mac(atscntrb_gmp_mpz_init_set_mpz) -ATSdyncst_mac(atscntrb_gmp_mpz_mul2_mpz) -ATSdyncst_mac(atscntrb_gmp_mpz_add2_int) -ATSdyncst_mac(atscntrb_gmp_mpz_add3_int) -ATSdyncst_mac(atscntrb_gmp_mpz_add2_mpz) -ATSdyncst_mac(atscntrb_gmp_mpz_add3_mpz) -ATSdyncst_mac(atscntrb_gmp_mpz_sub2_int) -ATSdyncst_mac(atscntrb_gmp_mpz_sub3_int) -ATSdyncst_mac(atscntrb_gmp_mpz_sub2_mpz) -ATSdyncst_mac(atscntrb_gmp_mpz_sub3_mpz) -ATSdyncst_mac(atscntrb_gmp_mpz_mul2_int) -ATSdyncst_mac(atscntrb_gmp_mpz_mul3_int) -ATSdyncst_mac(atscntrb_gmp_mpz_mul3_mpz) -ATSdyncst_mac(atscntrb_gmp_mpz_tdiv2_q_uint) -ATSdyncst_mac(atspre_g1int2uint_int_uint) -ATSdyncst_mac(atscntrb_gmp_mpz_tdiv3_q_uint) -ATSdyncst_mac(atscntrb_gmp_mpz_tdiv2_q_mpz) -ATSdyncst_mac(atscntrb_gmp_mpz_tdiv3_q_mpz) -ATSdyncst_mac(atscntrb_gmp_mpz_fdiv_uint) -ATSdyncst_mac(atscntrb_gmp_mpz_mod2_mpz) -ATSdyncst_mac(atscntrb_gmp_mpz_mod3_mpz) -ATSdyncst_mac(atscntrb_gmp_mpz_cmp_int) -ATSdyncst_mac(atscntrb_gmp_mpz_cmp_mpz) -ATSdyncst_mac(atscntrb_gmp_mpz_ui_pow_ui) -ATSdyncst_mac(atspre_g1int2uint_int_ulint) -ATSdyncst_mac(atscntrb_gmp_mpz_pow_uint) -ATSdyncst_mac(atspre_g0int_div_int) -ATSdyncst_mac(atspre_g1int_gte_int) -ATSdyncst_mac(atspre_g0int_add_int) -ATSdyncst_mac(atspre_g1int_sub_int) -ATSdyncst_mac(atspre_g1int_neq_int) -ATSdyncst_mac(atspre_ptr_alloc_tsz) -/* -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_ -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2025(line=63, offs=1) -- 2120(line=66, offs=43) -*/ -ATSassume(ATSCNTRB_056_HX_056_intinf__intinf_vtype) ; -#endif // #ifndef(_ATS_CCOMP_ASSUME_CHECK_NONE_) -/* -assumelst-declaration(end) -*/ -ATSstatic() -atstkind_t0ype(atstype_int) -exp_0(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -#if(0) -#if(0) -ATSextern() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__gt_g1int_int__1(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__1__1(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -#if(0) -#if(0) -ATSextern() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g0int_int__7(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__7__1(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_t0ype(atstype_int) -witness_12(atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_t0ype(atstype_int) -sqrt_int_13(atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_t0ype(atstype_bool) -is_prime_16(atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_t0ype(atstype_bool) -loop_17(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__18(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__18__1(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g0int_int__7__2(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -#if(0) -#if(0) -ATSextern() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g1int_int__23(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__23__1(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g0int_int__7__3(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -#if(0) -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_t__intinf_make_int__27(atstkind_t0ype(atstype_int)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_t__intinf_make_uint__28(atstkind_t0ype(atstype_uint)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_t__intinf_make_lint__29(atstkind_t0ype(atstype_lint)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_t__intinf_make_ulint__30(atstkind_t0ype(atstype_ulint)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_t0ype(atstype_int) -ATSCNTRB_056_HX_056_intinf_t__intinf_get_int__31(atstkind_type(atstype_ptrk)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_t0ype(atstype_lint) -ATSCNTRB_056_HX_056_intinf_t__intinf_get_lint__32(atstkind_type(atstype_ptrk)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_t__intinf_get_string__33(atstkind_type(atstype_ptrk), atstkind_t0ype(atstype_int)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atsvoid_t0ype -ATSCNTRB_056_HX_056_intinf_t__print_intinf__34(atstkind_type(atstype_ptrk)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atsvoid_t0ype -ATSCNTRB_056_HX_056_intinf_t__prerr_intinf__35(atstkind_type(atstype_ptrk)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atsvoid_t0ype -ATSCNTRB_056_HX_056_intinf_t__fprint_intinf__36(atstkind_type(atstype_ptrk), atstkind_type(atstype_ptrk)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atsvoid_t0ype -ATSCNTRB_056_HX_056_intinf_t__fprint_intinf_base__37(atstkind_type(atstype_ptrk), atstkind_type(atstype_ptrk), atstkind_t0ype(atstype_int)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_t__neg_intinf__38(atstkind_type(atstype_ptrk)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_t__abs_intinf__39(atstkind_type(atstype_ptrk)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_t__succ_intinf__40(atstkind_type(atstype_ptrk)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_t__pred_intinf__41(atstkind_type(atstype_ptrk)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_t__add_intinf_int__42(atstkind_type(atstype_ptrk), atstkind_t0ype(atstype_int)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_t__add_int_intinf__43(atstkind_t0ype(atstype_int), atstkind_type(atstype_ptrk)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_t__add_intinf_intinf__44(atstkind_type(atstype_ptrk), atstkind_type(atstype_ptrk)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_t__sub_intinf_int__45(atstkind_type(atstype_ptrk), atstkind_t0ype(atstype_int)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_t__sub_int_intinf__46(atstkind_t0ype(atstype_int), atstkind_type(atstype_ptrk)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_t__sub_intinf_intinf__47(atstkind_type(atstype_ptrk), atstkind_type(atstype_ptrk)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_t__mul_intinf_int__48(atstkind_type(atstype_ptrk), atstkind_t0ype(atstype_int)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_t__mul_int_intinf__49(atstkind_t0ype(atstype_int), atstkind_type(atstype_ptrk)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_t__mul_intinf_intinf__50(atstkind_type(atstype_ptrk), atstkind_type(atstype_ptrk)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_t__div_intinf_int__51(atstkind_type(atstype_ptrk), atstkind_t0ype(atstype_int)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_t__div_intinf_intinf__52(atstkind_type(atstype_ptrk), atstkind_type(atstype_ptrk)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_t0ype(atstype_int) -ATSCNTRB_056_HX_056_intinf_t__nmod_intinf_int__53(atstkind_type(atstype_ptrk), atstkind_t0ype(atstype_int)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_t0ype(atstype_int) -ATSCNTRB_056_HX_056_intinf_t__compare_intinf_int__54(atstkind_type(atstype_ptrk), atstkind_t0ype(atstype_int)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_t0ype(atstype_int) -ATSCNTRB_056_HX_056_intinf_t__compare_int_intinf__55(atstkind_t0ype(atstype_int), atstkind_type(atstype_ptrk)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_t0ype(atstype_int) -ATSCNTRB_056_HX_056_intinf_t__compare_intinf_intinf__56(atstkind_type(atstype_ptrk), atstkind_type(atstype_ptrk)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_t__pow_int_int__57(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_t__pow_intinf_int__58(atstkind_type(atstype_ptrk), atstkind_t0ype(atstype_int)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__59(atstkind_t0ype(atstype_int)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__intinf_make_uint__60(atstkind_t0ype(atstype_uint)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__intinf_make_lint__61(atstkind_t0ype(atstype_lint)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__intinf_make_ulint__62(atstkind_t0ype(atstype_ulint)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atsvoid_t0ype -ATSCNTRB_056_HX_056_intinf_vt__intinf_free__63(atstkind_type(atstype_ptrk)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_t0ype(atstype_int) -ATSCNTRB_056_HX_056_intinf_vt__intinf_get_int__64(atsrefarg0_type(atstkind_type(atstype_ptrk))) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_t0ype(atstype_lint) -ATSCNTRB_056_HX_056_intinf_vt__intinf_get_lint__65(atsrefarg0_type(atstkind_type(atstype_ptrk))) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__intinf_get_strptr__66(atsrefarg0_type(atstkind_type(atstype_ptrk)), atstkind_t0ype(atstype_int)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atsvoid_t0ype -ATSCNTRB_056_HX_056_intinf_vt__fprint_intinf_base__67(atstkind_type(atstype_ptrk), atsrefarg0_type(atstkind_type(atstype_ptrk)), atstkind_t0ype(atstype_int)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__neg_intinf0__68(atstkind_type(atstype_ptrk)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__neg_intinf1__69(atsrefarg0_type(atstkind_type(atstype_ptrk))) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__abs_intinf0__70(atstkind_type(atstype_ptrk)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__abs_intinf1__71(atsrefarg0_type(atstkind_type(atstype_ptrk))) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__succ_intinf0__72(atstkind_type(atstype_ptrk)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__succ_intinf1__73(atsrefarg0_type(atstkind_type(atstype_ptrk))) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__pred_intinf0__74(atstkind_type(atstype_ptrk)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__pred_intinf1__75(atsrefarg0_type(atstkind_type(atstype_ptrk))) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__square_intinf0__76(atstkind_type(atstype_ptrk)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__square_intinf1__77(atsrefarg0_type(atstkind_type(atstype_ptrk))) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__add_int_intinf0__78(atstkind_t0ype(atstype_int), atstkind_type(atstype_ptrk)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__add_int_intinf1__79(atstkind_t0ype(atstype_int), atsrefarg0_type(atstkind_type(atstype_ptrk))) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__add_intinf0_int__80(atstkind_type(atstype_ptrk), atstkind_t0ype(atstype_int)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__add_intinf1_int__81(atsrefarg0_type(atstkind_type(atstype_ptrk)), atstkind_t0ype(atstype_int)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__add_intinf0_intinf1__82(atstkind_type(atstype_ptrk), atsrefarg0_type(atstkind_type(atstype_ptrk))) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__add_intinf1_intinf0__83(atsrefarg0_type(atstkind_type(atstype_ptrk)), atstkind_type(atstype_ptrk)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__add_intinf1_intinf1__84(atsrefarg0_type(atstkind_type(atstype_ptrk)), atsrefarg0_type(atstkind_type(atstype_ptrk))) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__sub_intinf0_int__85(atstkind_type(atstype_ptrk), atstkind_t0ype(atstype_int)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__sub_intinf1_int__86(atsrefarg0_type(atstkind_type(atstype_ptrk)), atstkind_t0ype(atstype_int)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__sub_int_intinf0__87(atstkind_t0ype(atstype_int), atstkind_type(atstype_ptrk)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__sub_int_intinf1__88(atstkind_t0ype(atstype_int), atsrefarg0_type(atstkind_type(atstype_ptrk))) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__sub_intinf0_intinf1__89(atstkind_type(atstype_ptrk), atsrefarg0_type(atstkind_type(atstype_ptrk))) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__sub_intinf1_intinf0__90(atsrefarg0_type(atstkind_type(atstype_ptrk)), atstkind_type(atstype_ptrk)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__sub_intinf1_intinf1__91(atsrefarg0_type(atstkind_type(atstype_ptrk)), atsrefarg0_type(atstkind_type(atstype_ptrk))) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__mul_int_intinf0__92(atstkind_t0ype(atstype_int), atstkind_type(atstype_ptrk)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__mul_int_intinf1__93(atstkind_t0ype(atstype_int), atsrefarg0_type(atstkind_type(atstype_ptrk))) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_int__94(atstkind_type(atstype_ptrk), atstkind_t0ype(atstype_int)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__mul_intinf1_int__95(atsrefarg0_type(atstkind_type(atstype_ptrk)), atstkind_t0ype(atstype_int)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_intinf1__96(atstkind_type(atstype_ptrk), atsrefarg0_type(atstkind_type(atstype_ptrk))) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__mul_intinf1_intinf0__97(atsrefarg0_type(atstkind_type(atstype_ptrk)), atstkind_type(atstype_ptrk)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__mul_intinf1_intinf1__98(atsrefarg0_type(atstkind_type(atstype_ptrk)), atsrefarg0_type(atstkind_type(atstype_ptrk))) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__div_intinf0_int__99(atstkind_type(atstype_ptrk), atstkind_t0ype(atstype_int)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__div_intinf1_int__100(atsrefarg0_type(atstkind_type(atstype_ptrk)), atstkind_t0ype(atstype_int)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__div_intinf0_intinf1__101(atstkind_type(atstype_ptrk), atsrefarg0_type(atstkind_type(atstype_ptrk))) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__div_intinf1_intinf1__102(atsrefarg0_type(atstkind_type(atstype_ptrk)), atsrefarg0_type(atstkind_type(atstype_ptrk))) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__ndiv_intinf0_int__103(atstkind_type(atstype_ptrk), atstkind_t0ype(atstype_int)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__ndiv_intinf1_int__104(atsrefarg0_type(atstkind_type(atstype_ptrk)), atstkind_t0ype(atstype_int)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__ndiv_intinf1_intinf1__105(atsrefarg0_type(atstkind_type(atstype_ptrk)), atsrefarg0_type(atstkind_type(atstype_ptrk))) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_t0ype(atstype_int) -ATSCNTRB_056_HX_056_intinf_vt__nmod_intinf0_int__106(atstkind_type(atstype_ptrk), atstkind_t0ype(atstype_int)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_t0ype(atstype_int) -ATSCNTRB_056_HX_056_intinf_vt__nmod_intinf1_int__107(atsrefarg0_type(atstkind_type(atstype_ptrk)), atstkind_t0ype(atstype_int)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__nmod_intinf0_intinf1__108(atstkind_type(atstype_ptrk), atsrefarg0_type(atstkind_type(atstype_ptrk))) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__nmod_intinf1_intinf1__109(atsrefarg0_type(atstkind_type(atstype_ptrk)), atsrefarg0_type(atstkind_type(atstype_ptrk))) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_t0ype(atstype_bool) -ATSCNTRB_056_HX_056_intinf_vt__lt_intinf_int__110(atsrefarg0_type(atstkind_type(atstype_ptrk)), atstkind_t0ype(atstype_int)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_t0ype(atstype_bool) -ATSCNTRB_056_HX_056_intinf_vt__lt_intinf_intinf__111(atsrefarg0_type(atstkind_type(atstype_ptrk)), atsrefarg0_type(atstkind_type(atstype_ptrk))) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_t0ype(atstype_bool) -ATSCNTRB_056_HX_056_intinf_vt__lte_intinf_int__112(atsrefarg0_type(atstkind_type(atstype_ptrk)), atstkind_t0ype(atstype_int)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_t0ype(atstype_bool) -ATSCNTRB_056_HX_056_intinf_vt__lte_intinf_intinf__113(atsrefarg0_type(atstkind_type(atstype_ptrk)), atsrefarg0_type(atstkind_type(atstype_ptrk))) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_t0ype(atstype_bool) -ATSCNTRB_056_HX_056_intinf_vt__gt_intinf_int__114(atsrefarg0_type(atstkind_type(atstype_ptrk)), atstkind_t0ype(atstype_int)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_t0ype(atstype_bool) -ATSCNTRB_056_HX_056_intinf_vt__gt_intinf_intinf__115(atsrefarg0_type(atstkind_type(atstype_ptrk)), atsrefarg0_type(atstkind_type(atstype_ptrk))) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_t0ype(atstype_bool) -ATSCNTRB_056_HX_056_intinf_vt__gte_intinf_int__116(atsrefarg0_type(atstkind_type(atstype_ptrk)), atstkind_t0ype(atstype_int)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_t0ype(atstype_bool) -ATSCNTRB_056_HX_056_intinf_vt__gte_intinf_intinf__117(atsrefarg0_type(atstkind_type(atstype_ptrk)), atsrefarg0_type(atstkind_type(atstype_ptrk))) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_t0ype(atstype_bool) -ATSCNTRB_056_HX_056_intinf_vt__eq_intinf_int__118(atsrefarg0_type(atstkind_type(atstype_ptrk)), atstkind_t0ype(atstype_int)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_t0ype(atstype_bool) -ATSCNTRB_056_HX_056_intinf_vt__eq_intinf_intinf__119(atsrefarg0_type(atstkind_type(atstype_ptrk)), atsrefarg0_type(atstkind_type(atstype_ptrk))) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_t0ype(atstype_bool) -ATSCNTRB_056_HX_056_intinf_vt__neq_intinf_int__120(atsrefarg0_type(atstkind_type(atstype_ptrk)), atstkind_t0ype(atstype_int)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_t0ype(atstype_bool) -ATSCNTRB_056_HX_056_intinf_vt__neq_intinf_intinf__121(atsrefarg0_type(atstkind_type(atstype_ptrk)), atsrefarg0_type(atstkind_type(atstype_ptrk))) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_t0ype(atstype_int) -ATSCNTRB_056_HX_056_intinf_vt__compare_intinf_int__122(atsrefarg0_type(atstkind_type(atstype_ptrk)), atstkind_t0ype(atstype_int)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_t0ype(atstype_int) -ATSCNTRB_056_HX_056_intinf_vt__compare_int_intinf__123(atstkind_t0ype(atstype_int), atsrefarg0_type(atstkind_type(atstype_ptrk))) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_t0ype(atstype_int) -ATSCNTRB_056_HX_056_intinf_vt__compare_intinf_intinf__124(atsrefarg0_type(atstkind_type(atstype_ptrk)), atsrefarg0_type(atstkind_type(atstype_ptrk))) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__pow_int_int__125(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__pow_intinf_int__126(atsrefarg0_type(atstkind_type(atstype_ptrk)), atstkind_t0ype(atstype_int)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atsvoid_t0ype -ATSCNTRB_056_HX_056_intinf_vt__print_intinf__127(atsrefarg0_type(atstkind_type(atstype_ptrk))) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atsvoid_t0ype -ATSCNTRB_056_HX_056_intinf_vt__prerr_intinf__128(atsrefarg0_type(atstkind_type(atstype_ptrk))) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -#if(0) -ATSextern() -atsvoid_t0ype -ATSCNTRB_056_HX_056_intinf_vt__fprint_intinf__129(atstkind_type(atstype_ptrk), atsrefarg0_type(atstkind_type(atstype_ptrk))) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -ATSstatic() -atstkind_t0ype(atstype_bool) -divides_130(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g0int_int__7__4(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_t0ype(atstype_int) -gcd_132(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__gt_g1int_int__1__2(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_t0ype(atstype_int) -lcm_134(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_type(atstype_ptrk) -divisors_136(atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_type(atstype_ptrk) -loop_137(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -#if(0) -#if(0) -ATSextern() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__gte_g1int_int__138(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__138__1(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstype_boxed -__patsfun_141(atstkind_t0ype(atstype_int), atstype_bool) ; - -ATSstatic() -atstype_boxed -__patsfun_142(atstype_bool) ; - -ATSstatic() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g0int_int__7__5(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstype_boxed -__patsfun_144(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int), atstype_bool) ; - -ATSstatic() -atstype_boxed -__patsfun_145(atstype_bool) ; - -ATSstatic() -atstkind_t0ype(atstype_int) -count_divisors_146(atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_t0ype(atstype_int) -loop_147(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__gte_g1int_int__138__2(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g0int_int__7__6(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_t0ype(atstype_int) -sum_divisors_151(atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_t0ype(atstype_int) -loop_152(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__gte_g1int_int__138__3(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g0int_int__7__7(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_t0ype(atstype_bool) -is_perfect_155(atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g0int_int__7__8(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_t0ype(atstype_int) -little_omega_157(atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_t0ype(atstype_int) -loop_158(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__gte_g1int_int__138__4(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g0int_int__7__9(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_t0ype(atstype_int) -totient_161(atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_t0ype(atstype_int) -loop_162(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__gte_g1int_int__138__5(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g0int_int__7__10(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -#if(0) -#if(0) -ATSextern() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__neq_g1int_int__166(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__166__1(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_type(atstype_ptrk) -totient_sum_169(atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_type(atstype_ptrk) -loop_170(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__lt_g1int_int__18__2(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_t__add_intinf_int__42__1(atstkind_type(atstype_ptrk), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__add_intinf1_int__81__1(atsrefarg0_type(atstkind_type(atstype_ptrk)), atstkind_t0ype(atstype_int)) ; - -#if(0) -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -ATSLIB_056_prelude__ptr_alloc__174() ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -ATSstatic() -atstkind_type(atstype_ptrk) -ATSLIB_056_prelude__ptr_alloc__174__1() ; - -ATSstatic() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_t__intinf_make_int__27__1(atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__59__1(atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_type(atstype_ptrk) -ATSLIB_056_prelude__ptr_alloc__174__2() ; - -#if(0) -ATSextern() -atstkind_t0ype(atstype_int) -gcd_ats(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; -#endif // end of [QUALIFIED] - -#if(0) -ATSextern() -atstkind_t0ype(atstype_int) -count_divisors_ats(atstkind_t0ype(atstype_int)) ; -#endif // end of [QUALIFIED] - -#if(0) -ATSextern() -atstkind_t0ype(atstype_int) -totient_ats(atstkind_t0ype(atstype_int)) ; -#endif // end of [QUALIFIED] - -#if(0) -ATSextern() -atstkind_t0ype(atstype_int) -little_omega_ats(atstkind_t0ype(atstype_int)) ; -#endif // end of [QUALIFIED] - -#if(0) -ATSextern() -atstkind_t0ype(atstype_bool) -is_perfect_ats(atstkind_t0ype(atstype_int)) ; -#endif // end of [QUALIFIED] - -ATSclosurerize_beg(__patsfun_141, (atstkind_t0ype(atstype_int)), (atstype_bool), atstype_boxed) -typedef -ATSstruct { -atstype_funptr cfun ; -atstkind_t0ype(atstype_int) env0 ; -} __patsfun_141__closure_t0ype ; -ATSstatic() -atstype_boxed -__patsfun_141__cfun -( -__patsfun_141__closure_t0ype *p_cenv, atstype_bool arg0 -) -{ -ATSFCreturn(__patsfun_141(p_cenv->env0, arg0)) ; -} /* end of [cfun] */ -ATSstatic() -atstype_cloptr -__patsfun_141__closureinit -( -__patsfun_141__closure_t0ype *p_cenv, atstkind_t0ype(atstype_int) env0 -) -{ -p_cenv->env0 = env0 ; -p_cenv->cfun = __patsfun_141__cfun ; -return p_cenv ; -} /* end of [closureinit] */ -ATSstatic() -atstype_cloptr -__patsfun_141__closurerize -( -atstkind_t0ype(atstype_int) env0 -) -{ -return __patsfun_141__closureinit(ATS_MALLOC(sizeof(__patsfun_141__closure_t0ype)), env0) ; -} /* end of [closurerize] */ -ATSclosurerize_end() -ATSclosurerize_beg(__patsfun_142, (), (atstype_bool), atstype_boxed) -typedef -ATSstruct { -atstype_funptr cfun ; -} __patsfun_142__closure_t0ype ; -ATSstatic() -atstype_boxed -__patsfun_142__cfun -( -__patsfun_142__closure_t0ype *p_cenv, atstype_bool arg0 -) -{ -ATSFCreturn(__patsfun_142(arg0)) ; -} /* end of [cfun] */ -ATSstatic() -atstype_cloptr -__patsfun_142__closureinit -( -__patsfun_142__closure_t0ype *p_cenv -) -{ -p_cenv->cfun = __patsfun_142__cfun ; -return p_cenv ; -} /* end of [closureinit] */ -ATSstatic() -atstype_cloptr -__patsfun_142__closurerize -( -// argumentless -) -{ -return __patsfun_142__closureinit(ATS_MALLOC(sizeof(__patsfun_142__closure_t0ype))) ; -} /* end of [closurerize] */ -ATSclosurerize_end() -ATSclosurerize_beg(__patsfun_144, (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_144__closure_t0ype ; -ATSstatic() -atstype_boxed -__patsfun_144__cfun -( -__patsfun_144__closure_t0ype *p_cenv, atstype_bool arg0 -) -{ -ATSFCreturn(__patsfun_144(p_cenv->env0, p_cenv->env1, arg0)) ; -} /* end of [cfun] */ -ATSstatic() -atstype_cloptr -__patsfun_144__closureinit -( -__patsfun_144__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_144__cfun ; -return p_cenv ; -} /* end of [closureinit] */ -ATSstatic() -atstype_cloptr -__patsfun_144__closurerize -( -atstkind_t0ype(atstype_int) env0, atstkind_t0ype(atstype_int) env1 -) -{ -return __patsfun_144__closureinit(ATS_MALLOC(sizeof(__patsfun_144__closure_t0ype)), env0, env1) ; -} /* end of [closurerize] */ -ATSclosurerize_end() -ATSclosurerize_beg(__patsfun_145, (), (atstype_bool), atstype_boxed) -typedef -ATSstruct { -atstype_funptr cfun ; -} __patsfun_145__closure_t0ype ; -ATSstatic() -atstype_boxed -__patsfun_145__cfun -( -__patsfun_145__closure_t0ype *p_cenv, atstype_bool arg0 -) -{ -ATSFCreturn(__patsfun_145(arg0)) ; -} /* end of [cfun] */ -ATSstatic() -atstype_cloptr -__patsfun_145__closureinit -( -__patsfun_145__closure_t0ype *p_cenv -) -{ -p_cenv->cfun = __patsfun_145__cfun ; -return p_cenv ; -} /* end of [closureinit] */ -ATSstatic() -atstype_cloptr -__patsfun_145__closurerize -( -// argumentless -) -{ -return __patsfun_145__closureinit(ATS_MALLOC(sizeof(__patsfun_145__closure_t0ype))) ; -} /* end of [closurerize] */ -ATSclosurerize_end() -/* -/home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 220(line=9, offs=5) -- 581(line=26, offs=10) -*/ -/* -local: exp_0$0(level=0) -global: exp_0$0(level=0) -local: -global: -*/ -ATSstatic() -atstkind_t0ype(atstype_int) -exp_0(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(tmpret0, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp1, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmpref6, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmpref7, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp8, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp13, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp14, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp15, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 220(line=9, offs=5) -- 581(line=26, offs=10) -*/ -ATSINSflab(__patsflab_exp_0): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 274(line=10, offs=3) -- 581(line=26, offs=10) -*/ -ATScaseof_beg() -/* -** ibranchlst-beg -*/ -ATSbranch_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 291(line=11, offs=7) -- 292(line=11, offs=8) -*/ -ATSINSlab(__atstmplab0): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 241(line=9, offs=26) -- 242(line=9, offs=27) -*/ -ATSifnthen(ATSCKpat_int(arg0, ATSPMVint(0))) { ATSINSgoto(__atstmplab2) ; } ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 292(line=11, offs=8) -- 292(line=11, 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/current/fast-combinatorics/ats-src/numerics.dats: 296(line=11, offs=12) -- 297(line=11, offs=13) -*/ -ATSINSmove(tmpret0, ATSPMVi0nt(0)) ; -ATSbranch_end() - -ATSbranch_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 305(line=12, offs=8) -- 305(line=12, 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/current/fast-combinatorics/ats-src/numerics.dats: 333(line=14, offs=12) -- 338(line=14, offs=17) -*/ -ATSINSmove(tmp1, ATSLIB_056_prelude__gt_g1int_int__1__1(arg1, ATSPMVi0nt(0))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 330(line=14, offs=9) -- 571(line=25, offs=12) -*/ -ATSif( -tmp1 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 354(line=15, offs=11) -- 546(line=23, offs=14) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 374(line=16, offs=17) -- 376(line=16, offs=19) -*/ -/* -ATSINStmpdec(tmpref6) ; -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 379(line=16, offs=22) -- 385(line=16, offs=28) -*/ -ATSINSmove(tmpref6, atspre_g1int_half_int(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 403(line=17, offs=17) -- 405(line=17, offs=19) -*/ -/* -ATSINStmpdec(tmpref7) ; -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 408(line=17, offs=22) -- 413(line=17, offs=27) -*/ -ATSINSmove(tmpref7, atspre_g0int_mod_int(arg1, ATSPMVi0nt(2))) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 442(line=19, offs=16) -- 448(line=19, offs=22) -*/ -ATSINSmove(tmp8, ATSLIB_056_prelude__eq_g0int_int__7__1(tmpref7, ATSPMVi0nt(0))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 439(line=19, offs=13) -- 532(line=22, offs=33) -*/ -ATSif( -tmp8 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 472(line=20, offs=19) -- 477(line=20, offs=24) -*/ -ATSINSmove(tmp13, atspre_g0int_mul_int(arg0, arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 468(line=20, offs=15) -- 482(line=20, offs=29) -*/ -ATStailcal_beg() -ATSINSmove_tlcal(apy0, tmp13) ; -ATSINSmove_tlcal(apy1, tmpref6) ; -ATSINSargmove_tlcal(arg0, apy0) ; -ATSINSargmove_tlcal(arg1, apy1) ; -ATSINSfgoto(__patsflab_exp_0) ; -ATStailcal_end() - -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 522(line=22, offs=23) -- 527(line=22, offs=28) -*/ -ATSINSmove(tmp15, atspre_g0int_mul_int(arg0, arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 518(line=22, offs=19) -- 532(line=22, offs=33) -*/ -ATSINSmove(tmp14, exp_0(tmp15, tmpref6)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 514(line=22, offs=15) -- 532(line=22, offs=33) -*/ -ATSINSmove(tmpret0, atspre_g0int_mul_int(arg0, tmp14)) ; - -} /* ATSendif */ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 354(line=15, offs=11) -- 546(line=23, offs=14) -*/ -/* -INSletpop() -*/ -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 570(line=25, offs=11) -- 571(line=25, offs=12) -*/ -ATSINSmove(tmpret0, ATSPMVi0nt(1)) ; -} /* ATSendif */ -ATSbranch_end() - -/* -** ibranchlst-end -*/ -ATScaseof_end() - -ATSfunbody_end() -ATSreturn(tmpret0) ; -} /* end of [exp_0] */ - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 12679(line=659, offs=3) -- 12718(line=659, offs=42) -*/ -/* -local: -global: gt_g1int_int$1$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = tk(4703) -tmparg = S2Evar(tk(4703)) -tmpsub = None() -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__gt_g1int_int__1(atstkind_t0ype(atstyvar_type(tk)) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret2, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp3, atstkind_t0ype(atstyvar_type(tk))) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12664(line=658, offs=1) -- 12718(line=659, offs=42) -*/ -ATSINSflab(__patsflab_gt_g1int_int): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12705(line=659, offs=29) -- 12716(line=659, offs=40) -*/ -ATSINSmove(tmp3, PMVtmpltcst(g1int2int)(arg1)) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12688(line=659, offs=12) -- 12718(line=659, offs=42) -*/ -ATSINSmove(tmpret2, PMVtmpltcst(g1int_gt)(arg0, tmp3)) ; - -ATSfunbody_end() -ATSreturn(tmpret2) ; -} /* end of [ATSLIB_056_prelude__gt_g1int_int__1] */ -#endif // end of [TEMPLATE] - -/* -/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 12679(line=659, offs=3) -- 12718(line=659, offs=42) -*/ -/* -local: -global: gt_g1int_int$1$1(level=1) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4703) -tmparg = S2Evar(tk(4703)) -tmpsub = Some(tk(4703) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__gt_g1int_int__1__1(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret2__1, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp3__1, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12664(line=658, offs=1) -- 12718(line=659, offs=42) -*/ -ATSINSflab(__patsflab_gt_g1int_int): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12705(line=659, offs=29) -- 12716(line=659, offs=40) -*/ -ATSINSmove(tmp3__1, atspre_g1int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12688(line=659, offs=12) -- 12718(line=659, offs=42) -*/ -ATSINSmove(tmpret2__1, atspre_g1int_gt_int(arg0, tmp3__1)) ; - -ATSfunbody_end() -ATSreturn(tmpret2__1) ; -} /* end of [ATSLIB_056_prelude__gt_g1int_int__1__1] */ - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) -*/ -/* -local: -global: eq_g0int_int$7$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = tk(4694) -tmparg = S2Evar(tk(4694)) -tmpsub = None() -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g0int_int__7(atstkind_t0ype(atstyvar_type(tk)) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret9, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp10, atstkind_t0ype(atstyvar_type(tk))) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) -*/ -ATSINSflab(__patsflab_eq_g0int_int): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) -*/ -ATSINSmove(tmp10, PMVtmpltcst(g0int2int)(arg1)) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) -*/ -ATSINSmove(tmpret9, PMVtmpltcst(g0int_eq)(arg0, tmp10)) ; - -ATSfunbody_end() -ATSreturn(tmpret9) ; -} /* end of [ATSLIB_056_prelude__eq_g0int_int__7] */ -#endif // end of [TEMPLATE] - -/* -/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) -*/ -/* -local: -global: eq_g0int_int$7$1(level=1) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4694) -tmparg = S2Evar(tk(4694)) -tmpsub = Some(tk(4694) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g0int_int__7__1(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret9__1, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp10__1, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) -*/ -ATSINSflab(__patsflab_eq_g0int_int): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) -*/ -ATSINSmove(tmp10__1, atspre_g0int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) -*/ -ATSINSmove(tmpret9__1, atspre_g0int_eq_int(arg0, tmp10__1)) ; - -ATSfunbody_end() -ATSreturn(tmpret9__1) ; -} /* end of [ATSLIB_056_prelude__eq_g0int_int__7__1] */ - -/* -/home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 586(line=28, offs=4) -- 641(line=29, offs=14) -*/ -/* -local: -global: witness_12$0(level=0) -local: -global: -*/ -ATSstatic() -atstkind_t0ype(atstype_int) -witness_12(atstkind_t0ype(atstype_int) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret16, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 586(line=28, offs=4) -- 641(line=29, offs=14) -*/ -ATSINSflab(__patsflab_witness_12): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 630(line=29, offs=3) -- 640(line=29, offs=13) -*/ -ATSINSmove(tmpret16, ATSPMVcastfn(cast, atstkind_t0ype(atstype_int), arg0)) ; -ATSfunbody_end() -ATSreturn(tmpret16) ; -} /* end of [witness_12] */ - -/* -/home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 646(line=31, offs=4) -- 790(line=36, offs=6) -*/ -/* -local: witness_12$0(level=0) -global: witness_12$0(level=0), sqrt_int_13$0(level=0) -local: -global: -*/ -ATSstatic() -atstkind_t0ype(atstype_int) -sqrt_int_13(atstkind_t0ype(atstype_int) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret17, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmpref18, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp19, atstkind_t0ype(atstype_float)) ; -ATStmpdec(tmp20, atstkind_t0ype(atstype_float)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 646(line=31, offs=4) -- 790(line=36, offs=6) -*/ -ATSINSflab(__patsflab_sqrt_int_13): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 696(line=32, offs=3) -- 790(line=36, offs=6) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 708(line=33, offs=9) -- 713(line=33, offs=14) -*/ -/* -ATSINStmpdec(tmpref18) ; -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 744(line=33, offs=45) -- 757(line=33, offs=58) -*/ -ATSINSmove(tmp20, atspre_g0int2float_int_float(arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 733(line=33, offs=34) -- 759(line=33, offs=60) -*/ -ATSINSmove(tmp19, atslib_libats_libc_sqrt_float(tmp20)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 721(line=33, offs=22) -- 760(line=33, offs=61) -*/ -ATSINSmove(tmpref18, atspre_g0float2int_float_int(tmp19)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 770(line=35, offs=5) -- 783(line=35, offs=18) -*/ -ATSINSmove(tmpret17, witness_12(tmpref18)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 696(line=32, offs=3) -- 790(line=36, offs=6) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret17) ; -} /* end of [sqrt_int_13] */ - -/* -/home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 826(line=39, offs=4) -- 1411(line=62, offs=10) -*/ -/* -local: sqrt_int_13$0(level=0) -global: witness_12$0(level=0), sqrt_int_13$0(level=0), is_prime_16$0(level=0) -local: -global: -*/ -ATSstatic() -atstkind_t0ype(atstype_bool) -is_prime_16(atstkind_t0ype(atstype_int) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret21, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp42, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 826(line=39, offs=4) -- 1411(line=62, offs=10) -*/ -ATSINSflab(__patsflab_is_prime_16): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 862(line=40, offs=3) -- 1411(line=62, offs=10) -*/ -ATScaseof_beg() -/* -** ibranchlst-beg -*/ -ATSbranch_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 879(line=41, offs=7) -- 880(line=41, offs=8) -*/ -ATSINSlab(__atstmplab3): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 835(line=39, offs=13) -- 836(line=39, offs=14) -*/ -ATSifnthen(ATSCKpat_int(arg0, ATSPMVint(1))) { ATSINSgoto(__atstmplab5) ; } ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 880(line=41, offs=8) -- 880(line=41, 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/current/fast-combinatorics/ats-src/numerics.dats: 884(line=41, offs=12) -- 889(line=41, offs=17) -*/ -ATSINSmove(tmpret21, ATSPMVbool_false()) ; -ATSbranch_end() - -ATSbranch_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 897(line=42, offs=8) -- 897(line=42, 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/current/fast-combinatorics/ats-src/numerics.dats: 922(line=44, offs=9) -- 1401(line=61, offs=12) -*/ -/* -letpush(beg) -*/ -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 1377(line=60, offs=19) -- 1387(line=60, offs=29) -*/ -ATSINSmove(tmp42, sqrt_int_13(arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 1369(line=60, offs=11) -- 1389(line=60, offs=31) -*/ -ATSINSmove(tmpret21, loop_17(arg0, ATSPMVi0nt(2), tmp42)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 922(line=44, offs=9) -- 1401(line=61, offs=12) -*/ -/* -INSletpop() -*/ -ATSbranch_end() - -/* -** ibranchlst-end -*/ -ATScaseof_end() - -ATSfunbody_end() -ATSreturn(tmpret21) ; -} /* end of [is_prime_16] */ - -/* -/home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 940(line=45, offs=15) -- 1347(line=58, offs=21) -*/ -/* -local: loop_17$0(level=1) -global: loop_17$0(level=1) -local: k$4740(1)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))) -global: k$4740(1)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))) -*/ -ATSstatic() -atstkind_t0ype(atstype_bool) -loop_17(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(tmpret22, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp23, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp28, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp31, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp32, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp33, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp38, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp41, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -/* -emit_funent_fnxdeclst: -*/ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 940(line=45, offs=15) -- 1347(line=58, offs=21) -*/ -ATSINSflab(__patsflab_loop_17): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 1034(line=46, offs=16) -- 1043(line=46, offs=25) -*/ -ATSINSmove(tmp23, ATSLIB_056_prelude__lt_g1int_int__18__1(arg0, arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 1031(line=46, offs=13) -- 1347(line=58, offs=21) -*/ -ATSif( -tmp23 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 1066(line=47, offs=18) -- 1071(line=47, offs=23) -*/ -ATSINSmove(tmp31, atspre_g0int_mod_int(env0, arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 1066(line=47, offs=18) -- 1075(line=47, offs=27) -*/ -ATSINSmove(tmp28, ATSLIB_056_prelude__eq_g0int_int__7__2(tmp31, ATSPMVi0nt(0))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 1063(line=47, offs=15) -- 1156(line=50, offs=35) -*/ -ATSif( -tmp28 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 1097(line=48, offs=17) -- 1102(line=48, offs=22) -*/ -ATSINSmove(tmpret22, ATSPMVbool_false()) ; -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 1143(line=50, offs=22) -- 1148(line=50, offs=27) -*/ -ATSINSmove(tmp32, atspre_g1int_add_int(arg0, ATSPMVi0nt(1))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 1138(line=50, offs=17) -- 1156(line=50, offs=35) -*/ -ATStailcal_beg() -ATSINSmove_tlcal(apy0, tmp32) ; -ATSINSmove_tlcal(apy1, arg1) ; -ATSINSargmove_tlcal(arg0, apy0) ; -ATSINSargmove_tlcal(arg1, apy1) ; -ATSINSfgoto(__patsflab_loop_17) ; -ATStailcal_end() - -} /* ATSendif */ -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 1191(line=52, offs=18) -- 1200(line=52, offs=27) -*/ -ATSINSmove(tmp33, ATSLIB_056_prelude__eq_g1int_int__23__1(arg0, arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 1188(line=52, offs=15) -- 1347(line=58, offs=21) -*/ -ATSif( -tmp33 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 1225(line=53, offs=20) -- 1230(line=53, offs=25) -*/ -ATSINSmove(tmp41, atspre_g0int_mod_int(env0, arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 1225(line=53, offs=20) -- 1234(line=53, offs=29) -*/ -ATSINSmove(tmp38, ATSLIB_056_prelude__eq_g0int_int__7__3(tmp41, ATSPMVi0nt(0))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 1222(line=53, offs=17) -- 1307(line=56, offs=23) -*/ -ATSif( -tmp38 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 1258(line=54, offs=19) -- 1263(line=54, offs=24) -*/ -ATSINSmove(tmpret22, ATSPMVbool_false()) ; -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 1303(line=56, offs=19) -- 1307(line=56, offs=23) -*/ -ATSINSmove(tmpret22, ATSPMVbool_true()) ; -} /* ATSendif */ -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 1343(line=58, offs=17) -- 1347(line=58, offs=21) -*/ -ATSINSmove(tmpret22, ATSPMVbool_true()) ; -} /* ATSendif */ -} /* ATSendif */ -ATSfunbody_end() -ATSreturn(tmpret22) ; -/* -emit_funent_fnxbodylst: -*/ -} /* end of [loop_17] */ - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 12520(line=650, offs=3) -- 12559(line=650, offs=42) -*/ -/* -local: -global: lt_g1int_int$18$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = tk(4697) -tmparg = S2Evar(tk(4697)) -tmpsub = None() -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__lt_g1int_int__18(atstkind_t0ype(atstyvar_type(tk)) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret24, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp25, atstkind_t0ype(atstyvar_type(tk))) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12505(line=649, offs=1) -- 12559(line=650, offs=42) -*/ -ATSINSflab(__patsflab_lt_g1int_int): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12546(line=650, offs=29) -- 12557(line=650, offs=40) -*/ -ATSINSmove(tmp25, PMVtmpltcst(g1int2int)(arg1)) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12529(line=650, offs=12) -- 12559(line=650, offs=42) -*/ -ATSINSmove(tmpret24, PMVtmpltcst(g1int_lt)(arg0, tmp25)) ; - -ATSfunbody_end() -ATSreturn(tmpret24) ; -} /* end of [ATSLIB_056_prelude__lt_g1int_int__18] */ -#endif // end of [TEMPLATE] - -/* -/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 12520(line=650, offs=3) -- 12559(line=650, offs=42) -*/ -/* -local: -global: lt_g1int_int$18$1(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4697) -tmparg = S2Evar(tk(4697)) -tmpsub = Some(tk(4697) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__lt_g1int_int__18__1(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret24__1, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp25__1, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12505(line=649, offs=1) -- 12559(line=650, offs=42) -*/ -ATSINSflab(__patsflab_lt_g1int_int): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12546(line=650, offs=29) -- 12557(line=650, offs=40) -*/ -ATSINSmove(tmp25__1, atspre_g1int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12529(line=650, offs=12) -- 12559(line=650, offs=42) -*/ -ATSINSmove(tmpret24__1, atspre_g1int_lt_int(arg0, tmp25__1)) ; - -ATSfunbody_end() -ATSreturn(tmpret24__1) ; -} /* end of [ATSLIB_056_prelude__lt_g1int_int__18__1] */ - -/* -/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) -*/ -/* -local: -global: eq_g0int_int$7$2(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4694) -tmparg = S2Evar(tk(4694)) -tmpsub = Some(tk(4694) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g0int_int__7__2(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret9__2, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp10__2, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) -*/ -ATSINSflab(__patsflab_eq_g0int_int): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) -*/ -ATSINSmove(tmp10__2, atspre_g0int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) -*/ -ATSINSmove(tmpret9__2, atspre_g0int_eq_int(arg0, tmp10__2)) ; - -ATSfunbody_end() -ATSreturn(tmpret9__2) ; -} /* end of [ATSLIB_056_prelude__eq_g0int_int__7__2] */ - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 12838(line=668, offs=3) -- 12877(line=668, offs=42) -*/ -/* -local: -global: eq_g1int_int$23$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = tk(4709) -tmparg = S2Evar(tk(4709)) -tmpsub = None() -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g1int_int__23(atstkind_t0ype(atstyvar_type(tk)) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret34, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp35, atstkind_t0ype(atstyvar_type(tk))) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12823(line=667, offs=1) -- 12877(line=668, offs=42) -*/ -ATSINSflab(__patsflab_eq_g1int_int): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12864(line=668, offs=29) -- 12875(line=668, offs=40) -*/ -ATSINSmove(tmp35, PMVtmpltcst(g1int2int)(arg1)) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12847(line=668, offs=12) -- 12877(line=668, offs=42) -*/ -ATSINSmove(tmpret34, PMVtmpltcst(g1int_eq)(arg0, tmp35)) ; - -ATSfunbody_end() -ATSreturn(tmpret34) ; -} /* end of [ATSLIB_056_prelude__eq_g1int_int__23] */ -#endif // end of [TEMPLATE] - -/* -/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 12838(line=668, offs=3) -- 12877(line=668, offs=42) -*/ -/* -local: -global: eq_g1int_int$23$1(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4709) -tmparg = S2Evar(tk(4709)) -tmpsub = Some(tk(4709) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g1int_int__23__1(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret34__1, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp35__1, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12823(line=667, offs=1) -- 12877(line=668, offs=42) -*/ -ATSINSflab(__patsflab_eq_g1int_int): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12864(line=668, offs=29) -- 12875(line=668, offs=40) -*/ -ATSINSmove(tmp35__1, atspre_g1int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12847(line=668, offs=12) -- 12877(line=668, offs=42) -*/ -ATSINSmove(tmpret34__1, atspre_g1int_eq_int(arg0, tmp35__1)) ; - -ATSfunbody_end() -ATSreturn(tmpret34__1) ; -} /* end of [ATSLIB_056_prelude__eq_g1int_int__23__1] */ - -/* -/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) -*/ -/* -local: -global: eq_g0int_int$7$3(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4694) -tmparg = S2Evar(tk(4694)) -tmpsub = Some(tk(4694) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g0int_int__7__3(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret9__3, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp10__3, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) -*/ -ATSINSflab(__patsflab_eq_g0int_int): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) -*/ -ATSINSmove(tmp10__3, atspre_g0int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) -*/ -ATSINSmove(tmpret9__3, atspre_g0int_eq_int(arg0, tmp10__3)) ; - -ATSfunbody_end() -ATSreturn(tmpret9__3) ; -} /* end of [ATSLIB_056_prelude__eq_g0int_int__7__3] */ - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 1973(line=57, offs=3) -- 2035(line=58, offs=38) -*/ -/* -local: -global: intinf_make_int$27$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_t__intinf_make_int__27(atstkind_t0ype(atstype_int) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret43, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp44, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 1955(line=56, offs=1) -- 2035(line=58, offs=38) -*/ -ATSINSflab(__patsflab_intinf_make_int): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 2012(line=58, offs=15) -- 2033(line=58, offs=36) -*/ -ATSINSmove(tmp44, PMVtmpltcst(intinf_make_int<>)(arg0)) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 2000(line=58, offs=3) -- 2035(line=58, offs=38) -*/ -ATSINSmove(tmpret43, ATSPMVcastfn(intinf_vt2t, atstkind_type(atstype_ptrk), tmp44)) ; -ATSfunbody_end() -ATSreturn(tmpret43) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_t__intinf_make_int__27] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 2075(line=62, offs=3) -- 2139(line=63, offs=39) -*/ -/* -local: -global: intinf_make_uint$28$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_t__intinf_make_uint__28(atstkind_t0ype(atstype_uint) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret45, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp46, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 2056(line=61, offs=1) -- 2139(line=63, offs=39) -*/ -ATSINSflab(__patsflab_intinf_make_uint): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 2115(line=63, offs=15) -- 2137(line=63, offs=37) -*/ -ATSINSmove(tmp46, PMVtmpltcst(intinf_make_uint<>)(arg0)) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 2103(line=63, offs=3) -- 2139(line=63, offs=39) -*/ -ATSINSmove(tmpret45, ATSPMVcastfn(intinf_vt2t, atstkind_type(atstype_ptrk), tmp46)) ; -ATSfunbody_end() -ATSreturn(tmpret45) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_t__intinf_make_uint__28] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 2179(line=67, offs=3) -- 2243(line=68, offs=39) -*/ -/* -local: -global: intinf_make_lint$29$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_t__intinf_make_lint__29(atstkind_t0ype(atstype_lint) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret47, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp48, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 2160(line=66, offs=1) -- 2243(line=68, offs=39) -*/ -ATSINSflab(__patsflab_intinf_make_lint): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 2219(line=68, offs=15) -- 2241(line=68, offs=37) -*/ -ATSINSmove(tmp48, PMVtmpltcst(intinf_make_lint<>)(arg0)) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 2207(line=68, offs=3) -- 2243(line=68, offs=39) -*/ -ATSINSmove(tmpret47, ATSPMVcastfn(intinf_vt2t, atstkind_type(atstype_ptrk), tmp48)) ; -ATSfunbody_end() -ATSreturn(tmpret47) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_t__intinf_make_lint__29] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 2284(line=72, offs=3) -- 2350(line=73, offs=40) -*/ -/* -local: -global: intinf_make_ulint$30$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_t__intinf_make_ulint__30(atstkind_t0ype(atstype_ulint) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret49, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp50, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 2264(line=71, offs=1) -- 2350(line=73, offs=40) -*/ -ATSINSflab(__patsflab_intinf_make_ulint): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 2325(line=73, offs=15) -- 2348(line=73, offs=38) -*/ -ATSINSmove(tmp50, PMVtmpltcst(intinf_make_ulint<>)(arg0)) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 2313(line=73, offs=3) -- 2350(line=73, offs=40) -*/ -ATSINSmove(tmpret49, ATSPMVcastfn(intinf_vt2t, atstkind_type(atstype_ptrk), tmp50)) ; -ATSfunbody_end() -ATSreturn(tmpret49) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_t__intinf_make_ulint__30] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 2412(line=80, offs=3) -- 2544(line=92, offs=2) -*/ -/* -local: -global: intinf_get_int$31$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_t0ype(atstype_int) -ATSCNTRB_056_HX_056_intinf_t__intinf_get_int__31(atstkind_type(atstype_ptrk) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret51, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 2395(line=79, offs=1) -- 2544(line=92, offs=2) -*/ -ATSINSflab(__patsflab_intinf_get_int): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 2418(line=80, offs=9) -- 2544(line=92, offs=2) -*/ -/* -letpush(beg) -*/ -/* (*nothing*) */ -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 2485(line=88, offs=11) -- 2505(line=88, offs=31) -*/ -ATSINSmove(tmpret51, PMVtmpltcst(intinf_get_int<>)(ATSPMVrefarg0(ATSPMVcastfn(intinf_takeout, atstkind_type(atstype_ptrk), arg0)))) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 2418(line=80, offs=9) -- 2544(line=92, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret51) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_t__intinf_get_int__31] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 2614(line=97, offs=3) -- 2747(line=109, offs=2) -*/ -/* -local: -global: intinf_get_lint$32$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_t0ype(atstype_lint) -ATSCNTRB_056_HX_056_intinf_t__intinf_get_lint__32(atstkind_type(atstype_ptrk) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret52, atstkind_t0ype(atstype_lint)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 2596(line=96, offs=1) -- 2747(line=109, offs=2) -*/ -ATSINSflab(__patsflab_intinf_get_lint): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 2620(line=97, offs=9) -- 2747(line=109, offs=2) -*/ -/* -letpush(beg) -*/ -/* (*nothing*) */ -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 2687(line=105, offs=11) -- 2708(line=105, offs=32) -*/ -ATSINSmove(tmpret52, PMVtmpltcst(intinf_get_lint<>)(ATSPMVrefarg0(ATSPMVcastfn(intinf_takeout, atstkind_type(atstype_ptrk), arg0)))) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 2620(line=97, offs=9) -- 2747(line=109, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret52) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_t__intinf_get_lint__32] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 2841(line=116, offs=3) -- 2991(line=127, offs=4) -*/ -/* -local: -global: intinf_get_string$33$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_t__intinf_get_string__33(atstkind_type(atstype_ptrk) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret53, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp54, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 2821(line=115, offs=1) -- 2991(line=127, offs=4) -*/ -ATSINSflab(__patsflab_intinf_get_string): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 2853(line=116, offs=15) -- 2991(line=127, offs=4) -*/ -/* -letpush(beg) -*/ -/* (*nothing*) */ -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 2909(line=122, offs=11) -- 2940(line=122, offs=42) -*/ -ATSINSmove(tmp54, PMVtmpltcst(intinf_get_strptr<>)(ATSPMVrefarg0(ATSPMVcastfn(intinf_takeout, atstkind_type(atstype_ptrk), arg0)), arg1)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 2968(line=126, offs=3) -- 2986(line=126, offs=21) -*/ -ATSINSmove(tmpret53, ATSPMVcastfn(strptr2string, atstkind_type(atstype_ptrk), tmp54)) ; -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 2853(line=116, offs=15) -- 2991(line=127, offs=4) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret53) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_t__intinf_get_string__33] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 3084(line=134, offs=3) -- 3118(line=134, offs=37) -*/ -/* -local: -global: print_intinf$34$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atsvoid_t0ype -ATSCNTRB_056_HX_056_intinf_t__print_intinf__34(atstkind_type(atstype_ptrk) arg0) -{ -/* tmpvardeclst(beg) */ -// ATStmpdec_void(tmpret55) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 3069(line=133, offs=1) -- 3118(line=134, offs=37) -*/ -ATSINSflab(__patsflab_print_intinf): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 3090(line=134, offs=9) -- 3118(line=134, offs=37) -*/ -ATSINSmove_void(tmpret55, PMVtmpltcst(fprint_intinf<>)(atspre_FILE_stdout, arg0)) ; - -ATSfunbody_end() -ATSreturn_void(tmpret55) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_t__print_intinf__34] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 3154(line=138, offs=3) -- 3188(line=138, offs=37) -*/ -/* -local: -global: prerr_intinf$35$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atsvoid_t0ype -ATSCNTRB_056_HX_056_intinf_t__prerr_intinf__35(atstkind_type(atstype_ptrk) arg0) -{ -/* tmpvardeclst(beg) */ -// ATStmpdec_void(tmpret56) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 3139(line=137, offs=1) -- 3188(line=138, offs=37) -*/ -ATSINSflab(__patsflab_prerr_intinf): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 3160(line=138, offs=9) -- 3188(line=138, offs=37) -*/ -ATSINSmove_void(tmpret56, PMVtmpltcst(fprint_intinf<>)(atspre_FILE_stderr, arg0)) ; - -ATSfunbody_end() -ATSreturn_void(tmpret56) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_t__prerr_intinf__35] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 3228(line=143, offs=3) -- 3277(line=143, offs=52) -*/ -/* -local: -global: fprint_intinf$36$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atsvoid_t0ype -ATSCNTRB_056_HX_056_intinf_t__fprint_intinf__36(atstkind_type(atstype_ptrk) arg0, atstkind_type(atstype_ptrk) arg1) -{ -/* tmpvardeclst(beg) */ -// ATStmpdec_void(tmpret57) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 3212(line=142, offs=1) -- 3277(line=143, offs=52) -*/ -ATSINSflab(__patsflab_fprint_intinf): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 3239(line=143, offs=14) -- 3277(line=143, offs=52) -*/ -ATSINSmove_void(tmpret57, PMVtmpltcst(fprint_intinf_base<>)(arg0, arg1, ATSPMVi0nt(10))) ; - -ATSfunbody_end() -ATSreturn_void(tmpret57) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_t__fprint_intinf__36] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 3343(line=150, offs=3) -- 3487(line=161, offs=2) -*/ -/* -local: -global: fprint_intinf_base$37$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atsvoid_t0ype -ATSCNTRB_056_HX_056_intinf_t__fprint_intinf_base__37(atstkind_type(atstype_ptrk) arg0, atstkind_type(atstype_ptrk) arg1, atstkind_t0ype(atstype_int) arg2) -{ -/* tmpvardeclst(beg) */ -// ATStmpdec_void(tmpret58) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 3322(line=149, offs=1) -- 3487(line=161, offs=2) -*/ -ATSINSflab(__patsflab_fprint_intinf_base): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 3360(line=151, offs=1) -- 3487(line=161, offs=2) -*/ -/* -letpush(beg) -*/ -/* (*nothing*) */ -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 3415(line=158, offs=3) -- 3452(line=158, offs=40) -*/ -ATSINSmove_void(tmpret58, PMVtmpltcst(fprint_intinf_base<>)(arg0, ATSPMVrefarg0(ATSPMVcastfn(intinf_takeout, atstkind_type(atstype_ptrk), arg1)), arg2)) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 3360(line=151, offs=1) -- 3487(line=161, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn_void(tmpret58) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_t__fprint_intinf_base__37] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 3568(line=168, offs=3) -- 3709(line=180, offs=4) -*/ -/* -local: -global: neg_intinf$38$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_t__neg_intinf__38(atstkind_type(atstype_ptrk) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret59, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp60, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 3555(line=167, offs=1) -- 3709(line=180, offs=4) -*/ -ATSINSflab(__patsflab_neg_intinf): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 3574(line=168, offs=9) -- 3709(line=180, offs=4) -*/ -/* -letpush(beg) -*/ -/* (*nothing*) */ -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 3629(line=174, offs=11) -- 3646(line=174, offs=28) -*/ -ATSINSmove(tmp60, PMVtmpltcst(neg_intinf1<>)(ATSPMVrefarg0(ATSPMVcastfn(intinf_takeout, atstkind_type(atstype_ptrk), arg0)))) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 3689(line=179, offs=3) -- 3704(line=179, offs=18) -*/ -ATSINSmove(tmpret59, ATSPMVcastfn(intinf_vt2t, atstkind_type(atstype_ptrk), tmp60)) ; -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 3574(line=168, offs=9) -- 3709(line=180, offs=4) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret59) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_t__neg_intinf__38] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 3791(line=187, offs=3) -- 3936(line=200, offs=4) -*/ -/* -local: -global: abs_intinf$39$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_t__abs_intinf__39(atstkind_type(atstype_ptrk) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret61, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp62, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 3778(line=186, offs=1) -- 3936(line=200, offs=4) -*/ -ATSINSflab(__patsflab_abs_intinf): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 3797(line=187, offs=9) -- 3936(line=200, offs=4) -*/ -/* -letpush(beg) -*/ -/* (*nothing*) */ -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 3856(line=194, offs=11) -- 3873(line=194, offs=28) -*/ -ATSINSmove(tmp62, PMVtmpltcst(abs_intinf1<>)(ATSPMVrefarg0(ATSPMVcastfn(intinf_takeout, atstkind_type(atstype_ptrk), arg0)))) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 3916(line=199, offs=3) -- 3931(line=199, offs=18) -*/ -ATSINSmove(tmpret61, ATSPMVcastfn(intinf_vt2t, atstkind_type(atstype_ptrk), tmp62)) ; -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 3797(line=187, offs=9) -- 3936(line=200, offs=4) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret61) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_t__abs_intinf__39] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 4016(line=206, offs=12) -- 4043(line=206, offs=39) -*/ -/* -local: -global: succ_intinf$40$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_t__succ_intinf__40(atstkind_type(atstype_ptrk) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret63, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 4005(line=206, offs=1) -- 4043(line=206, offs=39) -*/ -ATSINSflab(__patsflab_succ_intinf): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 4022(line=206, offs=18) -- 4043(line=206, offs=39) -*/ -ATSINSmove(tmpret63, PMVtmpltcst(add_intinf_int<>)(arg0, ATSPMVi0nt(1))) ; - -ATSfunbody_end() -ATSreturn(tmpret63) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_t__succ_intinf__40] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 4075(line=209, offs=12) -- 4102(line=209, offs=39) -*/ -/* -local: -global: pred_intinf$41$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_t__pred_intinf__41(atstkind_type(atstype_ptrk) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret64, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 4064(line=209, offs=1) -- 4102(line=209, offs=39) -*/ -ATSINSflab(__patsflab_pred_intinf): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 4081(line=209, offs=18) -- 4102(line=209, offs=39) -*/ -ATSINSmove(tmpret64, PMVtmpltcst(sub_intinf_int<>)(arg0, ATSPMVi0nt(1))) ; - -ATSfunbody_end() -ATSreturn(tmpret64) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_t__pred_intinf__41] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 4162(line=216, offs=3) -- 4320(line=230, offs=4) -*/ -/* -local: -global: add_intinf_int$42$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_t__add_intinf_int__42(atstkind_type(atstype_ptrk) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret65, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp66, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 4145(line=215, offs=1) -- 4320(line=230, offs=4) -*/ -ATSINSflab(__patsflab_add_intinf_int): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 4171(line=216, offs=12) -- 4320(line=230, offs=4) -*/ -/* -letpush(beg) -*/ -/* (*nothing*) */ -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 4232(line=224, offs=3) -- 4258(line=224, offs=29) -*/ -ATSINSmove(tmp66, PMVtmpltcst(add_intinf1_int<>)(ATSPMVrefarg0(ATSPMVcastfn(intinf_takeout, atstkind_type(atstype_ptrk), arg0)), arg1)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 4300(line=229, offs=3) -- 4315(line=229, offs=18) -*/ -ATSINSmove(tmpret65, ATSPMVcastfn(intinf_vt2t, atstkind_type(atstype_ptrk), tmp66)) ; -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 4171(line=216, offs=12) -- 4320(line=230, offs=4) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret65) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_t__add_intinf_int__42] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 4386(line=235, offs=3) -- 4542(line=249, offs=4) -*/ -/* -local: -global: add_int_intinf$43$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_t__add_int_intinf__43(atstkind_t0ype(atstype_int) arg0, atstkind_type(atstype_ptrk) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret67, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp68, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 4369(line=234, offs=1) -- 4542(line=249, offs=4) -*/ -ATSINSflab(__patsflab_add_int_intinf): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 4395(line=235, offs=12) -- 4542(line=249, offs=4) -*/ -/* -letpush(beg) -*/ -/* (*nothing*) */ -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 4455(line=243, offs=3) -- 4480(line=243, offs=28) -*/ -ATSINSmove(tmp68, PMVtmpltcst(add_int_intinf1<>)(arg0, ATSPMVrefarg0(ATSPMVcastfn(intinf_takeout, atstkind_type(atstype_ptrk), arg1)))) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 4522(line=248, offs=3) -- 4537(line=248, offs=18) -*/ -ATSINSmove(tmpret67, ATSPMVcastfn(intinf_vt2t, atstkind_type(atstype_ptrk), tmp68)) ; -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 4395(line=235, offs=12) -- 4542(line=249, offs=4) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret67) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_t__add_int_intinf__43] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 4611(line=254, offs=3) -- 4840(line=272, offs=4) -*/ -/* -local: -global: add_intinf_intinf$44$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_t__add_intinf_intinf__44(atstkind_type(atstype_ptrk) arg0, atstkind_type(atstype_ptrk) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret69, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp70, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 4591(line=253, offs=1) -- 4840(line=272, offs=4) -*/ -ATSINSflab(__patsflab_add_intinf_intinf): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 4620(line=254, offs=12) -- 4840(line=272, offs=4) -*/ -/* -letpush(beg) -*/ -/* (*nothing*) */ -/* (*nothing*) */ -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 4717(line=265, offs=3) -- 4746(line=265, offs=32) -*/ -ATSINSmove(tmp70, PMVtmpltcst(add_intinf1_intinf1<>)(ATSPMVrefarg0(ATSPMVcastfn(intinf_takeout, atstkind_type(atstype_ptrk), arg0)), ATSPMVrefarg0(ATSPMVcastfn(intinf_takeout, atstkind_type(atstype_ptrk), arg1)))) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 4820(line=271, offs=3) -- 4835(line=271, offs=18) -*/ -ATSINSmove(tmpret69, ATSPMVcastfn(intinf_vt2t, atstkind_type(atstype_ptrk), tmp70)) ; -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 4620(line=254, offs=12) -- 4840(line=272, offs=4) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret69) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_t__add_intinf_intinf__44] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 4933(line=279, offs=3) -- 5090(line=293, offs=4) -*/ -/* -local: -global: sub_intinf_int$45$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_t__sub_intinf_int__45(atstkind_type(atstype_ptrk) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret71, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp72, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 4916(line=278, offs=1) -- 5090(line=293, offs=4) -*/ -ATSINSflab(__patsflab_sub_intinf_int): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 4942(line=279, offs=12) -- 5090(line=293, offs=4) -*/ -/* -letpush(beg) -*/ -/* (*nothing*) */ -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 5002(line=287, offs=3) -- 5027(line=287, offs=28) -*/ -ATSINSmove(tmp72, PMVtmpltcst(sub_intinf1_int<>)(ATSPMVrefarg0(ATSPMVcastfn(intinf_takeout, atstkind_type(atstype_ptrk), arg0)), arg1)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 5070(line=292, offs=3) -- 5085(line=292, offs=18) -*/ -ATSINSmove(tmpret71, ATSPMVcastfn(intinf_vt2t, atstkind_type(atstype_ptrk), tmp72)) ; -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 4942(line=279, offs=12) -- 5090(line=293, offs=4) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret71) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_t__sub_intinf_int__45] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 5156(line=298, offs=3) -- 5313(line=312, offs=4) -*/ -/* -local: -global: sub_int_intinf$46$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_t__sub_int_intinf__46(atstkind_t0ype(atstype_int) arg0, atstkind_type(atstype_ptrk) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret73, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp74, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 5139(line=297, offs=1) -- 5313(line=312, offs=4) -*/ -ATSINSflab(__patsflab_sub_int_intinf): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 5165(line=298, offs=12) -- 5313(line=312, offs=4) -*/ -/* -letpush(beg) -*/ -/* (*nothing*) */ -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 5226(line=306, offs=3) -- 5251(line=306, offs=28) -*/ -ATSINSmove(tmp74, PMVtmpltcst(sub_int_intinf1<>)(arg0, ATSPMVrefarg0(ATSPMVcastfn(intinf_takeout, atstkind_type(atstype_ptrk), arg1)))) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 5293(line=311, offs=3) -- 5308(line=311, offs=18) -*/ -ATSINSmove(tmpret73, ATSPMVcastfn(intinf_vt2t, atstkind_type(atstype_ptrk), tmp74)) ; -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 5165(line=298, offs=12) -- 5313(line=312, offs=4) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret73) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_t__sub_int_intinf__46] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 5382(line=317, offs=3) -- 5616(line=335, offs=4) -*/ -/* -local: -global: sub_intinf_intinf$47$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_t__sub_intinf_intinf__47(atstkind_type(atstype_ptrk) arg0, atstkind_type(atstype_ptrk) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret75, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp76, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 5362(line=316, offs=1) -- 5616(line=335, offs=4) -*/ -ATSINSflab(__patsflab_sub_intinf_intinf): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 5391(line=317, offs=12) -- 5616(line=335, offs=4) -*/ -/* -letpush(beg) -*/ -/* (*nothing*) */ -/* (*nothing*) */ -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 5490(line=328, offs=3) -- 5520(line=328, offs=33) -*/ -ATSINSmove(tmp76, PMVtmpltcst(sub_intinf1_intinf1<>)(ATSPMVrefarg0(ATSPMVcastfn(intinf_takeout, atstkind_type(atstype_ptrk), arg0)), ATSPMVrefarg0(ATSPMVcastfn(intinf_takeout, atstkind_type(atstype_ptrk), arg1)))) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 5596(line=334, offs=3) -- 5611(line=334, offs=18) -*/ -ATSINSmove(tmpret75, ATSPMVcastfn(intinf_vt2t, atstkind_type(atstype_ptrk), tmp76)) ; -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 5391(line=317, offs=12) -- 5616(line=335, offs=4) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret75) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_t__sub_intinf_intinf__47] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 5709(line=342, offs=3) -- 5865(line=356, offs=4) -*/ -/* -local: -global: mul_intinf_int$48$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_t__mul_intinf_int__48(atstkind_type(atstype_ptrk) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret77, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp78, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 5692(line=341, offs=1) -- 5865(line=356, offs=4) -*/ -ATSINSflab(__patsflab_mul_intinf_int): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 5718(line=342, offs=12) -- 5865(line=356, offs=4) -*/ -/* -letpush(beg) -*/ -/* (*nothing*) */ -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 5778(line=350, offs=3) -- 5803(line=350, offs=28) -*/ -ATSINSmove(tmp78, PMVtmpltcst(mul_intinf1_int<>)(ATSPMVrefarg0(ATSPMVcastfn(intinf_takeout, atstkind_type(atstype_ptrk), arg0)), arg1)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 5845(line=355, offs=3) -- 5860(line=355, offs=18) -*/ -ATSINSmove(tmpret77, ATSPMVcastfn(intinf_vt2t, atstkind_type(atstype_ptrk), tmp78)) ; -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 5718(line=342, offs=12) -- 5865(line=356, offs=4) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret77) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_t__mul_intinf_int__48] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 5931(line=361, offs=3) -- 6087(line=375, offs=4) -*/ -/* -local: -global: mul_int_intinf$49$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_t__mul_int_intinf__49(atstkind_t0ype(atstype_int) arg0, atstkind_type(atstype_ptrk) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret79, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp80, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 5914(line=360, offs=1) -- 6087(line=375, offs=4) -*/ -ATSINSflab(__patsflab_mul_int_intinf): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 5940(line=361, offs=12) -- 6087(line=375, offs=4) -*/ -/* -letpush(beg) -*/ -/* (*nothing*) */ -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 6000(line=369, offs=3) -- 6025(line=369, offs=28) -*/ -ATSINSmove(tmp80, PMVtmpltcst(mul_int_intinf1<>)(arg0, ATSPMVrefarg0(ATSPMVcastfn(intinf_takeout, atstkind_type(atstype_ptrk), arg1)))) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 6067(line=374, offs=3) -- 6082(line=374, offs=18) -*/ -ATSINSmove(tmpret79, ATSPMVcastfn(intinf_vt2t, atstkind_type(atstype_ptrk), tmp80)) ; -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 5940(line=361, offs=12) -- 6087(line=375, offs=4) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret79) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_t__mul_int_intinf__49] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 6156(line=380, offs=3) -- 6387(line=398, offs=4) -*/ -/* -local: -global: mul_intinf_intinf$50$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_t__mul_intinf_intinf__50(atstkind_type(atstype_ptrk) arg0, atstkind_type(atstype_ptrk) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret81, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp82, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 6136(line=379, offs=1) -- 6387(line=398, offs=4) -*/ -ATSINSflab(__patsflab_mul_intinf_intinf): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 6165(line=380, offs=12) -- 6387(line=398, offs=4) -*/ -/* -letpush(beg) -*/ -/* (*nothing*) */ -/* (*nothing*) */ -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 6264(line=391, offs=3) -- 6293(line=391, offs=32) -*/ -ATSINSmove(tmp82, PMVtmpltcst(mul_intinf1_intinf1<>)(ATSPMVrefarg0(ATSPMVcastfn(intinf_takeout, atstkind_type(atstype_ptrk), arg0)), ATSPMVrefarg0(ATSPMVcastfn(intinf_takeout, atstkind_type(atstype_ptrk), arg1)))) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 6367(line=397, offs=3) -- 6382(line=397, offs=18) -*/ -ATSINSmove(tmpret81, ATSPMVcastfn(intinf_vt2t, atstkind_type(atstype_ptrk), tmp82)) ; -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 6165(line=380, offs=12) -- 6387(line=398, offs=4) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret81) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_t__mul_intinf_intinf__50] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 6480(line=405, offs=3) -- 6639(line=419, offs=4) -*/ -/* -local: -global: div_intinf_int$51$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_t__div_intinf_int__51(atstkind_type(atstype_ptrk) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret83, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp84, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 6463(line=404, offs=1) -- 6639(line=419, offs=4) -*/ -ATSINSflab(__patsflab_div_intinf_int): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 6489(line=405, offs=12) -- 6639(line=419, offs=4) -*/ -/* -letpush(beg) -*/ -/* (*nothing*) */ -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 6550(line=413, offs=3) -- 6576(line=413, offs=29) -*/ -ATSINSmove(tmp84, PMVtmpltcst(div_intinf1_int<>)(ATSPMVrefarg0(ATSPMVcastfn(intinf_takeout, atstkind_type(atstype_ptrk), arg0)), arg1)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 6619(line=418, offs=3) -- 6634(line=418, offs=18) -*/ -ATSINSmove(tmpret83, ATSPMVcastfn(intinf_vt2t, atstkind_type(atstype_ptrk), tmp84)) ; -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 6489(line=405, offs=12) -- 6639(line=419, offs=4) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret83) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_t__div_intinf_int__51] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 6708(line=424, offs=3) -- 6939(line=442, offs=4) -*/ -/* -local: -global: div_intinf_intinf$52$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_t__div_intinf_intinf__52(atstkind_type(atstype_ptrk) arg0, atstkind_type(atstype_ptrk) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret85, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp86, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 6688(line=423, offs=1) -- 6939(line=442, offs=4) -*/ -ATSINSflab(__patsflab_div_intinf_intinf): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 6717(line=424, offs=12) -- 6939(line=442, offs=4) -*/ -/* -letpush(beg) -*/ -/* (*nothing*) */ -/* (*nothing*) */ -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 6816(line=435, offs=3) -- 6845(line=435, offs=32) -*/ -ATSINSmove(tmp86, PMVtmpltcst(div_intinf1_intinf1<>)(ATSPMVrefarg0(ATSPMVcastfn(intinf_takeout, atstkind_type(atstype_ptrk), arg0)), ATSPMVrefarg0(ATSPMVcastfn(intinf_takeout, atstkind_type(atstype_ptrk), arg1)))) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 6919(line=441, offs=3) -- 6934(line=441, offs=18) -*/ -ATSINSmove(tmpret85, ATSPMVcastfn(intinf_vt2t, atstkind_type(atstype_ptrk), tmp86)) ; -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 6717(line=424, offs=12) -- 6939(line=442, offs=4) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret85) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_t__div_intinf_intinf__52] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 7033(line=449, offs=3) -- 7172(line=461, offs=2) -*/ -/* -local: -global: nmod_intinf_int$53$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_t0ype(atstype_int) -ATSCNTRB_056_HX_056_intinf_t__nmod_intinf_int__53(atstkind_type(atstype_ptrk) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret87, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 7015(line=448, offs=1) -- 7172(line=461, offs=2) -*/ -ATSINSflab(__patsflab_nmod_intinf_int): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 7042(line=449, offs=12) -- 7172(line=461, offs=2) -*/ -/* -letpush(beg) -*/ -/* (*nothing*) */ -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 7108(line=457, offs=11) -- 7134(line=457, offs=37) -*/ -ATSINSmove(tmpret87, PMVtmpltcst(nmod_intinf1_int<>)(ATSPMVrefarg0(ATSPMVcastfn(intinf_takeout, atstkind_type(atstype_ptrk), arg0)), arg1)) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 7042(line=449, offs=12) -- 7172(line=461, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret87) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_t__nmod_intinf_int__53] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 7267(line=468, offs=3) -- 7415(line=479, offs=4) -*/ -/* -local: -global: compare_intinf_int$54$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_t0ype(atstype_int) -ATSCNTRB_056_HX_056_intinf_t__compare_intinf_int__54(atstkind_type(atstype_ptrk) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret88, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 7246(line=467, offs=1) -- 7415(line=479, offs=4) -*/ -ATSINSflab(__patsflab_compare_intinf_int): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 7276(line=468, offs=12) -- 7415(line=479, offs=4) -*/ -/* -letpush(beg) -*/ -/* (*nothing*) */ -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 7333(line=474, offs=11) -- 7362(line=474, offs=40) -*/ -ATSINSmove(tmpret88, PMVtmpltcst(compare_intinf_int<>)(ATSPMVrefarg0(ATSPMVcastfn(intinf_takeout, atstkind_type(atstype_ptrk), arg0)), arg1)) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 7276(line=468, offs=12) -- 7415(line=479, offs=4) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret88) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_t__compare_intinf_int__54] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 7492(line=484, offs=3) -- 7640(line=495, offs=4) -*/ -/* -local: -global: compare_int_intinf$55$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_t0ype(atstype_int) -ATSCNTRB_056_HX_056_intinf_t__compare_int_intinf__55(atstkind_t0ype(atstype_int) arg0, atstkind_type(atstype_ptrk) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret89, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 7471(line=483, offs=1) -- 7640(line=495, offs=4) -*/ -ATSINSflab(__patsflab_compare_int_intinf): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 7501(line=484, offs=12) -- 7640(line=495, offs=4) -*/ -/* -letpush(beg) -*/ -/* (*nothing*) */ -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 7558(line=490, offs=11) -- 7587(line=490, offs=40) -*/ -ATSINSmove(tmpret89, PMVtmpltcst(compare_int_intinf<>)(arg0, ATSPMVrefarg0(ATSPMVcastfn(intinf_takeout, atstkind_type(atstype_ptrk), arg1)))) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 7501(line=484, offs=12) -- 7640(line=495, offs=4) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret89) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_t__compare_int_intinf__55] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 7720(line=500, offs=3) -- 7931(line=516, offs=4) -*/ -/* -local: -global: compare_intinf_intinf$56$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_t0ype(atstype_int) -ATSCNTRB_056_HX_056_intinf_t__compare_intinf_intinf__56(atstkind_type(atstype_ptrk) arg0, atstkind_type(atstype_ptrk) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret90, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 7696(line=499, offs=1) -- 7931(line=516, offs=4) -*/ -ATSINSflab(__patsflab_compare_intinf_intinf): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 7729(line=500, offs=12) -- 7931(line=516, offs=4) -*/ -/* -letpush(beg) -*/ -/* (*nothing*) */ -/* (*nothing*) */ -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 7826(line=510, offs=11) -- 7858(line=510, offs=43) -*/ -ATSINSmove(tmpret90, PMVtmpltcst(compare_intinf_intinf<>)(ATSPMVrefarg0(ATSPMVcastfn(intinf_takeout, atstkind_type(atstype_ptrk), arg0)), ATSPMVrefarg0(ATSPMVcastfn(intinf_takeout, atstkind_type(atstype_ptrk), arg1)))) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 7729(line=500, offs=12) -- 7931(line=516, offs=4) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret90) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_t__compare_intinf_intinf__56] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 8025(line=523, offs=3) -- 8113(line=530, offs=4) -*/ -/* -local: -global: pow_int_int$57$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_t__pow_int_int__57(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret91, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp92, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 8011(line=522, offs=1) -- 8113(line=530, offs=4) -*/ -ATSINSflab(__patsflab_pow_int_int): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 8039(line=523, offs=17) -- 8113(line=530, offs=4) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 8058(line=526, offs=3) -- 8084(line=526, offs=29) -*/ -ATSINSmove(tmp92, PMVtmpltcst(pow_int_int<>)(arg0, arg1)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 8093(line=529, offs=3) -- 8108(line=529, offs=18) -*/ -ATSINSmove(tmpret91, ATSPMVcastfn(intinf_vt2t, atstkind_type(atstype_ptrk), tmp92)) ; -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 8039(line=523, offs=17) -- 8113(line=530, offs=4) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret91) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_t__pow_int_int__57] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 8200(line=537, offs=3) -- 8374(line=551, offs=4) -*/ -/* -local: -global: pow_intinf_int$58$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_t__pow_intinf_int__58(atstkind_type(atstype_ptrk) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret93, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp94, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 8183(line=536, offs=1) -- 8374(line=551, offs=4) -*/ -ATSINSflab(__patsflab_pow_intinf_int): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 8214(line=537, offs=17) -- 8374(line=551, offs=4) -*/ -/* -letpush(beg) -*/ -/* (*nothing*) */ -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 8280(line=545, offs=3) -- 8309(line=545, offs=32) -*/ -ATSINSmove(tmp94, PMVtmpltcst(pow_intinf_int<>)(ATSPMVrefarg0(ATSPMVcastfn(intinf_takeout, atstkind_type(atstype_ptrk), arg0)), arg1)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 8354(line=550, offs=3) -- 8369(line=550, offs=18) -*/ -ATSINSmove(tmpret93, ATSPMVcastfn(intinf_vt2t, atstkind_type(atstype_ptrk), tmp94)) ; -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 8214(line=537, offs=17) -- 8374(line=551, offs=4) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret93) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_t__pow_intinf_int__58] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2209(line=74, offs=3) -- 2301(line=80, offs=2) -*/ -/* -local: -global: intinf_make_int$59$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__59(atstkind_t0ype(atstype_int) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret95, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp96, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp97) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2191(line=73, offs=1) -- 2301(line=80, offs=2) -*/ -ATSINSflab(__patsflab_intinf_make_int): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2238(line=77, offs=9) -- 2254(line=77, offs=25) -*/ -ATSINSmove(tmp96, PMVtmpltcst(ptr_alloc)()) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2264(line=78, offs=10) -- 2296(line=78, offs=42) -*/ -ATSINSmove_void(tmp97, atscntrb_gmp_mpz_init_set_int(ATSPMVrefarg1(ATSSELrecsin(tmp96, atstkind_type(atstype_ptrk), atslab__2)), arg0)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2216(line=74, offs=10) -- 2217(line=74, offs=11) -*/ -ATSINSmove(tmpret95, tmp96) ; -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret95) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__59] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2373(line=85, offs=3) -- 2466(line=91, offs=2) -*/ -/* -local: -global: intinf_make_uint$60$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__intinf_make_uint__60(atstkind_t0ype(atstype_uint) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret98, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp99, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp100) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2354(line=84, offs=1) -- 2466(line=91, offs=2) -*/ -ATSINSflab(__patsflab_intinf_make_uint): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2379(line=85, offs=9) -- 2466(line=91, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2402(line=88, offs=9) -- 2418(line=88, offs=25) -*/ -ATSINSmove(tmp99, PMVtmpltcst(ptr_alloc)()) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2428(line=89, offs=10) -- 2461(line=89, offs=43) -*/ -ATSINSmove_void(tmp100, atscntrb_gmp_mpz_init_set_uint(ATSPMVrefarg1(ATSSELrecsin(tmp99, atstkind_type(atstype_ptrk), atslab__2)), arg0)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2380(line=85, offs=10) -- 2381(line=85, offs=11) -*/ -ATSINSmove(tmpret98, tmp99) ; -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2379(line=85, offs=9) -- 2466(line=91, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret98) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_make_uint__60] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2539(line=96, offs=3) -- 2632(line=102, offs=2) -*/ -/* -local: -global: intinf_make_lint$61$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__intinf_make_lint__61(atstkind_t0ype(atstype_lint) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret101, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp102, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp103) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2520(line=95, offs=1) -- 2632(line=102, offs=2) -*/ -ATSINSflab(__patsflab_intinf_make_lint): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2545(line=96, offs=9) -- 2632(line=102, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2568(line=99, offs=9) -- 2584(line=99, offs=25) -*/ -ATSINSmove(tmp102, PMVtmpltcst(ptr_alloc)()) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2594(line=100, offs=10) -- 2627(line=100, offs=43) -*/ -ATSINSmove_void(tmp103, atscntrb_gmp_mpz_init_set_lint(ATSPMVrefarg1(ATSSELrecsin(tmp102, atstkind_type(atstype_ptrk), atslab__2)), arg0)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2546(line=96, offs=10) -- 2547(line=96, offs=11) -*/ -ATSINSmove(tmpret101, tmp102) ; -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2545(line=96, offs=9) -- 2632(line=102, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret101) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_make_lint__61] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2706(line=107, offs=3) -- 2801(line=113, offs=2) -*/ -/* -local: -global: intinf_make_ulint$62$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__intinf_make_ulint__62(atstkind_t0ype(atstype_ulint) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret104, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp105, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp106) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2686(line=106, offs=1) -- 2801(line=113, offs=2) -*/ -ATSINSflab(__patsflab_intinf_make_ulint): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2712(line=107, offs=9) -- 2801(line=113, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2735(line=110, offs=9) -- 2752(line=110, offs=26) -*/ -ATSINSmove(tmp105, PMVtmpltcst(ptr_alloc)()) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2762(line=111, offs=10) -- 2796(line=111, offs=44) -*/ -ATSINSmove_void(tmp106, atscntrb_gmp_mpz_init_set_ulint(ATSPMVrefarg1(ATSSELrecsin(tmp105, atstkind_type(atstype_ptrk), atslab__2)), arg0)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2713(line=107, offs=10) -- 2714(line=107, offs=11) -*/ -ATSINSmove(tmpret104, tmp105) ; -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2712(line=107, offs=9) -- 2801(line=113, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret104) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_make_ulint__62] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2888(line=119, offs=12) -- 2987(line=122, offs=4) -*/ -/* -local: -global: intinf_free$63$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atsvoid_t0ype -ATSCNTRB_056_HX_056_intinf_vt__intinf_free__63(atstkind_type(atstype_ptrk) arg0) -{ -/* tmpvardeclst(beg) */ -// ATStmpdec_void(tmpret107) ; -// ATStmpdec_void(tmp108) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/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 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2894(line=119, offs=18) -- 2987(line=122, offs=4) -*/ -/* -letpush(beg) -*/ -/* (*nothing*) */ -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2936(line=121, offs=12) -- 2955(line=121, offs=31) -*/ -ATSINSmove_void(tmp108, atscntrb_gmp_mpz_clear(ATSPMVrefarg1(arg0))) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2959(line=121, offs=35) -- 2983(line=121, offs=59) -*/ -ATSINSmove_void(tmpret107, atspre_ptr_free(arg0)) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2894(line=119, offs=18) -- 2987(line=122, offs=4) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn_void(tmpret107) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_free__63] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 3071(line=128, offs=15) -- 3101(line=128, offs=45) -*/ -/* -local: -global: intinf_get_int$64$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_t0ype(atstype_int) -ATSCNTRB_056_HX_056_intinf_vt__intinf_get_int__64(atsrefarg0_type(atstkind_type(atstype_ptrk)) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret109, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 3057(line=128, offs=1) -- 3101(line=128, offs=45) -*/ -ATSINSflab(__patsflab_intinf_get_int): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 3077(line=128, offs=21) -- 3101(line=128, offs=45) -*/ -ATSINSmove(tmpret109, atscntrb_gmp_mpz_get_int(ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)))) ; - -ATSfunbody_end() -ATSreturn(tmpret109) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_get_int__64] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 3137(line=131, offs=16) -- 3168(line=131, offs=47) -*/ -/* -local: -global: intinf_get_lint$65$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_t0ype(atstype_lint) -ATSCNTRB_056_HX_056_intinf_vt__intinf_get_lint__65(atsrefarg0_type(atstkind_type(atstype_ptrk)) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret110, atstkind_t0ype(atstype_lint)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 3122(line=131, offs=1) -- 3168(line=131, offs=47) -*/ -ATSINSflab(__patsflab_intinf_get_lint): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 3143(line=131, offs=22) -- 3168(line=131, offs=47) -*/ -ATSINSmove(tmpret110, atscntrb_gmp_mpz_get_lint(ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)))) ; - -ATSfunbody_end() -ATSreturn(tmpret110) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_get_lint__65] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 3233(line=138, offs=3) -- 3280(line=138, offs=50) -*/ -/* -local: -global: intinf_get_strptr$66$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__intinf_get_strptr__66(atsrefarg0_type(atstkind_type(atstype_ptrk)) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret111, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 3213(line=137, offs=1) -- 3280(line=138, offs=50) -*/ -ATSINSflab(__patsflab_intinf_get_strptr): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 3245(line=138, offs=15) -- 3280(line=138, offs=50) -*/ -ATSINSmove(tmpret111, atscntrb_gmp_mpz_get_str_null(arg1, ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)))) ; - -ATSfunbody_end() -ATSreturn(tmpret111) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_get_strptr__66] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 3378(line=146, offs=3) -- 3545(line=158, offs=4) -*/ -/* -local: -global: fprint_intinf_base$67$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atsvoid_t0ype -ATSCNTRB_056_HX_056_intinf_vt__fprint_intinf_base__67(atstkind_type(atstype_ptrk) arg0, atsrefarg0_type(atstkind_type(atstype_ptrk)) arg1, atstkind_t0ype(atstype_int) arg2) -{ -/* tmpvardeclst(beg) */ -// ATStmpdec_void(tmpret112) ; -ATStmpdec(tmp113, atstkind_t0ype(atstype_size)) ; -ATStmpdec(tmp114, atstkind_t0ype(atstype_bool)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 3357(line=145, offs=1) -- 3545(line=158, offs=4) -*/ -ATSINSflab(__patsflab_fprint_intinf_base): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 3395(line=146, offs=20) -- 3545(line=158, offs=4) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 3412(line=148, offs=11) -- 3447(line=148, offs=46) -*/ -ATSINSmove(tmp113, atscntrb_gmp_mpz_out_str(arg0, arg2, ATSPMVrefarg1(ATSSELrecsin(arg1, atstkind_type(atstype_ptrk), atslab__2)))) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 3461(line=153, offs=2) -- 3468(line=153, offs=9) -*/ -ATSINSmove(tmp114, PMVtmpltcst(eq_g0uint_int)(tmp113, ATSPMVi0nt(0))) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 3457(line=152, offs=1) -- 3523(line=155, offs=49) -*/ -ATSif( -tmp114 -) ATSthen() { -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 3475(line=155, offs=1) -- 3523(line=155, offs=49) -*/ -ATSINSmove_void(tmpret112, atspre_exit_errmsg(ATSPMVi0nt(1), ATSPMVstring("libgmp/gmp: fprint_intinf_base"))) ; - -} ATSelse() { -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 3523(line=155, offs=49) -- 3523(line=155, offs=49) -*/ -ATSINSmove_void(tmpret112, ATSPMVempty()) ; -} /* ATSendif */ -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 3395(line=146, offs=20) -- 3545(line=158, offs=4) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn_void(tmpret112) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__fprint_intinf_base__67] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 3629(line=165, offs=3) -- 3684(line=170, offs=2) -*/ -/* -local: -global: neg_intinf0$68$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__neg_intinf0__68(atstkind_type(atstype_ptrk) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret115, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp116) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 3615(line=164, offs=1) -- 3684(line=170, offs=2) -*/ -ATSINSflab(__patsflab_neg_intinf0): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 3635(line=165, offs=9) -- 3684(line=170, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 3659(line=168, offs=10) -- 3679(line=168, offs=30) -*/ -ATSINSmove_void(tmp116, atscntrb_gmp_mpz_neg1(ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)))) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 3636(line=165, offs=10) -- 3637(line=165, offs=11) -*/ -ATSINSmove(tmpret115, arg0) ; -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 3635(line=165, offs=9) -- 3684(line=170, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret115) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__neg_intinf0__68] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 3747(line=175, offs=3) -- 3866(line=182, offs=2) -*/ -/* -local: -global: neg_intinf1$69$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__neg_intinf1__69(atsrefarg0_type(atstkind_type(atstype_ptrk)) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret117, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp118, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp119) ; -// ATStmpdec_void(tmp120) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 3733(line=174, offs=1) -- 3866(line=182, offs=2) -*/ -ATSINSflab(__patsflab_neg_intinf1): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 3753(line=175, offs=9) -- 3866(line=182, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 3776(line=178, offs=9) -- 3792(line=178, offs=25) -*/ -ATSINSmove(tmp118, PMVtmpltcst(ptr_alloc)()) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 3802(line=179, offs=10) -- 3823(line=179, offs=31) -*/ -ATSINSmove_void(tmp119, atscntrb_gmp_mpz_init(ATSPMVrefarg1(ATSSELrecsin(tmp118, atstkind_type(atstype_ptrk), atslab__2)))) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 3833(line=180, offs=10) -- 3861(line=180, offs=38) -*/ -ATSINSmove_void(tmp120, atscntrb_gmp_mpz_neg2(ATSPMVrefarg1(ATSSELrecsin(tmp118, atstkind_type(atstype_ptrk), atslab__2)), ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)))) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 3754(line=175, offs=10) -- 3755(line=175, offs=11) -*/ -ATSINSmove(tmpret117, tmp118) ; -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 3753(line=175, offs=9) -- 3866(line=182, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret117) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__neg_intinf1__69] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 3950(line=189, offs=3) -- 4005(line=194, offs=2) -*/ -/* -local: -global: abs_intinf0$70$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__abs_intinf0__70(atstkind_type(atstype_ptrk) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret121, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp122) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 3936(line=188, offs=1) -- 4005(line=194, offs=2) -*/ -ATSINSflab(__patsflab_abs_intinf0): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 3956(line=189, offs=9) -- 4005(line=194, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 3980(line=192, offs=10) -- 4000(line=192, offs=30) -*/ -ATSINSmove_void(tmp122, atscntrb_gmp_mpz_abs1(ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)))) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 3957(line=189, offs=10) -- 3958(line=189, offs=11) -*/ -ATSINSmove(tmpret121, arg0) ; -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 3956(line=189, offs=9) -- 4005(line=194, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret121) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__abs_intinf0__70] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4068(line=199, offs=3) -- 4190(line=207, offs=2) -*/ -/* -local: -global: abs_intinf1$71$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__abs_intinf1__71(atsrefarg0_type(atstkind_type(atstype_ptrk)) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret123, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp124, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp125) ; -// ATStmpdec_void(tmp126) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4054(line=198, offs=1) -- 4190(line=207, offs=2) -*/ -ATSINSflab(__patsflab_abs_intinf1): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4074(line=199, offs=9) -- 4190(line=207, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4097(line=202, offs=9) -- 4113(line=202, offs=25) -*/ -ATSINSmove(tmp124, PMVtmpltcst(ptr_alloc)()) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4126(line=204, offs=10) -- 4147(line=204, offs=31) -*/ -ATSINSmove_void(tmp125, atscntrb_gmp_mpz_init(ATSPMVrefarg1(ATSSELrecsin(tmp124, atstkind_type(atstype_ptrk), atslab__2)))) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4157(line=205, offs=10) -- 4185(line=205, offs=38) -*/ -ATSINSmove_void(tmp126, atscntrb_gmp_mpz_abs2(ATSPMVrefarg1(ATSSELrecsin(tmp124, atstkind_type(atstype_ptrk), atslab__2)), ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)))) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4075(line=199, offs=10) -- 4076(line=199, offs=11) -*/ -ATSINSmove(tmpret123, tmp124) ; -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4074(line=199, offs=9) -- 4190(line=207, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret123) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__abs_intinf1__71] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4277(line=214, offs=3) -- 4304(line=214, offs=30) -*/ -/* -local: -global: succ_intinf0$72$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__succ_intinf0__72(atstkind_type(atstype_ptrk) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret127, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4262(line=213, offs=1) -- 4304(line=214, offs=30) -*/ -ATSINSflab(__patsflab_succ_intinf0): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4283(line=214, offs=9) -- 4304(line=214, offs=30) -*/ -ATSINSmove(tmpret127, PMVtmpltcst(add_intinf0_int<>)(arg0, ATSPMVi0nt(1))) ; - -ATSfunbody_end() -ATSreturn(tmpret127) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__succ_intinf0__72] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4340(line=218, offs=3) -- 4367(line=218, offs=30) -*/ -/* -local: -global: succ_intinf1$73$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__succ_intinf1__73(atsrefarg0_type(atstkind_type(atstype_ptrk)) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret128, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4325(line=217, offs=1) -- 4367(line=218, offs=30) -*/ -ATSINSflab(__patsflab_succ_intinf1): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4346(line=218, offs=9) -- 4367(line=218, offs=30) -*/ -ATSINSmove(tmpret128, PMVtmpltcst(add_intinf1_int<>)(ATSPMVrefarg0(arg0), ATSPMVi0nt(1))) ; - -ATSfunbody_end() -ATSreturn(tmpret128) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__succ_intinf1__73] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4429(line=225, offs=3) -- 4456(line=225, offs=30) -*/ -/* -local: -global: pred_intinf0$74$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__pred_intinf0__74(atstkind_type(atstype_ptrk) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret129, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4414(line=224, offs=1) -- 4456(line=225, offs=30) -*/ -ATSINSflab(__patsflab_pred_intinf0): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4435(line=225, offs=9) -- 4456(line=225, offs=30) -*/ -ATSINSmove(tmpret129, PMVtmpltcst(sub_intinf0_int<>)(arg0, ATSPMVi0nt(1))) ; - -ATSfunbody_end() -ATSreturn(tmpret129) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__pred_intinf0__74] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4492(line=229, offs=3) -- 4519(line=229, offs=30) -*/ -/* -local: -global: pred_intinf1$75$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__pred_intinf1__75(atsrefarg0_type(atstkind_type(atstype_ptrk)) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret130, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4477(line=228, offs=1) -- 4519(line=229, offs=30) -*/ -ATSINSflab(__patsflab_pred_intinf1): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4498(line=229, offs=9) -- 4519(line=229, offs=30) -*/ -ATSINSmove(tmpret130, PMVtmpltcst(sub_intinf1_int<>)(ATSPMVrefarg0(arg0), ATSPMVi0nt(1))) ; - -ATSfunbody_end() -ATSreturn(tmpret130) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__pred_intinf1__75] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4581(line=236, offs=3) -- 4665(line=240, offs=2) -*/ -/* -local: -global: square_intinf0$76$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__square_intinf0__76(atstkind_type(atstype_ptrk) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret131, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp132, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp133) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/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 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4587(line=236, offs=9) -- 4665(line=240, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4611(line=238, offs=13) -- 4627(line=238, offs=29) -*/ -ATSINSmove(tmp132, PMVtmpltcst(square_intinf1<>)(ATSPMVrefarg0(arg0))) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4649(line=239, offs=21) -- 4662(line=239, offs=34) -*/ -ATSINSmove_void(tmp133, PMVtmpltcst(intinf_free<>)(arg0)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4587(line=236, offs=9) -- 4590(line=236, offs=12) -*/ -ATSINSmove(tmpret131, tmp132) ; -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4587(line=236, offs=9) -- 4665(line=240, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret131) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__square_intinf0__76] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4755(line=247, offs=3) -- 4900(line=256, offs=2) -*/ -/* -local: -global: square_intinf1$77$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__square_intinf1__77(atsrefarg0_type(atstkind_type(atstype_ptrk)) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret134, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp135, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp136) ; -// ATStmpdec_void(tmp137) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/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 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4761(line=247, offs=9) -- 4900(line=256, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4784(line=250, offs=9) -- 4800(line=250, offs=25) -*/ -ATSINSmove(tmp135, PMVtmpltcst(ptr_alloc)()) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4812(line=252, offs=3) -- 4849(line=252, offs=40) -*/ -ATSINSmove_void(tmp136, atscntrb_gmp_mpz_init_set_mpz(ATSPMVrefarg1(ATSSELrecsin(tmp135, atstkind_type(atstype_ptrk), atslab__2)), ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)))) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4862(line=254, offs=10) -- 4895(line=254, offs=43) -*/ -ATSINSmove_void(tmp137, atscntrb_gmp_mpz_mul2_mpz(ATSPMVrefarg1(ATSSELrecsin(tmp135, atstkind_type(atstype_ptrk), atslab__2)), ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)))) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4762(line=247, offs=10) -- 4763(line=247, offs=11) -*/ -ATSINSmove(tmpret134, tmp135) ; -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4761(line=247, offs=9) -- 4900(line=256, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret134) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__square_intinf1__77] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4991(line=263, offs=3) -- 5021(line=263, offs=33) -*/ -/* -local: -global: add_int_intinf0$78$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__add_int_intinf0__78(atstkind_t0ype(atstype_int) arg0, atstkind_type(atstype_ptrk) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret138, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4973(line=262, offs=1) -- 5021(line=263, offs=33) -*/ -ATSINSflab(__patsflab_add_int_intinf0): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5000(line=263, offs=12) -- 5021(line=263, offs=33) -*/ -ATSINSmove(tmpret138, PMVtmpltcst(add_intinf0_int<>)(arg1, arg0)) ; - -ATSfunbody_end() -ATSreturn(tmpret138) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__add_int_intinf0__78] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5060(line=267, offs=3) -- 5090(line=267, offs=33) -*/ -/* -local: -global: add_int_intinf1$79$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__add_int_intinf1__79(atstkind_t0ype(atstype_int) arg0, atsrefarg0_type(atstkind_type(atstype_ptrk)) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret139, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5042(line=266, offs=1) -- 5090(line=267, offs=33) -*/ -ATSINSflab(__patsflab_add_int_intinf1): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5069(line=267, offs=12) -- 5090(line=267, offs=33) -*/ -ATSINSmove(tmpret139, PMVtmpltcst(add_intinf1_int<>)(ATSPMVrefarg0(arg1), arg0)) ; - -ATSfunbody_end() -ATSreturn(tmpret139) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__add_int_intinf1__79] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5151(line=274, offs=3) -- 5217(line=279, offs=2) -*/ -/* -local: -global: add_intinf0_int$80$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__add_intinf0_int__80(atstkind_type(atstype_ptrk) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret140, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp141) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5133(line=273, offs=1) -- 5217(line=279, offs=2) -*/ -ATSINSflab(__patsflab_add_intinf0_int): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5160(line=274, offs=12) -- 5217(line=279, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5184(line=277, offs=10) -- 5212(line=277, offs=38) -*/ -ATSINSmove_void(tmp141, atscntrb_gmp_mpz_add2_int(ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), arg1)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5161(line=274, offs=13) -- 5162(line=274, offs=14) -*/ -ATSINSmove(tmpret140, arg0) ; -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5160(line=274, offs=12) -- 5217(line=279, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret140) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__add_intinf0_int__80] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5288(line=284, offs=3) -- 5418(line=291, offs=2) -*/ -/* -local: -global: add_intinf1_int$81$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__add_intinf1_int__81(atsrefarg0_type(atstkind_type(atstype_ptrk)) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret142, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp143, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp144) ; -// ATStmpdec_void(tmp145) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5270(line=283, offs=1) -- 5418(line=291, offs=2) -*/ -ATSINSflab(__patsflab_add_intinf1_int): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5297(line=284, offs=12) -- 5418(line=291, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5320(line=287, offs=9) -- 5336(line=287, offs=25) -*/ -ATSINSmove(tmp143, PMVtmpltcst(ptr_alloc)()) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5346(line=288, offs=10) -- 5367(line=288, offs=31) -*/ -ATSINSmove_void(tmp144, atscntrb_gmp_mpz_init(ATSPMVrefarg1(ATSSELrecsin(tmp143, atstkind_type(atstype_ptrk), atslab__2)))) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5377(line=289, offs=10) -- 5413(line=289, offs=46) -*/ -ATSINSmove_void(tmp145, atscntrb_gmp_mpz_add3_int(ATSPMVrefarg1(ATSSELrecsin(tmp143, atstkind_type(atstype_ptrk), atslab__2)), ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), arg1)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5298(line=284, offs=13) -- 5299(line=284, offs=14) -*/ -ATSINSmove(tmpret142, tmp143) ; -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5297(line=284, offs=12) -- 5418(line=291, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret142) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__add_intinf1_int__81] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5514(line=298, offs=3) -- 5585(line=303, offs=2) -*/ -/* -local: -global: add_intinf0_intinf1$82$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__add_intinf0_intinf1__82(atstkind_type(atstype_ptrk) arg0, atsrefarg0_type(atstkind_type(atstype_ptrk)) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret146, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp147) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5492(line=297, offs=1) -- 5585(line=303, offs=2) -*/ -ATSINSflab(__patsflab_add_intinf0_intinf1): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5523(line=298, offs=12) -- 5585(line=303, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5547(line=301, offs=10) -- 5580(line=301, offs=43) -*/ -ATSINSmove_void(tmp147, atscntrb_gmp_mpz_add2_mpz(ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), ATSPMVrefarg1(ATSSELrecsin(arg1, atstkind_type(atstype_ptrk), atslab__2)))) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5524(line=298, offs=13) -- 5525(line=298, offs=14) -*/ -ATSINSmove(tmpret146, arg0) ; -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5523(line=298, offs=12) -- 5585(line=303, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret146) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__add_intinf0_intinf1__82] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5664(line=308, offs=3) -- 5735(line=313, offs=2) -*/ -/* -local: -global: add_intinf1_intinf0$83$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__add_intinf1_intinf0__83(atsrefarg0_type(atstkind_type(atstype_ptrk)) arg0, atstkind_type(atstype_ptrk) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret148, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp149) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5642(line=307, offs=1) -- 5735(line=313, offs=2) -*/ -ATSINSflab(__patsflab_add_intinf1_intinf0): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5673(line=308, offs=12) -- 5735(line=313, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5697(line=311, offs=10) -- 5730(line=311, offs=43) -*/ -ATSINSmove_void(tmp149, atscntrb_gmp_mpz_add2_mpz(ATSPMVrefarg1(ATSSELrecsin(arg1, atstkind_type(atstype_ptrk), atslab__2)), ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)))) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5674(line=308, offs=13) -- 5675(line=308, offs=14) -*/ -ATSINSmove(tmpret148, arg1) ; -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5673(line=308, offs=12) -- 5735(line=313, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret148) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__add_intinf1_intinf0__83] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5835(line=320, offs=3) -- 5970(line=327, offs=2) -*/ -/* -local: -global: add_intinf1_intinf1$84$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__add_intinf1_intinf1__84(atsrefarg0_type(atstkind_type(atstype_ptrk)) arg0, atsrefarg0_type(atstkind_type(atstype_ptrk)) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret150, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp151, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp152) ; -// ATStmpdec_void(tmp153) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5813(line=319, offs=1) -- 5970(line=327, offs=2) -*/ -ATSINSflab(__patsflab_add_intinf1_intinf1): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5844(line=320, offs=12) -- 5970(line=327, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5867(line=323, offs=9) -- 5883(line=323, offs=25) -*/ -ATSINSmove(tmp151, PMVtmpltcst(ptr_alloc)()) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5893(line=324, offs=10) -- 5914(line=324, offs=31) -*/ -ATSINSmove_void(tmp152, atscntrb_gmp_mpz_init(ATSPMVrefarg1(ATSSELrecsin(tmp151, atstkind_type(atstype_ptrk), atslab__2)))) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5924(line=325, offs=10) -- 5965(line=325, offs=51) -*/ -ATSINSmove_void(tmp153, atscntrb_gmp_mpz_add3_mpz(ATSPMVrefarg1(ATSSELrecsin(tmp151, atstkind_type(atstype_ptrk), atslab__2)), ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), ATSPMVrefarg1(ATSSELrecsin(arg1, atstkind_type(atstype_ptrk), atslab__2)))) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5845(line=320, offs=13) -- 5846(line=320, offs=14) -*/ -ATSINSmove(tmpret150, tmp151) ; -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5844(line=320, offs=12) -- 5970(line=327, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret150) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__add_intinf1_intinf1__84] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 6066(line=334, offs=3) -- 6132(line=339, offs=2) -*/ -/* -local: -global: sub_intinf0_int$85$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__sub_intinf0_int__85(atstkind_type(atstype_ptrk) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret154, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp155) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 6048(line=333, offs=1) -- 6132(line=339, offs=2) -*/ -ATSINSflab(__patsflab_sub_intinf0_int): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 6075(line=334, offs=12) -- 6132(line=339, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 6099(line=337, offs=10) -- 6127(line=337, offs=38) -*/ -ATSINSmove_void(tmp155, atscntrb_gmp_mpz_sub2_int(ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), arg1)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 6076(line=334, offs=13) -- 6077(line=334, offs=14) -*/ -ATSINSmove(tmpret154, arg0) ; -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 6075(line=334, offs=12) -- 6132(line=339, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret154) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__sub_intinf0_int__85] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 6203(line=344, offs=3) -- 6333(line=351, offs=2) -*/ -/* -local: -global: sub_intinf1_int$86$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__sub_intinf1_int__86(atsrefarg0_type(atstkind_type(atstype_ptrk)) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret156, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp157, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp158) ; -// ATStmpdec_void(tmp159) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 6185(line=343, offs=1) -- 6333(line=351, offs=2) -*/ -ATSINSflab(__patsflab_sub_intinf1_int): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 6212(line=344, offs=12) -- 6333(line=351, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 6235(line=347, offs=9) -- 6251(line=347, offs=25) -*/ -ATSINSmove(tmp157, PMVtmpltcst(ptr_alloc)()) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 6261(line=348, offs=10) -- 6282(line=348, offs=31) -*/ -ATSINSmove_void(tmp158, atscntrb_gmp_mpz_init(ATSPMVrefarg1(ATSSELrecsin(tmp157, atstkind_type(atstype_ptrk), atslab__2)))) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 6292(line=349, offs=10) -- 6328(line=349, offs=46) -*/ -ATSINSmove_void(tmp159, atscntrb_gmp_mpz_sub3_int(ATSPMVrefarg1(ATSSELrecsin(tmp157, atstkind_type(atstype_ptrk), atslab__2)), ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), arg1)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 6213(line=344, offs=13) -- 6214(line=344, offs=14) -*/ -ATSINSmove(tmpret156, tmp157) ; -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 6212(line=344, offs=12) -- 6333(line=351, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret156) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__sub_intinf1_int__86] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 6422(line=357, offs=16) -- 6489(line=359, offs=4) -*/ -/* -local: -global: sub_int_intinf0$87$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__sub_int_intinf0__87(atstkind_t0ype(atstype_int) arg0, atstkind_type(atstype_ptrk) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret160, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp161, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 6407(line=357, offs=1) -- 6489(line=359, offs=4) -*/ -ATSINSflab(__patsflab_sub_int_intinf0): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 6431(line=357, offs=25) -- 6489(line=359, offs=4) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 6445(line=358, offs=11) -- 6467(line=358, offs=33) -*/ -ATSINSmove(tmp161, PMVtmpltcst(sub_intinf0_int<>)(arg1, arg0)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 6471(line=358, offs=37) -- 6484(line=358, offs=50) -*/ -ATSINSmove(tmpret160, PMVtmpltcst(neg_intinf0<>)(tmp161)) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 6431(line=357, offs=25) -- 6489(line=359, offs=4) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret160) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__sub_int_intinf0__87] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 6557(line=363, offs=16) -- 6624(line=365, offs=4) -*/ -/* -local: -global: sub_int_intinf1$88$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__sub_int_intinf1__88(atstkind_t0ype(atstype_int) arg0, atsrefarg0_type(atstkind_type(atstype_ptrk)) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret162, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp163, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 6542(line=363, offs=1) -- 6624(line=365, offs=4) -*/ -ATSINSflab(__patsflab_sub_int_intinf1): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 6566(line=363, offs=25) -- 6624(line=365, offs=4) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 6580(line=364, offs=11) -- 6602(line=364, offs=33) -*/ -ATSINSmove(tmp163, PMVtmpltcst(sub_intinf1_int<>)(ATSPMVrefarg0(arg1), arg0)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 6606(line=364, offs=37) -- 6619(line=364, offs=50) -*/ -ATSINSmove(tmpret162, PMVtmpltcst(neg_intinf0<>)(tmp163)) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 6566(line=363, offs=25) -- 6624(line=365, offs=4) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret162) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__sub_int_intinf1__88] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 6720(line=372, offs=3) -- 6792(line=377, offs=2) -*/ -/* -local: -global: sub_intinf0_intinf1$89$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__sub_intinf0_intinf1__89(atstkind_type(atstype_ptrk) arg0, atsrefarg0_type(atstkind_type(atstype_ptrk)) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret164, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp165) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 6698(line=371, offs=1) -- 6792(line=377, offs=2) -*/ -ATSINSflab(__patsflab_sub_intinf0_intinf1): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 6729(line=372, offs=12) -- 6792(line=377, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 6753(line=375, offs=10) -- 6787(line=375, offs=44) -*/ -ATSINSmove_void(tmp165, atscntrb_gmp_mpz_sub2_mpz(ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), ATSPMVrefarg1(ATSSELrecsin(arg1, atstkind_type(atstype_ptrk), atslab__2)))) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 6730(line=372, offs=13) -- 6731(line=372, offs=14) -*/ -ATSINSmove(tmpret164, arg0) ; -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 6729(line=372, offs=12) -- 6792(line=377, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret164) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__sub_intinf0_intinf1__89] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 6871(line=382, offs=3) -- 6920(line=382, offs=52) -*/ -/* -local: -global: sub_intinf1_intinf0$90$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__sub_intinf1_intinf0__90(atsrefarg0_type(atstkind_type(atstype_ptrk)) arg0, atstkind_type(atstype_ptrk) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret166, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp167, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 6849(line=381, offs=1) -- 6920(line=382, offs=52) -*/ -ATSINSflab(__patsflab_sub_intinf1_intinf0): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 6893(line=382, offs=25) -- 6919(line=382, offs=51) -*/ -ATSINSmove(tmp167, PMVtmpltcst(sub_intinf0_intinf1<>)(arg1, ATSPMVrefarg0(arg0))) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 6880(line=382, offs=12) -- 6920(line=382, offs=52) -*/ -ATSINSmove(tmpret166, PMVtmpltcst(neg_intinf0<>)(tmp167)) ; - -ATSfunbody_end() -ATSreturn(tmpret166) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__sub_intinf1_intinf0__90] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 6996(line=388, offs=3) -- 7134(line=395, offs=2) -*/ -/* -local: -global: sub_intinf1_intinf1$91$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__sub_intinf1_intinf1__91(atsrefarg0_type(atstkind_type(atstype_ptrk)) arg0, atsrefarg0_type(atstkind_type(atstype_ptrk)) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret168, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp169, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp170) ; -// ATStmpdec_void(tmp171) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 6974(line=387, offs=1) -- 7134(line=395, offs=2) -*/ -ATSINSflab(__patsflab_sub_intinf1_intinf1): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7005(line=388, offs=12) -- 7134(line=395, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7028(line=391, offs=9) -- 7045(line=391, offs=26) -*/ -ATSINSmove(tmp169, PMVtmpltcst(ptr_alloc)()) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7055(line=392, offs=10) -- 7077(line=392, offs=32) -*/ -ATSINSmove_void(tmp170, atscntrb_gmp_mpz_init(ATSPMVrefarg1(ATSSELrecsin(tmp169, atstkind_type(atstype_ptrk), atslab__2)))) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7087(line=393, offs=10) -- 7129(line=393, offs=52) -*/ -ATSINSmove_void(tmp171, atscntrb_gmp_mpz_sub3_mpz(ATSPMVrefarg1(ATSSELrecsin(tmp169, atstkind_type(atstype_ptrk), atslab__2)), ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), ATSPMVrefarg1(ATSSELrecsin(arg1, atstkind_type(atstype_ptrk), atslab__2)))) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7006(line=388, offs=13) -- 7007(line=388, offs=14) -*/ -ATSINSmove(tmpret168, tmp169) ; -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7005(line=388, offs=12) -- 7134(line=395, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret168) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__sub_intinf1_intinf1__91] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7232(line=402, offs=3) -- 7262(line=402, offs=33) -*/ -/* -local: -global: mul_int_intinf0$92$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__mul_int_intinf0__92(atstkind_t0ype(atstype_int) arg0, atstkind_type(atstype_ptrk) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret172, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7214(line=401, offs=1) -- 7262(line=402, offs=33) -*/ -ATSINSflab(__patsflab_mul_int_intinf0): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7241(line=402, offs=12) -- 7262(line=402, offs=33) -*/ -ATSINSmove(tmpret172, PMVtmpltcst(mul_intinf0_int<>)(arg1, arg0)) ; - -ATSfunbody_end() -ATSreturn(tmpret172) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__mul_int_intinf0__92] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7301(line=406, offs=3) -- 7331(line=406, offs=33) -*/ -/* -local: -global: mul_int_intinf1$93$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__mul_int_intinf1__93(atstkind_t0ype(atstype_int) arg0, atsrefarg0_type(atstkind_type(atstype_ptrk)) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret173, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7283(line=405, offs=1) -- 7331(line=406, offs=33) -*/ -ATSINSflab(__patsflab_mul_int_intinf1): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7310(line=406, offs=12) -- 7331(line=406, offs=33) -*/ -ATSINSmove(tmpret173, PMVtmpltcst(mul_intinf1_int<>)(ATSPMVrefarg0(arg1), arg0)) ; - -ATSfunbody_end() -ATSreturn(tmpret173) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__mul_int_intinf1__93] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7394(line=413, offs=3) -- 7461(line=418, offs=2) -*/ -/* -local: -global: mul_intinf0_int$94$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_int__94(atstkind_type(atstype_ptrk) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret174, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp175) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7376(line=412, offs=1) -- 7461(line=418, offs=2) -*/ -ATSINSflab(__patsflab_mul_intinf0_int): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7403(line=413, offs=12) -- 7461(line=418, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7427(line=416, offs=10) -- 7456(line=416, offs=39) -*/ -ATSINSmove_void(tmp175, atscntrb_gmp_mpz_mul2_int(ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), arg1)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7404(line=413, offs=13) -- 7405(line=413, offs=14) -*/ -ATSINSmove(tmpret174, arg0) ; -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7403(line=413, offs=12) -- 7461(line=418, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret174) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_int__94] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7532(line=423, offs=3) -- 7665(line=430, offs=2) -*/ -/* -local: -global: mul_intinf1_int$95$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__mul_intinf1_int__95(atsrefarg0_type(atstkind_type(atstype_ptrk)) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret176, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp177, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp178) ; -// ATStmpdec_void(tmp179) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7514(line=422, offs=1) -- 7665(line=430, offs=2) -*/ -ATSINSflab(__patsflab_mul_intinf1_int): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7541(line=423, offs=12) -- 7665(line=430, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7564(line=426, offs=9) -- 7581(line=426, offs=26) -*/ -ATSINSmove(tmp177, PMVtmpltcst(ptr_alloc)()) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7591(line=427, offs=10) -- 7613(line=427, offs=32) -*/ -ATSINSmove_void(tmp178, atscntrb_gmp_mpz_init(ATSPMVrefarg1(ATSSELrecsin(tmp177, atstkind_type(atstype_ptrk), atslab__2)))) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7623(line=428, offs=10) -- 7660(line=428, offs=47) -*/ -ATSINSmove_void(tmp179, atscntrb_gmp_mpz_mul3_int(ATSPMVrefarg1(ATSSELrecsin(tmp177, atstkind_type(atstype_ptrk), atslab__2)), ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), arg1)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7542(line=423, offs=13) -- 7543(line=423, offs=14) -*/ -ATSINSmove(tmpret176, tmp177) ; -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7541(line=423, offs=12) -- 7665(line=430, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret176) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__mul_intinf1_int__95] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7761(line=437, offs=3) -- 7833(line=442, offs=2) -*/ -/* -local: -global: mul_intinf0_intinf1$96$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_intinf1__96(atstkind_type(atstype_ptrk) arg0, atsrefarg0_type(atstkind_type(atstype_ptrk)) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret180, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp181) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/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 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7770(line=437, offs=12) -- 7833(line=442, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7794(line=440, offs=10) -- 7828(line=440, offs=44) -*/ -ATSINSmove_void(tmp181, 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 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7771(line=437, offs=13) -- 7772(line=437, offs=14) -*/ -ATSINSmove(tmpret180, arg0) ; -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7770(line=437, offs=12) -- 7833(line=442, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret180) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_intinf1__96] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7912(line=447, offs=3) -- 7983(line=452, offs=2) -*/ -/* -local: -global: mul_intinf1_intinf0$97$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__mul_intinf1_intinf0__97(atsrefarg0_type(atstkind_type(atstype_ptrk)) arg0, atstkind_type(atstype_ptrk) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret182, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp183) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7890(line=446, offs=1) -- 7983(line=452, offs=2) -*/ -ATSINSflab(__patsflab_mul_intinf1_intinf0): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7921(line=447, offs=12) -- 7983(line=452, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7945(line=450, offs=10) -- 7978(line=450, offs=43) -*/ -ATSINSmove_void(tmp183, atscntrb_gmp_mpz_mul2_mpz(ATSPMVrefarg1(ATSSELrecsin(arg1, atstkind_type(atstype_ptrk), atslab__2)), ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)))) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7922(line=447, offs=13) -- 7923(line=447, offs=14) -*/ -ATSINSmove(tmpret182, arg1) ; -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7921(line=447, offs=12) -- 7983(line=452, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret182) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__mul_intinf1_intinf0__97] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 8083(line=459, offs=3) -- 8218(line=466, offs=2) -*/ -/* -local: -global: mul_intinf1_intinf1$98$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__mul_intinf1_intinf1__98(atsrefarg0_type(atstkind_type(atstype_ptrk)) arg0, atsrefarg0_type(atstkind_type(atstype_ptrk)) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret184, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp185, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp186) ; -// ATStmpdec_void(tmp187) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 8061(line=458, offs=1) -- 8218(line=466, offs=2) -*/ -ATSINSflab(__patsflab_mul_intinf1_intinf1): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 8092(line=459, offs=12) -- 8218(line=466, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 8115(line=462, offs=9) -- 8131(line=462, offs=25) -*/ -ATSINSmove(tmp185, PMVtmpltcst(ptr_alloc)()) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 8141(line=463, offs=10) -- 8162(line=463, offs=31) -*/ -ATSINSmove_void(tmp186, atscntrb_gmp_mpz_init(ATSPMVrefarg1(ATSSELrecsin(tmp185, atstkind_type(atstype_ptrk), atslab__2)))) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 8172(line=464, offs=10) -- 8213(line=464, offs=51) -*/ -ATSINSmove_void(tmp187, atscntrb_gmp_mpz_mul3_mpz(ATSPMVrefarg1(ATSSELrecsin(tmp185, atstkind_type(atstype_ptrk), atslab__2)), ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), ATSPMVrefarg1(ATSSELrecsin(arg1, atstkind_type(atstype_ptrk), atslab__2)))) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 8093(line=459, offs=13) -- 8094(line=459, offs=14) -*/ -ATSINSmove(tmpret184, tmp185) ; -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 8092(line=459, offs=12) -- 8218(line=466, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret184) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__mul_intinf1_intinf1__98] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 8320(line=473, offs=9) -- 8539(line=485, offs=4) -*/ -/* -local: -global: div_intinf0_int$99$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__div_intinf0_int__99(atstkind_type(atstype_ptrk) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret188, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp189, atstkind_t0ype(atstype_bool)) ; -// ATStmpdec_void(tmp190) ; -ATStmpdec(tmp191, atstkind_t0ype(atstype_uint)) ; -// ATStmpdec_void(tmp192) ; -ATStmpdec(tmp193, atstkind_t0ype(atstype_uint)) ; -ATStmpdec(tmp194, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 8296(line=472, offs=1) -- 8539(line=485, offs=4) -*/ -ATSINSflab(__patsflab_div_intinf0_int): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 8343(line=477, offs=2) -- 8349(line=477, offs=8) -*/ -ATSINSmove(tmp189, PMVtmpltcst(gte_g1int_int)(arg1, ATSPMVi0nt(0))) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 8339(line=476, offs=1) -- 8515(line=483, offs=4) -*/ -ATSif( -tmp189 -) ATSthen() { -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 8356(line=478, offs=6) -- 8417(line=480, offs=4) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 8401(line=479, offs=42) -- 8406(line=479, offs=47) -*/ -ATSINSmove(tmp191, atspre_g1int2uint_int_uint(arg1)) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 8371(line=479, offs=12) -- 8408(line=479, offs=49) -*/ -ATSINSmove_void(tmp190, atscntrb_gmp_mpz_tdiv2_q_uint(ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), tmp191)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 8412(line=479, offs=53) -- 8413(line=479, offs=54) -*/ -ATSINSmove(tmpret188, arg0) ; -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 8356(line=478, offs=6) -- 8417(line=480, offs=4) -*/ -/* -INSletpop() -*/ -} ATSelse() { -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 8440(line=481, offs=6) -- 8515(line=483, offs=4) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 8485(line=482, offs=42) -- 8492(line=482, offs=49) -*/ -ATSINSmove(tmp194, PMVtmpltcst(g1int_neg)(arg1)) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 8485(line=482, offs=42) -- 8492(line=482, offs=49) -*/ -ATSINSmove(tmp193, atspre_g1int2uint_int_uint(tmp194)) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 8455(line=482, offs=12) -- 8493(line=482, offs=50) -*/ -ATSINSmove_void(tmp192, atscntrb_gmp_mpz_tdiv2_q_uint(ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), tmp193)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 8497(line=482, offs=54) -- 8510(line=482, offs=67) -*/ -ATSINSmove(tmpret188, PMVtmpltcst(neg_intinf0<>)(arg0)) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 8440(line=481, offs=6) -- 8515(line=483, offs=4) -*/ -/* -INSletpop() -*/ -} /* ATSendif */ -ATSfunbody_end() -ATSreturn(tmpret188) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__div_intinf0_int__99] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 8616(line=490, offs=9) -- 8913(line=506, offs=4) -*/ -/* -local: -global: div_intinf1_int$100$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__div_intinf1_int__100(atsrefarg0_type(atstkind_type(atstype_ptrk)) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret195, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp196, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp197) ; -ATStmpdec(tmp198, atstkind_t0ype(atstype_bool)) ; -// ATStmpdec_void(tmp199) ; -ATStmpdec(tmp200, atstkind_t0ype(atstype_uint)) ; -// ATStmpdec_void(tmp201) ; -ATStmpdec(tmp202, atstkind_t0ype(atstype_uint)) ; -ATStmpdec(tmp203, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 8592(line=489, offs=1) -- 8913(line=506, offs=4) -*/ -ATSINSflab(__patsflab_div_intinf1_int): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 8625(line=490, offs=18) -- 8913(line=506, offs=4) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 8640(line=492, offs=9) -- 8656(line=492, offs=25) -*/ -ATSINSmove(tmp196, PMVtmpltcst(ptr_alloc)()) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 8666(line=493, offs=10) -- 8687(line=493, offs=31) -*/ -ATSINSmove_void(tmp197, atscntrb_gmp_mpz_init(ATSPMVrefarg1(ATSSELrecsin(tmp196, atstkind_type(atstype_ptrk), atslab__2)))) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 8701(line=498, offs=2) -- 8707(line=498, offs=8) -*/ -ATSINSmove(tmp198, PMVtmpltcst(gte_g1int_int)(arg1, ATSPMVi0nt(0))) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 8697(line=497, offs=1) -- 8889(line=504, offs=4) -*/ -ATSif( -tmp198 -) ATSthen() { -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 8714(line=499, offs=6) -- 8783(line=501, offs=4) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 8767(line=500, offs=50) -- 8772(line=500, offs=55) -*/ -ATSINSmove(tmp200, atspre_g1int2uint_int_uint(arg1)) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 8729(line=500, offs=12) -- 8774(line=500, offs=57) -*/ -ATSINSmove_void(tmp199, atscntrb_gmp_mpz_tdiv3_q_uint(ATSPMVrefarg1(ATSSELrecsin(tmp196, atstkind_type(atstype_ptrk), atslab__2)), ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), tmp200)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 8778(line=500, offs=61) -- 8779(line=500, offs=62) -*/ -ATSINSmove(tmpret195, tmp196) ; -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 8714(line=499, offs=6) -- 8783(line=501, offs=4) -*/ -/* -INSletpop() -*/ -} ATSelse() { -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 8806(line=502, offs=6) -- 8889(line=504, offs=4) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 8859(line=503, offs=50) -- 8866(line=503, offs=57) -*/ -ATSINSmove(tmp203, PMVtmpltcst(g1int_neg)(arg1)) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 8859(line=503, offs=50) -- 8866(line=503, offs=57) -*/ -ATSINSmove(tmp202, atspre_g1int2uint_int_uint(tmp203)) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 8821(line=503, offs=12) -- 8867(line=503, offs=58) -*/ -ATSINSmove_void(tmp201, atscntrb_gmp_mpz_tdiv3_q_uint(ATSPMVrefarg1(ATSSELrecsin(tmp196, atstkind_type(atstype_ptrk), atslab__2)), ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), tmp202)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 8871(line=503, offs=62) -- 8884(line=503, offs=75) -*/ -ATSINSmove(tmpret195, PMVtmpltcst(neg_intinf0<>)(tmp196)) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 8806(line=502, offs=6) -- 8889(line=504, offs=4) -*/ -/* -INSletpop() -*/ -} /* ATSendif */ -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 8625(line=490, offs=18) -- 8913(line=506, offs=4) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret195) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__div_intinf1_int__100] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9009(line=513, offs=3) -- 9083(line=518, offs=2) -*/ -/* -local: -global: div_intinf0_intinf1$101$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__div_intinf0_intinf1__101(atstkind_type(atstype_ptrk) arg0, atsrefarg0_type(atstkind_type(atstype_ptrk)) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret204, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp205) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 8987(line=512, offs=1) -- 9083(line=518, offs=2) -*/ -ATSINSflab(__patsflab_div_intinf0_intinf1): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9018(line=513, offs=12) -- 9083(line=518, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9042(line=516, offs=10) -- 9078(line=516, offs=46) -*/ -ATSINSmove_void(tmp205, atscntrb_gmp_mpz_tdiv2_q_mpz(ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), ATSPMVrefarg1(ATSSELrecsin(arg1, atstkind_type(atstype_ptrk), atslab__2)))) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9019(line=513, offs=13) -- 9020(line=513, offs=14) -*/ -ATSINSmove(tmpret204, arg0) ; -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9018(line=513, offs=12) -- 9083(line=518, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret204) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__div_intinf0_intinf1__101] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9183(line=525, offs=3) -- 9321(line=532, offs=2) -*/ -/* -local: -global: div_intinf1_intinf1$102$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__div_intinf1_intinf1__102(atsrefarg0_type(atstkind_type(atstype_ptrk)) arg0, atsrefarg0_type(atstkind_type(atstype_ptrk)) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret206, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp207, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp208) ; -// ATStmpdec_void(tmp209) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9161(line=524, offs=1) -- 9321(line=532, offs=2) -*/ -ATSINSflab(__patsflab_div_intinf1_intinf1): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9192(line=525, offs=12) -- 9321(line=532, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9215(line=528, offs=9) -- 9231(line=528, offs=25) -*/ -ATSINSmove(tmp207, PMVtmpltcst(ptr_alloc)()) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9241(line=529, offs=10) -- 9262(line=529, offs=31) -*/ -ATSINSmove_void(tmp208, atscntrb_gmp_mpz_init(ATSPMVrefarg1(ATSSELrecsin(tmp207, atstkind_type(atstype_ptrk), atslab__2)))) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9272(line=530, offs=10) -- 9316(line=530, offs=54) -*/ -ATSINSmove_void(tmp209, atscntrb_gmp_mpz_tdiv3_q_mpz(ATSPMVrefarg1(ATSSELrecsin(tmp207, atstkind_type(atstype_ptrk), atslab__2)), ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), ATSPMVrefarg1(ATSSELrecsin(arg1, atstkind_type(atstype_ptrk), atslab__2)))) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9193(line=525, offs=13) -- 9194(line=525, offs=14) -*/ -ATSINSmove(tmpret206, tmp207) ; -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9192(line=525, offs=12) -- 9321(line=532, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret206) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__div_intinf1_intinf1__102] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9417(line=538, offs=17) -- 9447(line=538, offs=47) -*/ -/* -local: -global: ndiv_intinf0_int$103$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__ndiv_intinf0_int__103(atstkind_type(atstype_ptrk) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret210, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9401(line=538, offs=1) -- 9447(line=538, offs=47) -*/ -ATSINSflab(__patsflab_ndiv_intinf0_int): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9426(line=538, offs=26) -- 9447(line=538, offs=47) -*/ -ATSINSmove(tmpret210, PMVtmpltcst(div_intinf0_int<>)(arg0, arg1)) ; - -ATSfunbody_end() -ATSreturn(tmpret210) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__ndiv_intinf0_int__103] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9484(line=541, offs=17) -- 9514(line=541, offs=47) -*/ -/* -local: -global: ndiv_intinf1_int$104$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__ndiv_intinf1_int__104(atsrefarg0_type(atstkind_type(atstype_ptrk)) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret211, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9468(line=541, offs=1) -- 9514(line=541, offs=47) -*/ -ATSINSflab(__patsflab_ndiv_intinf1_int): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9493(line=541, offs=26) -- 9514(line=541, offs=47) -*/ -ATSINSmove(tmpret211, PMVtmpltcst(div_intinf1_int<>)(ATSPMVrefarg0(arg0), arg1)) ; - -ATSfunbody_end() -ATSreturn(tmpret211) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__ndiv_intinf1_int__104] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9558(line=545, offs=21) -- 9592(line=545, offs=55) -*/ -/* -local: -global: ndiv_intinf1_intinf1$105$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__ndiv_intinf1_intinf1__105(atsrefarg0_type(atstkind_type(atstype_ptrk)) arg0, atsrefarg0_type(atstkind_type(atstype_ptrk)) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret212, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9538(line=545, offs=1) -- 9592(line=545, offs=55) -*/ -ATSINSflab(__patsflab_ndiv_intinf1_intinf1): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9567(line=545, offs=30) -- 9592(line=545, offs=55) -*/ -ATSINSmove(tmpret212, PMVtmpltcst(div_intinf1_intinf1<>)(ATSPMVrefarg0(arg0), ATSPMVrefarg0(arg1))) ; - -ATSfunbody_end() -ATSreturn(tmpret212) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__ndiv_intinf1_intinf1__105] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9661(line=552, offs=8) -- 9789(line=562, offs=4) -*/ -/* -local: -global: nmod_intinf0_int$106$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_t0ype(atstype_int) -ATSCNTRB_056_HX_056_intinf_vt__nmod_intinf0_int__106(atstkind_type(atstype_ptrk) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret213, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp214, atstkind_t0ype(atstype_uint)) ; -ATStmpdec(tmp215, atstkind_t0ype(atstype_uint)) ; -// ATStmpdec_void(tmp216) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9637(line=551, offs=1) -- 9789(line=562, offs=4) -*/ -ATSINSflab(__patsflab_nmod_intinf0_int): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9670(line=552, offs=17) -- 9789(line=562, offs=4) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9716(line=556, offs=30) -- 9721(line=556, offs=35) -*/ -ATSINSmove(tmp215, atspre_g1int2uint_int_uint(arg1)) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9689(line=556, offs=3) -- 9723(line=556, offs=37) -*/ -ATSINSmove(tmp214, atscntrb_gmp_mpz_fdiv_uint(ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), tmp215)) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9736(line=558, offs=10) -- 9749(line=558, offs=23) -*/ -ATSINSmove_void(tmp216, PMVtmpltcst(intinf_free<>)(arg0)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9759(line=561, offs=3) -- 9784(line=561, offs=28) -*/ -ATSINSmove(tmpret213, ATSPMVcastfn(cast, atstkind_t0ype(atstype_int), tmp214)) ; -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9670(line=552, offs=17) -- 9789(line=562, offs=4) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret213) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__nmod_intinf0_int__106] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9867(line=567, offs=8) -- 9966(line=575, offs=4) -*/ -/* -local: -global: nmod_intinf1_int$107$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_t0ype(atstype_int) -ATSCNTRB_056_HX_056_intinf_vt__nmod_intinf1_int__107(atsrefarg0_type(atstkind_type(atstype_ptrk)) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret217, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp218, atstkind_t0ype(atstype_uint)) ; -ATStmpdec(tmp219, atstkind_t0ype(atstype_uint)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9843(line=566, offs=1) -- 9966(line=575, offs=4) -*/ -ATSINSflab(__patsflab_nmod_intinf1_int): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9876(line=567, offs=17) -- 9966(line=575, offs=4) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9920(line=571, offs=28) -- 9925(line=571, offs=33) -*/ -ATSINSmove(tmp219, atspre_g1int2uint_int_uint(arg1)) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9893(line=571, offs=1) -- 9927(line=571, offs=35) -*/ -ATSINSmove(tmp218, atscntrb_gmp_mpz_fdiv_uint(ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), tmp219)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9936(line=574, offs=3) -- 9961(line=574, offs=28) -*/ -ATSINSmove(tmpret217, ATSPMVcastfn(cast, atstkind_t0ype(atstype_int), tmp218)) ; -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9876(line=567, offs=17) -- 9966(line=575, offs=4) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret217) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__nmod_intinf1_int__107] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 10069(line=582, offs=8) -- 10155(line=588, offs=2) -*/ -/* -local: -global: nmod_intinf0_intinf1$108$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__nmod_intinf0_intinf1__108(atstkind_type(atstype_ptrk) arg0, atsrefarg0_type(atstkind_type(atstype_ptrk)) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret220, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp221) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 10041(line=581, offs=1) -- 10155(line=588, offs=2) -*/ -ATSINSflab(__patsflab_nmod_intinf0_intinf1): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 10080(line=583, offs=3) -- 10155(line=588, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 10117(line=586, offs=10) -- 10150(line=586, offs=43) -*/ -ATSINSmove_void(tmp221, atscntrb_gmp_mpz_mod2_mpz(ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), ATSPMVrefarg1(ATSSELrecsin(arg1, atstkind_type(atstype_ptrk), atslab__2)))) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 10080(line=583, offs=3) -- 10095(line=583, offs=18) -*/ -ATSINSmove(tmpret220, ATSPMVcastfn(castvwtp0, atstkind_type(atstype_ptrk), arg0)) ; -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 10080(line=583, offs=3) -- 10155(line=588, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret220) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__nmod_intinf0_intinf1__108] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 10241(line=593, offs=8) -- 10391(line=601, offs=2) -*/ -/* -local: -global: nmod_intinf1_intinf1$109$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__nmod_intinf1_intinf1__109(atsrefarg0_type(atstkind_type(atstype_ptrk)) arg0, atsrefarg0_type(atstkind_type(atstype_ptrk)) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret222, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp223, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp224) ; -// ATStmpdec_void(tmp225) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 10213(line=592, offs=1) -- 10391(line=601, offs=2) -*/ -ATSINSflab(__patsflab_nmod_intinf1_intinf1): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 10252(line=594, offs=3) -- 10391(line=601, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 10288(line=597, offs=9) -- 10304(line=597, offs=25) -*/ -ATSINSmove(tmp223, PMVtmpltcst(ptr_alloc)()) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 10314(line=598, offs=10) -- 10335(line=598, offs=31) -*/ -ATSINSmove_void(tmp224, atscntrb_gmp_mpz_init(ATSPMVrefarg1(ATSSELrecsin(tmp223, atstkind_type(atstype_ptrk), atslab__2)))) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 10345(line=599, offs=10) -- 10386(line=599, offs=51) -*/ -ATSINSmove_void(tmp225, atscntrb_gmp_mpz_mod3_mpz(ATSPMVrefarg1(ATSSELrecsin(tmp223, atstkind_type(atstype_ptrk), atslab__2)), ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), ATSPMVrefarg1(ATSSELrecsin(arg1, atstkind_type(atstype_ptrk), atslab__2)))) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 10252(line=594, offs=3) -- 10267(line=594, offs=18) -*/ -ATSINSmove(tmpret222, ATSPMVcastfn(castvwtp0, atstkind_type(atstype_ptrk), tmp223)) ; -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 10252(line=594, offs=3) -- 10391(line=601, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret222) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__nmod_intinf1_intinf1__109] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 10542(line=612, offs=9) -- 10685(line=619, offs=4) -*/ -/* -local: -global: lt_intinf_int$110$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_t0ype(atstype_bool) -ATSCNTRB_056_HX_056_intinf_vt__lt_intinf_int__110(atsrefarg0_type(atstkind_type(atstype_ptrk)) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret226, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp227, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp228, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp229, atstkind_t0ype(atstype_bool)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 10520(line=611, offs=1) -- 10685(line=619, offs=4) -*/ -ATSINSflab(__patsflab_lt_intinf_int): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 10551(line=612, offs=18) -- 10685(line=619, offs=4) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 10568(line=614, offs=11) -- 10596(line=614, offs=39) -*/ -ATSINSmove(tmp227, atscntrb_gmp_mpz_cmp_int(ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), arg1)) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 10611(line=615, offs=15) -- 10618(line=615, offs=22) -*/ -ATSINSmove(tmp229, PMVtmpltcst(lt_g0int_int)(tmp227, ATSPMVi0nt(0))) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 10608(line=615, offs=12) -- 10639(line=615, offs=43) -*/ -ATSif( -tmp229 -) ATSthen() { -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 10624(line=615, offs=28) -- 10628(line=615, offs=32) -*/ -ATSINSmove(tmp228, ATSPMVbool_true()) ; -} ATSelse() { -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 10634(line=615, offs=38) -- 10639(line=615, offs=43) -*/ -ATSINSmove(tmp228, ATSPMVbool_false()) ; -} /* ATSendif */ -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 10655(line=618, offs=3) -- 10680(line=618, offs=28) -*/ -ATSINSmove(tmpret226, ATSPMVcastfn(cast, atstkind_t0ype(atstype_bool), tmp228)) ; -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 10551(line=612, offs=18) -- 10685(line=619, offs=4) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret226) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__lt_intinf_int__110] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 10758(line=624, offs=9) -- 10906(line=631, offs=4) -*/ -/* -local: -global: lt_intinf_intinf$111$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_t0ype(atstype_bool) -ATSCNTRB_056_HX_056_intinf_vt__lt_intinf_intinf__111(atsrefarg0_type(atstkind_type(atstype_ptrk)) arg0, atsrefarg0_type(atstkind_type(atstype_ptrk)) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret230, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp231, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp232, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp233, atstkind_t0ype(atstype_bool)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 10733(line=623, offs=1) -- 10906(line=631, offs=4) -*/ -ATSINSflab(__patsflab_lt_intinf_intinf): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 10767(line=624, offs=18) -- 10906(line=631, offs=4) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 10784(line=626, offs=11) -- 10817(line=626, offs=44) -*/ -ATSINSmove(tmp231, atscntrb_gmp_mpz_cmp_mpz(ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), ATSPMVrefarg1(ATSSELrecsin(arg1, atstkind_type(atstype_ptrk), atslab__2)))) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 10832(line=627, offs=15) -- 10839(line=627, offs=22) -*/ -ATSINSmove(tmp233, PMVtmpltcst(lt_g0int_int)(tmp231, ATSPMVi0nt(0))) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 10829(line=627, offs=12) -- 10860(line=627, offs=43) -*/ -ATSif( -tmp233 -) ATSthen() { -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 10845(line=627, offs=28) -- 10849(line=627, offs=32) -*/ -ATSINSmove(tmp232, ATSPMVbool_true()) ; -} ATSelse() { -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 10855(line=627, offs=38) -- 10860(line=627, offs=43) -*/ -ATSINSmove(tmp232, ATSPMVbool_false()) ; -} /* ATSendif */ -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 10876(line=630, offs=3) -- 10901(line=630, offs=28) -*/ -ATSINSmove(tmpret230, ATSPMVcastfn(cast, atstkind_t0ype(atstype_bool), tmp232)) ; -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 10767(line=624, offs=18) -- 10906(line=631, offs=4) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret230) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__lt_intinf_intinf__111] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 11001(line=638, offs=9) -- 11146(line=645, offs=4) -*/ -/* -local: -global: lte_intinf_int$112$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_t0ype(atstype_bool) -ATSCNTRB_056_HX_056_intinf_vt__lte_intinf_int__112(atsrefarg0_type(atstkind_type(atstype_ptrk)) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret234, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp235, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp236, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp237, atstkind_t0ype(atstype_bool)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 10978(line=637, offs=1) -- 11146(line=645, offs=4) -*/ -ATSINSflab(__patsflab_lte_intinf_int): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 11010(line=638, offs=18) -- 11146(line=645, offs=4) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 11027(line=640, offs=11) -- 11055(line=640, offs=39) -*/ -ATSINSmove(tmp235, atscntrb_gmp_mpz_cmp_int(ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), arg1)) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 11070(line=641, offs=15) -- 11078(line=641, offs=23) -*/ -ATSINSmove(tmp237, PMVtmpltcst(lte_g0int_int)(tmp235, ATSPMVi0nt(0))) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 11067(line=641, offs=12) -- 11099(line=641, offs=44) -*/ -ATSif( -tmp237 -) ATSthen() { -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 11084(line=641, offs=29) -- 11088(line=641, offs=33) -*/ -ATSINSmove(tmp236, ATSPMVbool_true()) ; -} ATSelse() { -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 11094(line=641, offs=39) -- 11099(line=641, offs=44) -*/ -ATSINSmove(tmp236, ATSPMVbool_false()) ; -} /* ATSendif */ -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 11115(line=644, offs=3) -- 11141(line=644, offs=29) -*/ -ATSINSmove(tmpret234, ATSPMVcastfn(cast, atstkind_t0ype(atstype_bool), tmp236)) ; -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 11010(line=638, offs=18) -- 11146(line=645, offs=4) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret234) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__lte_intinf_int__112] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 11221(line=650, offs=9) -- 11371(line=657, offs=4) -*/ -/* -local: -global: lte_intinf_intinf$113$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_t0ype(atstype_bool) -ATSCNTRB_056_HX_056_intinf_vt__lte_intinf_intinf__113(atsrefarg0_type(atstkind_type(atstype_ptrk)) arg0, atsrefarg0_type(atstkind_type(atstype_ptrk)) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret238, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp239, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp240, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp241, atstkind_t0ype(atstype_bool)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 11195(line=649, offs=1) -- 11371(line=657, offs=4) -*/ -ATSINSflab(__patsflab_lte_intinf_intinf): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 11230(line=650, offs=18) -- 11371(line=657, offs=4) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 11247(line=652, offs=11) -- 11280(line=652, offs=44) -*/ -ATSINSmove(tmp239, atscntrb_gmp_mpz_cmp_mpz(ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), ATSPMVrefarg1(ATSSELrecsin(arg1, atstkind_type(atstype_ptrk), atslab__2)))) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 11295(line=653, offs=15) -- 11303(line=653, offs=23) -*/ -ATSINSmove(tmp241, PMVtmpltcst(lte_g0int_int)(tmp239, ATSPMVi0nt(0))) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 11292(line=653, offs=12) -- 11324(line=653, offs=44) -*/ -ATSif( -tmp241 -) ATSthen() { -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 11309(line=653, offs=29) -- 11313(line=653, offs=33) -*/ -ATSINSmove(tmp240, ATSPMVbool_true()) ; -} ATSelse() { -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 11319(line=653, offs=39) -- 11324(line=653, offs=44) -*/ -ATSINSmove(tmp240, ATSPMVbool_false()) ; -} /* ATSendif */ -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 11340(line=656, offs=3) -- 11366(line=656, offs=29) -*/ -ATSINSmove(tmpret238, ATSPMVcastfn(cast, atstkind_t0ype(atstype_bool), tmp240)) ; -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 11230(line=650, offs=18) -- 11371(line=657, offs=4) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret238) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__lte_intinf_intinf__113] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 11466(line=664, offs=9) -- 11609(line=671, offs=4) -*/ -/* -local: -global: gt_intinf_int$114$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_t0ype(atstype_bool) -ATSCNTRB_056_HX_056_intinf_vt__gt_intinf_int__114(atsrefarg0_type(atstkind_type(atstype_ptrk)) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret242, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp243, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp244, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp245, atstkind_t0ype(atstype_bool)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 11444(line=663, offs=1) -- 11609(line=671, offs=4) -*/ -ATSINSflab(__patsflab_gt_intinf_int): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 11475(line=664, offs=18) -- 11609(line=671, offs=4) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 11492(line=666, offs=11) -- 11520(line=666, offs=39) -*/ -ATSINSmove(tmp243, atscntrb_gmp_mpz_cmp_int(ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), arg1)) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 11535(line=667, offs=15) -- 11542(line=667, offs=22) -*/ -ATSINSmove(tmp245, PMVtmpltcst(gt_g0int_int)(tmp243, ATSPMVi0nt(0))) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 11532(line=667, offs=12) -- 11563(line=667, offs=43) -*/ -ATSif( -tmp245 -) ATSthen() { -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 11548(line=667, offs=28) -- 11552(line=667, offs=32) -*/ -ATSINSmove(tmp244, ATSPMVbool_true()) ; -} ATSelse() { -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 11558(line=667, offs=38) -- 11563(line=667, offs=43) -*/ -ATSINSmove(tmp244, ATSPMVbool_false()) ; -} /* ATSendif */ -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 11579(line=670, offs=3) -- 11604(line=670, offs=28) -*/ -ATSINSmove(tmpret242, ATSPMVcastfn(cast, atstkind_t0ype(atstype_bool), tmp244)) ; -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 11475(line=664, offs=18) -- 11609(line=671, offs=4) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret242) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__gt_intinf_int__114] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 11682(line=676, offs=9) -- 11830(line=683, offs=4) -*/ -/* -local: -global: gt_intinf_intinf$115$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_t0ype(atstype_bool) -ATSCNTRB_056_HX_056_intinf_vt__gt_intinf_intinf__115(atsrefarg0_type(atstkind_type(atstype_ptrk)) arg0, atsrefarg0_type(atstkind_type(atstype_ptrk)) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret246, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp247, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp248, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp249, atstkind_t0ype(atstype_bool)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 11657(line=675, offs=1) -- 11830(line=683, offs=4) -*/ -ATSINSflab(__patsflab_gt_intinf_intinf): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 11691(line=676, offs=18) -- 11830(line=683, offs=4) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 11708(line=678, offs=11) -- 11741(line=678, offs=44) -*/ -ATSINSmove(tmp247, atscntrb_gmp_mpz_cmp_mpz(ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), ATSPMVrefarg1(ATSSELrecsin(arg1, atstkind_type(atstype_ptrk), atslab__2)))) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 11756(line=679, offs=15) -- 11763(line=679, offs=22) -*/ -ATSINSmove(tmp249, PMVtmpltcst(gt_g0int_int)(tmp247, ATSPMVi0nt(0))) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 11753(line=679, offs=12) -- 11784(line=679, offs=43) -*/ -ATSif( -tmp249 -) ATSthen() { -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 11769(line=679, offs=28) -- 11773(line=679, offs=32) -*/ -ATSINSmove(tmp248, ATSPMVbool_true()) ; -} ATSelse() { -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 11779(line=679, offs=38) -- 11784(line=679, offs=43) -*/ -ATSINSmove(tmp248, ATSPMVbool_false()) ; -} /* ATSendif */ -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 11800(line=682, offs=3) -- 11825(line=682, offs=28) -*/ -ATSINSmove(tmpret246, ATSPMVcastfn(cast, atstkind_t0ype(atstype_bool), tmp248)) ; -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 11691(line=676, offs=18) -- 11830(line=683, offs=4) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret246) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__gt_intinf_intinf__115] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 11925(line=690, offs=9) -- 12070(line=697, offs=4) -*/ -/* -local: -global: gte_intinf_int$116$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_t0ype(atstype_bool) -ATSCNTRB_056_HX_056_intinf_vt__gte_intinf_int__116(atsrefarg0_type(atstkind_type(atstype_ptrk)) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret250, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp251, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp252, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp253, atstkind_t0ype(atstype_bool)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 11902(line=689, offs=1) -- 12070(line=697, offs=4) -*/ -ATSINSflab(__patsflab_gte_intinf_int): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 11934(line=690, offs=18) -- 12070(line=697, offs=4) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 11951(line=692, offs=11) -- 11979(line=692, offs=39) -*/ -ATSINSmove(tmp251, atscntrb_gmp_mpz_cmp_int(ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), arg1)) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 11994(line=693, offs=15) -- 12002(line=693, offs=23) -*/ -ATSINSmove(tmp253, PMVtmpltcst(gte_g0int_int)(tmp251, ATSPMVi0nt(0))) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 11991(line=693, offs=12) -- 12023(line=693, offs=44) -*/ -ATSif( -tmp253 -) ATSthen() { -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 12008(line=693, offs=29) -- 12012(line=693, offs=33) -*/ -ATSINSmove(tmp252, ATSPMVbool_true()) ; -} ATSelse() { -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 12018(line=693, offs=39) -- 12023(line=693, offs=44) -*/ -ATSINSmove(tmp252, ATSPMVbool_false()) ; -} /* ATSendif */ -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 12039(line=696, offs=3) -- 12065(line=696, offs=29) -*/ -ATSINSmove(tmpret250, ATSPMVcastfn(cast, atstkind_t0ype(atstype_bool), tmp252)) ; -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 11934(line=690, offs=18) -- 12070(line=697, offs=4) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret250) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__gte_intinf_int__116] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 12145(line=702, offs=9) -- 12295(line=709, offs=4) -*/ -/* -local: -global: gte_intinf_intinf$117$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_t0ype(atstype_bool) -ATSCNTRB_056_HX_056_intinf_vt__gte_intinf_intinf__117(atsrefarg0_type(atstkind_type(atstype_ptrk)) arg0, atsrefarg0_type(atstkind_type(atstype_ptrk)) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret254, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp255, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp256, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp257, atstkind_t0ype(atstype_bool)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 12119(line=701, offs=1) -- 12295(line=709, offs=4) -*/ -ATSINSflab(__patsflab_gte_intinf_intinf): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 12154(line=702, offs=18) -- 12295(line=709, offs=4) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 12171(line=704, offs=11) -- 12204(line=704, offs=44) -*/ -ATSINSmove(tmp255, atscntrb_gmp_mpz_cmp_mpz(ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), ATSPMVrefarg1(ATSSELrecsin(arg1, atstkind_type(atstype_ptrk), atslab__2)))) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 12219(line=705, offs=15) -- 12227(line=705, offs=23) -*/ -ATSINSmove(tmp257, PMVtmpltcst(gte_g0int_int)(tmp255, ATSPMVi0nt(0))) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 12216(line=705, offs=12) -- 12248(line=705, offs=44) -*/ -ATSif( -tmp257 -) ATSthen() { -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 12233(line=705, offs=29) -- 12237(line=705, offs=33) -*/ -ATSINSmove(tmp256, ATSPMVbool_true()) ; -} ATSelse() { -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 12243(line=705, offs=39) -- 12248(line=705, offs=44) -*/ -ATSINSmove(tmp256, ATSPMVbool_false()) ; -} /* ATSendif */ -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 12264(line=708, offs=3) -- 12290(line=708, offs=29) -*/ -ATSINSmove(tmpret254, ATSPMVcastfn(cast, atstkind_t0ype(atstype_bool), tmp256)) ; -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 12154(line=702, offs=18) -- 12295(line=709, offs=4) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret254) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__gte_intinf_intinf__117] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 12390(line=716, offs=9) -- 12534(line=723, offs=4) -*/ -/* -local: -global: eq_intinf_int$118$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_t0ype(atstype_bool) -ATSCNTRB_056_HX_056_intinf_vt__eq_intinf_int__118(atsrefarg0_type(atstkind_type(atstype_ptrk)) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret258, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp259, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp260, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp261, atstkind_t0ype(atstype_bool)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 12368(line=715, offs=1) -- 12534(line=723, offs=4) -*/ -ATSINSflab(__patsflab_eq_intinf_int): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 12399(line=716, offs=18) -- 12534(line=723, offs=4) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 12416(line=718, offs=11) -- 12444(line=718, offs=39) -*/ -ATSINSmove(tmp259, atscntrb_gmp_mpz_cmp_int(ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), arg1)) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 12459(line=719, offs=15) -- 12466(line=719, offs=22) -*/ -ATSINSmove(tmp261, PMVtmpltcst(eq_g0int_int)(tmp259, ATSPMVi0nt(0))) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 12456(line=719, offs=12) -- 12487(line=719, offs=43) -*/ -ATSif( -tmp261 -) ATSthen() { -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 12472(line=719, offs=28) -- 12476(line=719, offs=32) -*/ -ATSINSmove(tmp260, ATSPMVbool_true()) ; -} ATSelse() { -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 12482(line=719, offs=38) -- 12487(line=719, offs=43) -*/ -ATSINSmove(tmp260, ATSPMVbool_false()) ; -} /* ATSendif */ -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 12503(line=722, offs=3) -- 12529(line=722, offs=29) -*/ -ATSINSmove(tmpret258, ATSPMVcastfn(cast, atstkind_t0ype(atstype_bool), tmp260)) ; -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 12399(line=716, offs=18) -- 12534(line=723, offs=4) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret258) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__eq_intinf_int__118] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 12607(line=728, offs=9) -- 12756(line=735, offs=4) -*/ -/* -local: -global: eq_intinf_intinf$119$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_t0ype(atstype_bool) -ATSCNTRB_056_HX_056_intinf_vt__eq_intinf_intinf__119(atsrefarg0_type(atstkind_type(atstype_ptrk)) arg0, atsrefarg0_type(atstkind_type(atstype_ptrk)) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret262, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp263, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp264, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp265, atstkind_t0ype(atstype_bool)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 12582(line=727, offs=1) -- 12756(line=735, offs=4) -*/ -ATSINSflab(__patsflab_eq_intinf_intinf): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 12616(line=728, offs=18) -- 12756(line=735, offs=4) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 12633(line=730, offs=11) -- 12666(line=730, offs=44) -*/ -ATSINSmove(tmp263, atscntrb_gmp_mpz_cmp_mpz(ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), ATSPMVrefarg1(ATSSELrecsin(arg1, atstkind_type(atstype_ptrk), atslab__2)))) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 12681(line=731, offs=15) -- 12688(line=731, offs=22) -*/ -ATSINSmove(tmp265, PMVtmpltcst(eq_g0int_int)(tmp263, ATSPMVi0nt(0))) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 12678(line=731, offs=12) -- 12709(line=731, offs=43) -*/ -ATSif( -tmp265 -) ATSthen() { -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 12694(line=731, offs=28) -- 12698(line=731, offs=32) -*/ -ATSINSmove(tmp264, ATSPMVbool_true()) ; -} ATSelse() { -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 12704(line=731, offs=38) -- 12709(line=731, offs=43) -*/ -ATSINSmove(tmp264, ATSPMVbool_false()) ; -} /* ATSendif */ -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 12725(line=734, offs=3) -- 12751(line=734, offs=29) -*/ -ATSINSmove(tmpret262, ATSPMVcastfn(cast, atstkind_t0ype(atstype_bool), tmp264)) ; -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 12616(line=728, offs=18) -- 12756(line=735, offs=4) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret262) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__eq_intinf_intinf__119] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 12851(line=742, offs=9) -- 12996(line=749, offs=4) -*/ -/* -local: -global: neq_intinf_int$120$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_t0ype(atstype_bool) -ATSCNTRB_056_HX_056_intinf_vt__neq_intinf_int__120(atsrefarg0_type(atstkind_type(atstype_ptrk)) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret266, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp267, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp268, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp269, atstkind_t0ype(atstype_bool)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 12828(line=741, offs=1) -- 12996(line=749, offs=4) -*/ -ATSINSflab(__patsflab_neq_intinf_int): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 12860(line=742, offs=18) -- 12996(line=749, offs=4) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 12877(line=744, offs=11) -- 12905(line=744, offs=39) -*/ -ATSINSmove(tmp267, atscntrb_gmp_mpz_cmp_int(ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), arg1)) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 12920(line=745, offs=15) -- 12928(line=745, offs=23) -*/ -ATSINSmove(tmp269, PMVtmpltcst(neq_g0int_int)(tmp267, ATSPMVi0nt(0))) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 12917(line=745, offs=12) -- 12949(line=745, offs=44) -*/ -ATSif( -tmp269 -) ATSthen() { -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 12934(line=745, offs=29) -- 12938(line=745, offs=33) -*/ -ATSINSmove(tmp268, ATSPMVbool_true()) ; -} ATSelse() { -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 12944(line=745, offs=39) -- 12949(line=745, offs=44) -*/ -ATSINSmove(tmp268, ATSPMVbool_false()) ; -} /* ATSendif */ -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 12965(line=748, offs=3) -- 12991(line=748, offs=29) -*/ -ATSINSmove(tmpret266, ATSPMVcastfn(cast, atstkind_t0ype(atstype_bool), tmp268)) ; -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 12860(line=742, offs=18) -- 12996(line=749, offs=4) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret266) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__neq_intinf_int__120] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13071(line=754, offs=9) -- 13221(line=761, offs=4) -*/ -/* -local: -global: neq_intinf_intinf$121$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_t0ype(atstype_bool) -ATSCNTRB_056_HX_056_intinf_vt__neq_intinf_intinf__121(atsrefarg0_type(atstkind_type(atstype_ptrk)) arg0, atsrefarg0_type(atstkind_type(atstype_ptrk)) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret270, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp271, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp272, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp273, atstkind_t0ype(atstype_bool)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13045(line=753, offs=1) -- 13221(line=761, offs=4) -*/ -ATSINSflab(__patsflab_neq_intinf_intinf): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13080(line=754, offs=18) -- 13221(line=761, offs=4) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13097(line=756, offs=11) -- 13130(line=756, offs=44) -*/ -ATSINSmove(tmp271, atscntrb_gmp_mpz_cmp_mpz(ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), ATSPMVrefarg1(ATSSELrecsin(arg1, atstkind_type(atstype_ptrk), atslab__2)))) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13145(line=757, offs=15) -- 13153(line=757, offs=23) -*/ -ATSINSmove(tmp273, PMVtmpltcst(neq_g0int_int)(tmp271, ATSPMVi0nt(0))) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13142(line=757, offs=12) -- 13174(line=757, offs=44) -*/ -ATSif( -tmp273 -) ATSthen() { -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13159(line=757, offs=29) -- 13163(line=757, offs=33) -*/ -ATSINSmove(tmp272, ATSPMVbool_true()) ; -} ATSelse() { -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13169(line=757, offs=39) -- 13174(line=757, offs=44) -*/ -ATSINSmove(tmp272, ATSPMVbool_false()) ; -} /* ATSendif */ -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13190(line=760, offs=3) -- 13216(line=760, offs=29) -*/ -ATSINSmove(tmpret270, ATSPMVcastfn(cast, atstkind_t0ype(atstype_bool), tmp272)) ; -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13080(line=754, offs=18) -- 13221(line=761, offs=4) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret270) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__neq_intinf_intinf__121] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13321(line=768, offs=9) -- 13484(line=775, offs=4) -*/ -/* -local: -global: compare_intinf_int$122$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_t0ype(atstype_int) -ATSCNTRB_056_HX_056_intinf_vt__compare_intinf_int__122(atsrefarg0_type(atstkind_type(atstype_ptrk)) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret274, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp275, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp276, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp277, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp278, atstkind_t0ype(atstype_bool)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/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 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13330(line=768, offs=18) -- 13484(line=775, offs=4) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13347(line=770, offs=11) -- 13375(line=770, offs=39) -*/ -ATSINSmove(tmp275, atscntrb_gmp_mpz_cmp_int(ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), arg1)) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13390(line=771, offs=15) -- 13397(line=771, offs=22) -*/ -ATSINSmove(tmp277, PMVtmpltcst(lt_g0int_int)(tmp275, ATSPMVi0nt(0))) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13387(line=771, offs=12) -- 13437(line=771, offs=62) -*/ -ATSif( -tmp277 -) ATSthen() { -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13403(line=771, offs=28) -- 13405(line=771, offs=30) -*/ -ATSINSmove(tmp276, PMVtmpltcst(g1int_neg)(ATSPMVi0nt(1))) ; - -} ATSelse() { -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13415(line=771, offs=40) -- 13422(line=771, offs=47) -*/ -ATSINSmove(tmp278, PMVtmpltcst(gt_g0int_int)(tmp275, ATSPMVi0nt(0))) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13412(line=771, offs=37) -- 13436(line=771, offs=61) -*/ -ATSif( -tmp278 -) ATSthen() { -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13428(line=771, offs=53) -- 13429(line=771, offs=54) -*/ -ATSINSmove(tmp276, ATSPMVi0nt(1)) ; -} ATSelse() { -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13435(line=771, offs=60) -- 13436(line=771, offs=61) -*/ -ATSINSmove(tmp276, ATSPMVi0nt(0)) ; -} /* ATSendif */ -} /* ATSendif */ -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13452(line=774, offs=3) -- 13479(line=774, offs=30) -*/ -ATSINSmove(tmpret274, ATSPMVcastfn(cast, atstkind_t0ype(atstype_int), tmp276)) ; -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13330(line=768, offs=18) -- 13484(line=775, offs=4) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret274) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__compare_intinf_int__122] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13564(line=780, offs=9) -- 13729(line=789, offs=4) -*/ -/* -local: -global: compare_int_intinf$123$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_t0ype(atstype_int) -ATSCNTRB_056_HX_056_intinf_vt__compare_int_intinf__123(atstkind_t0ype(atstype_int) arg0, atsrefarg0_type(atstkind_type(atstype_ptrk)) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret279, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp280, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp281, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp282, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp283, atstkind_t0ype(atstype_bool)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13537(line=779, offs=1) -- 13729(line=789, offs=4) -*/ -ATSINSflab(__patsflab_compare_int_intinf): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13573(line=780, offs=18) -- 13729(line=789, offs=4) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13592(line=783, offs=3) -- 13619(line=783, offs=30) -*/ -ATSINSmove(tmp280, atscntrb_gmp_mpz_cmp_int(ATSPMVrefarg1(ATSSELrecsin(arg1, atstkind_type(atstype_ptrk), atslab__2)), arg0)) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13636(line=785, offs=7) -- 13643(line=785, offs=14) -*/ -ATSINSmove(tmp282, PMVtmpltcst(gt_g0int_int)(tmp280, ATSPMVi0nt(0))) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13633(line=785, offs=4) -- 13682(line=785, offs=53) -*/ -ATSif( -tmp282 -) ATSthen() { -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13649(line=785, offs=20) -- 13651(line=785, offs=22) -*/ -ATSINSmove(tmp281, PMVtmpltcst(g1int_neg)(ATSPMVi0nt(1))) ; - -} ATSelse() { -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13660(line=785, offs=31) -- 13667(line=785, offs=38) -*/ -ATSINSmove(tmp283, PMVtmpltcst(lt_g0int_int)(tmp280, ATSPMVi0nt(0))) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13657(line=785, offs=28) -- 13681(line=785, offs=52) -*/ -ATSif( -tmp283 -) ATSthen() { -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13673(line=785, offs=44) -- 13674(line=785, offs=45) -*/ -ATSINSmove(tmp281, ATSPMVi0nt(1)) ; -} ATSelse() { -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13680(line=785, offs=51) -- 13681(line=785, offs=52) -*/ -ATSINSmove(tmp281, ATSPMVi0nt(0)) ; -} /* ATSendif */ -} /* ATSendif */ -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13697(line=788, offs=3) -- 13724(line=788, offs=30) -*/ -ATSINSmove(tmpret279, ATSPMVcastfn(cast, atstkind_t0ype(atstype_int), tmp281)) ; -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13573(line=780, offs=18) -- 13729(line=789, offs=4) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret279) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__compare_int_intinf__123] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13812(line=794, offs=9) -- 13982(line=803, offs=4) -*/ -/* -local: -global: compare_intinf_intinf$124$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_t0ype(atstype_int) -ATSCNTRB_056_HX_056_intinf_vt__compare_intinf_intinf__124(atsrefarg0_type(atstkind_type(atstype_ptrk)) arg0, atsrefarg0_type(atstkind_type(atstype_ptrk)) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret284, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp285, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp286, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp287, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp288, atstkind_t0ype(atstype_bool)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13782(line=793, offs=1) -- 13982(line=803, offs=4) -*/ -ATSINSflab(__patsflab_compare_intinf_intinf): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13821(line=794, offs=18) -- 13982(line=803, offs=4) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13840(line=797, offs=3) -- 13872(line=797, offs=35) -*/ -ATSINSmove(tmp285, atscntrb_gmp_mpz_cmp_mpz(ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), ATSPMVrefarg1(ATSSELrecsin(arg1, atstkind_type(atstype_ptrk), atslab__2)))) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13889(line=799, offs=7) -- 13896(line=799, offs=14) -*/ -ATSINSmove(tmp287, PMVtmpltcst(lt_g0int_int)(tmp285, ATSPMVi0nt(0))) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13886(line=799, offs=4) -- 13935(line=799, offs=53) -*/ -ATSif( -tmp287 -) ATSthen() { -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13902(line=799, offs=20) -- 13904(line=799, offs=22) -*/ -ATSINSmove(tmp286, PMVtmpltcst(g1int_neg)(ATSPMVi0nt(1))) ; - -} ATSelse() { -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13913(line=799, offs=31) -- 13920(line=799, offs=38) -*/ -ATSINSmove(tmp288, PMVtmpltcst(gt_g0int_int)(tmp285, ATSPMVi0nt(0))) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13910(line=799, offs=28) -- 13934(line=799, offs=52) -*/ -ATSif( -tmp288 -) ATSthen() { -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13926(line=799, offs=44) -- 13927(line=799, offs=45) -*/ -ATSINSmove(tmp286, ATSPMVi0nt(1)) ; -} ATSelse() { -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13933(line=799, offs=51) -- 13934(line=799, offs=52) -*/ -ATSINSmove(tmp286, ATSPMVi0nt(0)) ; -} /* ATSendif */ -} /* ATSendif */ -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13950(line=802, offs=3) -- 13977(line=802, offs=30) -*/ -ATSINSmove(tmpret284, ATSPMVcastfn(cast, atstkind_t0ype(atstype_int), tmp286)) ; -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13821(line=794, offs=18) -- 13982(line=803, offs=4) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret284) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__compare_intinf_intinf__124] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 14073(line=810, offs=3) -- 14242(line=819, offs=2) -*/ -/* -local: -global: pow_int_int$125$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__pow_int_int__125(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret289, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp290, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp291) ; -// ATStmpdec_void(tmp292) ; -ATStmpdec(tmp293, atstkind_t0ype(atstype_ulint)) ; -ATStmpdec(tmp294, atstkind_t0ype(atstype_ulint)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 14059(line=809, offs=1) -- 14242(line=819, offs=2) -*/ -ATSINSflab(__patsflab_pow_int_int): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 14089(line=811, offs=3) -- 14242(line=819, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 14127(line=814, offs=10) -- 14143(line=814, offs=26) -*/ -ATSINSmove(tmp290, PMVtmpltcst(ptr_alloc)()) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 14153(line=815, offs=10) -- 14175(line=815, offs=32) -*/ -ATSINSmove_void(tmp291, atscntrb_gmp_mpz_init(ATSPMVrefarg1(ATSSELrecsin(tmp290, atstkind_type(atstype_ptrk), atslab__2)))) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 14215(line=817, offs=31) -- 14224(line=817, offs=40) -*/ -ATSINSmove(tmp293, atspre_g1int2uint_int_ulint(arg0)) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 14227(line=817, offs=43) -- 14235(line=817, offs=51) -*/ -ATSINSmove(tmp294, atspre_g1int2uint_int_ulint(arg1)) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 14187(line=817, offs=3) -- 14237(line=817, offs=53) -*/ -ATSINSmove_void(tmp292, atscntrb_gmp_mpz_ui_pow_ui(ATSPMVrefarg1(ATSSELrecsin(tmp290, atstkind_type(atstype_ptrk), atslab__2)), tmp293, tmp294)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 14089(line=811, offs=3) -- 14105(line=811, offs=19) -*/ -ATSINSmove(tmpret289, ATSPMVcastfn(castvwtp0, atstkind_type(atstype_ptrk), tmp290)) ; -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 14089(line=811, offs=3) -- 14242(line=819, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret289) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__pow_int_int__125] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 14311(line=824, offs=3) -- 14475(line=832, offs=2) -*/ -/* -local: -global: pow_intinf_int$126$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__pow_intinf_int__126(atsrefarg0_type(atstkind_type(atstype_ptrk)) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret295, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp296, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp297) ; -// ATStmpdec_void(tmp298) ; -ATStmpdec(tmp299, atstkind_t0ype(atstype_uint)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 14294(line=823, offs=1) -- 14475(line=832, offs=2) -*/ -ATSINSflab(__patsflab_pow_intinf_int): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 14327(line=825, offs=3) -- 14475(line=832, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 14365(line=828, offs=10) -- 14381(line=828, offs=26) -*/ -ATSINSmove(tmp296, PMVtmpltcst(ptr_alloc)()) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 14391(line=829, offs=10) -- 14413(line=829, offs=32) -*/ -ATSINSmove_void(tmp297, atscntrb_gmp_mpz_init(ATSPMVrefarg1(ATSSELrecsin(tmp296, atstkind_type(atstype_ptrk), atslab__2)))) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 14461(line=830, offs=48) -- 14468(line=830, offs=55) -*/ -ATSINSmove(tmp299, atspre_g1int2uint_int_uint(arg1)) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 14423(line=830, offs=10) -- 14470(line=830, offs=57) -*/ -ATSINSmove_void(tmp298, atscntrb_gmp_mpz_pow_uint(ATSPMVrefarg1(ATSSELrecsin(tmp296, atstkind_type(atstype_ptrk), atslab__2)), ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), tmp299)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 14327(line=825, offs=3) -- 14343(line=825, offs=19) -*/ -ATSINSmove(tmpret295, ATSPMVcastfn(castvwtp0, atstkind_type(atstype_ptrk), tmp296)) ; -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 14327(line=825, offs=3) -- 14475(line=832, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret295) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__pow_intinf_int__126] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 14598(line=841, offs=13) -- 14632(line=841, offs=47) -*/ -/* -local: -global: print_intinf$127$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atsvoid_t0ype -ATSCNTRB_056_HX_056_intinf_vt__print_intinf__127(atsrefarg0_type(atstkind_type(atstype_ptrk)) arg0) -{ -/* tmpvardeclst(beg) */ -// ATStmpdec_void(tmpret300) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 14586(line=841, offs=1) -- 14632(line=841, offs=47) -*/ -ATSINSflab(__patsflab_print_intinf): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 14604(line=841, offs=19) -- 14632(line=841, offs=47) -*/ -ATSINSmove_void(tmpret300, PMVtmpltcst(fprint_intinf<>)(atspre_FILE_stdout, ATSPMVrefarg0(arg0))) ; - -ATSfunbody_end() -ATSreturn_void(tmpret300) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__print_intinf__127] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 14657(line=843, offs=13) -- 14691(line=843, offs=47) -*/ -/* -local: -global: prerr_intinf$128$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atsvoid_t0ype -ATSCNTRB_056_HX_056_intinf_vt__prerr_intinf__128(atsrefarg0_type(atstkind_type(atstype_ptrk)) arg0) -{ -/* tmpvardeclst(beg) */ -// ATStmpdec_void(tmpret301) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 14645(line=843, offs=1) -- 14691(line=843, offs=47) -*/ -ATSINSflab(__patsflab_prerr_intinf): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 14663(line=843, offs=19) -- 14691(line=843, offs=47) -*/ -ATSINSmove_void(tmpret301, PMVtmpltcst(fprint_intinf<>)(atspre_FILE_stderr, ATSPMVrefarg0(arg0))) ; - -ATSfunbody_end() -ATSreturn_void(tmpret301) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__prerr_intinf__128] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 14717(line=845, offs=14) -- 14766(line=845, offs=63) -*/ -/* -local: -global: fprint_intinf$129$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atsvoid_t0ype -ATSCNTRB_056_HX_056_intinf_vt__fprint_intinf__129(atstkind_type(atstype_ptrk) arg0, atsrefarg0_type(atstkind_type(atstype_ptrk)) arg1) -{ -/* tmpvardeclst(beg) */ -// ATStmpdec_void(tmpret302) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 14704(line=845, offs=1) -- 14766(line=845, offs=63) -*/ -ATSINSflab(__patsflab_fprint_intinf): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 14728(line=845, offs=25) -- 14766(line=845, offs=63) -*/ -ATSINSmove_void(tmpret302, PMVtmpltcst(fprint_intinf_base<>)(arg0, ATSPMVrefarg0(arg1), ATSPMVi0nt(10))) ; - -ATSfunbody_end() -ATSreturn_void(tmpret302) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__fprint_intinf__129] */ -#endif // end of [TEMPLATE] - -/* -/home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 587(line=20, offs=4) -- 635(line=21, offs=12) -*/ -/* -local: -global: divides_130$0(level=0) -local: -global: -*/ -ATSstatic() -atstkind_t0ype(atstype_bool) -divides_130(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret303, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp306, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 587(line=20, offs=4) -- 635(line=21, offs=12) -*/ -ATSINSflab(__patsflab_divides_130): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 626(line=21, offs=3) -- 631(line=21, offs=8) -*/ -ATSINSmove(tmp306, atspre_g0int_mod_int(arg1, arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 626(line=21, offs=3) -- 635(line=21, offs=12) -*/ -ATSINSmove(tmpret303, ATSLIB_056_prelude__eq_g0int_int__7__4(tmp306, ATSPMVi0nt(0))) ; - -ATSfunbody_end() -ATSreturn(tmpret303) ; -} /* end of [divides_130] */ - -/* -/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) -*/ -/* -local: -global: eq_g0int_int$7$4(level=1) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4694) -tmparg = S2Evar(tk(4694)) -tmpsub = Some(tk(4694) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g0int_int__7__4(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret9__4, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp10__4, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) -*/ -ATSINSflab(__patsflab_eq_g0int_int): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) -*/ -ATSINSmove(tmp10__4, atspre_g0int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) -*/ -ATSINSmove(tmpret9__4, atspre_g0int_eq_int(arg0, tmp10__4)) ; - -ATSfunbody_end() -ATSreturn(tmpret9__4) ; -} /* end of [ATSLIB_056_prelude__eq_g0int_int__7__4] */ - -/* -/home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 641(line=23, offs=5) -- 752(line=27, offs=6) -*/ -/* -local: witness_12$0(level=0), gcd_132$0(level=0) -global: witness_12$0(level=0), gcd_132$0(level=0) -local: -global: -*/ -ATSstatic() -atstkind_t0ype(atstype_int) -gcd_132(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(tmpret307, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp308, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp311, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp312, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -/* -emit_funent_fnxdeclst: -*/ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 641(line=23, offs=5) -- 752(line=27, offs=6) -*/ -ATSINSflab(__patsflab_gcd_132): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 702(line=24, offs=6) -- 707(line=24, offs=11) -*/ -ATSINSmove(tmp308, ATSLIB_056_prelude__gt_g1int_int__1__2(arg1, ATSPMVi0nt(0))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 699(line=24, offs=3) -- 752(line=27, offs=6) -*/ -ATSif( -tmp308 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 732(line=25, offs=20) -- 737(line=25, offs=25) -*/ -ATSINSmove(tmp312, atspre_g0int_mod_int(arg0, arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 724(line=25, offs=12) -- 738(line=25, offs=26) -*/ -ATSINSmove(tmp311, witness_12(tmp312)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 717(line=25, offs=5) -- 739(line=25, offs=27) -*/ -ATStailcal_beg() -ATSINSmove_tlcal(apy0, arg1) ; -ATSINSmove_tlcal(apy1, tmp311) ; -ATSINSargmove_tlcal(arg0, apy0) ; -ATSINSargmove_tlcal(arg1, apy1) ; -ATSINSfgoto(__patsflab_gcd_132) ; -ATStailcal_end() - -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 751(line=27, offs=5) -- 752(line=27, offs=6) -*/ -ATSINSmove(tmpret307, arg0) ; -} /* ATSendif */ -ATSfunbody_end() -ATSreturn(tmpret307) ; -/* -emit_funent_fnxbodylst: -*/ -} /* end of [gcd_132] */ - -/* -/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 12679(line=659, offs=3) -- 12718(line=659, offs=42) -*/ -/* -local: -global: gt_g1int_int$1$2(level=1) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4703) -tmparg = S2Evar(tk(4703)) -tmpsub = Some(tk(4703) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__gt_g1int_int__1__2(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret2__2, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp3__2, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12664(line=658, offs=1) -- 12718(line=659, offs=42) -*/ -ATSINSflab(__patsflab_gt_g1int_int): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12705(line=659, offs=29) -- 12716(line=659, offs=40) -*/ -ATSINSmove(tmp3__2, atspre_g1int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12688(line=659, offs=12) -- 12718(line=659, offs=42) -*/ -ATSINSmove(tmpret2__2, atspre_g1int_gt_int(arg0, tmp3__2)) ; - -ATSfunbody_end() -ATSreturn(tmpret2__2) ; -} /* end of [ATSLIB_056_prelude__gt_g1int_int__1__2] */ - -/* -/home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 757(line=29, offs=4) -- 834(line=30, offs=22) -*/ -/* -local: gcd_132$0(level=0) -global: witness_12$0(level=0), gcd_132$0(level=0), lcm_134$0(level=0) -local: -global: -*/ -ATSstatic() -atstkind_t0ype(atstype_int) -lcm_134(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret313, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp314, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp315, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 757(line=29, offs=4) -- 834(line=30, offs=22) -*/ -ATSINSflab(__patsflab_lcm_134): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 820(line=30, offs=8) -- 829(line=30, offs=17) -*/ -ATSINSmove(tmp315, gcd_132(arg0, arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 816(line=30, offs=4) -- 829(line=30, offs=17) -*/ -ATSINSmove(tmp314, atspre_g0int_div_int(arg0, tmp315)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 815(line=30, offs=3) -- 834(line=30, offs=22) -*/ -ATSINSmove(tmpret313, atspre_g0int_mul_int(tmp314, arg1)) ; - -ATSfunbody_end() -ATSreturn(tmpret313) ; -} /* end of [lcm_134] */ - -/* -/home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 877(line=33, offs=4) -- 1281(line=45, offs=6) -*/ -/* -local: -global: divisors_136$0(level=0) -local: -global: -*/ -ATSstatic() -atstkind_type(atstype_ptrk) -divisors_136(atstkind_t0ype(atstype_int) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret316, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 877(line=33, offs=4) -- 1281(line=45, offs=6) -*/ -ATSINSflab(__patsflab_divisors_136): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 922(line=34, offs=3) -- 1281(line=45, offs=6) -*/ -/* -letpush(beg) -*/ -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 1265(line=44, offs=5) -- 1275(line=44, offs=15) -*/ -ATSINSmove(tmpret316, loop_137(arg0, ATSPMVi0nt(1))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 922(line=34, offs=3) -- 1281(line=45, offs=6) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret316) ; -} /* end of [divisors_136] */ - -/* -/home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 934(line=35, offs=9) -- 1255(line=42, offs=33) -*/ -/* -local: loop_137$0(level=1) -global: loop_137$0(level=1) -local: -global: -*/ -ATSstatic() -atstkind_type(atstype_ptrk) -loop_137(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret317, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp318, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp326, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp329, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 934(line=35, offs=9) -- 1255(line=42, offs=33) -*/ -ATSINSflab(__patsflab_loop_137): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 1041(line=36, offs=10) -- 1049(line=36, offs=18) -*/ -ATSINSmove(tmp318, ATSLIB_056_prelude__gte_g1int_int__138__1(arg1, arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 1038(line=36, offs=7) -- 1255(line=42, offs=33) -*/ -ATSif( -tmp318 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 1063(line=37, offs=9) -- 1115(line=37, offs=61) -*/ -ATSINSmove_ldelay(tmpret317, atstype_boxed, ATSPMVcfunlab(1, __patsfun_141, (arg1))) ; -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 1138(line=39, offs=12) -- 1145(line=39, offs=19) -*/ -ATSINSmove(tmp329, atspre_g0int_mod_int(arg0, arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 1138(line=39, offs=12) -- 1149(line=39, offs=23) -*/ -ATSINSmove(tmp326, ATSLIB_056_prelude__eq_g0int_int__7__5(tmp329, ATSPMVi0nt(0))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 1135(line=39, offs=9) -- 1255(line=42, offs=33) -*/ -ATSif( -tmp326 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 1165(line=40, offs=11) -- 1209(line=40, offs=55) -*/ -ATSINSmove_ldelay(tmpret317, atstype_boxed, ATSPMVcfunlab(1, __patsfun_144, (arg0, arg1))) ; -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 1233(line=42, offs=11) -- 1255(line=42, offs=33) -*/ -ATSINSmove_ldelay(tmpret317, atstype_boxed, ATSPMVcfunlab(1, __patsfun_145, ())) ; -} /* ATSendif */ -} /* ATSendif */ -ATSfunbody_end() -ATSreturn(tmpret317) ; -} /* end of [loop_137] */ - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 12757(line=663, offs=3) -- 12797(line=663, offs=43) -*/ -/* -local: -global: gte_g1int_int$138$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = tk(4706) -tmparg = S2Evar(tk(4706)) -tmpsub = None() -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__gte_g1int_int__138(atstkind_t0ype(atstyvar_type(tk)) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret319, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp320, atstkind_t0ype(atstyvar_type(tk))) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12741(line=662, offs=1) -- 12797(line=663, offs=43) -*/ -ATSINSflab(__patsflab_gte_g1int_int): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12784(line=663, offs=30) -- 12795(line=663, offs=41) -*/ -ATSINSmove(tmp320, PMVtmpltcst(g1int2int)(arg1)) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12766(line=663, offs=12) -- 12797(line=663, offs=43) -*/ -ATSINSmove(tmpret319, PMVtmpltcst(g1int_gte)(arg0, tmp320)) ; - -ATSfunbody_end() -ATSreturn(tmpret319) ; -} /* end of [ATSLIB_056_prelude__gte_g1int_int__138] */ -#endif // end of [TEMPLATE] - -/* -/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 12757(line=663, offs=3) -- 12797(line=663, offs=43) -*/ -/* -local: -global: gte_g1int_int$138$1(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4706) -tmparg = S2Evar(tk(4706)) -tmpsub = Some(tk(4706) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__gte_g1int_int__138__1(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret319__1, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp320__1, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12741(line=662, offs=1) -- 12797(line=663, offs=43) -*/ -ATSINSflab(__patsflab_gte_g1int_int): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12784(line=663, offs=30) -- 12795(line=663, offs=41) -*/ -ATSINSmove(tmp320__1, atspre_g1int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12766(line=663, offs=12) -- 12797(line=663, offs=43) -*/ -ATSINSmove(tmpret319__1, atspre_g1int_gte_int(arg0, tmp320__1)) ; - -ATSfunbody_end() -ATSreturn(tmpret319__1) ; -} /* end of [ATSLIB_056_prelude__gte_g1int_int__138__1] */ - -/* -/home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 1063(line=37, offs=9) -- 1115(line=37, offs=61) -*/ -/* -local: -global: __patsfun_141$0(level=2) -local: acc$5071(2)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))) -global: acc$5071(2)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))) -*/ -ATSstatic() -atstype_boxed -__patsfun_141(atstkind_t0ype(atstype_int) env0, atstype_bool arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret323, atstype_boxed) ; -ATStmpdec(tmp324, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 1063(line=37, offs=9) -- 1115(line=37, offs=61) -*/ -ATSINSflab(__patsflab___patsfun_141): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 1063(line=37, offs=9) -- 1115(line=37, offs=61) -*/ -ATSif( -arg0 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 1091(line=37, offs=37) -- 1113(line=37, offs=59) -*/ -ATSINSmove_ldelay(tmp324, atstype_boxed, ATSPMVcfunlab(1, __patsfun_142, ())) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 1071(line=37, offs=17) -- 1114(line=37, offs=60) -*/ - -/* -#LINCONSTATUS==0 -*/ -ATSINSmove_con1_beg() -ATSINSmove_con1_new(tmpret323, postiats_tysum_0) ; -#if(0) -ATSINSstore_con1_tag(tmpret323, 1) ; -#endif -ATSINSstore_con1_ofs(tmpret323, postiats_tysum_0, atslab__0, env0) ; -ATSINSstore_con1_ofs(tmpret323, postiats_tysum_0, atslab__1, tmp324) ; -ATSINSmove_con1_end() -} ATSelse() { -/* (*nothing*) */ -} /* ATSendif */ -ATSfunbody_end() -ATSreturn(tmpret323) ; -} /* end of [__patsfun_141] */ - -/* -/home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 1091(line=37, offs=37) -- 1113(line=37, offs=59) -*/ -/* -local: -global: __patsfun_142$0(level=3) -local: -global: -*/ -ATSstatic() -atstype_boxed -__patsfun_142(atstype_bool arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret325, atstype_boxed) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 1091(line=37, offs=37) -- 1113(line=37, offs=59) -*/ -ATSINSflab(__patsflab___patsfun_142): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 1091(line=37, offs=37) -- 1113(line=37, offs=59) -*/ -ATSif( -arg0 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 1099(line=37, offs=45) -- 1112(line=37, offs=58) -*/ - -ATSINSmove_nil(tmpret325) ; - -} ATSelse() { -/* (*nothing*) */ -} /* ATSendif */ -ATSfunbody_end() -ATSreturn(tmpret325) ; -} /* end of [__patsfun_142] */ - -/* -/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) -*/ -/* -local: -global: eq_g0int_int$7$5(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4694) -tmparg = S2Evar(tk(4694)) -tmpsub = Some(tk(4694) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g0int_int__7__5(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret9__5, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp10__5, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) -*/ -ATSINSflab(__patsflab_eq_g0int_int): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) -*/ -ATSINSmove(tmp10__5, atspre_g0int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) -*/ -ATSINSmove(tmpret9__5, atspre_g0int_eq_int(arg0, tmp10__5)) ; - -ATSfunbody_end() -ATSreturn(tmpret9__5) ; -} /* end of [ATSLIB_056_prelude__eq_g0int_int__7__5] */ - -/* -/home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 1165(line=40, offs=11) -- 1209(line=40, offs=55) -*/ -/* -local: loop_137$0(level=1) -global: loop_137$0(level=1), __patsfun_144$0(level=2) -local: n$5070(2)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))), acc$5071(2)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))) -global: n$5070(2)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))), acc$5071(2)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))) -*/ -ATSstatic() -atstype_boxed -__patsfun_144(atstkind_t0ype(atstype_int) env0, atstkind_t0ype(atstype_int) env1, atstype_bool arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret330, atstype_boxed) ; -ATStmpdec(tmp331, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp332, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 1165(line=40, offs=11) -- 1209(line=40, offs=55) -*/ -ATSINSflab(__patsflab___patsfun_144): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 1165(line=40, offs=11) -- 1209(line=40, offs=55) -*/ -ATSif( -arg0 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 1199(line=40, offs=45) -- 1206(line=40, offs=52) -*/ -ATSINSmove(tmp332, atspre_g1int_add_int(env1, ATSPMVi0nt(1))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 1191(line=40, offs=37) -- 1207(line=40, offs=53) -*/ -ATSINSmove(tmp331, loop_137(env0, tmp332)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 1173(line=40, offs=19) -- 1208(line=40, offs=54) -*/ - -/* -#LINCONSTATUS==0 -*/ -ATSINSmove_con1_beg() -ATSINSmove_con1_new(tmpret330, postiats_tysum_0) ; -#if(0) -ATSINSstore_con1_tag(tmpret330, 1) ; -#endif -ATSINSstore_con1_ofs(tmpret330, postiats_tysum_0, atslab__0, env0) ; -ATSINSstore_con1_ofs(tmpret330, postiats_tysum_0, atslab__1, tmp331) ; -ATSINSmove_con1_end() -} ATSelse() { -/* (*nothing*) */ -} /* ATSendif */ -ATSfunbody_end() -ATSreturn(tmpret330) ; -} /* end of [__patsfun_144] */ - -/* -/home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 1233(line=42, offs=11) -- 1255(line=42, offs=33) -*/ -/* -local: -global: __patsfun_145$0(level=2) -local: -global: -*/ -ATSstatic() -atstype_boxed -__patsfun_145(atstype_bool arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret333, atstype_boxed) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 1233(line=42, offs=11) -- 1255(line=42, offs=33) -*/ -ATSINSflab(__patsflab___patsfun_145): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 1233(line=42, offs=11) -- 1255(line=42, offs=33) -*/ -ATSif( -arg0 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 1241(line=42, offs=19) -- 1254(line=42, offs=32) -*/ - -ATSINSmove_nil(tmpret333) ; - -} ATSelse() { -/* (*nothing*) */ -} /* ATSendif */ -ATSfunbody_end() -ATSreturn(tmpret333) ; -} /* end of [__patsfun_145] */ - -/* -/home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 1286(line=47, offs=4) -- 1597(line=59, offs=6) -*/ -/* -local: -global: count_divisors_146$0(level=0) -local: -global: -*/ -ATSstatic() -atstkind_t0ype(atstype_int) -count_divisors_146(atstkind_t0ype(atstype_int) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret334, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 1286(line=47, offs=4) -- 1597(line=59, offs=6) -*/ -ATSINSflab(__patsflab_count_divisors_146): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 1328(line=48, offs=3) -- 1597(line=59, offs=6) -*/ -/* -letpush(beg) -*/ -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 1581(line=58, offs=5) -- 1591(line=58, offs=15) -*/ -ATSINSmove(tmpret334, loop_147(arg0, ATSPMVi0nt(1))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 1328(line=48, offs=3) -- 1597(line=59, offs=6) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret334) ; -} /* end of [count_divisors_146] */ - -/* -/home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 1340(line=49, offs=9) -- 1571(line=56, offs=27) -*/ -/* -local: loop_147$0(level=1) -global: loop_147$0(level=1) -local: -global: -*/ -ATSstatic() -atstkind_t0ype(atstype_int) -loop_147(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(tmpret335, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp336, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp339, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp342, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp343, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp344, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp345, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 1340(line=49, offs=9) -- 1571(line=56, offs=27) -*/ -ATSINSflab(__patsflab_loop_147): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 1438(line=50, offs=10) -- 1446(line=50, offs=18) -*/ -ATSINSmove(tmp336, ATSLIB_056_prelude__gte_g1int_int__138__2(arg1, arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 1435(line=50, offs=7) -- 1571(line=56, offs=27) -*/ -ATSif( -tmp336 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 1460(line=51, offs=9) -- 1461(line=51, offs=10) -*/ -ATSINSmove(tmpret335, ATSPMVi0nt(1)) ; -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 1484(line=53, offs=12) -- 1491(line=53, offs=19) -*/ -ATSINSmove(tmp342, atspre_g0int_mod_int(arg0, arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 1484(line=53, offs=12) -- 1495(line=53, offs=23) -*/ -ATSINSmove(tmp339, ATSLIB_056_prelude__eq_g0int_int__7__6(tmp342, ATSPMVi0nt(0))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 1481(line=53, offs=9) -- 1571(line=56, offs=27) -*/ -ATSif( -tmp339 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 1523(line=54, offs=23) -- 1530(line=54, offs=30) -*/ -ATSINSmove(tmp344, atspre_g1int_add_int(arg1, ATSPMVi0nt(1))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 1515(line=54, offs=15) -- 1531(line=54, offs=31) -*/ -ATSINSmove(tmp343, loop_147(arg0, tmp344)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 1511(line=54, offs=11) -- 1531(line=54, offs=31) -*/ -ATSINSmove(tmpret335, atspre_g0int_add_int(ATSPMVi0nt(1), tmp343)) ; - -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 1563(line=56, offs=19) -- 1570(line=56, offs=26) -*/ -ATSINSmove(tmp345, atspre_g1int_add_int(arg1, ATSPMVi0nt(1))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 1555(line=56, offs=11) -- 1571(line=56, offs=27) -*/ -ATStailcal_beg() -ATSINSmove_tlcal(apy0, arg0) ; -ATSINSmove_tlcal(apy1, tmp345) ; -ATSINSargmove_tlcal(arg0, apy0) ; -ATSINSargmove_tlcal(arg1, apy1) ; -ATSINSfgoto(__patsflab_loop_147) ; -ATStailcal_end() - -} /* ATSendif */ -} /* ATSendif */ -ATSfunbody_end() -ATSreturn(tmpret335) ; -} /* end of [loop_147] */ - -/* -/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 12757(line=663, offs=3) -- 12797(line=663, offs=43) -*/ -/* -local: -global: gte_g1int_int$138$2(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4706) -tmparg = S2Evar(tk(4706)) -tmpsub = Some(tk(4706) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__gte_g1int_int__138__2(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret319__2, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp320__2, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12741(line=662, offs=1) -- 12797(line=663, offs=43) -*/ -ATSINSflab(__patsflab_gte_g1int_int): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12784(line=663, offs=30) -- 12795(line=663, offs=41) -*/ -ATSINSmove(tmp320__2, atspre_g1int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12766(line=663, offs=12) -- 12797(line=663, offs=43) -*/ -ATSINSmove(tmpret319__2, atspre_g1int_gte_int(arg0, tmp320__2)) ; - -ATSfunbody_end() -ATSreturn(tmpret319__2) ; -} /* end of [ATSLIB_056_prelude__gte_g1int_int__138__2] */ - -/* -/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) -*/ -/* -local: -global: eq_g0int_int$7$6(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4694) -tmparg = S2Evar(tk(4694)) -tmpsub = Some(tk(4694) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g0int_int__7__6(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret9__6, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp10__6, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) -*/ -ATSINSflab(__patsflab_eq_g0int_int): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) -*/ -ATSINSmove(tmp10__6, atspre_g0int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) -*/ -ATSINSmove(tmpret9__6, atspre_g0int_eq_int(arg0, tmp10__6)) ; - -ATSfunbody_end() -ATSreturn(tmpret9__6) ; -} /* end of [ATSLIB_056_prelude__eq_g0int_int__7__6] */ - -/* -/home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 1602(line=61, offs=4) -- 1913(line=73, offs=6) -*/ -/* -local: -global: sum_divisors_151$0(level=0) -local: -global: -*/ -ATSstatic() -atstkind_t0ype(atstype_int) -sum_divisors_151(atstkind_t0ype(atstype_int) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret346, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 1602(line=61, offs=4) -- 1913(line=73, offs=6) -*/ -ATSINSflab(__patsflab_sum_divisors_151): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 1642(line=62, offs=3) -- 1913(line=73, offs=6) -*/ -/* -letpush(beg) -*/ -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 1897(line=72, offs=5) -- 1907(line=72, offs=15) -*/ -ATSINSmove(tmpret346, loop_152(arg0, ATSPMVi0nt(1))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 1642(line=62, offs=3) -- 1913(line=73, offs=6) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret346) ; -} /* end of [sum_divisors_151] */ - -/* -/home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 1654(line=63, offs=9) -- 1887(line=70, offs=27) -*/ -/* -local: loop_152$0(level=1) -global: loop_152$0(level=1) -local: -global: -*/ -ATSstatic() -atstkind_t0ype(atstype_int) -loop_152(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(tmpret347, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp348, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp351, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp354, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp355, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp356, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp357, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 1654(line=63, offs=9) -- 1887(line=70, offs=27) -*/ -ATSINSflab(__patsflab_loop_152): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 1752(line=64, offs=10) -- 1760(line=64, offs=18) -*/ -ATSINSmove(tmp348, ATSLIB_056_prelude__gte_g1int_int__138__3(arg1, arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 1749(line=64, offs=7) -- 1887(line=70, offs=27) -*/ -ATSif( -tmp348 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 1774(line=65, offs=9) -- 1775(line=65, offs=10) -*/ -ATSINSmove(tmpret347, ATSPMVi0nt(0)) ; -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 1798(line=67, offs=12) -- 1805(line=67, offs=19) -*/ -ATSINSmove(tmp354, atspre_g0int_mod_int(arg0, arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 1798(line=67, offs=12) -- 1809(line=67, offs=23) -*/ -ATSINSmove(tmp351, ATSLIB_056_prelude__eq_g0int_int__7__7(tmp354, ATSPMVi0nt(0))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 1795(line=67, offs=9) -- 1887(line=70, offs=27) -*/ -ATSif( -tmp351 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 1839(line=68, offs=25) -- 1846(line=68, offs=32) -*/ -ATSINSmove(tmp356, atspre_g1int_add_int(arg1, ATSPMVi0nt(1))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 1831(line=68, offs=17) -- 1847(line=68, offs=33) -*/ -ATSINSmove(tmp355, loop_152(arg0, tmp356)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 1825(line=68, offs=11) -- 1847(line=68, offs=33) -*/ -ATSINSmove(tmpret347, atspre_g0int_add_int(arg1, tmp355)) ; - -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 1879(line=70, offs=19) -- 1886(line=70, offs=26) -*/ -ATSINSmove(tmp357, atspre_g1int_add_int(arg1, ATSPMVi0nt(1))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 1871(line=70, offs=11) -- 1887(line=70, offs=27) -*/ -ATStailcal_beg() -ATSINSmove_tlcal(apy0, arg0) ; -ATSINSmove_tlcal(apy1, tmp357) ; -ATSINSargmove_tlcal(arg0, apy0) ; -ATSINSargmove_tlcal(arg1, apy1) ; -ATSINSfgoto(__patsflab_loop_152) ; -ATStailcal_end() - -} /* ATSendif */ -} /* ATSendif */ -ATSfunbody_end() -ATSreturn(tmpret347) ; -} /* end of [loop_152] */ - -/* -/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 12757(line=663, offs=3) -- 12797(line=663, offs=43) -*/ -/* -local: -global: gte_g1int_int$138$3(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4706) -tmparg = S2Evar(tk(4706)) -tmpsub = Some(tk(4706) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__gte_g1int_int__138__3(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret319__3, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp320__3, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12741(line=662, offs=1) -- 12797(line=663, offs=43) -*/ -ATSINSflab(__patsflab_gte_g1int_int): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12784(line=663, offs=30) -- 12795(line=663, offs=41) -*/ -ATSINSmove(tmp320__3, atspre_g1int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12766(line=663, offs=12) -- 12797(line=663, offs=43) -*/ -ATSINSmove(tmpret319__3, atspre_g1int_gte_int(arg0, tmp320__3)) ; - -ATSfunbody_end() -ATSreturn(tmpret319__3) ; -} /* end of [ATSLIB_056_prelude__gte_g1int_int__138__3] */ - -/* -/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) -*/ -/* -local: -global: eq_g0int_int$7$7(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4694) -tmparg = S2Evar(tk(4694)) -tmpsub = Some(tk(4694) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g0int_int__7__7(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret9__7, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp10__7, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) -*/ -ATSINSflab(__patsflab_eq_g0int_int): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) -*/ -ATSINSmove(tmp10__7, atspre_g0int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) -*/ -ATSINSmove(tmpret9__7, atspre_g0int_eq_int(arg0, tmp10__7)) ; - -ATSfunbody_end() -ATSreturn(tmpret9__7) ; -} /* end of [ATSLIB_056_prelude__eq_g0int_int__7__7] */ - -/* -/home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 1979(line=76, offs=4) -- 2037(line=77, offs=22) -*/ -/* -local: sum_divisors_151$0(level=0) -global: sum_divisors_151$0(level=0), is_perfect_155$0(level=0) -local: -global: -*/ -ATSstatic() -atstkind_t0ype(atstype_bool) -is_perfect_155(atstkind_t0ype(atstype_int) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret358, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp361, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 1979(line=76, offs=4) -- 2037(line=77, offs=22) -*/ -ATSINSflab(__patsflab_is_perfect_155): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 2018(line=77, offs=3) -- 2032(line=77, offs=17) -*/ -ATSINSmove(tmp361, sum_divisors_151(arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 2018(line=77, offs=3) -- 2037(line=77, offs=22) -*/ -ATSINSmove(tmpret358, ATSLIB_056_prelude__eq_g0int_int__7__8(tmp361, arg0)) ; - -ATSfunbody_end() -ATSreturn(tmpret358) ; -} /* end of [is_perfect_155] */ - -/* -/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) -*/ -/* -local: -global: eq_g0int_int$7$8(level=1) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4694) -tmparg = S2Evar(tk(4694)) -tmpsub = Some(tk(4694) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g0int_int__7__8(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret9__8, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp10__8, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) -*/ -ATSINSflab(__patsflab_eq_g0int_int): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) -*/ -ATSINSmove(tmp10__8, atspre_g0int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) -*/ -ATSINSmove(tmpret9__8, atspre_g0int_eq_int(arg0, tmp10__8)) ; - -ATSfunbody_end() -ATSreturn(tmpret9__8) ; -} /* end of [ATSLIB_056_prelude__eq_g0int_int__7__8] */ - -/* -/home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 2069(line=80, offs=4) -- 2450(line=95, offs=6) -*/ -/* -local: is_prime_16$0(level=0) -global: witness_12$0(level=0), sqrt_int_13$0(level=0), is_prime_16$0(level=0), little_omega_157$0(level=0) -local: -global: -*/ -ATSstatic() -atstkind_t0ype(atstype_int) -little_omega_157(atstkind_t0ype(atstype_int) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret362, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 2069(line=80, offs=4) -- 2450(line=95, offs=6) -*/ -ATSINSflab(__patsflab_little_omega_157): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 2109(line=81, offs=3) -- 2450(line=95, offs=6) -*/ -/* -letpush(beg) -*/ -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 2434(line=94, offs=5) -- 2444(line=94, offs=15) -*/ -ATSINSmove(tmpret362, loop_158(arg0, ATSPMVi0nt(1))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 2109(line=81, offs=3) -- 2450(line=95, offs=6) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret362) ; -} /* end of [little_omega_157] */ - -/* -/home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 2121(line=82, offs=9) -- 2424(line=92, offs=27) -*/ -/* -local: is_prime_16$0(level=0), loop_158$0(level=1) -global: is_prime_16$0(level=0), loop_158$0(level=1) -local: -global: -*/ -ATSstatic() -atstkind_t0ype(atstype_int) -loop_158(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(tmpret363, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp364, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp367, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp368, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp369, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp372, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp373, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp374, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp375, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 2121(line=82, offs=9) -- 2424(line=92, offs=27) -*/ -ATSINSflab(__patsflab_loop_158): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 2219(line=83, offs=10) -- 2227(line=83, offs=18) -*/ -ATSINSmove(tmp364, ATSLIB_056_prelude__gte_g1int_int__138__4(arg1, arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 2216(line=83, offs=7) -- 2424(line=92, offs=27) -*/ -ATSif( -tmp364 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 2244(line=84, offs=12) -- 2254(line=84, offs=22) -*/ -ATSINSmove(tmp367, is_prime_16(arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 2241(line=84, offs=9) -- 2297(line=87, offs=12) -*/ -ATSif( -tmp367 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 2271(line=85, offs=11) -- 2272(line=85, offs=12) -*/ -ATSINSmove(tmpret363, ATSPMVi0nt(1)) ; -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 2296(line=87, offs=11) -- 2297(line=87, offs=12) -*/ -ATSINSmove(tmpret363, ATSPMVi0nt(0)) ; -} /* ATSendif */ -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 2320(line=89, offs=12) -- 2347(line=89, offs=39) -*/ -ATSINSmove(tmp372, atspre_g0int_mod_int(arg0, arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 2320(line=89, offs=12) -- 2347(line=89, offs=39) -*/ -ATSINSmove(tmp369, ATSLIB_056_prelude__eq_g0int_int__7__9(tmp372, ATSPMVi0nt(0))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 2320(line=89, offs=12) -- 2347(line=89, offs=39) -*/ -ATSif( -tmp369 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 2320(line=89, offs=12) -- 2347(line=89, offs=39) -*/ -ATSINSmove(tmp368, is_prime_16(arg1)) ; - -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 2320(line=89, offs=12) -- 2347(line=89, offs=39) -*/ -ATSINSmove(tmp368, ATSPMVbool_false()) ; -} /* ATSendif */ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 2317(line=89, offs=9) -- 2424(line=92, offs=27) -*/ -ATSif( -tmp368 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 2376(line=90, offs=23) -- 2383(line=90, offs=30) -*/ -ATSINSmove(tmp374, atspre_g1int_add_int(arg1, ATSPMVi0nt(1))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 2368(line=90, offs=15) -- 2384(line=90, offs=31) -*/ -ATSINSmove(tmp373, loop_158(arg0, tmp374)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 2364(line=90, offs=11) -- 2384(line=90, offs=31) -*/ -ATSINSmove(tmpret363, atspre_g0int_add_int(ATSPMVi0nt(1), tmp373)) ; - -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 2416(line=92, offs=19) -- 2423(line=92, offs=26) -*/ -ATSINSmove(tmp375, atspre_g1int_add_int(arg1, ATSPMVi0nt(1))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 2408(line=92, offs=11) -- 2424(line=92, offs=27) -*/ -ATStailcal_beg() -ATSINSmove_tlcal(apy0, arg0) ; -ATSINSmove_tlcal(apy1, tmp375) ; -ATSINSargmove_tlcal(arg0, apy0) ; -ATSINSargmove_tlcal(arg1, apy1) ; -ATSINSfgoto(__patsflab_loop_158) ; -ATStailcal_end() - -} /* ATSendif */ -} /* ATSendif */ -ATSfunbody_end() -ATSreturn(tmpret363) ; -} /* end of [loop_158] */ - -/* -/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 12757(line=663, offs=3) -- 12797(line=663, offs=43) -*/ -/* -local: -global: gte_g1int_int$138$4(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4706) -tmparg = S2Evar(tk(4706)) -tmpsub = Some(tk(4706) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__gte_g1int_int__138__4(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret319__4, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp320__4, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12741(line=662, offs=1) -- 12797(line=663, offs=43) -*/ -ATSINSflab(__patsflab_gte_g1int_int): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12784(line=663, offs=30) -- 12795(line=663, offs=41) -*/ -ATSINSmove(tmp320__4, atspre_g1int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12766(line=663, offs=12) -- 12797(line=663, offs=43) -*/ -ATSINSmove(tmpret319__4, atspre_g1int_gte_int(arg0, tmp320__4)) ; - -ATSfunbody_end() -ATSreturn(tmpret319__4) ; -} /* end of [ATSLIB_056_prelude__gte_g1int_int__138__4] */ - -/* -/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) -*/ -/* -local: -global: eq_g0int_int$7$9(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4694) -tmparg = S2Evar(tk(4694)) -tmpsub = Some(tk(4694) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g0int_int__7__9(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret9__9, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp10__9, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) -*/ -ATSINSflab(__patsflab_eq_g0int_int): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) -*/ -ATSINSmove(tmp10__9, atspre_g0int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) -*/ -ATSINSmove(tmpret9__9, atspre_g0int_eq_int(arg0, tmp10__9)) ; - -ATSfunbody_end() -ATSreturn(tmpret9__9) ; -} /* end of [ATSLIB_056_prelude__eq_g0int_int__7__9] */ - -/* -/home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 2484(line=98, offs=4) -- 3032(line=118, offs=10) -*/ -/* -local: is_prime_16$0(level=0) -global: witness_12$0(level=0), sqrt_int_13$0(level=0), is_prime_16$0(level=0), totient_161$0(level=0) -local: -global: -*/ -ATSstatic() -atstkind_t0ype(atstype_int) -totient_161(atstkind_t0ype(atstype_int) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret376, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 2484(line=98, offs=4) -- 3032(line=118, offs=10) -*/ -ATSINSflab(__patsflab_totient_161): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 2517(line=99, offs=3) -- 3032(line=118, offs=10) -*/ -ATScaseof_beg() -/* -** ibranchlst-beg -*/ -ATSbranch_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 2534(line=100, offs=7) -- 2535(line=100, offs=8) -*/ -ATSINSlab(__atstmplab6): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 2492(line=98, offs=12) -- 2493(line=98, offs=13) -*/ -ATSifnthen(ATSCKpat_int(arg0, ATSPMVint(1))) { ATSINSgoto(__atstmplab8) ; } ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 2535(line=100, offs=8) -- 2535(line=100, 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/current/fast-combinatorics/ats-src/number-theory.dats: 2539(line=100, offs=12) -- 2540(line=100, offs=13) -*/ -ATSINSmove(tmpret376, ATSPMVi0nt(1)) ; -ATSbranch_end() - -ATSbranch_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 2548(line=101, offs=8) -- 2548(line=101, 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/current/fast-combinatorics/ats-src/number-theory.dats: 2574(line=103, offs=9) -- 3022(line=117, offs=12) -*/ -/* -letpush(beg) -*/ -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 3000(line=116, offs=11) -- 3010(line=116, offs=21) -*/ -ATSINSmove(tmpret376, loop_162(ATSPMVi0nt(1), arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 2574(line=103, offs=9) -- 3022(line=117, offs=12) -*/ -/* -INSletpop() -*/ -ATSbranch_end() - -/* -** ibranchlst-end -*/ -ATScaseof_end() - -ATSfunbody_end() -ATSreturn(tmpret376) ; -} /* end of [totient_161] */ - -/* -/home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 2592(line=104, offs=15) -- 2978(line=114, offs=31) -*/ -/* -local: is_prime_16$0(level=0), loop_162$0(level=1) -global: is_prime_16$0(level=0), loop_162$0(level=1) -local: -global: -*/ -ATSstatic() -atstkind_t0ype(atstype_int) -loop_162(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(tmpret377, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp378, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp381, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp382, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp383, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp384, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp387, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp392, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp393, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp394, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp395, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp396, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -/* -emit_funent_fnxdeclst: -*/ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 2592(line=104, offs=15) -- 2978(line=114, offs=31) -*/ -ATSINSflab(__patsflab_loop_162): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 2703(line=105, offs=16) -- 2709(line=105, offs=22) -*/ -ATSINSmove(tmp378, ATSLIB_056_prelude__gte_g1int_int__138__5(arg0, arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 2700(line=105, offs=13) -- 2978(line=114, offs=31) -*/ -ATSif( -tmp378 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 2732(line=106, offs=18) -- 2742(line=106, offs=28) -*/ -ATSINSmove(tmp381, is_prime_16(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 2729(line=106, offs=15) -- 2807(line=109, offs=18) -*/ -ATSif( -tmp381 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 2765(line=107, offs=17) -- 2770(line=107, offs=22) -*/ -ATSINSmove(tmpret377, atspre_g1int_sub_int(arg1, ATSPMVi0nt(1))) ; - -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 2806(line=109, offs=17) -- 2807(line=109, offs=18) -*/ -ATSINSmove(tmpret377, arg1) ; -} /* ATSendif */ -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 2842(line=111, offs=18) -- 2876(line=111, offs=52) -*/ -ATSINSmove(tmp387, atspre_g0int_mod_int(arg1, arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 2842(line=111, offs=18) -- 2876(line=111, offs=52) -*/ -ATSINSmove(tmp384, ATSLIB_056_prelude__eq_g0int_int__7__10(tmp387, ATSPMVi0nt(0))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 2842(line=111, offs=18) -- 2876(line=111, offs=52) -*/ -ATSif( -tmp384 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 2842(line=111, offs=18) -- 2876(line=111, offs=52) -*/ -ATSINSmove(tmp383, is_prime_16(arg0)) ; - -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 2842(line=111, offs=18) -- 2876(line=111, offs=52) -*/ -ATSINSmove(tmp383, ATSPMVbool_false()) ; -} /* ATSendif */ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 2842(line=111, offs=18) -- 2876(line=111, offs=52) -*/ -ATSif( -tmp383 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 2842(line=111, offs=18) -- 2876(line=111, offs=52) -*/ -ATSINSmove(tmp382, ATSLIB_056_prelude__neq_g1int_int__166__1(arg0, arg1)) ; - -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 2842(line=111, offs=18) -- 2876(line=111, offs=52) -*/ -ATSINSmove(tmp382, ATSPMVbool_false()) ; -} /* ATSendif */ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 2839(line=111, offs=15) -- 2978(line=114, offs=31) -*/ -ATSif( -tmp382 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 2904(line=112, offs=23) -- 2909(line=112, offs=28) -*/ -ATSINSmove(tmp394, atspre_g1int_add_int(arg0, ATSPMVi0nt(1))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 2899(line=112, offs=18) -- 2913(line=112, offs=32) -*/ -ATSINSmove(tmp393, loop_162(tmp394, arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 2899(line=112, offs=18) -- 2917(line=112, offs=36) -*/ -ATSINSmove(tmp392, atspre_g0int_div_int(tmp393, arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 2922(line=112, offs=41) -- 2927(line=112, offs=46) -*/ -ATSINSmove(tmp395, atspre_g1int_sub_int(arg0, ATSPMVi0nt(1))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 2898(line=112, offs=17) -- 2928(line=112, offs=47) -*/ -ATSINSmove(tmpret377, atspre_g0int_mul_int(tmp392, tmp395)) ; - -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 2969(line=114, offs=22) -- 2974(line=114, offs=27) -*/ -ATSINSmove(tmp396, atspre_g1int_add_int(arg0, ATSPMVi0nt(1))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 2964(line=114, offs=17) -- 2978(line=114, offs=31) -*/ -ATStailcal_beg() -ATSINSmove_tlcal(apy0, tmp396) ; -ATSINSmove_tlcal(apy1, arg1) ; -ATSINSargmove_tlcal(arg0, apy0) ; -ATSINSargmove_tlcal(arg1, apy1) ; -ATSINSfgoto(__patsflab_loop_162) ; -ATStailcal_end() - -} /* ATSendif */ -} /* ATSendif */ -ATSfunbody_end() -ATSreturn(tmpret377) ; -/* -emit_funent_fnxbodylst: -*/ -} /* end of [loop_162] */ - -/* -/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 12757(line=663, offs=3) -- 12797(line=663, offs=43) -*/ -/* -local: -global: gte_g1int_int$138$5(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4706) -tmparg = S2Evar(tk(4706)) -tmpsub = Some(tk(4706) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__gte_g1int_int__138__5(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret319__5, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp320__5, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12741(line=662, offs=1) -- 12797(line=663, offs=43) -*/ -ATSINSflab(__patsflab_gte_g1int_int): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12784(line=663, offs=30) -- 12795(line=663, offs=41) -*/ -ATSINSmove(tmp320__5, atspre_g1int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12766(line=663, offs=12) -- 12797(line=663, offs=43) -*/ -ATSINSmove(tmpret319__5, atspre_g1int_gte_int(arg0, tmp320__5)) ; - -ATSfunbody_end() -ATSreturn(tmpret319__5) ; -} /* end of [ATSLIB_056_prelude__gte_g1int_int__138__5] */ - -/* -/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) -*/ -/* -local: -global: eq_g0int_int$7$10(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4694) -tmparg = S2Evar(tk(4694)) -tmpsub = Some(tk(4694) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g0int_int__7__10(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret9__10, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp10__10, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) -*/ -ATSINSflab(__patsflab_eq_g0int_int): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) -*/ -ATSINSmove(tmp10__10, atspre_g0int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) -*/ -ATSINSmove(tmpret9__10, atspre_g0int_eq_int(arg0, tmp10__10)) ; - -ATSfunbody_end() -ATSreturn(tmpret9__10) ; -} /* end of [ATSLIB_056_prelude__eq_g0int_int__7__10] */ - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 12916(line=672, offs=3) -- 12956(line=672, offs=43) -*/ -/* -local: -global: neq_g1int_int$166$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = tk(4712) -tmparg = S2Evar(tk(4712)) -tmpsub = None() -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__neq_g1int_int__166(atstkind_t0ype(atstyvar_type(tk)) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret388, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp389, atstkind_t0ype(atstyvar_type(tk))) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12900(line=671, offs=1) -- 12956(line=672, offs=43) -*/ -ATSINSflab(__patsflab_neq_g1int_int): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12943(line=672, offs=30) -- 12954(line=672, offs=41) -*/ -ATSINSmove(tmp389, PMVtmpltcst(g1int2int)(arg1)) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12925(line=672, offs=12) -- 12956(line=672, offs=43) -*/ -ATSINSmove(tmpret388, PMVtmpltcst(g1int_neq)(arg0, tmp389)) ; - -ATSfunbody_end() -ATSreturn(tmpret388) ; -} /* end of [ATSLIB_056_prelude__neq_g1int_int__166] */ -#endif // end of [TEMPLATE] - -/* -/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 12916(line=672, offs=3) -- 12956(line=672, offs=43) -*/ -/* -local: -global: neq_g1int_int$166$1(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4712) -tmparg = S2Evar(tk(4712)) -tmpsub = Some(tk(4712) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__neq_g1int_int__166__1(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret388__1, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp389__1, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12900(line=671, offs=1) -- 12956(line=672, offs=43) -*/ -ATSINSflab(__patsflab_neq_g1int_int): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12943(line=672, offs=30) -- 12954(line=672, offs=41) -*/ -ATSINSmove(tmp389__1, atspre_g1int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12925(line=672, offs=12) -- 12956(line=672, offs=43) -*/ -ATSINSmove(tmpret388__1, atspre_g1int_neq_int(arg0, tmp389__1)) ; - -ATSfunbody_end() -ATSreturn(tmpret388__1) ; -} /* end of [ATSLIB_056_prelude__neq_g1int_int__166__1] */ - -/* -/home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 3085(line=121, offs=5) -- 3380(line=130, offs=6) -*/ -/* -local: witness_12$0(level=0), totient_161$0(level=0) -global: witness_12$0(level=0), sqrt_int_13$0(level=0), is_prime_16$0(level=0), totient_161$0(level=0), totient_sum_169$0(level=0) -local: -global: -*/ -ATSstatic() -atstkind_type(atstype_ptrk) -totient_sum_169(atstkind_t0ype(atstype_int) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret397, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 3085(line=121, offs=5) -- 3380(line=130, offs=6) -*/ -ATSINSflab(__patsflab_totient_sum_169): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 3125(line=122, offs=3) -- 3380(line=130, offs=6) -*/ -/* -letpush(beg) -*/ -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 3364(line=129, offs=5) -- 3374(line=129, offs=15) -*/ -ATSINSmove(tmpret397, loop_170(ATSPMVi0nt(1), arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 3125(line=122, offs=3) -- 3380(line=130, offs=6) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret397) ; -} /* end of [totient_sum_169] */ - -/* -/home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 3137(line=123, offs=9) -- 3354(line=127, offs=40) -*/ -/* -local: witness_12$0(level=0), totient_161$0(level=0), loop_170$0(level=1) -global: witness_12$0(level=0), totient_161$0(level=0), loop_170$0(level=1) -local: -global: -*/ -ATSstatic() -atstkind_type(atstype_ptrk) -loop_170(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(tmpret398, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp399, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp410, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp411, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp412, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp413, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp420, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp421, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -/* -emit_funent_fnxdeclst: -*/ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 3137(line=123, offs=9) -- 3354(line=127, offs=40) -*/ -ATSINSflab(__patsflab_loop_170): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 3240(line=124, offs=10) -- 3249(line=124, offs=19) -*/ -ATSINSmove(tmp399, ATSLIB_056_prelude__lt_g1int_int__18__2(arg0, arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 3237(line=124, offs=7) -- 3354(line=127, offs=40) -*/ -ATSif( -tmp399 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 3268(line=125, offs=14) -- 3273(line=125, offs=19) -*/ -ATSINSmove(tmp411, atspre_g1int_add_int(arg0, ATSPMVi0nt(1))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 3263(line=125, offs=9) -- 3281(line=125, offs=27) -*/ -ATSINSmove(tmp410, loop_170(tmp411, arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 3292(line=125, offs=38) -- 3301(line=125, offs=47) -*/ -ATSINSmove(tmp413, totient_161(arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 3284(line=125, offs=30) -- 3303(line=125, offs=49) -*/ -ATSINSmove(tmp412, witness_12(tmp413)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 3263(line=125, offs=9) -- 3303(line=125, offs=49) -*/ -ATSINSmove(tmpret398, ATSCNTRB_056_HX_056_intinf_t__add_intinf_int__42__1(tmp410, tmp412)) ; - -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 3323(line=127, offs=9) -- 3354(line=127, offs=40) -*/ -ATSINSmove(tmp421, totient_161(arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 3323(line=127, offs=9) -- 3354(line=127, offs=40) -*/ -ATSINSmove(tmp420, witness_12(tmp421)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory.dats: 3323(line=127, offs=9) -- 3354(line=127, offs=40) -*/ -ATSINSmove(tmpret398, ATSCNTRB_056_HX_056_intinf_t__intinf_make_int__27__1(tmp420)) ; - -} /* ATSendif */ -ATSfunbody_end() -ATSreturn(tmpret398) ; -/* -emit_funent_fnxbodylst: -*/ -} /* end of [loop_170] */ - -/* -/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 12520(line=650, offs=3) -- 12559(line=650, offs=42) -*/ -/* -local: -global: lt_g1int_int$18$2(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4697) -tmparg = S2Evar(tk(4697)) -tmpsub = Some(tk(4697) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__lt_g1int_int__18__2(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret24__2, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp25__2, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12505(line=649, offs=1) -- 12559(line=650, offs=42) -*/ -ATSINSflab(__patsflab_lt_g1int_int): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12546(line=650, offs=29) -- 12557(line=650, offs=40) -*/ -ATSINSmove(tmp25__2, atspre_g1int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12529(line=650, offs=12) -- 12559(line=650, offs=42) -*/ -ATSINSmove(tmpret24__2, atspre_g1int_lt_int(arg0, tmp25__2)) ; - -ATSfunbody_end() -ATSreturn(tmpret24__2) ; -} /* end of [ATSLIB_056_prelude__lt_g1int_int__18__2] */ - -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 4162(line=216, offs=3) -- 4320(line=230, offs=4) -*/ -/* -local: -global: add_intinf_int$42$1(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = -tmparg = -tmpsub = Some() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_t__add_intinf_int__42__1(atstkind_type(atstype_ptrk) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret65__1, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp66__1, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 4145(line=215, offs=1) -- 4320(line=230, offs=4) -*/ -ATSINSflab(__patsflab_add_intinf_int): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 4171(line=216, offs=12) -- 4320(line=230, offs=4) -*/ -/* -letpush(beg) -*/ -/* (*nothing*) */ -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 4232(line=224, offs=3) -- 4258(line=224, offs=29) -*/ -ATSINSmove(tmp66__1, ATSCNTRB_056_HX_056_intinf_vt__add_intinf1_int__81__1(ATSPMVrefarg0(ATSPMVcastfn(intinf_takeout, atstkind_type(atstype_ptrk), arg0)), arg1)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 4300(line=229, offs=3) -- 4315(line=229, offs=18) -*/ -ATSINSmove(tmpret65__1, ATSPMVcastfn(intinf_vt2t, atstkind_type(atstype_ptrk), tmp66__1)) ; -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 4171(line=216, offs=12) -- 4320(line=230, offs=4) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret65__1) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_t__add_intinf_int__42__1] */ - -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5288(line=284, offs=3) -- 5418(line=291, offs=2) -*/ -/* -local: -global: add_intinf1_int$81$1(level=3) -local: -global: -*/ -ATSstatic() -/* -imparg = -tmparg = -tmpsub = Some() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__add_intinf1_int__81__1(atsrefarg0_type(atstkind_type(atstype_ptrk)) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret142__1, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp143__1, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp144__1) ; -// ATStmpdec_void(tmp145__1) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5270(line=283, offs=1) -- 5418(line=291, offs=2) -*/ -ATSINSflab(__patsflab_add_intinf1_int): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5297(line=284, offs=12) -- 5418(line=291, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5320(line=287, offs=9) -- 5336(line=287, offs=25) -*/ -ATSINSmove(tmp143__1, ATSLIB_056_prelude__ptr_alloc__174__1()) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5346(line=288, offs=10) -- 5367(line=288, offs=31) -*/ -ATSINSmove_void(tmp144__1, atscntrb_gmp_mpz_init(ATSPMVrefarg1(ATSSELrecsin(tmp143__1, atstkind_type(atstype_ptrk), atslab__2)))) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5377(line=289, offs=10) -- 5413(line=289, offs=46) -*/ -ATSINSmove_void(tmp145__1, atscntrb_gmp_mpz_add3_int(ATSPMVrefarg1(ATSSELrecsin(tmp143__1, atstkind_type(atstype_ptrk), atslab__2)), ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), arg1)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5298(line=284, offs=13) -- 5299(line=284, offs=14) -*/ -ATSINSmove(tmpret142__1, tmp143__1) ; -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5297(line=284, offs=12) -- 5418(line=291, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret142__1) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__add_intinf1_int__81__1] */ - -#if(0) -/* -/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42) -*/ -/* -local: -global: ptr_alloc$174$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = a(4806) -tmparg = S2Evar(a(4806)) -tmpsub = None() -*/ -atstkind_type(atstype_ptrk) -ATSLIB_056_prelude__ptr_alloc__174() -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret408, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3708(line=184, offs=1) -- 3749(line=184, offs=42) -*/ -ATSINSflab(__patsflab_ptr_alloc): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42) -*/ -ATSINSmove(tmpret408, atspre_ptr_alloc_tsz(ATSPMVsizeof(atstyvar_type(a)))) ; - -ATSfunbody_end() -ATSreturn(tmpret408) ; -} /* end of [ATSLIB_056_prelude__ptr_alloc__174] */ -#endif // end of [TEMPLATE] - -/* -/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42) -*/ -/* -local: -global: ptr_alloc$174$1(level=4) -local: -global: -*/ -ATSstatic() -/* -imparg = a(4806) -tmparg = S2Evar(a(4806)) -tmpsub = Some(a(4806) -> S2Ecst(mpz_vt0ype)) -*/ -atstkind_type(atstype_ptrk) -ATSLIB_056_prelude__ptr_alloc__174__1() -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret408__1, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3708(line=184, offs=1) -- 3749(line=184, offs=42) -*/ -ATSINSflab(__patsflab_ptr_alloc): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42) -*/ -ATSINSmove(tmpret408__1, atspre_ptr_alloc_tsz(ATSPMVsizeof(atscntrb_gmp_mpz))) ; - -ATSfunbody_end() -ATSreturn(tmpret408__1) ; -} /* end of [ATSLIB_056_prelude__ptr_alloc__174__1] */ - -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 1973(line=57, offs=3) -- 2035(line=58, offs=38) -*/ -/* -local: -global: intinf_make_int$27$1(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = -tmparg = -tmpsub = Some() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_t__intinf_make_int__27__1(atstkind_t0ype(atstype_int) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret43__1, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp44__1, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 1955(line=56, offs=1) -- 2035(line=58, offs=38) -*/ -ATSINSflab(__patsflab_intinf_make_int): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 2012(line=58, offs=15) -- 2033(line=58, offs=36) -*/ -ATSINSmove(tmp44__1, ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__59__1(arg0)) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 2000(line=58, offs=3) -- 2035(line=58, offs=38) -*/ -ATSINSmove(tmpret43__1, ATSPMVcastfn(intinf_vt2t, atstkind_type(atstype_ptrk), tmp44__1)) ; -ATSfunbody_end() -ATSreturn(tmpret43__1) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_t__intinf_make_int__27__1] */ - -/* -/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2209(line=74, offs=3) -- 2301(line=80, offs=2) -*/ -/* -local: -global: intinf_make_int$59$1(level=3) -local: -global: -*/ -ATSstatic() -/* -imparg = -tmparg = -tmpsub = Some() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__59__1(atstkind_t0ype(atstype_int) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret95__1, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp96__1, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp97__1) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2191(line=73, offs=1) -- 2301(line=80, offs=2) -*/ -ATSINSflab(__patsflab_intinf_make_int): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2238(line=77, offs=9) -- 2254(line=77, offs=25) -*/ -ATSINSmove(tmp96__1, ATSLIB_056_prelude__ptr_alloc__174__2()) ; - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2264(line=78, offs=10) -- 2296(line=78, offs=42) -*/ -ATSINSmove_void(tmp97__1, atscntrb_gmp_mpz_init_set_int(ATSPMVrefarg1(ATSSELrecsin(tmp96__1, atstkind_type(atstype_ptrk), atslab__2)), arg0)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2216(line=74, offs=10) -- 2217(line=74, offs=11) -*/ -ATSINSmove(tmpret95__1, tmp96__1) ; -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret95__1) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__59__1] */ - -/* -/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42) -*/ -/* -local: -global: ptr_alloc$174$2(level=4) -local: -global: -*/ -ATSstatic() -/* -imparg = a(4806) -tmparg = S2Evar(a(4806)) -tmpsub = Some(a(4806) -> S2Ecst(mpz_vt0ype)) -*/ -atstkind_type(atstype_ptrk) -ATSLIB_056_prelude__ptr_alloc__174__2() -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret408__2, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3708(line=184, offs=1) -- 3749(line=184, offs=42) -*/ -ATSINSflab(__patsflab_ptr_alloc): -/* -emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42) -*/ -ATSINSmove(tmpret408__2, atspre_ptr_alloc_tsz(ATSPMVsizeof(atscntrb_gmp_mpz))) ; - -ATSfunbody_end() -ATSreturn(tmpret408__2) ; -} /* end of [ATSLIB_056_prelude__ptr_alloc__174__2] */ - -/* -/home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory-ffi.dats: 482(line=26, offs=19) -- 502(line=27, offs=12) -*/ -/* -local: gcd_132$0(level=0) -global: witness_12$0(level=0), gcd_132$0(level=0), gcd_ats$179$0(level=0) -local: -global: -*/ -ATSextern() -atstkind_t0ype(atstype_int) -gcd_ats(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret422, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory-ffi.dats: 474(line=26, offs=11) -- 502(line=27, offs=12) -*/ -ATSINSflab(__patsflab_gcd_ats): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory-ffi.dats: 493(line=27, offs=3) -- 502(line=27, offs=12) -*/ -ATSINSmove(tmpret422, gcd_132(arg0, arg1)) ; - -ATSfunbody_end() -ATSreturn(tmpret422) ; -} /* end of [gcd_ats] */ - -/* -/home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory-ffi.dats: 533(line=29, offs=30) -- 557(line=30, offs=19) -*/ -/* -local: count_divisors_146$0(level=0) -global: count_divisors_146$0(level=0), count_divisors_ats$180$0(level=0) -local: -global: -*/ -ATSextern() -atstkind_t0ype(atstype_int) -count_divisors_ats(atstkind_t0ype(atstype_int) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret423, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory-ffi.dats: 514(line=29, offs=11) -- 558(line=30, offs=20) -*/ -ATSINSflab(__patsflab_count_divisors_ats): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory-ffi.dats: 541(line=30, offs=3) -- 557(line=30, offs=19) -*/ -ATSINSmove(tmpret423, count_divisors_146(arg0)) ; - -ATSfunbody_end() -ATSreturn(tmpret423) ; -} /* end of [count_divisors_ats] */ - -/* -/home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory-ffi.dats: 582(line=32, offs=23) -- 599(line=33, offs=12) -*/ -/* -local: totient_161$0(level=0) -global: witness_12$0(level=0), sqrt_int_13$0(level=0), is_prime_16$0(level=0), totient_161$0(level=0), totient_ats$181$0(level=0) -local: -global: -*/ -ATSextern() -atstkind_t0ype(atstype_int) -totient_ats(atstkind_t0ype(atstype_int) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret424, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory-ffi.dats: 570(line=32, offs=11) -- 600(line=33, offs=13) -*/ -ATSINSflab(__patsflab_totient_ats): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory-ffi.dats: 590(line=33, offs=3) -- 599(line=33, offs=12) -*/ -ATSINSmove(tmpret424, totient_161(arg0)) ; - -ATSfunbody_end() -ATSreturn(tmpret424) ; -} /* end of [totient_ats] */ - -/* -/home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory-ffi.dats: 629(line=35, offs=28) -- 651(line=36, offs=17) -*/ -/* -local: little_omega_157$0(level=0) -global: witness_12$0(level=0), sqrt_int_13$0(level=0), is_prime_16$0(level=0), little_omega_157$0(level=0), little_omega_ats$182$0(level=0) -local: -global: -*/ -ATSextern() -atstkind_t0ype(atstype_int) -little_omega_ats(atstkind_t0ype(atstype_int) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret425, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory-ffi.dats: 612(line=35, offs=11) -- 652(line=36, offs=18) -*/ -ATSINSflab(__patsflab_little_omega_ats): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory-ffi.dats: 637(line=36, offs=3) -- 651(line=36, offs=17) -*/ -ATSINSmove(tmpret425, little_omega_157(arg0)) ; - -ATSfunbody_end() -ATSreturn(tmpret425) ; -} /* end of [little_omega_ats] */ - -/* -/home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory-ffi.dats: 679(line=38, offs=26) -- 699(line=39, offs=15) -*/ -/* -local: is_perfect_155$0(level=0) -global: sum_divisors_151$0(level=0), is_perfect_155$0(level=0), is_perfect_ats$183$0(level=0) -local: -global: -*/ -ATSextern() -atstkind_t0ype(atstype_bool) -is_perfect_ats(atstkind_t0ype(atstype_int) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret426, atstkind_t0ype(atstype_bool)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory-ffi.dats: 664(line=38, offs=11) -- 700(line=39, offs=16) -*/ -ATSINSflab(__patsflab_is_perfect_ats): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/number-theory-ffi.dats: 687(line=39, offs=3) -- 699(line=39, offs=15) -*/ -ATSINSmove(tmpret426, is_perfect_155(arg0)) ; - -ATSfunbody_end() -ATSreturn(tmpret426) ; -} /* end of [is_perfect_ats] */ - -/* -** for initialization(dynloading) -*/ -ATSdynloadflag_minit(_057_home_057_vanessa_057_programming_057_haskell_057_current_057_fast_055_combinatorics_057_ats_055_src_057_number_055_theory_055_ffi_056_dats__dynloadflag) ; -ATSextern() -atsvoid_t0ype -_057_home_057_vanessa_057_programming_057_haskell_057_current_057_fast_055_combinatorics_057_ats_055_src_057_number_055_theory_055_ffi_056_dats__dynload() -{ -ATSfunbody_beg() -ATSdynload(/*void*/) -ATSdynloadflag_sta( -_057_home_057_vanessa_057_programming_057_haskell_057_current_057_fast_055_combinatorics_057_ats_055_src_057_number_055_theory_055_ffi_056_dats__dynloadflag -) ; -ATSif( -ATSCKiseqz( -_057_home_057_vanessa_057_programming_057_haskell_057_current_057_fast_055_combinatorics_057_ats_055_src_057_number_055_theory_055_ffi_056_dats__dynloadflag -) -) ATSthen() { -ATSdynloadset(_057_home_057_vanessa_057_programming_057_haskell_057_current_057_fast_055_combinatorics_057_ats_055_src_057_number_055_theory_055_ffi_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] */ +** The starting compilation time is: 2018-1-6: 1h:14m +** +*/ + +/* +** include runtime header files +*/ +#ifndef _ATS_CCOMP_HEADER_NONE_ +#include "pats_ccomp_config.h" +#include "pats_ccomp_basics.h" +#include "pats_ccomp_typedefs.h" +#include "pats_ccomp_instrset.h" +#include "pats_ccomp_memalloc.h" +#ifndef _ATS_CCOMP_EXCEPTION_NONE_ +#include "pats_ccomp_memalloca.h" +#include "pats_ccomp_exception.h" +#endif // end of [_ATS_CCOMP_EXCEPTION_NONE_] +#endif /* _ATS_CCOMP_HEADER_NONE_ */ + + +/* +** include prelude cats files +*/ +#ifndef _ATS_CCOMP_PRELUDE_NONE_ +// +#include "prelude/CATS/basics.cats" +#include "prelude/CATS/integer.cats" +#include "prelude/CATS/pointer.cats" +#include "prelude/CATS/integer_long.cats" +#include "prelude/CATS/integer_size.cats" +#include "prelude/CATS/integer_short.cats" +#include "prelude/CATS/bool.cats" +#include "prelude/CATS/char.cats" +#include "prelude/CATS/float.cats" +#include "prelude/CATS/integer_ptr.cats" +#include "prelude/CATS/integer_fixed.cats" +#include "prelude/CATS/memory.cats" +#include "prelude/CATS/string.cats" +#include "prelude/CATS/strptr.cats" +// +#include "prelude/CATS/fprintf.cats" +// +#include "prelude/CATS/filebas.cats" +// +#include "prelude/CATS/list.cats" +#include "prelude/CATS/option.cats" +#include "prelude/CATS/array.cats" +#include "prelude/CATS/arrayptr.cats" +#include "prelude/CATS/arrayref.cats" +#include "prelude/CATS/matrix.cats" +#include "prelude/CATS/matrixptr.cats" +// +#endif /* _ATS_CCOMP_PRELUDE_NONE_ */ +/* +** for user-supplied prelude +*/ +#ifdef _ATS_CCOMP_PRELUDE_USER_ +// +#include _ATS_CCOMP_PRELUDE_USER_ +// +#endif /* _ATS_CCOMP_PRELUDE_USER_ */ +/* +** for user2-supplied prelude +*/ +#ifdef _ATS_CCOMP_PRELUDE_USER2_ +// +#include _ATS_CCOMP_PRELUDE_USER2_ +// +#endif /* _ATS_CCOMP_PRELUDE_USER2_ */ + +/* +staload-prologues(beg) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/basics.dats: 1636(line=50, offs=1) -- 1675(line=50, offs=40) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 1596(line=49, offs=1) -- 1635(line=49, offs=40) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/pointer.dats: 1533(line=44, offs=1) -- 1572(line=44, offs=40) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer_long.dats: 1602(line=49, offs=1) -- 1641(line=49, offs=40) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer_size.dats: 1597(line=49, offs=1) -- 1636(line=49, offs=40) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer_short.dats: 1603(line=49, offs=1) -- 1642(line=49, offs=40) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/char.dats: 1610(line=48, offs=1) -- 1649(line=48, offs=40) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/float.dats: 1636(line=50, offs=1) -- 1675(line=50, offs=40) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/string.dats: 1631(line=50, offs=1) -- 1670(line=50, offs=40) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/strptr.dats: 1629(line=50, offs=1) -- 1668(line=50, offs=40) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/strptr.dats: 1691(line=54, offs=1) -- 1738(line=54, offs=48) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 1596(line=49, offs=1) -- 1635(line=49, offs=40) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer_ptr.dats: 1601(line=49, offs=1) -- 1640(line=49, offs=40) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer_fixed.dats: 1603(line=49, offs=1) -- 1642(line=49, offs=40) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/memory.dats: 1410(line=38, offs=1) -- 1449(line=39, offs=32) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/filebas.dats: 1613(line=49, offs=1) -- 1652(line=50, offs=32) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/filebas.dats: 1675(line=54, offs=1) -- 1721(line=55, offs=39) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 1596(line=49, offs=1) -- 1635(line=49, offs=40) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/filebas.dats: 1744(line=59, offs=1) -- 1789(line=60, offs=38) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/libats/libc/SATS/stdio.sats: 1390(line=36, offs=1) -- 1437(line=39, offs=3) +*/ + +#include \ +"libats/libc/CATS/stdio.cats" +/* +/usr/local/lib/ats2-postiats-0.3.8/libats/libc/SATS/stdio.sats: 1950(line=69, offs=1) -- 1999(line=71, offs=34) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/libats/libc/SATS/sys/types.sats: 1390(line=36, offs=1) -- 1441(line=39, offs=3) +*/ + +#include \ +"libats/libc/CATS/sys/types.cats" +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/filebas.dats: 1871(line=66, offs=1) -- 1918(line=66, offs=48) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/libats/libc/SATS/sys/stat.sats: 1390(line=36, offs=1) -- 1440(line=39, offs=3) +*/ + +#include \ +"libats/libc/CATS/sys/stat.cats" +/* +/usr/local/lib/ats2-postiats-0.3.8/libats/libc/SATS/sys/stat.sats: 1756(line=58, offs=1) -- 1805(line=60, offs=34) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/libats/libc/SATS/sys/types.sats: 1390(line=36, offs=1) -- 1441(line=39, offs=3) +*/ + +#include \ +"libats/libc/CATS/sys/types.cats" +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/filebas.dats: 15552(line=879, offs=1) -- 15589(line=880, offs=30) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/libats/libc/SATS/stdio.sats: 1390(line=36, offs=1) -- 1437(line=39, offs=3) +*/ + +#include \ +"libats/libc/CATS/stdio.cats" +/* +/usr/local/lib/ats2-postiats-0.3.8/libats/libc/SATS/stdio.sats: 1950(line=69, offs=1) -- 1999(line=71, offs=34) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/libats/libc/SATS/sys/types.sats: 1390(line=36, offs=1) -- 1441(line=39, offs=3) +*/ + +#include \ +"libats/libc/CATS/sys/types.cats" +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/list.dats: 1529(line=44, offs=1) -- 1568(line=45, offs=32) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/list.dats: 1569(line=46, offs=1) -- 1615(line=47, offs=39) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/unsafe.dats: 1532(line=44, offs=1) -- 1566(line=44, offs=35) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/list_vt.dats: 1538(line=44, offs=1) -- 1577(line=45, offs=32) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/list_vt.dats: 1578(line=46, offs=1) -- 1624(line=47, offs=39) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/unsafe.dats: 1532(line=44, offs=1) -- 1566(line=44, offs=35) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/SHARE/list_vt_mergesort.dats: 1546(line=44, offs=1) -- 1585(line=44, offs=40) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/SHARE/list_vt_quicksort.dats: 1546(line=44, offs=1) -- 1585(line=44, offs=40) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/array.dats: 1534(line=44, offs=1) -- 1573(line=44, offs=40) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/array.dats: 1574(line=45, offs=1) -- 1616(line=45, offs=43) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/SHARE/array_bsearch.dats: 1531(line=44, offs=1) -- 1570(line=44, offs=40) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/SHARE/array_quicksort.dats: 1531(line=44, offs=1) -- 1570(line=44, offs=40) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/arrayptr.dats: 1532(line=44, offs=1) -- 1571(line=44, offs=40) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/arrayref.dats: 1532(line=44, offs=1) -- 1571(line=44, offs=40) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/matrix.dats: 1535(line=44, offs=1) -- 1574(line=44, offs=40) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/matrixptr.dats: 1538(line=44, offs=1) -- 1577(line=44, offs=40) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/matrixref.dats: 1538(line=44, offs=1) -- 1577(line=44, offs=40) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/stream.dats: 1523(line=44, offs=1) -- 1562(line=44, offs=40) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/stream_vt.dats: 1523(line=44, offs=1) -- 1562(line=44, offs=40) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/tostring.dats: 1528(line=44, offs=1) -- 1567(line=45, offs=32) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/unsafe.dats: 1532(line=44, offs=1) -- 1566(line=44, offs=35) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/checkast.dats: 1531(line=44, offs=1) -- 1570(line=45, offs=32) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/libats/libc/SATS/math.sats: 1380(line=35, offs=1) -- 1426(line=38, offs=3) +*/ + +#include \ +"libats/libc/CATS/math.cats" +/* +/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/SATS/intinf_t.sats: 1805(line=48, offs=1) -- 1828(line=48, offs=24) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/SATS/intinf_vt.sats: 1806(line=48, offs=1) -- 1829(line=48, offs=24) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 1660(line=37, offs=1) -- 1700(line=38, offs=27) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 1727(line=42, offs=1) -- 1759(line=42, offs=33) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 1833(line=49, offs=1) -- 1867(line=49, offs=35) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/SATS/intinf_t.sats: 1805(line=48, offs=1) -- 1828(line=48, offs=24) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 1868(line=50, offs=1) -- 1908(line=50, offs=41) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/SATS/intinf_vt.sats: 1806(line=48, offs=1) -- 1829(line=48, offs=24) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 1656(line=37, offs=1) -- 1696(line=39, offs=27) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/mydepies.hats: 192(line=16, offs=1) -- 232(line=16, offs=41) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-libgmp/SATS/gmp.sats: 1178(line=38, offs=1) -- 1233(line=43, offs=3) +*/ + +// +#include \ +"atscntrb-libgmp/CATS/gmp.cats" +// +/* +/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 1813(line=49, offs=1) -- 1845(line=49, offs=33) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 1846(line=50, offs=1) -- 1881(line=50, offs=36) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/SATS/intinf_vt.sats: 1806(line=48, offs=1) -- 1829(line=48, offs=24) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/gintinf_t.dats: 1657(line=37, offs=1) -- 1689(line=37, offs=33) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/gintinf_t.dats: 1690(line=38, offs=1) -- 1724(line=38, offs=35) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/SATS/intinf_t.sats: 1805(line=48, offs=1) -- 1828(line=48, offs=24) +*/ +/* +/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/SATS/intinf_vt.sats: 1806(line=48, offs=1) -- 1829(line=48, offs=24) +*/ +/* +staload-prologues(end) +*/ +/* +typedefs-for-tyrecs-and-tysums(beg) +*/ +typedef +ATSstruct { +#if(0) +int contag ; +#endif +atstkind_t0ype(atstype_int) atslab__0 ; +atstkind_type(atstype_ptrk) atslab__1 ; +} postiats_tysum_0 ; +/* +typedefs-for-tyrecs-and-tysums(end) +*/ +/* +dynconlst-declaration(beg) +*/ +/* +dynconlst-declaration(end) +*/ +/* +dyncstlst-declaration(beg) +*/ +ATSdyncst_mac(atspre_g1int2int_int_int) +ATSdyncst_mac(atspre_g1int_gt_int) +ATSdyncst_mac(atspre_g1int_half_int) +ATSdyncst_mac(atspre_g0int_mod_int) +ATSdyncst_mac(atspre_g0int2int_int_int) +ATSdyncst_mac(atspre_g0int_eq_int) +ATSdyncst_mac(atspre_g0int_mul_int) +ATSdyncst_mac(atspre_g0float2int_float_int) +ATSdyncst_mac(atslib_libats_libc_sqrt_float) +ATSdyncst_mac(atspre_g0int2float_int_float) +ATSdyncst_mac(atspre_g1int_lt_int) +ATSdyncst_mac(atspre_g1int_add_int) +ATSdyncst_mac(atspre_g1int_eq_int) +ATSdyncst_mac(atspre_g0int_div_int) +ATSdyncst_mac(atspre_g1int_gte_int) +ATSdyncst_mac(atspre_g0int_add_int) +ATSdyncst_mac(atspre_g1int_sub_int) +ATSdyncst_mac(atspre_g1int_neq_int) +ATSdyncst_mac(atscntrb_gmp_mpz_add2_int) +ATSdyncst_mac(atscntrb_gmp_mpz_init_set_int) +ATSdyncst_mac(atspre_ptr_alloc_tsz) +/* +dyncstlst-declaration(end) +*/ +/* +dynvalist-implementation(beg) +*/ +/* +dynvalist-implementation(end) +*/ +/* +exnconlst-declaration(beg) +*/ +#ifndef _ATS_CCOMP_EXCEPTION_NONE_ +ATSextern() +atsvoid_t0ype +the_atsexncon_initize +( + atstype_exnconptr d2c, atstype_string exnmsg +) ; +#endif // end of [_ATS_CCOMP_EXCEPTION_NONE_] +/* +exnconlst-declaration(end) +*/ +/* +extypelst-declaration(beg) +*/ +/* +extypelst-declaration(end) +*/ +/* +assumelst-declaration(beg) +*/ +#ifndef _ATS_CCOMP_ASSUME_CHECK_NONE_ +#endif // #ifndef(_ATS_CCOMP_ASSUME_CHECK_NONE_) +/* +assumelst-declaration(end) +*/ +ATSstatic() +atstkind_t0ype(atstype_int) +exp_0(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +#if(0) +#if(0) +ATSextern() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__gt_g1int_int__1(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__1__1(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +#if(0) +#if(0) +ATSextern() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__7(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__7__1(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_int) +witness_12(atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_int) +sqrt_int_13(atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_bool) +is_prime_16(atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_bool) +loop_17(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__18(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__18__1(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__7__2(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +#if(0) +#if(0) +ATSextern() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g1int_int__23(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__23__1(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__7__3(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_bool) +divides_27(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__7__4(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_int) +gcd_29(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__gt_g1int_int__1__2(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_int) +lcm_31(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_type(atstype_ptrk) +divisors_33(atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_type(atstype_ptrk) +loop_34(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +#if(0) +#if(0) +ATSextern() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__gte_g1int_int__35(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__35__1(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstype_boxed +__patsfun_38(atstkind_t0ype(atstype_int), atstype_bool) ; + +ATSstatic() +atstype_boxed +__patsfun_39(atstype_bool) ; + +ATSstatic() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__7__5(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstype_boxed +__patsfun_41(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int), atstype_bool) ; + +ATSstatic() +atstype_boxed +__patsfun_42(atstype_bool) ; + +ATSstatic() +atstkind_t0ype(atstype_int) +count_divisors_43(atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_int) +loop_44(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__gte_g1int_int__35__2(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__7__6(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_int) +sum_divisors_48(atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_int) +loop_49(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__gte_g1int_int__35__3(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__7__7(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_bool) +is_perfect_52(atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__7__8(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_int) +little_omega_54(atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_int) +loop_55(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__gte_g1int_int__35__4(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__7__9(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_int) +totient_58(atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_int) +loop_59(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__gte_g1int_int__35__5(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__7__10(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +#if(0) +#if(0) +ATSextern() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__neq_g1int_int__63(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__63__1(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_type(atstype_ptrk) +totient_sum_66(atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_type(atstype_ptrk) +loop_67(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__lt_g1int_int__18__2(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +#if(0) +#if(0) +ATSextern() +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__add_intinf0_int__69(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__69__1(atstkind_type(atstype_ptrk), atstkind_t0ype(atstype_int)) ; + +#if(0) +#if(0) +ATSextern() +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__71(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__71__1(atstkind_t0ype(atstype_int)) ; + +#if(0) +#if(0) +ATSextern() +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__73() ; +#endif // end of [QUALIFIED] +#endif // end of [TEMPLATE] + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__73__1() ; + +#if(0) +ATSextern() +atstkind_t0ype(atstype_int) +gcd_ats(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; +#endif // end of [QUALIFIED] + +#if(0) +ATSextern() +atstkind_t0ype(atstype_int) +count_divisors_ats(atstkind_t0ype(atstype_int)) ; +#endif // end of [QUALIFIED] + +#if(0) +ATSextern() +atstkind_t0ype(atstype_int) +totient_ats(atstkind_t0ype(atstype_int)) ; +#endif // end of [QUALIFIED] + +#if(0) +ATSextern() +atstkind_t0ype(atstype_int) +little_omega_ats(atstkind_t0ype(atstype_int)) ; +#endif // end of [QUALIFIED] + +#if(0) +ATSextern() +atstkind_t0ype(atstype_bool) +is_perfect_ats(atstkind_t0ype(atstype_int)) ; +#endif // end of [QUALIFIED] + +ATSclosurerize_beg(__patsfun_38, (atstkind_t0ype(atstype_int)), (atstype_bool), atstype_boxed) +typedef +ATSstruct { +atstype_funptr cfun ; +atstkind_t0ype(atstype_int) env0 ; +} __patsfun_38__closure_t0ype ; +ATSstatic() +atstype_boxed +__patsfun_38__cfun +( +__patsfun_38__closure_t0ype *p_cenv, atstype_bool arg0 +) +{ +ATSFCreturn(__patsfun_38(p_cenv->env0, arg0)) ; +} /* end of [cfun] */ +ATSstatic() +atstype_cloptr +__patsfun_38__closureinit +( +__patsfun_38__closure_t0ype *p_cenv, atstkind_t0ype(atstype_int) env0 +) +{ +p_cenv->env0 = env0 ; +p_cenv->cfun = __patsfun_38__cfun ; +return p_cenv ; +} /* end of [closureinit] */ +ATSstatic() +atstype_cloptr +__patsfun_38__closurerize +( +atstkind_t0ype(atstype_int) env0 +) +{ +return __patsfun_38__closureinit(ATS_MALLOC(sizeof(__patsfun_38__closure_t0ype)), env0) ; +} /* end of [closurerize] */ +ATSclosurerize_end() +ATSclosurerize_beg(__patsfun_39, (), (atstype_bool), atstype_boxed) +typedef +ATSstruct { +atstype_funptr cfun ; +} __patsfun_39__closure_t0ype ; +ATSstatic() +atstype_boxed +__patsfun_39__cfun +( +__patsfun_39__closure_t0ype *p_cenv, atstype_bool arg0 +) +{ +ATSFCreturn(__patsfun_39(arg0)) ; +} /* end of [cfun] */ +ATSstatic() +atstype_cloptr +__patsfun_39__closureinit +( +__patsfun_39__closure_t0ype *p_cenv +) +{ +p_cenv->cfun = __patsfun_39__cfun ; +return p_cenv ; +} /* end of [closureinit] */ +ATSstatic() +atstype_cloptr +__patsfun_39__closurerize +( +// argumentless +) +{ +return __patsfun_39__closureinit(ATS_MALLOC(sizeof(__patsfun_39__closure_t0ype))) ; +} /* end of [closurerize] */ +ATSclosurerize_end() +ATSclosurerize_beg(__patsfun_41, (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_41__closure_t0ype ; +ATSstatic() +atstype_boxed +__patsfun_41__cfun +( +__patsfun_41__closure_t0ype *p_cenv, atstype_bool arg0 +) +{ +ATSFCreturn(__patsfun_41(p_cenv->env0, p_cenv->env1, arg0)) ; +} /* end of [cfun] */ +ATSstatic() +atstype_cloptr +__patsfun_41__closureinit +( +__patsfun_41__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_41__cfun ; +return p_cenv ; +} /* end of [closureinit] */ +ATSstatic() +atstype_cloptr +__patsfun_41__closurerize +( +atstkind_t0ype(atstype_int) env0, atstkind_t0ype(atstype_int) env1 +) +{ +return __patsfun_41__closureinit(ATS_MALLOC(sizeof(__patsfun_41__closure_t0ype)), env0, env1) ; +} /* end of [closurerize] */ +ATSclosurerize_end() +ATSclosurerize_beg(__patsfun_42, (), (atstype_bool), atstype_boxed) +typedef +ATSstruct { +atstype_funptr cfun ; +} __patsfun_42__closure_t0ype ; +ATSstatic() +atstype_boxed +__patsfun_42__cfun +( +__patsfun_42__closure_t0ype *p_cenv, atstype_bool arg0 +) +{ +ATSFCreturn(__patsfun_42(arg0)) ; +} /* end of [cfun] */ +ATSstatic() +atstype_cloptr +__patsfun_42__closureinit +( +__patsfun_42__closure_t0ype *p_cenv +) +{ +p_cenv->cfun = __patsfun_42__cfun ; +return p_cenv ; +} /* end of [closureinit] */ +ATSstatic() +atstype_cloptr +__patsfun_42__closurerize +( +// argumentless +) +{ +return __patsfun_42__closureinit(ATS_MALLOC(sizeof(__patsfun_42__closure_t0ype))) ; +} /* end of [closurerize] */ +ATSclosurerize_end() +/* +/home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 220(line=9, offs=5) -- 581(line=26, offs=10) +*/ +/* +local: exp_0$0(level=0) +global: exp_0$0(level=0) +local: +global: +*/ +ATSstatic() +atstkind_t0ype(atstype_int) +exp_0(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(tmpret0, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp1, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmpref6, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmpref7, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp8, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp13, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp14, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp15, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 220(line=9, offs=5) -- 581(line=26, offs=10) +*/ +ATSINSflab(__patsflab_exp_0): +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 274(line=10, offs=3) -- 581(line=26, offs=10) +*/ +ATScaseof_beg() +/* +** ibranchlst-beg +*/ +ATSbranch_beg() +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 291(line=11, offs=7) -- 292(line=11, offs=8) +*/ +ATSINSlab(__atstmplab0): +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 241(line=9, offs=26) -- 242(line=9, offs=27) +*/ +ATSifnthen(ATSCKpat_int(arg0, ATSPMVint(0))) { ATSINSgoto(__atstmplab2) ; } ; +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 292(line=11, offs=8) -- 292(line=11, offs=8) +*/ +ATSINSlab(__atstmplab1): +/* +emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) +*/ +/* +ibranch-mbody: +*/ +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 296(line=11, offs=12) -- 297(line=11, offs=13) +*/ +ATSINSmove(tmpret0, ATSPMVi0nt(0)) ; +ATSbranch_end() + +ATSbranch_beg() +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 305(line=12, offs=8) -- 305(line=12, offs=8) +*/ +ATSINSlab(__atstmplab2): +/* +emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) +*/ +/* +ibranch-mbody: +*/ +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 333(line=14, offs=12) -- 338(line=14, offs=17) +*/ +ATSINSmove(tmp1, ATSLIB_056_prelude__gt_g1int_int__1__1(arg1, ATSPMVi0nt(0))) ; + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 330(line=14, offs=9) -- 571(line=25, offs=12) +*/ +ATSif( +tmp1 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 354(line=15, offs=11) -- 546(line=23, offs=14) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 374(line=16, offs=17) -- 376(line=16, offs=19) +*/ +/* +ATSINStmpdec(tmpref6) ; +*/ +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 379(line=16, offs=22) -- 385(line=16, offs=28) +*/ +ATSINSmove(tmpref6, atspre_g1int_half_int(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 403(line=17, offs=17) -- 405(line=17, offs=19) +*/ +/* +ATSINStmpdec(tmpref7) ; +*/ +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 408(line=17, offs=22) -- 413(line=17, offs=27) +*/ +ATSINSmove(tmpref7, atspre_g0int_mod_int(arg1, ATSPMVi0nt(2))) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 442(line=19, offs=16) -- 448(line=19, offs=22) +*/ +ATSINSmove(tmp8, ATSLIB_056_prelude__eq_g0int_int__7__1(tmpref7, ATSPMVi0nt(0))) ; + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 439(line=19, offs=13) -- 532(line=22, offs=33) +*/ +ATSif( +tmp8 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 472(line=20, offs=19) -- 477(line=20, offs=24) +*/ +ATSINSmove(tmp13, atspre_g0int_mul_int(arg0, arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 468(line=20, offs=15) -- 482(line=20, offs=29) +*/ +ATStailcal_beg() +ATSINSmove_tlcal(apy0, tmp13) ; +ATSINSmove_tlcal(apy1, tmpref6) ; +ATSINSargmove_tlcal(arg0, apy0) ; +ATSINSargmove_tlcal(arg1, apy1) ; +ATSINSfgoto(__patsflab_exp_0) ; +ATStailcal_end() + +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 522(line=22, offs=23) -- 527(line=22, offs=28) +*/ +ATSINSmove(tmp15, atspre_g0int_mul_int(arg0, arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 518(line=22, offs=19) -- 532(line=22, offs=33) +*/ +ATSINSmove(tmp14, exp_0(tmp15, tmpref6)) ; + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 514(line=22, offs=15) -- 532(line=22, offs=33) +*/ +ATSINSmove(tmpret0, atspre_g0int_mul_int(arg0, tmp14)) ; + +} /* ATSendif */ +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 354(line=15, offs=11) -- 546(line=23, offs=14) +*/ +/* +INSletpop() +*/ +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 570(line=25, offs=11) -- 571(line=25, offs=12) +*/ +ATSINSmove(tmpret0, ATSPMVi0nt(1)) ; +} /* ATSendif */ +ATSbranch_end() + +/* +** ibranchlst-end +*/ +ATScaseof_end() + +ATSfunbody_end() +ATSreturn(tmpret0) ; +} /* end of [exp_0] */ + +#if(0) +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 12679(line=659, offs=3) -- 12718(line=659, offs=42) +*/ +/* +local: +global: gt_g1int_int$1$0(level=0) +local: +global: +*/ +ATSextern() +/* +imparg = tk(4703) +tmparg = S2Evar(tk(4703)) +tmpsub = None() +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__gt_g1int_int__1(atstkind_t0ype(atstyvar_type(tk)) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret2, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp3, atstkind_t0ype(atstyvar_type(tk))) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12664(line=658, offs=1) -- 12718(line=659, offs=42) +*/ +ATSINSflab(__patsflab_gt_g1int_int): +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12705(line=659, offs=29) -- 12716(line=659, offs=40) +*/ +ATSINSmove(tmp3, PMVtmpltcst(g1int2int)(arg1)) ; + +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12688(line=659, offs=12) -- 12718(line=659, offs=42) +*/ +ATSINSmove(tmpret2, PMVtmpltcst(g1int_gt)(arg0, tmp3)) ; + +ATSfunbody_end() +ATSreturn(tmpret2) ; +} /* end of [ATSLIB_056_prelude__gt_g1int_int__1] */ +#endif // end of [TEMPLATE] + +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 12679(line=659, offs=3) -- 12718(line=659, offs=42) +*/ +/* +local: +global: gt_g1int_int$1$1(level=1) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4703) +tmparg = S2Evar(tk(4703)) +tmpsub = Some(tk(4703) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__gt_g1int_int__1__1(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret2__1, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp3__1, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12664(line=658, offs=1) -- 12718(line=659, offs=42) +*/ +ATSINSflab(__patsflab_gt_g1int_int): +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12705(line=659, offs=29) -- 12716(line=659, offs=40) +*/ +ATSINSmove(tmp3__1, atspre_g1int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12688(line=659, offs=12) -- 12718(line=659, offs=42) +*/ +ATSINSmove(tmpret2__1, atspre_g1int_gt_int(arg0, tmp3__1)) ; + +ATSfunbody_end() +ATSreturn(tmpret2__1) ; +} /* end of [ATSLIB_056_prelude__gt_g1int_int__1__1] */ + +#if(0) +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) +*/ +/* +local: +global: eq_g0int_int$7$0(level=0) +local: +global: +*/ +ATSextern() +/* +imparg = tk(4694) +tmparg = S2Evar(tk(4694)) +tmpsub = None() +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__7(atstkind_t0ype(atstyvar_type(tk)) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret9, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp10, atstkind_t0ype(atstyvar_type(tk))) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) +*/ +ATSINSflab(__patsflab_eq_g0int_int): +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) +*/ +ATSINSmove(tmp10, PMVtmpltcst(g0int2int)(arg1)) ; + +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) +*/ +ATSINSmove(tmpret9, PMVtmpltcst(g0int_eq)(arg0, tmp10)) ; + +ATSfunbody_end() +ATSreturn(tmpret9) ; +} /* end of [ATSLIB_056_prelude__eq_g0int_int__7] */ +#endif // end of [TEMPLATE] + +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) +*/ +/* +local: +global: eq_g0int_int$7$1(level=1) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4694) +tmparg = S2Evar(tk(4694)) +tmpsub = Some(tk(4694) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__7__1(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret9__1, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp10__1, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) +*/ +ATSINSflab(__patsflab_eq_g0int_int): +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) +*/ +ATSINSmove(tmp10__1, atspre_g0int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) +*/ +ATSINSmove(tmpret9__1, atspre_g0int_eq_int(arg0, tmp10__1)) ; + +ATSfunbody_end() +ATSreturn(tmpret9__1) ; +} /* end of [ATSLIB_056_prelude__eq_g0int_int__7__1] */ + +/* +/home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 586(line=28, offs=4) -- 641(line=29, offs=14) +*/ +/* +local: +global: witness_12$0(level=0) +local: +global: +*/ +ATSstatic() +atstkind_t0ype(atstype_int) +witness_12(atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret16, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 586(line=28, offs=4) -- 641(line=29, offs=14) +*/ +ATSINSflab(__patsflab_witness_12): +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 630(line=29, offs=3) -- 640(line=29, offs=13) +*/ +ATSINSmove(tmpret16, ATSPMVcastfn(cast, atstkind_t0ype(atstype_int), arg0)) ; +ATSfunbody_end() +ATSreturn(tmpret16) ; +} /* end of [witness_12] */ + +/* +/home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 646(line=31, offs=4) -- 790(line=36, offs=6) +*/ +/* +local: witness_12$0(level=0) +global: witness_12$0(level=0), sqrt_int_13$0(level=0) +local: +global: +*/ +ATSstatic() +atstkind_t0ype(atstype_int) +sqrt_int_13(atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret17, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmpref18, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp19, atstkind_t0ype(atstype_float)) ; +ATStmpdec(tmp20, atstkind_t0ype(atstype_float)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 646(line=31, offs=4) -- 790(line=36, offs=6) +*/ +ATSINSflab(__patsflab_sqrt_int_13): +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 696(line=32, offs=3) -- 790(line=36, offs=6) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 708(line=33, offs=9) -- 713(line=33, offs=14) +*/ +/* +ATSINStmpdec(tmpref18) ; +*/ +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 744(line=33, offs=45) -- 757(line=33, offs=58) +*/ +ATSINSmove(tmp20, atspre_g0int2float_int_float(arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 733(line=33, offs=34) -- 759(line=33, offs=60) +*/ +ATSINSmove(tmp19, atslib_libats_libc_sqrt_float(tmp20)) ; + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 721(line=33, offs=22) -- 760(line=33, offs=61) +*/ +ATSINSmove(tmpref18, atspre_g0float2int_float_int(tmp19)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 770(line=35, offs=5) -- 783(line=35, offs=18) +*/ +ATSINSmove(tmpret17, witness_12(tmpref18)) ; + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 696(line=32, offs=3) -- 790(line=36, offs=6) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret17) ; +} /* end of [sqrt_int_13] */ + +/* +/home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 826(line=39, offs=4) -- 1411(line=62, offs=10) +*/ +/* +local: sqrt_int_13$0(level=0) +global: witness_12$0(level=0), sqrt_int_13$0(level=0), is_prime_16$0(level=0) +local: +global: +*/ +ATSstatic() +atstkind_t0ype(atstype_bool) +is_prime_16(atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret21, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp42, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 826(line=39, offs=4) -- 1411(line=62, offs=10) +*/ +ATSINSflab(__patsflab_is_prime_16): +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 862(line=40, offs=3) -- 1411(line=62, offs=10) +*/ +ATScaseof_beg() +/* +** ibranchlst-beg +*/ +ATSbranch_beg() +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 879(line=41, offs=7) -- 880(line=41, offs=8) +*/ +ATSINSlab(__atstmplab3): +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 835(line=39, offs=13) -- 836(line=39, offs=14) +*/ +ATSifnthen(ATSCKpat_int(arg0, ATSPMVint(1))) { ATSINSgoto(__atstmplab5) ; } ; +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 880(line=41, offs=8) -- 880(line=41, offs=8) +*/ +ATSINSlab(__atstmplab4): +/* +emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) +*/ +/* +ibranch-mbody: +*/ +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 884(line=41, offs=12) -- 889(line=41, offs=17) +*/ +ATSINSmove(tmpret21, ATSPMVbool_false()) ; +ATSbranch_end() + +ATSbranch_beg() +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 897(line=42, offs=8) -- 897(line=42, offs=8) +*/ +ATSINSlab(__atstmplab5): +/* +emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) +*/ +/* +ibranch-mbody: +*/ +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 922(line=44, offs=9) -- 1401(line=61, offs=12) +*/ +/* +letpush(beg) +*/ +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 1377(line=60, offs=19) -- 1387(line=60, offs=29) +*/ +ATSINSmove(tmp42, sqrt_int_13(arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 1369(line=60, offs=11) -- 1389(line=60, offs=31) +*/ +ATSINSmove(tmpret21, loop_17(arg0, ATSPMVi0nt(2), tmp42)) ; + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 922(line=44, offs=9) -- 1401(line=61, offs=12) +*/ +/* +INSletpop() +*/ +ATSbranch_end() + +/* +** ibranchlst-end +*/ +ATScaseof_end() + +ATSfunbody_end() +ATSreturn(tmpret21) ; +} /* end of [is_prime_16] */ + +/* +/home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 940(line=45, offs=15) -- 1347(line=58, offs=21) +*/ +/* +local: loop_17$0(level=1) +global: loop_17$0(level=1) +local: k$4740(1)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))) +global: k$4740(1)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))) +*/ +ATSstatic() +atstkind_t0ype(atstype_bool) +loop_17(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(tmpret22, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp23, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp28, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp31, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp32, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp33, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp38, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp41, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +/* +emit_funent_fnxdeclst: +*/ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 940(line=45, offs=15) -- 1347(line=58, offs=21) +*/ +ATSINSflab(__patsflab_loop_17): +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 1034(line=46, offs=16) -- 1043(line=46, offs=25) +*/ +ATSINSmove(tmp23, ATSLIB_056_prelude__lt_g1int_int__18__1(arg0, arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 1031(line=46, offs=13) -- 1347(line=58, offs=21) +*/ +ATSif( +tmp23 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 1066(line=47, offs=18) -- 1071(line=47, offs=23) +*/ +ATSINSmove(tmp31, atspre_g0int_mod_int(env0, arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 1066(line=47, offs=18) -- 1075(line=47, offs=27) +*/ +ATSINSmove(tmp28, ATSLIB_056_prelude__eq_g0int_int__7__2(tmp31, ATSPMVi0nt(0))) ; + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 1063(line=47, offs=15) -- 1156(line=50, offs=35) +*/ +ATSif( +tmp28 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 1097(line=48, offs=17) -- 1102(line=48, offs=22) +*/ +ATSINSmove(tmpret22, ATSPMVbool_false()) ; +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 1143(line=50, offs=22) -- 1148(line=50, offs=27) +*/ +ATSINSmove(tmp32, atspre_g1int_add_int(arg0, ATSPMVi0nt(1))) ; + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 1138(line=50, offs=17) -- 1156(line=50, offs=35) +*/ +ATStailcal_beg() +ATSINSmove_tlcal(apy0, tmp32) ; +ATSINSmove_tlcal(apy1, arg1) ; +ATSINSargmove_tlcal(arg0, apy0) ; +ATSINSargmove_tlcal(arg1, apy1) ; +ATSINSfgoto(__patsflab_loop_17) ; +ATStailcal_end() + +} /* ATSendif */ +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 1191(line=52, offs=18) -- 1200(line=52, offs=27) +*/ +ATSINSmove(tmp33, ATSLIB_056_prelude__eq_g1int_int__23__1(arg0, arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 1188(line=52, offs=15) -- 1347(line=58, offs=21) +*/ +ATSif( +tmp33 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 1225(line=53, offs=20) -- 1230(line=53, offs=25) +*/ +ATSINSmove(tmp41, atspre_g0int_mod_int(env0, arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 1225(line=53, offs=20) -- 1234(line=53, offs=29) +*/ +ATSINSmove(tmp38, ATSLIB_056_prelude__eq_g0int_int__7__3(tmp41, ATSPMVi0nt(0))) ; + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 1222(line=53, offs=17) -- 1307(line=56, offs=23) +*/ +ATSif( +tmp38 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 1258(line=54, offs=19) -- 1263(line=54, offs=24) +*/ +ATSINSmove(tmpret22, ATSPMVbool_false()) ; +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 1303(line=56, offs=19) -- 1307(line=56, offs=23) +*/ +ATSINSmove(tmpret22, ATSPMVbool_true()) ; +} /* ATSendif */ +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 1343(line=58, offs=17) -- 1347(line=58, offs=21) +*/ +ATSINSmove(tmpret22, ATSPMVbool_true()) ; +} /* ATSendif */ +} /* ATSendif */ +ATSfunbody_end() +ATSreturn(tmpret22) ; +/* +emit_funent_fnxbodylst: +*/ +} /* end of [loop_17] */ + +#if(0) +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 12520(line=650, offs=3) -- 12559(line=650, offs=42) +*/ +/* +local: +global: lt_g1int_int$18$0(level=0) +local: +global: +*/ +ATSextern() +/* +imparg = tk(4697) +tmparg = S2Evar(tk(4697)) +tmpsub = None() +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__lt_g1int_int__18(atstkind_t0ype(atstyvar_type(tk)) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret24, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp25, atstkind_t0ype(atstyvar_type(tk))) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12505(line=649, offs=1) -- 12559(line=650, offs=42) +*/ +ATSINSflab(__patsflab_lt_g1int_int): +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12546(line=650, offs=29) -- 12557(line=650, offs=40) +*/ +ATSINSmove(tmp25, PMVtmpltcst(g1int2int)(arg1)) ; + +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12529(line=650, offs=12) -- 12559(line=650, offs=42) +*/ +ATSINSmove(tmpret24, PMVtmpltcst(g1int_lt)(arg0, tmp25)) ; + +ATSfunbody_end() +ATSreturn(tmpret24) ; +} /* end of [ATSLIB_056_prelude__lt_g1int_int__18] */ +#endif // end of [TEMPLATE] + +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 12520(line=650, offs=3) -- 12559(line=650, offs=42) +*/ +/* +local: +global: lt_g1int_int$18$1(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4697) +tmparg = S2Evar(tk(4697)) +tmpsub = Some(tk(4697) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__lt_g1int_int__18__1(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret24__1, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp25__1, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12505(line=649, offs=1) -- 12559(line=650, offs=42) +*/ +ATSINSflab(__patsflab_lt_g1int_int): +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12546(line=650, offs=29) -- 12557(line=650, offs=40) +*/ +ATSINSmove(tmp25__1, atspre_g1int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12529(line=650, offs=12) -- 12559(line=650, offs=42) +*/ +ATSINSmove(tmpret24__1, atspre_g1int_lt_int(arg0, tmp25__1)) ; + +ATSfunbody_end() +ATSreturn(tmpret24__1) ; +} /* end of [ATSLIB_056_prelude__lt_g1int_int__18__1] */ + +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) +*/ +/* +local: +global: eq_g0int_int$7$2(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4694) +tmparg = S2Evar(tk(4694)) +tmpsub = Some(tk(4694) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__7__2(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret9__2, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp10__2, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) +*/ +ATSINSflab(__patsflab_eq_g0int_int): +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) +*/ +ATSINSmove(tmp10__2, atspre_g0int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) +*/ +ATSINSmove(tmpret9__2, atspre_g0int_eq_int(arg0, tmp10__2)) ; + +ATSfunbody_end() +ATSreturn(tmpret9__2) ; +} /* end of [ATSLIB_056_prelude__eq_g0int_int__7__2] */ + +#if(0) +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 12838(line=668, offs=3) -- 12877(line=668, offs=42) +*/ +/* +local: +global: eq_g1int_int$23$0(level=0) +local: +global: +*/ +ATSextern() +/* +imparg = tk(4709) +tmparg = S2Evar(tk(4709)) +tmpsub = None() +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g1int_int__23(atstkind_t0ype(atstyvar_type(tk)) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret34, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp35, atstkind_t0ype(atstyvar_type(tk))) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12823(line=667, offs=1) -- 12877(line=668, offs=42) +*/ +ATSINSflab(__patsflab_eq_g1int_int): +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12864(line=668, offs=29) -- 12875(line=668, offs=40) +*/ +ATSINSmove(tmp35, PMVtmpltcst(g1int2int)(arg1)) ; + +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12847(line=668, offs=12) -- 12877(line=668, offs=42) +*/ +ATSINSmove(tmpret34, PMVtmpltcst(g1int_eq)(arg0, tmp35)) ; + +ATSfunbody_end() +ATSreturn(tmpret34) ; +} /* end of [ATSLIB_056_prelude__eq_g1int_int__23] */ +#endif // end of [TEMPLATE] + +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 12838(line=668, offs=3) -- 12877(line=668, offs=42) +*/ +/* +local: +global: eq_g1int_int$23$1(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4709) +tmparg = S2Evar(tk(4709)) +tmpsub = Some(tk(4709) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g1int_int__23__1(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret34__1, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp35__1, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12823(line=667, offs=1) -- 12877(line=668, offs=42) +*/ +ATSINSflab(__patsflab_eq_g1int_int): +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12864(line=668, offs=29) -- 12875(line=668, offs=40) +*/ +ATSINSmove(tmp35__1, atspre_g1int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12847(line=668, offs=12) -- 12877(line=668, offs=42) +*/ +ATSINSmove(tmpret34__1, atspre_g1int_eq_int(arg0, tmp35__1)) ; + +ATSfunbody_end() +ATSreturn(tmpret34__1) ; +} /* end of [ATSLIB_056_prelude__eq_g1int_int__23__1] */ + +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) +*/ +/* +local: +global: eq_g0int_int$7$3(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4694) +tmparg = S2Evar(tk(4694)) +tmpsub = Some(tk(4694) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__7__3(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret9__3, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp10__3, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) +*/ +ATSINSflab(__patsflab_eq_g0int_int): +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) +*/ +ATSINSmove(tmp10__3, atspre_g0int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) +*/ +ATSINSmove(tmpret9__3, atspre_g0int_eq_int(arg0, tmp10__3)) ; + +ATSfunbody_end() +ATSreturn(tmpret9__3) ; +} /* end of [ATSLIB_056_prelude__eq_g0int_int__7__3] */ + +/* +/home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 434(line=17, offs=4) -- 482(line=18, offs=12) +*/ +/* +local: +global: divides_27$0(level=0) +local: +global: +*/ +ATSstatic() +atstkind_t0ype(atstype_bool) +divides_27(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret43, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp46, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 434(line=17, offs=4) -- 482(line=18, offs=12) +*/ +ATSINSflab(__patsflab_divides_27): +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 473(line=18, offs=3) -- 478(line=18, offs=8) +*/ +ATSINSmove(tmp46, atspre_g0int_mod_int(arg1, arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 473(line=18, offs=3) -- 482(line=18, offs=12) +*/ +ATSINSmove(tmpret43, ATSLIB_056_prelude__eq_g0int_int__7__4(tmp46, ATSPMVi0nt(0))) ; + +ATSfunbody_end() +ATSreturn(tmpret43) ; +} /* end of [divides_27] */ + +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) +*/ +/* +local: +global: eq_g0int_int$7$4(level=1) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4694) +tmparg = S2Evar(tk(4694)) +tmpsub = Some(tk(4694) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__7__4(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret9__4, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp10__4, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) +*/ +ATSINSflab(__patsflab_eq_g0int_int): +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) +*/ +ATSINSmove(tmp10__4, atspre_g0int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) +*/ +ATSINSmove(tmpret9__4, atspre_g0int_eq_int(arg0, tmp10__4)) ; + +ATSfunbody_end() +ATSreturn(tmpret9__4) ; +} /* end of [ATSLIB_056_prelude__eq_g0int_int__7__4] */ + +/* +/home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 488(line=20, offs=5) -- 599(line=24, offs=6) +*/ +/* +local: witness_12$0(level=0), gcd_29$0(level=0) +global: witness_12$0(level=0), gcd_29$0(level=0) +local: +global: +*/ +ATSstatic() +atstkind_t0ype(atstype_int) +gcd_29(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(tmpret47, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp48, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp51, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp52, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +/* +emit_funent_fnxdeclst: +*/ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 488(line=20, offs=5) -- 599(line=24, offs=6) +*/ +ATSINSflab(__patsflab_gcd_29): +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 549(line=21, offs=6) -- 554(line=21, offs=11) +*/ +ATSINSmove(tmp48, ATSLIB_056_prelude__gt_g1int_int__1__2(arg1, ATSPMVi0nt(0))) ; + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 546(line=21, offs=3) -- 599(line=24, offs=6) +*/ +ATSif( +tmp48 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 579(line=22, offs=20) -- 584(line=22, offs=25) +*/ +ATSINSmove(tmp52, atspre_g0int_mod_int(arg0, arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 571(line=22, offs=12) -- 585(line=22, offs=26) +*/ +ATSINSmove(tmp51, witness_12(tmp52)) ; + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 564(line=22, offs=5) -- 586(line=22, offs=27) +*/ +ATStailcal_beg() +ATSINSmove_tlcal(apy0, arg1) ; +ATSINSmove_tlcal(apy1, tmp51) ; +ATSINSargmove_tlcal(arg0, apy0) ; +ATSINSargmove_tlcal(arg1, apy1) ; +ATSINSfgoto(__patsflab_gcd_29) ; +ATStailcal_end() + +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 598(line=24, offs=5) -- 599(line=24, offs=6) +*/ +ATSINSmove(tmpret47, arg0) ; +} /* ATSendif */ +ATSfunbody_end() +ATSreturn(tmpret47) ; +/* +emit_funent_fnxbodylst: +*/ +} /* end of [gcd_29] */ + +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 12679(line=659, offs=3) -- 12718(line=659, offs=42) +*/ +/* +local: +global: gt_g1int_int$1$2(level=1) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4703) +tmparg = S2Evar(tk(4703)) +tmpsub = Some(tk(4703) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__gt_g1int_int__1__2(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret2__2, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp3__2, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12664(line=658, offs=1) -- 12718(line=659, offs=42) +*/ +ATSINSflab(__patsflab_gt_g1int_int): +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12705(line=659, offs=29) -- 12716(line=659, offs=40) +*/ +ATSINSmove(tmp3__2, atspre_g1int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12688(line=659, offs=12) -- 12718(line=659, offs=42) +*/ +ATSINSmove(tmpret2__2, atspre_g1int_gt_int(arg0, tmp3__2)) ; + +ATSfunbody_end() +ATSreturn(tmpret2__2) ; +} /* end of [ATSLIB_056_prelude__gt_g1int_int__1__2] */ + +/* +/home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 604(line=26, offs=4) -- 681(line=27, offs=22) +*/ +/* +local: gcd_29$0(level=0) +global: witness_12$0(level=0), gcd_29$0(level=0), lcm_31$0(level=0) +local: +global: +*/ +ATSstatic() +atstkind_t0ype(atstype_int) +lcm_31(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret53, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp54, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp55, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 604(line=26, offs=4) -- 681(line=27, offs=22) +*/ +ATSINSflab(__patsflab_lcm_31): +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 667(line=27, offs=8) -- 676(line=27, offs=17) +*/ +ATSINSmove(tmp55, gcd_29(arg0, arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 663(line=27, offs=4) -- 676(line=27, offs=17) +*/ +ATSINSmove(tmp54, atspre_g0int_div_int(arg0, tmp55)) ; + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 662(line=27, offs=3) -- 681(line=27, offs=22) +*/ +ATSINSmove(tmpret53, atspre_g0int_mul_int(tmp54, arg1)) ; + +ATSfunbody_end() +ATSreturn(tmpret53) ; +} /* end of [lcm_31] */ + +/* +/home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 724(line=30, offs=4) -- 1128(line=42, offs=6) +*/ +/* +local: +global: divisors_33$0(level=0) +local: +global: +*/ +ATSstatic() +atstkind_type(atstype_ptrk) +divisors_33(atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret56, atstkind_type(atstype_ptrk)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 724(line=30, offs=4) -- 1128(line=42, offs=6) +*/ +ATSINSflab(__patsflab_divisors_33): +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 769(line=31, offs=3) -- 1128(line=42, offs=6) +*/ +/* +letpush(beg) +*/ +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1112(line=41, offs=5) -- 1122(line=41, offs=15) +*/ +ATSINSmove(tmpret56, loop_34(arg0, ATSPMVi0nt(1))) ; + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 769(line=31, offs=3) -- 1128(line=42, offs=6) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret56) ; +} /* end of [divisors_33] */ + +/* +/home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 781(line=32, offs=9) -- 1102(line=39, offs=33) +*/ +/* +local: loop_34$0(level=1) +global: loop_34$0(level=1) +local: +global: +*/ +ATSstatic() +atstkind_type(atstype_ptrk) +loop_34(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret57, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp58, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp66, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp69, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 781(line=32, offs=9) -- 1102(line=39, offs=33) +*/ +ATSINSflab(__patsflab_loop_34): +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 888(line=33, offs=10) -- 896(line=33, offs=18) +*/ +ATSINSmove(tmp58, ATSLIB_056_prelude__gte_g1int_int__35__1(arg1, arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 885(line=33, offs=7) -- 1102(line=39, offs=33) +*/ +ATSif( +tmp58 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 910(line=34, offs=9) -- 962(line=34, offs=61) +*/ +ATSINSmove_ldelay(tmpret57, atstype_boxed, ATSPMVcfunlab(1, __patsfun_38, (arg1))) ; +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 985(line=36, offs=12) -- 992(line=36, offs=19) +*/ +ATSINSmove(tmp69, atspre_g0int_mod_int(arg0, arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 985(line=36, offs=12) -- 996(line=36, offs=23) +*/ +ATSINSmove(tmp66, ATSLIB_056_prelude__eq_g0int_int__7__5(tmp69, ATSPMVi0nt(0))) ; + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 982(line=36, offs=9) -- 1102(line=39, offs=33) +*/ +ATSif( +tmp66 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1012(line=37, offs=11) -- 1056(line=37, offs=55) +*/ +ATSINSmove_ldelay(tmpret57, atstype_boxed, ATSPMVcfunlab(1, __patsfun_41, (arg0, arg1))) ; +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1080(line=39, offs=11) -- 1102(line=39, offs=33) +*/ +ATSINSmove_ldelay(tmpret57, atstype_boxed, ATSPMVcfunlab(1, __patsfun_42, ())) ; +} /* ATSendif */ +} /* ATSendif */ +ATSfunbody_end() +ATSreturn(tmpret57) ; +} /* end of [loop_34] */ + +#if(0) +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 12757(line=663, offs=3) -- 12797(line=663, offs=43) +*/ +/* +local: +global: gte_g1int_int$35$0(level=0) +local: +global: +*/ +ATSextern() +/* +imparg = tk(4706) +tmparg = S2Evar(tk(4706)) +tmpsub = None() +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__gte_g1int_int__35(atstkind_t0ype(atstyvar_type(tk)) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret59, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp60, atstkind_t0ype(atstyvar_type(tk))) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12741(line=662, offs=1) -- 12797(line=663, offs=43) +*/ +ATSINSflab(__patsflab_gte_g1int_int): +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12784(line=663, offs=30) -- 12795(line=663, offs=41) +*/ +ATSINSmove(tmp60, PMVtmpltcst(g1int2int)(arg1)) ; + +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12766(line=663, offs=12) -- 12797(line=663, offs=43) +*/ +ATSINSmove(tmpret59, PMVtmpltcst(g1int_gte)(arg0, tmp60)) ; + +ATSfunbody_end() +ATSreturn(tmpret59) ; +} /* end of [ATSLIB_056_prelude__gte_g1int_int__35] */ +#endif // end of [TEMPLATE] + +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 12757(line=663, offs=3) -- 12797(line=663, offs=43) +*/ +/* +local: +global: gte_g1int_int$35$1(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4706) +tmparg = S2Evar(tk(4706)) +tmpsub = Some(tk(4706) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__gte_g1int_int__35__1(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret59__1, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp60__1, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12741(line=662, offs=1) -- 12797(line=663, offs=43) +*/ +ATSINSflab(__patsflab_gte_g1int_int): +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12784(line=663, offs=30) -- 12795(line=663, offs=41) +*/ +ATSINSmove(tmp60__1, atspre_g1int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12766(line=663, offs=12) -- 12797(line=663, offs=43) +*/ +ATSINSmove(tmpret59__1, atspre_g1int_gte_int(arg0, tmp60__1)) ; + +ATSfunbody_end() +ATSreturn(tmpret59__1) ; +} /* end of [ATSLIB_056_prelude__gte_g1int_int__35__1] */ + +/* +/home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 910(line=34, offs=9) -- 962(line=34, offs=61) +*/ +/* +local: +global: __patsfun_38$0(level=2) +local: acc$5118(2)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))) +global: acc$5118(2)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))) +*/ +ATSstatic() +atstype_boxed +__patsfun_38(atstkind_t0ype(atstype_int) env0, atstype_bool arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret63, atstype_boxed) ; +ATStmpdec(tmp64, atstkind_type(atstype_ptrk)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 910(line=34, offs=9) -- 962(line=34, offs=61) +*/ +ATSINSflab(__patsflab___patsfun_38): +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 910(line=34, offs=9) -- 962(line=34, offs=61) +*/ +ATSif( +arg0 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 938(line=34, offs=37) -- 960(line=34, offs=59) +*/ +ATSINSmove_ldelay(tmp64, atstype_boxed, ATSPMVcfunlab(1, __patsfun_39, ())) ; +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 918(line=34, offs=17) -- 961(line=34, offs=60) +*/ + +/* +#LINCONSTATUS==0 +*/ +ATSINSmove_con1_beg() +ATSINSmove_con1_new(tmpret63, postiats_tysum_0) ; +#if(0) +ATSINSstore_con1_tag(tmpret63, 1) ; +#endif +ATSINSstore_con1_ofs(tmpret63, postiats_tysum_0, atslab__0, env0) ; +ATSINSstore_con1_ofs(tmpret63, postiats_tysum_0, atslab__1, tmp64) ; +ATSINSmove_con1_end() +} ATSelse() { +/* (*nothing*) */ +} /* ATSendif */ +ATSfunbody_end() +ATSreturn(tmpret63) ; +} /* end of [__patsfun_38] */ + +/* +/home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 938(line=34, offs=37) -- 960(line=34, offs=59) +*/ +/* +local: +global: __patsfun_39$0(level=3) +local: +global: +*/ +ATSstatic() +atstype_boxed +__patsfun_39(atstype_bool arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret65, atstype_boxed) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 938(line=34, offs=37) -- 960(line=34, offs=59) +*/ +ATSINSflab(__patsflab___patsfun_39): +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 938(line=34, offs=37) -- 960(line=34, offs=59) +*/ +ATSif( +arg0 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 946(line=34, offs=45) -- 959(line=34, offs=58) +*/ + +ATSINSmove_nil(tmpret65) ; + +} ATSelse() { +/* (*nothing*) */ +} /* ATSendif */ +ATSfunbody_end() +ATSreturn(tmpret65) ; +} /* end of [__patsfun_39] */ + +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) +*/ +/* +local: +global: eq_g0int_int$7$5(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4694) +tmparg = S2Evar(tk(4694)) +tmpsub = Some(tk(4694) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__7__5(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret9__5, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp10__5, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) +*/ +ATSINSflab(__patsflab_eq_g0int_int): +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) +*/ +ATSINSmove(tmp10__5, atspre_g0int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) +*/ +ATSINSmove(tmpret9__5, atspre_g0int_eq_int(arg0, tmp10__5)) ; + +ATSfunbody_end() +ATSreturn(tmpret9__5) ; +} /* end of [ATSLIB_056_prelude__eq_g0int_int__7__5] */ + +/* +/home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1012(line=37, offs=11) -- 1056(line=37, offs=55) +*/ +/* +local: loop_34$0(level=1) +global: loop_34$0(level=1), __patsfun_41$0(level=2) +local: n$5117(2)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))), acc$5118(2)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))) +global: n$5117(2)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))), acc$5118(2)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))) +*/ +ATSstatic() +atstype_boxed +__patsfun_41(atstkind_t0ype(atstype_int) env0, atstkind_t0ype(atstype_int) env1, atstype_bool arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret70, atstype_boxed) ; +ATStmpdec(tmp71, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp72, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1012(line=37, offs=11) -- 1056(line=37, offs=55) +*/ +ATSINSflab(__patsflab___patsfun_41): +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1012(line=37, offs=11) -- 1056(line=37, offs=55) +*/ +ATSif( +arg0 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1046(line=37, offs=45) -- 1053(line=37, offs=52) +*/ +ATSINSmove(tmp72, atspre_g1int_add_int(env1, ATSPMVi0nt(1))) ; + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1038(line=37, offs=37) -- 1054(line=37, offs=53) +*/ +ATSINSmove(tmp71, loop_34(env0, tmp72)) ; + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1020(line=37, offs=19) -- 1055(line=37, offs=54) +*/ + +/* +#LINCONSTATUS==0 +*/ +ATSINSmove_con1_beg() +ATSINSmove_con1_new(tmpret70, postiats_tysum_0) ; +#if(0) +ATSINSstore_con1_tag(tmpret70, 1) ; +#endif +ATSINSstore_con1_ofs(tmpret70, postiats_tysum_0, atslab__0, env0) ; +ATSINSstore_con1_ofs(tmpret70, postiats_tysum_0, atslab__1, tmp71) ; +ATSINSmove_con1_end() +} ATSelse() { +/* (*nothing*) */ +} /* ATSendif */ +ATSfunbody_end() +ATSreturn(tmpret70) ; +} /* end of [__patsfun_41] */ + +/* +/home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1080(line=39, offs=11) -- 1102(line=39, offs=33) +*/ +/* +local: +global: __patsfun_42$0(level=2) +local: +global: +*/ +ATSstatic() +atstype_boxed +__patsfun_42(atstype_bool arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret73, atstype_boxed) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1080(line=39, offs=11) -- 1102(line=39, offs=33) +*/ +ATSINSflab(__patsflab___patsfun_42): +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1080(line=39, offs=11) -- 1102(line=39, offs=33) +*/ +ATSif( +arg0 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1088(line=39, offs=19) -- 1101(line=39, offs=32) +*/ + +ATSINSmove_nil(tmpret73) ; + +} ATSelse() { +/* (*nothing*) */ +} /* ATSendif */ +ATSfunbody_end() +ATSreturn(tmpret73) ; +} /* end of [__patsfun_42] */ + +/* +/home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1133(line=44, offs=4) -- 1444(line=56, offs=6) +*/ +/* +local: +global: count_divisors_43$0(level=0) +local: +global: +*/ +ATSstatic() +atstkind_t0ype(atstype_int) +count_divisors_43(atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret74, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1133(line=44, offs=4) -- 1444(line=56, offs=6) +*/ +ATSINSflab(__patsflab_count_divisors_43): +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1175(line=45, offs=3) -- 1444(line=56, offs=6) +*/ +/* +letpush(beg) +*/ +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1428(line=55, offs=5) -- 1438(line=55, offs=15) +*/ +ATSINSmove(tmpret74, loop_44(arg0, ATSPMVi0nt(1))) ; + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1175(line=45, offs=3) -- 1444(line=56, offs=6) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret74) ; +} /* end of [count_divisors_43] */ + +/* +/home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1187(line=46, offs=9) -- 1418(line=53, offs=27) +*/ +/* +local: loop_44$0(level=1) +global: loop_44$0(level=1) +local: +global: +*/ +ATSstatic() +atstkind_t0ype(atstype_int) +loop_44(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(tmpret75, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp76, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp79, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp82, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp83, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp84, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp85, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1187(line=46, offs=9) -- 1418(line=53, offs=27) +*/ +ATSINSflab(__patsflab_loop_44): +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1285(line=47, offs=10) -- 1293(line=47, offs=18) +*/ +ATSINSmove(tmp76, ATSLIB_056_prelude__gte_g1int_int__35__2(arg1, arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1282(line=47, offs=7) -- 1418(line=53, offs=27) +*/ +ATSif( +tmp76 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1307(line=48, offs=9) -- 1308(line=48, offs=10) +*/ +ATSINSmove(tmpret75, ATSPMVi0nt(1)) ; +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1331(line=50, offs=12) -- 1338(line=50, offs=19) +*/ +ATSINSmove(tmp82, atspre_g0int_mod_int(arg0, arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1331(line=50, offs=12) -- 1342(line=50, offs=23) +*/ +ATSINSmove(tmp79, ATSLIB_056_prelude__eq_g0int_int__7__6(tmp82, ATSPMVi0nt(0))) ; + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1328(line=50, offs=9) -- 1418(line=53, offs=27) +*/ +ATSif( +tmp79 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1370(line=51, offs=23) -- 1377(line=51, offs=30) +*/ +ATSINSmove(tmp84, atspre_g1int_add_int(arg1, ATSPMVi0nt(1))) ; + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1362(line=51, offs=15) -- 1378(line=51, offs=31) +*/ +ATSINSmove(tmp83, loop_44(arg0, tmp84)) ; + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1358(line=51, offs=11) -- 1378(line=51, offs=31) +*/ +ATSINSmove(tmpret75, atspre_g0int_add_int(ATSPMVi0nt(1), tmp83)) ; + +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1410(line=53, offs=19) -- 1417(line=53, offs=26) +*/ +ATSINSmove(tmp85, atspre_g1int_add_int(arg1, ATSPMVi0nt(1))) ; + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1402(line=53, offs=11) -- 1418(line=53, offs=27) +*/ +ATStailcal_beg() +ATSINSmove_tlcal(apy0, arg0) ; +ATSINSmove_tlcal(apy1, tmp85) ; +ATSINSargmove_tlcal(arg0, apy0) ; +ATSINSargmove_tlcal(arg1, apy1) ; +ATSINSfgoto(__patsflab_loop_44) ; +ATStailcal_end() + +} /* ATSendif */ +} /* ATSendif */ +ATSfunbody_end() +ATSreturn(tmpret75) ; +} /* end of [loop_44] */ + +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 12757(line=663, offs=3) -- 12797(line=663, offs=43) +*/ +/* +local: +global: gte_g1int_int$35$2(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4706) +tmparg = S2Evar(tk(4706)) +tmpsub = Some(tk(4706) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__gte_g1int_int__35__2(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret59__2, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp60__2, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12741(line=662, offs=1) -- 12797(line=663, offs=43) +*/ +ATSINSflab(__patsflab_gte_g1int_int): +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12784(line=663, offs=30) -- 12795(line=663, offs=41) +*/ +ATSINSmove(tmp60__2, atspre_g1int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12766(line=663, offs=12) -- 12797(line=663, offs=43) +*/ +ATSINSmove(tmpret59__2, atspre_g1int_gte_int(arg0, tmp60__2)) ; + +ATSfunbody_end() +ATSreturn(tmpret59__2) ; +} /* end of [ATSLIB_056_prelude__gte_g1int_int__35__2] */ + +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) +*/ +/* +local: +global: eq_g0int_int$7$6(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4694) +tmparg = S2Evar(tk(4694)) +tmpsub = Some(tk(4694) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__7__6(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret9__6, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp10__6, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) +*/ +ATSINSflab(__patsflab_eq_g0int_int): +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) +*/ +ATSINSmove(tmp10__6, atspre_g0int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) +*/ +ATSINSmove(tmpret9__6, atspre_g0int_eq_int(arg0, tmp10__6)) ; + +ATSfunbody_end() +ATSreturn(tmpret9__6) ; +} /* end of [ATSLIB_056_prelude__eq_g0int_int__7__6] */ + +/* +/home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1449(line=58, offs=4) -- 1760(line=70, offs=6) +*/ +/* +local: +global: sum_divisors_48$0(level=0) +local: +global: +*/ +ATSstatic() +atstkind_t0ype(atstype_int) +sum_divisors_48(atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret86, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1449(line=58, offs=4) -- 1760(line=70, offs=6) +*/ +ATSINSflab(__patsflab_sum_divisors_48): +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1489(line=59, offs=3) -- 1760(line=70, offs=6) +*/ +/* +letpush(beg) +*/ +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1744(line=69, offs=5) -- 1754(line=69, offs=15) +*/ +ATSINSmove(tmpret86, loop_49(arg0, ATSPMVi0nt(1))) ; + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1489(line=59, offs=3) -- 1760(line=70, offs=6) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret86) ; +} /* end of [sum_divisors_48] */ + +/* +/home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1501(line=60, offs=9) -- 1734(line=67, offs=27) +*/ +/* +local: loop_49$0(level=1) +global: loop_49$0(level=1) +local: +global: +*/ +ATSstatic() +atstkind_t0ype(atstype_int) +loop_49(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(tmpret87, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp88, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp91, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp94, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp95, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp96, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp97, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1501(line=60, offs=9) -- 1734(line=67, offs=27) +*/ +ATSINSflab(__patsflab_loop_49): +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1599(line=61, offs=10) -- 1607(line=61, offs=18) +*/ +ATSINSmove(tmp88, ATSLIB_056_prelude__gte_g1int_int__35__3(arg1, arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1596(line=61, offs=7) -- 1734(line=67, offs=27) +*/ +ATSif( +tmp88 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1621(line=62, offs=9) -- 1622(line=62, offs=10) +*/ +ATSINSmove(tmpret87, ATSPMVi0nt(0)) ; +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1645(line=64, offs=12) -- 1652(line=64, offs=19) +*/ +ATSINSmove(tmp94, atspre_g0int_mod_int(arg0, arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1645(line=64, offs=12) -- 1656(line=64, offs=23) +*/ +ATSINSmove(tmp91, ATSLIB_056_prelude__eq_g0int_int__7__7(tmp94, ATSPMVi0nt(0))) ; + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1642(line=64, offs=9) -- 1734(line=67, offs=27) +*/ +ATSif( +tmp91 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1686(line=65, offs=25) -- 1693(line=65, offs=32) +*/ +ATSINSmove(tmp96, atspre_g1int_add_int(arg1, ATSPMVi0nt(1))) ; + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1678(line=65, offs=17) -- 1694(line=65, offs=33) +*/ +ATSINSmove(tmp95, loop_49(arg0, tmp96)) ; + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1672(line=65, offs=11) -- 1694(line=65, offs=33) +*/ +ATSINSmove(tmpret87, atspre_g0int_add_int(arg1, tmp95)) ; + +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1726(line=67, offs=19) -- 1733(line=67, offs=26) +*/ +ATSINSmove(tmp97, atspre_g1int_add_int(arg1, ATSPMVi0nt(1))) ; + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1718(line=67, offs=11) -- 1734(line=67, offs=27) +*/ +ATStailcal_beg() +ATSINSmove_tlcal(apy0, arg0) ; +ATSINSmove_tlcal(apy1, tmp97) ; +ATSINSargmove_tlcal(arg0, apy0) ; +ATSINSargmove_tlcal(arg1, apy1) ; +ATSINSfgoto(__patsflab_loop_49) ; +ATStailcal_end() + +} /* ATSendif */ +} /* ATSendif */ +ATSfunbody_end() +ATSreturn(tmpret87) ; +} /* end of [loop_49] */ + +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 12757(line=663, offs=3) -- 12797(line=663, offs=43) +*/ +/* +local: +global: gte_g1int_int$35$3(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4706) +tmparg = S2Evar(tk(4706)) +tmpsub = Some(tk(4706) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__gte_g1int_int__35__3(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret59__3, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp60__3, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12741(line=662, offs=1) -- 12797(line=663, offs=43) +*/ +ATSINSflab(__patsflab_gte_g1int_int): +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12784(line=663, offs=30) -- 12795(line=663, offs=41) +*/ +ATSINSmove(tmp60__3, atspre_g1int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12766(line=663, offs=12) -- 12797(line=663, offs=43) +*/ +ATSINSmove(tmpret59__3, atspre_g1int_gte_int(arg0, tmp60__3)) ; + +ATSfunbody_end() +ATSreturn(tmpret59__3) ; +} /* end of [ATSLIB_056_prelude__gte_g1int_int__35__3] */ + +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) +*/ +/* +local: +global: eq_g0int_int$7$7(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4694) +tmparg = S2Evar(tk(4694)) +tmpsub = Some(tk(4694) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__7__7(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret9__7, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp10__7, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) +*/ +ATSINSflab(__patsflab_eq_g0int_int): +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) +*/ +ATSINSmove(tmp10__7, atspre_g0int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) +*/ +ATSINSmove(tmpret9__7, atspre_g0int_eq_int(arg0, tmp10__7)) ; + +ATSfunbody_end() +ATSreturn(tmpret9__7) ; +} /* end of [ATSLIB_056_prelude__eq_g0int_int__7__7] */ + +/* +/home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1826(line=73, offs=4) -- 1884(line=74, offs=22) +*/ +/* +local: sum_divisors_48$0(level=0) +global: sum_divisors_48$0(level=0), is_perfect_52$0(level=0) +local: +global: +*/ +ATSstatic() +atstkind_t0ype(atstype_bool) +is_perfect_52(atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret98, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp101, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1826(line=73, offs=4) -- 1884(line=74, offs=22) +*/ +ATSINSflab(__patsflab_is_perfect_52): +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1865(line=74, offs=3) -- 1879(line=74, offs=17) +*/ +ATSINSmove(tmp101, sum_divisors_48(arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1865(line=74, offs=3) -- 1884(line=74, offs=22) +*/ +ATSINSmove(tmpret98, ATSLIB_056_prelude__eq_g0int_int__7__8(tmp101, arg0)) ; + +ATSfunbody_end() +ATSreturn(tmpret98) ; +} /* end of [is_perfect_52] */ + +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) +*/ +/* +local: +global: eq_g0int_int$7$8(level=1) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4694) +tmparg = S2Evar(tk(4694)) +tmpsub = Some(tk(4694) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__7__8(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret9__8, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp10__8, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) +*/ +ATSINSflab(__patsflab_eq_g0int_int): +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) +*/ +ATSINSmove(tmp10__8, atspre_g0int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) +*/ +ATSINSmove(tmpret9__8, atspre_g0int_eq_int(arg0, tmp10__8)) ; + +ATSfunbody_end() +ATSreturn(tmpret9__8) ; +} /* end of [ATSLIB_056_prelude__eq_g0int_int__7__8] */ + +/* +/home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1916(line=77, offs=4) -- 2297(line=92, offs=6) +*/ +/* +local: is_prime_16$0(level=0) +global: witness_12$0(level=0), sqrt_int_13$0(level=0), is_prime_16$0(level=0), little_omega_54$0(level=0) +local: +global: +*/ +ATSstatic() +atstkind_t0ype(atstype_int) +little_omega_54(atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret102, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1916(line=77, offs=4) -- 2297(line=92, offs=6) +*/ +ATSINSflab(__patsflab_little_omega_54): +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1956(line=78, offs=3) -- 2297(line=92, offs=6) +*/ +/* +letpush(beg) +*/ +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2281(line=91, offs=5) -- 2291(line=91, offs=15) +*/ +ATSINSmove(tmpret102, loop_55(arg0, ATSPMVi0nt(1))) ; + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1956(line=78, offs=3) -- 2297(line=92, offs=6) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret102) ; +} /* end of [little_omega_54] */ + +/* +/home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1968(line=79, offs=9) -- 2271(line=89, offs=27) +*/ +/* +local: is_prime_16$0(level=0), loop_55$0(level=1) +global: is_prime_16$0(level=0), loop_55$0(level=1) +local: +global: +*/ +ATSstatic() +atstkind_t0ype(atstype_int) +loop_55(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(apy0, atstkind_t0ype(atstype_int)) ; +ATStmpdec(apy1, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmpret103, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp104, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp107, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp108, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp109, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp112, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp113, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp114, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp115, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 1968(line=79, offs=9) -- 2271(line=89, offs=27) +*/ +ATSINSflab(__patsflab_loop_55): +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2066(line=80, offs=10) -- 2074(line=80, offs=18) +*/ +ATSINSmove(tmp104, ATSLIB_056_prelude__gte_g1int_int__35__4(arg1, arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2063(line=80, offs=7) -- 2271(line=89, offs=27) +*/ +ATSif( +tmp104 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2091(line=81, offs=12) -- 2101(line=81, offs=22) +*/ +ATSINSmove(tmp107, is_prime_16(arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2088(line=81, offs=9) -- 2144(line=84, offs=12) +*/ +ATSif( +tmp107 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2118(line=82, offs=11) -- 2119(line=82, offs=12) +*/ +ATSINSmove(tmpret103, ATSPMVi0nt(1)) ; +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2143(line=84, offs=11) -- 2144(line=84, offs=12) +*/ +ATSINSmove(tmpret103, ATSPMVi0nt(0)) ; +} /* ATSendif */ +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2167(line=86, offs=12) -- 2194(line=86, offs=39) +*/ +ATSINSmove(tmp112, atspre_g0int_mod_int(arg0, arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2167(line=86, offs=12) -- 2194(line=86, offs=39) +*/ +ATSINSmove(tmp109, ATSLIB_056_prelude__eq_g0int_int__7__9(tmp112, ATSPMVi0nt(0))) ; + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2167(line=86, offs=12) -- 2194(line=86, offs=39) +*/ +ATSif( +tmp109 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2167(line=86, offs=12) -- 2194(line=86, offs=39) +*/ +ATSINSmove(tmp108, is_prime_16(arg1)) ; + +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2167(line=86, offs=12) -- 2194(line=86, offs=39) +*/ +ATSINSmove(tmp108, ATSPMVbool_false()) ; +} /* ATSendif */ +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2164(line=86, offs=9) -- 2271(line=89, offs=27) +*/ +ATSif( +tmp108 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2223(line=87, offs=23) -- 2230(line=87, offs=30) +*/ +ATSINSmove(tmp114, atspre_g1int_add_int(arg1, ATSPMVi0nt(1))) ; + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2215(line=87, offs=15) -- 2231(line=87, offs=31) +*/ +ATSINSmove(tmp113, loop_55(arg0, tmp114)) ; + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2211(line=87, offs=11) -- 2231(line=87, offs=31) +*/ +ATSINSmove(tmpret103, atspre_g0int_add_int(ATSPMVi0nt(1), tmp113)) ; + +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2263(line=89, offs=19) -- 2270(line=89, offs=26) +*/ +ATSINSmove(tmp115, atspre_g1int_add_int(arg1, ATSPMVi0nt(1))) ; + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2255(line=89, offs=11) -- 2271(line=89, offs=27) +*/ +ATStailcal_beg() +ATSINSmove_tlcal(apy0, arg0) ; +ATSINSmove_tlcal(apy1, tmp115) ; +ATSINSargmove_tlcal(arg0, apy0) ; +ATSINSargmove_tlcal(arg1, apy1) ; +ATSINSfgoto(__patsflab_loop_55) ; +ATStailcal_end() + +} /* ATSendif */ +} /* ATSendif */ +ATSfunbody_end() +ATSreturn(tmpret103) ; +} /* end of [loop_55] */ + +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 12757(line=663, offs=3) -- 12797(line=663, offs=43) +*/ +/* +local: +global: gte_g1int_int$35$4(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4706) +tmparg = S2Evar(tk(4706)) +tmpsub = Some(tk(4706) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__gte_g1int_int__35__4(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret59__4, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp60__4, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12741(line=662, offs=1) -- 12797(line=663, offs=43) +*/ +ATSINSflab(__patsflab_gte_g1int_int): +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12784(line=663, offs=30) -- 12795(line=663, offs=41) +*/ +ATSINSmove(tmp60__4, atspre_g1int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12766(line=663, offs=12) -- 12797(line=663, offs=43) +*/ +ATSINSmove(tmpret59__4, atspre_g1int_gte_int(arg0, tmp60__4)) ; + +ATSfunbody_end() +ATSreturn(tmpret59__4) ; +} /* end of [ATSLIB_056_prelude__gte_g1int_int__35__4] */ + +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) +*/ +/* +local: +global: eq_g0int_int$7$9(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4694) +tmparg = S2Evar(tk(4694)) +tmpsub = Some(tk(4694) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__7__9(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret9__9, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp10__9, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) +*/ +ATSINSflab(__patsflab_eq_g0int_int): +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) +*/ +ATSINSmove(tmp10__9, atspre_g0int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) +*/ +ATSINSmove(tmpret9__9, atspre_g0int_eq_int(arg0, tmp10__9)) ; + +ATSfunbody_end() +ATSreturn(tmpret9__9) ; +} /* end of [ATSLIB_056_prelude__eq_g0int_int__7__9] */ + +/* +/home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2331(line=95, offs=4) -- 2879(line=115, offs=10) +*/ +/* +local: is_prime_16$0(level=0) +global: witness_12$0(level=0), sqrt_int_13$0(level=0), is_prime_16$0(level=0), totient_58$0(level=0) +local: +global: +*/ +ATSstatic() +atstkind_t0ype(atstype_int) +totient_58(atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret116, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2331(line=95, offs=4) -- 2879(line=115, offs=10) +*/ +ATSINSflab(__patsflab_totient_58): +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2364(line=96, offs=3) -- 2879(line=115, offs=10) +*/ +ATScaseof_beg() +/* +** ibranchlst-beg +*/ +ATSbranch_beg() +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2381(line=97, offs=7) -- 2382(line=97, offs=8) +*/ +ATSINSlab(__atstmplab6): +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2339(line=95, offs=12) -- 2340(line=95, offs=13) +*/ +ATSifnthen(ATSCKpat_int(arg0, ATSPMVint(1))) { ATSINSgoto(__atstmplab8) ; } ; +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2382(line=97, offs=8) -- 2382(line=97, offs=8) +*/ +ATSINSlab(__atstmplab7): +/* +emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) +*/ +/* +ibranch-mbody: +*/ +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2386(line=97, offs=12) -- 2387(line=97, offs=13) +*/ +ATSINSmove(tmpret116, ATSPMVi0nt(1)) ; +ATSbranch_end() + +ATSbranch_beg() +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2395(line=98, offs=8) -- 2395(line=98, offs=8) +*/ +ATSINSlab(__atstmplab8): +/* +emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) +*/ +/* +ibranch-mbody: +*/ +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2421(line=100, offs=9) -- 2869(line=114, offs=12) +*/ +/* +letpush(beg) +*/ +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2847(line=113, offs=11) -- 2857(line=113, offs=21) +*/ +ATSINSmove(tmpret116, loop_59(ATSPMVi0nt(1), arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2421(line=100, offs=9) -- 2869(line=114, offs=12) +*/ +/* +INSletpop() +*/ +ATSbranch_end() + +/* +** ibranchlst-end +*/ +ATScaseof_end() + +ATSfunbody_end() +ATSreturn(tmpret116) ; +} /* end of [totient_58] */ + +/* +/home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2439(line=101, offs=15) -- 2825(line=111, offs=31) +*/ +/* +local: is_prime_16$0(level=0), loop_59$0(level=1) +global: is_prime_16$0(level=0), loop_59$0(level=1) +local: +global: +*/ +ATSstatic() +atstkind_t0ype(atstype_int) +loop_59(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(tmpret117, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp118, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp121, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp122, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp123, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp124, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp127, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp132, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp133, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp134, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp135, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp136, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +/* +emit_funent_fnxdeclst: +*/ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2439(line=101, offs=15) -- 2825(line=111, offs=31) +*/ +ATSINSflab(__patsflab_loop_59): +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2550(line=102, offs=16) -- 2556(line=102, offs=22) +*/ +ATSINSmove(tmp118, ATSLIB_056_prelude__gte_g1int_int__35__5(arg0, arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2547(line=102, offs=13) -- 2825(line=111, offs=31) +*/ +ATSif( +tmp118 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2579(line=103, offs=18) -- 2589(line=103, offs=28) +*/ +ATSINSmove(tmp121, is_prime_16(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2576(line=103, offs=15) -- 2654(line=106, offs=18) +*/ +ATSif( +tmp121 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2612(line=104, offs=17) -- 2617(line=104, offs=22) +*/ +ATSINSmove(tmpret117, atspre_g1int_sub_int(arg1, ATSPMVi0nt(1))) ; + +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2653(line=106, offs=17) -- 2654(line=106, offs=18) +*/ +ATSINSmove(tmpret117, arg1) ; +} /* ATSendif */ +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2689(line=108, offs=18) -- 2723(line=108, offs=52) +*/ +ATSINSmove(tmp127, atspre_g0int_mod_int(arg1, arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2689(line=108, offs=18) -- 2723(line=108, offs=52) +*/ +ATSINSmove(tmp124, ATSLIB_056_prelude__eq_g0int_int__7__10(tmp127, ATSPMVi0nt(0))) ; + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2689(line=108, offs=18) -- 2723(line=108, offs=52) +*/ +ATSif( +tmp124 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2689(line=108, offs=18) -- 2723(line=108, offs=52) +*/ +ATSINSmove(tmp123, is_prime_16(arg0)) ; + +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2689(line=108, offs=18) -- 2723(line=108, offs=52) +*/ +ATSINSmove(tmp123, ATSPMVbool_false()) ; +} /* ATSendif */ +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2689(line=108, offs=18) -- 2723(line=108, offs=52) +*/ +ATSif( +tmp123 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2689(line=108, offs=18) -- 2723(line=108, offs=52) +*/ +ATSINSmove(tmp122, ATSLIB_056_prelude__neq_g1int_int__63__1(arg0, arg1)) ; + +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2689(line=108, offs=18) -- 2723(line=108, offs=52) +*/ +ATSINSmove(tmp122, ATSPMVbool_false()) ; +} /* ATSendif */ +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2686(line=108, offs=15) -- 2825(line=111, offs=31) +*/ +ATSif( +tmp122 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2751(line=109, offs=23) -- 2756(line=109, offs=28) +*/ +ATSINSmove(tmp134, atspre_g1int_add_int(arg0, ATSPMVi0nt(1))) ; + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2746(line=109, offs=18) -- 2760(line=109, offs=32) +*/ +ATSINSmove(tmp133, loop_59(tmp134, arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2746(line=109, offs=18) -- 2764(line=109, offs=36) +*/ +ATSINSmove(tmp132, atspre_g0int_div_int(tmp133, arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2769(line=109, offs=41) -- 2774(line=109, offs=46) +*/ +ATSINSmove(tmp135, atspre_g1int_sub_int(arg0, ATSPMVi0nt(1))) ; + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2745(line=109, offs=17) -- 2775(line=109, offs=47) +*/ +ATSINSmove(tmpret117, atspre_g0int_mul_int(tmp132, tmp135)) ; + +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2816(line=111, offs=22) -- 2821(line=111, offs=27) +*/ +ATSINSmove(tmp136, atspre_g1int_add_int(arg0, ATSPMVi0nt(1))) ; + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2811(line=111, offs=17) -- 2825(line=111, offs=31) +*/ +ATStailcal_beg() +ATSINSmove_tlcal(apy0, tmp136) ; +ATSINSmove_tlcal(apy1, arg1) ; +ATSINSargmove_tlcal(arg0, apy0) ; +ATSINSargmove_tlcal(arg1, apy1) ; +ATSINSfgoto(__patsflab_loop_59) ; +ATStailcal_end() + +} /* ATSendif */ +} /* ATSendif */ +ATSfunbody_end() +ATSreturn(tmpret117) ; +/* +emit_funent_fnxbodylst: +*/ +} /* end of [loop_59] */ + +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 12757(line=663, offs=3) -- 12797(line=663, offs=43) +*/ +/* +local: +global: gte_g1int_int$35$5(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4706) +tmparg = S2Evar(tk(4706)) +tmpsub = Some(tk(4706) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__gte_g1int_int__35__5(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret59__5, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp60__5, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12741(line=662, offs=1) -- 12797(line=663, offs=43) +*/ +ATSINSflab(__patsflab_gte_g1int_int): +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12784(line=663, offs=30) -- 12795(line=663, offs=41) +*/ +ATSINSmove(tmp60__5, atspre_g1int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12766(line=663, offs=12) -- 12797(line=663, offs=43) +*/ +ATSINSmove(tmpret59__5, atspre_g1int_gte_int(arg0, tmp60__5)) ; + +ATSfunbody_end() +ATSreturn(tmpret59__5) ; +} /* end of [ATSLIB_056_prelude__gte_g1int_int__35__5] */ + +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) +*/ +/* +local: +global: eq_g0int_int$7$10(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4694) +tmparg = S2Evar(tk(4694)) +tmpsub = Some(tk(4694) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__7__10(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret9__10, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp10__10, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) +*/ +ATSINSflab(__patsflab_eq_g0int_int): +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) +*/ +ATSINSmove(tmp10__10, atspre_g0int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) +*/ +ATSINSmove(tmpret9__10, atspre_g0int_eq_int(arg0, tmp10__10)) ; + +ATSfunbody_end() +ATSreturn(tmpret9__10) ; +} /* end of [ATSLIB_056_prelude__eq_g0int_int__7__10] */ + +#if(0) +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 12916(line=672, offs=3) -- 12956(line=672, offs=43) +*/ +/* +local: +global: neq_g1int_int$63$0(level=0) +local: +global: +*/ +ATSextern() +/* +imparg = tk(4712) +tmparg = S2Evar(tk(4712)) +tmpsub = None() +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__neq_g1int_int__63(atstkind_t0ype(atstyvar_type(tk)) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret128, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp129, atstkind_t0ype(atstyvar_type(tk))) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12900(line=671, offs=1) -- 12956(line=672, offs=43) +*/ +ATSINSflab(__patsflab_neq_g1int_int): +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12943(line=672, offs=30) -- 12954(line=672, offs=41) +*/ +ATSINSmove(tmp129, PMVtmpltcst(g1int2int)(arg1)) ; + +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12925(line=672, offs=12) -- 12956(line=672, offs=43) +*/ +ATSINSmove(tmpret128, PMVtmpltcst(g1int_neq)(arg0, tmp129)) ; + +ATSfunbody_end() +ATSreturn(tmpret128) ; +} /* end of [ATSLIB_056_prelude__neq_g1int_int__63] */ +#endif // end of [TEMPLATE] + +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 12916(line=672, offs=3) -- 12956(line=672, offs=43) +*/ +/* +local: +global: neq_g1int_int$63$1(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4712) +tmparg = S2Evar(tk(4712)) +tmpsub = Some(tk(4712) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__neq_g1int_int__63__1(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret128__1, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp129__1, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12900(line=671, offs=1) -- 12956(line=672, offs=43) +*/ +ATSINSflab(__patsflab_neq_g1int_int): +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12943(line=672, offs=30) -- 12954(line=672, offs=41) +*/ +ATSINSmove(tmp129__1, atspre_g1int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12925(line=672, offs=12) -- 12956(line=672, offs=43) +*/ +ATSINSmove(tmpret128__1, atspre_g1int_neq_int(arg0, tmp129__1)) ; + +ATSfunbody_end() +ATSreturn(tmpret128__1) ; +} /* end of [ATSLIB_056_prelude__neq_g1int_int__63__1] */ + +/* +/home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2932(line=118, offs=5) -- 3320(line=132, offs=6) +*/ +/* +local: witness_12$0(level=0), totient_58$0(level=0) +global: witness_12$0(level=0), sqrt_int_13$0(level=0), is_prime_16$0(level=0), totient_58$0(level=0), totient_sum_66$0(level=0) +local: +global: +*/ +ATSstatic() +atstkind_type(atstype_ptrk) +totient_sum_66(atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret137, atstkind_type(atstype_ptrk)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2932(line=118, offs=5) -- 3320(line=132, offs=6) +*/ +ATSINSflab(__patsflab_totient_sum_66): +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2972(line=119, offs=3) -- 3320(line=132, offs=6) +*/ +/* +letpush(beg) +*/ +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 3304(line=131, offs=5) -- 3314(line=131, offs=15) +*/ +ATSINSmove(tmpret137, loop_67(ATSPMVi0nt(1), arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2972(line=119, offs=3) -- 3320(line=132, offs=6) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret137) ; +} /* end of [totient_sum_66] */ + +/* +/home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2984(line=120, offs=9) -- 3294(line=129, offs=40) +*/ +/* +local: witness_12$0(level=0), totient_58$0(level=0), loop_67$0(level=1) +global: witness_12$0(level=0), totient_58$0(level=0), loop_67$0(level=1) +local: +global: +*/ +ATSstatic() +atstkind_type(atstype_ptrk) +loop_67(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(tmpret138, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp139, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp142, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp143, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp148, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp149, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp158, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp159, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +/* +emit_funent_fnxdeclst: +*/ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 2984(line=120, offs=9) -- 3294(line=129, offs=40) +*/ +ATSINSflab(__patsflab_loop_67): +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 3087(line=121, offs=10) -- 3096(line=121, offs=19) +*/ +ATSINSmove(tmp139, ATSLIB_056_prelude__lt_g1int_int__18__2(arg0, arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 3084(line=121, offs=7) -- 3294(line=129, offs=40) +*/ +ATSif( +tmp139 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 3110(line=122, offs=9) -- 3243(line=127, offs=12) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 3137(line=123, offs=24) -- 3142(line=123, offs=29) +*/ +ATSINSmove(tmp143, atspre_g1int_add_int(arg0, ATSPMVi0nt(1))) ; + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 3132(line=123, offs=19) -- 3150(line=123, offs=37) +*/ +ATSINSmove(tmp142, loop_67(tmp143, arg1)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 3196(line=124, offs=46) -- 3205(line=124, offs=55) +*/ +ATSINSmove(tmp149, totient_58(arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 3188(line=124, offs=38) -- 3207(line=124, offs=57) +*/ +ATSINSmove(tmp148, witness_12(tmp149)) ; + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 3169(line=124, offs=19) -- 3208(line=124, offs=58) +*/ +ATSINSmove(tmpret138, ATSCNTRB_056_HX_056_intinf_vt__add_intinf0_int__69__1(tmp142, tmp148)) ; + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 3110(line=122, offs=9) -- 3243(line=127, offs=12) +*/ +/* +INSletpop() +*/ +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 3263(line=129, offs=9) -- 3294(line=129, offs=40) +*/ +ATSINSmove(tmp159, totient_58(arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 3263(line=129, offs=9) -- 3294(line=129, offs=40) +*/ +ATSINSmove(tmp158, witness_12(tmp159)) ; + +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory.dats: 3263(line=129, offs=9) -- 3294(line=129, offs=40) +*/ +ATSINSmove(tmpret138, ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__71__1(tmp158)) ; + +} /* ATSendif */ +ATSfunbody_end() +ATSreturn(tmpret138) ; +/* +emit_funent_fnxbodylst: +*/ +} /* end of [loop_67] */ + +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats: 12520(line=650, offs=3) -- 12559(line=650, offs=42) +*/ +/* +local: +global: lt_g1int_int$18$2(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4697) +tmparg = S2Evar(tk(4697)) +tmpsub = Some(tk(4697) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__lt_g1int_int__18__2(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret24__2, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp25__2, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12505(line=649, offs=1) -- 12559(line=650, offs=42) +*/ +ATSINSflab(__patsflab_lt_g1int_int): +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12546(line=650, offs=29) -- 12557(line=650, offs=40) +*/ +ATSINSmove(tmp25__2, atspre_g1int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12529(line=650, offs=12) -- 12559(line=650, offs=42) +*/ +ATSINSmove(tmpret24__2, atspre_g1int_lt_int(arg0, tmp25__2)) ; + +ATSfunbody_end() +ATSreturn(tmpret24__2) ; +} /* end of [ATSLIB_056_prelude__lt_g1int_int__18__2] */ + +#if(0) +/* +/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5151(line=274, offs=3) -- 5217(line=279, offs=2) +*/ +/* +local: +global: add_intinf0_int$69$0(level=0) +local: +global: +*/ +ATSextern() +/* +imparg = +tmparg = +tmpsub = None() +*/ +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__add_intinf0_int__69(atstkind_type(atstype_ptrk) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret144, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp145) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5133(line=273, offs=1) -- 5217(line=279, offs=2) +*/ +ATSINSflab(__patsflab_add_intinf0_int): +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5160(line=274, offs=12) -- 5217(line=279, offs=2) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5184(line=277, offs=10) -- 5212(line=277, offs=38) +*/ +ATSINSmove_void(tmp145, atscntrb_gmp_mpz_add2_int(ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), arg1)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5161(line=274, offs=13) -- 5162(line=274, offs=14) +*/ +ATSINSmove(tmpret144, arg0) ; +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5160(line=274, offs=12) -- 5217(line=279, offs=2) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret144) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__add_intinf0_int__69] */ +#endif // end of [TEMPLATE] + +/* +/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5151(line=274, offs=3) -- 5217(line=279, offs=2) +*/ +/* +local: +global: add_intinf0_int$69$1(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = +tmparg = +tmpsub = Some() +*/ +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__add_intinf0_int__69__1(atstkind_type(atstype_ptrk) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret144__1, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp145__1) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5133(line=273, offs=1) -- 5217(line=279, offs=2) +*/ +ATSINSflab(__patsflab_add_intinf0_int): +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5160(line=274, offs=12) -- 5217(line=279, offs=2) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5184(line=277, offs=10) -- 5212(line=277, offs=38) +*/ +ATSINSmove_void(tmp145__1, atscntrb_gmp_mpz_add2_int(ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), arg1)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5161(line=274, offs=13) -- 5162(line=274, offs=14) +*/ +ATSINSmove(tmpret144__1, arg0) ; +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5160(line=274, offs=12) -- 5217(line=279, offs=2) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret144__1) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__add_intinf0_int__69__1] */ + +#if(0) +/* +/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2209(line=74, offs=3) -- 2301(line=80, offs=2) +*/ +/* +local: +global: intinf_make_int$71$0(level=0) +local: +global: +*/ +ATSextern() +/* +imparg = +tmparg = +tmpsub = None() +*/ +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__71(atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret150, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp151, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp152) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2191(line=73, offs=1) -- 2301(line=80, offs=2) +*/ +ATSINSflab(__patsflab_intinf_make_int): +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2238(line=77, offs=9) -- 2254(line=77, offs=25) +*/ +ATSINSmove(tmp151, PMVtmpltcst(ptr_alloc)()) ; + +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2264(line=78, offs=10) -- 2296(line=78, offs=42) +*/ +ATSINSmove_void(tmp152, atscntrb_gmp_mpz_init_set_int(ATSPMVrefarg1(ATSSELrecsin(tmp151, atstkind_type(atstype_ptrk), atslab__2)), arg0)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2216(line=74, offs=10) -- 2217(line=74, offs=11) +*/ +ATSINSmove(tmpret150, tmp151) ; +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret150) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__71] */ +#endif // end of [TEMPLATE] + +/* +/usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2209(line=74, offs=3) -- 2301(line=80, offs=2) +*/ +/* +local: +global: intinf_make_int$71$1(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = +tmparg = +tmpsub = Some() +*/ +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__71__1(atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret150__1, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp151__1, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp152__1) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2191(line=73, offs=1) -- 2301(line=80, offs=2) +*/ +ATSINSflab(__patsflab_intinf_make_int): +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2238(line=77, offs=9) -- 2254(line=77, offs=25) +*/ +ATSINSmove(tmp151__1, ATSLIB_056_prelude__ptr_alloc__73__1()) ; + +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2264(line=78, offs=10) -- 2296(line=78, offs=42) +*/ +ATSINSmove_void(tmp152__1, atscntrb_gmp_mpz_init_set_int(ATSPMVrefarg1(ATSSELrecsin(tmp151__1, atstkind_type(atstype_ptrk), atslab__2)), arg0)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2216(line=74, offs=10) -- 2217(line=74, offs=11) +*/ +ATSINSmove(tmpret150__1, tmp151__1) ; +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret150__1) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__71__1] */ + +#if(0) +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42) +*/ +/* +local: +global: ptr_alloc$73$0(level=0) +local: +global: +*/ +ATSextern() +/* +imparg = a(4806) +tmparg = S2Evar(a(4806)) +tmpsub = None() +*/ +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__73() +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret156, atstkind_type(atstype_ptrk)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3708(line=184, offs=1) -- 3749(line=184, offs=42) +*/ +ATSINSflab(__patsflab_ptr_alloc): +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42) +*/ +ATSINSmove(tmpret156, atspre_ptr_alloc_tsz(ATSPMVsizeof(atstyvar_type(a)))) ; + +ATSfunbody_end() +ATSreturn(tmpret156) ; +} /* end of [ATSLIB_056_prelude__ptr_alloc__73] */ +#endif // end of [TEMPLATE] + +/* +/usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42) +*/ +/* +local: +global: ptr_alloc$73$1(level=3) +local: +global: +*/ +ATSstatic() +/* +imparg = a(4806) +tmparg = S2Evar(a(4806)) +tmpsub = Some(a(4806) -> S2Ecst(mpz_vt0ype)) +*/ +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__73__1() +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret156__1, atstkind_type(atstype_ptrk)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3708(line=184, offs=1) -- 3749(line=184, offs=42) +*/ +ATSINSflab(__patsflab_ptr_alloc): +/* +emit_instr: loc0 = /usr/local/lib/ats2-postiats-0.3.8/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42) +*/ +ATSINSmove(tmpret156__1, atspre_ptr_alloc_tsz(ATSPMVsizeof(atscntrb_gmp_mpz))) ; + +ATSfunbody_end() +ATSreturn(tmpret156__1) ; +} /* end of [ATSLIB_056_prelude__ptr_alloc__73__1] */ + +/* +/home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory-ffi.dats: 482(line=26, offs=19) -- 502(line=27, offs=12) +*/ +/* +local: gcd_29$0(level=0) +global: witness_12$0(level=0), gcd_29$0(level=0), gcd_ats$75$0(level=0) +local: +global: +*/ +ATSextern() +atstkind_t0ype(atstype_int) +gcd_ats(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret160, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory-ffi.dats: 474(line=26, offs=11) -- 502(line=27, offs=12) +*/ +ATSINSflab(__patsflab_gcd_ats): +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory-ffi.dats: 493(line=27, offs=3) -- 502(line=27, offs=12) +*/ +ATSINSmove(tmpret160, gcd_29(arg0, arg1)) ; + +ATSfunbody_end() +ATSreturn(tmpret160) ; +} /* end of [gcd_ats] */ + +/* +/home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory-ffi.dats: 533(line=29, offs=30) -- 557(line=30, offs=19) +*/ +/* +local: count_divisors_43$0(level=0) +global: count_divisors_43$0(level=0), count_divisors_ats$76$0(level=0) +local: +global: +*/ +ATSextern() +atstkind_t0ype(atstype_int) +count_divisors_ats(atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret161, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory-ffi.dats: 514(line=29, offs=11) -- 558(line=30, offs=20) +*/ +ATSINSflab(__patsflab_count_divisors_ats): +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory-ffi.dats: 541(line=30, offs=3) -- 557(line=30, offs=19) +*/ +ATSINSmove(tmpret161, count_divisors_43(arg0)) ; + +ATSfunbody_end() +ATSreturn(tmpret161) ; +} /* end of [count_divisors_ats] */ + +/* +/home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory-ffi.dats: 582(line=32, offs=23) -- 599(line=33, offs=12) +*/ +/* +local: totient_58$0(level=0) +global: witness_12$0(level=0), sqrt_int_13$0(level=0), is_prime_16$0(level=0), totient_58$0(level=0), totient_ats$77$0(level=0) +local: +global: +*/ +ATSextern() +atstkind_t0ype(atstype_int) +totient_ats(atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret162, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory-ffi.dats: 570(line=32, offs=11) -- 600(line=33, offs=13) +*/ +ATSINSflab(__patsflab_totient_ats): +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory-ffi.dats: 590(line=33, offs=3) -- 599(line=33, offs=12) +*/ +ATSINSmove(tmpret162, totient_58(arg0)) ; + +ATSfunbody_end() +ATSreturn(tmpret162) ; +} /* end of [totient_ats] */ + +/* +/home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory-ffi.dats: 629(line=35, offs=28) -- 651(line=36, offs=17) +*/ +/* +local: little_omega_54$0(level=0) +global: witness_12$0(level=0), sqrt_int_13$0(level=0), is_prime_16$0(level=0), little_omega_54$0(level=0), little_omega_ats$78$0(level=0) +local: +global: +*/ +ATSextern() +atstkind_t0ype(atstype_int) +little_omega_ats(atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret163, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory-ffi.dats: 612(line=35, offs=11) -- 652(line=36, offs=18) +*/ +ATSINSflab(__patsflab_little_omega_ats): +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory-ffi.dats: 637(line=36, offs=3) -- 651(line=36, offs=17) +*/ +ATSINSmove(tmpret163, little_omega_54(arg0)) ; + +ATSfunbody_end() +ATSreturn(tmpret163) ; +} /* end of [little_omega_ats] */ + +/* +/home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory-ffi.dats: 679(line=38, offs=26) -- 699(line=39, offs=15) +*/ +/* +local: is_perfect_52$0(level=0) +global: sum_divisors_48$0(level=0), is_perfect_52$0(level=0), is_perfect_ats$79$0(level=0) +local: +global: +*/ +ATSextern() +atstkind_t0ype(atstype_bool) +is_perfect_ats(atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret164, atstkind_t0ype(atstype_bool)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory-ffi.dats: 664(line=38, offs=11) -- 700(line=39, offs=16) +*/ +ATSINSflab(__patsflab_is_perfect_ats): +/* +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/number-theory-ffi.dats: 687(line=39, offs=3) -- 699(line=39, offs=15) +*/ +ATSINSmove(tmpret164, is_perfect_52(arg0)) ; + +ATSfunbody_end() +ATSreturn(tmpret164) ; +} /* end of [is_perfect_ats] */ + +/* +** for initialization(dynloading) +*/ +ATSdynloadflag_minit(_057_home_057_vanessa_057_programming_057_haskell_057_done_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_055_ffi_056_dats__dynloadflag) ; +ATSextern() +atsvoid_t0ype +_057_home_057_vanessa_057_programming_057_haskell_057_done_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_055_ffi_056_dats__dynload() +{ +ATSfunbody_beg() +ATSdynload(/*void*/) +ATSdynloadflag_sta( +_057_home_057_vanessa_057_programming_057_haskell_057_done_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_055_ffi_056_dats__dynloadflag +) ; +ATSif( +ATSCKiseqz( +_057_home_057_vanessa_057_programming_057_haskell_057_done_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_055_ffi_056_dats__dynloadflag +) +) ATSthen() { +ATSdynloadset(_057_home_057_vanessa_057_programming_057_haskell_057_done_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_055_ffi_056_dats__dynloadflag) ; +/* +dynexnlst-initize(beg) +*/ +/* +dynexnlst-initize(end) +*/ +/* local */ +/* in of [local] */ /* end of [local] */ } /* ATSendif */ ATSfunbody_end() diff --git a/cbits/numerics.c b/cbits/numerics.c --- a/cbits/numerics.c +++ b/cbits/numerics.c @@ -1,7 +1,7 @@ /* ** ** The C code is generated by [ATS/Postiats-0-3-8] -** The starting compilation time is: 2018-1-4: 9h: 8m +** The starting compilation time is: 2018-1-6: 1h:14m ** */ @@ -405,7 +405,7 @@ #endif // end of [QUALIFIED] /* -/home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 220(line=9, offs=5) -- 581(line=26, offs=10) +/home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 220(line=9, offs=5) -- 581(line=26, offs=10) */ /* local: exp_0$0(level=0) @@ -431,11 +431,11 @@ /* tmpvardeclst(end) */ ATSfunbody_beg() /* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 220(line=9, offs=5) -- 581(line=26, offs=10) +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 220(line=9, offs=5) -- 581(line=26, offs=10) */ ATSINSflab(__patsflab_exp_0): /* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 274(line=10, offs=3) -- 581(line=26, offs=10) +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 274(line=10, offs=3) -- 581(line=26, offs=10) */ ATScaseof_beg() /* @@ -443,15 +443,15 @@ */ ATSbranch_beg() /* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 291(line=11, offs=7) -- 292(line=11, offs=8) +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 291(line=11, offs=7) -- 292(line=11, offs=8) */ ATSINSlab(__atstmplab0): /* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 241(line=9, offs=26) -- 242(line=9, offs=27) +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 241(line=9, offs=26) -- 242(line=9, offs=27) */ ATSifnthen(ATSCKpat_int(arg0, ATSPMVint(0))) { ATSINSgoto(__atstmplab2) ; } ; /* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 292(line=11, offs=8) -- 292(line=11, offs=8) +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 292(line=11, offs=8) -- 292(line=11, offs=8) */ ATSINSlab(__atstmplab1): /* @@ -461,14 +461,14 @@ ibranch-mbody: */ /* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 296(line=11, offs=12) -- 297(line=11, offs=13) +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 296(line=11, offs=12) -- 297(line=11, offs=13) */ ATSINSmove(tmpret0, ATSPMVi0nt(0)) ; ATSbranch_end() ATSbranch_beg() /* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 305(line=12, offs=8) -- 305(line=12, offs=8) +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 305(line=12, offs=8) -- 305(line=12, offs=8) */ ATSINSlab(__atstmplab2): /* @@ -478,41 +478,41 @@ ibranch-mbody: */ /* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 333(line=14, offs=12) -- 338(line=14, offs=17) +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 333(line=14, offs=12) -- 338(line=14, offs=17) */ ATSINSmove(tmp1, ATSLIB_056_prelude__gt_g1int_int__1__1(arg1, ATSPMVi0nt(0))) ; /* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 330(line=14, offs=9) -- 571(line=25, offs=12) +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 330(line=14, offs=9) -- 571(line=25, offs=12) */ ATSif( tmp1 ) ATSthen() { /* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 354(line=15, offs=11) -- 546(line=23, offs=14) +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 354(line=15, offs=11) -- 546(line=23, offs=14) */ /* letpush(beg) */ /* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 374(line=16, offs=17) -- 376(line=16, offs=19) +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 374(line=16, offs=17) -- 376(line=16, offs=19) */ /* ATSINStmpdec(tmpref6) ; */ /* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 379(line=16, offs=22) -- 385(line=16, offs=28) +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 379(line=16, offs=22) -- 385(line=16, offs=28) */ ATSINSmove(tmpref6, atspre_g1int_half_int(arg1)) ; /* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 403(line=17, offs=17) -- 405(line=17, offs=19) +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 403(line=17, offs=17) -- 405(line=17, offs=19) */ /* ATSINStmpdec(tmpref7) ; */ /* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 408(line=17, offs=22) -- 413(line=17, offs=27) +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 408(line=17, offs=22) -- 413(line=17, offs=27) */ ATSINSmove(tmpref7, atspre_g0int_mod_int(arg1, ATSPMVi0nt(2))) ; @@ -521,23 +521,23 @@ */ /* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 442(line=19, offs=16) -- 448(line=19, offs=22) +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 442(line=19, offs=16) -- 448(line=19, offs=22) */ ATSINSmove(tmp8, ATSLIB_056_prelude__eq_g0int_int__7__1(tmpref7, ATSPMVi0nt(0))) ; /* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 439(line=19, offs=13) -- 532(line=22, offs=33) +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 439(line=19, offs=13) -- 532(line=22, offs=33) */ ATSif( tmp8 ) ATSthen() { /* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 472(line=20, offs=19) -- 477(line=20, offs=24) +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 472(line=20, offs=19) -- 477(line=20, offs=24) */ ATSINSmove(tmp13, atspre_g0int_mul_int(arg0, arg0)) ; /* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 468(line=20, offs=15) -- 482(line=20, offs=29) +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 468(line=20, offs=15) -- 482(line=20, offs=29) */ ATStailcal_beg() ATSINSmove_tlcal(apy0, tmp13) ; @@ -549,30 +549,30 @@ } ATSelse() { /* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 522(line=22, offs=23) -- 527(line=22, offs=28) +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 522(line=22, offs=23) -- 527(line=22, offs=28) */ ATSINSmove(tmp15, atspre_g0int_mul_int(arg0, arg0)) ; /* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 518(line=22, offs=19) -- 532(line=22, offs=33) +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 518(line=22, offs=19) -- 532(line=22, offs=33) */ ATSINSmove(tmp14, exp_0(tmp15, tmpref6)) ; /* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 514(line=22, offs=15) -- 532(line=22, offs=33) +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 514(line=22, offs=15) -- 532(line=22, offs=33) */ ATSINSmove(tmpret0, atspre_g0int_mul_int(arg0, tmp14)) ; } /* ATSendif */ /* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 354(line=15, offs=11) -- 546(line=23, offs=14) +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 354(line=15, offs=11) -- 546(line=23, offs=14) */ /* INSletpop() */ } ATSelse() { /* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 570(line=25, offs=11) -- 571(line=25, offs=12) +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 570(line=25, offs=11) -- 571(line=25, offs=12) */ ATSINSmove(tmpret0, ATSPMVi0nt(1)) ; } /* ATSendif */ @@ -756,7 +756,7 @@ } /* end of [ATSLIB_056_prelude__eq_g0int_int__7__1] */ /* -/home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 586(line=28, offs=4) -- 641(line=29, offs=14) +/home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 586(line=28, offs=4) -- 641(line=29, offs=14) */ /* local: @@ -773,11 +773,11 @@ /* tmpvardeclst(end) */ ATSfunbody_beg() /* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 586(line=28, offs=4) -- 641(line=29, offs=14) +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 586(line=28, offs=4) -- 641(line=29, offs=14) */ ATSINSflab(__patsflab_witness_12): /* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 630(line=29, offs=3) -- 640(line=29, offs=13) +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 630(line=29, offs=3) -- 640(line=29, offs=13) */ ATSINSmove(tmpret16, ATSPMVcastfn(cast, atstkind_t0ype(atstype_int), arg0)) ; ATSfunbody_end() @@ -785,7 +785,7 @@ } /* end of [witness_12] */ /* -/home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 646(line=31, offs=4) -- 790(line=36, offs=6) +/home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 646(line=31, offs=4) -- 790(line=36, offs=6) */ /* local: witness_12$0(level=0) @@ -805,33 +805,33 @@ /* tmpvardeclst(end) */ ATSfunbody_beg() /* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 646(line=31, offs=4) -- 790(line=36, offs=6) +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 646(line=31, offs=4) -- 790(line=36, offs=6) */ ATSINSflab(__patsflab_sqrt_int_13): /* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 696(line=32, offs=3) -- 790(line=36, offs=6) +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 696(line=32, offs=3) -- 790(line=36, offs=6) */ /* letpush(beg) */ /* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 708(line=33, offs=9) -- 713(line=33, offs=14) +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 708(line=33, offs=9) -- 713(line=33, offs=14) */ /* ATSINStmpdec(tmpref18) ; */ /* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 744(line=33, offs=45) -- 757(line=33, offs=58) +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 744(line=33, offs=45) -- 757(line=33, offs=58) */ ATSINSmove(tmp20, atspre_g0int2float_int_float(arg0)) ; /* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 733(line=33, offs=34) -- 759(line=33, offs=60) +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 733(line=33, offs=34) -- 759(line=33, offs=60) */ ATSINSmove(tmp19, atslib_libats_libc_sqrt_float(tmp20)) ; /* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 721(line=33, offs=22) -- 760(line=33, offs=61) +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 721(line=33, offs=22) -- 760(line=33, offs=61) */ ATSINSmove(tmpref18, atspre_g0float2int_float_int(tmp19)) ; @@ -840,12 +840,12 @@ */ /* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 770(line=35, offs=5) -- 783(line=35, offs=18) +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 770(line=35, offs=5) -- 783(line=35, offs=18) */ ATSINSmove(tmpret17, witness_12(tmpref18)) ; /* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 696(line=32, offs=3) -- 790(line=36, offs=6) +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 696(line=32, offs=3) -- 790(line=36, offs=6) */ /* INSletpop() @@ -855,7 +855,7 @@ } /* end of [sqrt_int_13] */ /* -/home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 826(line=39, offs=4) -- 1411(line=62, offs=10) +/home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 826(line=39, offs=4) -- 1411(line=62, offs=10) */ /* local: sqrt_int_13$0(level=0) @@ -873,11 +873,11 @@ /* tmpvardeclst(end) */ ATSfunbody_beg() /* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 826(line=39, offs=4) -- 1411(line=62, offs=10) +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 826(line=39, offs=4) -- 1411(line=62, offs=10) */ ATSINSflab(__patsflab_is_prime_16): /* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 862(line=40, offs=3) -- 1411(line=62, offs=10) +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 862(line=40, offs=3) -- 1411(line=62, offs=10) */ ATScaseof_beg() /* @@ -885,15 +885,15 @@ */ ATSbranch_beg() /* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 879(line=41, offs=7) -- 880(line=41, offs=8) +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 879(line=41, offs=7) -- 880(line=41, offs=8) */ ATSINSlab(__atstmplab3): /* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 835(line=39, offs=13) -- 836(line=39, offs=14) +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 835(line=39, offs=13) -- 836(line=39, offs=14) */ ATSifnthen(ATSCKpat_int(arg0, ATSPMVint(1))) { ATSINSgoto(__atstmplab5) ; } ; /* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 880(line=41, offs=8) -- 880(line=41, offs=8) +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 880(line=41, offs=8) -- 880(line=41, offs=8) */ ATSINSlab(__atstmplab4): /* @@ -903,14 +903,14 @@ ibranch-mbody: */ /* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 884(line=41, offs=12) -- 889(line=41, offs=17) +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 884(line=41, offs=12) -- 889(line=41, offs=17) */ ATSINSmove(tmpret21, ATSPMVbool_false()) ; ATSbranch_end() ATSbranch_beg() /* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 897(line=42, offs=8) -- 897(line=42, offs=8) +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 897(line=42, offs=8) -- 897(line=42, offs=8) */ ATSINSlab(__atstmplab5): /* @@ -920,7 +920,7 @@ ibranch-mbody: */ /* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 922(line=44, offs=9) -- 1401(line=61, offs=12) +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 922(line=44, offs=9) -- 1401(line=61, offs=12) */ /* letpush(beg) @@ -930,17 +930,17 @@ */ /* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 1377(line=60, offs=19) -- 1387(line=60, offs=29) +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 1377(line=60, offs=19) -- 1387(line=60, offs=29) */ ATSINSmove(tmp42, sqrt_int_13(arg0)) ; /* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 1369(line=60, offs=11) -- 1389(line=60, offs=31) +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 1369(line=60, offs=11) -- 1389(line=60, offs=31) */ ATSINSmove(tmpret21, loop_17(arg0, ATSPMVi0nt(2), tmp42)) ; /* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 922(line=44, offs=9) -- 1401(line=61, offs=12) +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 922(line=44, offs=9) -- 1401(line=61, offs=12) */ /* INSletpop() @@ -957,7 +957,7 @@ } /* end of [is_prime_16] */ /* -/home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 940(line=45, offs=15) -- 1347(line=58, offs=21) +/home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 940(line=45, offs=15) -- 1347(line=58, offs=21) */ /* local: loop_17$0(level=1) @@ -986,48 +986,48 @@ */ ATSfunbody_beg() /* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 940(line=45, offs=15) -- 1347(line=58, offs=21) +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 940(line=45, offs=15) -- 1347(line=58, offs=21) */ ATSINSflab(__patsflab_loop_17): /* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 1034(line=46, offs=16) -- 1043(line=46, offs=25) +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 1034(line=46, offs=16) -- 1043(line=46, offs=25) */ ATSINSmove(tmp23, ATSLIB_056_prelude__lt_g1int_int__18__1(arg0, arg1)) ; /* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 1031(line=46, offs=13) -- 1347(line=58, offs=21) +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 1031(line=46, offs=13) -- 1347(line=58, offs=21) */ ATSif( tmp23 ) ATSthen() { /* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 1066(line=47, offs=18) -- 1071(line=47, offs=23) +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 1066(line=47, offs=18) -- 1071(line=47, offs=23) */ ATSINSmove(tmp31, atspre_g0int_mod_int(env0, arg0)) ; /* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 1066(line=47, offs=18) -- 1075(line=47, offs=27) +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 1066(line=47, offs=18) -- 1075(line=47, offs=27) */ ATSINSmove(tmp28, ATSLIB_056_prelude__eq_g0int_int__7__2(tmp31, ATSPMVi0nt(0))) ; /* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 1063(line=47, offs=15) -- 1156(line=50, offs=35) +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 1063(line=47, offs=15) -- 1156(line=50, offs=35) */ ATSif( tmp28 ) ATSthen() { /* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 1097(line=48, offs=17) -- 1102(line=48, offs=22) +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 1097(line=48, offs=17) -- 1102(line=48, offs=22) */ ATSINSmove(tmpret22, ATSPMVbool_false()) ; } ATSelse() { /* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 1143(line=50, offs=22) -- 1148(line=50, offs=27) +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 1143(line=50, offs=22) -- 1148(line=50, offs=27) */ ATSINSmove(tmp32, atspre_g1int_add_int(arg0, ATSPMVi0nt(1))) ; /* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 1138(line=50, offs=17) -- 1156(line=50, offs=35) +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 1138(line=50, offs=17) -- 1156(line=50, offs=35) */ ATStailcal_beg() ATSINSmove_tlcal(apy0, tmp32) ; @@ -1040,45 +1040,45 @@ } /* ATSendif */ } ATSelse() { /* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 1191(line=52, offs=18) -- 1200(line=52, offs=27) +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 1191(line=52, offs=18) -- 1200(line=52, offs=27) */ ATSINSmove(tmp33, ATSLIB_056_prelude__eq_g1int_int__23__1(arg0, arg1)) ; /* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 1188(line=52, offs=15) -- 1347(line=58, offs=21) +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 1188(line=52, offs=15) -- 1347(line=58, offs=21) */ ATSif( tmp33 ) ATSthen() { /* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 1225(line=53, offs=20) -- 1230(line=53, offs=25) +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 1225(line=53, offs=20) -- 1230(line=53, offs=25) */ ATSINSmove(tmp41, atspre_g0int_mod_int(env0, arg0)) ; /* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 1225(line=53, offs=20) -- 1234(line=53, offs=29) +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 1225(line=53, offs=20) -- 1234(line=53, offs=29) */ ATSINSmove(tmp38, ATSLIB_056_prelude__eq_g0int_int__7__3(tmp41, ATSPMVi0nt(0))) ; /* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 1222(line=53, offs=17) -- 1307(line=56, offs=23) +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 1222(line=53, offs=17) -- 1307(line=56, offs=23) */ ATSif( tmp38 ) ATSthen() { /* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 1258(line=54, offs=19) -- 1263(line=54, offs=24) +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 1258(line=54, offs=19) -- 1263(line=54, offs=24) */ ATSINSmove(tmpret22, ATSPMVbool_false()) ; } ATSelse() { /* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 1303(line=56, offs=19) -- 1307(line=56, offs=23) +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 1303(line=56, offs=19) -- 1307(line=56, offs=23) */ ATSINSmove(tmpret22, ATSPMVbool_true()) ; } /* ATSendif */ } ATSelse() { /* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics.dats: 1343(line=58, offs=17) -- 1347(line=58, offs=21) +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics.dats: 1343(line=58, offs=17) -- 1347(line=58, offs=21) */ ATSINSmove(tmpret22, ATSPMVbool_true()) ; } /* ATSendif */ @@ -1341,7 +1341,7 @@ } /* end of [ATSLIB_056_prelude__eq_g0int_int__7__3] */ /* -/home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics-ffi.dats: 338(line=18, offs=24) -- 356(line=19, offs=13) +/home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics-ffi.dats: 338(line=18, offs=24) -- 356(line=19, offs=13) */ /* local: is_prime_16$0(level=0) @@ -1358,11 +1358,11 @@ /* tmpvardeclst(end) */ ATSfunbody_beg() /* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics-ffi.dats: 325(line=18, offs=11) -- 357(line=19, offs=14) +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics-ffi.dats: 325(line=18, offs=11) -- 357(line=19, offs=14) */ ATSINSflab(__patsflab_is_prime_ats): /* -emit_instr: loc0 = /home/vanessa/programming/haskell/current/fast-combinatorics/ats-src/numerics-ffi.dats: 346(line=19, offs=3) -- 356(line=19, offs=13) +emit_instr: loc0 = /home/vanessa/programming/haskell/done/fast-arithmetic/ats-src/numerics-ffi.dats: 346(line=19, offs=3) -- 356(line=19, offs=13) */ ATSINSmove(tmpret43, is_prime_16(arg0)) ; @@ -1373,22 +1373,22 @@ /* ** for initialization(dynloading) */ -ATSdynloadflag_minit(_057_home_057_vanessa_057_programming_057_haskell_057_current_057_fast_055_combinatorics_057_ats_055_src_057_numerics_055_ffi_056_dats__dynloadflag) ; +ATSdynloadflag_minit(_057_home_057_vanessa_057_programming_057_haskell_057_done_057_fast_055_arithmetic_057_ats_055_src_057_numerics_055_ffi_056_dats__dynloadflag) ; ATSextern() atsvoid_t0ype -_057_home_057_vanessa_057_programming_057_haskell_057_current_057_fast_055_combinatorics_057_ats_055_src_057_numerics_055_ffi_056_dats__dynload() +_057_home_057_vanessa_057_programming_057_haskell_057_done_057_fast_055_arithmetic_057_ats_055_src_057_numerics_055_ffi_056_dats__dynload() { ATSfunbody_beg() ATSdynload(/*void*/) ATSdynloadflag_sta( -_057_home_057_vanessa_057_programming_057_haskell_057_current_057_fast_055_combinatorics_057_ats_055_src_057_numerics_055_ffi_056_dats__dynloadflag +_057_home_057_vanessa_057_programming_057_haskell_057_done_057_fast_055_arithmetic_057_ats_055_src_057_numerics_055_ffi_056_dats__dynloadflag ) ; ATSif( ATSCKiseqz( -_057_home_057_vanessa_057_programming_057_haskell_057_current_057_fast_055_combinatorics_057_ats_055_src_057_numerics_055_ffi_056_dats__dynloadflag +_057_home_057_vanessa_057_programming_057_haskell_057_done_057_fast_055_arithmetic_057_ats_055_src_057_numerics_055_ffi_056_dats__dynloadflag ) ) ATSthen() { -ATSdynloadset(_057_home_057_vanessa_057_programming_057_haskell_057_current_057_fast_055_combinatorics_057_ats_055_src_057_numerics_055_ffi_056_dats__dynloadflag) ; +ATSdynloadset(_057_home_057_vanessa_057_programming_057_haskell_057_done_057_fast_055_arithmetic_057_ats_055_src_057_numerics_055_ffi_056_dats__dynloadflag) ; /* dynexnlst-initize(beg) */ diff --git a/fast-arithmetic.cabal b/fast-arithmetic.cabal --- a/fast-arithmetic.cabal +++ b/fast-arithmetic.cabal @@ -1,5 +1,5 @@ name: fast-arithmetic -version: 0.1.0.7 +version: 0.1.1.0 synopsis: Fast number-theoretic functions. description: Fast number-theoretic code with a high level of safety guaranteed by ATS. homepage: https://github.com/vmchale/fast-arithmetic#readme @@ -7,8 +7,8 @@ license-file: LICENSE author: Vanessa McHale maintainer: vamchale@gmail.com -copyright: Copyright: (c) 2017 Vanessa McHale -category: Numerics, Math, Algorithms, Number Theory +copyright: Copyright: (c) 2018 Vanessa McHale +category: Numerics, Math, Algorithms, Number Theory, Combinatorics build-type: Custom extra-source-files: ats-deps/prelude/ATS2-Postiats-include-0.3.8/ccomp/runtime/pats_ccomp_config.h , ats-src/*.dats @@ -38,6 +38,7 @@ library c-sources: cbits/numerics.c , cbits/number-theory.c + , cbits/combinatorics.c include-dirs: ats-deps/ , ats-deps/contrib , ats-deps/prelude/ATS2-Postiats-include-0.3.8/ccomp/runtime @@ -46,8 +47,10 @@ exposed-modules: Numeric.Pure , Numeric.Integer , Numeric.NumberTheory + , Numeric.Combinatorics other-modules: Numeric.Common build-depends: base >= 4.7 && < 5 + , composition-prelude default-language: Haskell2010 if flag(development) if impl(ghc >= 8.0) diff --git a/shake.hs b/shake.hs --- a/shake.hs +++ b/shake.hs @@ -40,6 +40,7 @@ "build" %> \_ -> do need ["shake.hs"] + cmd_ ["sn", "c"] cmd_ ["cp", "shake.hs", ".shake/shake.hs"] command_ [Cwd ".shake"] "ghc-8.2.2" ["-O", "shake.hs", "-o", "build", "-threaded", "-rtsopts", "-with-rtsopts=-I0 -qg -qb"] cmd ["cp", "-f", ".shake/build", "."] @@ -51,7 +52,7 @@ let sourceFile = replace ".dats" "-ffi.dats" sourcePlain need (("ats-src/" ++) <$> [sourceFile, sourcePlain]) (Exit c, Stderr err) <- command [EchoStderr False, AddEnv "PATSHOME" patshome] "patsopt" ["--output", out, "-dd", "ats-src/" ++ sourceFile, "-cc"] - cmd_ [Stdin err] Shell "pats-filter" + cmd_ [Stdin err] Shell "pats-filter" -- TODO automatically build compiler? if c /= ExitSuccess then error "patscc failure" else pure () diff --git a/src/Numeric/Combinatorics.hs b/src/Numeric/Combinatorics.hs new file mode 100644 --- /dev/null +++ b/src/Numeric/Combinatorics.hs @@ -0,0 +1,46 @@ +-- | This provides a few facilities for working with common combinatorial +-- functions. +module Numeric.Combinatorics ( factorial + , choose + ) where + +import Control.Composition +import Data.Word +import Foreign.C +import Foreign.Marshal.Array +import Foreign.Ptr +import Foreign.Storable + +data GMPInt = GMPInt { _mp_alloc :: Word32, _mp_size :: Word32, _mp_d :: Ptr Word64 } + +wordWidth :: Int +wordWidth = sizeOf (undefined :: Word32) + +ptrWidth :: Int +ptrWidth = sizeOf (undefined :: Ptr Word64) + +gmpToList :: GMPInt -> IO [Word64] +gmpToList (GMPInt a _ aptr) = peekArray (fromIntegral a) aptr + +wordListToInteger :: [Word64] -> Integer +wordListToInteger [] = 0 +wordListToInteger (x:xs) = fromIntegral x + (2 ^ (64 :: Integer)) * wordListToInteger xs + +gmpToInteger :: GMPInt -> IO Integer +gmpToInteger = fmap wordListToInteger . gmpToList + +instance Storable GMPInt where + sizeOf _ = 2 * wordWidth + ptrWidth + alignment _ = gcd wordWidth ptrWidth + peek ptr = GMPInt <$> peekByteOff ptr 0 <*> peekByteOff ptr wordWidth <*> peekByteOff ptr (wordWidth * 2) + poke = undefined + +foreign import ccall unsafe factorial_ats :: CInt -> Ptr GMPInt +foreign import ccall unsafe choose_ats :: CInt -> CInt -> Ptr GMPInt + +-- | See [here](http://mathworld.wolfram.com/BinomialCoefficient.html). +choose :: Int -> Int -> IO Integer +choose = (gmpToInteger <=<) . (peek .* on choose_ats fromIntegral) + +factorial :: Int -> IO Integer +factorial = gmpToInteger <=< (peek . factorial_ats . fromIntegral) diff --git a/src/Numeric/Common.hs b/src/Numeric/Common.hs --- a/src/Numeric/Common.hs +++ b/src/Numeric/Common.hs @@ -7,7 +7,7 @@ import Data.Word import Foreign.C -conjugate :: (CInt -> CInt) -> Int -> Int +conjugate :: (Integral a, Integral b) => (CInt -> CInt) -> a -> b conjugate f = fromIntegral . f . fromIntegral #if __GLASGOW_HASKELL__ >= 820 diff --git a/src/Numeric/Pure.hs b/src/Numeric/Pure.hs --- a/src/Numeric/Pure.hs +++ b/src/Numeric/Pure.hs @@ -25,7 +25,6 @@ {-# SPECIALIZE hsIsPerfect :: Int -> Bool #-} {-# SPECIALIZE hsDoubleFactorial :: Int -> Int #-} --- | N.B. positive integers only divisors :: (Integral a) => a -> [a] divisors n = filter ((== 0) . (n `mod`)) [1..n] diff --git a/test/Spec.hs b/test/Spec.hs --- a/test/Spec.hs +++ b/test/Spec.hs @@ -1,3 +1,4 @@ +import Numeric.Combinatorics import Numeric.Integer import Numeric.NumberTheory import Numeric.Pure @@ -33,3 +34,6 @@ describe "isPerfect" $ prop "should agree with the pure Haskell function" $ \n -> n < 1 || isPerfect n == hsIsPerfect n + describe "factorial" $ + it "should agree with the pure Haskell function" $ + factorial 3141 >>= (`shouldBe` hsFactorial 3141)