diff --git a/CHANGELOG.md b/CHANGELOG.md --- a/CHANGELOG.md +++ b/CHANGELOG.md @@ -1,5 +1,9 @@ # fast-arithmetic + * Documentation fixes + * Fix performance of `tau`; it now beats Haskell implementation from arithmoi + again. + # 0.6.5.0 * Add `isSemiprime` 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 @@ -60,6 +60,19 @@ loop(n, 1) end +extern +fn mpz_primorial_ui(x : &$GMP.mpz >> _, n : ullint) : void = + "mac#" + +fn primorial_gmp(k : [ k : nat | k >= 1 ] ullint(k)) : Intinf = + let + var z = ptr_alloc() + val () = $GMP.mpz_init(!(z.2)) + val () = mpz_primorial_ui(!(z.2), k) + in + $UN.castvwtp0(z) + end + // if n >= 0, p > 1, then n/p >= 0 fn div_gt_zero(n : intGte(0), p : intGt(1)) : intGte(0) = $UN.cast(n / p) @@ -145,7 +158,24 @@ | _ => ~jacobi2(n, a) implement count_divisors_ats (n) = - stream_vt_length(divisors(n)) + let + fun loop { k : nat | k > 0 }(k : int(k)) : int = + if k >= sqrt_int(n) then + if n % k = 0 then + if n / k != k then + 2 + else + 1 + else + 0 + else + if n % k = 0 then + 2 + loop(k + 1) + else + loop(k + 1) + in + loop(1) + end implement sum_divisors_ats (n) = let @@ -285,3 +315,6 @@ implement jacobi_ats (m, n) = jacobi(m, $UN.cast(n)) + +implement primorial (k) = + primorial_gmp(k) diff --git a/ats-src/number-theory.sats b/ats-src/number-theory.sats --- a/ats-src/number-theory.sats +++ b/ats-src/number-theory.sats @@ -1,6 +1,9 @@ staload "$PATSHOMELOCS/atscntrb-hx-intinf/SATS/intinf_vt.sats" staload "ats-src/numerics.sats" +// GMP wrapper but this is for the ATS library +fn primorial(k : [ k : nat | k >= 1 ] ullint(k)) : Intinf + // m | n fn divides(m : intGt(0), n : intGte(0)) :<> bool diff --git a/atspkg.dhall b/atspkg.dhall --- a/atspkg.dhall +++ b/atspkg.dhall @@ -1,6 +1,6 @@ {- Imports -} let prelude = - https://raw.githubusercontent.com/vmchale/atspkg/master/ats-pkg/dhall/atspkg-prelude.dhall sha256:33e41e509b6cfd0b075d1a8a5210ddfd1919372f9d972c2da783c6187d2298ba + https://raw.githubusercontent.com/vmchale/atspkg/master/ats-pkg/dhall/atspkg-prelude.dhall sha256:69bdde38a8cc01c91a1808ca3f45c29fe754c9ac96e91e6abd785508466399b4 let map = https://raw.githubusercontent.com/dhall-lang/dhall-lang/9f259cd68870b912fbf2f2a08cd63dc3ccba9dc3/Prelude/List/map sha256:dd845ffb4568d40327f2a817eb42d1c6138b929ca758d50bc33112ef3c885680 @@ -18,10 +18,9 @@ let moduleNames = [ "combinatorics", "number-theory", "numerics" ] -in λ(cfg : { sourceBld : Bool, staticLib : Bool, withBench : Bool }) - → let test = - if cfg.withBench - +in λ(cfg : { sourceBld : Bool, staticLib : Bool, withBench : Bool }) → + let test = + if cfg.withBench then [ prelude.bin ⫽ { src = "ats-src/bench.dats" , target = "${prelude.atsProject}/bench" @@ -29,41 +28,34 @@ , gcBin = True } ] - else prelude.emptyBin let atsSource = - if cfg.sourceBld - + if cfg.sourceBld then prelude.mapSrc (mapDatsSrc moduleNames) - else prelude.emptySrc let libraries = - if not cfg.sourceBld - + if not cfg.sourceBld then let libCommon = { name = "numbertheory" , src = map Text Text asDats moduleNames , includes = [ "include/fast_arithmetic.h" ] } - in if cfg.staticLib - + in if cfg.staticLib then [ prelude.staticLib ⫽ libCommon ⫽ { libTarget = "${prelude.atsProject}/libnumbertheory.a" } ] - else [ prelude.lib ⫽ libCommon ⫽ { libTarget = "${prelude.atsProject}/libnumbertheory.so" } ] - else prelude.emptyLib let dependencies = @@ -79,12 +71,14 @@ let cc = prelude.cc in prelude.default - ⫽ { atsSource = atsSource - , test = test - , libraries = libraries - , dependencies = dependencies + ⫽ { atsSource + , test + , libraries + , dependencies , cflags = libBuildFlag # prelude.ccFlags cc , ccompiler = prelude.printCompiler cc + , compiler = [ 0, 4, 2 ] + , version = [ 0, 4, 2 ] , debPkg = prelude.mkDeb ( prelude.debian "fast-arithmetic" @@ -92,7 +86,7 @@ , maintainer = "Vanessa McHale " , description = "Library for fast arithmetic in ATS" , libraries = - [ "${prelude.atsProject}/libnumbertheory.a" ] + [ "${prelude.atsProject}/libnumbertheory.a" ] , headers = [ "include/fast_arithmetic.h" ] } ) diff --git a/bench/Bench.hs b/bench/Bench.hs --- a/bench/Bench.hs +++ b/bench/Bench.hs @@ -2,6 +2,8 @@ import Criterion.Main import qualified Math.Combinat.Numbers as Ext +import qualified Math.Combinatorics.Exact.Binomial as Exact +import qualified Math.Combinatorics.Exact.Factorial as Exact import qualified Math.NumberTheory.ArithmeticFunctions as Ext import Numeric.Combinatorics import Numeric.Haskell @@ -13,9 +15,14 @@ [ bench "isPrime" $ nf isPrime 2017 , bench "hsIsPrime" $ nf hsIsPrime (2017 :: Int) ] + , bgroup "semiprimality check" + [ bench "isSemiprime" $ nf isSemiprime 57 + , bench "hsIsSemiprime" $ nf hsIsSemiprime (57 :: Int) + ] , bgroup "factorial" [ bench "factorial" $ nf factorial 160 , bench "Ext.factorial" $ nf Ext.factorial (160 :: Integer) + , bench "Exact.factorial" $ nf (Exact.factorial :: Int -> Integer) 160 ] , bgroup "φ" [ bench "totient" $ nf totient 2016 @@ -31,7 +38,7 @@ ] , bgroup "σ" [ bench "sumDivisors" $ nf sumDivisors 115 - , bench "Ext.sigma" $ nf (Ext.sigma 1) (115 :: Int) + , bench "Ext.sigma" $ nf ((Ext.sigma :: Word -> Int -> Int) 1) (115 :: Int) ] , bgroup "doubleFactorial" [ bench "doubleFactorial" $ nf doubleFactorial 79 @@ -40,6 +47,7 @@ , bgroup "choose" [ bench "choose" $ nf (choose 322) 16 , bench "Ext.binomial" $ nf (Ext.binomial 322) (16 :: Int) + , bench "Exact.choose" $ nf (Exact.choose 322) (16 :: Integer) ] , bgroup "catalan" [ bench "catalan" $ nf catalan 300 diff --git a/cbits/combinatorics.c b/cbits/combinatorics.c --- a/cbits/combinatorics.c +++ b/cbits/combinatorics.c @@ -1,8498 +1,8306 @@ /* ** -** The C code is generated by [ATS/Postiats-0-3-13] -** -*/ - -/* -** include runtime header files -*/ -#ifndef _ATS_CCOMP_HEADER_NONE_ -#include "pats_ccomp_config.h" -#include "pats_ccomp_basics.h" -#include "pats_ccomp_typedefs.h" -#include "pats_ccomp_instrset.h" -#include "pats_ccomp_memalloc.h" -#ifndef _ATS_CCOMP_EXCEPTION_NONE_ -#include "pats_ccomp_memalloca.h" -#include "pats_ccomp_exception.h" -#endif // end of [_ATS_CCOMP_EXCEPTION_NONE_] -#endif /* _ATS_CCOMP_HEADER_NONE_ */ - - -/* -** include prelude cats files -*/ -#ifndef _ATS_CCOMP_PRELUDE_NONE_ -// -#include "prelude/CATS/basics.cats" -#include "prelude/CATS/integer.cats" -#include "prelude/CATS/pointer.cats" -#include "prelude/CATS/integer_long.cats" -#include "prelude/CATS/integer_size.cats" -#include "prelude/CATS/integer_short.cats" -#include "prelude/CATS/bool.cats" -#include "prelude/CATS/char.cats" -#include "prelude/CATS/float.cats" -#include "prelude/CATS/integer_ptr.cats" -#include "prelude/CATS/integer_fixed.cats" -#include "prelude/CATS/memory.cats" -#include "prelude/CATS/string.cats" -#include "prelude/CATS/strptr.cats" -// -#include "prelude/CATS/fprintf.cats" -// -#include "prelude/CATS/filebas.cats" -// -#include "prelude/CATS/list.cats" -#include "prelude/CATS/option.cats" -#include "prelude/CATS/array.cats" -#include "prelude/CATS/arrayptr.cats" -#include "prelude/CATS/arrayref.cats" -#include "prelude/CATS/matrix.cats" -#include "prelude/CATS/matrixptr.cats" -// -#endif /* _ATS_CCOMP_PRELUDE_NONE_ */ -/* -** for user-supplied prelude -*/ -#ifdef _ATS_CCOMP_PRELUDE_USER_ -// -#include _ATS_CCOMP_PRELUDE_USER_ -// -#endif /* _ATS_CCOMP_PRELUDE_USER_ */ -/* -** for user2-supplied prelude -*/ -#ifdef _ATS_CCOMP_PRELUDE_USER2_ -// -#include _ATS_CCOMP_PRELUDE_USER2_ -// -#endif /* _ATS_CCOMP_PRELUDE_USER2_ */ - -/* -staload-prologues(beg) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/basics.dats: 1636(line=50, offs=1) -- 1675(line=50, offs=40) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 1596(line=49, offs=1) -- 1635(line=49, offs=40) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats: 1533(line=44, offs=1) -- 1572(line=44, offs=40) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer_long.dats: 1602(line=49, offs=1) -- 1641(line=49, offs=40) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer_size.dats: 1597(line=49, offs=1) -- 1636(line=49, offs=40) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer_short.dats: 1603(line=49, offs=1) -- 1642(line=49, offs=40) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/char.dats: 1610(line=48, offs=1) -- 1649(line=48, offs=40) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/float.dats: 1636(line=50, offs=1) -- 1675(line=50, offs=40) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/string.dats: 1631(line=50, offs=1) -- 1670(line=50, offs=40) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/strptr.dats: 1629(line=50, offs=1) -- 1668(line=50, offs=40) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/strptr.dats: 1691(line=54, offs=1) -- 1738(line=54, offs=48) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 1596(line=49, offs=1) -- 1635(line=49, offs=40) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer_ptr.dats: 1601(line=49, offs=1) -- 1640(line=49, offs=40) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer_fixed.dats: 1603(line=49, offs=1) -- 1642(line=49, offs=40) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/memory.dats: 1410(line=38, offs=1) -- 1449(line=39, offs=32) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/filebas.dats: 1607(line=49, offs=1) -- 1646(line=50, offs=32) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/filebas.dats: 1669(line=54, offs=1) -- 1715(line=55, offs=39) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 1596(line=49, offs=1) -- 1635(line=49, offs=40) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/filebas.dats: 1738(line=59, offs=1) -- 1783(line=60, offs=38) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/libats/libc/SATS/stdio.sats: 1390(line=36, offs=1) -- 1437(line=39, offs=3) -*/ - -#include \ -"libats/libc/CATS/stdio.cats" -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/libats/libc/SATS/stdio.sats: 1950(line=69, offs=1) -- 1999(line=71, offs=34) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/libats/libc/SATS/sys/types.sats: 1390(line=36, offs=1) -- 1441(line=39, offs=3) -*/ - -#include \ -"libats/libc/CATS/sys/types.cats" -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/filebas.dats: 1865(line=66, offs=1) -- 1912(line=66, offs=48) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/libats/libc/SATS/sys/stat.sats: 1390(line=36, offs=1) -- 1440(line=39, offs=3) -*/ - -#include \ -"libats/libc/CATS/sys/stat.cats" -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/libats/libc/SATS/sys/stat.sats: 1756(line=58, offs=1) -- 1805(line=60, offs=34) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/libats/libc/SATS/sys/types.sats: 1390(line=36, offs=1) -- 1441(line=39, offs=3) -*/ - -#include \ -"libats/libc/CATS/sys/types.cats" -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/filebas.dats: 15937(line=927, offs=1) -- 15974(line=928, offs=30) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/libats/libc/SATS/stdio.sats: 1390(line=36, offs=1) -- 1437(line=39, offs=3) -*/ - -#include \ -"libats/libc/CATS/stdio.cats" -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/libats/libc/SATS/stdio.sats: 1950(line=69, offs=1) -- 1999(line=71, offs=34) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/libats/libc/SATS/sys/types.sats: 1390(line=36, offs=1) -- 1441(line=39, offs=3) -*/ - -#include \ -"libats/libc/CATS/sys/types.cats" -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/list.dats: 1529(line=44, offs=1) -- 1568(line=45, offs=32) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/list.dats: 1569(line=46, offs=1) -- 1615(line=47, offs=39) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/unsafe.dats: 1532(line=44, offs=1) -- 1566(line=44, offs=35) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/list_vt.dats: 1538(line=44, offs=1) -- 1577(line=45, offs=32) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/list_vt.dats: 1578(line=46, offs=1) -- 1624(line=47, offs=39) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/unsafe.dats: 1532(line=44, offs=1) -- 1566(line=44, offs=35) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/SHARE/list_vt_mergesort.dats: 1546(line=44, offs=1) -- 1585(line=44, offs=40) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/SHARE/list_vt_quicksort.dats: 1546(line=44, offs=1) -- 1585(line=44, offs=40) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/array.dats: 1528(line=44, offs=1) -- 1567(line=45, offs=32) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/SHARE/array_bsearch.dats: 1531(line=44, offs=1) -- 1570(line=44, offs=40) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/SHARE/array_quicksort.dats: 1531(line=44, offs=1) -- 1570(line=44, offs=40) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/arrayptr.dats: 1532(line=44, offs=1) -- 1571(line=44, offs=40) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/arrayref.dats: 1532(line=44, offs=1) -- 1571(line=44, offs=40) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/matrix.dats: 1535(line=44, offs=1) -- 1574(line=44, offs=40) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/matrixptr.dats: 1538(line=44, offs=1) -- 1577(line=44, offs=40) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/matrixref.dats: 1538(line=44, offs=1) -- 1577(line=44, offs=40) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream.dats: 1523(line=44, offs=1) -- 1562(line=44, offs=40) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats: 1523(line=44, offs=1) -- 1562(line=44, offs=40) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/tostring.dats: 1528(line=44, offs=1) -- 1567(line=45, offs=32) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/unsafe.dats: 1532(line=44, offs=1) -- 1566(line=44, offs=35) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/checkast.dats: 1531(line=44, offs=1) -- 1570(line=45, offs=32) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/contrib/atscntrb/atscntrb-hx-libgmp/SATS/gmp.sats: 1178(line=38, offs=1) -- 1236(line=43, offs=3) -*/ - -// -#include \ -"atscntrb-hx-libgmp/CATS/gmp.cats" -// -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/SATS/intinf_t.sats: 1805(line=48, offs=1) -- 1828(line=48, offs=24) -*/ -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/SATS/intinf_vt.sats: 1806(line=48, offs=1) -- 1829(line=48, offs=24) -*/ -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 1660(line=37, offs=1) -- 1700(line=38, offs=27) -*/ -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 1727(line=42, offs=1) -- 1759(line=42, offs=33) -*/ -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 1833(line=49, offs=1) -- 1867(line=49, offs=35) -*/ -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/SATS/intinf_t.sats: 1805(line=48, offs=1) -- 1828(line=48, offs=24) -*/ -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 1868(line=50, offs=1) -- 1908(line=50, offs=41) -*/ -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/SATS/intinf_vt.sats: 1806(line=48, offs=1) -- 1829(line=48, offs=24) -*/ -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 1656(line=37, offs=1) -- 1696(line=39, offs=27) -*/ -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/mydepies.hats: 208(line=18, offs=1) -- 248(line=19, offs=32) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/contrib/atscntrb/atscntrb-hx-libgmp/SATS/gmp.sats: 1178(line=38, offs=1) -- 1236(line=43, offs=3) -*/ - -// -#include \ -"atscntrb-hx-libgmp/CATS/gmp.cats" -// -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 1813(line=49, offs=1) -- 1845(line=49, offs=33) -*/ -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 1846(line=50, offs=1) -- 1881(line=50, offs=36) -*/ -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/SATS/intinf_vt.sats: 1806(line=48, offs=1) -- 1829(line=48, offs=24) -*/ -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/gintinf_t.dats: 1657(line=37, offs=1) -- 1689(line=37, offs=33) -*/ -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/gintinf_t.dats: 1690(line=38, offs=1) -- 1724(line=38, offs=35) -*/ -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/SATS/intinf_t.sats: 1805(line=48, offs=1) -- 1828(line=48, offs=24) -*/ -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/SATS/intinf_vt.sats: 1806(line=48, offs=1) -- 1829(line=48, offs=24) -*/ -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.sats: 1(line=1, offs=1) -- 63(line=1, offs=63) -*/ -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/SATS/intinf_vt.sats: 1806(line=48, offs=1) -- 1829(line=48, offs=24) -*/ -/* -staload-prologues(end) -*/ -/* -typedefs-for-tyrecs-and-tysums(beg) -*/ -/* -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_lt_int) -ATSdyncst_mac(atscntrb_gmp_mpz_add2_mpz) -ATSdyncst_mac(atscntrb_gmp_mpz_mul2_int) -ATSdyncst_mac(atspre_g1int_add_int) -ATSdyncst_mac(atscntrb_gmp_mpz_clear) -ATSdyncst_mac(atspre_ptr_free) -ATSdyncst_mac(atscntrb_gmp_mpz_init_set_int) -ATSdyncst_mac(atspre_ptr_alloc_tsz) -ATSdyncst_mac(atspre_g1int_sub_int) -ATSdyncst_mac(atspre_g1int_gt_int) -ATSdyncst_mac(atscntrb_gmp_mpz_tdiv2_q_mpz) -ATSdyncst_mac(atspre_g1int_mul_int) -ATSdyncst_mac(atspre_g1int_eq_int) -ATSdyncst_mac(atspre_g0int2int_int_int) -ATSdyncst_mac(atspre_g0int_eq_int) -ATSdyncst_mac(atspre_g0int_mod_int) -ATSdyncst_mac(atscntrb_gmp_mpz_neg1) -ATSdyncst_mac(atscntrb_gmp_mpz_init) -ATSdyncst_mac(atscntrb_gmp_mpz_ui_pow_ui) -ATSdyncst_mac(atspre_g1int2uint_int_ulint) -ATSdyncst_mac(atscntrb_gmp_mpz_mul2_mpz) -/* -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) -derangements_0(atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_type(atstype_ptrk) -loop_1(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int), atstkind_type(atstype_ptrk), atstkind_type(atstype_ptrk)) ; - -#if(0) -#if(0) -ATSextern() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__lt_g1int_int__2(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__2__1(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_intinf1__6(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__add_intinf0_intinf1__6__1(atstkind_type(atstype_ptrk), atsrefarg0_type(atstkind_type(atstype_ptrk))) ; - -#if(0) -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_int__8(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__8__1(atstkind_type(atstype_ptrk), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__add_intinf0_intinf1__6__2(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__12(atstkind_type(atstype_ptrk)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -ATSstatic() -atsvoid_t0ype -ATSCNTRB_056_HX_056_intinf_vt__intinf_free__12__1(atstkind_type(atstype_ptrk)) ; - -ATSstatic() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_int__8__2(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__15(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__15__1(atstkind_t0ype(atstype_int)) ; - -#if(0) -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -ATSLIB_056_prelude__ptr_alloc__17() ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -ATSstatic() -atstkind_type(atstype_ptrk) -ATSLIB_056_prelude__ptr_alloc__17__1() ; - -ATSstatic() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__2(atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_type(atstype_ptrk) -ATSLIB_056_prelude__ptr_alloc__17__2() ; - -ATSstatic() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__3(atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_type(atstype_ptrk) -ATSLIB_056_prelude__ptr_alloc__17__3() ; - -ATSstatic() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__4(atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_type(atstype_ptrk) -ATSLIB_056_prelude__ptr_alloc__17__4() ; - -ATSstatic() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__5(atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_type(atstype_ptrk) -ATSLIB_056_prelude__ptr_alloc__17__5() ; - -ATSstatic() -atsvoid_t0ype -fact_ref_28(atstkind_t0ype(atstype_int), atsrefarg1_type(atstkind_type(atstype_ptrk))) ; - -ATSstatic() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__6(atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_type(atstype_ptrk) -ATSLIB_056_prelude__ptr_alloc__17__6() ; - -ATSstatic() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__7(atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_type(atstype_ptrk) -ATSLIB_056_prelude__ptr_alloc__17__7() ; - -ATSstatic() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_int__8__3(atstkind_type(atstype_ptrk), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_type(atstype_ptrk) -fact_34(atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atsvoid_t0ype -dfact_ref_35(atstkind_t0ype(atstype_int), atsrefarg1_type(atstkind_type(atstype_ptrk))) ; - -ATSstatic() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__8(atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_type(atstype_ptrk) -ATSLIB_056_prelude__ptr_alloc__17__8() ; - -ATSstatic() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__9(atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_type(atstype_ptrk) -ATSLIB_056_prelude__ptr_alloc__17__9() ; - -ATSstatic() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_int__8__4(atstkind_type(atstype_ptrk), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_type(atstype_ptrk) -dfact_41(atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_type(atstype_ptrk) -permutations_42(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atsvoid_t0ype -loop_43(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int), atsrefarg1_type(atstkind_type(atstype_ptrk))) ; - -#if(0) -#if(0) -ATSextern() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__gt_g1int_int__44(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__44__1(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_int__8__5(atstkind_type(atstype_ptrk), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__10(atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_type(atstype_ptrk) -ATSLIB_056_prelude__ptr_alloc__17__10() ; - -ATSstatic() -atstkind_type(atstype_ptrk) -catalan_50(atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_type(atstype_ptrk) -numerator_loop_51(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__11(atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_type(atstype_ptrk) -ATSLIB_056_prelude__ptr_alloc__17__11() ; - -ATSstatic() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_int__8__6(atstkind_type(atstype_ptrk), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__12(atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_type(atstype_ptrk) -ATSLIB_056_prelude__ptr_alloc__17__12() ; - -ATSstatic() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__13(atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_type(atstype_ptrk) -ATSLIB_056_prelude__ptr_alloc__17__13() ; - -#if(0) -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__div_intinf0_intinf1__59(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__59__1(atstkind_type(atstype_ptrk), atsrefarg0_type(atstkind_type(atstype_ptrk))) ; - -ATSstatic() -atsvoid_t0ype -ATSCNTRB_056_HX_056_intinf_vt__intinf_free__12__2(atstkind_type(atstype_ptrk)) ; - -ATSstatic() -atstkind_type(atstype_ptrk) -choose_62(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atsvoid_t0ype -numerator_loop_63(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int), atsrefarg1_type(atstkind_type(atstype_ptrk))) ; - -ATSstatic() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__14(atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_type(atstype_ptrk) -ATSLIB_056_prelude__ptr_alloc__17__14() ; - -ATSstatic() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__15(atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_type(atstype_ptrk) -ATSLIB_056_prelude__ptr_alloc__17__15() ; - -ATSstatic() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_int__8__7(atstkind_type(atstype_ptrk), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__16(atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_type(atstype_ptrk) -ATSLIB_056_prelude__ptr_alloc__17__16() ; - -ATSstatic() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__17(atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_type(atstype_ptrk) -ATSLIB_056_prelude__ptr_alloc__17__17() ; - -ATSstatic() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__gt_g1int_int__44__2(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__18(atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_type(atstype_ptrk) -ATSLIB_056_prelude__ptr_alloc__17__18() ; - -ATSstatic() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__div_intinf0_intinf1__59__2(atstkind_type(atstype_ptrk), atsrefarg0_type(atstkind_type(atstype_ptrk))) ; - -ATSstatic() -atsvoid_t0ype -ATSCNTRB_056_HX_056_intinf_vt__intinf_free__12__3(atstkind_type(atstype_ptrk)) ; - -ATSstatic() -atstkind_type(atstype_ptrk) -stirling2_79(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -#if(0) -#if(0) -ATSextern() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g1int_int__80(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__80__1(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g1int_int__80__2(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__19(atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_type(atstype_ptrk) -ATSLIB_056_prelude__ptr_alloc__17__19() ; - -ATSstatic() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__gt_g1int_int__44__3(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__20(atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_type(atstype_ptrk) -ATSLIB_056_prelude__ptr_alloc__17__20() ; - -ATSstatic() -atsvoid_t0ype -top_loop_89(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int), atsrefarg1_type(atstkind_type(atstype_ptrk))) ; - -ATSstatic() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__21(atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_type(atstype_ptrk) -ATSLIB_056_prelude__ptr_alloc__17__21() ; - -ATSstatic() -atstkind_type(atstype_ptrk) -negate_if_odd_92(atstkind_t0ype(atstype_int), atstkind_type(atstype_ptrk)) ; - -#if(0) -#if(0) -ATSextern() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g0int_int__93(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__93__1(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -#if(0) -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__neg_intinf0__98(atstkind_type(atstype_ptrk)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -ATSstatic() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__neg_intinf0__98__1(atstkind_type(atstype_ptrk)) ; - -#if(0) -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__pow_int_int__100(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -ATSstatic() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__pow_int_int__100__1(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_type(atstype_ptrk) -ATSLIB_056_prelude__ptr_alloc__17__22() ; - -#if(0) -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_intinf1__103(atstkind_type(atstype_ptrk), atsrefarg0_type(atstkind_type(atstype_ptrk))) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -ATSstatic() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_intinf1__103__1(atstkind_type(atstype_ptrk), atsrefarg0_type(atstkind_type(atstype_ptrk))) ; - -ATSstatic() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__add_intinf0_intinf1__6__3(atstkind_type(atstype_ptrk), atsrefarg0_type(atstkind_type(atstype_ptrk))) ; - -ATSstatic() -atsvoid_t0ype -ATSCNTRB_056_HX_056_intinf_vt__intinf_free__12__4(atstkind_type(atstype_ptrk)) ; - -ATSstatic() -atsvoid_t0ype -ATSCNTRB_056_HX_056_intinf_vt__intinf_free__12__5(atstkind_type(atstype_ptrk)) ; - -ATSstatic() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__div_intinf0_intinf1__59__3(atstkind_type(atstype_ptrk), atsrefarg0_type(atstkind_type(atstype_ptrk))) ; - -ATSstatic() -atsvoid_t0ype -ATSCNTRB_056_HX_056_intinf_vt__intinf_free__12__6(atstkind_type(atstype_ptrk)) ; - -ATSstatic() -atstkind_type(atstype_ptrk) -bell_110(atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atsvoid_t0ype -sum_loop_111(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int), atsrefarg1_type(atstkind_type(atstype_ptrk))) ; - -ATSstatic() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__add_intinf0_intinf1__6__4(atstkind_type(atstype_ptrk), atsrefarg0_type(atstkind_type(atstype_ptrk))) ; - -ATSstatic() -atsvoid_t0ype -ATSCNTRB_056_HX_056_intinf_vt__intinf_free__12__7(atstkind_type(atstype_ptrk)) ; - -ATSstatic() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__22(atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_type(atstype_ptrk) -ATSLIB_056_prelude__ptr_alloc__17__23() ; - -ATSstatic() -atstkind_type(atstype_ptrk) -max_regions_116(atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atsvoid_t0ype -loop_117(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int), atsrefarg1_type(atstkind_type(atstype_ptrk))) ; - -ATSstatic() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__23(atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_type(atstype_ptrk) -ATSLIB_056_prelude__ptr_alloc__17__24() ; - -ATSstatic() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__add_intinf0_intinf1__6__5(atstkind_type(atstype_ptrk), atsrefarg0_type(atstkind_type(atstype_ptrk))) ; - -ATSstatic() -atsvoid_t0ype -ATSCNTRB_056_HX_056_intinf_vt__intinf_free__12__8(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_ats(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] - -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -catalan_ats(atstkind_t0ype(atstype_int)) ; -#endif // end of [QUALIFIED] - -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -derangements_ats(atstkind_t0ype(atstype_int)) ; -#endif // end of [QUALIFIED] - -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -permutations_ats(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; -#endif // end of [QUALIFIED] - -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -stirling2_ats(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; -#endif // end of [QUALIFIED] - -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -max_regions_ats(atstkind_t0ype(atstype_int)) ; -#endif // end of [QUALIFIED] - -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -bell_ats(atstkind_t0ype(atstype_int)) ; -#endif // end of [QUALIFIED] - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 326(line=11, offs=4) -- 1017(line=35, offs=6) -*/ -/* -local: -global: derangements_0$0(level=0) -local: -global: -*/ -ATSstatic() -atstkind_type(atstype_ptrk) -derangements_0(atstkind_t0ype(atstype_int) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret0, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp45, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp46, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp51, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 326(line=11, offs=4) -- 1017(line=35, offs=6) -*/ -ATSINSflab(__patsflab_derangements_0): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 372(line=12, offs=3) -- 1017(line=35, offs=6) -*/ -/* -letpush(beg) -*/ -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 859(line=30, offs=5) -- 1011(line=34, offs=59) -*/ -ATScaseof_beg() -/* -** ibranchlst-beg -*/ -ATSbranch_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 878(line=31, offs=9) -- 879(line=31, offs=10) -*/ -ATSINSlab(__atstmplab0): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 347(line=11, offs=25) -- 348(line=11, offs=26) -*/ -ATSifnthen(ATSCKpat_int(arg0, ATSPMVint(0))) { ATSINSgoto(__atstmplab2) ; } ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 879(line=31, offs=10) -- 879(line=31, offs=10) -*/ -ATSINSlab(__atstmplab1): -/* -emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) -*/ -/* -ibranch-mbody: -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 883(line=31, offs=14) -- 896(line=31, offs=27) -*/ -ATSINSmove(tmpret0, ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__1(ATSPMVi0nt(1))) ; - -ATSbranch_end() - -ATSbranch_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 905(line=32, offs=9) -- 906(line=32, offs=10) -*/ -ATSINSlab(__atstmplab2): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 347(line=11, offs=25) -- 348(line=11, offs=26) -*/ -ATSifnthen(ATSCKpat_int(arg0, ATSPMVint(1))) { ATSINSgoto(__atstmplab4) ; } ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 906(line=32, offs=10) -- 906(line=32, offs=10) -*/ -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/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 911(line=32, offs=15) -- 924(line=32, offs=28) -*/ -ATSINSmove(tmpret0, ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__2(ATSPMVi0nt(0))) ; - -ATSbranch_end() - -ATSbranch_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 933(line=33, offs=9) -- 934(line=33, offs=10) -*/ -ATSINSlab(__atstmplab4): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 347(line=11, offs=25) -- 348(line=11, offs=26) -*/ -ATSifnthen(ATSCKpat_int(arg0, ATSPMVint(2))) { ATSINSgoto(__atstmplab6) ; } ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 934(line=33, offs=10) -- 934(line=33, offs=10) -*/ -ATSINSlab(__atstmplab5): -/* -emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) -*/ -/* -ibranch-mbody: -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 939(line=33, offs=15) -- 952(line=33, offs=28) -*/ -ATSINSmove(tmpret0, ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__3(ATSPMVi0nt(1))) ; - -ATSbranch_end() - -ATSbranch_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 962(line=34, offs=10) -- 962(line=34, offs=10) -*/ -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/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 972(line=34, offs=20) -- 977(line=34, offs=25) -*/ -ATSINSmove(tmp45, atspre_g1int_sub_int(arg0, ATSPMVi0nt(1))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 982(line=34, offs=30) -- 995(line=34, offs=43) -*/ -ATSINSmove(tmp46, ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__4(ATSPMVi0nt(1))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 997(line=34, offs=45) -- 1010(line=34, offs=58) -*/ -ATSINSmove(tmp51, ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__5(ATSPMVi0nt(0))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 967(line=34, offs=15) -- 1011(line=34, offs=59) -*/ -ATSINSmove(tmpret0, loop_1(tmp45, ATSPMVi0nt(2), tmp46, tmp51)) ; - -ATSbranch_end() - -/* -** ibranchlst-end -*/ -ATScaseof_end() - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 372(line=12, offs=3) -- 1017(line=35, offs=6) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret0) ; -} /* end of [derangements_0] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 384(line=13, offs=9) -- 849(line=28, offs=12) -*/ -/* -local: loop_1$0(level=1) -global: loop_1$0(level=1) -local: -global: -*/ -ATSstatic() -atstkind_type(atstype_ptrk) -loop_1(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1, atstkind_type(atstype_ptrk) arg2, atstkind_type(atstype_ptrk) arg3) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(apy0, atstkind_t0ype(atstype_int)) ; -ATStmpdec(apy1, atstkind_t0ype(atstype_int)) ; -ATStmpdec(apy2, atstkind_type(atstype_ptrk)) ; -ATStmpdec(apy3, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmpret1, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp2, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmpref7, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmpref12, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp17, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmpref18, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp21) ; -ATStmpdec(tmpref26, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 384(line=13, offs=9) -- 849(line=28, offs=12) -*/ -ATSINSflab(__patsflab_loop_1): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 508(line=14, offs=10) -- 513(line=14, offs=15) -*/ -ATSINSmove(tmp2, ATSLIB_056_prelude__lt_g1int_int__2__1(arg1, arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 505(line=14, offs=7) -- 849(line=28, offs=12) -*/ -ATSif( -tmp2 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 527(line=15, offs=9) -- 671(line=20, offs=12) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 545(line=16, offs=15) -- 546(line=16, offs=16) -*/ -/* -ATSINStmpdec(tmpref7) ; -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 549(line=16, offs=19) -- 576(line=16, offs=46) -*/ -ATSINSmove(tmpref7, ATSCNTRB_056_HX_056_intinf_vt__add_intinf0_intinf1__6__1(arg3, ATSPMVrefarg0(arg2))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 591(line=17, offs=15) -- 592(line=17, offs=16) -*/ -/* -ATSINStmpdec(tmpref12) ; -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 595(line=17, offs=19) -- 616(line=17, offs=40) -*/ -ATSINSmove(tmpref12, ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_int__8__1(tmpref7, arg1)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 646(line=19, offs=19) -- 651(line=19, offs=24) -*/ -ATSINSmove(tmp17, atspre_g1int_add_int(arg1, ATSPMVi0nt(1))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 638(line=19, offs=11) -- 659(line=19, offs=32) -*/ -ATStailcal_beg() -ATSINSmove_tlcal(apy0, arg0) ; -ATSINSmove_tlcal(apy1, tmp17) ; -ATSINSmove_tlcal(apy2, tmpref12) ; -ATSINSmove_tlcal(apy3, arg2) ; -ATSINSargmove_tlcal(arg0, apy0) ; -ATSINSargmove_tlcal(arg1, apy1) ; -ATSINSargmove_tlcal(arg2, apy2) ; -ATSINSargmove_tlcal(arg3, apy3) ; -ATSINSfgoto(__patsflab_loop_1) ; -ATStailcal_end() - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 527(line=15, offs=9) -- 671(line=20, offs=12) -*/ -/* -INSletpop() -*/ -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 691(line=22, offs=9) -- 849(line=28, offs=12) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 709(line=23, offs=15) -- 710(line=23, offs=16) -*/ -/* -ATSINStmpdec(tmpref18) ; -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 713(line=23, offs=19) -- 740(line=23, offs=46) -*/ -ATSINSmove(tmpref18, ATSCNTRB_056_HX_056_intinf_vt__add_intinf0_intinf1__6__2(arg3, ATSPMVrefarg0(arg2))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 759(line=24, offs=19) -- 773(line=24, offs=33) -*/ -ATSINSmove_void(tmp21, ATSCNTRB_056_HX_056_intinf_vt__intinf_free__12__1(arg2)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 789(line=25, offs=15) -- 790(line=25, offs=16) -*/ -/* -ATSINStmpdec(tmpref26) ; -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 793(line=25, offs=19) -- 814(line=25, offs=40) -*/ -ATSINSmove(tmpref26, ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_int__8__2(tmpref18, arg1)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 836(line=27, offs=11) -- 837(line=27, offs=12) -*/ -ATSINSmove(tmpret1, tmpref26) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 691(line=22, offs=9) -- 849(line=28, offs=12) -*/ -/* -INSletpop() -*/ -} /* ATSendif */ -ATSfunbody_end() -ATSreturn(tmpret1) ; -} /* end of [loop_1] */ - -#if(0) -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12520(line=650, offs=3) -- 12559(line=650, offs=42) -*/ -/* -local: -global: lt_g1int_int$2$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = tk(4631) -tmparg = S2Evar(tk(4631)) -tmpsub = None() -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__lt_g1int_int__2(atstkind_t0ype(atstyvar_type(tk)) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret3, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp4, atstkind_t0ype(atstyvar_type(tk))) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12505(line=649, offs=1) -- 12559(line=650, offs=42) -*/ -ATSINSflab(__patsflab_lt_g1int_int): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12546(line=650, offs=29) -- 12557(line=650, offs=40) -*/ -ATSINSmove(tmp4, PMVtmpltcst(g1int2int)(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12529(line=650, offs=12) -- 12559(line=650, offs=42) -*/ -ATSINSmove(tmpret3, PMVtmpltcst(g1int_lt)(arg0, tmp4)) ; - -ATSfunbody_end() -ATSreturn(tmpret3) ; -} /* end of [ATSLIB_056_prelude__lt_g1int_int__2] */ -#endif // end of [TEMPLATE] - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12520(line=650, offs=3) -- 12559(line=650, offs=42) -*/ -/* -local: -global: lt_g1int_int$2$1(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4631) -tmparg = S2Evar(tk(4631)) -tmpsub = Some(tk(4631) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__lt_g1int_int__2__1(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret3__1, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp4__1, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12505(line=649, offs=1) -- 12559(line=650, offs=42) -*/ -ATSINSflab(__patsflab_lt_g1int_int): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12546(line=650, offs=29) -- 12557(line=650, offs=40) -*/ -ATSINSmove(tmp4__1, atspre_g1int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12529(line=650, offs=12) -- 12559(line=650, offs=42) -*/ -ATSINSmove(tmpret3__1, atspre_g1int_lt_int(arg0, tmp4__1)) ; - -ATSfunbody_end() -ATSreturn(tmpret3__1) ; -} /* end of [ATSLIB_056_prelude__lt_g1int_int__2__1] */ - -#if(0) -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5514(line=298, offs=3) -- 5585(line=303, offs=2) -*/ -/* -local: -global: add_intinf0_intinf1$6$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__add_intinf0_intinf1__6(atstkind_type(atstype_ptrk) arg0, atsrefarg0_type(atstkind_type(atstype_ptrk)) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret8, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp9) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5492(line=297, offs=1) -- 5585(line=303, offs=2) -*/ -ATSINSflab(__patsflab_add_intinf0_intinf1): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5523(line=298, offs=12) -- 5585(line=303, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5547(line=301, offs=10) -- 5580(line=301, offs=43) -*/ -ATSINSmove_void(tmp9, 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 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5524(line=298, offs=13) -- 5525(line=298, offs=14) -*/ -ATSINSmove(tmpret8, arg0) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5523(line=298, offs=12) -- 5585(line=303, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret8) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__add_intinf0_intinf1__6] */ -#endif // end of [TEMPLATE] - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5514(line=298, offs=3) -- 5585(line=303, offs=2) -*/ -/* -local: -global: add_intinf0_intinf1$6$1(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = -tmparg = -tmpsub = Some() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__add_intinf0_intinf1__6__1(atstkind_type(atstype_ptrk) arg0, atsrefarg0_type(atstkind_type(atstype_ptrk)) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret8__1, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp9__1) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5492(line=297, offs=1) -- 5585(line=303, offs=2) -*/ -ATSINSflab(__patsflab_add_intinf0_intinf1): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5523(line=298, offs=12) -- 5585(line=303, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5547(line=301, offs=10) -- 5580(line=301, offs=43) -*/ -ATSINSmove_void(tmp9__1, 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 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5524(line=298, offs=13) -- 5525(line=298, offs=14) -*/ -ATSINSmove(tmpret8__1, arg0) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5523(line=298, offs=12) -- 5585(line=303, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret8__1) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__add_intinf0_intinf1__6__1] */ - -#if(0) -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7394(line=413, offs=3) -- 7461(line=418, offs=2) -*/ -/* -local: -global: mul_intinf0_int$8$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_int__8(atstkind_type(atstype_ptrk) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret13, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp14) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7376(line=412, offs=1) -- 7461(line=418, offs=2) -*/ -ATSINSflab(__patsflab_mul_intinf0_int): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7403(line=413, offs=12) -- 7461(line=418, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7427(line=416, offs=10) -- 7456(line=416, offs=39) -*/ -ATSINSmove_void(tmp14, atscntrb_gmp_mpz_mul2_int(ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), arg1)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7404(line=413, offs=13) -- 7405(line=413, offs=14) -*/ -ATSINSmove(tmpret13, arg0) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7403(line=413, offs=12) -- 7461(line=418, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret13) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_int__8] */ -#endif // end of [TEMPLATE] - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7394(line=413, offs=3) -- 7461(line=418, offs=2) -*/ -/* -local: -global: mul_intinf0_int$8$1(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = -tmparg = -tmpsub = Some() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_int__8__1(atstkind_type(atstype_ptrk) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret13__1, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp14__1) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7376(line=412, offs=1) -- 7461(line=418, offs=2) -*/ -ATSINSflab(__patsflab_mul_intinf0_int): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7403(line=413, offs=12) -- 7461(line=418, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7427(line=416, offs=10) -- 7456(line=416, offs=39) -*/ -ATSINSmove_void(tmp14__1, atscntrb_gmp_mpz_mul2_int(ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), arg1)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7404(line=413, offs=13) -- 7405(line=413, offs=14) -*/ -ATSINSmove(tmpret13__1, arg0) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7403(line=413, offs=12) -- 7461(line=418, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret13__1) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_int__8__1] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5514(line=298, offs=3) -- 5585(line=303, offs=2) -*/ -/* -local: -global: add_intinf0_intinf1$6$2(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = -tmparg = -tmpsub = Some() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__add_intinf0_intinf1__6__2(atstkind_type(atstype_ptrk) arg0, atsrefarg0_type(atstkind_type(atstype_ptrk)) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret8__2, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp9__2) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5492(line=297, offs=1) -- 5585(line=303, offs=2) -*/ -ATSINSflab(__patsflab_add_intinf0_intinf1): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5523(line=298, offs=12) -- 5585(line=303, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5547(line=301, offs=10) -- 5580(line=301, offs=43) -*/ -ATSINSmove_void(tmp9__2, 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 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5524(line=298, offs=13) -- 5525(line=298, offs=14) -*/ -ATSINSmove(tmpret8__2, arg0) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5523(line=298, offs=12) -- 5585(line=303, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret8__2) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__add_intinf0_intinf1__6__2] */ - -#if(0) -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2888(line=119, offs=12) -- 2987(line=122, offs=4) -*/ -/* -local: -global: intinf_free$12$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atsvoid_t0ype -ATSCNTRB_056_HX_056_intinf_vt__intinf_free__12(atstkind_type(atstype_ptrk) arg0) -{ -/* tmpvardeclst(beg) */ -// ATStmpdec_void(tmpret22) ; -// ATStmpdec_void(tmp23) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2877(line=119, offs=1) -- 2987(line=122, offs=4) -*/ -ATSINSflab(__patsflab_intinf_free): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2894(line=119, offs=18) -- 2987(line=122, offs=4) -*/ -/* -letpush(beg) -*/ -/* (*nothing*) */ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2936(line=121, offs=12) -- 2955(line=121, offs=31) -*/ -ATSINSmove_void(tmp23, atscntrb_gmp_mpz_clear(ATSPMVrefarg1(arg0))) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2959(line=121, offs=35) -- 2983(line=121, offs=59) -*/ -ATSINSmove_void(tmpret22, atspre_ptr_free(arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2894(line=119, offs=18) -- 2987(line=122, offs=4) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn_void(tmpret22) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_free__12] */ -#endif // end of [TEMPLATE] - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2888(line=119, offs=12) -- 2987(line=122, offs=4) -*/ -/* -local: -global: intinf_free$12$1(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = -tmparg = -tmpsub = Some() -*/ -atsvoid_t0ype -ATSCNTRB_056_HX_056_intinf_vt__intinf_free__12__1(atstkind_type(atstype_ptrk) arg0) -{ -/* tmpvardeclst(beg) */ -// ATStmpdec_void(tmpret22__1) ; -// ATStmpdec_void(tmp23__1) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2877(line=119, offs=1) -- 2987(line=122, offs=4) -*/ -ATSINSflab(__patsflab_intinf_free): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2894(line=119, offs=18) -- 2987(line=122, offs=4) -*/ -/* -letpush(beg) -*/ -/* (*nothing*) */ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2936(line=121, offs=12) -- 2955(line=121, offs=31) -*/ -ATSINSmove_void(tmp23__1, atscntrb_gmp_mpz_clear(ATSPMVrefarg1(arg0))) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2959(line=121, offs=35) -- 2983(line=121, offs=59) -*/ -ATSINSmove_void(tmpret22__1, atspre_ptr_free(arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2894(line=119, offs=18) -- 2987(line=122, offs=4) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn_void(tmpret22__1) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_free__12__1] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7394(line=413, offs=3) -- 7461(line=418, offs=2) -*/ -/* -local: -global: mul_intinf0_int$8$2(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = -tmparg = -tmpsub = Some() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_int__8__2(atstkind_type(atstype_ptrk) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret13__2, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp14__2) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7376(line=412, offs=1) -- 7461(line=418, offs=2) -*/ -ATSINSflab(__patsflab_mul_intinf0_int): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7403(line=413, offs=12) -- 7461(line=418, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7427(line=416, offs=10) -- 7456(line=416, offs=39) -*/ -ATSINSmove_void(tmp14__2, atscntrb_gmp_mpz_mul2_int(ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), arg1)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7404(line=413, offs=13) -- 7405(line=413, offs=14) -*/ -ATSINSmove(tmpret13__2, arg0) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7403(line=413, offs=12) -- 7461(line=418, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret13__2) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_int__8__2] */ - -#if(0) -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2209(line=74, offs=3) -- 2301(line=80, offs=2) -*/ -/* -local: -global: intinf_make_int$15$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15(atstkind_t0ype(atstype_int) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret29, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp30, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp31) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2191(line=73, offs=1) -- 2301(line=80, offs=2) -*/ -ATSINSflab(__patsflab_intinf_make_int): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2238(line=77, offs=9) -- 2254(line=77, offs=25) -*/ -ATSINSmove(tmp30, PMVtmpltcst(ptr_alloc)()) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2264(line=78, offs=10) -- 2296(line=78, offs=42) -*/ -ATSINSmove_void(tmp31, atscntrb_gmp_mpz_init_set_int(ATSPMVrefarg1(ATSSELrecsin(tmp30, atstkind_type(atstype_ptrk), atslab__2)), arg0)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2216(line=74, offs=10) -- 2217(line=74, offs=11) -*/ -ATSINSmove(tmpret29, tmp30) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret29) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15] */ -#endif // end of [TEMPLATE] - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2209(line=74, offs=3) -- 2301(line=80, offs=2) -*/ -/* -local: -global: intinf_make_int$15$1(level=1) -local: -global: -*/ -ATSstatic() -/* -imparg = -tmparg = -tmpsub = Some() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__1(atstkind_t0ype(atstype_int) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret29__1, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp30__1, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp31__1) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2191(line=73, offs=1) -- 2301(line=80, offs=2) -*/ -ATSINSflab(__patsflab_intinf_make_int): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2238(line=77, offs=9) -- 2254(line=77, offs=25) -*/ -ATSINSmove(tmp30__1, ATSLIB_056_prelude__ptr_alloc__17__1()) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2264(line=78, offs=10) -- 2296(line=78, offs=42) -*/ -ATSINSmove_void(tmp31__1, atscntrb_gmp_mpz_init_set_int(ATSPMVrefarg1(ATSSELrecsin(tmp30__1, atstkind_type(atstype_ptrk), atslab__2)), arg0)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2216(line=74, offs=10) -- 2217(line=74, offs=11) -*/ -ATSINSmove(tmpret29__1, tmp30__1) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret29__1) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__1] */ - -#if(0) -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42) -*/ -/* -local: -global: ptr_alloc$17$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = a(4740) -tmparg = S2Evar(a(4740)) -tmpsub = None() -*/ -atstkind_type(atstype_ptrk) -ATSLIB_056_prelude__ptr_alloc__17() -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret35, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3708(line=184, offs=1) -- 3749(line=184, offs=42) -*/ -ATSINSflab(__patsflab_ptr_alloc): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42) -*/ -ATSINSmove(tmpret35, atspre_ptr_alloc_tsz(ATSPMVsizeof(atstyvar_type(a)))) ; - -ATSfunbody_end() -ATSreturn(tmpret35) ; -} /* end of [ATSLIB_056_prelude__ptr_alloc__17] */ -#endif // end of [TEMPLATE] - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42) -*/ -/* -local: -global: ptr_alloc$17$1(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = a(4740) -tmparg = S2Evar(a(4740)) -tmpsub = Some(a(4740) -> S2Ecst(mpz_vt0ype)) -*/ -atstkind_type(atstype_ptrk) -ATSLIB_056_prelude__ptr_alloc__17__1() -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret35__1, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3708(line=184, offs=1) -- 3749(line=184, offs=42) -*/ -ATSINSflab(__patsflab_ptr_alloc): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42) -*/ -ATSINSmove(tmpret35__1, atspre_ptr_alloc_tsz(ATSPMVsizeof(atscntrb_gmp_mpz))) ; - -ATSfunbody_end() -ATSreturn(tmpret35__1) ; -} /* end of [ATSLIB_056_prelude__ptr_alloc__17__1] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2209(line=74, offs=3) -- 2301(line=80, offs=2) -*/ -/* -local: -global: intinf_make_int$15$2(level=1) -local: -global: -*/ -ATSstatic() -/* -imparg = -tmparg = -tmpsub = Some() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__2(atstkind_t0ype(atstype_int) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret29__2, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp30__2, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp31__2) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2191(line=73, offs=1) -- 2301(line=80, offs=2) -*/ -ATSINSflab(__patsflab_intinf_make_int): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2238(line=77, offs=9) -- 2254(line=77, offs=25) -*/ -ATSINSmove(tmp30__2, ATSLIB_056_prelude__ptr_alloc__17__2()) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2264(line=78, offs=10) -- 2296(line=78, offs=42) -*/ -ATSINSmove_void(tmp31__2, atscntrb_gmp_mpz_init_set_int(ATSPMVrefarg1(ATSSELrecsin(tmp30__2, atstkind_type(atstype_ptrk), atslab__2)), arg0)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2216(line=74, offs=10) -- 2217(line=74, offs=11) -*/ -ATSINSmove(tmpret29__2, tmp30__2) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret29__2) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__2] */ - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42) -*/ -/* -local: -global: ptr_alloc$17$2(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = a(4740) -tmparg = S2Evar(a(4740)) -tmpsub = Some(a(4740) -> S2Ecst(mpz_vt0ype)) -*/ -atstkind_type(atstype_ptrk) -ATSLIB_056_prelude__ptr_alloc__17__2() -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret35__2, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3708(line=184, offs=1) -- 3749(line=184, offs=42) -*/ -ATSINSflab(__patsflab_ptr_alloc): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42) -*/ -ATSINSmove(tmpret35__2, atspre_ptr_alloc_tsz(ATSPMVsizeof(atscntrb_gmp_mpz))) ; - -ATSfunbody_end() -ATSreturn(tmpret35__2) ; -} /* end of [ATSLIB_056_prelude__ptr_alloc__17__2] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2209(line=74, offs=3) -- 2301(line=80, offs=2) -*/ -/* -local: -global: intinf_make_int$15$3(level=1) -local: -global: -*/ -ATSstatic() -/* -imparg = -tmparg = -tmpsub = Some() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__3(atstkind_t0ype(atstype_int) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret29__3, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp30__3, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp31__3) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2191(line=73, offs=1) -- 2301(line=80, offs=2) -*/ -ATSINSflab(__patsflab_intinf_make_int): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2238(line=77, offs=9) -- 2254(line=77, offs=25) -*/ -ATSINSmove(tmp30__3, ATSLIB_056_prelude__ptr_alloc__17__3()) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2264(line=78, offs=10) -- 2296(line=78, offs=42) -*/ -ATSINSmove_void(tmp31__3, atscntrb_gmp_mpz_init_set_int(ATSPMVrefarg1(ATSSELrecsin(tmp30__3, atstkind_type(atstype_ptrk), atslab__2)), arg0)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2216(line=74, offs=10) -- 2217(line=74, offs=11) -*/ -ATSINSmove(tmpret29__3, tmp30__3) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret29__3) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__3] */ - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42) -*/ -/* -local: -global: ptr_alloc$17$3(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = a(4740) -tmparg = S2Evar(a(4740)) -tmpsub = Some(a(4740) -> S2Ecst(mpz_vt0ype)) -*/ -atstkind_type(atstype_ptrk) -ATSLIB_056_prelude__ptr_alloc__17__3() -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret35__3, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3708(line=184, offs=1) -- 3749(line=184, offs=42) -*/ -ATSINSflab(__patsflab_ptr_alloc): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42) -*/ -ATSINSmove(tmpret35__3, atspre_ptr_alloc_tsz(ATSPMVsizeof(atscntrb_gmp_mpz))) ; - -ATSfunbody_end() -ATSreturn(tmpret35__3) ; -} /* end of [ATSLIB_056_prelude__ptr_alloc__17__3] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2209(line=74, offs=3) -- 2301(line=80, offs=2) -*/ -/* -local: -global: intinf_make_int$15$4(level=1) -local: -global: -*/ -ATSstatic() -/* -imparg = -tmparg = -tmpsub = Some() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__4(atstkind_t0ype(atstype_int) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret29__4, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp30__4, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp31__4) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2191(line=73, offs=1) -- 2301(line=80, offs=2) -*/ -ATSINSflab(__patsflab_intinf_make_int): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2238(line=77, offs=9) -- 2254(line=77, offs=25) -*/ -ATSINSmove(tmp30__4, ATSLIB_056_prelude__ptr_alloc__17__4()) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2264(line=78, offs=10) -- 2296(line=78, offs=42) -*/ -ATSINSmove_void(tmp31__4, atscntrb_gmp_mpz_init_set_int(ATSPMVrefarg1(ATSSELrecsin(tmp30__4, atstkind_type(atstype_ptrk), atslab__2)), arg0)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2216(line=74, offs=10) -- 2217(line=74, offs=11) -*/ -ATSINSmove(tmpret29__4, tmp30__4) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret29__4) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__4] */ - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42) -*/ -/* -local: -global: ptr_alloc$17$4(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = a(4740) -tmparg = S2Evar(a(4740)) -tmpsub = Some(a(4740) -> S2Ecst(mpz_vt0ype)) -*/ -atstkind_type(atstype_ptrk) -ATSLIB_056_prelude__ptr_alloc__17__4() -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret35__4, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3708(line=184, offs=1) -- 3749(line=184, offs=42) -*/ -ATSINSflab(__patsflab_ptr_alloc): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42) -*/ -ATSINSmove(tmpret35__4, atspre_ptr_alloc_tsz(ATSPMVsizeof(atscntrb_gmp_mpz))) ; - -ATSfunbody_end() -ATSreturn(tmpret35__4) ; -} /* end of [ATSLIB_056_prelude__ptr_alloc__17__4] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2209(line=74, offs=3) -- 2301(line=80, offs=2) -*/ -/* -local: -global: intinf_make_int$15$5(level=1) -local: -global: -*/ -ATSstatic() -/* -imparg = -tmparg = -tmpsub = Some() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__5(atstkind_t0ype(atstype_int) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret29__5, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp30__5, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp31__5) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2191(line=73, offs=1) -- 2301(line=80, offs=2) -*/ -ATSINSflab(__patsflab_intinf_make_int): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2238(line=77, offs=9) -- 2254(line=77, offs=25) -*/ -ATSINSmove(tmp30__5, ATSLIB_056_prelude__ptr_alloc__17__5()) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2264(line=78, offs=10) -- 2296(line=78, offs=42) -*/ -ATSINSmove_void(tmp31__5, atscntrb_gmp_mpz_init_set_int(ATSPMVrefarg1(ATSSELrecsin(tmp30__5, atstkind_type(atstype_ptrk), atslab__2)), arg0)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2216(line=74, offs=10) -- 2217(line=74, offs=11) -*/ -ATSINSmove(tmpret29__5, tmp30__5) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret29__5) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__5] */ - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42) -*/ -/* -local: -global: ptr_alloc$17$5(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = a(4740) -tmparg = S2Evar(a(4740)) -tmpsub = Some(a(4740) -> S2Ecst(mpz_vt0ype)) -*/ -atstkind_type(atstype_ptrk) -ATSLIB_056_prelude__ptr_alloc__17__5() -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret35__5, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3708(line=184, offs=1) -- 3749(line=184, offs=42) -*/ -ATSINSflab(__patsflab_ptr_alloc): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42) -*/ -ATSINSmove(tmpret35__5, atspre_ptr_alloc_tsz(ATSPMVsizeof(atscntrb_gmp_mpz))) ; - -ATSfunbody_end() -ATSreturn(tmpret35__5) ; -} /* end of [ATSLIB_056_prelude__ptr_alloc__17__5] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 1023(line=37, offs=5) -- 1274(line=45, offs=8) -*/ -/* -local: fact_ref_28$0(level=0) -global: fact_ref_28$0(level=0) -local: -global: -*/ -ATSstatic() -atsvoid_t0ype -fact_ref_28(atstkind_t0ype(atstype_int) arg0, atsrefarg1_type(atstkind_type(atstype_ptrk)) arg1) -{ -/* tmpvardeclst(beg) */ -// ATStmpdec_void(tmpret56) ; -ATStmpdec(tmp57, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp62, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp67) ; -ATStmpdec(tmp68, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp69, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 1023(line=37, offs=5) -- 1274(line=45, offs=8) -*/ -ATSINSflab(__patsflab_fact_ref_28): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 1096(line=38, offs=3) -- 1274(line=45, offs=8) -*/ -ATScaseof_beg() -/* -** ibranchlst-beg -*/ -ATSbranch_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 1113(line=39, offs=7) -- 1114(line=39, offs=8) -*/ -ATSINSlab(__atstmplab7): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 1047(line=37, offs=29) -- 1048(line=37, offs=30) -*/ -ATSifnthen(ATSCKpat_int(arg0, ATSPMVint(0))) { ATSINSgoto(__atstmplab9) ; } ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 1114(line=39, offs=8) -- 1114(line=39, offs=8) -*/ -ATSINSlab(__atstmplab8): -/* -emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) -*/ -/* -ibranch-mbody: -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 1125(line=39, offs=19) -- 1138(line=39, offs=32) -*/ -ATSINSmove(tmp57, ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__6(ATSPMVi0nt(1))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 1118(line=39, offs=12) -- 1138(line=39, offs=32) -*/ -ATSINSstore(ATSderef(arg1, atstkind_type(atstype_ptrk)), tmp57) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 1118(line=39, offs=12) -- 1138(line=39, offs=32) -*/ -ATSINSmove_void(tmpret56, ATSPMVempty()) ; -ATSbranch_end() - -ATSbranch_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 1145(line=40, offs=7) -- 1146(line=40, offs=8) -*/ -ATSINSlab(__atstmplab9): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 1047(line=37, offs=29) -- 1048(line=37, offs=30) -*/ -ATSifnthen(ATSCKpat_int(arg0, ATSPMVint(1))) { ATSINSgoto(__atstmplab11) ; } ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 1146(line=40, offs=8) -- 1146(line=40, offs=8) -*/ -ATSINSlab(__atstmplab10): -/* -emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) -*/ -/* -ibranch-mbody: -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 1157(line=40, offs=19) -- 1170(line=40, offs=32) -*/ -ATSINSmove(tmp62, ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__7(ATSPMVi0nt(1))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 1150(line=40, offs=12) -- 1170(line=40, offs=32) -*/ -ATSINSstore(ATSderef(arg1, atstkind_type(atstype_ptrk)), tmp62) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 1150(line=40, offs=12) -- 1170(line=40, offs=32) -*/ -ATSINSmove_void(tmpret56, ATSPMVempty()) ; -ATSbranch_end() - -ATSbranch_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 1178(line=41, offs=8) -- 1178(line=41, offs=8) -*/ -ATSINSlab(__atstmplab11): -/* -emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) -*/ -/* -ibranch-mbody: -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 1183(line=41, offs=13) -- 1274(line=45, offs=8) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 1211(line=42, offs=25) -- 1216(line=42, offs=30) -*/ -ATSINSmove(tmp68, atspre_g1int_sub_int(arg0, ATSPMVi0nt(1))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 1202(line=42, offs=16) -- 1222(line=42, offs=36) -*/ -ATSINSmove_void(tmp67, fact_ref_28(tmp68, ATSPMVrefarg1(arg1))) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 1243(line=44, offs=14) -- 1266(line=44, offs=37) -*/ -ATSINSmove(tmp69, ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_int__8__3(ATSderef(arg1, atstkind_type(atstype_ptrk)), arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 1236(line=44, offs=7) -- 1266(line=44, offs=37) -*/ -ATSINSstore(ATSderef(arg1, atstkind_type(atstype_ptrk)), tmp69) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 1236(line=44, offs=7) -- 1266(line=44, offs=37) -*/ -ATSINSmove_void(tmpret56, ATSPMVempty()) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 1183(line=41, offs=13) -- 1274(line=45, offs=8) -*/ -/* -INSletpop() -*/ -ATSbranch_end() - -/* -** ibranchlst-end -*/ -ATScaseof_end() - -ATSfunbody_end() -ATSreturn_void(tmpret56) ; -} /* end of [fact_ref_28] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2209(line=74, offs=3) -- 2301(line=80, offs=2) -*/ -/* -local: -global: intinf_make_int$15$6(level=1) -local: -global: -*/ -ATSstatic() -/* -imparg = -tmparg = -tmpsub = Some() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__6(atstkind_t0ype(atstype_int) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret29__6, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp30__6, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp31__6) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2191(line=73, offs=1) -- 2301(line=80, offs=2) -*/ -ATSINSflab(__patsflab_intinf_make_int): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2238(line=77, offs=9) -- 2254(line=77, offs=25) -*/ -ATSINSmove(tmp30__6, ATSLIB_056_prelude__ptr_alloc__17__6()) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2264(line=78, offs=10) -- 2296(line=78, offs=42) -*/ -ATSINSmove_void(tmp31__6, atscntrb_gmp_mpz_init_set_int(ATSPMVrefarg1(ATSSELrecsin(tmp30__6, atstkind_type(atstype_ptrk), atslab__2)), arg0)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2216(line=74, offs=10) -- 2217(line=74, offs=11) -*/ -ATSINSmove(tmpret29__6, tmp30__6) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret29__6) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__6] */ - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42) -*/ -/* -local: -global: ptr_alloc$17$6(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = a(4740) -tmparg = S2Evar(a(4740)) -tmpsub = Some(a(4740) -> S2Ecst(mpz_vt0ype)) -*/ -atstkind_type(atstype_ptrk) -ATSLIB_056_prelude__ptr_alloc__17__6() -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret35__6, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3708(line=184, offs=1) -- 3749(line=184, offs=42) -*/ -ATSINSflab(__patsflab_ptr_alloc): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42) -*/ -ATSINSmove(tmpret35__6, atspre_ptr_alloc_tsz(ATSPMVsizeof(atscntrb_gmp_mpz))) ; - -ATSfunbody_end() -ATSreturn(tmpret35__6) ; -} /* end of [ATSLIB_056_prelude__ptr_alloc__17__6] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2209(line=74, offs=3) -- 2301(line=80, offs=2) -*/ -/* -local: -global: intinf_make_int$15$7(level=1) -local: -global: -*/ -ATSstatic() -/* -imparg = -tmparg = -tmpsub = Some() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__7(atstkind_t0ype(atstype_int) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret29__7, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp30__7, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp31__7) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2191(line=73, offs=1) -- 2301(line=80, offs=2) -*/ -ATSINSflab(__patsflab_intinf_make_int): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2238(line=77, offs=9) -- 2254(line=77, offs=25) -*/ -ATSINSmove(tmp30__7, ATSLIB_056_prelude__ptr_alloc__17__7()) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2264(line=78, offs=10) -- 2296(line=78, offs=42) -*/ -ATSINSmove_void(tmp31__7, atscntrb_gmp_mpz_init_set_int(ATSPMVrefarg1(ATSSELrecsin(tmp30__7, atstkind_type(atstype_ptrk), atslab__2)), arg0)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2216(line=74, offs=10) -- 2217(line=74, offs=11) -*/ -ATSINSmove(tmpret29__7, tmp30__7) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret29__7) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__7] */ - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42) -*/ -/* -local: -global: ptr_alloc$17$7(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = a(4740) -tmparg = S2Evar(a(4740)) -tmpsub = Some(a(4740) -> S2Ecst(mpz_vt0ype)) -*/ -atstkind_type(atstype_ptrk) -ATSLIB_056_prelude__ptr_alloc__17__7() -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret35__7, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3708(line=184, offs=1) -- 3749(line=184, offs=42) -*/ -ATSINSflab(__patsflab_ptr_alloc): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42) -*/ -ATSINSmove(tmpret35__7, atspre_ptr_alloc_tsz(ATSPMVsizeof(atscntrb_gmp_mpz))) ; - -ATSfunbody_end() -ATSreturn(tmpret35__7) ; -} /* end of [ATSLIB_056_prelude__ptr_alloc__17__7] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7394(line=413, offs=3) -- 7461(line=418, offs=2) -*/ -/* -local: -global: mul_intinf0_int$8$3(level=1) -local: -global: -*/ -ATSstatic() -/* -imparg = -tmparg = -tmpsub = Some() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_int__8__3(atstkind_type(atstype_ptrk) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret13__3, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp14__3) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7376(line=412, offs=1) -- 7461(line=418, offs=2) -*/ -ATSINSflab(__patsflab_mul_intinf0_int): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7403(line=413, offs=12) -- 7461(line=418, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7427(line=416, offs=10) -- 7456(line=416, offs=39) -*/ -ATSINSmove_void(tmp14__3, atscntrb_gmp_mpz_mul2_int(ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), arg1)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7404(line=413, offs=13) -- 7405(line=413, offs=14) -*/ -ATSINSmove(tmpret13__3, arg0) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7403(line=413, offs=12) -- 7461(line=418, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret13__3) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_int__8__3] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 1279(line=47, offs=4) -- 1395(line=53, offs=6) -*/ -/* -local: fact_ref_28$0(level=0) -global: fact_ref_28$0(level=0), fact_34$0(level=0) -local: -global: -*/ -ATSstatic() -atstkind_type(atstype_ptrk) -fact_34(atstkind_t0ype(atstype_int) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret72, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmpref73, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp74) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 1279(line=47, offs=4) -- 1395(line=53, offs=6) -*/ -ATSINSflab(__patsflab_fact_34): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 1317(line=48, offs=3) -- 1395(line=53, offs=6) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 1329(line=49, offs=9) -- 1332(line=49, offs=12) -*/ -/* -ATSINStmpdec(tmpref73) ; -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 1360(line=50, offs=14) -- 1376(line=50, offs=30) -*/ -ATSINSmove_void(tmp74, fact_ref_28(arg0, ATSPMVrefarg1(ATSPMVptrof(tmpref73)))) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 1386(line=52, offs=5) -- 1389(line=52, offs=8) -*/ -ATSINSmove(tmpret72, tmpref73) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 1317(line=48, offs=3) -- 1395(line=53, offs=6) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret72) ; -} /* end of [fact_34] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 1401(line=55, offs=5) -- 1670(line=64, offs=8) -*/ -/* -local: dfact_ref_35$0(level=0) -global: dfact_ref_35$0(level=0) -local: -global: -*/ -ATSstatic() -atsvoid_t0ype -dfact_ref_35(atstkind_t0ype(atstype_int) arg0, atsrefarg1_type(atstkind_type(atstype_ptrk)) arg1) -{ -/* tmpvardeclst(beg) */ -// ATStmpdec_void(tmpret75) ; -ATStmpdec(tmp76, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp81, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp86) ; -ATStmpdec(tmp87, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmpref88, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 1401(line=55, offs=5) -- 1670(line=64, offs=8) -*/ -ATSINSflab(__patsflab_dfact_ref_35): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 1475(line=56, offs=3) -- 1670(line=64, offs=8) -*/ -ATScaseof_beg() -/* -** ibranchlst-beg -*/ -ATSbranch_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 1492(line=57, offs=7) -- 1493(line=57, offs=8) -*/ -ATSINSlab(__atstmplab12): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 1426(line=55, offs=30) -- 1427(line=55, offs=31) -*/ -ATSifnthen(ATSCKpat_int(arg0, ATSPMVint(0))) { ATSINSgoto(__atstmplab14) ; } ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 1493(line=57, offs=8) -- 1493(line=57, offs=8) -*/ -ATSINSlab(__atstmplab13): -/* -emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) -*/ -/* -ibranch-mbody: -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 1504(line=57, offs=19) -- 1517(line=57, offs=32) -*/ -ATSINSmove(tmp76, ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__8(ATSPMVi0nt(1))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 1497(line=57, offs=12) -- 1517(line=57, offs=32) -*/ -ATSINSstore(ATSderef(arg1, atstkind_type(atstype_ptrk)), tmp76) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 1497(line=57, offs=12) -- 1517(line=57, offs=32) -*/ -ATSINSmove_void(tmpret75, ATSPMVempty()) ; -ATSbranch_end() - -ATSbranch_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 1524(line=58, offs=7) -- 1525(line=58, offs=8) -*/ -ATSINSlab(__atstmplab14): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 1426(line=55, offs=30) -- 1427(line=55, offs=31) -*/ -ATSifnthen(ATSCKpat_int(arg0, ATSPMVint(1))) { ATSINSgoto(__atstmplab16) ; } ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 1525(line=58, offs=8) -- 1525(line=58, offs=8) -*/ -ATSINSlab(__atstmplab15): -/* -emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) -*/ -/* -ibranch-mbody: -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 1536(line=58, offs=19) -- 1549(line=58, offs=32) -*/ -ATSINSmove(tmp81, ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__9(ATSPMVi0nt(1))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 1529(line=58, offs=12) -- 1549(line=58, offs=32) -*/ -ATSINSstore(ATSderef(arg1, atstkind_type(atstype_ptrk)), tmp81) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 1529(line=58, offs=12) -- 1549(line=58, offs=32) -*/ -ATSINSmove_void(tmpret75, ATSPMVempty()) ; -ATSbranch_end() - -ATSbranch_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 1557(line=59, offs=8) -- 1557(line=59, offs=8) -*/ -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/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 1562(line=59, offs=13) -- 1670(line=64, offs=8) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 1591(line=60, offs=26) -- 1596(line=60, offs=31) -*/ -ATSINSmove(tmp87, atspre_g1int_sub_int(arg0, ATSPMVi0nt(2))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 1581(line=60, offs=16) -- 1602(line=60, offs=37) -*/ -ATSINSmove_void(tmp86, dfact_ref_35(tmp87, ATSPMVrefarg1(arg1))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 1613(line=61, offs=11) -- 1614(line=61, offs=12) -*/ -/* -ATSINStmpdec(tmpref88) ; -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 1617(line=61, offs=15) -- 1640(line=61, offs=38) -*/ -ATSINSmove(tmpref88, ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_int__8__4(ATSderef(arg1, atstkind_type(atstype_ptrk)), arg0)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 1654(line=63, offs=7) -- 1662(line=63, offs=15) -*/ -ATSINSstore(ATSderef(arg1, atstkind_type(atstype_ptrk)), tmpref88) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 1654(line=63, offs=7) -- 1662(line=63, offs=15) -*/ -ATSINSmove_void(tmpret75, ATSPMVempty()) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 1562(line=59, offs=13) -- 1670(line=64, offs=8) -*/ -/* -INSletpop() -*/ -ATSbranch_end() - -/* -** ibranchlst-end -*/ -ATScaseof_end() - -ATSfunbody_end() -ATSreturn_void(tmpret75) ; -} /* end of [dfact_ref_35] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2209(line=74, offs=3) -- 2301(line=80, offs=2) -*/ -/* -local: -global: intinf_make_int$15$8(level=1) -local: -global: -*/ -ATSstatic() -/* -imparg = -tmparg = -tmpsub = Some() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__8(atstkind_t0ype(atstype_int) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret29__8, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp30__8, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp31__8) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2191(line=73, offs=1) -- 2301(line=80, offs=2) -*/ -ATSINSflab(__patsflab_intinf_make_int): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2238(line=77, offs=9) -- 2254(line=77, offs=25) -*/ -ATSINSmove(tmp30__8, ATSLIB_056_prelude__ptr_alloc__17__8()) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2264(line=78, offs=10) -- 2296(line=78, offs=42) -*/ -ATSINSmove_void(tmp31__8, atscntrb_gmp_mpz_init_set_int(ATSPMVrefarg1(ATSSELrecsin(tmp30__8, atstkind_type(atstype_ptrk), atslab__2)), arg0)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2216(line=74, offs=10) -- 2217(line=74, offs=11) -*/ -ATSINSmove(tmpret29__8, tmp30__8) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret29__8) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__8] */ - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42) -*/ -/* -local: -global: ptr_alloc$17$8(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = a(4740) -tmparg = S2Evar(a(4740)) -tmpsub = Some(a(4740) -> S2Ecst(mpz_vt0ype)) -*/ -atstkind_type(atstype_ptrk) -ATSLIB_056_prelude__ptr_alloc__17__8() -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret35__8, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3708(line=184, offs=1) -- 3749(line=184, offs=42) -*/ -ATSINSflab(__patsflab_ptr_alloc): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42) -*/ -ATSINSmove(tmpret35__8, atspre_ptr_alloc_tsz(ATSPMVsizeof(atscntrb_gmp_mpz))) ; - -ATSfunbody_end() -ATSreturn(tmpret35__8) ; -} /* end of [ATSLIB_056_prelude__ptr_alloc__17__8] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2209(line=74, offs=3) -- 2301(line=80, offs=2) -*/ -/* -local: -global: intinf_make_int$15$9(level=1) -local: -global: -*/ -ATSstatic() -/* -imparg = -tmparg = -tmpsub = Some() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__9(atstkind_t0ype(atstype_int) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret29__9, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp30__9, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp31__9) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2191(line=73, offs=1) -- 2301(line=80, offs=2) -*/ -ATSINSflab(__patsflab_intinf_make_int): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2238(line=77, offs=9) -- 2254(line=77, offs=25) -*/ -ATSINSmove(tmp30__9, ATSLIB_056_prelude__ptr_alloc__17__9()) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2264(line=78, offs=10) -- 2296(line=78, offs=42) -*/ -ATSINSmove_void(tmp31__9, atscntrb_gmp_mpz_init_set_int(ATSPMVrefarg1(ATSSELrecsin(tmp30__9, atstkind_type(atstype_ptrk), atslab__2)), arg0)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2216(line=74, offs=10) -- 2217(line=74, offs=11) -*/ -ATSINSmove(tmpret29__9, tmp30__9) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret29__9) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__9] */ - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42) -*/ -/* -local: -global: ptr_alloc$17$9(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = a(4740) -tmparg = S2Evar(a(4740)) -tmpsub = Some(a(4740) -> S2Ecst(mpz_vt0ype)) -*/ -atstkind_type(atstype_ptrk) -ATSLIB_056_prelude__ptr_alloc__17__9() -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret35__9, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3708(line=184, offs=1) -- 3749(line=184, offs=42) -*/ -ATSINSflab(__patsflab_ptr_alloc): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42) -*/ -ATSINSmove(tmpret35__9, atspre_ptr_alloc_tsz(ATSPMVsizeof(atscntrb_gmp_mpz))) ; - -ATSfunbody_end() -ATSreturn(tmpret35__9) ; -} /* end of [ATSLIB_056_prelude__ptr_alloc__17__9] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7394(line=413, offs=3) -- 7461(line=418, offs=2) -*/ -/* -local: -global: mul_intinf0_int$8$4(level=1) -local: -global: -*/ -ATSstatic() -/* -imparg = -tmparg = -tmpsub = Some() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_int__8__4(atstkind_type(atstype_ptrk) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret13__4, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp14__4) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7376(line=412, offs=1) -- 7461(line=418, offs=2) -*/ -ATSINSflab(__patsflab_mul_intinf0_int): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7403(line=413, offs=12) -- 7461(line=418, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7427(line=416, offs=10) -- 7456(line=416, offs=39) -*/ -ATSINSmove_void(tmp14__4, atscntrb_gmp_mpz_mul2_int(ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), arg1)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7404(line=413, offs=13) -- 7405(line=413, offs=14) -*/ -ATSINSmove(tmpret13__4, arg0) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7403(line=413, offs=12) -- 7461(line=418, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret13__4) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_int__8__4] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 1676(line=66, offs=5) -- 1801(line=72, offs=6) -*/ -/* -local: dfact_ref_35$0(level=0) -global: dfact_ref_35$0(level=0), dfact_41$0(level=0) -local: -global: -*/ -ATSstatic() -atstkind_type(atstype_ptrk) -dfact_41(atstkind_t0ype(atstype_int) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret91, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmpref92, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp93) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 1676(line=66, offs=5) -- 1801(line=72, offs=6) -*/ -ATSINSflab(__patsflab_dfact_41): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 1722(line=67, offs=3) -- 1801(line=72, offs=6) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 1734(line=68, offs=9) -- 1737(line=68, offs=12) -*/ -/* -ATSINStmpdec(tmpref92) ; -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 1765(line=69, offs=14) -- 1782(line=69, offs=31) -*/ -ATSINSmove_void(tmp93, dfact_ref_35(arg0, ATSPMVrefarg1(ATSPMVptrof(tmpref92)))) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 1792(line=71, offs=5) -- 1795(line=71, offs=8) -*/ -ATSINSmove(tmpret91, tmpref92) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 1722(line=67, offs=3) -- 1801(line=72, offs=6) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret91) ; -} /* end of [dfact_41] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 1806(line=74, offs=4) -- 2194(line=86, offs=6) -*/ -/* -local: -global: permutations_42$0(level=0) -local: -global: -*/ -ATSstatic() -atstkind_type(atstype_ptrk) -permutations_42(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret94, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmpref115, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp116) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 1806(line=74, offs=4) -- 2194(line=86, offs=6) -*/ -ATSINSflab(__patsflab_permutations_42): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 1893(line=75, offs=3) -- 2194(line=86, offs=6) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 2138(line=82, offs=9) -- 2141(line=82, offs=12) -*/ -/* -ATSINStmpdec(tmpref115) ; -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 2163(line=83, offs=14) -- 2175(line=83, offs=26) -*/ -ATSINSmove_void(tmp116, loop_43(arg0, arg1, arg0, ATSPMVrefarg1(ATSPMVptrof(tmpref115)))) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 2185(line=85, offs=5) -- 2188(line=85, offs=8) -*/ -ATSINSmove(tmpret94, tmpref115) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 1893(line=75, offs=3) -- 2194(line=86, offs=6) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret94) ; -} /* end of [permutations_42] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 1905(line=76, offs=9) -- 2124(line=80, offs=37) -*/ -/* -local: loop_43$0(level=1) -global: loop_43$0(level=1) -local: n$5106(1)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))), k$5107(1)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))) -global: n$5106(1)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))), k$5107(1)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))) -*/ -ATSstatic() -atsvoid_t0ype -loop_43(atstkind_t0ype(atstype_int) env0, atstkind_t0ype(atstype_int) env1, atstkind_t0ype(atstype_int) arg0, atsrefarg1_type(atstkind_type(atstype_ptrk)) arg1) -{ -/* tmpvardeclst(beg) */ -// ATStmpdec_void(tmpret95) ; -ATStmpdec(tmp96, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp101, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp102, atstkind_t0ype(atstype_int)) ; -// ATStmpdec_void(tmp103) ; -ATStmpdec(tmp104, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp105, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp108, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp113, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp114, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 1905(line=76, offs=9) -- 2124(line=80, offs=37) -*/ -ATSINSflab(__patsflab_loop_43): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 2002(line=77, offs=14) -- 2007(line=77, offs=19) -*/ -ATSINSmove(tmp102, atspre_g1int_sub_int(env0, env1)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 2002(line=77, offs=14) -- 2011(line=77, offs=23) -*/ -ATSINSmove(tmp101, atspre_g1int_add_int(tmp102, ATSPMVi0nt(1))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 1998(line=77, offs=10) -- 2011(line=77, offs=23) -*/ -ATSINSmove(tmp96, ATSLIB_056_prelude__gt_g1int_int__44__1(arg0, tmp101)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 1995(line=77, offs=7) -- 2124(line=80, offs=37) -*/ -ATSif( -tmp96 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 2031(line=78, offs=15) -- 2036(line=78, offs=20) -*/ -ATSINSmove(tmp104, atspre_g1int_sub_int(arg0, ATSPMVi0nt(1))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 2026(line=78, offs=10) -- 2042(line=78, offs=26) -*/ -ATSINSmove_void(tmp103, loop_43(env0, env1, tmp104, ATSPMVrefarg1(arg1))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 2052(line=78, offs=36) -- 2075(line=78, offs=59) -*/ -ATSINSmove(tmp105, ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_int__8__5(ATSderef(arg1, atstkind_type(atstype_ptrk)), arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 2045(line=78, offs=29) -- 2075(line=78, offs=59) -*/ -ATSINSstore(ATSderef(arg1, atstkind_type(atstype_ptrk)), tmp105) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 2045(line=78, offs=29) -- 2075(line=78, offs=59) -*/ -ATSINSmove_void(tmpret95, ATSPMVempty()) ; -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 2103(line=80, offs=16) -- 2124(line=80, offs=37) -*/ -ATSINSmove(tmp114, atspre_g1int_sub_int(env0, env1)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 2103(line=80, offs=16) -- 2124(line=80, offs=37) -*/ -ATSINSmove(tmp113, atspre_g1int_add_int(tmp114, ATSPMVi0nt(1))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 2103(line=80, offs=16) -- 2124(line=80, offs=37) -*/ -ATSINSmove(tmp108, ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__10(tmp113)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 2096(line=80, offs=9) -- 2124(line=80, offs=37) -*/ -ATSINSstore(ATSderef(arg1, atstkind_type(atstype_ptrk)), tmp108) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 2096(line=80, offs=9) -- 2124(line=80, offs=37) -*/ -ATSINSmove_void(tmpret95, ATSPMVempty()) ; -} /* ATSendif */ -ATSfunbody_end() -ATSreturn_void(tmpret95) ; -} /* end of [loop_43] */ - -#if(0) -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12679(line=659, offs=3) -- 12718(line=659, offs=42) -*/ -/* -local: -global: gt_g1int_int$44$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = tk(4637) -tmparg = S2Evar(tk(4637)) -tmpsub = None() -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__gt_g1int_int__44(atstkind_t0ype(atstyvar_type(tk)) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret97, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp98, atstkind_t0ype(atstyvar_type(tk))) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12664(line=658, offs=1) -- 12718(line=659, offs=42) -*/ -ATSINSflab(__patsflab_gt_g1int_int): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12705(line=659, offs=29) -- 12716(line=659, offs=40) -*/ -ATSINSmove(tmp98, PMVtmpltcst(g1int2int)(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12688(line=659, offs=12) -- 12718(line=659, offs=42) -*/ -ATSINSmove(tmpret97, PMVtmpltcst(g1int_gt)(arg0, tmp98)) ; - -ATSfunbody_end() -ATSreturn(tmpret97) ; -} /* end of [ATSLIB_056_prelude__gt_g1int_int__44] */ -#endif // end of [TEMPLATE] - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12679(line=659, offs=3) -- 12718(line=659, offs=42) -*/ -/* -local: -global: gt_g1int_int$44$1(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4637) -tmparg = S2Evar(tk(4637)) -tmpsub = Some(tk(4637) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__gt_g1int_int__44__1(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret97__1, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp98__1, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12664(line=658, offs=1) -- 12718(line=659, offs=42) -*/ -ATSINSflab(__patsflab_gt_g1int_int): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12705(line=659, offs=29) -- 12716(line=659, offs=40) -*/ -ATSINSmove(tmp98__1, atspre_g1int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12688(line=659, offs=12) -- 12718(line=659, offs=42) -*/ -ATSINSmove(tmpret97__1, atspre_g1int_gt_int(arg0, tmp98__1)) ; - -ATSfunbody_end() -ATSreturn(tmpret97__1) ; -} /* end of [ATSLIB_056_prelude__gt_g1int_int__44__1] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7394(line=413, offs=3) -- 7461(line=418, offs=2) -*/ -/* -local: -global: mul_intinf0_int$8$5(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = -tmparg = -tmpsub = Some() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_int__8__5(atstkind_type(atstype_ptrk) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret13__5, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp14__5) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7376(line=412, offs=1) -- 7461(line=418, offs=2) -*/ -ATSINSflab(__patsflab_mul_intinf0_int): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7403(line=413, offs=12) -- 7461(line=418, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7427(line=416, offs=10) -- 7456(line=416, offs=39) -*/ -ATSINSmove_void(tmp14__5, atscntrb_gmp_mpz_mul2_int(ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), arg1)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7404(line=413, offs=13) -- 7405(line=413, offs=14) -*/ -ATSINSmove(tmpret13__5, arg0) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7403(line=413, offs=12) -- 7461(line=418, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret13__5) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_int__8__5] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2209(line=74, offs=3) -- 2301(line=80, offs=2) -*/ -/* -local: -global: intinf_make_int$15$10(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = -tmparg = -tmpsub = Some() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__10(atstkind_t0ype(atstype_int) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret29__10, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp30__10, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp31__10) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2191(line=73, offs=1) -- 2301(line=80, offs=2) -*/ -ATSINSflab(__patsflab_intinf_make_int): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2238(line=77, offs=9) -- 2254(line=77, offs=25) -*/ -ATSINSmove(tmp30__10, ATSLIB_056_prelude__ptr_alloc__17__10()) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2264(line=78, offs=10) -- 2296(line=78, offs=42) -*/ -ATSINSmove_void(tmp31__10, atscntrb_gmp_mpz_init_set_int(ATSPMVrefarg1(ATSSELrecsin(tmp30__10, atstkind_type(atstype_ptrk), atslab__2)), arg0)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2216(line=74, offs=10) -- 2217(line=74, offs=11) -*/ -ATSINSmove(tmpret29__10, tmp30__10) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret29__10) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__10] */ - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42) -*/ -/* -local: -global: ptr_alloc$17$10(level=3) -local: -global: -*/ -ATSstatic() -/* -imparg = a(4740) -tmparg = S2Evar(a(4740)) -tmpsub = Some(a(4740) -> S2Ecst(mpz_vt0ype)) -*/ -atstkind_type(atstype_ptrk) -ATSLIB_056_prelude__ptr_alloc__17__10() -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret35__10, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3708(line=184, offs=1) -- 3749(line=184, offs=42) -*/ -ATSINSflab(__patsflab_ptr_alloc): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42) -*/ -ATSINSmove(tmpret35__10, atspre_ptr_alloc_tsz(ATSPMVsizeof(atscntrb_gmp_mpz))) ; - -ATSfunbody_end() -ATSreturn(tmpret35__10) ; -} /* end of [ATSLIB_056_prelude__ptr_alloc__17__10] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 2199(line=88, offs=4) -- 2763(line=111, offs=6) -*/ -/* -local: fact_34$0(level=0) -global: fact_ref_28$0(level=0), fact_34$0(level=0), catalan_50$0(level=0) -local: -global: -*/ -ATSstatic() -atstkind_type(atstype_ptrk) -catalan_50(atstkind_t0ype(atstype_int) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret117, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmpref138, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmpref139, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmpref140, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp145) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 2199(line=88, offs=4) -- 2763(line=111, offs=6) -*/ -ATSINSflab(__patsflab_catalan_50): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 2240(line=89, offs=3) -- 2763(line=111, offs=6) -*/ -/* -letpush(beg) -*/ -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 2515(line=100, offs=5) -- 2757(line=110, offs=10) -*/ -ATScaseof_beg() -/* -** ibranchlst-beg -*/ -ATSbranch_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 2534(line=101, offs=9) -- 2535(line=101, offs=10) -*/ -ATSINSlab(__atstmplab20): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 2215(line=88, offs=20) -- 2216(line=88, offs=21) -*/ -ATSifnthen(ATSCKpat_int(arg0, ATSPMVint(0))) { ATSINSgoto(__atstmplab22) ; } ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 2535(line=101, offs=10) -- 2535(line=101, offs=10) -*/ -ATSINSlab(__atstmplab21): -/* -emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) -*/ -/* -ibranch-mbody: -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 2539(line=101, offs=14) -- 2552(line=101, offs=27) -*/ -ATSINSmove(tmpret117, ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__12(ATSPMVi0nt(1))) ; - -ATSbranch_end() - -ATSbranch_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 2561(line=102, offs=9) -- 2562(line=102, offs=10) -*/ -ATSINSlab(__atstmplab22): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 2215(line=88, offs=20) -- 2216(line=88, offs=21) -*/ -ATSifnthen(ATSCKpat_int(arg0, ATSPMVint(1))) { ATSINSgoto(__atstmplab24) ; } ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 2562(line=102, offs=10) -- 2562(line=102, offs=10) -*/ -ATSINSlab(__atstmplab23): -/* -emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) -*/ -/* -ibranch-mbody: -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 2566(line=102, offs=14) -- 2579(line=102, offs=27) -*/ -ATSINSmove(tmpret117, ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__13(ATSPMVi0nt(1))) ; - -ATSbranch_end() - -ATSbranch_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 2589(line=103, offs=10) -- 2589(line=103, offs=10) -*/ -ATSINSlab(__atstmplab24): -/* -emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) -*/ -/* -ibranch-mbody: -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 2594(line=103, offs=15) -- 2757(line=110, offs=10) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 2610(line=104, offs=13) -- 2611(line=104, offs=14) -*/ -/* -ATSINStmpdec(tmpref138) ; -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 2614(line=104, offs=17) -- 2630(line=104, offs=33) -*/ -ATSINSmove(tmpref138, numerator_loop_51(arg0, arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 2644(line=105, offs=13) -- 2645(line=105, offs=14) -*/ -/* -ATSINStmpdec(tmpref139) ; -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 2648(line=105, offs=17) -- 2654(line=105, offs=23) -*/ -ATSINSmove(tmpref139, fact_34(arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 2668(line=106, offs=13) -- 2669(line=106, offs=14) -*/ -/* -ATSINStmpdec(tmpref140) ; -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 2672(line=106, offs=17) -- 2697(line=106, offs=42) -*/ -ATSINSmove(tmpref140, ATSCNTRB_056_HX_056_intinf_vt__div_intinf0_intinf1__59__1(tmpref138, ATSPMVrefarg0(tmpref139))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 2714(line=107, offs=17) -- 2727(line=107, offs=30) -*/ -ATSINSmove_void(tmp145, ATSCNTRB_056_HX_056_intinf_vt__intinf_free__12__2(tmpref139)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 2746(line=109, offs=9) -- 2747(line=109, offs=10) -*/ -ATSINSmove(tmpret117, tmpref140) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 2594(line=103, offs=15) -- 2757(line=110, offs=10) -*/ -/* -INSletpop() -*/ -ATSbranch_end() - -/* -** ibranchlst-end -*/ -ATScaseof_end() - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 2240(line=89, offs=3) -- 2763(line=111, offs=6) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret117) ; -} /* end of [catalan_50] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 2252(line=90, offs=9) -- 2505(line=98, offs=12) -*/ -/* -local: numerator_loop_51$0(level=1) -global: numerator_loop_51$0(level=1) -local: n$5113(1)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))) -global: n$5113(1)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))) -*/ -ATSstatic() -atstkind_type(atstype_ptrk) -numerator_loop_51(atstkind_t0ype(atstype_int) env0, atstkind_t0ype(atstype_int) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret118, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp123, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmpref124, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp125, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmpref126, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp129, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 2252(line=90, offs=9) -- 2505(line=98, offs=12) -*/ -ATSINSflab(__patsflab_numerator_loop_51): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 2323(line=91, offs=7) -- 2505(line=98, offs=12) -*/ -ATScaseof_beg() -/* -** ibranchlst-beg -*/ -ATSbranch_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 2344(line=92, offs=11) -- 2345(line=92, offs=12) -*/ -ATSINSlab(__atstmplab17): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 2294(line=90, offs=51) -- 2295(line=90, offs=52) -*/ -ATSifnthen(ATSCKpat_int(arg0, ATSPMVint(2))) { ATSINSgoto(__atstmplab19) ; } ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 2345(line=92, offs=12) -- 2345(line=92, offs=12) -*/ -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/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 2349(line=92, offs=16) -- 2366(line=92, offs=33) -*/ -ATSINSmove(tmp123, atspre_g1int_add_int(env0, ATSPMVi0nt(2))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 2349(line=92, offs=16) -- 2366(line=92, offs=33) -*/ -ATSINSmove(tmpret118, ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__11(tmp123)) ; - -ATSbranch_end() - -ATSbranch_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 2378(line=93, offs=12) -- 2378(line=93, offs=12) -*/ -ATSINSlab(__atstmplab19): -/* -emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) -*/ -/* -ibranch-mbody: -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 2383(line=93, offs=17) -- 2505(line=98, offs=12) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 2401(line=94, offs=15) -- 2402(line=94, offs=16) -*/ -/* -ATSINStmpdec(tmpref124) ; -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 2420(line=94, offs=34) -- 2425(line=94, offs=39) -*/ -ATSINSmove(tmp125, atspre_g1int_sub_int(arg0, ATSPMVi0nt(1))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 2405(line=94, offs=19) -- 2426(line=94, offs=40) -*/ -ATSINSmove(tmpref124, numerator_loop_51(env0, tmp125)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 2441(line=95, offs=15) -- 2442(line=95, offs=16) -*/ -/* -ATSINStmpdec(tmpref126) ; -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 2464(line=95, offs=38) -- 2469(line=95, offs=43) -*/ -ATSINSmove(tmp129, atspre_g1int_add_int(env0, arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 2445(line=95, offs=19) -- 2470(line=95, offs=44) -*/ -ATSINSmove(tmpref126, ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_int__8__6(tmpref124, tmp129)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 2492(line=97, offs=11) -- 2493(line=97, offs=12) -*/ -ATSINSmove(tmpret118, tmpref126) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 2383(line=93, offs=17) -- 2505(line=98, offs=12) -*/ -/* -INSletpop() -*/ -ATSbranch_end() - -/* -** ibranchlst-end -*/ -ATScaseof_end() - -ATSfunbody_end() -ATSreturn(tmpret118) ; -} /* end of [numerator_loop_51] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2209(line=74, offs=3) -- 2301(line=80, offs=2) -*/ -/* -local: -global: intinf_make_int$15$11(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = -tmparg = -tmpsub = Some() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__11(atstkind_t0ype(atstype_int) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret29__11, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp30__11, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp31__11) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2191(line=73, offs=1) -- 2301(line=80, offs=2) -*/ -ATSINSflab(__patsflab_intinf_make_int): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2238(line=77, offs=9) -- 2254(line=77, offs=25) -*/ -ATSINSmove(tmp30__11, ATSLIB_056_prelude__ptr_alloc__17__11()) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2264(line=78, offs=10) -- 2296(line=78, offs=42) -*/ -ATSINSmove_void(tmp31__11, atscntrb_gmp_mpz_init_set_int(ATSPMVrefarg1(ATSSELrecsin(tmp30__11, atstkind_type(atstype_ptrk), atslab__2)), arg0)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2216(line=74, offs=10) -- 2217(line=74, offs=11) -*/ -ATSINSmove(tmpret29__11, tmp30__11) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret29__11) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__11] */ - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42) -*/ -/* -local: -global: ptr_alloc$17$11(level=3) -local: -global: -*/ -ATSstatic() -/* -imparg = a(4740) -tmparg = S2Evar(a(4740)) -tmpsub = Some(a(4740) -> S2Ecst(mpz_vt0ype)) -*/ -atstkind_type(atstype_ptrk) -ATSLIB_056_prelude__ptr_alloc__17__11() -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret35__11, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3708(line=184, offs=1) -- 3749(line=184, offs=42) -*/ -ATSINSflab(__patsflab_ptr_alloc): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42) -*/ -ATSINSmove(tmpret35__11, atspre_ptr_alloc_tsz(ATSPMVsizeof(atscntrb_gmp_mpz))) ; - -ATSfunbody_end() -ATSreturn(tmpret35__11) ; -} /* end of [ATSLIB_056_prelude__ptr_alloc__17__11] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7394(line=413, offs=3) -- 7461(line=418, offs=2) -*/ -/* -local: -global: mul_intinf0_int$8$6(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = -tmparg = -tmpsub = Some() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_int__8__6(atstkind_type(atstype_ptrk) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret13__6, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp14__6) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7376(line=412, offs=1) -- 7461(line=418, offs=2) -*/ -ATSINSflab(__patsflab_mul_intinf0_int): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7403(line=413, offs=12) -- 7461(line=418, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7427(line=416, offs=10) -- 7456(line=416, offs=39) -*/ -ATSINSmove_void(tmp14__6, atscntrb_gmp_mpz_mul2_int(ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), arg1)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7404(line=413, offs=13) -- 7405(line=413, offs=14) -*/ -ATSINSmove(tmpret13__6, arg0) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7403(line=413, offs=12) -- 7461(line=418, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret13__6) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_int__8__6] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2209(line=74, offs=3) -- 2301(line=80, offs=2) -*/ -/* -local: -global: intinf_make_int$15$12(level=1) -local: -global: -*/ -ATSstatic() -/* -imparg = -tmparg = -tmpsub = Some() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__12(atstkind_t0ype(atstype_int) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret29__12, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp30__12, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp31__12) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2191(line=73, offs=1) -- 2301(line=80, offs=2) -*/ -ATSINSflab(__patsflab_intinf_make_int): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2238(line=77, offs=9) -- 2254(line=77, offs=25) -*/ -ATSINSmove(tmp30__12, ATSLIB_056_prelude__ptr_alloc__17__12()) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2264(line=78, offs=10) -- 2296(line=78, offs=42) -*/ -ATSINSmove_void(tmp31__12, atscntrb_gmp_mpz_init_set_int(ATSPMVrefarg1(ATSSELrecsin(tmp30__12, atstkind_type(atstype_ptrk), atslab__2)), arg0)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2216(line=74, offs=10) -- 2217(line=74, offs=11) -*/ -ATSINSmove(tmpret29__12, tmp30__12) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret29__12) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__12] */ - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42) -*/ -/* -local: -global: ptr_alloc$17$12(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = a(4740) -tmparg = S2Evar(a(4740)) -tmpsub = Some(a(4740) -> S2Ecst(mpz_vt0ype)) -*/ -atstkind_type(atstype_ptrk) -ATSLIB_056_prelude__ptr_alloc__17__12() -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret35__12, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3708(line=184, offs=1) -- 3749(line=184, offs=42) -*/ -ATSINSflab(__patsflab_ptr_alloc): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42) -*/ -ATSINSmove(tmpret35__12, atspre_ptr_alloc_tsz(ATSPMVsizeof(atscntrb_gmp_mpz))) ; - -ATSfunbody_end() -ATSreturn(tmpret35__12) ; -} /* end of [ATSLIB_056_prelude__ptr_alloc__17__12] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2209(line=74, offs=3) -- 2301(line=80, offs=2) -*/ -/* -local: -global: intinf_make_int$15$13(level=1) -local: -global: -*/ -ATSstatic() -/* -imparg = -tmparg = -tmpsub = Some() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__13(atstkind_t0ype(atstype_int) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret29__13, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp30__13, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp31__13) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2191(line=73, offs=1) -- 2301(line=80, offs=2) -*/ -ATSINSflab(__patsflab_intinf_make_int): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2238(line=77, offs=9) -- 2254(line=77, offs=25) -*/ -ATSINSmove(tmp30__13, ATSLIB_056_prelude__ptr_alloc__17__13()) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2264(line=78, offs=10) -- 2296(line=78, offs=42) -*/ -ATSINSmove_void(tmp31__13, atscntrb_gmp_mpz_init_set_int(ATSPMVrefarg1(ATSSELrecsin(tmp30__13, atstkind_type(atstype_ptrk), atslab__2)), arg0)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2216(line=74, offs=10) -- 2217(line=74, offs=11) -*/ -ATSINSmove(tmpret29__13, tmp30__13) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret29__13) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__13] */ - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42) -*/ -/* -local: -global: ptr_alloc$17$13(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = a(4740) -tmparg = S2Evar(a(4740)) -tmpsub = Some(a(4740) -> S2Ecst(mpz_vt0ype)) -*/ -atstkind_type(atstype_ptrk) -ATSLIB_056_prelude__ptr_alloc__17__13() -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret35__13, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3708(line=184, offs=1) -- 3749(line=184, offs=42) -*/ -ATSINSflab(__patsflab_ptr_alloc): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42) -*/ -ATSINSmove(tmpret35__13, atspre_ptr_alloc_tsz(ATSPMVsizeof(atscntrb_gmp_mpz))) ; - -ATSfunbody_end() -ATSreturn(tmpret35__13) ; -} /* end of [ATSLIB_056_prelude__ptr_alloc__17__13] */ - -#if(0) -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9009(line=513, offs=3) -- 9083(line=518, offs=2) -*/ -/* -local: -global: div_intinf0_intinf1$59$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__div_intinf0_intinf1__59(atstkind_type(atstype_ptrk) arg0, atsrefarg0_type(atstkind_type(atstype_ptrk)) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret141, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp142) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 8987(line=512, offs=1) -- 9083(line=518, offs=2) -*/ -ATSINSflab(__patsflab_div_intinf0_intinf1): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9018(line=513, offs=12) -- 9083(line=518, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9042(line=516, offs=10) -- 9078(line=516, offs=46) -*/ -ATSINSmove_void(tmp142, 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 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9019(line=513, offs=13) -- 9020(line=513, offs=14) -*/ -ATSINSmove(tmpret141, arg0) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9018(line=513, offs=12) -- 9083(line=518, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret141) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__div_intinf0_intinf1__59] */ -#endif // end of [TEMPLATE] - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9009(line=513, offs=3) -- 9083(line=518, offs=2) -*/ -/* -local: -global: div_intinf0_intinf1$59$1(level=1) -local: -global: -*/ -ATSstatic() -/* -imparg = -tmparg = -tmpsub = Some() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__div_intinf0_intinf1__59__1(atstkind_type(atstype_ptrk) arg0, atsrefarg0_type(atstkind_type(atstype_ptrk)) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret141__1, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp142__1) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 8987(line=512, offs=1) -- 9083(line=518, offs=2) -*/ -ATSINSflab(__patsflab_div_intinf0_intinf1): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9018(line=513, offs=12) -- 9083(line=518, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9042(line=516, offs=10) -- 9078(line=516, offs=46) -*/ -ATSINSmove_void(tmp142__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 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9019(line=513, offs=13) -- 9020(line=513, offs=14) -*/ -ATSINSmove(tmpret141__1, arg0) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9018(line=513, offs=12) -- 9083(line=518, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret141__1) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__div_intinf0_intinf1__59__1] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2888(line=119, offs=12) -- 2987(line=122, offs=4) -*/ -/* -local: -global: intinf_free$12$2(level=1) -local: -global: -*/ -ATSstatic() -/* -imparg = -tmparg = -tmpsub = Some() -*/ -atsvoid_t0ype -ATSCNTRB_056_HX_056_intinf_vt__intinf_free__12__2(atstkind_type(atstype_ptrk) arg0) -{ -/* tmpvardeclst(beg) */ -// ATStmpdec_void(tmpret22__2) ; -// ATStmpdec_void(tmp23__2) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2877(line=119, offs=1) -- 2987(line=122, offs=4) -*/ -ATSINSflab(__patsflab_intinf_free): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2894(line=119, offs=18) -- 2987(line=122, offs=4) -*/ -/* -letpush(beg) -*/ -/* (*nothing*) */ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2936(line=121, offs=12) -- 2955(line=121, offs=31) -*/ -ATSINSmove_void(tmp23__2, atscntrb_gmp_mpz_clear(ATSPMVrefarg1(arg0))) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2959(line=121, offs=35) -- 2983(line=121, offs=59) -*/ -ATSINSmove_void(tmpret22__2, atspre_ptr_free(arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2894(line=119, offs=18) -- 2987(line=122, offs=4) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn_void(tmpret22__2) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_free__12__2] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 2768(line=113, offs=4) -- 3506(line=139, offs=6) -*/ -/* -local: fact_34$0(level=0) -global: fact_ref_28$0(level=0), fact_34$0(level=0), choose_62$0(level=0) -local: -global: -*/ -ATSstatic() -atstkind_type(atstype_ptrk) -choose_62(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret148, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp177, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmpref184, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp185) ; -ATStmpdec(tmpref186, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmpref187, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp190) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 2768(line=113, offs=4) -- 3506(line=139, offs=6) -*/ -ATSINSflab(__patsflab_choose_62): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 2827(line=114, offs=3) -- 3506(line=139, offs=6) -*/ -/* -letpush(beg) -*/ -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 3194(line=126, offs=5) -- 3500(line=138, offs=10) -*/ -ATScaseof_beg() -/* -** ibranchlst-beg -*/ -ATSbranch_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 3213(line=127, offs=9) -- 3214(line=127, offs=10) -*/ -ATSINSlab(__atstmplab30): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 2802(line=113, offs=38) -- 2803(line=113, offs=39) -*/ -ATSifnthen(ATSCKpat_int(arg1, ATSPMVint(0))) { ATSINSgoto(__atstmplab32) ; } ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 3214(line=127, offs=10) -- 3214(line=127, offs=10) -*/ -ATSINSlab(__atstmplab31): -/* -emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) -*/ -/* -ibranch-mbody: -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 3218(line=127, offs=14) -- 3231(line=127, offs=27) -*/ -ATSINSmove(tmpret148, ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__16(ATSPMVi0nt(1))) ; - -ATSbranch_end() - -ATSbranch_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 3240(line=128, offs=9) -- 3241(line=128, offs=10) -*/ -ATSINSlab(__atstmplab32): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 2802(line=113, offs=38) -- 2803(line=113, offs=39) -*/ -ATSifnthen(ATSCKpat_int(arg1, ATSPMVint(1))) { ATSINSgoto(__atstmplab34) ; } ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 3241(line=128, offs=10) -- 3241(line=128, offs=10) -*/ -ATSINSlab(__atstmplab33): -/* -emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) -*/ -/* -ibranch-mbody: -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 3245(line=128, offs=14) -- 3257(line=128, offs=26) -*/ -ATSINSmove(tmpret148, ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__17(arg0)) ; - -ATSbranch_end() - -ATSbranch_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 3268(line=129, offs=10) -- 3268(line=129, offs=10) -*/ -ATSINSlab(__atstmplab34): -/* -emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) -*/ -/* -ibranch-guard: -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 3274(line=129, offs=16) -- 3279(line=129, offs=21) -*/ -ATSINSmove(tmp177, ATSLIB_056_prelude__gt_g1int_int__44__2(arg1, arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 3274(line=129, offs=16) -- 3279(line=129, offs=21) -*/ -ATSifnthen(ATSCKpat_bool(tmp177, ATSPMVbool_true())) { ATSINSgoto(__atstmplab35) ; } ; -/* -emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) -*/ -/* -ibranch-mbody: -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 3283(line=129, offs=25) -- 3296(line=129, offs=38) -*/ -ATSINSmove(tmpret148, ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__18(ATSPMVi0nt(0))) ; - -ATSbranch_end() - -ATSbranch_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 3306(line=130, offs=10) -- 3306(line=130, offs=10) -*/ -ATSINSlab(__atstmplab35): -/* -emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) -*/ -/* -ibranch-mbody: -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 3311(line=130, offs=15) -- 3500(line=138, offs=10) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 3327(line=131, offs=13) -- 3328(line=131, offs=14) -*/ -/* -ATSINStmpdec(tmpref184) ; -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 3354(line=132, offs=18) -- 3374(line=132, offs=38) -*/ -ATSINSmove_void(tmp185, numerator_loop_63(arg0, arg1, ATSPMVrefarg1(ATSPMVptrof(tmpref184)))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 3387(line=133, offs=13) -- 3388(line=133, offs=14) -*/ -/* -ATSINStmpdec(tmpref186) ; -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 3391(line=133, offs=17) -- 3397(line=133, offs=23) -*/ -ATSINSmove(tmpref186, fact_34(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 3411(line=134, offs=13) -- 3412(line=134, offs=14) -*/ -/* -ATSINStmpdec(tmpref187) ; -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 3415(line=134, offs=17) -- 3440(line=134, offs=42) -*/ -ATSINSmove(tmpref187, ATSCNTRB_056_HX_056_intinf_vt__div_intinf0_intinf1__59__2(tmpref184, ATSPMVrefarg0(tmpref186))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 3457(line=135, offs=17) -- 3470(line=135, offs=30) -*/ -ATSINSmove_void(tmp190, ATSCNTRB_056_HX_056_intinf_vt__intinf_free__12__3(tmpref186)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 3489(line=137, offs=9) -- 3490(line=137, offs=10) -*/ -ATSINSmove(tmpret148, tmpref187) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 3311(line=130, offs=15) -- 3500(line=138, offs=10) -*/ -/* -INSletpop() -*/ -ATSbranch_end() - -/* -** ibranchlst-end -*/ -ATScaseof_end() - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 2827(line=114, offs=3) -- 3506(line=139, offs=6) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret148) ; -} /* end of [choose_62] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 2839(line=115, offs=9) -- 3184(line=124, offs=12) -*/ -/* -local: numerator_loop_63$0(level=1) -global: numerator_loop_63$0(level=1) -local: n$5124(1)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))) -global: n$5124(1)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))) -*/ -ATSstatic() -atsvoid_t0ype -numerator_loop_63(atstkind_t0ype(atstype_int) env0, atstkind_t0ype(atstype_int) arg0, atsrefarg1_type(atstkind_type(atstype_ptrk)) arg1) -{ -/* tmpvardeclst(beg) */ -// ATStmpdec_void(tmpret149) ; -ATStmpdec(tmp150, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp155, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp160, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp161, atstkind_t0ype(atstype_int)) ; -// ATStmpdec_void(tmp162) ; -ATStmpdec(tmp163, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmpref164, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp167, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp168, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 2839(line=115, offs=9) -- 3184(line=124, offs=12) -*/ -ATSINSflab(__patsflab_numerator_loop_63): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 2934(line=116, offs=7) -- 3184(line=124, offs=12) -*/ -ATScaseof_beg() -/* -** ibranchlst-beg -*/ -ATSbranch_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 2955(line=117, offs=11) -- 2956(line=117, offs=12) -*/ -ATSINSlab(__atstmplab25): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 2881(line=115, offs=51) -- 2882(line=115, offs=52) -*/ -ATSifnthen(ATSCKpat_int(arg0, ATSPMVint(1))) { ATSINSgoto(__atstmplab27) ; } ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 2956(line=117, offs=12) -- 2956(line=117, offs=12) -*/ -ATSINSlab(__atstmplab26): -/* -emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) -*/ -/* -ibranch-mbody: -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 2967(line=117, offs=23) -- 2979(line=117, offs=35) -*/ -ATSINSmove(tmp150, ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__14(env0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 2960(line=117, offs=16) -- 2979(line=117, offs=35) -*/ -ATSINSstore(ATSderef(arg1, atstkind_type(atstype_ptrk)), tmp150) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 2960(line=117, offs=16) -- 2979(line=117, offs=35) -*/ -ATSINSmove_void(tmpret149, ATSPMVempty()) ; -ATSbranch_end() - -ATSbranch_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 2991(line=118, offs=11) -- 2992(line=118, offs=12) -*/ -ATSINSlab(__atstmplab27): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 2881(line=115, offs=51) -- 2882(line=115, offs=52) -*/ -ATSifnthen(ATSCKpat_int(arg0, ATSPMVint(2))) { ATSINSgoto(__atstmplab29) ; } ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 2992(line=118, offs=12) -- 2992(line=118, offs=12) -*/ -ATSINSlab(__atstmplab28): -/* -emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) -*/ -/* -ibranch-mbody: -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 3003(line=118, offs=23) -- 3026(line=118, offs=46) -*/ -ATSINSmove(tmp161, atspre_g1int_sub_int(env0, ATSPMVi0nt(1))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 3003(line=118, offs=23) -- 3026(line=118, offs=46) -*/ -ATSINSmove(tmp160, atspre_g1int_mul_int(tmp161, env0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 3003(line=118, offs=23) -- 3026(line=118, offs=46) -*/ -ATSINSmove(tmp155, ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__15(tmp160)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 2996(line=118, offs=16) -- 3026(line=118, offs=46) -*/ -ATSINSstore(ATSderef(arg1, atstkind_type(atstype_ptrk)), tmp155) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 2996(line=118, offs=16) -- 3026(line=118, offs=46) -*/ -ATSINSmove_void(tmpret149, ATSPMVempty()) ; -ATSbranch_end() - -ATSbranch_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 3038(line=119, offs=12) -- 3038(line=119, offs=12) -*/ -ATSINSlab(__atstmplab29): -/* -emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) -*/ -/* -ibranch-mbody: -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 3043(line=119, offs=17) -- 3184(line=124, offs=12) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 3081(line=120, offs=35) -- 3086(line=120, offs=40) -*/ -ATSINSmove(tmp163, atspre_g1int_sub_int(arg0, ATSPMVi0nt(1))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 3066(line=120, offs=20) -- 3092(line=120, offs=46) -*/ -ATSINSmove_void(tmp162, numerator_loop_63(env0, tmp163, ATSPMVrefarg1(arg1))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 3107(line=121, offs=15) -- 3108(line=121, offs=16) -*/ -/* -ATSINStmpdec(tmpref164) ; -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 3132(line=121, offs=40) -- 3137(line=121, offs=45) -*/ -ATSINSmove(tmp168, atspre_g1int_add_int(env0, ATSPMVi0nt(1))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 3132(line=121, offs=40) -- 3141(line=121, offs=49) -*/ -ATSINSmove(tmp167, atspre_g1int_sub_int(tmp168, arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 3111(line=121, offs=19) -- 3142(line=121, offs=50) -*/ -ATSINSmove(tmpref164, ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_int__8__7(ATSderef(arg1, atstkind_type(atstype_ptrk)), tmp167)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 3164(line=123, offs=11) -- 3172(line=123, offs=19) -*/ -ATSINSstore(ATSderef(arg1, atstkind_type(atstype_ptrk)), tmpref164) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 3164(line=123, offs=11) -- 3172(line=123, offs=19) -*/ -ATSINSmove_void(tmpret149, ATSPMVempty()) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 3043(line=119, offs=17) -- 3184(line=124, offs=12) -*/ -/* -INSletpop() -*/ -ATSbranch_end() - -/* -** ibranchlst-end -*/ -ATScaseof_end() - -ATSfunbody_end() -ATSreturn_void(tmpret149) ; -} /* end of [numerator_loop_63] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2209(line=74, offs=3) -- 2301(line=80, offs=2) -*/ -/* -local: -global: intinf_make_int$15$14(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = -tmparg = -tmpsub = Some() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__14(atstkind_t0ype(atstype_int) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret29__14, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp30__14, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp31__14) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2191(line=73, offs=1) -- 2301(line=80, offs=2) -*/ -ATSINSflab(__patsflab_intinf_make_int): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2238(line=77, offs=9) -- 2254(line=77, offs=25) -*/ -ATSINSmove(tmp30__14, ATSLIB_056_prelude__ptr_alloc__17__14()) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2264(line=78, offs=10) -- 2296(line=78, offs=42) -*/ -ATSINSmove_void(tmp31__14, atscntrb_gmp_mpz_init_set_int(ATSPMVrefarg1(ATSSELrecsin(tmp30__14, atstkind_type(atstype_ptrk), atslab__2)), arg0)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2216(line=74, offs=10) -- 2217(line=74, offs=11) -*/ -ATSINSmove(tmpret29__14, tmp30__14) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret29__14) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__14] */ - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42) -*/ -/* -local: -global: ptr_alloc$17$14(level=3) -local: -global: -*/ -ATSstatic() -/* -imparg = a(4740) -tmparg = S2Evar(a(4740)) -tmpsub = Some(a(4740) -> S2Ecst(mpz_vt0ype)) -*/ -atstkind_type(atstype_ptrk) -ATSLIB_056_prelude__ptr_alloc__17__14() -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret35__14, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3708(line=184, offs=1) -- 3749(line=184, offs=42) -*/ -ATSINSflab(__patsflab_ptr_alloc): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42) -*/ -ATSINSmove(tmpret35__14, atspre_ptr_alloc_tsz(ATSPMVsizeof(atscntrb_gmp_mpz))) ; - -ATSfunbody_end() -ATSreturn(tmpret35__14) ; -} /* end of [ATSLIB_056_prelude__ptr_alloc__17__14] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2209(line=74, offs=3) -- 2301(line=80, offs=2) -*/ -/* -local: -global: intinf_make_int$15$15(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = -tmparg = -tmpsub = Some() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__15(atstkind_t0ype(atstype_int) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret29__15, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp30__15, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp31__15) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2191(line=73, offs=1) -- 2301(line=80, offs=2) -*/ -ATSINSflab(__patsflab_intinf_make_int): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2238(line=77, offs=9) -- 2254(line=77, offs=25) -*/ -ATSINSmove(tmp30__15, ATSLIB_056_prelude__ptr_alloc__17__15()) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2264(line=78, offs=10) -- 2296(line=78, offs=42) -*/ -ATSINSmove_void(tmp31__15, atscntrb_gmp_mpz_init_set_int(ATSPMVrefarg1(ATSSELrecsin(tmp30__15, atstkind_type(atstype_ptrk), atslab__2)), arg0)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2216(line=74, offs=10) -- 2217(line=74, offs=11) -*/ -ATSINSmove(tmpret29__15, tmp30__15) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret29__15) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__15] */ - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42) -*/ -/* -local: -global: ptr_alloc$17$15(level=3) -local: -global: -*/ -ATSstatic() -/* -imparg = a(4740) -tmparg = S2Evar(a(4740)) -tmpsub = Some(a(4740) -> S2Ecst(mpz_vt0ype)) -*/ -atstkind_type(atstype_ptrk) -ATSLIB_056_prelude__ptr_alloc__17__15() -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret35__15, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3708(line=184, offs=1) -- 3749(line=184, offs=42) -*/ -ATSINSflab(__patsflab_ptr_alloc): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42) -*/ -ATSINSmove(tmpret35__15, atspre_ptr_alloc_tsz(ATSPMVsizeof(atscntrb_gmp_mpz))) ; - -ATSfunbody_end() -ATSreturn(tmpret35__15) ; -} /* end of [ATSLIB_056_prelude__ptr_alloc__17__15] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7394(line=413, offs=3) -- 7461(line=418, offs=2) -*/ -/* -local: -global: mul_intinf0_int$8$7(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = -tmparg = -tmpsub = Some() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_int__8__7(atstkind_type(atstype_ptrk) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret13__7, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp14__7) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7376(line=412, offs=1) -- 7461(line=418, offs=2) -*/ -ATSINSflab(__patsflab_mul_intinf0_int): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7403(line=413, offs=12) -- 7461(line=418, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7427(line=416, offs=10) -- 7456(line=416, offs=39) -*/ -ATSINSmove_void(tmp14__7, atscntrb_gmp_mpz_mul2_int(ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), arg1)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7404(line=413, offs=13) -- 7405(line=413, offs=14) -*/ -ATSINSmove(tmpret13__7, arg0) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7403(line=413, offs=12) -- 7461(line=418, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret13__7) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_int__8__7] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2209(line=74, offs=3) -- 2301(line=80, offs=2) -*/ -/* -local: -global: intinf_make_int$15$16(level=1) -local: -global: -*/ -ATSstatic() -/* -imparg = -tmparg = -tmpsub = Some() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__16(atstkind_t0ype(atstype_int) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret29__16, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp30__16, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp31__16) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2191(line=73, offs=1) -- 2301(line=80, offs=2) -*/ -ATSINSflab(__patsflab_intinf_make_int): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2238(line=77, offs=9) -- 2254(line=77, offs=25) -*/ -ATSINSmove(tmp30__16, ATSLIB_056_prelude__ptr_alloc__17__16()) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2264(line=78, offs=10) -- 2296(line=78, offs=42) -*/ -ATSINSmove_void(tmp31__16, atscntrb_gmp_mpz_init_set_int(ATSPMVrefarg1(ATSSELrecsin(tmp30__16, atstkind_type(atstype_ptrk), atslab__2)), arg0)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2216(line=74, offs=10) -- 2217(line=74, offs=11) -*/ -ATSINSmove(tmpret29__16, tmp30__16) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret29__16) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__16] */ - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42) -*/ -/* -local: -global: ptr_alloc$17$16(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = a(4740) -tmparg = S2Evar(a(4740)) -tmpsub = Some(a(4740) -> S2Ecst(mpz_vt0ype)) -*/ -atstkind_type(atstype_ptrk) -ATSLIB_056_prelude__ptr_alloc__17__16() -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret35__16, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3708(line=184, offs=1) -- 3749(line=184, offs=42) -*/ -ATSINSflab(__patsflab_ptr_alloc): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42) -*/ -ATSINSmove(tmpret35__16, atspre_ptr_alloc_tsz(ATSPMVsizeof(atscntrb_gmp_mpz))) ; - -ATSfunbody_end() -ATSreturn(tmpret35__16) ; -} /* end of [ATSLIB_056_prelude__ptr_alloc__17__16] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2209(line=74, offs=3) -- 2301(line=80, offs=2) -*/ -/* -local: -global: intinf_make_int$15$17(level=1) -local: -global: -*/ -ATSstatic() -/* -imparg = -tmparg = -tmpsub = Some() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__17(atstkind_t0ype(atstype_int) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret29__17, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp30__17, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp31__17) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2191(line=73, offs=1) -- 2301(line=80, offs=2) -*/ -ATSINSflab(__patsflab_intinf_make_int): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2238(line=77, offs=9) -- 2254(line=77, offs=25) -*/ -ATSINSmove(tmp30__17, ATSLIB_056_prelude__ptr_alloc__17__17()) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2264(line=78, offs=10) -- 2296(line=78, offs=42) -*/ -ATSINSmove_void(tmp31__17, atscntrb_gmp_mpz_init_set_int(ATSPMVrefarg1(ATSSELrecsin(tmp30__17, atstkind_type(atstype_ptrk), atslab__2)), arg0)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2216(line=74, offs=10) -- 2217(line=74, offs=11) -*/ -ATSINSmove(tmpret29__17, tmp30__17) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret29__17) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__17] */ - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42) -*/ -/* -local: -global: ptr_alloc$17$17(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = a(4740) -tmparg = S2Evar(a(4740)) -tmpsub = Some(a(4740) -> S2Ecst(mpz_vt0ype)) -*/ -atstkind_type(atstype_ptrk) -ATSLIB_056_prelude__ptr_alloc__17__17() -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret35__17, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3708(line=184, offs=1) -- 3749(line=184, offs=42) -*/ -ATSINSflab(__patsflab_ptr_alloc): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42) -*/ -ATSINSmove(tmpret35__17, atspre_ptr_alloc_tsz(ATSPMVsizeof(atscntrb_gmp_mpz))) ; - -ATSfunbody_end() -ATSreturn(tmpret35__17) ; -} /* end of [ATSLIB_056_prelude__ptr_alloc__17__17] */ - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12679(line=659, offs=3) -- 12718(line=659, offs=42) -*/ -/* -local: -global: gt_g1int_int$44$2(level=1) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4637) -tmparg = S2Evar(tk(4637)) -tmpsub = Some(tk(4637) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__gt_g1int_int__44__2(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret97__2, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp98__2, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12664(line=658, offs=1) -- 12718(line=659, offs=42) -*/ -ATSINSflab(__patsflab_gt_g1int_int): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12705(line=659, offs=29) -- 12716(line=659, offs=40) -*/ -ATSINSmove(tmp98__2, atspre_g1int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12688(line=659, offs=12) -- 12718(line=659, offs=42) -*/ -ATSINSmove(tmpret97__2, atspre_g1int_gt_int(arg0, tmp98__2)) ; - -ATSfunbody_end() -ATSreturn(tmpret97__2) ; -} /* end of [ATSLIB_056_prelude__gt_g1int_int__44__2] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2209(line=74, offs=3) -- 2301(line=80, offs=2) -*/ -/* -local: -global: intinf_make_int$15$18(level=1) -local: -global: -*/ -ATSstatic() -/* -imparg = -tmparg = -tmpsub = Some() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__18(atstkind_t0ype(atstype_int) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret29__18, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp30__18, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp31__18) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2191(line=73, offs=1) -- 2301(line=80, offs=2) -*/ -ATSINSflab(__patsflab_intinf_make_int): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2238(line=77, offs=9) -- 2254(line=77, offs=25) -*/ -ATSINSmove(tmp30__18, ATSLIB_056_prelude__ptr_alloc__17__18()) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2264(line=78, offs=10) -- 2296(line=78, offs=42) -*/ -ATSINSmove_void(tmp31__18, atscntrb_gmp_mpz_init_set_int(ATSPMVrefarg1(ATSSELrecsin(tmp30__18, atstkind_type(atstype_ptrk), atslab__2)), arg0)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2216(line=74, offs=10) -- 2217(line=74, offs=11) -*/ -ATSINSmove(tmpret29__18, tmp30__18) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret29__18) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__18] */ - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42) -*/ -/* -local: -global: ptr_alloc$17$18(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = a(4740) -tmparg = S2Evar(a(4740)) -tmpsub = Some(a(4740) -> S2Ecst(mpz_vt0ype)) -*/ -atstkind_type(atstype_ptrk) -ATSLIB_056_prelude__ptr_alloc__17__18() -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret35__18, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3708(line=184, offs=1) -- 3749(line=184, offs=42) -*/ -ATSINSflab(__patsflab_ptr_alloc): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42) -*/ -ATSINSmove(tmpret35__18, atspre_ptr_alloc_tsz(ATSPMVsizeof(atscntrb_gmp_mpz))) ; - -ATSfunbody_end() -ATSreturn(tmpret35__18) ; -} /* end of [ATSLIB_056_prelude__ptr_alloc__17__18] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9009(line=513, offs=3) -- 9083(line=518, offs=2) -*/ -/* -local: -global: div_intinf0_intinf1$59$2(level=1) -local: -global: -*/ -ATSstatic() -/* -imparg = -tmparg = -tmpsub = Some() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__div_intinf0_intinf1__59__2(atstkind_type(atstype_ptrk) arg0, atsrefarg0_type(atstkind_type(atstype_ptrk)) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret141__2, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp142__2) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 8987(line=512, offs=1) -- 9083(line=518, offs=2) -*/ -ATSINSflab(__patsflab_div_intinf0_intinf1): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9018(line=513, offs=12) -- 9083(line=518, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9042(line=516, offs=10) -- 9078(line=516, offs=46) -*/ -ATSINSmove_void(tmp142__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 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9019(line=513, offs=13) -- 9020(line=513, offs=14) -*/ -ATSINSmove(tmpret141__2, arg0) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9018(line=513, offs=12) -- 9083(line=518, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret141__2) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__div_intinf0_intinf1__59__2] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2888(line=119, offs=12) -- 2987(line=122, offs=4) -*/ -/* -local: -global: intinf_free$12$3(level=1) -local: -global: -*/ -ATSstatic() -/* -imparg = -tmparg = -tmpsub = Some() -*/ -atsvoid_t0ype -ATSCNTRB_056_HX_056_intinf_vt__intinf_free__12__3(atstkind_type(atstype_ptrk) arg0) -{ -/* tmpvardeclst(beg) */ -// ATStmpdec_void(tmpret22__3) ; -// ATStmpdec_void(tmp23__3) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2877(line=119, offs=1) -- 2987(line=122, offs=4) -*/ -ATSINSflab(__patsflab_intinf_free): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2894(line=119, offs=18) -- 2987(line=122, offs=4) -*/ -/* -letpush(beg) -*/ -/* (*nothing*) */ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2936(line=121, offs=12) -- 2955(line=121, offs=31) -*/ -ATSINSmove_void(tmp23__3, atscntrb_gmp_mpz_clear(ATSPMVrefarg1(arg0))) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2959(line=121, offs=35) -- 2983(line=121, offs=59) -*/ -ATSINSmove_void(tmpret22__3, atspre_ptr_free(arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2894(line=119, offs=18) -- 2987(line=122, offs=4) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn_void(tmpret22__3) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_free__12__3] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 3511(line=141, offs=4) -- 4598(line=173, offs=8) -*/ -/* -local: fact_34$0(level=0), choose_62$0(level=0) -global: fact_ref_28$0(level=0), fact_34$0(level=0), choose_62$0(level=0), stirling2_79$0(level=0) -local: -global: -*/ -ATSstatic() -atstkind_type(atstype_ptrk) -stirling2_79(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret193, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp194, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp195, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp206, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmpref262, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp263) ; -ATStmpdec(tmpref264, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmpref265, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp268) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 3511(line=141, offs=4) -- 4598(line=173, offs=8) -*/ -ATSINSflab(__patsflab_stirling2_79): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 3586(line=143, offs=7) -- 3600(line=143, offs=21) -*/ -ATSINSmove(tmp195, ATSLIB_056_prelude__eq_g1int_int__80__1(arg1, ATSPMVi0nt(0))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 3586(line=143, offs=7) -- 3600(line=143, offs=21) -*/ -ATSif( -tmp195 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 3586(line=143, offs=7) -- 3600(line=143, offs=21) -*/ -ATSINSmove(tmp194, ATSLIB_056_prelude__eq_g1int_int__80__2(arg0, ATSPMVi0nt(0))) ; - -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 3586(line=143, offs=7) -- 3600(line=143, offs=21) -*/ -ATSINSmove(tmp194, ATSPMVbool_false()) ; -} /* ATSendif */ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 3573(line=142, offs=3) -- 4598(line=173, offs=8) -*/ -ATSif( -tmp194 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 3604(line=143, offs=25) -- 3617(line=143, offs=38) -*/ -ATSINSmove(tmpret193, ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__19(ATSPMVi0nt(1))) ; - -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 3624(line=144, offs=7) -- 3629(line=144, offs=12) -*/ -ATSINSmove(tmp206, ATSLIB_056_prelude__gt_g1int_int__44__3(arg1, arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 3573(line=142, offs=3) -- 4598(line=173, offs=8) -*/ -ATSif( -tmp206 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 3633(line=144, offs=16) -- 3646(line=144, offs=29) -*/ -ATSINSmove(tmpret193, ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__20(ATSPMVi0nt(0))) ; - -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 3658(line=145, offs=12) -- 4598(line=173, offs=8) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 4422(line=166, offs=11) -- 4425(line=166, offs=14) -*/ -/* -ATSINStmpdec(tmpref262) ; -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 4449(line=167, offs=16) -- 4465(line=167, offs=32) -*/ -ATSINSmove_void(tmp263, top_loop_89(arg0, arg1, arg1, ATSPMVrefarg1(ATSPMVptrof(tmpref262)))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 4476(line=168, offs=11) -- 4479(line=168, offs=14) -*/ -/* -ATSINStmpdec(tmpref264) ; -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 4482(line=168, offs=17) -- 4488(line=168, offs=23) -*/ -ATSINSmove(tmpref264, fact_34(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 4500(line=169, offs=11) -- 4506(line=169, offs=17) -*/ -/* -ATSINStmpdec(tmpref265) ; -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 4509(line=169, offs=20) -- 4538(line=169, offs=49) -*/ -ATSINSmove(tmpref265, ATSCNTRB_056_HX_056_intinf_vt__div_intinf0_intinf1__59__3(tmpref262, ATSPMVrefarg0(tmpref264))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 4554(line=170, offs=16) -- 4569(line=170, offs=31) -*/ -ATSINSmove_void(tmp268, ATSCNTRB_056_HX_056_intinf_vt__intinf_free__12__6(tmpref264)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 4584(line=172, offs=7) -- 4590(line=172, offs=13) -*/ -ATSINSmove(tmpret193, tmpref265) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 3658(line=145, offs=12) -- 4598(line=173, offs=8) -*/ -/* -INSletpop() -*/ -} /* ATSendif */ -} /* ATSendif */ -ATSfunbody_end() -ATSreturn(tmpret193) ; -} /* end of [stirling2_79] */ - -#if(0) -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12838(line=668, offs=3) -- 12877(line=668, offs=42) -*/ -/* -local: -global: eq_g1int_int$80$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = tk(4643) -tmparg = S2Evar(tk(4643)) -tmpsub = None() -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g1int_int__80(atstkind_t0ype(atstyvar_type(tk)) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret196, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp197, atstkind_t0ype(atstyvar_type(tk))) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12823(line=667, offs=1) -- 12877(line=668, offs=42) -*/ -ATSINSflab(__patsflab_eq_g1int_int): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12864(line=668, offs=29) -- 12875(line=668, offs=40) -*/ -ATSINSmove(tmp197, PMVtmpltcst(g1int2int)(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12847(line=668, offs=12) -- 12877(line=668, offs=42) -*/ -ATSINSmove(tmpret196, PMVtmpltcst(g1int_eq)(arg0, tmp197)) ; - -ATSfunbody_end() -ATSreturn(tmpret196) ; -} /* end of [ATSLIB_056_prelude__eq_g1int_int__80] */ -#endif // end of [TEMPLATE] - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12838(line=668, offs=3) -- 12877(line=668, offs=42) -*/ -/* -local: -global: eq_g1int_int$80$1(level=1) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4643) -tmparg = S2Evar(tk(4643)) -tmpsub = Some(tk(4643) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g1int_int__80__1(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret196__1, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp197__1, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12823(line=667, offs=1) -- 12877(line=668, offs=42) -*/ -ATSINSflab(__patsflab_eq_g1int_int): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12864(line=668, offs=29) -- 12875(line=668, offs=40) -*/ -ATSINSmove(tmp197__1, atspre_g1int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12847(line=668, offs=12) -- 12877(line=668, offs=42) -*/ -ATSINSmove(tmpret196__1, atspre_g1int_eq_int(arg0, tmp197__1)) ; - -ATSfunbody_end() -ATSreturn(tmpret196__1) ; -} /* end of [ATSLIB_056_prelude__eq_g1int_int__80__1] */ - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12838(line=668, offs=3) -- 12877(line=668, offs=42) -*/ -/* -local: -global: eq_g1int_int$80$2(level=1) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4643) -tmparg = S2Evar(tk(4643)) -tmpsub = Some(tk(4643) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g1int_int__80__2(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret196__2, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp197__2, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12823(line=667, offs=1) -- 12877(line=668, offs=42) -*/ -ATSINSflab(__patsflab_eq_g1int_int): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12864(line=668, offs=29) -- 12875(line=668, offs=40) -*/ -ATSINSmove(tmp197__2, atspre_g1int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12847(line=668, offs=12) -- 12877(line=668, offs=42) -*/ -ATSINSmove(tmpret196__2, atspre_g1int_eq_int(arg0, tmp197__2)) ; - -ATSfunbody_end() -ATSreturn(tmpret196__2) ; -} /* end of [ATSLIB_056_prelude__eq_g1int_int__80__2] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2209(line=74, offs=3) -- 2301(line=80, offs=2) -*/ -/* -local: -global: intinf_make_int$15$19(level=1) -local: -global: -*/ -ATSstatic() -/* -imparg = -tmparg = -tmpsub = Some() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__19(atstkind_t0ype(atstype_int) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret29__19, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp30__19, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp31__19) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2191(line=73, offs=1) -- 2301(line=80, offs=2) -*/ -ATSINSflab(__patsflab_intinf_make_int): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2238(line=77, offs=9) -- 2254(line=77, offs=25) -*/ -ATSINSmove(tmp30__19, ATSLIB_056_prelude__ptr_alloc__17__19()) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2264(line=78, offs=10) -- 2296(line=78, offs=42) -*/ -ATSINSmove_void(tmp31__19, atscntrb_gmp_mpz_init_set_int(ATSPMVrefarg1(ATSSELrecsin(tmp30__19, atstkind_type(atstype_ptrk), atslab__2)), arg0)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2216(line=74, offs=10) -- 2217(line=74, offs=11) -*/ -ATSINSmove(tmpret29__19, tmp30__19) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret29__19) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__19] */ - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42) -*/ -/* -local: -global: ptr_alloc$17$19(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = a(4740) -tmparg = S2Evar(a(4740)) -tmpsub = Some(a(4740) -> S2Ecst(mpz_vt0ype)) -*/ -atstkind_type(atstype_ptrk) -ATSLIB_056_prelude__ptr_alloc__17__19() -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret35__19, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3708(line=184, offs=1) -- 3749(line=184, offs=42) -*/ -ATSINSflab(__patsflab_ptr_alloc): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42) -*/ -ATSINSmove(tmpret35__19, atspre_ptr_alloc_tsz(ATSPMVsizeof(atscntrb_gmp_mpz))) ; - -ATSfunbody_end() -ATSreturn(tmpret35__19) ; -} /* end of [ATSLIB_056_prelude__ptr_alloc__17__19] */ - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12679(line=659, offs=3) -- 12718(line=659, offs=42) -*/ -/* -local: -global: gt_g1int_int$44$3(level=1) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4637) -tmparg = S2Evar(tk(4637)) -tmpsub = Some(tk(4637) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__gt_g1int_int__44__3(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret97__3, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp98__3, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12664(line=658, offs=1) -- 12718(line=659, offs=42) -*/ -ATSINSflab(__patsflab_gt_g1int_int): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12705(line=659, offs=29) -- 12716(line=659, offs=40) -*/ -ATSINSmove(tmp98__3, atspre_g1int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12688(line=659, offs=12) -- 12718(line=659, offs=42) -*/ -ATSINSmove(tmpret97__3, atspre_g1int_gt_int(arg0, tmp98__3)) ; - -ATSfunbody_end() -ATSreturn(tmpret97__3) ; -} /* end of [ATSLIB_056_prelude__gt_g1int_int__44__3] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2209(line=74, offs=3) -- 2301(line=80, offs=2) -*/ -/* -local: -global: intinf_make_int$15$20(level=1) -local: -global: -*/ -ATSstatic() -/* -imparg = -tmparg = -tmpsub = Some() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__20(atstkind_t0ype(atstype_int) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret29__20, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp30__20, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp31__20) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2191(line=73, offs=1) -- 2301(line=80, offs=2) -*/ -ATSINSflab(__patsflab_intinf_make_int): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2238(line=77, offs=9) -- 2254(line=77, offs=25) -*/ -ATSINSmove(tmp30__20, ATSLIB_056_prelude__ptr_alloc__17__20()) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2264(line=78, offs=10) -- 2296(line=78, offs=42) -*/ -ATSINSmove_void(tmp31__20, atscntrb_gmp_mpz_init_set_int(ATSPMVrefarg1(ATSSELrecsin(tmp30__20, atstkind_type(atstype_ptrk), atslab__2)), arg0)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2216(line=74, offs=10) -- 2217(line=74, offs=11) -*/ -ATSINSmove(tmpret29__20, tmp30__20) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret29__20) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__20] */ - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42) -*/ -/* -local: -global: ptr_alloc$17$20(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = a(4740) -tmparg = S2Evar(a(4740)) -tmpsub = Some(a(4740) -> S2Ecst(mpz_vt0ype)) -*/ -atstkind_type(atstype_ptrk) -ATSLIB_056_prelude__ptr_alloc__17__20() -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret35__20, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3708(line=184, offs=1) -- 3749(line=184, offs=42) -*/ -ATSINSflab(__patsflab_ptr_alloc): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42) -*/ -ATSINSmove(tmpret35__20, atspre_ptr_alloc_tsz(ATSPMVsizeof(atscntrb_gmp_mpz))) ; - -ATSfunbody_end() -ATSreturn(tmpret35__20) ; -} /* end of [ATSLIB_056_prelude__ptr_alloc__17__20] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 3672(line=146, offs=11) -- 4404(line=164, offs=12) -*/ -/* -local: choose_62$0(level=0), top_loop_89$0(level=1) -global: choose_62$0(level=0), top_loop_89$0(level=1) -local: n$5137(1)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))), k$5138(1)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))) -global: n$5137(1)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))), k$5138(1)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))) -*/ -ATSstatic() -atsvoid_t0ype -top_loop_89(atstkind_t0ype(atstype_int) env0, atstkind_t0ype(atstype_int) env1, atstkind_t0ype(atstype_int) arg0, atsrefarg1_type(atstkind_type(atstype_ptrk)) arg1) -{ -/* tmpvardeclst(beg) */ -// ATStmpdec_void(tmpret213) ; -ATStmpdec(tmp214, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp230) ; -ATStmpdec(tmp231, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmpref232, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmpref233, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmpref247, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp248, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmpref249, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp254, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp257) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 3672(line=146, offs=11) -- 4404(line=164, offs=12) -*/ -ATSINSflab(__patsflab_top_loop_89): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 3751(line=147, offs=9) -- 4404(line=164, offs=12) -*/ -ATScaseof_beg() -/* -** ibranchlst-beg -*/ -ATSbranch_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 3774(line=148, offs=13) -- 3775(line=148, offs=14) -*/ -ATSINSlab(__atstmplab36): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 3696(line=146, offs=35) -- 3697(line=146, offs=36) -*/ -ATSifnthen(ATSCKpat_int(arg0, ATSPMVint(0))) { ATSINSgoto(__atstmplab38) ; } ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 3775(line=148, offs=14) -- 3775(line=148, offs=14) -*/ -ATSINSlab(__atstmplab37): -/* -emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) -*/ -/* -ibranch-mbody: -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 3786(line=148, offs=25) -- 3799(line=148, offs=38) -*/ -ATSINSmove(tmp214, ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__21(ATSPMVi0nt(0))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 3779(line=148, offs=18) -- 3799(line=148, offs=38) -*/ -ATSINSstore(ATSderef(arg1, atstkind_type(atstype_ptrk)), tmp214) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 3779(line=148, offs=18) -- 3799(line=148, offs=38) -*/ -ATSINSmove_void(tmpret213, ATSPMVempty()) ; -ATSbranch_end() - -ATSbranch_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 3813(line=149, offs=14) -- 3813(line=149, offs=14) -*/ -ATSINSlab(__atstmplab38): -/* -emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) -*/ -/* -ibranch-mbody: -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 3818(line=149, offs=19) -- 4404(line=164, offs=12) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 4024(line=156, offs=31) -- 4029(line=156, offs=36) -*/ -ATSINSmove(tmp231, atspre_g1int_sub_int(arg0, ATSPMVi0nt(1))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 4015(line=156, offs=22) -- 4035(line=156, offs=42) -*/ -ATSINSmove_void(tmp230, top_loop_89(env0, env1, tmp231, ATSPMVrefarg1(arg1))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 4052(line=157, offs=17) -- 4055(line=157, offs=20) -*/ -/* -ATSINStmpdec(tmpref232) ; -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 4058(line=157, offs=23) -- 4070(line=157, offs=35) -*/ -ATSINSmove(tmpref232, choose_62(env1, arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 4087(line=158, offs=17) -- 4093(line=158, offs=23) -*/ -/* -ATSINStmpdec(tmpref233) ; -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 4096(line=158, offs=26) -- 4113(line=158, offs=43) -*/ -ATSINSmove(tmpref233, ATSCNTRB_056_HX_056_intinf_vt__pow_int_int__100__1(arg0, env0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 4130(line=159, offs=17) -- 4140(line=159, offs=27) -*/ -/* -ATSINStmpdec(tmpref247) ; -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 4157(line=159, offs=44) -- 4162(line=159, offs=49) -*/ -ATSINSmove(tmp248, atspre_g1int_sub_int(env1, arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 4143(line=159, offs=30) -- 4171(line=159, offs=58) -*/ -ATSINSmove(tmpref247, negate_if_odd_92(tmp248, tmpref233)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 4188(line=160, offs=17) -- 4198(line=160, offs=27) -*/ -/* -ATSINStmpdec(tmpref249) ; -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 4201(line=160, offs=30) -- 4237(line=160, offs=66) -*/ -ATSINSmove(tmpref249, ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_intinf1__103__1(tmpref232, ATSPMVrefarg0(tmpref247))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 4266(line=161, offs=29) -- 4302(line=161, offs=65) -*/ -ATSINSmove(tmp254, ATSCNTRB_056_HX_056_intinf_vt__add_intinf0_intinf1__6__3(ATSderef(arg1, atstkind_type(atstype_ptrk)), ATSPMVrefarg0(tmpref249))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 4259(line=161, offs=22) -- 4302(line=161, offs=65) -*/ -ATSINSstore(ATSderef(arg1, atstkind_type(atstype_ptrk)), tmp254) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 4324(line=162, offs=22) -- 4346(line=162, offs=44) -*/ -ATSINSmove_void(tmp257, ATSCNTRB_056_HX_056_intinf_vt__intinf_free__12__4(tmpref247)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 4369(line=163, offs=22) -- 4391(line=163, offs=44) -*/ -ATSINSmove_void(tmpret213, ATSCNTRB_056_HX_056_intinf_vt__intinf_free__12__5(tmpref249)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 3818(line=149, offs=19) -- 4404(line=164, offs=12) -*/ -/* -INSletpop() -*/ -ATSbranch_end() - -/* -** ibranchlst-end -*/ -ATScaseof_end() - -ATSfunbody_end() -ATSreturn_void(tmpret213) ; -} /* end of [top_loop_89] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2209(line=74, offs=3) -- 2301(line=80, offs=2) -*/ -/* -local: -global: intinf_make_int$15$21(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = -tmparg = -tmpsub = Some() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__21(atstkind_t0ype(atstype_int) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret29__21, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp30__21, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp31__21) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2191(line=73, offs=1) -- 2301(line=80, offs=2) -*/ -ATSINSflab(__patsflab_intinf_make_int): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2238(line=77, offs=9) -- 2254(line=77, offs=25) -*/ -ATSINSmove(tmp30__21, ATSLIB_056_prelude__ptr_alloc__17__21()) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2264(line=78, offs=10) -- 2296(line=78, offs=42) -*/ -ATSINSmove_void(tmp31__21, atscntrb_gmp_mpz_init_set_int(ATSPMVrefarg1(ATSSELrecsin(tmp30__21, atstkind_type(atstype_ptrk), atslab__2)), arg0)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2216(line=74, offs=10) -- 2217(line=74, offs=11) -*/ -ATSINSmove(tmpret29__21, tmp30__21) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret29__21) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__21] */ - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42) -*/ -/* -local: -global: ptr_alloc$17$21(level=3) -local: -global: -*/ -ATSstatic() -/* -imparg = a(4740) -tmparg = S2Evar(a(4740)) -tmpsub = Some(a(4740) -> S2Ecst(mpz_vt0ype)) -*/ -atstkind_type(atstype_ptrk) -ATSLIB_056_prelude__ptr_alloc__17__21() -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret35__21, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3708(line=184, offs=1) -- 3749(line=184, offs=42) -*/ -ATSINSflab(__patsflab_ptr_alloc): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42) -*/ -ATSINSmove(tmpret35__21, atspre_ptr_alloc_tsz(ATSPMVsizeof(atscntrb_gmp_mpz))) ; - -ATSfunbody_end() -ATSreturn(tmpret35__21) ; -} /* end of [ATSLIB_056_prelude__ptr_alloc__17__21] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 3835(line=150, offs=16) -- 3980(line=154, offs=31) -*/ -/* -local: -global: negate_if_odd_92$0(level=2) -local: -global: -*/ -ATSstatic() -atstkind_type(atstype_ptrk) -negate_if_odd_92(atstkind_t0ype(atstype_int) arg0, atstkind_type(atstype_ptrk) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret219, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp220, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp225, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 3835(line=150, offs=16) -- 3980(line=154, offs=31) -*/ -ATSINSflab(__patsflab_negate_if_odd_92): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 3898(line=151, offs=18) -- 3903(line=151, offs=23) -*/ -ATSINSmove(tmp225, atspre_g0int_mod_int(arg0, ATSPMVi0nt(2))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 3898(line=151, offs=18) -- 3907(line=151, offs=27) -*/ -ATSINSmove(tmp220, ATSLIB_056_prelude__eq_g0int_int__93__1(tmp225, ATSPMVi0nt(0))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 3895(line=151, offs=15) -- 3980(line=154, offs=31) -*/ -ATSif( -tmp220 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 3929(line=152, offs=17) -- 3930(line=152, offs=18) -*/ -ATSINSmove(tmpret219, arg1) ; -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 3966(line=154, offs=17) -- 3979(line=154, offs=30) -*/ -ATSINSmove(tmpret219, ATSCNTRB_056_HX_056_intinf_vt__neg_intinf0__98__1(arg1)) ; - -} /* ATSendif */ -ATSfunbody_end() -ATSreturn(tmpret219) ; -} /* end of [negate_if_odd_92] */ - -#if(0) -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) -*/ -/* -local: -global: eq_g0int_int$93$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = tk(4628) -tmparg = S2Evar(tk(4628)) -tmpsub = None() -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g0int_int__93(atstkind_t0ype(atstyvar_type(tk)) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret221, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp222, atstkind_t0ype(atstyvar_type(tk))) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) -*/ -ATSINSflab(__patsflab_eq_g0int_int): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) -*/ -ATSINSmove(tmp222, PMVtmpltcst(g0int2int)(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) -*/ -ATSINSmove(tmpret221, PMVtmpltcst(g0int_eq)(arg0, tmp222)) ; - -ATSfunbody_end() -ATSreturn(tmpret221) ; -} /* end of [ATSLIB_056_prelude__eq_g0int_int__93] */ -#endif // end of [TEMPLATE] - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) -*/ -/* -local: -global: eq_g0int_int$93$1(level=3) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4628) -tmparg = S2Evar(tk(4628)) -tmpsub = Some(tk(4628) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g0int_int__93__1(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret221__1, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp222__1, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) -*/ -ATSINSflab(__patsflab_eq_g0int_int): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) -*/ -ATSINSmove(tmp222__1, atspre_g0int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) -*/ -ATSINSmove(tmpret221__1, atspre_g0int_eq_int(arg0, tmp222__1)) ; - -ATSfunbody_end() -ATSreturn(tmpret221__1) ; -} /* end of [ATSLIB_056_prelude__eq_g0int_int__93__1] */ - -#if(0) -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 3629(line=165, offs=3) -- 3684(line=170, offs=2) -*/ -/* -local: -global: neg_intinf0$98$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__neg_intinf0__98(atstkind_type(atstype_ptrk) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret226, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp227) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 3615(line=164, offs=1) -- 3684(line=170, offs=2) -*/ -ATSINSflab(__patsflab_neg_intinf0): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 3635(line=165, offs=9) -- 3684(line=170, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 3659(line=168, offs=10) -- 3679(line=168, offs=30) -*/ -ATSINSmove_void(tmp227, atscntrb_gmp_mpz_neg1(ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)))) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 3636(line=165, offs=10) -- 3637(line=165, offs=11) -*/ -ATSINSmove(tmpret226, arg0) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 3635(line=165, offs=9) -- 3684(line=170, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret226) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__neg_intinf0__98] */ -#endif // end of [TEMPLATE] - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 3629(line=165, offs=3) -- 3684(line=170, offs=2) -*/ -/* -local: -global: neg_intinf0$98$1(level=3) -local: -global: -*/ -ATSstatic() -/* -imparg = -tmparg = -tmpsub = Some() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__neg_intinf0__98__1(atstkind_type(atstype_ptrk) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret226__1, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp227__1) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 3615(line=164, offs=1) -- 3684(line=170, offs=2) -*/ -ATSINSflab(__patsflab_neg_intinf0): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 3635(line=165, offs=9) -- 3684(line=170, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 3659(line=168, offs=10) -- 3679(line=168, offs=30) -*/ -ATSINSmove_void(tmp227__1, atscntrb_gmp_mpz_neg1(ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)))) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 3636(line=165, offs=10) -- 3637(line=165, offs=11) -*/ -ATSINSmove(tmpret226__1, arg0) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 3635(line=165, offs=9) -- 3684(line=170, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret226__1) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__neg_intinf0__98__1] */ - -#if(0) -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 14073(line=810, offs=3) -- 14242(line=819, offs=2) -*/ -/* -local: -global: pow_int_int$100$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__pow_int_int__100(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret234, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp235, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp236) ; -// ATStmpdec_void(tmp237) ; -ATStmpdec(tmp238, atstkind_t0ype(atstype_ulint)) ; -ATStmpdec(tmp239, atstkind_t0ype(atstype_ulint)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 14059(line=809, offs=1) -- 14242(line=819, offs=2) -*/ -ATSINSflab(__patsflab_pow_int_int): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 14089(line=811, offs=3) -- 14242(line=819, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 14127(line=814, offs=10) -- 14143(line=814, offs=26) -*/ -ATSINSmove(tmp235, PMVtmpltcst(ptr_alloc)()) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 14153(line=815, offs=10) -- 14175(line=815, offs=32) -*/ -ATSINSmove_void(tmp236, atscntrb_gmp_mpz_init(ATSPMVrefarg1(ATSSELrecsin(tmp235, atstkind_type(atstype_ptrk), atslab__2)))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 14215(line=817, offs=31) -- 14224(line=817, offs=40) -*/ -ATSINSmove(tmp238, atspre_g1int2uint_int_ulint(arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 14227(line=817, offs=43) -- 14235(line=817, offs=51) -*/ -ATSINSmove(tmp239, atspre_g1int2uint_int_ulint(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 14187(line=817, offs=3) -- 14237(line=817, offs=53) -*/ -ATSINSmove_void(tmp237, atscntrb_gmp_mpz_ui_pow_ui(ATSPMVrefarg1(ATSSELrecsin(tmp235, atstkind_type(atstype_ptrk), atslab__2)), tmp238, tmp239)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 14089(line=811, offs=3) -- 14105(line=811, offs=19) -*/ -ATSINSmove(tmpret234, ATSPMVcastfn(castvwtp0, atstkind_type(atstype_ptrk), tmp235)) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 14089(line=811, offs=3) -- 14242(line=819, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret234) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__pow_int_int__100] */ -#endif // end of [TEMPLATE] - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 14073(line=810, offs=3) -- 14242(line=819, offs=2) -*/ -/* -local: -global: pow_int_int$100$1(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = -tmparg = -tmpsub = Some() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__pow_int_int__100__1(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret234__1, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp235__1, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp236__1) ; -// ATStmpdec_void(tmp237__1) ; -ATStmpdec(tmp238__1, atstkind_t0ype(atstype_ulint)) ; -ATStmpdec(tmp239__1, atstkind_t0ype(atstype_ulint)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 14059(line=809, offs=1) -- 14242(line=819, offs=2) -*/ -ATSINSflab(__patsflab_pow_int_int): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 14089(line=811, offs=3) -- 14242(line=819, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 14127(line=814, offs=10) -- 14143(line=814, offs=26) -*/ -ATSINSmove(tmp235__1, ATSLIB_056_prelude__ptr_alloc__17__22()) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 14153(line=815, offs=10) -- 14175(line=815, offs=32) -*/ -ATSINSmove_void(tmp236__1, atscntrb_gmp_mpz_init(ATSPMVrefarg1(ATSSELrecsin(tmp235__1, atstkind_type(atstype_ptrk), atslab__2)))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 14215(line=817, offs=31) -- 14224(line=817, offs=40) -*/ -ATSINSmove(tmp238__1, atspre_g1int2uint_int_ulint(arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 14227(line=817, offs=43) -- 14235(line=817, offs=51) -*/ -ATSINSmove(tmp239__1, atspre_g1int2uint_int_ulint(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 14187(line=817, offs=3) -- 14237(line=817, offs=53) -*/ -ATSINSmove_void(tmp237__1, atscntrb_gmp_mpz_ui_pow_ui(ATSPMVrefarg1(ATSSELrecsin(tmp235__1, atstkind_type(atstype_ptrk), atslab__2)), tmp238__1, tmp239__1)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 14089(line=811, offs=3) -- 14105(line=811, offs=19) -*/ -ATSINSmove(tmpret234__1, ATSPMVcastfn(castvwtp0, atstkind_type(atstype_ptrk), tmp235__1)) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 14089(line=811, offs=3) -- 14242(line=819, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret234__1) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__pow_int_int__100__1] */ - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42) -*/ -/* -local: -global: ptr_alloc$17$22(level=3) -local: -global: -*/ -ATSstatic() -/* -imparg = a(4740) -tmparg = S2Evar(a(4740)) -tmpsub = Some(a(4740) -> S2Ecst(mpz_vt0ype)) -*/ -atstkind_type(atstype_ptrk) -ATSLIB_056_prelude__ptr_alloc__17__22() -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret35__22, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3708(line=184, offs=1) -- 3749(line=184, offs=42) -*/ -ATSINSflab(__patsflab_ptr_alloc): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42) -*/ -ATSINSmove(tmpret35__22, atspre_ptr_alloc_tsz(ATSPMVsizeof(atscntrb_gmp_mpz))) ; - -ATSfunbody_end() -ATSreturn(tmpret35__22) ; -} /* end of [ATSLIB_056_prelude__ptr_alloc__17__22] */ - -#if(0) -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7761(line=437, offs=3) -- 7833(line=442, offs=2) -*/ -/* -local: -global: mul_intinf0_intinf1$103$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_intinf1__103(atstkind_type(atstype_ptrk) arg0, atsrefarg0_type(atstkind_type(atstype_ptrk)) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret250, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp251) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7739(line=436, offs=1) -- 7833(line=442, offs=2) -*/ -ATSINSflab(__patsflab_mul_intinf0_intinf1): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7770(line=437, offs=12) -- 7833(line=442, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7794(line=440, offs=10) -- 7828(line=440, offs=44) -*/ -ATSINSmove_void(tmp251, atscntrb_gmp_mpz_mul2_mpz(ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), ATSPMVrefarg1(ATSSELrecsin(arg1, atstkind_type(atstype_ptrk), atslab__2)))) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7771(line=437, offs=13) -- 7772(line=437, offs=14) -*/ -ATSINSmove(tmpret250, arg0) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7770(line=437, offs=12) -- 7833(line=442, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret250) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_intinf1__103] */ -#endif // end of [TEMPLATE] - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7761(line=437, offs=3) -- 7833(line=442, offs=2) -*/ -/* -local: -global: mul_intinf0_intinf1$103$1(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = -tmparg = -tmpsub = Some() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_intinf1__103__1(atstkind_type(atstype_ptrk) arg0, atsrefarg0_type(atstkind_type(atstype_ptrk)) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret250__1, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp251__1) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7739(line=436, offs=1) -- 7833(line=442, offs=2) -*/ -ATSINSflab(__patsflab_mul_intinf0_intinf1): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7770(line=437, offs=12) -- 7833(line=442, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7794(line=440, offs=10) -- 7828(line=440, offs=44) -*/ -ATSINSmove_void(tmp251__1, atscntrb_gmp_mpz_mul2_mpz(ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), ATSPMVrefarg1(ATSSELrecsin(arg1, atstkind_type(atstype_ptrk), atslab__2)))) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7771(line=437, offs=13) -- 7772(line=437, offs=14) -*/ -ATSINSmove(tmpret250__1, arg0) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7770(line=437, offs=12) -- 7833(line=442, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret250__1) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_intinf1__103__1] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5514(line=298, offs=3) -- 5585(line=303, offs=2) -*/ -/* -local: -global: add_intinf0_intinf1$6$3(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = -tmparg = -tmpsub = Some() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__add_intinf0_intinf1__6__3(atstkind_type(atstype_ptrk) arg0, atsrefarg0_type(atstkind_type(atstype_ptrk)) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret8__3, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp9__3) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5492(line=297, offs=1) -- 5585(line=303, offs=2) -*/ -ATSINSflab(__patsflab_add_intinf0_intinf1): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5523(line=298, offs=12) -- 5585(line=303, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5547(line=301, offs=10) -- 5580(line=301, offs=43) -*/ -ATSINSmove_void(tmp9__3, 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 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5524(line=298, offs=13) -- 5525(line=298, offs=14) -*/ -ATSINSmove(tmpret8__3, arg0) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5523(line=298, offs=12) -- 5585(line=303, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret8__3) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__add_intinf0_intinf1__6__3] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2888(line=119, offs=12) -- 2987(line=122, offs=4) -*/ -/* -local: -global: intinf_free$12$4(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = -tmparg = -tmpsub = Some() -*/ -atsvoid_t0ype -ATSCNTRB_056_HX_056_intinf_vt__intinf_free__12__4(atstkind_type(atstype_ptrk) arg0) -{ -/* tmpvardeclst(beg) */ -// ATStmpdec_void(tmpret22__4) ; -// ATStmpdec_void(tmp23__4) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2877(line=119, offs=1) -- 2987(line=122, offs=4) -*/ -ATSINSflab(__patsflab_intinf_free): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2894(line=119, offs=18) -- 2987(line=122, offs=4) -*/ -/* -letpush(beg) -*/ -/* (*nothing*) */ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2936(line=121, offs=12) -- 2955(line=121, offs=31) -*/ -ATSINSmove_void(tmp23__4, atscntrb_gmp_mpz_clear(ATSPMVrefarg1(arg0))) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2959(line=121, offs=35) -- 2983(line=121, offs=59) -*/ -ATSINSmove_void(tmpret22__4, atspre_ptr_free(arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2894(line=119, offs=18) -- 2987(line=122, offs=4) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn_void(tmpret22__4) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_free__12__4] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2888(line=119, offs=12) -- 2987(line=122, offs=4) -*/ -/* -local: -global: intinf_free$12$5(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = -tmparg = -tmpsub = Some() -*/ -atsvoid_t0ype -ATSCNTRB_056_HX_056_intinf_vt__intinf_free__12__5(atstkind_type(atstype_ptrk) arg0) -{ -/* tmpvardeclst(beg) */ -// ATStmpdec_void(tmpret22__5) ; -// ATStmpdec_void(tmp23__5) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2877(line=119, offs=1) -- 2987(line=122, offs=4) -*/ -ATSINSflab(__patsflab_intinf_free): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2894(line=119, offs=18) -- 2987(line=122, offs=4) -*/ -/* -letpush(beg) -*/ -/* (*nothing*) */ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2936(line=121, offs=12) -- 2955(line=121, offs=31) -*/ -ATSINSmove_void(tmp23__5, atscntrb_gmp_mpz_clear(ATSPMVrefarg1(arg0))) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2959(line=121, offs=35) -- 2983(line=121, offs=59) -*/ -ATSINSmove_void(tmpret22__5, atspre_ptr_free(arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2894(line=119, offs=18) -- 2987(line=122, offs=4) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn_void(tmpret22__5) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_free__12__5] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9009(line=513, offs=3) -- 9083(line=518, offs=2) -*/ -/* -local: -global: div_intinf0_intinf1$59$3(level=1) -local: -global: -*/ -ATSstatic() -/* -imparg = -tmparg = -tmpsub = Some() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__div_intinf0_intinf1__59__3(atstkind_type(atstype_ptrk) arg0, atsrefarg0_type(atstkind_type(atstype_ptrk)) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret141__3, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp142__3) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 8987(line=512, offs=1) -- 9083(line=518, offs=2) -*/ -ATSINSflab(__patsflab_div_intinf0_intinf1): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9018(line=513, offs=12) -- 9083(line=518, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9042(line=516, offs=10) -- 9078(line=516, offs=46) -*/ -ATSINSmove_void(tmp142__3, 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 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9019(line=513, offs=13) -- 9020(line=513, offs=14) -*/ -ATSINSmove(tmpret141__3, arg0) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9018(line=513, offs=12) -- 9083(line=518, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret141__3) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__div_intinf0_intinf1__59__3] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2888(line=119, offs=12) -- 2987(line=122, offs=4) -*/ -/* -local: -global: intinf_free$12$6(level=1) -local: -global: -*/ -ATSstatic() -/* -imparg = -tmparg = -tmpsub = Some() -*/ -atsvoid_t0ype -ATSCNTRB_056_HX_056_intinf_vt__intinf_free__12__6(atstkind_type(atstype_ptrk) arg0) -{ -/* tmpvardeclst(beg) */ -// ATStmpdec_void(tmpret22__6) ; -// ATStmpdec_void(tmp23__6) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2877(line=119, offs=1) -- 2987(line=122, offs=4) -*/ -ATSINSflab(__patsflab_intinf_free): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2894(line=119, offs=18) -- 2987(line=122, offs=4) -*/ -/* -letpush(beg) -*/ -/* (*nothing*) */ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2936(line=121, offs=12) -- 2955(line=121, offs=31) -*/ -ATSINSmove_void(tmp23__6, atscntrb_gmp_mpz_clear(ATSPMVrefarg1(arg0))) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2959(line=121, offs=35) -- 2983(line=121, offs=59) -*/ -ATSINSmove_void(tmpret22__6, atspre_ptr_free(arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2894(line=119, offs=18) -- 2987(line=122, offs=4) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn_void(tmpret22__6) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_free__12__6] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 4603(line=175, offs=4) -- 5147(line=195, offs=6) -*/ -/* -local: stirling2_79$0(level=0) -global: fact_ref_28$0(level=0), fact_34$0(level=0), choose_62$0(level=0), stirling2_79$0(level=0), bell_110$0(level=0) -local: -global: -*/ -ATSstatic() -atstkind_type(atstype_ptrk) -bell_110(atstkind_t0ype(atstype_int) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret271, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmpref286, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp287) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 4603(line=175, offs=4) -- 5147(line=195, offs=6) -*/ -ATSINSflab(__patsflab_bell_110): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 4641(line=176, offs=3) -- 5147(line=195, offs=6) -*/ -/* -letpush(beg) -*/ -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 4997(line=187, offs=5) -- 5141(line=194, offs=10) -*/ -ATScaseof_beg() -/* -** ibranchlst-beg -*/ -ATSbranch_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 5016(line=188, offs=9) -- 5017(line=188, offs=10) -*/ -ATSINSlab(__atstmplab42): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 4616(line=175, offs=17) -- 4617(line=175, offs=18) -*/ -ATSifnthen(ATSCKpat_int(arg0, ATSPMVint(0))) { ATSINSgoto(__atstmplab44) ; } ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 5017(line=188, offs=10) -- 5017(line=188, offs=10) -*/ -ATSINSlab(__atstmplab43): -/* -emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) -*/ -/* -ibranch-mbody: -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 5021(line=188, offs=14) -- 5034(line=188, offs=27) -*/ -ATSINSmove(tmpret271, ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__22(ATSPMVi0nt(1))) ; - -ATSbranch_end() - -ATSbranch_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 5044(line=189, offs=10) -- 5044(line=189, offs=10) -*/ -ATSINSlab(__atstmplab44): -/* -emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) -*/ -/* -ibranch-mbody: -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 5049(line=189, offs=15) -- 5141(line=194, offs=10) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 5065(line=190, offs=13) -- 5068(line=190, offs=16) -*/ -/* -ATSINStmpdec(tmpref286) ; -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 5094(line=191, offs=18) -- 5110(line=191, offs=34) -*/ -ATSINSmove_void(tmp287, sum_loop_111(arg0, arg0, ATSPMVrefarg1(ATSPMVptrof(tmpref286)))) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 5128(line=193, offs=9) -- 5131(line=193, offs=12) -*/ -ATSINSmove(tmpret271, tmpref286) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 5049(line=189, offs=15) -- 5141(line=194, offs=10) -*/ -/* -INSletpop() -*/ -ATSbranch_end() - -/* -** ibranchlst-end -*/ -ATScaseof_end() - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 4641(line=176, offs=3) -- 5147(line=195, offs=6) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret271) ; -} /* end of [bell_110] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 4653(line=177, offs=9) -- 4987(line=185, offs=10) -*/ -/* -local: stirling2_79$0(level=0), sum_loop_111$0(level=1) -global: stirling2_79$0(level=0), sum_loop_111$0(level=1) -local: n$5154(1)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))) -global: n$5154(1)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))) -*/ -ATSstatic() -atsvoid_t0ype -sum_loop_111(atstkind_t0ype(atstype_int) env0, atstkind_t0ype(atstype_int) arg0, atsrefarg1_type(atstkind_type(atstype_ptrk)) arg1) -{ -/* tmpvardeclst(beg) */ -// ATStmpdec_void(tmpret272) ; -ATStmpdec(tmp273, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp274) ; -ATStmpdec(tmp275, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmpref276, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp277, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 4653(line=177, offs=9) -- 4987(line=185, offs=10) -*/ -ATSINSflab(__patsflab_sum_loop_111): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 4743(line=178, offs=7) -- 4987(line=185, offs=10) -*/ -ATScaseof_beg() -/* -** ibranchlst-beg -*/ -ATSbranch_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 4764(line=179, offs=11) -- 4765(line=179, offs=12) -*/ -ATSINSlab(__atstmplab39): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 4690(line=177, offs=46) -- 4691(line=177, offs=47) -*/ -ATSifnthen(ATSCKpat_int(arg0, ATSPMVint(1))) { ATSINSgoto(__atstmplab41) ; } ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 4765(line=179, offs=12) -- 4765(line=179, offs=12) -*/ -ATSINSlab(__atstmplab40): -/* -emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) -*/ -/* -ibranch-mbody: -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 4776(line=179, offs=23) -- 4791(line=179, offs=38) -*/ -ATSINSmove(tmp273, stirling2_79(env0, ATSPMVi0nt(1))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 4769(line=179, offs=16) -- 4791(line=179, offs=38) -*/ -ATSINSstore(ATSderef(arg1, atstkind_type(atstype_ptrk)), tmp273) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 4769(line=179, offs=16) -- 4791(line=179, offs=38) -*/ -ATSINSmove_void(tmpret272, ATSPMVempty()) ; -ATSbranch_end() - -ATSbranch_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 4803(line=180, offs=12) -- 4803(line=180, offs=12) -*/ -ATSINSlab(__atstmplab41): -/* -emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) -*/ -/* -ibranch-mbody: -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 4808(line=180, offs=17) -- 4987(line=185, offs=10) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 4838(line=181, offs=29) -- 4843(line=181, offs=34) -*/ -ATSINSmove(tmp275, atspre_g1int_sub_int(arg0, ATSPMVi0nt(1))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 4829(line=181, offs=20) -- 4849(line=181, offs=40) -*/ -ATSINSmove_void(tmp274, sum_loop_111(env0, tmp275, ATSPMVrefarg1(arg1))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 4864(line=182, offs=15) -- 4867(line=182, offs=18) -*/ -/* -ATSINStmpdec(tmpref276) ; -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 4870(line=182, offs=21) -- 4885(line=182, offs=36) -*/ -ATSINSmove(tmpref276, stirling2_79(env0, arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 4912(line=183, offs=27) -- 4941(line=183, offs=56) -*/ -ATSINSmove(tmp277, ATSCNTRB_056_HX_056_intinf_vt__add_intinf0_intinf1__6__4(ATSderef(arg1, atstkind_type(atstype_ptrk)), ATSPMVrefarg0(tmpref276))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 4905(line=183, offs=20) -- 4941(line=183, offs=56) -*/ -ATSINSstore(ATSderef(arg1, atstkind_type(atstype_ptrk)), tmp277) ; -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 4961(line=184, offs=20) -- 4976(line=184, offs=35) -*/ -ATSINSmove_void(tmpret272, ATSCNTRB_056_HX_056_intinf_vt__intinf_free__12__7(tmpref276)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 4808(line=180, offs=17) -- 4987(line=185, offs=10) -*/ -/* -INSletpop() -*/ -ATSbranch_end() - -/* -** ibranchlst-end -*/ -ATScaseof_end() - -ATSfunbody_end() -ATSreturn_void(tmpret272) ; -} /* end of [sum_loop_111] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5514(line=298, offs=3) -- 5585(line=303, offs=2) -*/ -/* -local: -global: add_intinf0_intinf1$6$4(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = -tmparg = -tmpsub = Some() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__add_intinf0_intinf1__6__4(atstkind_type(atstype_ptrk) arg0, atsrefarg0_type(atstkind_type(atstype_ptrk)) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret8__4, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp9__4) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5492(line=297, offs=1) -- 5585(line=303, offs=2) -*/ -ATSINSflab(__patsflab_add_intinf0_intinf1): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5523(line=298, offs=12) -- 5585(line=303, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5547(line=301, offs=10) -- 5580(line=301, offs=43) -*/ -ATSINSmove_void(tmp9__4, 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 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5524(line=298, offs=13) -- 5525(line=298, offs=14) -*/ -ATSINSmove(tmpret8__4, arg0) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5523(line=298, offs=12) -- 5585(line=303, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret8__4) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__add_intinf0_intinf1__6__4] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2888(line=119, offs=12) -- 2987(line=122, offs=4) -*/ -/* -local: -global: intinf_free$12$7(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = -tmparg = -tmpsub = Some() -*/ -atsvoid_t0ype -ATSCNTRB_056_HX_056_intinf_vt__intinf_free__12__7(atstkind_type(atstype_ptrk) arg0) -{ -/* tmpvardeclst(beg) */ -// ATStmpdec_void(tmpret22__7) ; -// ATStmpdec_void(tmp23__7) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2877(line=119, offs=1) -- 2987(line=122, offs=4) -*/ -ATSINSflab(__patsflab_intinf_free): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2894(line=119, offs=18) -- 2987(line=122, offs=4) -*/ -/* -letpush(beg) -*/ -/* (*nothing*) */ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2936(line=121, offs=12) -- 2955(line=121, offs=31) -*/ -ATSINSmove_void(tmp23__7, atscntrb_gmp_mpz_clear(ATSPMVrefarg1(arg0))) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2959(line=121, offs=35) -- 2983(line=121, offs=59) -*/ -ATSINSmove_void(tmpret22__7, atspre_ptr_free(arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2894(line=119, offs=18) -- 2987(line=122, offs=4) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn_void(tmpret22__7) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_free__12__7] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2209(line=74, offs=3) -- 2301(line=80, offs=2) -*/ -/* -local: -global: intinf_make_int$15$22(level=1) -local: -global: -*/ -ATSstatic() -/* -imparg = -tmparg = -tmpsub = Some() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__22(atstkind_t0ype(atstype_int) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret29__22, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp30__22, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp31__22) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2191(line=73, offs=1) -- 2301(line=80, offs=2) -*/ -ATSINSflab(__patsflab_intinf_make_int): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2238(line=77, offs=9) -- 2254(line=77, offs=25) -*/ -ATSINSmove(tmp30__22, ATSLIB_056_prelude__ptr_alloc__17__23()) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2264(line=78, offs=10) -- 2296(line=78, offs=42) -*/ -ATSINSmove_void(tmp31__22, atscntrb_gmp_mpz_init_set_int(ATSPMVrefarg1(ATSSELrecsin(tmp30__22, atstkind_type(atstype_ptrk), atslab__2)), arg0)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2216(line=74, offs=10) -- 2217(line=74, offs=11) -*/ -ATSINSmove(tmpret29__22, tmp30__22) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret29__22) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__22] */ - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42) -*/ -/* -local: -global: ptr_alloc$17$23(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = a(4740) -tmparg = S2Evar(a(4740)) -tmpsub = Some(a(4740) -> S2Ecst(mpz_vt0ype)) -*/ -atstkind_type(atstype_ptrk) -ATSLIB_056_prelude__ptr_alloc__17__23() -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret35__23, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3708(line=184, offs=1) -- 3749(line=184, offs=42) -*/ -ATSINSflab(__patsflab_ptr_alloc): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42) -*/ -ATSINSmove(tmpret35__23, atspre_ptr_alloc_tsz(ATSPMVsizeof(atscntrb_gmp_mpz))) ; - -ATSfunbody_end() -ATSreturn(tmpret35__23) ; -} /* end of [ATSLIB_056_prelude__ptr_alloc__17__23] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 5152(line=197, offs=4) -- 5575(line=213, offs=6) -*/ -/* -local: choose_62$0(level=0) -global: fact_ref_28$0(level=0), fact_34$0(level=0), choose_62$0(level=0), max_regions_116$0(level=0) -local: -global: -*/ -ATSstatic() -atstkind_type(atstype_ptrk) -max_regions_116(atstkind_t0ype(atstype_int) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret288, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmpref303, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp304) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 5152(line=197, offs=4) -- 5575(line=213, offs=6) -*/ -ATSINSflab(__patsflab_max_regions_116): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 5197(line=198, offs=3) -- 5575(line=213, offs=6) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 5525(line=209, offs=9) -- 5526(line=209, offs=10) -*/ -/* -ATSINStmpdec(tmpref303) ; -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 5548(line=210, offs=14) -- 5558(line=210, offs=24) -*/ -ATSINSmove_void(tmp304, loop_117(arg0, ATSPMVi0nt(4), ATSPMVrefarg1(ATSPMVptrof(tmpref303)))) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 5568(line=212, offs=5) -- 5569(line=212, offs=6) -*/ -ATSINSmove(tmpret288, tmpref303) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 5197(line=198, offs=3) -- 5575(line=213, offs=6) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret288) ; -} /* end of [max_regions_116] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 5209(line=199, offs=9) -- 5511(line=207, offs=10) -*/ -/* -local: choose_62$0(level=0), loop_117$0(level=1) -global: choose_62$0(level=0), loop_117$0(level=1) -local: n$5163(1)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))) -global: n$5163(1)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))) -*/ -ATSstatic() -atsvoid_t0ype -loop_117(atstkind_t0ype(atstype_int) env0, atstkind_t0ype(atstype_int) arg0, atsrefarg1_type(atstkind_type(atstype_ptrk)) arg1) -{ -/* tmpvardeclst(beg) */ -// ATStmpdec_void(tmpret289) ; -ATStmpdec(tmp290, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp295) ; -ATStmpdec(tmp296, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmpref297, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp298, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 5209(line=199, offs=9) -- 5511(line=207, offs=10) -*/ -ATSINSflab(__patsflab_loop_117): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 5282(line=200, offs=7) -- 5511(line=207, offs=10) -*/ -ATScaseof_beg() -/* -** ibranchlst-beg -*/ -ATSbranch_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 5303(line=201, offs=11) -- 5304(line=201, offs=12) -*/ -ATSINSlab(__atstmplab45): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 5229(line=199, offs=29) -- 5230(line=199, offs=30) -*/ -ATSifnthen(ATSCKpat_int(arg0, ATSPMVint(0))) { ATSINSgoto(__atstmplab47) ; } ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 5304(line=201, offs=12) -- 5304(line=201, offs=12) -*/ -ATSINSlab(__atstmplab46): -/* -emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) -*/ -/* -ibranch-mbody: -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 5315(line=201, offs=23) -- 5328(line=201, offs=36) -*/ -ATSINSmove(tmp290, ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__23(ATSPMVi0nt(1))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 5308(line=201, offs=16) -- 5328(line=201, offs=36) -*/ -ATSINSstore(ATSderef(arg1, atstkind_type(atstype_ptrk)), tmp290) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 5308(line=201, offs=16) -- 5328(line=201, offs=36) -*/ -ATSINSmove_void(tmpret289, ATSPMVempty()) ; -ATSbranch_end() - -ATSbranch_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 5340(line=202, offs=12) -- 5340(line=202, offs=12) -*/ -ATSINSlab(__atstmplab47): -/* -emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) -*/ -/* -ibranch-mbody: -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 5345(line=202, offs=17) -- 5511(line=207, offs=10) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 5371(line=203, offs=25) -- 5376(line=203, offs=30) -*/ -ATSINSmove(tmp296, atspre_g1int_sub_int(arg0, ATSPMVi0nt(1))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 5366(line=203, offs=20) -- 5382(line=203, offs=36) -*/ -ATSINSmove_void(tmp295, loop_117(env0, tmp296, ATSPMVrefarg1(arg1))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 5397(line=204, offs=15) -- 5398(line=204, offs=16) -*/ -/* -ATSINStmpdec(tmpref297) ; -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 5401(line=204, offs=19) -- 5413(line=204, offs=31) -*/ -ATSINSmove(tmpref297, choose_62(env0, arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 5440(line=205, offs=27) -- 5467(line=205, offs=54) -*/ -ATSINSmove(tmp298, ATSCNTRB_056_HX_056_intinf_vt__add_intinf0_intinf1__6__5(ATSderef(arg1, atstkind_type(atstype_ptrk)), ATSPMVrefarg0(tmpref297))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 5433(line=205, offs=20) -- 5467(line=205, offs=54) -*/ -ATSINSstore(ATSderef(arg1, atstkind_type(atstype_ptrk)), tmp298) ; -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 5487(line=206, offs=20) -- 5500(line=206, offs=33) -*/ -ATSINSmove_void(tmpret289, ATSCNTRB_056_HX_056_intinf_vt__intinf_free__12__8(tmpref297)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 5345(line=202, offs=17) -- 5511(line=207, offs=10) -*/ -/* -INSletpop() -*/ -ATSbranch_end() - -/* -** ibranchlst-end -*/ -ATScaseof_end() - -ATSfunbody_end() -ATSreturn_void(tmpret289) ; -} /* end of [loop_117] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2209(line=74, offs=3) -- 2301(line=80, offs=2) -*/ -/* -local: -global: intinf_make_int$15$23(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = -tmparg = -tmpsub = Some() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__23(atstkind_t0ype(atstype_int) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret29__23, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp30__23, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp31__23) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2191(line=73, offs=1) -- 2301(line=80, offs=2) -*/ -ATSINSflab(__patsflab_intinf_make_int): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2238(line=77, offs=9) -- 2254(line=77, offs=25) -*/ -ATSINSmove(tmp30__23, ATSLIB_056_prelude__ptr_alloc__17__24()) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2264(line=78, offs=10) -- 2296(line=78, offs=42) -*/ -ATSINSmove_void(tmp31__23, atscntrb_gmp_mpz_init_set_int(ATSPMVrefarg1(ATSSELrecsin(tmp30__23, atstkind_type(atstype_ptrk), atslab__2)), arg0)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2216(line=74, offs=10) -- 2217(line=74, offs=11) -*/ -ATSINSmove(tmpret29__23, tmp30__23) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret29__23) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__23] */ - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42) -*/ -/* -local: -global: ptr_alloc$17$24(level=3) -local: -global: -*/ -ATSstatic() -/* -imparg = a(4740) -tmparg = S2Evar(a(4740)) -tmpsub = Some(a(4740) -> S2Ecst(mpz_vt0ype)) -*/ -atstkind_type(atstype_ptrk) -ATSLIB_056_prelude__ptr_alloc__17__24() -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret35__24, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3708(line=184, offs=1) -- 3749(line=184, offs=42) -*/ -ATSINSflab(__patsflab_ptr_alloc): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42) -*/ -ATSINSmove(tmpret35__24, atspre_ptr_alloc_tsz(ATSPMVsizeof(atscntrb_gmp_mpz))) ; - -ATSfunbody_end() -ATSreturn(tmpret35__24) ; -} /* end of [ATSLIB_056_prelude__ptr_alloc__17__24] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5514(line=298, offs=3) -- 5585(line=303, offs=2) -*/ -/* -local: -global: add_intinf0_intinf1$6$5(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = -tmparg = -tmpsub = Some() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__add_intinf0_intinf1__6__5(atstkind_type(atstype_ptrk) arg0, atsrefarg0_type(atstkind_type(atstype_ptrk)) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret8__5, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp9__5) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5492(line=297, offs=1) -- 5585(line=303, offs=2) -*/ -ATSINSflab(__patsflab_add_intinf0_intinf1): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5523(line=298, offs=12) -- 5585(line=303, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5547(line=301, offs=10) -- 5580(line=301, offs=43) -*/ -ATSINSmove_void(tmp9__5, 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 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5524(line=298, offs=13) -- 5525(line=298, offs=14) -*/ -ATSINSmove(tmpret8__5, arg0) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5523(line=298, offs=12) -- 5585(line=303, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret8__5) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__add_intinf0_intinf1__6__5] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2888(line=119, offs=12) -- 2987(line=122, offs=4) -*/ -/* -local: -global: intinf_free$12$8(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = -tmparg = -tmpsub = Some() -*/ -atsvoid_t0ype -ATSCNTRB_056_HX_056_intinf_vt__intinf_free__12__8(atstkind_type(atstype_ptrk) arg0) -{ -/* tmpvardeclst(beg) */ -// ATStmpdec_void(tmpret22__8) ; -// ATStmpdec_void(tmp23__8) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2877(line=119, offs=1) -- 2987(line=122, offs=4) -*/ -ATSINSflab(__patsflab_intinf_free): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2894(line=119, offs=18) -- 2987(line=122, offs=4) -*/ -/* -letpush(beg) -*/ -/* (*nothing*) */ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2936(line=121, offs=12) -- 2955(line=121, offs=31) -*/ -ATSINSmove_void(tmp23__8, atscntrb_gmp_mpz_clear(ATSPMVrefarg1(arg0))) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2959(line=121, offs=35) -- 2983(line=121, offs=59) -*/ -ATSINSmove_void(tmpret22__8, atspre_ptr_free(arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2894(line=119, offs=18) -- 2987(line=122, offs=4) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn_void(tmpret22__8) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_free__12__8] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 5598(line=215, offs=22) -- 5621(line=216, offs=15) -*/ -/* -local: choose_62$0(level=0) -global: fact_ref_28$0(level=0), fact_34$0(level=0), choose_62$0(level=0), choose_ats$122$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(tmpret305, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 5587(line=215, offs=11) -- 5621(line=216, offs=15) -*/ -ATSINSflab(__patsflab_choose_ats): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 5609(line=216, offs=3) -- 5621(line=216, offs=15) -*/ -ATSINSmove(tmpret305, choose_62(arg0, arg1)) ; - -ATSfunbody_end() -ATSreturn(tmpret305) ; -} /* end of [choose_ats] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 5654(line=218, offs=32) -- 5669(line=219, offs=10) -*/ -/* -local: dfact_41$0(level=0) -global: dfact_ref_35$0(level=0), dfact_41$0(level=0), double_factorial_ats$123$0(level=0) -local: -global: -*/ -ATSextern() -atstkind_type(atstype_ptrk) -double_factorial_ats(atstkind_t0ype(atstype_int) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret306, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 5633(line=218, offs=11) -- 5670(line=219, offs=11) -*/ -ATSINSflab(__patsflab_double_factorial_ats): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 5662(line=219, offs=3) -- 5669(line=219, offs=10) -*/ -ATSINSmove(tmpret306, dfact_41(arg0)) ; - -ATSfunbody_end() -ATSreturn(tmpret306) ; -} /* end of [double_factorial_ats] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 5696(line=221, offs=25) -- 5710(line=222, offs=9) -*/ -/* -local: fact_34$0(level=0) -global: fact_ref_28$0(level=0), fact_34$0(level=0), factorial_ats$124$0(level=0) -local: -global: -*/ -ATSextern() -atstkind_type(atstype_ptrk) -factorial_ats(atstkind_t0ype(atstype_int) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret307, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 5682(line=221, offs=11) -- 5711(line=222, offs=10) -*/ -ATSINSflab(__patsflab_factorial_ats): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 5704(line=222, offs=3) -- 5710(line=222, offs=9) -*/ -ATSINSmove(tmpret307, fact_34(arg0)) ; - -ATSfunbody_end() -ATSreturn(tmpret307) ; -} /* end of [factorial_ats] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 5735(line=224, offs=23) -- 5752(line=225, offs=12) -*/ -/* -local: catalan_50$0(level=0) -global: fact_ref_28$0(level=0), fact_34$0(level=0), catalan_50$0(level=0), catalan_ats$125$0(level=0) -local: -global: -*/ -ATSextern() -atstkind_type(atstype_ptrk) -catalan_ats(atstkind_t0ype(atstype_int) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret308, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 5723(line=224, offs=11) -- 5753(line=225, offs=13) -*/ -ATSINSflab(__patsflab_catalan_ats): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 5743(line=225, offs=3) -- 5752(line=225, offs=12) -*/ -ATSINSmove(tmpret308, catalan_50(arg0)) ; - -ATSfunbody_end() -ATSreturn(tmpret308) ; -} /* end of [catalan_ats] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 5782(line=227, offs=28) -- 5804(line=228, offs=17) -*/ -/* -local: derangements_0$0(level=0) -global: derangements_0$0(level=0), derangements_ats$126$0(level=0) -local: -global: -*/ -ATSextern() -atstkind_type(atstype_ptrk) -derangements_ats(atstkind_t0ype(atstype_int) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret309, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 5765(line=227, offs=11) -- 5805(line=228, offs=18) -*/ -ATSINSflab(__patsflab_derangements_ats): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 5790(line=228, offs=3) -- 5804(line=228, offs=17) -*/ -ATSINSmove(tmpret309, derangements_0(arg0)) ; - -ATSfunbody_end() -ATSreturn(tmpret309) ; -} /* end of [derangements_ats] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 5834(line=230, offs=28) -- 5863(line=231, offs=21) -*/ -/* -local: permutations_42$0(level=0) -global: permutations_42$0(level=0), permutations_ats$127$0(level=0) -local: -global: -*/ -ATSextern() -atstkind_type(atstype_ptrk) -permutations_ats(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret310, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 5817(line=230, offs=11) -- 5863(line=231, offs=21) -*/ -ATSINSflab(__patsflab_permutations_ats): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 5845(line=231, offs=3) -- 5863(line=231, offs=21) -*/ -ATSINSmove(tmpret310, permutations_42(arg0, arg1)) ; - -ATSfunbody_end() -ATSreturn(tmpret310) ; -} /* end of [permutations_ats] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 5889(line=233, offs=25) -- 5915(line=234, offs=18) -*/ -/* -local: stirling2_79$0(level=0) -global: fact_ref_28$0(level=0), fact_34$0(level=0), choose_62$0(level=0), stirling2_79$0(level=0), stirling2_ats$128$0(level=0) -local: -global: -*/ -ATSextern() -atstkind_type(atstype_ptrk) -stirling2_ats(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret311, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 5875(line=233, offs=11) -- 5915(line=234, offs=18) -*/ -ATSINSflab(__patsflab_stirling2_ats): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 5900(line=234, offs=3) -- 5915(line=234, offs=18) -*/ -ATSINSmove(tmpret311, stirling2_79(arg0, arg1)) ; - -ATSfunbody_end() -ATSreturn(tmpret311) ; -} /* end of [stirling2_ats] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 5943(line=236, offs=27) -- 5964(line=237, offs=16) -*/ -/* -local: max_regions_116$0(level=0) -global: fact_ref_28$0(level=0), fact_34$0(level=0), choose_62$0(level=0), max_regions_116$0(level=0), max_regions_ats$129$0(level=0) -local: -global: -*/ -ATSextern() -atstkind_type(atstype_ptrk) -max_regions_ats(atstkind_t0ype(atstype_int) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret312, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 5927(line=236, offs=11) -- 5965(line=237, offs=17) -*/ -ATSINSflab(__patsflab_max_regions_ats): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 5951(line=237, offs=3) -- 5964(line=237, offs=16) -*/ -ATSINSmove(tmpret312, max_regions_116(arg0)) ; - -ATSfunbody_end() -ATSreturn(tmpret312) ; -} /* end of [max_regions_ats] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 5986(line=239, offs=20) -- 6000(line=240, offs=9) -*/ -/* -local: bell_110$0(level=0) -global: fact_ref_28$0(level=0), fact_34$0(level=0), choose_62$0(level=0), stirling2_79$0(level=0), bell_110$0(level=0), bell_ats$130$0(level=0) -local: -global: -*/ -ATSextern() -atstkind_type(atstype_ptrk) -bell_ats(atstkind_t0ype(atstype_int) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret313, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 5977(line=239, offs=11) -- 6001(line=240, offs=10) -*/ -ATSINSflab(__patsflab_bell_ats): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/combinatorics.dats: 5994(line=240, offs=3) -- 6000(line=240, offs=9) -*/ -ATSINSmove(tmpret313, bell_110(arg0)) ; - -ATSfunbody_end() -ATSreturn(tmpret313) ; -} /* end of [bell_ats] */ - -/* -** for initialization(dynloading) -*/ -ATSdynloadflag_minit(_057_home_057_vanessa_057_programming_057_haskell_057_done_057_hs_055_ats_057_fast_055_arithmetic_057_ats_055_src_057_combinatorics_056_dats__dynloadflag) ; -ATSextern() -atsvoid_t0ype -_057_home_057_vanessa_057_programming_057_haskell_057_done_057_hs_055_ats_057_fast_055_arithmetic_057_ats_055_src_057_combinatorics_056_dats__dynload() -{ -ATSfunbody_beg() -ATSdynload(/*void*/) -ATSdynloadflag_sta( -_057_home_057_vanessa_057_programming_057_haskell_057_done_057_hs_055_ats_057_fast_055_arithmetic_057_ats_055_src_057_combinatorics_056_dats__dynloadflag -) ; -ATSif( -ATSCKiseqz( -_057_home_057_vanessa_057_programming_057_haskell_057_done_057_hs_055_ats_057_fast_055_arithmetic_057_ats_055_src_057_combinatorics_056_dats__dynloadflag -) -) ATSthen() { -ATSdynloadset(_057_home_057_vanessa_057_programming_057_haskell_057_done_057_hs_055_ats_057_fast_055_arithmetic_057_ats_055_src_057_combinatorics_056_dats__dynloadflag) ; +** The C code is generated by [ATS/Postiats-0-4-1] +** +*/ + +/* +** include runtime header files +*/ +#ifndef _ATS_CCOMP_HEADER_NONE_ +#include "pats_ccomp_config.h" +#include "pats_ccomp_basics.h" +#include "pats_ccomp_typedefs.h" +#include "pats_ccomp_instrset.h" +#include "pats_ccomp_memalloc.h" +#ifndef _ATS_CCOMP_EXCEPTION_NONE_ +#include "pats_ccomp_memalloca.h" +#include "pats_ccomp_exception.h" +#endif // end of [_ATS_CCOMP_EXCEPTION_NONE_] +#endif /* _ATS_CCOMP_HEADER_NONE_ */ + + +/* +** include prelude cats files +*/ +#ifndef _ATS_CCOMP_PRELUDE_NONE_ +// +#include "prelude/CATS/basics.cats" +#include "prelude/CATS/integer.cats" +#include "prelude/CATS/pointer.cats" +#include "prelude/CATS/integer_long.cats" +#include "prelude/CATS/integer_size.cats" +#include "prelude/CATS/integer_short.cats" +#include "prelude/CATS/bool.cats" +#include "prelude/CATS/char.cats" +#include "prelude/CATS/float.cats" +#include "prelude/CATS/integer_ptr.cats" +#include "prelude/CATS/integer_fixed.cats" +#include "prelude/CATS/memory.cats" +#include "prelude/CATS/string.cats" +#include "prelude/CATS/strptr.cats" +// +#include "prelude/CATS/fprintf.cats" +// +#include "prelude/CATS/filebas.cats" +// +#include "prelude/CATS/list.cats" +#include "prelude/CATS/option.cats" +#include "prelude/CATS/array.cats" +#include "prelude/CATS/arrayptr.cats" +#include "prelude/CATS/arrayref.cats" +#include "prelude/CATS/matrix.cats" +#include "prelude/CATS/matrixptr.cats" +// +#endif /* _ATS_CCOMP_PRELUDE_NONE_ */ +/* +** for user-supplied prelude +*/ +#ifdef _ATS_CCOMP_PRELUDE_USER_ +// +#include _ATS_CCOMP_PRELUDE_USER_ +// +#endif /* _ATS_CCOMP_PRELUDE_USER_ */ +/* +** for user2-supplied prelude +*/ +#ifdef _ATS_CCOMP_PRELUDE_USER2_ +// +#include _ATS_CCOMP_PRELUDE_USER2_ +// +#endif /* _ATS_CCOMP_PRELUDE_USER2_ */ + +/* +staload-prologues(beg) +*/ +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/libats/libc/SATS/stdio.sats: 1390(line=36, offs=1) -- 1437(line=39, offs=3) +*/ + +#include \ +"libats/libc/CATS/stdio.cats" +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/libats/libc/SATS/sys/types.sats: 1390(line=36, offs=1) -- 1441(line=39, offs=3) +*/ + +#include \ +"libats/libc/CATS/sys/types.cats" +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/libats/libc/SATS/sys/stat.sats: 1390(line=36, offs=1) -- 1440(line=39, offs=3) +*/ + +#include \ +"libats/libc/CATS/sys/stat.cats" +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/libats/libc/SATS/sys/types.sats: 1390(line=36, offs=1) -- 1441(line=39, offs=3) +*/ + +#include \ +"libats/libc/CATS/sys/types.cats" +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/libats/libc/SATS/stdio.sats: 1390(line=36, offs=1) -- 1437(line=39, offs=3) +*/ + +#include \ +"libats/libc/CATS/stdio.cats" +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/libats/libc/SATS/sys/types.sats: 1390(line=36, offs=1) -- 1441(line=39, offs=3) +*/ + +#include \ +"libats/libc/CATS/sys/types.cats" +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/contrib/atscntrb/atscntrb-hx-libgmp/SATS/gmp.sats: 1178(line=38, offs=1) -- 1236(line=43, offs=3) +*/ + +// +#include \ +"atscntrb-hx-libgmp/CATS/gmp.cats" +// +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/contrib/atscntrb/atscntrb-hx-libgmp/SATS/gmp.sats: 1178(line=38, offs=1) -- 1236(line=43, offs=3) +*/ + +// +#include \ +"atscntrb-hx-libgmp/CATS/gmp.cats" +// +/* +staload-prologues(end) +*/ +/* +typedefs-for-tyrecs-and-tysums(beg) +*/ +/* +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_lt_int) +ATSdyncst_mac(atscntrb_gmp_mpz_add2_mpz) +ATSdyncst_mac(atscntrb_gmp_mpz_mul2_int) +ATSdyncst_mac(atspre_g1int_add_int) +ATSdyncst_mac(atscntrb_gmp_mpz_clear) +ATSdyncst_mac(atspre_ptr_free) +ATSdyncst_mac(atscntrb_gmp_mpz_init_set_int) +ATSdyncst_mac(atspre_ptr_alloc_tsz) +ATSdyncst_mac(atspre_g1int_sub_int) +ATSdyncst_mac(atspre_g1int_gt_int) +ATSdyncst_mac(atscntrb_gmp_mpz_tdiv2_q_mpz) +ATSdyncst_mac(atspre_g1int_mul_int) +ATSdyncst_mac(atspre_g1int_eq_int) +ATSdyncst_mac(atspre_g0int2int_int_int) +ATSdyncst_mac(atspre_g0int_eq_int) +ATSdyncst_mac(atspre_g0int_mod_int) +ATSdyncst_mac(atscntrb_gmp_mpz_neg1) +ATSdyncst_mac(atscntrb_gmp_mpz_init) +ATSdyncst_mac(atscntrb_gmp_mpz_ui_pow_ui) +ATSdyncst_mac(atspre_g1int2uint_int_ulint) +ATSdyncst_mac(atscntrb_gmp_mpz_mul2_mpz) +/* +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) +derangements_0(atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_type(atstype_ptrk) +loop_1(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int), atstkind_type(atstype_ptrk), atstkind_type(atstype_ptrk)) ; + +#if(0) +#if(0) +ATSextern() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__lt_g1int_int__2(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__2__1(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_intinf1__6(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__add_intinf0_intinf1__6__1(atstkind_type(atstype_ptrk), atsrefarg0_type(atstkind_type(atstype_ptrk))) ; + +#if(0) +#if(0) +ATSextern() +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_int__8(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__8__1(atstkind_type(atstype_ptrk), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__add_intinf0_intinf1__6__2(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__12(atstkind_type(atstype_ptrk)) ; +#endif // end of [QUALIFIED] +#endif // end of [TEMPLATE] + +ATSstatic() +atsvoid_t0ype +ATSCNTRB_056_HX_056_intinf_vt__intinf_free__12__1(atstkind_type(atstype_ptrk)) ; + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_int__8__2(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__15(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__15__1(atstkind_t0ype(atstype_int)) ; + +#if(0) +#if(0) +ATSextern() +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__17() ; +#endif // end of [QUALIFIED] +#endif // end of [TEMPLATE] + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__17__1() ; + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__2(atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__17__2() ; + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__3(atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__17__3() ; + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__4(atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__17__4() ; + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__5(atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__17__5() ; + +ATSstatic() +atsvoid_t0ype +fact_ref_28(atstkind_t0ype(atstype_int), atsrefarg1_type(atstkind_type(atstype_ptrk))) ; + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__6(atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__17__6() ; + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__7(atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__17__7() ; + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_int__8__3(atstkind_type(atstype_ptrk), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_type(atstype_ptrk) +fact_34(atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atsvoid_t0ype +dfact_ref_35(atstkind_t0ype(atstype_int), atsrefarg1_type(atstkind_type(atstype_ptrk))) ; + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__8(atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__17__8() ; + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__9(atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__17__9() ; + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_int__8__4(atstkind_type(atstype_ptrk), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_type(atstype_ptrk) +dfact_41(atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_type(atstype_ptrk) +permutations_42(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atsvoid_t0ype +loop_43(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int), atsrefarg1_type(atstkind_type(atstype_ptrk))) ; + +#if(0) +#if(0) +ATSextern() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__gt_g1int_int__44(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__44__1(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_int__8__5(atstkind_type(atstype_ptrk), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__10(atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__17__10() ; + +ATSstatic() +atstkind_type(atstype_ptrk) +catalan_50(atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_type(atstype_ptrk) +numerator_loop_51(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__11(atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__17__11() ; + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_int__8__6(atstkind_type(atstype_ptrk), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__12(atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__17__12() ; + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__13(atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__17__13() ; + +#if(0) +#if(0) +ATSextern() +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__div_intinf0_intinf1__59(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__59__1(atstkind_type(atstype_ptrk), atsrefarg0_type(atstkind_type(atstype_ptrk))) ; + +ATSstatic() +atsvoid_t0ype +ATSCNTRB_056_HX_056_intinf_vt__intinf_free__12__2(atstkind_type(atstype_ptrk)) ; + +ATSstatic() +atstkind_type(atstype_ptrk) +choose_62(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atsvoid_t0ype +numerator_loop_63(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int), atsrefarg1_type(atstkind_type(atstype_ptrk))) ; + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__14(atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__17__14() ; + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__15(atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__17__15() ; + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_int__8__7(atstkind_type(atstype_ptrk), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__16(atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__17__16() ; + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__17(atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__17__17() ; + +ATSstatic() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__gt_g1int_int__44__2(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__18(atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__17__18() ; + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__div_intinf0_intinf1__59__2(atstkind_type(atstype_ptrk), atsrefarg0_type(atstkind_type(atstype_ptrk))) ; + +ATSstatic() +atsvoid_t0ype +ATSCNTRB_056_HX_056_intinf_vt__intinf_free__12__3(atstkind_type(atstype_ptrk)) ; + +ATSstatic() +atstkind_type(atstype_ptrk) +stirling2_79(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +#if(0) +#if(0) +ATSextern() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g1int_int__80(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__80__1(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g1int_int__80__2(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__19(atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__17__19() ; + +ATSstatic() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__gt_g1int_int__44__3(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__20(atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__17__20() ; + +ATSstatic() +atsvoid_t0ype +top_loop_89(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int), atsrefarg1_type(atstkind_type(atstype_ptrk))) ; + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__21(atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__17__21() ; + +ATSstatic() +atstkind_type(atstype_ptrk) +negate_if_odd_92(atstkind_t0ype(atstype_int), atstkind_type(atstype_ptrk)) ; + +#if(0) +#if(0) +ATSextern() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__93(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__93__1(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +#if(0) +#if(0) +ATSextern() +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__neg_intinf0__98(atstkind_type(atstype_ptrk)) ; +#endif // end of [QUALIFIED] +#endif // end of [TEMPLATE] + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__neg_intinf0__98__1(atstkind_type(atstype_ptrk)) ; + +#if(0) +#if(0) +ATSextern() +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__pow_int_int__100(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; +#endif // end of [QUALIFIED] +#endif // end of [TEMPLATE] + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__pow_int_int__100__1(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__17__22() ; + +#if(0) +#if(0) +ATSextern() +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_intinf1__103(atstkind_type(atstype_ptrk), atsrefarg0_type(atstkind_type(atstype_ptrk))) ; +#endif // end of [QUALIFIED] +#endif // end of [TEMPLATE] + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_intinf1__103__1(atstkind_type(atstype_ptrk), atsrefarg0_type(atstkind_type(atstype_ptrk))) ; + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__add_intinf0_intinf1__6__3(atstkind_type(atstype_ptrk), atsrefarg0_type(atstkind_type(atstype_ptrk))) ; + +ATSstatic() +atsvoid_t0ype +ATSCNTRB_056_HX_056_intinf_vt__intinf_free__12__4(atstkind_type(atstype_ptrk)) ; + +ATSstatic() +atsvoid_t0ype +ATSCNTRB_056_HX_056_intinf_vt__intinf_free__12__5(atstkind_type(atstype_ptrk)) ; + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__div_intinf0_intinf1__59__3(atstkind_type(atstype_ptrk), atsrefarg0_type(atstkind_type(atstype_ptrk))) ; + +ATSstatic() +atsvoid_t0ype +ATSCNTRB_056_HX_056_intinf_vt__intinf_free__12__6(atstkind_type(atstype_ptrk)) ; + +ATSstatic() +atstkind_type(atstype_ptrk) +bell_110(atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atsvoid_t0ype +sum_loop_111(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int), atsrefarg1_type(atstkind_type(atstype_ptrk))) ; + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__add_intinf0_intinf1__6__4(atstkind_type(atstype_ptrk), atsrefarg0_type(atstkind_type(atstype_ptrk))) ; + +ATSstatic() +atsvoid_t0ype +ATSCNTRB_056_HX_056_intinf_vt__intinf_free__12__7(atstkind_type(atstype_ptrk)) ; + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__22(atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__17__23() ; + +ATSstatic() +atstkind_type(atstype_ptrk) +max_regions_116(atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atsvoid_t0ype +loop_117(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int), atsrefarg1_type(atstkind_type(atstype_ptrk))) ; + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__23(atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__17__24() ; + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__add_intinf0_intinf1__6__5(atstkind_type(atstype_ptrk), atsrefarg0_type(atstkind_type(atstype_ptrk))) ; + +ATSstatic() +atsvoid_t0ype +ATSCNTRB_056_HX_056_intinf_vt__intinf_free__12__8(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_ats(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] + +#if(0) +ATSextern() +atstkind_type(atstype_ptrk) +catalan_ats(atstkind_t0ype(atstype_int)) ; +#endif // end of [QUALIFIED] + +#if(0) +ATSextern() +atstkind_type(atstype_ptrk) +derangements_ats(atstkind_t0ype(atstype_int)) ; +#endif // end of [QUALIFIED] + +#if(0) +ATSextern() +atstkind_type(atstype_ptrk) +permutations_ats(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; +#endif // end of [QUALIFIED] + +#if(0) +ATSextern() +atstkind_type(atstype_ptrk) +stirling2_ats(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; +#endif // end of [QUALIFIED] + +#if(0) +ATSextern() +atstkind_type(atstype_ptrk) +max_regions_ats(atstkind_t0ype(atstype_int)) ; +#endif // end of [QUALIFIED] + +#if(0) +ATSextern() +atstkind_type(atstype_ptrk) +bell_ats(atstkind_t0ype(atstype_int)) ; +#endif // end of [QUALIFIED] + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 326(line=11, offs=4) -- 1017(line=35, offs=6) +*/ +/* +local: +global: derangements_0$0(level=0) +local: +global: +*/ +ATSstatic() +atstkind_type(atstype_ptrk) +derangements_0(atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret0, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp45, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp46, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp51, atstkind_type(atstype_ptrk)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 326(line=11, offs=4) -- 1017(line=35, offs=6) +*/ +ATSINSflab(__patsflab_derangements_0): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 372(line=12, offs=3) -- 1017(line=35, offs=6) +*/ +/* +letpush(beg) +*/ +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 859(line=30, offs=5) -- 1011(line=34, offs=59) +*/ +ATScaseof_beg() +/* +** ibranchlst-beg +*/ +ATSbranch_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 878(line=31, offs=9) -- 879(line=31, offs=10) +*/ +ATSINSlab(__atstmplab0): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 347(line=11, offs=25) -- 348(line=11, offs=26) +*/ +ATSifnthen(ATSCKpat_int(arg0, ATSPMVint(0))) { ATSINSgoto(__atstmplab2) ; } ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 879(line=31, offs=10) -- 879(line=31, offs=10) +*/ +ATSINSlab(__atstmplab1): +/* +emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) +*/ +/* +ibranch-mbody: +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 883(line=31, offs=14) -- 896(line=31, offs=27) +*/ +ATSINSmove(tmpret0, ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__1(ATSPMVi0nt(1))) ; + +ATSbranch_end() + +ATSbranch_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 905(line=32, offs=9) -- 906(line=32, offs=10) +*/ +ATSINSlab(__atstmplab2): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 347(line=11, offs=25) -- 348(line=11, offs=26) +*/ +ATSifnthen(ATSCKpat_int(arg0, ATSPMVint(1))) { ATSINSgoto(__atstmplab4) ; } ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 906(line=32, offs=10) -- 906(line=32, offs=10) +*/ +ATSINSlab(__atstmplab3): +/* +emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) +*/ +/* +ibranch-mbody: +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 911(line=32, offs=15) -- 924(line=32, offs=28) +*/ +ATSINSmove(tmpret0, ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__2(ATSPMVi0nt(0))) ; + +ATSbranch_end() + +ATSbranch_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 933(line=33, offs=9) -- 934(line=33, offs=10) +*/ +ATSINSlab(__atstmplab4): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 347(line=11, offs=25) -- 348(line=11, offs=26) +*/ +ATSifnthen(ATSCKpat_int(arg0, ATSPMVint(2))) { ATSINSgoto(__atstmplab6) ; } ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 934(line=33, offs=10) -- 934(line=33, offs=10) +*/ +ATSINSlab(__atstmplab5): +/* +emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) +*/ +/* +ibranch-mbody: +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 939(line=33, offs=15) -- 952(line=33, offs=28) +*/ +ATSINSmove(tmpret0, ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__3(ATSPMVi0nt(1))) ; + +ATSbranch_end() + +ATSbranch_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 962(line=34, offs=10) -- 962(line=34, offs=10) +*/ +ATSINSlab(__atstmplab6): +/* +emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) +*/ +/* +ibranch-mbody: +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 972(line=34, offs=20) -- 977(line=34, offs=25) +*/ +ATSINSmove(tmp45, atspre_g1int_sub_int(arg0, ATSPMVi0nt(1))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 982(line=34, offs=30) -- 995(line=34, offs=43) +*/ +ATSINSmove(tmp46, ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__4(ATSPMVi0nt(1))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 997(line=34, offs=45) -- 1010(line=34, offs=58) +*/ +ATSINSmove(tmp51, ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__5(ATSPMVi0nt(0))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 967(line=34, offs=15) -- 1011(line=34, offs=59) +*/ +ATSINSmove(tmpret0, loop_1(tmp45, ATSPMVi0nt(2), tmp46, tmp51)) ; + +ATSbranch_end() + +/* +** ibranchlst-end +*/ +ATScaseof_end() + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 372(line=12, offs=3) -- 1017(line=35, offs=6) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret0) ; +} /* end of [derangements_0] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 384(line=13, offs=9) -- 849(line=28, offs=12) +*/ +/* +local: loop_1$0(level=1) +global: loop_1$0(level=1) +local: +global: +*/ +ATSstatic() +atstkind_type(atstype_ptrk) +loop_1(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1, atstkind_type(atstype_ptrk) arg2, atstkind_type(atstype_ptrk) arg3) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(apy0, atstkind_t0ype(atstype_int)) ; +ATStmpdec(apy1, atstkind_t0ype(atstype_int)) ; +ATStmpdec(apy2, atstkind_type(atstype_ptrk)) ; +ATStmpdec(apy3, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmpret1, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp2, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmpref7, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmpref12, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp17, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmpref18, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp21) ; +ATStmpdec(tmpref26, atstkind_type(atstype_ptrk)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 384(line=13, offs=9) -- 849(line=28, offs=12) +*/ +ATSINSflab(__patsflab_loop_1): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 508(line=14, offs=10) -- 513(line=14, offs=15) +*/ +ATSINSmove(tmp2, ATSLIB_056_prelude__lt_g1int_int__2__1(arg1, arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 505(line=14, offs=7) -- 849(line=28, offs=12) +*/ +ATSif( +tmp2 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 527(line=15, offs=9) -- 671(line=20, offs=12) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 545(line=16, offs=15) -- 546(line=16, offs=16) +*/ +/* +ATSINStmpdec(tmpref7) ; +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 549(line=16, offs=19) -- 576(line=16, offs=46) +*/ +ATSINSmove(tmpref7, ATSCNTRB_056_HX_056_intinf_vt__add_intinf0_intinf1__6__1(arg3, ATSPMVrefarg0(arg2))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 591(line=17, offs=15) -- 592(line=17, offs=16) +*/ +/* +ATSINStmpdec(tmpref12) ; +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 595(line=17, offs=19) -- 616(line=17, offs=40) +*/ +ATSINSmove(tmpref12, ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_int__8__1(tmpref7, arg1)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 646(line=19, offs=19) -- 651(line=19, offs=24) +*/ +ATSINSmove(tmp17, atspre_g1int_add_int(arg1, ATSPMVi0nt(1))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 638(line=19, offs=11) -- 659(line=19, offs=32) +*/ +ATStailcal_beg() +ATSINSmove_tlcal(apy0, arg0) ; +ATSINSmove_tlcal(apy1, tmp17) ; +ATSINSmove_tlcal(apy2, tmpref12) ; +ATSINSmove_tlcal(apy3, arg2) ; +ATSINSargmove_tlcal(arg0, apy0) ; +ATSINSargmove_tlcal(arg1, apy1) ; +ATSINSargmove_tlcal(arg2, apy2) ; +ATSINSargmove_tlcal(arg3, apy3) ; +ATSINSfgoto(__patsflab_loop_1) ; +ATStailcal_end() + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 527(line=15, offs=9) -- 671(line=20, offs=12) +*/ +/* +INSletpop() +*/ +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 691(line=22, offs=9) -- 849(line=28, offs=12) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 709(line=23, offs=15) -- 710(line=23, offs=16) +*/ +/* +ATSINStmpdec(tmpref18) ; +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 713(line=23, offs=19) -- 740(line=23, offs=46) +*/ +ATSINSmove(tmpref18, ATSCNTRB_056_HX_056_intinf_vt__add_intinf0_intinf1__6__2(arg3, ATSPMVrefarg0(arg2))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 759(line=24, offs=19) -- 773(line=24, offs=33) +*/ +ATSINSmove_void(tmp21, ATSCNTRB_056_HX_056_intinf_vt__intinf_free__12__1(arg2)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 789(line=25, offs=15) -- 790(line=25, offs=16) +*/ +/* +ATSINStmpdec(tmpref26) ; +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 793(line=25, offs=19) -- 814(line=25, offs=40) +*/ +ATSINSmove(tmpref26, ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_int__8__2(tmpref18, arg1)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 836(line=27, offs=11) -- 837(line=27, offs=12) +*/ +ATSINSmove(tmpret1, tmpref26) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 691(line=22, offs=9) -- 849(line=28, offs=12) +*/ +/* +INSletpop() +*/ +} /* ATSendif */ +ATSfunbody_end() +ATSreturn(tmpret1) ; +} /* end of [loop_1] */ + +#if(0) +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 12520(line=650, offs=3) -- 12559(line=650, offs=42) +*/ +/* +local: +global: lt_g1int_int$2$0(level=0) +local: +global: +*/ +ATSextern() +/* +imparg = tk(4637) +tmparg = S2Evar(tk(4637)) +tmpsub = None() +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__lt_g1int_int__2(atstkind_t0ype(atstyvar_type(tk)) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret3, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp4, atstkind_t0ype(atstyvar_type(tk))) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12505(line=649, offs=1) -- 12559(line=650, offs=42) +*/ +ATSINSflab(__patsflab_lt_g1int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12546(line=650, offs=29) -- 12557(line=650, offs=40) +*/ +ATSINSmove(tmp4, PMVtmpltcst(g1int2int)(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12529(line=650, offs=12) -- 12559(line=650, offs=42) +*/ +ATSINSmove(tmpret3, PMVtmpltcst(g1int_lt)(arg0, tmp4)) ; + +ATSfunbody_end() +ATSreturn(tmpret3) ; +} /* end of [ATSLIB_056_prelude__lt_g1int_int__2] */ +#endif // end of [TEMPLATE] + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 12520(line=650, offs=3) -- 12559(line=650, offs=42) +*/ +/* +local: +global: lt_g1int_int$2$1(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4637) +tmparg = S2Evar(tk(4637)) +tmpsub = Some(tk(4637) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__lt_g1int_int__2__1(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret3__1, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp4__1, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12505(line=649, offs=1) -- 12559(line=650, offs=42) +*/ +ATSINSflab(__patsflab_lt_g1int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12546(line=650, offs=29) -- 12557(line=650, offs=40) +*/ +ATSINSmove(tmp4__1, atspre_g1int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12529(line=650, offs=12) -- 12559(line=650, offs=42) +*/ +ATSINSmove(tmpret3__1, atspre_g1int_lt_int(arg0, tmp4__1)) ; + +ATSfunbody_end() +ATSreturn(tmpret3__1) ; +} /* end of [ATSLIB_056_prelude__lt_g1int_int__2__1] */ + +#if(0) +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5514(line=298, offs=3) -- 5585(line=303, offs=2) +*/ +/* +local: +global: add_intinf0_intinf1$6$0(level=0) +local: +global: +*/ +ATSextern() +/* +imparg = +tmparg = +tmpsub = None() +*/ +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__add_intinf0_intinf1__6(atstkind_type(atstype_ptrk) arg0, atsrefarg0_type(atstkind_type(atstype_ptrk)) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret8, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp9) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/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 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5523(line=298, offs=12) -- 5585(line=303, offs=2) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5547(line=301, offs=10) -- 5580(line=301, offs=43) +*/ +ATSINSmove_void(tmp9, 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 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5524(line=298, offs=13) -- 5525(line=298, offs=14) +*/ +ATSINSmove(tmpret8, arg0) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5523(line=298, offs=12) -- 5585(line=303, offs=2) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret8) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__add_intinf0_intinf1__6] */ +#endif // end of [TEMPLATE] + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5514(line=298, offs=3) -- 5585(line=303, offs=2) +*/ +/* +local: +global: add_intinf0_intinf1$6$1(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = +tmparg = +tmpsub = Some() +*/ +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__add_intinf0_intinf1__6__1(atstkind_type(atstype_ptrk) arg0, atsrefarg0_type(atstkind_type(atstype_ptrk)) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret8__1, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp9__1) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/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 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5523(line=298, offs=12) -- 5585(line=303, offs=2) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5547(line=301, offs=10) -- 5580(line=301, offs=43) +*/ +ATSINSmove_void(tmp9__1, 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 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5524(line=298, offs=13) -- 5525(line=298, offs=14) +*/ +ATSINSmove(tmpret8__1, arg0) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5523(line=298, offs=12) -- 5585(line=303, offs=2) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret8__1) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__add_intinf0_intinf1__6__1] */ + +#if(0) +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7394(line=413, offs=3) -- 7461(line=418, offs=2) +*/ +/* +local: +global: mul_intinf0_int$8$0(level=0) +local: +global: +*/ +ATSextern() +/* +imparg = +tmparg = +tmpsub = None() +*/ +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_int__8(atstkind_type(atstype_ptrk) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret13, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp14) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/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 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7403(line=413, offs=12) -- 7461(line=418, offs=2) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7427(line=416, offs=10) -- 7456(line=416, offs=39) +*/ +ATSINSmove_void(tmp14, atscntrb_gmp_mpz_mul2_int(ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), arg1)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7404(line=413, offs=13) -- 7405(line=413, offs=14) +*/ +ATSINSmove(tmpret13, arg0) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7403(line=413, offs=12) -- 7461(line=418, offs=2) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret13) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_int__8] */ +#endif // end of [TEMPLATE] + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7394(line=413, offs=3) -- 7461(line=418, offs=2) +*/ +/* +local: +global: mul_intinf0_int$8$1(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = +tmparg = +tmpsub = Some() +*/ +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_int__8__1(atstkind_type(atstype_ptrk) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret13__1, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp14__1) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/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 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7403(line=413, offs=12) -- 7461(line=418, offs=2) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7427(line=416, offs=10) -- 7456(line=416, offs=39) +*/ +ATSINSmove_void(tmp14__1, atscntrb_gmp_mpz_mul2_int(ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), arg1)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7404(line=413, offs=13) -- 7405(line=413, offs=14) +*/ +ATSINSmove(tmpret13__1, arg0) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7403(line=413, offs=12) -- 7461(line=418, offs=2) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret13__1) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_int__8__1] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5514(line=298, offs=3) -- 5585(line=303, offs=2) +*/ +/* +local: +global: add_intinf0_intinf1$6$2(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = +tmparg = +tmpsub = Some() +*/ +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__add_intinf0_intinf1__6__2(atstkind_type(atstype_ptrk) arg0, atsrefarg0_type(atstkind_type(atstype_ptrk)) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret8__2, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp9__2) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/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 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5523(line=298, offs=12) -- 5585(line=303, offs=2) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5547(line=301, offs=10) -- 5580(line=301, offs=43) +*/ +ATSINSmove_void(tmp9__2, 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 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5524(line=298, offs=13) -- 5525(line=298, offs=14) +*/ +ATSINSmove(tmpret8__2, arg0) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5523(line=298, offs=12) -- 5585(line=303, offs=2) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret8__2) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__add_intinf0_intinf1__6__2] */ + +#if(0) +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2888(line=119, offs=12) -- 2987(line=122, offs=4) +*/ +/* +local: +global: intinf_free$12$0(level=0) +local: +global: +*/ +ATSextern() +/* +imparg = +tmparg = +tmpsub = None() +*/ +atsvoid_t0ype +ATSCNTRB_056_HX_056_intinf_vt__intinf_free__12(atstkind_type(atstype_ptrk) arg0) +{ +/* tmpvardeclst(beg) */ +// ATStmpdec_void(tmpret22) ; +// ATStmpdec_void(tmp23) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2877(line=119, offs=1) -- 2987(line=122, offs=4) +*/ +ATSINSflab(__patsflab_intinf_free): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2894(line=119, offs=18) -- 2987(line=122, offs=4) +*/ +/* +letpush(beg) +*/ +/* (*nothing*) */ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2936(line=121, offs=12) -- 2955(line=121, offs=31) +*/ +ATSINSmove_void(tmp23, atscntrb_gmp_mpz_clear(ATSPMVrefarg1(arg0))) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2959(line=121, offs=35) -- 2983(line=121, offs=59) +*/ +ATSINSmove_void(tmpret22, atspre_ptr_free(arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2894(line=119, offs=18) -- 2987(line=122, offs=4) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn_void(tmpret22) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_free__12] */ +#endif // end of [TEMPLATE] + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2888(line=119, offs=12) -- 2987(line=122, offs=4) +*/ +/* +local: +global: intinf_free$12$1(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = +tmparg = +tmpsub = Some() +*/ +atsvoid_t0ype +ATSCNTRB_056_HX_056_intinf_vt__intinf_free__12__1(atstkind_type(atstype_ptrk) arg0) +{ +/* tmpvardeclst(beg) */ +// ATStmpdec_void(tmpret22__1) ; +// ATStmpdec_void(tmp23__1) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2877(line=119, offs=1) -- 2987(line=122, offs=4) +*/ +ATSINSflab(__patsflab_intinf_free): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2894(line=119, offs=18) -- 2987(line=122, offs=4) +*/ +/* +letpush(beg) +*/ +/* (*nothing*) */ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2936(line=121, offs=12) -- 2955(line=121, offs=31) +*/ +ATSINSmove_void(tmp23__1, atscntrb_gmp_mpz_clear(ATSPMVrefarg1(arg0))) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2959(line=121, offs=35) -- 2983(line=121, offs=59) +*/ +ATSINSmove_void(tmpret22__1, atspre_ptr_free(arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2894(line=119, offs=18) -- 2987(line=122, offs=4) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn_void(tmpret22__1) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_free__12__1] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7394(line=413, offs=3) -- 7461(line=418, offs=2) +*/ +/* +local: +global: mul_intinf0_int$8$2(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = +tmparg = +tmpsub = Some() +*/ +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_int__8__2(atstkind_type(atstype_ptrk) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret13__2, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp14__2) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/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 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7403(line=413, offs=12) -- 7461(line=418, offs=2) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7427(line=416, offs=10) -- 7456(line=416, offs=39) +*/ +ATSINSmove_void(tmp14__2, atscntrb_gmp_mpz_mul2_int(ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), arg1)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7404(line=413, offs=13) -- 7405(line=413, offs=14) +*/ +ATSINSmove(tmpret13__2, arg0) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7403(line=413, offs=12) -- 7461(line=418, offs=2) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret13__2) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_int__8__2] */ + +#if(0) +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2209(line=74, offs=3) -- 2301(line=80, offs=2) +*/ +/* +local: +global: intinf_make_int$15$0(level=0) +local: +global: +*/ +ATSextern() +/* +imparg = +tmparg = +tmpsub = None() +*/ +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15(atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret29, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp30, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp31) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2191(line=73, offs=1) -- 2301(line=80, offs=2) +*/ +ATSINSflab(__patsflab_intinf_make_int): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2238(line=77, offs=9) -- 2254(line=77, offs=25) +*/ +ATSINSmove(tmp30, PMVtmpltcst(ptr_alloc)()) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2264(line=78, offs=10) -- 2296(line=78, offs=42) +*/ +ATSINSmove_void(tmp31, atscntrb_gmp_mpz_init_set_int(ATSPMVrefarg1(ATSSELrecsin(tmp30, atstkind_type(atstype_ptrk), atslab__2)), arg0)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2216(line=74, offs=10) -- 2217(line=74, offs=11) +*/ +ATSINSmove(tmpret29, tmp30) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret29) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15] */ +#endif // end of [TEMPLATE] + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2209(line=74, offs=3) -- 2301(line=80, offs=2) +*/ +/* +local: +global: intinf_make_int$15$1(level=1) +local: +global: +*/ +ATSstatic() +/* +imparg = +tmparg = +tmpsub = Some() +*/ +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__1(atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret29__1, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp30__1, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp31__1) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2191(line=73, offs=1) -- 2301(line=80, offs=2) +*/ +ATSINSflab(__patsflab_intinf_make_int): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2238(line=77, offs=9) -- 2254(line=77, offs=25) +*/ +ATSINSmove(tmp30__1, ATSLIB_056_prelude__ptr_alloc__17__1()) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2264(line=78, offs=10) -- 2296(line=78, offs=42) +*/ +ATSINSmove_void(tmp31__1, atscntrb_gmp_mpz_init_set_int(ATSPMVrefarg1(ATSSELrecsin(tmp30__1, atstkind_type(atstype_ptrk), atslab__2)), arg0)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2216(line=74, offs=10) -- 2217(line=74, offs=11) +*/ +ATSINSmove(tmpret29__1, tmp30__1) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret29__1) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__1] */ + +#if(0) +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42) +*/ +/* +local: +global: ptr_alloc$17$0(level=0) +local: +global: +*/ +ATSextern() +/* +imparg = a(4746) +tmparg = S2Evar(a(4746)) +tmpsub = None() +*/ +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__17() +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret35, atstkind_type(atstype_ptrk)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3708(line=184, offs=1) -- 3749(line=184, offs=42) +*/ +ATSINSflab(__patsflab_ptr_alloc): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42) +*/ +ATSINSmove(tmpret35, atspre_ptr_alloc_tsz(ATSPMVsizeof(atstyvar_type(a)))) ; + +ATSfunbody_end() +ATSreturn(tmpret35) ; +} /* end of [ATSLIB_056_prelude__ptr_alloc__17] */ +#endif // end of [TEMPLATE] + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42) +*/ +/* +local: +global: ptr_alloc$17$1(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = a(4746) +tmparg = S2Evar(a(4746)) +tmpsub = Some(a(4746) -> S2Ecst(mpz_vt0ype)) +*/ +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__17__1() +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret35__1, atstkind_type(atstype_ptrk)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3708(line=184, offs=1) -- 3749(line=184, offs=42) +*/ +ATSINSflab(__patsflab_ptr_alloc): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42) +*/ +ATSINSmove(tmpret35__1, atspre_ptr_alloc_tsz(ATSPMVsizeof(atscntrb_gmp_mpz))) ; + +ATSfunbody_end() +ATSreturn(tmpret35__1) ; +} /* end of [ATSLIB_056_prelude__ptr_alloc__17__1] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2209(line=74, offs=3) -- 2301(line=80, offs=2) +*/ +/* +local: +global: intinf_make_int$15$2(level=1) +local: +global: +*/ +ATSstatic() +/* +imparg = +tmparg = +tmpsub = Some() +*/ +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__2(atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret29__2, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp30__2, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp31__2) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2191(line=73, offs=1) -- 2301(line=80, offs=2) +*/ +ATSINSflab(__patsflab_intinf_make_int): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2238(line=77, offs=9) -- 2254(line=77, offs=25) +*/ +ATSINSmove(tmp30__2, ATSLIB_056_prelude__ptr_alloc__17__2()) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2264(line=78, offs=10) -- 2296(line=78, offs=42) +*/ +ATSINSmove_void(tmp31__2, atscntrb_gmp_mpz_init_set_int(ATSPMVrefarg1(ATSSELrecsin(tmp30__2, atstkind_type(atstype_ptrk), atslab__2)), arg0)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2216(line=74, offs=10) -- 2217(line=74, offs=11) +*/ +ATSINSmove(tmpret29__2, tmp30__2) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret29__2) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__2] */ + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42) +*/ +/* +local: +global: ptr_alloc$17$2(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = a(4746) +tmparg = S2Evar(a(4746)) +tmpsub = Some(a(4746) -> S2Ecst(mpz_vt0ype)) +*/ +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__17__2() +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret35__2, atstkind_type(atstype_ptrk)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3708(line=184, offs=1) -- 3749(line=184, offs=42) +*/ +ATSINSflab(__patsflab_ptr_alloc): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42) +*/ +ATSINSmove(tmpret35__2, atspre_ptr_alloc_tsz(ATSPMVsizeof(atscntrb_gmp_mpz))) ; + +ATSfunbody_end() +ATSreturn(tmpret35__2) ; +} /* end of [ATSLIB_056_prelude__ptr_alloc__17__2] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2209(line=74, offs=3) -- 2301(line=80, offs=2) +*/ +/* +local: +global: intinf_make_int$15$3(level=1) +local: +global: +*/ +ATSstatic() +/* +imparg = +tmparg = +tmpsub = Some() +*/ +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__3(atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret29__3, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp30__3, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp31__3) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2191(line=73, offs=1) -- 2301(line=80, offs=2) +*/ +ATSINSflab(__patsflab_intinf_make_int): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2238(line=77, offs=9) -- 2254(line=77, offs=25) +*/ +ATSINSmove(tmp30__3, ATSLIB_056_prelude__ptr_alloc__17__3()) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2264(line=78, offs=10) -- 2296(line=78, offs=42) +*/ +ATSINSmove_void(tmp31__3, atscntrb_gmp_mpz_init_set_int(ATSPMVrefarg1(ATSSELrecsin(tmp30__3, atstkind_type(atstype_ptrk), atslab__2)), arg0)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2216(line=74, offs=10) -- 2217(line=74, offs=11) +*/ +ATSINSmove(tmpret29__3, tmp30__3) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret29__3) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__3] */ + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42) +*/ +/* +local: +global: ptr_alloc$17$3(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = a(4746) +tmparg = S2Evar(a(4746)) +tmpsub = Some(a(4746) -> S2Ecst(mpz_vt0ype)) +*/ +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__17__3() +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret35__3, atstkind_type(atstype_ptrk)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3708(line=184, offs=1) -- 3749(line=184, offs=42) +*/ +ATSINSflab(__patsflab_ptr_alloc): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42) +*/ +ATSINSmove(tmpret35__3, atspre_ptr_alloc_tsz(ATSPMVsizeof(atscntrb_gmp_mpz))) ; + +ATSfunbody_end() +ATSreturn(tmpret35__3) ; +} /* end of [ATSLIB_056_prelude__ptr_alloc__17__3] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2209(line=74, offs=3) -- 2301(line=80, offs=2) +*/ +/* +local: +global: intinf_make_int$15$4(level=1) +local: +global: +*/ +ATSstatic() +/* +imparg = +tmparg = +tmpsub = Some() +*/ +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__4(atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret29__4, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp30__4, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp31__4) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2191(line=73, offs=1) -- 2301(line=80, offs=2) +*/ +ATSINSflab(__patsflab_intinf_make_int): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2238(line=77, offs=9) -- 2254(line=77, offs=25) +*/ +ATSINSmove(tmp30__4, ATSLIB_056_prelude__ptr_alloc__17__4()) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2264(line=78, offs=10) -- 2296(line=78, offs=42) +*/ +ATSINSmove_void(tmp31__4, atscntrb_gmp_mpz_init_set_int(ATSPMVrefarg1(ATSSELrecsin(tmp30__4, atstkind_type(atstype_ptrk), atslab__2)), arg0)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2216(line=74, offs=10) -- 2217(line=74, offs=11) +*/ +ATSINSmove(tmpret29__4, tmp30__4) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret29__4) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__4] */ + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42) +*/ +/* +local: +global: ptr_alloc$17$4(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = a(4746) +tmparg = S2Evar(a(4746)) +tmpsub = Some(a(4746) -> S2Ecst(mpz_vt0ype)) +*/ +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__17__4() +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret35__4, atstkind_type(atstype_ptrk)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3708(line=184, offs=1) -- 3749(line=184, offs=42) +*/ +ATSINSflab(__patsflab_ptr_alloc): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42) +*/ +ATSINSmove(tmpret35__4, atspre_ptr_alloc_tsz(ATSPMVsizeof(atscntrb_gmp_mpz))) ; + +ATSfunbody_end() +ATSreturn(tmpret35__4) ; +} /* end of [ATSLIB_056_prelude__ptr_alloc__17__4] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2209(line=74, offs=3) -- 2301(line=80, offs=2) +*/ +/* +local: +global: intinf_make_int$15$5(level=1) +local: +global: +*/ +ATSstatic() +/* +imparg = +tmparg = +tmpsub = Some() +*/ +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__5(atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret29__5, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp30__5, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp31__5) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2191(line=73, offs=1) -- 2301(line=80, offs=2) +*/ +ATSINSflab(__patsflab_intinf_make_int): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2238(line=77, offs=9) -- 2254(line=77, offs=25) +*/ +ATSINSmove(tmp30__5, ATSLIB_056_prelude__ptr_alloc__17__5()) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2264(line=78, offs=10) -- 2296(line=78, offs=42) +*/ +ATSINSmove_void(tmp31__5, atscntrb_gmp_mpz_init_set_int(ATSPMVrefarg1(ATSSELrecsin(tmp30__5, atstkind_type(atstype_ptrk), atslab__2)), arg0)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2216(line=74, offs=10) -- 2217(line=74, offs=11) +*/ +ATSINSmove(tmpret29__5, tmp30__5) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret29__5) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__5] */ + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42) +*/ +/* +local: +global: ptr_alloc$17$5(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = a(4746) +tmparg = S2Evar(a(4746)) +tmpsub = Some(a(4746) -> S2Ecst(mpz_vt0ype)) +*/ +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__17__5() +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret35__5, atstkind_type(atstype_ptrk)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3708(line=184, offs=1) -- 3749(line=184, offs=42) +*/ +ATSINSflab(__patsflab_ptr_alloc): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42) +*/ +ATSINSmove(tmpret35__5, atspre_ptr_alloc_tsz(ATSPMVsizeof(atscntrb_gmp_mpz))) ; + +ATSfunbody_end() +ATSreturn(tmpret35__5) ; +} /* end of [ATSLIB_056_prelude__ptr_alloc__17__5] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 1023(line=37, offs=5) -- 1274(line=45, offs=8) +*/ +/* +local: fact_ref_28$0(level=0) +global: fact_ref_28$0(level=0) +local: +global: +*/ +ATSstatic() +atsvoid_t0ype +fact_ref_28(atstkind_t0ype(atstype_int) arg0, atsrefarg1_type(atstkind_type(atstype_ptrk)) arg1) +{ +/* tmpvardeclst(beg) */ +// ATStmpdec_void(tmpret56) ; +ATStmpdec(tmp57, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp62, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp67) ; +ATStmpdec(tmp68, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp69, atstkind_type(atstype_ptrk)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 1023(line=37, offs=5) -- 1274(line=45, offs=8) +*/ +ATSINSflab(__patsflab_fact_ref_28): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 1096(line=38, offs=3) -- 1274(line=45, offs=8) +*/ +ATScaseof_beg() +/* +** ibranchlst-beg +*/ +ATSbranch_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 1113(line=39, offs=7) -- 1114(line=39, offs=8) +*/ +ATSINSlab(__atstmplab7): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 1047(line=37, offs=29) -- 1048(line=37, offs=30) +*/ +ATSifnthen(ATSCKpat_int(arg0, ATSPMVint(0))) { ATSINSgoto(__atstmplab9) ; } ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 1114(line=39, offs=8) -- 1114(line=39, offs=8) +*/ +ATSINSlab(__atstmplab8): +/* +emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) +*/ +/* +ibranch-mbody: +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 1125(line=39, offs=19) -- 1138(line=39, offs=32) +*/ +ATSINSmove(tmp57, ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__6(ATSPMVi0nt(1))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 1118(line=39, offs=12) -- 1138(line=39, offs=32) +*/ +ATSINSstore(ATSderef(arg1, atstkind_type(atstype_ptrk)), tmp57) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 1118(line=39, offs=12) -- 1138(line=39, offs=32) +*/ +ATSINSmove_void(tmpret56, ATSPMVempty()) ; +ATSbranch_end() + +ATSbranch_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 1145(line=40, offs=7) -- 1146(line=40, offs=8) +*/ +ATSINSlab(__atstmplab9): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 1047(line=37, offs=29) -- 1048(line=37, offs=30) +*/ +ATSifnthen(ATSCKpat_int(arg0, ATSPMVint(1))) { ATSINSgoto(__atstmplab11) ; } ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 1146(line=40, offs=8) -- 1146(line=40, offs=8) +*/ +ATSINSlab(__atstmplab10): +/* +emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) +*/ +/* +ibranch-mbody: +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 1157(line=40, offs=19) -- 1170(line=40, offs=32) +*/ +ATSINSmove(tmp62, ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__7(ATSPMVi0nt(1))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 1150(line=40, offs=12) -- 1170(line=40, offs=32) +*/ +ATSINSstore(ATSderef(arg1, atstkind_type(atstype_ptrk)), tmp62) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 1150(line=40, offs=12) -- 1170(line=40, offs=32) +*/ +ATSINSmove_void(tmpret56, ATSPMVempty()) ; +ATSbranch_end() + +ATSbranch_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 1178(line=41, offs=8) -- 1178(line=41, offs=8) +*/ +ATSINSlab(__atstmplab11): +/* +emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) +*/ +/* +ibranch-mbody: +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 1183(line=41, offs=13) -- 1274(line=45, offs=8) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 1211(line=42, offs=25) -- 1216(line=42, offs=30) +*/ +ATSINSmove(tmp68, atspre_g1int_sub_int(arg0, ATSPMVi0nt(1))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 1202(line=42, offs=16) -- 1222(line=42, offs=36) +*/ +ATSINSmove_void(tmp67, fact_ref_28(tmp68, ATSPMVrefarg1(arg1))) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 1243(line=44, offs=14) -- 1266(line=44, offs=37) +*/ +ATSINSmove(tmp69, ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_int__8__3(ATSderef(arg1, atstkind_type(atstype_ptrk)), arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 1236(line=44, offs=7) -- 1266(line=44, offs=37) +*/ +ATSINSstore(ATSderef(arg1, atstkind_type(atstype_ptrk)), tmp69) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 1236(line=44, offs=7) -- 1266(line=44, offs=37) +*/ +ATSINSmove_void(tmpret56, ATSPMVempty()) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 1183(line=41, offs=13) -- 1274(line=45, offs=8) +*/ +/* +INSletpop() +*/ +ATSbranch_end() + +/* +** ibranchlst-end +*/ +ATScaseof_end() + +ATSfunbody_end() +ATSreturn_void(tmpret56) ; +} /* end of [fact_ref_28] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2209(line=74, offs=3) -- 2301(line=80, offs=2) +*/ +/* +local: +global: intinf_make_int$15$6(level=1) +local: +global: +*/ +ATSstatic() +/* +imparg = +tmparg = +tmpsub = Some() +*/ +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__6(atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret29__6, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp30__6, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp31__6) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2191(line=73, offs=1) -- 2301(line=80, offs=2) +*/ +ATSINSflab(__patsflab_intinf_make_int): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2238(line=77, offs=9) -- 2254(line=77, offs=25) +*/ +ATSINSmove(tmp30__6, ATSLIB_056_prelude__ptr_alloc__17__6()) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2264(line=78, offs=10) -- 2296(line=78, offs=42) +*/ +ATSINSmove_void(tmp31__6, atscntrb_gmp_mpz_init_set_int(ATSPMVrefarg1(ATSSELrecsin(tmp30__6, atstkind_type(atstype_ptrk), atslab__2)), arg0)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2216(line=74, offs=10) -- 2217(line=74, offs=11) +*/ +ATSINSmove(tmpret29__6, tmp30__6) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret29__6) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__6] */ + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42) +*/ +/* +local: +global: ptr_alloc$17$6(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = a(4746) +tmparg = S2Evar(a(4746)) +tmpsub = Some(a(4746) -> S2Ecst(mpz_vt0ype)) +*/ +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__17__6() +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret35__6, atstkind_type(atstype_ptrk)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3708(line=184, offs=1) -- 3749(line=184, offs=42) +*/ +ATSINSflab(__patsflab_ptr_alloc): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42) +*/ +ATSINSmove(tmpret35__6, atspre_ptr_alloc_tsz(ATSPMVsizeof(atscntrb_gmp_mpz))) ; + +ATSfunbody_end() +ATSreturn(tmpret35__6) ; +} /* end of [ATSLIB_056_prelude__ptr_alloc__17__6] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2209(line=74, offs=3) -- 2301(line=80, offs=2) +*/ +/* +local: +global: intinf_make_int$15$7(level=1) +local: +global: +*/ +ATSstatic() +/* +imparg = +tmparg = +tmpsub = Some() +*/ +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__7(atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret29__7, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp30__7, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp31__7) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2191(line=73, offs=1) -- 2301(line=80, offs=2) +*/ +ATSINSflab(__patsflab_intinf_make_int): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2238(line=77, offs=9) -- 2254(line=77, offs=25) +*/ +ATSINSmove(tmp30__7, ATSLIB_056_prelude__ptr_alloc__17__7()) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2264(line=78, offs=10) -- 2296(line=78, offs=42) +*/ +ATSINSmove_void(tmp31__7, atscntrb_gmp_mpz_init_set_int(ATSPMVrefarg1(ATSSELrecsin(tmp30__7, atstkind_type(atstype_ptrk), atslab__2)), arg0)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2216(line=74, offs=10) -- 2217(line=74, offs=11) +*/ +ATSINSmove(tmpret29__7, tmp30__7) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret29__7) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__7] */ + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42) +*/ +/* +local: +global: ptr_alloc$17$7(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = a(4746) +tmparg = S2Evar(a(4746)) +tmpsub = Some(a(4746) -> S2Ecst(mpz_vt0ype)) +*/ +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__17__7() +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret35__7, atstkind_type(atstype_ptrk)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3708(line=184, offs=1) -- 3749(line=184, offs=42) +*/ +ATSINSflab(__patsflab_ptr_alloc): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42) +*/ +ATSINSmove(tmpret35__7, atspre_ptr_alloc_tsz(ATSPMVsizeof(atscntrb_gmp_mpz))) ; + +ATSfunbody_end() +ATSreturn(tmpret35__7) ; +} /* end of [ATSLIB_056_prelude__ptr_alloc__17__7] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7394(line=413, offs=3) -- 7461(line=418, offs=2) +*/ +/* +local: +global: mul_intinf0_int$8$3(level=1) +local: +global: +*/ +ATSstatic() +/* +imparg = +tmparg = +tmpsub = Some() +*/ +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_int__8__3(atstkind_type(atstype_ptrk) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret13__3, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp14__3) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/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 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7403(line=413, offs=12) -- 7461(line=418, offs=2) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7427(line=416, offs=10) -- 7456(line=416, offs=39) +*/ +ATSINSmove_void(tmp14__3, atscntrb_gmp_mpz_mul2_int(ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), arg1)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7404(line=413, offs=13) -- 7405(line=413, offs=14) +*/ +ATSINSmove(tmpret13__3, arg0) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7403(line=413, offs=12) -- 7461(line=418, offs=2) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret13__3) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_int__8__3] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 1279(line=47, offs=4) -- 1395(line=53, offs=6) +*/ +/* +local: fact_ref_28$0(level=0) +global: fact_ref_28$0(level=0), fact_34$0(level=0) +local: +global: +*/ +ATSstatic() +atstkind_type(atstype_ptrk) +fact_34(atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret72, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmpref73, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp74) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 1279(line=47, offs=4) -- 1395(line=53, offs=6) +*/ +ATSINSflab(__patsflab_fact_34): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 1317(line=48, offs=3) -- 1395(line=53, offs=6) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 1329(line=49, offs=9) -- 1332(line=49, offs=12) +*/ +/* +ATSINStmpdec(tmpref73) ; +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 1360(line=50, offs=14) -- 1376(line=50, offs=30) +*/ +ATSINSmove_void(tmp74, fact_ref_28(arg0, ATSPMVrefarg1(ATSPMVptrof(tmpref73)))) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 1386(line=52, offs=5) -- 1389(line=52, offs=8) +*/ +ATSINSmove(tmpret72, tmpref73) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 1317(line=48, offs=3) -- 1395(line=53, offs=6) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret72) ; +} /* end of [fact_34] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 1401(line=55, offs=5) -- 1670(line=64, offs=8) +*/ +/* +local: dfact_ref_35$0(level=0) +global: dfact_ref_35$0(level=0) +local: +global: +*/ +ATSstatic() +atsvoid_t0ype +dfact_ref_35(atstkind_t0ype(atstype_int) arg0, atsrefarg1_type(atstkind_type(atstype_ptrk)) arg1) +{ +/* tmpvardeclst(beg) */ +// ATStmpdec_void(tmpret75) ; +ATStmpdec(tmp76, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp81, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp86) ; +ATStmpdec(tmp87, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmpref88, atstkind_type(atstype_ptrk)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 1401(line=55, offs=5) -- 1670(line=64, offs=8) +*/ +ATSINSflab(__patsflab_dfact_ref_35): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 1475(line=56, offs=3) -- 1670(line=64, offs=8) +*/ +ATScaseof_beg() +/* +** ibranchlst-beg +*/ +ATSbranch_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 1492(line=57, offs=7) -- 1493(line=57, offs=8) +*/ +ATSINSlab(__atstmplab12): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 1426(line=55, offs=30) -- 1427(line=55, offs=31) +*/ +ATSifnthen(ATSCKpat_int(arg0, ATSPMVint(0))) { ATSINSgoto(__atstmplab14) ; } ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 1493(line=57, offs=8) -- 1493(line=57, offs=8) +*/ +ATSINSlab(__atstmplab13): +/* +emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) +*/ +/* +ibranch-mbody: +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 1504(line=57, offs=19) -- 1517(line=57, offs=32) +*/ +ATSINSmove(tmp76, ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__8(ATSPMVi0nt(1))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 1497(line=57, offs=12) -- 1517(line=57, offs=32) +*/ +ATSINSstore(ATSderef(arg1, atstkind_type(atstype_ptrk)), tmp76) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 1497(line=57, offs=12) -- 1517(line=57, offs=32) +*/ +ATSINSmove_void(tmpret75, ATSPMVempty()) ; +ATSbranch_end() + +ATSbranch_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 1524(line=58, offs=7) -- 1525(line=58, offs=8) +*/ +ATSINSlab(__atstmplab14): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 1426(line=55, offs=30) -- 1427(line=55, offs=31) +*/ +ATSifnthen(ATSCKpat_int(arg0, ATSPMVint(1))) { ATSINSgoto(__atstmplab16) ; } ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 1525(line=58, offs=8) -- 1525(line=58, offs=8) +*/ +ATSINSlab(__atstmplab15): +/* +emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) +*/ +/* +ibranch-mbody: +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 1536(line=58, offs=19) -- 1549(line=58, offs=32) +*/ +ATSINSmove(tmp81, ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__9(ATSPMVi0nt(1))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 1529(line=58, offs=12) -- 1549(line=58, offs=32) +*/ +ATSINSstore(ATSderef(arg1, atstkind_type(atstype_ptrk)), tmp81) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 1529(line=58, offs=12) -- 1549(line=58, offs=32) +*/ +ATSINSmove_void(tmpret75, ATSPMVempty()) ; +ATSbranch_end() + +ATSbranch_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 1557(line=59, offs=8) -- 1557(line=59, offs=8) +*/ +ATSINSlab(__atstmplab16): +/* +emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) +*/ +/* +ibranch-mbody: +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 1562(line=59, offs=13) -- 1670(line=64, offs=8) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 1591(line=60, offs=26) -- 1596(line=60, offs=31) +*/ +ATSINSmove(tmp87, atspre_g1int_sub_int(arg0, ATSPMVi0nt(2))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 1581(line=60, offs=16) -- 1602(line=60, offs=37) +*/ +ATSINSmove_void(tmp86, dfact_ref_35(tmp87, ATSPMVrefarg1(arg1))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 1613(line=61, offs=11) -- 1614(line=61, offs=12) +*/ +/* +ATSINStmpdec(tmpref88) ; +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 1617(line=61, offs=15) -- 1640(line=61, offs=38) +*/ +ATSINSmove(tmpref88, ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_int__8__4(ATSderef(arg1, atstkind_type(atstype_ptrk)), arg0)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 1654(line=63, offs=7) -- 1662(line=63, offs=15) +*/ +ATSINSstore(ATSderef(arg1, atstkind_type(atstype_ptrk)), tmpref88) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 1654(line=63, offs=7) -- 1662(line=63, offs=15) +*/ +ATSINSmove_void(tmpret75, ATSPMVempty()) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 1562(line=59, offs=13) -- 1670(line=64, offs=8) +*/ +/* +INSletpop() +*/ +ATSbranch_end() + +/* +** ibranchlst-end +*/ +ATScaseof_end() + +ATSfunbody_end() +ATSreturn_void(tmpret75) ; +} /* end of [dfact_ref_35] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2209(line=74, offs=3) -- 2301(line=80, offs=2) +*/ +/* +local: +global: intinf_make_int$15$8(level=1) +local: +global: +*/ +ATSstatic() +/* +imparg = +tmparg = +tmpsub = Some() +*/ +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__8(atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret29__8, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp30__8, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp31__8) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2191(line=73, offs=1) -- 2301(line=80, offs=2) +*/ +ATSINSflab(__patsflab_intinf_make_int): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2238(line=77, offs=9) -- 2254(line=77, offs=25) +*/ +ATSINSmove(tmp30__8, ATSLIB_056_prelude__ptr_alloc__17__8()) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2264(line=78, offs=10) -- 2296(line=78, offs=42) +*/ +ATSINSmove_void(tmp31__8, atscntrb_gmp_mpz_init_set_int(ATSPMVrefarg1(ATSSELrecsin(tmp30__8, atstkind_type(atstype_ptrk), atslab__2)), arg0)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2216(line=74, offs=10) -- 2217(line=74, offs=11) +*/ +ATSINSmove(tmpret29__8, tmp30__8) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret29__8) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__8] */ + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42) +*/ +/* +local: +global: ptr_alloc$17$8(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = a(4746) +tmparg = S2Evar(a(4746)) +tmpsub = Some(a(4746) -> S2Ecst(mpz_vt0ype)) +*/ +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__17__8() +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret35__8, atstkind_type(atstype_ptrk)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3708(line=184, offs=1) -- 3749(line=184, offs=42) +*/ +ATSINSflab(__patsflab_ptr_alloc): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42) +*/ +ATSINSmove(tmpret35__8, atspre_ptr_alloc_tsz(ATSPMVsizeof(atscntrb_gmp_mpz))) ; + +ATSfunbody_end() +ATSreturn(tmpret35__8) ; +} /* end of [ATSLIB_056_prelude__ptr_alloc__17__8] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2209(line=74, offs=3) -- 2301(line=80, offs=2) +*/ +/* +local: +global: intinf_make_int$15$9(level=1) +local: +global: +*/ +ATSstatic() +/* +imparg = +tmparg = +tmpsub = Some() +*/ +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__9(atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret29__9, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp30__9, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp31__9) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2191(line=73, offs=1) -- 2301(line=80, offs=2) +*/ +ATSINSflab(__patsflab_intinf_make_int): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2238(line=77, offs=9) -- 2254(line=77, offs=25) +*/ +ATSINSmove(tmp30__9, ATSLIB_056_prelude__ptr_alloc__17__9()) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2264(line=78, offs=10) -- 2296(line=78, offs=42) +*/ +ATSINSmove_void(tmp31__9, atscntrb_gmp_mpz_init_set_int(ATSPMVrefarg1(ATSSELrecsin(tmp30__9, atstkind_type(atstype_ptrk), atslab__2)), arg0)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2216(line=74, offs=10) -- 2217(line=74, offs=11) +*/ +ATSINSmove(tmpret29__9, tmp30__9) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret29__9) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__9] */ + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42) +*/ +/* +local: +global: ptr_alloc$17$9(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = a(4746) +tmparg = S2Evar(a(4746)) +tmpsub = Some(a(4746) -> S2Ecst(mpz_vt0ype)) +*/ +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__17__9() +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret35__9, atstkind_type(atstype_ptrk)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3708(line=184, offs=1) -- 3749(line=184, offs=42) +*/ +ATSINSflab(__patsflab_ptr_alloc): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42) +*/ +ATSINSmove(tmpret35__9, atspre_ptr_alloc_tsz(ATSPMVsizeof(atscntrb_gmp_mpz))) ; + +ATSfunbody_end() +ATSreturn(tmpret35__9) ; +} /* end of [ATSLIB_056_prelude__ptr_alloc__17__9] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7394(line=413, offs=3) -- 7461(line=418, offs=2) +*/ +/* +local: +global: mul_intinf0_int$8$4(level=1) +local: +global: +*/ +ATSstatic() +/* +imparg = +tmparg = +tmpsub = Some() +*/ +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_int__8__4(atstkind_type(atstype_ptrk) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret13__4, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp14__4) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/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 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7403(line=413, offs=12) -- 7461(line=418, offs=2) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7427(line=416, offs=10) -- 7456(line=416, offs=39) +*/ +ATSINSmove_void(tmp14__4, atscntrb_gmp_mpz_mul2_int(ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), arg1)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7404(line=413, offs=13) -- 7405(line=413, offs=14) +*/ +ATSINSmove(tmpret13__4, arg0) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7403(line=413, offs=12) -- 7461(line=418, offs=2) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret13__4) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_int__8__4] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 1676(line=66, offs=5) -- 1801(line=72, offs=6) +*/ +/* +local: dfact_ref_35$0(level=0) +global: dfact_ref_35$0(level=0), dfact_41$0(level=0) +local: +global: +*/ +ATSstatic() +atstkind_type(atstype_ptrk) +dfact_41(atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret91, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmpref92, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp93) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 1676(line=66, offs=5) -- 1801(line=72, offs=6) +*/ +ATSINSflab(__patsflab_dfact_41): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 1722(line=67, offs=3) -- 1801(line=72, offs=6) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 1734(line=68, offs=9) -- 1737(line=68, offs=12) +*/ +/* +ATSINStmpdec(tmpref92) ; +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 1765(line=69, offs=14) -- 1782(line=69, offs=31) +*/ +ATSINSmove_void(tmp93, dfact_ref_35(arg0, ATSPMVrefarg1(ATSPMVptrof(tmpref92)))) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 1792(line=71, offs=5) -- 1795(line=71, offs=8) +*/ +ATSINSmove(tmpret91, tmpref92) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 1722(line=67, offs=3) -- 1801(line=72, offs=6) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret91) ; +} /* end of [dfact_41] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 1806(line=74, offs=4) -- 2194(line=86, offs=6) +*/ +/* +local: +global: permutations_42$0(level=0) +local: +global: +*/ +ATSstatic() +atstkind_type(atstype_ptrk) +permutations_42(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret94, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmpref115, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp116) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 1806(line=74, offs=4) -- 2194(line=86, offs=6) +*/ +ATSINSflab(__patsflab_permutations_42): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 1893(line=75, offs=3) -- 2194(line=86, offs=6) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 2138(line=82, offs=9) -- 2141(line=82, offs=12) +*/ +/* +ATSINStmpdec(tmpref115) ; +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 2163(line=83, offs=14) -- 2175(line=83, offs=26) +*/ +ATSINSmove_void(tmp116, loop_43(arg0, arg1, arg0, ATSPMVrefarg1(ATSPMVptrof(tmpref115)))) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 2185(line=85, offs=5) -- 2188(line=85, offs=8) +*/ +ATSINSmove(tmpret94, tmpref115) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 1893(line=75, offs=3) -- 2194(line=86, offs=6) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret94) ; +} /* end of [permutations_42] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 1905(line=76, offs=9) -- 2124(line=80, offs=37) +*/ +/* +local: loop_43$0(level=1) +global: loop_43$0(level=1) +local: n$5126(1)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))), k$5127(1)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))) +global: n$5126(1)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))), k$5127(1)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))) +*/ +ATSstatic() +atsvoid_t0ype +loop_43(atstkind_t0ype(atstype_int) env0, atstkind_t0ype(atstype_int) env1, atstkind_t0ype(atstype_int) arg0, atsrefarg1_type(atstkind_type(atstype_ptrk)) arg1) +{ +/* tmpvardeclst(beg) */ +// ATStmpdec_void(tmpret95) ; +ATStmpdec(tmp96, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp101, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp102, atstkind_t0ype(atstype_int)) ; +// ATStmpdec_void(tmp103) ; +ATStmpdec(tmp104, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp105, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp108, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp113, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp114, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 1905(line=76, offs=9) -- 2124(line=80, offs=37) +*/ +ATSINSflab(__patsflab_loop_43): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 2002(line=77, offs=14) -- 2007(line=77, offs=19) +*/ +ATSINSmove(tmp102, atspre_g1int_sub_int(env0, env1)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 2002(line=77, offs=14) -- 2011(line=77, offs=23) +*/ +ATSINSmove(tmp101, atspre_g1int_add_int(tmp102, ATSPMVi0nt(1))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 1998(line=77, offs=10) -- 2011(line=77, offs=23) +*/ +ATSINSmove(tmp96, ATSLIB_056_prelude__gt_g1int_int__44__1(arg0, tmp101)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 1995(line=77, offs=7) -- 2124(line=80, offs=37) +*/ +ATSif( +tmp96 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 2031(line=78, offs=15) -- 2036(line=78, offs=20) +*/ +ATSINSmove(tmp104, atspre_g1int_sub_int(arg0, ATSPMVi0nt(1))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 2026(line=78, offs=10) -- 2042(line=78, offs=26) +*/ +ATSINSmove_void(tmp103, loop_43(env0, env1, tmp104, ATSPMVrefarg1(arg1))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 2052(line=78, offs=36) -- 2075(line=78, offs=59) +*/ +ATSINSmove(tmp105, ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_int__8__5(ATSderef(arg1, atstkind_type(atstype_ptrk)), arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 2045(line=78, offs=29) -- 2075(line=78, offs=59) +*/ +ATSINSstore(ATSderef(arg1, atstkind_type(atstype_ptrk)), tmp105) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 2045(line=78, offs=29) -- 2075(line=78, offs=59) +*/ +ATSINSmove_void(tmpret95, ATSPMVempty()) ; +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 2103(line=80, offs=16) -- 2124(line=80, offs=37) +*/ +ATSINSmove(tmp114, atspre_g1int_sub_int(env0, env1)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 2103(line=80, offs=16) -- 2124(line=80, offs=37) +*/ +ATSINSmove(tmp113, atspre_g1int_add_int(tmp114, ATSPMVi0nt(1))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 2103(line=80, offs=16) -- 2124(line=80, offs=37) +*/ +ATSINSmove(tmp108, ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__10(tmp113)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 2096(line=80, offs=9) -- 2124(line=80, offs=37) +*/ +ATSINSstore(ATSderef(arg1, atstkind_type(atstype_ptrk)), tmp108) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 2096(line=80, offs=9) -- 2124(line=80, offs=37) +*/ +ATSINSmove_void(tmpret95, ATSPMVempty()) ; +} /* ATSendif */ +ATSfunbody_end() +ATSreturn_void(tmpret95) ; +} /* end of [loop_43] */ + +#if(0) +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 12679(line=659, offs=3) -- 12718(line=659, offs=42) +*/ +/* +local: +global: gt_g1int_int$44$0(level=0) +local: +global: +*/ +ATSextern() +/* +imparg = tk(4643) +tmparg = S2Evar(tk(4643)) +tmpsub = None() +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__gt_g1int_int__44(atstkind_t0ype(atstyvar_type(tk)) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret97, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp98, atstkind_t0ype(atstyvar_type(tk))) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12664(line=658, offs=1) -- 12718(line=659, offs=42) +*/ +ATSINSflab(__patsflab_gt_g1int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12705(line=659, offs=29) -- 12716(line=659, offs=40) +*/ +ATSINSmove(tmp98, PMVtmpltcst(g1int2int)(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12688(line=659, offs=12) -- 12718(line=659, offs=42) +*/ +ATSINSmove(tmpret97, PMVtmpltcst(g1int_gt)(arg0, tmp98)) ; + +ATSfunbody_end() +ATSreturn(tmpret97) ; +} /* end of [ATSLIB_056_prelude__gt_g1int_int__44] */ +#endif // end of [TEMPLATE] + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 12679(line=659, offs=3) -- 12718(line=659, offs=42) +*/ +/* +local: +global: gt_g1int_int$44$1(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4643) +tmparg = S2Evar(tk(4643)) +tmpsub = Some(tk(4643) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__gt_g1int_int__44__1(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret97__1, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp98__1, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12664(line=658, offs=1) -- 12718(line=659, offs=42) +*/ +ATSINSflab(__patsflab_gt_g1int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12705(line=659, offs=29) -- 12716(line=659, offs=40) +*/ +ATSINSmove(tmp98__1, atspre_g1int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12688(line=659, offs=12) -- 12718(line=659, offs=42) +*/ +ATSINSmove(tmpret97__1, atspre_g1int_gt_int(arg0, tmp98__1)) ; + +ATSfunbody_end() +ATSreturn(tmpret97__1) ; +} /* end of [ATSLIB_056_prelude__gt_g1int_int__44__1] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7394(line=413, offs=3) -- 7461(line=418, offs=2) +*/ +/* +local: +global: mul_intinf0_int$8$5(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = +tmparg = +tmpsub = Some() +*/ +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_int__8__5(atstkind_type(atstype_ptrk) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret13__5, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp14__5) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/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 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7403(line=413, offs=12) -- 7461(line=418, offs=2) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7427(line=416, offs=10) -- 7456(line=416, offs=39) +*/ +ATSINSmove_void(tmp14__5, atscntrb_gmp_mpz_mul2_int(ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), arg1)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7404(line=413, offs=13) -- 7405(line=413, offs=14) +*/ +ATSINSmove(tmpret13__5, arg0) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7403(line=413, offs=12) -- 7461(line=418, offs=2) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret13__5) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_int__8__5] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2209(line=74, offs=3) -- 2301(line=80, offs=2) +*/ +/* +local: +global: intinf_make_int$15$10(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = +tmparg = +tmpsub = Some() +*/ +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__10(atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret29__10, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp30__10, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp31__10) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2191(line=73, offs=1) -- 2301(line=80, offs=2) +*/ +ATSINSflab(__patsflab_intinf_make_int): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2238(line=77, offs=9) -- 2254(line=77, offs=25) +*/ +ATSINSmove(tmp30__10, ATSLIB_056_prelude__ptr_alloc__17__10()) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2264(line=78, offs=10) -- 2296(line=78, offs=42) +*/ +ATSINSmove_void(tmp31__10, atscntrb_gmp_mpz_init_set_int(ATSPMVrefarg1(ATSSELrecsin(tmp30__10, atstkind_type(atstype_ptrk), atslab__2)), arg0)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2216(line=74, offs=10) -- 2217(line=74, offs=11) +*/ +ATSINSmove(tmpret29__10, tmp30__10) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret29__10) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__10] */ + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42) +*/ +/* +local: +global: ptr_alloc$17$10(level=3) +local: +global: +*/ +ATSstatic() +/* +imparg = a(4746) +tmparg = S2Evar(a(4746)) +tmpsub = Some(a(4746) -> S2Ecst(mpz_vt0ype)) +*/ +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__17__10() +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret35__10, atstkind_type(atstype_ptrk)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3708(line=184, offs=1) -- 3749(line=184, offs=42) +*/ +ATSINSflab(__patsflab_ptr_alloc): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42) +*/ +ATSINSmove(tmpret35__10, atspre_ptr_alloc_tsz(ATSPMVsizeof(atscntrb_gmp_mpz))) ; + +ATSfunbody_end() +ATSreturn(tmpret35__10) ; +} /* end of [ATSLIB_056_prelude__ptr_alloc__17__10] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 2199(line=88, offs=4) -- 2763(line=111, offs=6) +*/ +/* +local: fact_34$0(level=0) +global: fact_ref_28$0(level=0), fact_34$0(level=0), catalan_50$0(level=0) +local: +global: +*/ +ATSstatic() +atstkind_type(atstype_ptrk) +catalan_50(atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret117, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmpref138, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmpref139, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmpref140, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp145) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 2199(line=88, offs=4) -- 2763(line=111, offs=6) +*/ +ATSINSflab(__patsflab_catalan_50): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 2240(line=89, offs=3) -- 2763(line=111, offs=6) +*/ +/* +letpush(beg) +*/ +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 2515(line=100, offs=5) -- 2757(line=110, offs=10) +*/ +ATScaseof_beg() +/* +** ibranchlst-beg +*/ +ATSbranch_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 2534(line=101, offs=9) -- 2535(line=101, offs=10) +*/ +ATSINSlab(__atstmplab20): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 2215(line=88, offs=20) -- 2216(line=88, offs=21) +*/ +ATSifnthen(ATSCKpat_int(arg0, ATSPMVint(0))) { ATSINSgoto(__atstmplab22) ; } ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 2535(line=101, offs=10) -- 2535(line=101, offs=10) +*/ +ATSINSlab(__atstmplab21): +/* +emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) +*/ +/* +ibranch-mbody: +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 2539(line=101, offs=14) -- 2552(line=101, offs=27) +*/ +ATSINSmove(tmpret117, ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__12(ATSPMVi0nt(1))) ; + +ATSbranch_end() + +ATSbranch_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 2561(line=102, offs=9) -- 2562(line=102, offs=10) +*/ +ATSINSlab(__atstmplab22): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 2215(line=88, offs=20) -- 2216(line=88, offs=21) +*/ +ATSifnthen(ATSCKpat_int(arg0, ATSPMVint(1))) { ATSINSgoto(__atstmplab24) ; } ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 2562(line=102, offs=10) -- 2562(line=102, offs=10) +*/ +ATSINSlab(__atstmplab23): +/* +emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) +*/ +/* +ibranch-mbody: +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 2566(line=102, offs=14) -- 2579(line=102, offs=27) +*/ +ATSINSmove(tmpret117, ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__13(ATSPMVi0nt(1))) ; + +ATSbranch_end() + +ATSbranch_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 2589(line=103, offs=10) -- 2589(line=103, offs=10) +*/ +ATSINSlab(__atstmplab24): +/* +emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) +*/ +/* +ibranch-mbody: +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 2594(line=103, offs=15) -- 2757(line=110, offs=10) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 2610(line=104, offs=13) -- 2611(line=104, offs=14) +*/ +/* +ATSINStmpdec(tmpref138) ; +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 2614(line=104, offs=17) -- 2630(line=104, offs=33) +*/ +ATSINSmove(tmpref138, numerator_loop_51(arg0, arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 2644(line=105, offs=13) -- 2645(line=105, offs=14) +*/ +/* +ATSINStmpdec(tmpref139) ; +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 2648(line=105, offs=17) -- 2654(line=105, offs=23) +*/ +ATSINSmove(tmpref139, fact_34(arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 2668(line=106, offs=13) -- 2669(line=106, offs=14) +*/ +/* +ATSINStmpdec(tmpref140) ; +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 2672(line=106, offs=17) -- 2697(line=106, offs=42) +*/ +ATSINSmove(tmpref140, ATSCNTRB_056_HX_056_intinf_vt__div_intinf0_intinf1__59__1(tmpref138, ATSPMVrefarg0(tmpref139))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 2714(line=107, offs=17) -- 2727(line=107, offs=30) +*/ +ATSINSmove_void(tmp145, ATSCNTRB_056_HX_056_intinf_vt__intinf_free__12__2(tmpref139)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 2746(line=109, offs=9) -- 2747(line=109, offs=10) +*/ +ATSINSmove(tmpret117, tmpref140) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 2594(line=103, offs=15) -- 2757(line=110, offs=10) +*/ +/* +INSletpop() +*/ +ATSbranch_end() + +/* +** ibranchlst-end +*/ +ATScaseof_end() + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 2240(line=89, offs=3) -- 2763(line=111, offs=6) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret117) ; +} /* end of [catalan_50] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 2252(line=90, offs=9) -- 2505(line=98, offs=12) +*/ +/* +local: numerator_loop_51$0(level=1) +global: numerator_loop_51$0(level=1) +local: n$5133(1)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))) +global: n$5133(1)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))) +*/ +ATSstatic() +atstkind_type(atstype_ptrk) +numerator_loop_51(atstkind_t0ype(atstype_int) env0, atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret118, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp123, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmpref124, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp125, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmpref126, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp129, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 2252(line=90, offs=9) -- 2505(line=98, offs=12) +*/ +ATSINSflab(__patsflab_numerator_loop_51): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 2323(line=91, offs=7) -- 2505(line=98, offs=12) +*/ +ATScaseof_beg() +/* +** ibranchlst-beg +*/ +ATSbranch_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 2344(line=92, offs=11) -- 2345(line=92, offs=12) +*/ +ATSINSlab(__atstmplab17): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 2294(line=90, offs=51) -- 2295(line=90, offs=52) +*/ +ATSifnthen(ATSCKpat_int(arg0, ATSPMVint(2))) { ATSINSgoto(__atstmplab19) ; } ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 2345(line=92, offs=12) -- 2345(line=92, offs=12) +*/ +ATSINSlab(__atstmplab18): +/* +emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) +*/ +/* +ibranch-mbody: +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 2349(line=92, offs=16) -- 2366(line=92, offs=33) +*/ +ATSINSmove(tmp123, atspre_g1int_add_int(env0, ATSPMVi0nt(2))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 2349(line=92, offs=16) -- 2366(line=92, offs=33) +*/ +ATSINSmove(tmpret118, ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__11(tmp123)) ; + +ATSbranch_end() + +ATSbranch_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 2378(line=93, offs=12) -- 2378(line=93, offs=12) +*/ +ATSINSlab(__atstmplab19): +/* +emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) +*/ +/* +ibranch-mbody: +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 2383(line=93, offs=17) -- 2505(line=98, offs=12) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 2401(line=94, offs=15) -- 2402(line=94, offs=16) +*/ +/* +ATSINStmpdec(tmpref124) ; +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 2420(line=94, offs=34) -- 2425(line=94, offs=39) +*/ +ATSINSmove(tmp125, atspre_g1int_sub_int(arg0, ATSPMVi0nt(1))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 2405(line=94, offs=19) -- 2426(line=94, offs=40) +*/ +ATSINSmove(tmpref124, numerator_loop_51(env0, tmp125)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 2441(line=95, offs=15) -- 2442(line=95, offs=16) +*/ +/* +ATSINStmpdec(tmpref126) ; +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 2464(line=95, offs=38) -- 2469(line=95, offs=43) +*/ +ATSINSmove(tmp129, atspre_g1int_add_int(env0, arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 2445(line=95, offs=19) -- 2470(line=95, offs=44) +*/ +ATSINSmove(tmpref126, ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_int__8__6(tmpref124, tmp129)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 2492(line=97, offs=11) -- 2493(line=97, offs=12) +*/ +ATSINSmove(tmpret118, tmpref126) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 2383(line=93, offs=17) -- 2505(line=98, offs=12) +*/ +/* +INSletpop() +*/ +ATSbranch_end() + +/* +** ibranchlst-end +*/ +ATScaseof_end() + +ATSfunbody_end() +ATSreturn(tmpret118) ; +} /* end of [numerator_loop_51] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2209(line=74, offs=3) -- 2301(line=80, offs=2) +*/ +/* +local: +global: intinf_make_int$15$11(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = +tmparg = +tmpsub = Some() +*/ +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__11(atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret29__11, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp30__11, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp31__11) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2191(line=73, offs=1) -- 2301(line=80, offs=2) +*/ +ATSINSflab(__patsflab_intinf_make_int): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2238(line=77, offs=9) -- 2254(line=77, offs=25) +*/ +ATSINSmove(tmp30__11, ATSLIB_056_prelude__ptr_alloc__17__11()) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2264(line=78, offs=10) -- 2296(line=78, offs=42) +*/ +ATSINSmove_void(tmp31__11, atscntrb_gmp_mpz_init_set_int(ATSPMVrefarg1(ATSSELrecsin(tmp30__11, atstkind_type(atstype_ptrk), atslab__2)), arg0)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2216(line=74, offs=10) -- 2217(line=74, offs=11) +*/ +ATSINSmove(tmpret29__11, tmp30__11) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret29__11) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__11] */ + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42) +*/ +/* +local: +global: ptr_alloc$17$11(level=3) +local: +global: +*/ +ATSstatic() +/* +imparg = a(4746) +tmparg = S2Evar(a(4746)) +tmpsub = Some(a(4746) -> S2Ecst(mpz_vt0ype)) +*/ +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__17__11() +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret35__11, atstkind_type(atstype_ptrk)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3708(line=184, offs=1) -- 3749(line=184, offs=42) +*/ +ATSINSflab(__patsflab_ptr_alloc): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42) +*/ +ATSINSmove(tmpret35__11, atspre_ptr_alloc_tsz(ATSPMVsizeof(atscntrb_gmp_mpz))) ; + +ATSfunbody_end() +ATSreturn(tmpret35__11) ; +} /* end of [ATSLIB_056_prelude__ptr_alloc__17__11] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7394(line=413, offs=3) -- 7461(line=418, offs=2) +*/ +/* +local: +global: mul_intinf0_int$8$6(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = +tmparg = +tmpsub = Some() +*/ +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_int__8__6(atstkind_type(atstype_ptrk) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret13__6, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp14__6) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/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 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7403(line=413, offs=12) -- 7461(line=418, offs=2) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7427(line=416, offs=10) -- 7456(line=416, offs=39) +*/ +ATSINSmove_void(tmp14__6, atscntrb_gmp_mpz_mul2_int(ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), arg1)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7404(line=413, offs=13) -- 7405(line=413, offs=14) +*/ +ATSINSmove(tmpret13__6, arg0) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7403(line=413, offs=12) -- 7461(line=418, offs=2) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret13__6) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_int__8__6] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2209(line=74, offs=3) -- 2301(line=80, offs=2) +*/ +/* +local: +global: intinf_make_int$15$12(level=1) +local: +global: +*/ +ATSstatic() +/* +imparg = +tmparg = +tmpsub = Some() +*/ +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__12(atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret29__12, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp30__12, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp31__12) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2191(line=73, offs=1) -- 2301(line=80, offs=2) +*/ +ATSINSflab(__patsflab_intinf_make_int): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2238(line=77, offs=9) -- 2254(line=77, offs=25) +*/ +ATSINSmove(tmp30__12, ATSLIB_056_prelude__ptr_alloc__17__12()) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2264(line=78, offs=10) -- 2296(line=78, offs=42) +*/ +ATSINSmove_void(tmp31__12, atscntrb_gmp_mpz_init_set_int(ATSPMVrefarg1(ATSSELrecsin(tmp30__12, atstkind_type(atstype_ptrk), atslab__2)), arg0)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2216(line=74, offs=10) -- 2217(line=74, offs=11) +*/ +ATSINSmove(tmpret29__12, tmp30__12) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret29__12) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__12] */ + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42) +*/ +/* +local: +global: ptr_alloc$17$12(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = a(4746) +tmparg = S2Evar(a(4746)) +tmpsub = Some(a(4746) -> S2Ecst(mpz_vt0ype)) +*/ +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__17__12() +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret35__12, atstkind_type(atstype_ptrk)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3708(line=184, offs=1) -- 3749(line=184, offs=42) +*/ +ATSINSflab(__patsflab_ptr_alloc): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42) +*/ +ATSINSmove(tmpret35__12, atspre_ptr_alloc_tsz(ATSPMVsizeof(atscntrb_gmp_mpz))) ; + +ATSfunbody_end() +ATSreturn(tmpret35__12) ; +} /* end of [ATSLIB_056_prelude__ptr_alloc__17__12] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2209(line=74, offs=3) -- 2301(line=80, offs=2) +*/ +/* +local: +global: intinf_make_int$15$13(level=1) +local: +global: +*/ +ATSstatic() +/* +imparg = +tmparg = +tmpsub = Some() +*/ +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__13(atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret29__13, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp30__13, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp31__13) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2191(line=73, offs=1) -- 2301(line=80, offs=2) +*/ +ATSINSflab(__patsflab_intinf_make_int): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2238(line=77, offs=9) -- 2254(line=77, offs=25) +*/ +ATSINSmove(tmp30__13, ATSLIB_056_prelude__ptr_alloc__17__13()) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2264(line=78, offs=10) -- 2296(line=78, offs=42) +*/ +ATSINSmove_void(tmp31__13, atscntrb_gmp_mpz_init_set_int(ATSPMVrefarg1(ATSSELrecsin(tmp30__13, atstkind_type(atstype_ptrk), atslab__2)), arg0)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2216(line=74, offs=10) -- 2217(line=74, offs=11) +*/ +ATSINSmove(tmpret29__13, tmp30__13) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret29__13) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__13] */ + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42) +*/ +/* +local: +global: ptr_alloc$17$13(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = a(4746) +tmparg = S2Evar(a(4746)) +tmpsub = Some(a(4746) -> S2Ecst(mpz_vt0ype)) +*/ +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__17__13() +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret35__13, atstkind_type(atstype_ptrk)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3708(line=184, offs=1) -- 3749(line=184, offs=42) +*/ +ATSINSflab(__patsflab_ptr_alloc): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42) +*/ +ATSINSmove(tmpret35__13, atspre_ptr_alloc_tsz(ATSPMVsizeof(atscntrb_gmp_mpz))) ; + +ATSfunbody_end() +ATSreturn(tmpret35__13) ; +} /* end of [ATSLIB_056_prelude__ptr_alloc__17__13] */ + +#if(0) +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9009(line=513, offs=3) -- 9083(line=518, offs=2) +*/ +/* +local: +global: div_intinf0_intinf1$59$0(level=0) +local: +global: +*/ +ATSextern() +/* +imparg = +tmparg = +tmpsub = None() +*/ +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__div_intinf0_intinf1__59(atstkind_type(atstype_ptrk) arg0, atsrefarg0_type(atstkind_type(atstype_ptrk)) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret141, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp142) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/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 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9018(line=513, offs=12) -- 9083(line=518, offs=2) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9042(line=516, offs=10) -- 9078(line=516, offs=46) +*/ +ATSINSmove_void(tmp142, 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 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9019(line=513, offs=13) -- 9020(line=513, offs=14) +*/ +ATSINSmove(tmpret141, arg0) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9018(line=513, offs=12) -- 9083(line=518, offs=2) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret141) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__div_intinf0_intinf1__59] */ +#endif // end of [TEMPLATE] + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9009(line=513, offs=3) -- 9083(line=518, offs=2) +*/ +/* +local: +global: div_intinf0_intinf1$59$1(level=1) +local: +global: +*/ +ATSstatic() +/* +imparg = +tmparg = +tmpsub = Some() +*/ +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__div_intinf0_intinf1__59__1(atstkind_type(atstype_ptrk) arg0, atsrefarg0_type(atstkind_type(atstype_ptrk)) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret141__1, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp142__1) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/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 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9018(line=513, offs=12) -- 9083(line=518, offs=2) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9042(line=516, offs=10) -- 9078(line=516, offs=46) +*/ +ATSINSmove_void(tmp142__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 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9019(line=513, offs=13) -- 9020(line=513, offs=14) +*/ +ATSINSmove(tmpret141__1, arg0) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9018(line=513, offs=12) -- 9083(line=518, offs=2) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret141__1) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__div_intinf0_intinf1__59__1] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2888(line=119, offs=12) -- 2987(line=122, offs=4) +*/ +/* +local: +global: intinf_free$12$2(level=1) +local: +global: +*/ +ATSstatic() +/* +imparg = +tmparg = +tmpsub = Some() +*/ +atsvoid_t0ype +ATSCNTRB_056_HX_056_intinf_vt__intinf_free__12__2(atstkind_type(atstype_ptrk) arg0) +{ +/* tmpvardeclst(beg) */ +// ATStmpdec_void(tmpret22__2) ; +// ATStmpdec_void(tmp23__2) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2877(line=119, offs=1) -- 2987(line=122, offs=4) +*/ +ATSINSflab(__patsflab_intinf_free): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2894(line=119, offs=18) -- 2987(line=122, offs=4) +*/ +/* +letpush(beg) +*/ +/* (*nothing*) */ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2936(line=121, offs=12) -- 2955(line=121, offs=31) +*/ +ATSINSmove_void(tmp23__2, atscntrb_gmp_mpz_clear(ATSPMVrefarg1(arg0))) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2959(line=121, offs=35) -- 2983(line=121, offs=59) +*/ +ATSINSmove_void(tmpret22__2, atspre_ptr_free(arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2894(line=119, offs=18) -- 2987(line=122, offs=4) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn_void(tmpret22__2) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_free__12__2] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 2768(line=113, offs=4) -- 3506(line=139, offs=6) +*/ +/* +local: fact_34$0(level=0) +global: fact_ref_28$0(level=0), fact_34$0(level=0), choose_62$0(level=0) +local: +global: +*/ +ATSstatic() +atstkind_type(atstype_ptrk) +choose_62(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret148, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp177, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmpref184, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp185) ; +ATStmpdec(tmpref186, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmpref187, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp190) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 2768(line=113, offs=4) -- 3506(line=139, offs=6) +*/ +ATSINSflab(__patsflab_choose_62): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 2827(line=114, offs=3) -- 3506(line=139, offs=6) +*/ +/* +letpush(beg) +*/ +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 3194(line=126, offs=5) -- 3500(line=138, offs=10) +*/ +ATScaseof_beg() +/* +** ibranchlst-beg +*/ +ATSbranch_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 3213(line=127, offs=9) -- 3214(line=127, offs=10) +*/ +ATSINSlab(__atstmplab30): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 2802(line=113, offs=38) -- 2803(line=113, offs=39) +*/ +ATSifnthen(ATSCKpat_int(arg1, ATSPMVint(0))) { ATSINSgoto(__atstmplab32) ; } ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 3214(line=127, offs=10) -- 3214(line=127, offs=10) +*/ +ATSINSlab(__atstmplab31): +/* +emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) +*/ +/* +ibranch-mbody: +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 3218(line=127, offs=14) -- 3231(line=127, offs=27) +*/ +ATSINSmove(tmpret148, ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__16(ATSPMVi0nt(1))) ; + +ATSbranch_end() + +ATSbranch_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 3240(line=128, offs=9) -- 3241(line=128, offs=10) +*/ +ATSINSlab(__atstmplab32): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 2802(line=113, offs=38) -- 2803(line=113, offs=39) +*/ +ATSifnthen(ATSCKpat_int(arg1, ATSPMVint(1))) { ATSINSgoto(__atstmplab34) ; } ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 3241(line=128, offs=10) -- 3241(line=128, offs=10) +*/ +ATSINSlab(__atstmplab33): +/* +emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) +*/ +/* +ibranch-mbody: +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 3245(line=128, offs=14) -- 3257(line=128, offs=26) +*/ +ATSINSmove(tmpret148, ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__17(arg0)) ; + +ATSbranch_end() + +ATSbranch_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 3268(line=129, offs=10) -- 3268(line=129, offs=10) +*/ +ATSINSlab(__atstmplab34): +/* +emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) +*/ +/* +ibranch-guard: +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 3274(line=129, offs=16) -- 3279(line=129, offs=21) +*/ +ATSINSmove(tmp177, ATSLIB_056_prelude__gt_g1int_int__44__2(arg1, arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 3274(line=129, offs=16) -- 3279(line=129, offs=21) +*/ +ATSifnthen(ATSCKpat_bool(tmp177, ATSPMVbool_true())) { ATSINSgoto(__atstmplab35) ; } ; +/* +emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) +*/ +/* +ibranch-mbody: +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 3283(line=129, offs=25) -- 3296(line=129, offs=38) +*/ +ATSINSmove(tmpret148, ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__18(ATSPMVi0nt(0))) ; + +ATSbranch_end() + +ATSbranch_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 3306(line=130, offs=10) -- 3306(line=130, offs=10) +*/ +ATSINSlab(__atstmplab35): +/* +emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) +*/ +/* +ibranch-mbody: +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 3311(line=130, offs=15) -- 3500(line=138, offs=10) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 3327(line=131, offs=13) -- 3328(line=131, offs=14) +*/ +/* +ATSINStmpdec(tmpref184) ; +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 3354(line=132, offs=18) -- 3374(line=132, offs=38) +*/ +ATSINSmove_void(tmp185, numerator_loop_63(arg0, arg1, ATSPMVrefarg1(ATSPMVptrof(tmpref184)))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 3387(line=133, offs=13) -- 3388(line=133, offs=14) +*/ +/* +ATSINStmpdec(tmpref186) ; +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 3391(line=133, offs=17) -- 3397(line=133, offs=23) +*/ +ATSINSmove(tmpref186, fact_34(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 3411(line=134, offs=13) -- 3412(line=134, offs=14) +*/ +/* +ATSINStmpdec(tmpref187) ; +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 3415(line=134, offs=17) -- 3440(line=134, offs=42) +*/ +ATSINSmove(tmpref187, ATSCNTRB_056_HX_056_intinf_vt__div_intinf0_intinf1__59__2(tmpref184, ATSPMVrefarg0(tmpref186))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 3457(line=135, offs=17) -- 3470(line=135, offs=30) +*/ +ATSINSmove_void(tmp190, ATSCNTRB_056_HX_056_intinf_vt__intinf_free__12__3(tmpref186)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 3489(line=137, offs=9) -- 3490(line=137, offs=10) +*/ +ATSINSmove(tmpret148, tmpref187) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 3311(line=130, offs=15) -- 3500(line=138, offs=10) +*/ +/* +INSletpop() +*/ +ATSbranch_end() + +/* +** ibranchlst-end +*/ +ATScaseof_end() + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 2827(line=114, offs=3) -- 3506(line=139, offs=6) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret148) ; +} /* end of [choose_62] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 2839(line=115, offs=9) -- 3184(line=124, offs=12) +*/ +/* +local: numerator_loop_63$0(level=1) +global: numerator_loop_63$0(level=1) +local: n$5144(1)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))) +global: n$5144(1)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))) +*/ +ATSstatic() +atsvoid_t0ype +numerator_loop_63(atstkind_t0ype(atstype_int) env0, atstkind_t0ype(atstype_int) arg0, atsrefarg1_type(atstkind_type(atstype_ptrk)) arg1) +{ +/* tmpvardeclst(beg) */ +// ATStmpdec_void(tmpret149) ; +ATStmpdec(tmp150, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp155, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp160, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp161, atstkind_t0ype(atstype_int)) ; +// ATStmpdec_void(tmp162) ; +ATStmpdec(tmp163, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmpref164, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp167, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp168, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 2839(line=115, offs=9) -- 3184(line=124, offs=12) +*/ +ATSINSflab(__patsflab_numerator_loop_63): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 2934(line=116, offs=7) -- 3184(line=124, offs=12) +*/ +ATScaseof_beg() +/* +** ibranchlst-beg +*/ +ATSbranch_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 2955(line=117, offs=11) -- 2956(line=117, offs=12) +*/ +ATSINSlab(__atstmplab25): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 2881(line=115, offs=51) -- 2882(line=115, offs=52) +*/ +ATSifnthen(ATSCKpat_int(arg0, ATSPMVint(1))) { ATSINSgoto(__atstmplab27) ; } ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 2956(line=117, offs=12) -- 2956(line=117, offs=12) +*/ +ATSINSlab(__atstmplab26): +/* +emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) +*/ +/* +ibranch-mbody: +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 2967(line=117, offs=23) -- 2979(line=117, offs=35) +*/ +ATSINSmove(tmp150, ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__14(env0)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 2960(line=117, offs=16) -- 2979(line=117, offs=35) +*/ +ATSINSstore(ATSderef(arg1, atstkind_type(atstype_ptrk)), tmp150) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 2960(line=117, offs=16) -- 2979(line=117, offs=35) +*/ +ATSINSmove_void(tmpret149, ATSPMVempty()) ; +ATSbranch_end() + +ATSbranch_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 2991(line=118, offs=11) -- 2992(line=118, offs=12) +*/ +ATSINSlab(__atstmplab27): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 2881(line=115, offs=51) -- 2882(line=115, offs=52) +*/ +ATSifnthen(ATSCKpat_int(arg0, ATSPMVint(2))) { ATSINSgoto(__atstmplab29) ; } ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 2992(line=118, offs=12) -- 2992(line=118, offs=12) +*/ +ATSINSlab(__atstmplab28): +/* +emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) +*/ +/* +ibranch-mbody: +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 3003(line=118, offs=23) -- 3026(line=118, offs=46) +*/ +ATSINSmove(tmp161, atspre_g1int_sub_int(env0, ATSPMVi0nt(1))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 3003(line=118, offs=23) -- 3026(line=118, offs=46) +*/ +ATSINSmove(tmp160, atspre_g1int_mul_int(tmp161, env0)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 3003(line=118, offs=23) -- 3026(line=118, offs=46) +*/ +ATSINSmove(tmp155, ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__15(tmp160)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 2996(line=118, offs=16) -- 3026(line=118, offs=46) +*/ +ATSINSstore(ATSderef(arg1, atstkind_type(atstype_ptrk)), tmp155) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 2996(line=118, offs=16) -- 3026(line=118, offs=46) +*/ +ATSINSmove_void(tmpret149, ATSPMVempty()) ; +ATSbranch_end() + +ATSbranch_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 3038(line=119, offs=12) -- 3038(line=119, offs=12) +*/ +ATSINSlab(__atstmplab29): +/* +emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) +*/ +/* +ibranch-mbody: +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 3043(line=119, offs=17) -- 3184(line=124, offs=12) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 3081(line=120, offs=35) -- 3086(line=120, offs=40) +*/ +ATSINSmove(tmp163, atspre_g1int_sub_int(arg0, ATSPMVi0nt(1))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 3066(line=120, offs=20) -- 3092(line=120, offs=46) +*/ +ATSINSmove_void(tmp162, numerator_loop_63(env0, tmp163, ATSPMVrefarg1(arg1))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 3107(line=121, offs=15) -- 3108(line=121, offs=16) +*/ +/* +ATSINStmpdec(tmpref164) ; +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 3132(line=121, offs=40) -- 3137(line=121, offs=45) +*/ +ATSINSmove(tmp168, atspre_g1int_add_int(env0, ATSPMVi0nt(1))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 3132(line=121, offs=40) -- 3141(line=121, offs=49) +*/ +ATSINSmove(tmp167, atspre_g1int_sub_int(tmp168, arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 3111(line=121, offs=19) -- 3142(line=121, offs=50) +*/ +ATSINSmove(tmpref164, ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_int__8__7(ATSderef(arg1, atstkind_type(atstype_ptrk)), tmp167)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 3164(line=123, offs=11) -- 3172(line=123, offs=19) +*/ +ATSINSstore(ATSderef(arg1, atstkind_type(atstype_ptrk)), tmpref164) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 3164(line=123, offs=11) -- 3172(line=123, offs=19) +*/ +ATSINSmove_void(tmpret149, ATSPMVempty()) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 3043(line=119, offs=17) -- 3184(line=124, offs=12) +*/ +/* +INSletpop() +*/ +ATSbranch_end() + +/* +** ibranchlst-end +*/ +ATScaseof_end() + +ATSfunbody_end() +ATSreturn_void(tmpret149) ; +} /* end of [numerator_loop_63] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2209(line=74, offs=3) -- 2301(line=80, offs=2) +*/ +/* +local: +global: intinf_make_int$15$14(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = +tmparg = +tmpsub = Some() +*/ +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__14(atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret29__14, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp30__14, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp31__14) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2191(line=73, offs=1) -- 2301(line=80, offs=2) +*/ +ATSINSflab(__patsflab_intinf_make_int): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2238(line=77, offs=9) -- 2254(line=77, offs=25) +*/ +ATSINSmove(tmp30__14, ATSLIB_056_prelude__ptr_alloc__17__14()) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2264(line=78, offs=10) -- 2296(line=78, offs=42) +*/ +ATSINSmove_void(tmp31__14, atscntrb_gmp_mpz_init_set_int(ATSPMVrefarg1(ATSSELrecsin(tmp30__14, atstkind_type(atstype_ptrk), atslab__2)), arg0)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2216(line=74, offs=10) -- 2217(line=74, offs=11) +*/ +ATSINSmove(tmpret29__14, tmp30__14) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret29__14) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__14] */ + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42) +*/ +/* +local: +global: ptr_alloc$17$14(level=3) +local: +global: +*/ +ATSstatic() +/* +imparg = a(4746) +tmparg = S2Evar(a(4746)) +tmpsub = Some(a(4746) -> S2Ecst(mpz_vt0ype)) +*/ +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__17__14() +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret35__14, atstkind_type(atstype_ptrk)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3708(line=184, offs=1) -- 3749(line=184, offs=42) +*/ +ATSINSflab(__patsflab_ptr_alloc): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42) +*/ +ATSINSmove(tmpret35__14, atspre_ptr_alloc_tsz(ATSPMVsizeof(atscntrb_gmp_mpz))) ; + +ATSfunbody_end() +ATSreturn(tmpret35__14) ; +} /* end of [ATSLIB_056_prelude__ptr_alloc__17__14] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2209(line=74, offs=3) -- 2301(line=80, offs=2) +*/ +/* +local: +global: intinf_make_int$15$15(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = +tmparg = +tmpsub = Some() +*/ +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__15(atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret29__15, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp30__15, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp31__15) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2191(line=73, offs=1) -- 2301(line=80, offs=2) +*/ +ATSINSflab(__patsflab_intinf_make_int): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2238(line=77, offs=9) -- 2254(line=77, offs=25) +*/ +ATSINSmove(tmp30__15, ATSLIB_056_prelude__ptr_alloc__17__15()) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2264(line=78, offs=10) -- 2296(line=78, offs=42) +*/ +ATSINSmove_void(tmp31__15, atscntrb_gmp_mpz_init_set_int(ATSPMVrefarg1(ATSSELrecsin(tmp30__15, atstkind_type(atstype_ptrk), atslab__2)), arg0)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2216(line=74, offs=10) -- 2217(line=74, offs=11) +*/ +ATSINSmove(tmpret29__15, tmp30__15) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret29__15) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__15] */ + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42) +*/ +/* +local: +global: ptr_alloc$17$15(level=3) +local: +global: +*/ +ATSstatic() +/* +imparg = a(4746) +tmparg = S2Evar(a(4746)) +tmpsub = Some(a(4746) -> S2Ecst(mpz_vt0ype)) +*/ +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__17__15() +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret35__15, atstkind_type(atstype_ptrk)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3708(line=184, offs=1) -- 3749(line=184, offs=42) +*/ +ATSINSflab(__patsflab_ptr_alloc): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42) +*/ +ATSINSmove(tmpret35__15, atspre_ptr_alloc_tsz(ATSPMVsizeof(atscntrb_gmp_mpz))) ; + +ATSfunbody_end() +ATSreturn(tmpret35__15) ; +} /* end of [ATSLIB_056_prelude__ptr_alloc__17__15] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7394(line=413, offs=3) -- 7461(line=418, offs=2) +*/ +/* +local: +global: mul_intinf0_int$8$7(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = +tmparg = +tmpsub = Some() +*/ +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_int__8__7(atstkind_type(atstype_ptrk) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret13__7, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp14__7) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/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 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7403(line=413, offs=12) -- 7461(line=418, offs=2) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7427(line=416, offs=10) -- 7456(line=416, offs=39) +*/ +ATSINSmove_void(tmp14__7, atscntrb_gmp_mpz_mul2_int(ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), arg1)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7404(line=413, offs=13) -- 7405(line=413, offs=14) +*/ +ATSINSmove(tmpret13__7, arg0) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7403(line=413, offs=12) -- 7461(line=418, offs=2) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret13__7) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_int__8__7] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2209(line=74, offs=3) -- 2301(line=80, offs=2) +*/ +/* +local: +global: intinf_make_int$15$16(level=1) +local: +global: +*/ +ATSstatic() +/* +imparg = +tmparg = +tmpsub = Some() +*/ +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__16(atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret29__16, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp30__16, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp31__16) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2191(line=73, offs=1) -- 2301(line=80, offs=2) +*/ +ATSINSflab(__patsflab_intinf_make_int): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2238(line=77, offs=9) -- 2254(line=77, offs=25) +*/ +ATSINSmove(tmp30__16, ATSLIB_056_prelude__ptr_alloc__17__16()) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2264(line=78, offs=10) -- 2296(line=78, offs=42) +*/ +ATSINSmove_void(tmp31__16, atscntrb_gmp_mpz_init_set_int(ATSPMVrefarg1(ATSSELrecsin(tmp30__16, atstkind_type(atstype_ptrk), atslab__2)), arg0)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2216(line=74, offs=10) -- 2217(line=74, offs=11) +*/ +ATSINSmove(tmpret29__16, tmp30__16) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret29__16) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__16] */ + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42) +*/ +/* +local: +global: ptr_alloc$17$16(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = a(4746) +tmparg = S2Evar(a(4746)) +tmpsub = Some(a(4746) -> S2Ecst(mpz_vt0ype)) +*/ +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__17__16() +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret35__16, atstkind_type(atstype_ptrk)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3708(line=184, offs=1) -- 3749(line=184, offs=42) +*/ +ATSINSflab(__patsflab_ptr_alloc): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42) +*/ +ATSINSmove(tmpret35__16, atspre_ptr_alloc_tsz(ATSPMVsizeof(atscntrb_gmp_mpz))) ; + +ATSfunbody_end() +ATSreturn(tmpret35__16) ; +} /* end of [ATSLIB_056_prelude__ptr_alloc__17__16] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2209(line=74, offs=3) -- 2301(line=80, offs=2) +*/ +/* +local: +global: intinf_make_int$15$17(level=1) +local: +global: +*/ +ATSstatic() +/* +imparg = +tmparg = +tmpsub = Some() +*/ +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__17(atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret29__17, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp30__17, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp31__17) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2191(line=73, offs=1) -- 2301(line=80, offs=2) +*/ +ATSINSflab(__patsflab_intinf_make_int): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2238(line=77, offs=9) -- 2254(line=77, offs=25) +*/ +ATSINSmove(tmp30__17, ATSLIB_056_prelude__ptr_alloc__17__17()) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2264(line=78, offs=10) -- 2296(line=78, offs=42) +*/ +ATSINSmove_void(tmp31__17, atscntrb_gmp_mpz_init_set_int(ATSPMVrefarg1(ATSSELrecsin(tmp30__17, atstkind_type(atstype_ptrk), atslab__2)), arg0)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2216(line=74, offs=10) -- 2217(line=74, offs=11) +*/ +ATSINSmove(tmpret29__17, tmp30__17) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret29__17) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__17] */ + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42) +*/ +/* +local: +global: ptr_alloc$17$17(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = a(4746) +tmparg = S2Evar(a(4746)) +tmpsub = Some(a(4746) -> S2Ecst(mpz_vt0ype)) +*/ +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__17__17() +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret35__17, atstkind_type(atstype_ptrk)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3708(line=184, offs=1) -- 3749(line=184, offs=42) +*/ +ATSINSflab(__patsflab_ptr_alloc): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42) +*/ +ATSINSmove(tmpret35__17, atspre_ptr_alloc_tsz(ATSPMVsizeof(atscntrb_gmp_mpz))) ; + +ATSfunbody_end() +ATSreturn(tmpret35__17) ; +} /* end of [ATSLIB_056_prelude__ptr_alloc__17__17] */ + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 12679(line=659, offs=3) -- 12718(line=659, offs=42) +*/ +/* +local: +global: gt_g1int_int$44$2(level=1) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4643) +tmparg = S2Evar(tk(4643)) +tmpsub = Some(tk(4643) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__gt_g1int_int__44__2(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret97__2, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp98__2, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12664(line=658, offs=1) -- 12718(line=659, offs=42) +*/ +ATSINSflab(__patsflab_gt_g1int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12705(line=659, offs=29) -- 12716(line=659, offs=40) +*/ +ATSINSmove(tmp98__2, atspre_g1int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12688(line=659, offs=12) -- 12718(line=659, offs=42) +*/ +ATSINSmove(tmpret97__2, atspre_g1int_gt_int(arg0, tmp98__2)) ; + +ATSfunbody_end() +ATSreturn(tmpret97__2) ; +} /* end of [ATSLIB_056_prelude__gt_g1int_int__44__2] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2209(line=74, offs=3) -- 2301(line=80, offs=2) +*/ +/* +local: +global: intinf_make_int$15$18(level=1) +local: +global: +*/ +ATSstatic() +/* +imparg = +tmparg = +tmpsub = Some() +*/ +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__18(atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret29__18, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp30__18, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp31__18) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2191(line=73, offs=1) -- 2301(line=80, offs=2) +*/ +ATSINSflab(__patsflab_intinf_make_int): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2238(line=77, offs=9) -- 2254(line=77, offs=25) +*/ +ATSINSmove(tmp30__18, ATSLIB_056_prelude__ptr_alloc__17__18()) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2264(line=78, offs=10) -- 2296(line=78, offs=42) +*/ +ATSINSmove_void(tmp31__18, atscntrb_gmp_mpz_init_set_int(ATSPMVrefarg1(ATSSELrecsin(tmp30__18, atstkind_type(atstype_ptrk), atslab__2)), arg0)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2216(line=74, offs=10) -- 2217(line=74, offs=11) +*/ +ATSINSmove(tmpret29__18, tmp30__18) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret29__18) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__18] */ + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42) +*/ +/* +local: +global: ptr_alloc$17$18(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = a(4746) +tmparg = S2Evar(a(4746)) +tmpsub = Some(a(4746) -> S2Ecst(mpz_vt0ype)) +*/ +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__17__18() +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret35__18, atstkind_type(atstype_ptrk)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3708(line=184, offs=1) -- 3749(line=184, offs=42) +*/ +ATSINSflab(__patsflab_ptr_alloc): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42) +*/ +ATSINSmove(tmpret35__18, atspre_ptr_alloc_tsz(ATSPMVsizeof(atscntrb_gmp_mpz))) ; + +ATSfunbody_end() +ATSreturn(tmpret35__18) ; +} /* end of [ATSLIB_056_prelude__ptr_alloc__17__18] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9009(line=513, offs=3) -- 9083(line=518, offs=2) +*/ +/* +local: +global: div_intinf0_intinf1$59$2(level=1) +local: +global: +*/ +ATSstatic() +/* +imparg = +tmparg = +tmpsub = Some() +*/ +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__div_intinf0_intinf1__59__2(atstkind_type(atstype_ptrk) arg0, atsrefarg0_type(atstkind_type(atstype_ptrk)) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret141__2, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp142__2) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/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 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9018(line=513, offs=12) -- 9083(line=518, offs=2) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9042(line=516, offs=10) -- 9078(line=516, offs=46) +*/ +ATSINSmove_void(tmp142__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 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9019(line=513, offs=13) -- 9020(line=513, offs=14) +*/ +ATSINSmove(tmpret141__2, arg0) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9018(line=513, offs=12) -- 9083(line=518, offs=2) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret141__2) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__div_intinf0_intinf1__59__2] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2888(line=119, offs=12) -- 2987(line=122, offs=4) +*/ +/* +local: +global: intinf_free$12$3(level=1) +local: +global: +*/ +ATSstatic() +/* +imparg = +tmparg = +tmpsub = Some() +*/ +atsvoid_t0ype +ATSCNTRB_056_HX_056_intinf_vt__intinf_free__12__3(atstkind_type(atstype_ptrk) arg0) +{ +/* tmpvardeclst(beg) */ +// ATStmpdec_void(tmpret22__3) ; +// ATStmpdec_void(tmp23__3) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2877(line=119, offs=1) -- 2987(line=122, offs=4) +*/ +ATSINSflab(__patsflab_intinf_free): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2894(line=119, offs=18) -- 2987(line=122, offs=4) +*/ +/* +letpush(beg) +*/ +/* (*nothing*) */ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2936(line=121, offs=12) -- 2955(line=121, offs=31) +*/ +ATSINSmove_void(tmp23__3, atscntrb_gmp_mpz_clear(ATSPMVrefarg1(arg0))) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2959(line=121, offs=35) -- 2983(line=121, offs=59) +*/ +ATSINSmove_void(tmpret22__3, atspre_ptr_free(arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2894(line=119, offs=18) -- 2987(line=122, offs=4) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn_void(tmpret22__3) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_free__12__3] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 3511(line=141, offs=4) -- 4598(line=173, offs=8) +*/ +/* +local: fact_34$0(level=0), choose_62$0(level=0) +global: fact_ref_28$0(level=0), fact_34$0(level=0), choose_62$0(level=0), stirling2_79$0(level=0) +local: +global: +*/ +ATSstatic() +atstkind_type(atstype_ptrk) +stirling2_79(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret193, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp194, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp195, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp206, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmpref262, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp263) ; +ATStmpdec(tmpref264, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmpref265, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp268) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 3511(line=141, offs=4) -- 4598(line=173, offs=8) +*/ +ATSINSflab(__patsflab_stirling2_79): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 3586(line=143, offs=7) -- 3600(line=143, offs=21) +*/ +ATSINSmove(tmp195, ATSLIB_056_prelude__eq_g1int_int__80__1(arg1, ATSPMVi0nt(0))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 3586(line=143, offs=7) -- 3600(line=143, offs=21) +*/ +ATSif( +tmp195 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 3586(line=143, offs=7) -- 3600(line=143, offs=21) +*/ +ATSINSmove(tmp194, ATSLIB_056_prelude__eq_g1int_int__80__2(arg0, ATSPMVi0nt(0))) ; + +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 3586(line=143, offs=7) -- 3600(line=143, offs=21) +*/ +ATSINSmove(tmp194, ATSPMVbool_false()) ; +} /* ATSendif */ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 3573(line=142, offs=3) -- 4598(line=173, offs=8) +*/ +ATSif( +tmp194 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 3604(line=143, offs=25) -- 3617(line=143, offs=38) +*/ +ATSINSmove(tmpret193, ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__19(ATSPMVi0nt(1))) ; + +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 3624(line=144, offs=7) -- 3629(line=144, offs=12) +*/ +ATSINSmove(tmp206, ATSLIB_056_prelude__gt_g1int_int__44__3(arg1, arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 3573(line=142, offs=3) -- 4598(line=173, offs=8) +*/ +ATSif( +tmp206 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 3633(line=144, offs=16) -- 3646(line=144, offs=29) +*/ +ATSINSmove(tmpret193, ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__20(ATSPMVi0nt(0))) ; + +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 3658(line=145, offs=12) -- 4598(line=173, offs=8) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 4422(line=166, offs=11) -- 4425(line=166, offs=14) +*/ +/* +ATSINStmpdec(tmpref262) ; +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 4449(line=167, offs=16) -- 4465(line=167, offs=32) +*/ +ATSINSmove_void(tmp263, top_loop_89(arg0, arg1, arg1, ATSPMVrefarg1(ATSPMVptrof(tmpref262)))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 4476(line=168, offs=11) -- 4479(line=168, offs=14) +*/ +/* +ATSINStmpdec(tmpref264) ; +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 4482(line=168, offs=17) -- 4488(line=168, offs=23) +*/ +ATSINSmove(tmpref264, fact_34(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 4500(line=169, offs=11) -- 4506(line=169, offs=17) +*/ +/* +ATSINStmpdec(tmpref265) ; +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 4509(line=169, offs=20) -- 4538(line=169, offs=49) +*/ +ATSINSmove(tmpref265, ATSCNTRB_056_HX_056_intinf_vt__div_intinf0_intinf1__59__3(tmpref262, ATSPMVrefarg0(tmpref264))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 4554(line=170, offs=16) -- 4569(line=170, offs=31) +*/ +ATSINSmove_void(tmp268, ATSCNTRB_056_HX_056_intinf_vt__intinf_free__12__6(tmpref264)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 4584(line=172, offs=7) -- 4590(line=172, offs=13) +*/ +ATSINSmove(tmpret193, tmpref265) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 3658(line=145, offs=12) -- 4598(line=173, offs=8) +*/ +/* +INSletpop() +*/ +} /* ATSendif */ +} /* ATSendif */ +ATSfunbody_end() +ATSreturn(tmpret193) ; +} /* end of [stirling2_79] */ + +#if(0) +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 12838(line=668, offs=3) -- 12877(line=668, offs=42) +*/ +/* +local: +global: eq_g1int_int$80$0(level=0) +local: +global: +*/ +ATSextern() +/* +imparg = tk(4649) +tmparg = S2Evar(tk(4649)) +tmpsub = None() +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g1int_int__80(atstkind_t0ype(atstyvar_type(tk)) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret196, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp197, atstkind_t0ype(atstyvar_type(tk))) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12823(line=667, offs=1) -- 12877(line=668, offs=42) +*/ +ATSINSflab(__patsflab_eq_g1int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12864(line=668, offs=29) -- 12875(line=668, offs=40) +*/ +ATSINSmove(tmp197, PMVtmpltcst(g1int2int)(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12847(line=668, offs=12) -- 12877(line=668, offs=42) +*/ +ATSINSmove(tmpret196, PMVtmpltcst(g1int_eq)(arg0, tmp197)) ; + +ATSfunbody_end() +ATSreturn(tmpret196) ; +} /* end of [ATSLIB_056_prelude__eq_g1int_int__80] */ +#endif // end of [TEMPLATE] + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 12838(line=668, offs=3) -- 12877(line=668, offs=42) +*/ +/* +local: +global: eq_g1int_int$80$1(level=1) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4649) +tmparg = S2Evar(tk(4649)) +tmpsub = Some(tk(4649) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g1int_int__80__1(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret196__1, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp197__1, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12823(line=667, offs=1) -- 12877(line=668, offs=42) +*/ +ATSINSflab(__patsflab_eq_g1int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12864(line=668, offs=29) -- 12875(line=668, offs=40) +*/ +ATSINSmove(tmp197__1, atspre_g1int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12847(line=668, offs=12) -- 12877(line=668, offs=42) +*/ +ATSINSmove(tmpret196__1, atspre_g1int_eq_int(arg0, tmp197__1)) ; + +ATSfunbody_end() +ATSreturn(tmpret196__1) ; +} /* end of [ATSLIB_056_prelude__eq_g1int_int__80__1] */ + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 12838(line=668, offs=3) -- 12877(line=668, offs=42) +*/ +/* +local: +global: eq_g1int_int$80$2(level=1) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4649) +tmparg = S2Evar(tk(4649)) +tmpsub = Some(tk(4649) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g1int_int__80__2(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret196__2, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp197__2, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12823(line=667, offs=1) -- 12877(line=668, offs=42) +*/ +ATSINSflab(__patsflab_eq_g1int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12864(line=668, offs=29) -- 12875(line=668, offs=40) +*/ +ATSINSmove(tmp197__2, atspre_g1int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12847(line=668, offs=12) -- 12877(line=668, offs=42) +*/ +ATSINSmove(tmpret196__2, atspre_g1int_eq_int(arg0, tmp197__2)) ; + +ATSfunbody_end() +ATSreturn(tmpret196__2) ; +} /* end of [ATSLIB_056_prelude__eq_g1int_int__80__2] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2209(line=74, offs=3) -- 2301(line=80, offs=2) +*/ +/* +local: +global: intinf_make_int$15$19(level=1) +local: +global: +*/ +ATSstatic() +/* +imparg = +tmparg = +tmpsub = Some() +*/ +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__19(atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret29__19, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp30__19, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp31__19) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2191(line=73, offs=1) -- 2301(line=80, offs=2) +*/ +ATSINSflab(__patsflab_intinf_make_int): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2238(line=77, offs=9) -- 2254(line=77, offs=25) +*/ +ATSINSmove(tmp30__19, ATSLIB_056_prelude__ptr_alloc__17__19()) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2264(line=78, offs=10) -- 2296(line=78, offs=42) +*/ +ATSINSmove_void(tmp31__19, atscntrb_gmp_mpz_init_set_int(ATSPMVrefarg1(ATSSELrecsin(tmp30__19, atstkind_type(atstype_ptrk), atslab__2)), arg0)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2216(line=74, offs=10) -- 2217(line=74, offs=11) +*/ +ATSINSmove(tmpret29__19, tmp30__19) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret29__19) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__19] */ + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42) +*/ +/* +local: +global: ptr_alloc$17$19(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = a(4746) +tmparg = S2Evar(a(4746)) +tmpsub = Some(a(4746) -> S2Ecst(mpz_vt0ype)) +*/ +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__17__19() +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret35__19, atstkind_type(atstype_ptrk)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3708(line=184, offs=1) -- 3749(line=184, offs=42) +*/ +ATSINSflab(__patsflab_ptr_alloc): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42) +*/ +ATSINSmove(tmpret35__19, atspre_ptr_alloc_tsz(ATSPMVsizeof(atscntrb_gmp_mpz))) ; + +ATSfunbody_end() +ATSreturn(tmpret35__19) ; +} /* end of [ATSLIB_056_prelude__ptr_alloc__17__19] */ + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 12679(line=659, offs=3) -- 12718(line=659, offs=42) +*/ +/* +local: +global: gt_g1int_int$44$3(level=1) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4643) +tmparg = S2Evar(tk(4643)) +tmpsub = Some(tk(4643) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__gt_g1int_int__44__3(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret97__3, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp98__3, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12664(line=658, offs=1) -- 12718(line=659, offs=42) +*/ +ATSINSflab(__patsflab_gt_g1int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12705(line=659, offs=29) -- 12716(line=659, offs=40) +*/ +ATSINSmove(tmp98__3, atspre_g1int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12688(line=659, offs=12) -- 12718(line=659, offs=42) +*/ +ATSINSmove(tmpret97__3, atspre_g1int_gt_int(arg0, tmp98__3)) ; + +ATSfunbody_end() +ATSreturn(tmpret97__3) ; +} /* end of [ATSLIB_056_prelude__gt_g1int_int__44__3] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2209(line=74, offs=3) -- 2301(line=80, offs=2) +*/ +/* +local: +global: intinf_make_int$15$20(level=1) +local: +global: +*/ +ATSstatic() +/* +imparg = +tmparg = +tmpsub = Some() +*/ +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__20(atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret29__20, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp30__20, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp31__20) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2191(line=73, offs=1) -- 2301(line=80, offs=2) +*/ +ATSINSflab(__patsflab_intinf_make_int): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2238(line=77, offs=9) -- 2254(line=77, offs=25) +*/ +ATSINSmove(tmp30__20, ATSLIB_056_prelude__ptr_alloc__17__20()) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2264(line=78, offs=10) -- 2296(line=78, offs=42) +*/ +ATSINSmove_void(tmp31__20, atscntrb_gmp_mpz_init_set_int(ATSPMVrefarg1(ATSSELrecsin(tmp30__20, atstkind_type(atstype_ptrk), atslab__2)), arg0)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2216(line=74, offs=10) -- 2217(line=74, offs=11) +*/ +ATSINSmove(tmpret29__20, tmp30__20) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret29__20) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__20] */ + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42) +*/ +/* +local: +global: ptr_alloc$17$20(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = a(4746) +tmparg = S2Evar(a(4746)) +tmpsub = Some(a(4746) -> S2Ecst(mpz_vt0ype)) +*/ +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__17__20() +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret35__20, atstkind_type(atstype_ptrk)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3708(line=184, offs=1) -- 3749(line=184, offs=42) +*/ +ATSINSflab(__patsflab_ptr_alloc): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42) +*/ +ATSINSmove(tmpret35__20, atspre_ptr_alloc_tsz(ATSPMVsizeof(atscntrb_gmp_mpz))) ; + +ATSfunbody_end() +ATSreturn(tmpret35__20) ; +} /* end of [ATSLIB_056_prelude__ptr_alloc__17__20] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 3672(line=146, offs=11) -- 4404(line=164, offs=12) +*/ +/* +local: choose_62$0(level=0), top_loop_89$0(level=1) +global: choose_62$0(level=0), top_loop_89$0(level=1) +local: n$5157(1)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))), k$5158(1)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))) +global: n$5157(1)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))), k$5158(1)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))) +*/ +ATSstatic() +atsvoid_t0ype +top_loop_89(atstkind_t0ype(atstype_int) env0, atstkind_t0ype(atstype_int) env1, atstkind_t0ype(atstype_int) arg0, atsrefarg1_type(atstkind_type(atstype_ptrk)) arg1) +{ +/* tmpvardeclst(beg) */ +// ATStmpdec_void(tmpret213) ; +ATStmpdec(tmp214, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp230) ; +ATStmpdec(tmp231, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmpref232, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmpref233, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmpref247, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp248, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmpref249, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp254, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp257) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 3672(line=146, offs=11) -- 4404(line=164, offs=12) +*/ +ATSINSflab(__patsflab_top_loop_89): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 3751(line=147, offs=9) -- 4404(line=164, offs=12) +*/ +ATScaseof_beg() +/* +** ibranchlst-beg +*/ +ATSbranch_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 3774(line=148, offs=13) -- 3775(line=148, offs=14) +*/ +ATSINSlab(__atstmplab36): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 3696(line=146, offs=35) -- 3697(line=146, offs=36) +*/ +ATSifnthen(ATSCKpat_int(arg0, ATSPMVint(0))) { ATSINSgoto(__atstmplab38) ; } ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 3775(line=148, offs=14) -- 3775(line=148, offs=14) +*/ +ATSINSlab(__atstmplab37): +/* +emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) +*/ +/* +ibranch-mbody: +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 3786(line=148, offs=25) -- 3799(line=148, offs=38) +*/ +ATSINSmove(tmp214, ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__21(ATSPMVi0nt(0))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 3779(line=148, offs=18) -- 3799(line=148, offs=38) +*/ +ATSINSstore(ATSderef(arg1, atstkind_type(atstype_ptrk)), tmp214) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 3779(line=148, offs=18) -- 3799(line=148, offs=38) +*/ +ATSINSmove_void(tmpret213, ATSPMVempty()) ; +ATSbranch_end() + +ATSbranch_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 3813(line=149, offs=14) -- 3813(line=149, offs=14) +*/ +ATSINSlab(__atstmplab38): +/* +emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) +*/ +/* +ibranch-mbody: +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 3818(line=149, offs=19) -- 4404(line=164, offs=12) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 4024(line=156, offs=31) -- 4029(line=156, offs=36) +*/ +ATSINSmove(tmp231, atspre_g1int_sub_int(arg0, ATSPMVi0nt(1))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 4015(line=156, offs=22) -- 4035(line=156, offs=42) +*/ +ATSINSmove_void(tmp230, top_loop_89(env0, env1, tmp231, ATSPMVrefarg1(arg1))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 4052(line=157, offs=17) -- 4055(line=157, offs=20) +*/ +/* +ATSINStmpdec(tmpref232) ; +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 4058(line=157, offs=23) -- 4070(line=157, offs=35) +*/ +ATSINSmove(tmpref232, choose_62(env1, arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 4087(line=158, offs=17) -- 4093(line=158, offs=23) +*/ +/* +ATSINStmpdec(tmpref233) ; +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 4096(line=158, offs=26) -- 4113(line=158, offs=43) +*/ +ATSINSmove(tmpref233, ATSCNTRB_056_HX_056_intinf_vt__pow_int_int__100__1(arg0, env0)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 4130(line=159, offs=17) -- 4140(line=159, offs=27) +*/ +/* +ATSINStmpdec(tmpref247) ; +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 4157(line=159, offs=44) -- 4162(line=159, offs=49) +*/ +ATSINSmove(tmp248, atspre_g1int_sub_int(env1, arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 4143(line=159, offs=30) -- 4171(line=159, offs=58) +*/ +ATSINSmove(tmpref247, negate_if_odd_92(tmp248, tmpref233)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 4188(line=160, offs=17) -- 4198(line=160, offs=27) +*/ +/* +ATSINStmpdec(tmpref249) ; +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 4201(line=160, offs=30) -- 4237(line=160, offs=66) +*/ +ATSINSmove(tmpref249, ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_intinf1__103__1(tmpref232, ATSPMVrefarg0(tmpref247))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 4266(line=161, offs=29) -- 4302(line=161, offs=65) +*/ +ATSINSmove(tmp254, ATSCNTRB_056_HX_056_intinf_vt__add_intinf0_intinf1__6__3(ATSderef(arg1, atstkind_type(atstype_ptrk)), ATSPMVrefarg0(tmpref249))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 4259(line=161, offs=22) -- 4302(line=161, offs=65) +*/ +ATSINSstore(ATSderef(arg1, atstkind_type(atstype_ptrk)), tmp254) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 4324(line=162, offs=22) -- 4346(line=162, offs=44) +*/ +ATSINSmove_void(tmp257, ATSCNTRB_056_HX_056_intinf_vt__intinf_free__12__4(tmpref247)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 4369(line=163, offs=22) -- 4391(line=163, offs=44) +*/ +ATSINSmove_void(tmpret213, ATSCNTRB_056_HX_056_intinf_vt__intinf_free__12__5(tmpref249)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 3818(line=149, offs=19) -- 4404(line=164, offs=12) +*/ +/* +INSletpop() +*/ +ATSbranch_end() + +/* +** ibranchlst-end +*/ +ATScaseof_end() + +ATSfunbody_end() +ATSreturn_void(tmpret213) ; +} /* end of [top_loop_89] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2209(line=74, offs=3) -- 2301(line=80, offs=2) +*/ +/* +local: +global: intinf_make_int$15$21(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = +tmparg = +tmpsub = Some() +*/ +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__21(atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret29__21, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp30__21, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp31__21) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2191(line=73, offs=1) -- 2301(line=80, offs=2) +*/ +ATSINSflab(__patsflab_intinf_make_int): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2238(line=77, offs=9) -- 2254(line=77, offs=25) +*/ +ATSINSmove(tmp30__21, ATSLIB_056_prelude__ptr_alloc__17__21()) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2264(line=78, offs=10) -- 2296(line=78, offs=42) +*/ +ATSINSmove_void(tmp31__21, atscntrb_gmp_mpz_init_set_int(ATSPMVrefarg1(ATSSELrecsin(tmp30__21, atstkind_type(atstype_ptrk), atslab__2)), arg0)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2216(line=74, offs=10) -- 2217(line=74, offs=11) +*/ +ATSINSmove(tmpret29__21, tmp30__21) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret29__21) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__21] */ + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42) +*/ +/* +local: +global: ptr_alloc$17$21(level=3) +local: +global: +*/ +ATSstatic() +/* +imparg = a(4746) +tmparg = S2Evar(a(4746)) +tmpsub = Some(a(4746) -> S2Ecst(mpz_vt0ype)) +*/ +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__17__21() +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret35__21, atstkind_type(atstype_ptrk)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3708(line=184, offs=1) -- 3749(line=184, offs=42) +*/ +ATSINSflab(__patsflab_ptr_alloc): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42) +*/ +ATSINSmove(tmpret35__21, atspre_ptr_alloc_tsz(ATSPMVsizeof(atscntrb_gmp_mpz))) ; + +ATSfunbody_end() +ATSreturn(tmpret35__21) ; +} /* end of [ATSLIB_056_prelude__ptr_alloc__17__21] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 3835(line=150, offs=16) -- 3980(line=154, offs=31) +*/ +/* +local: +global: negate_if_odd_92$0(level=2) +local: +global: +*/ +ATSstatic() +atstkind_type(atstype_ptrk) +negate_if_odd_92(atstkind_t0ype(atstype_int) arg0, atstkind_type(atstype_ptrk) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret219, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp220, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp225, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 3835(line=150, offs=16) -- 3980(line=154, offs=31) +*/ +ATSINSflab(__patsflab_negate_if_odd_92): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 3898(line=151, offs=18) -- 3903(line=151, offs=23) +*/ +ATSINSmove(tmp225, atspre_g0int_mod_int(arg0, ATSPMVi0nt(2))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 3898(line=151, offs=18) -- 3907(line=151, offs=27) +*/ +ATSINSmove(tmp220, ATSLIB_056_prelude__eq_g0int_int__93__1(tmp225, ATSPMVi0nt(0))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 3895(line=151, offs=15) -- 3980(line=154, offs=31) +*/ +ATSif( +tmp220 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 3929(line=152, offs=17) -- 3930(line=152, offs=18) +*/ +ATSINSmove(tmpret219, arg1) ; +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 3966(line=154, offs=17) -- 3979(line=154, offs=30) +*/ +ATSINSmove(tmpret219, ATSCNTRB_056_HX_056_intinf_vt__neg_intinf0__98__1(arg1)) ; + +} /* ATSendif */ +ATSfunbody_end() +ATSreturn(tmpret219) ; +} /* end of [negate_if_odd_92] */ + +#if(0) +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) +*/ +/* +local: +global: eq_g0int_int$93$0(level=0) +local: +global: +*/ +ATSextern() +/* +imparg = tk(4634) +tmparg = S2Evar(tk(4634)) +tmpsub = None() +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__93(atstkind_t0ype(atstyvar_type(tk)) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret221, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp222, atstkind_t0ype(atstyvar_type(tk))) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) +*/ +ATSINSflab(__patsflab_eq_g0int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) +*/ +ATSINSmove(tmp222, PMVtmpltcst(g0int2int)(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) +*/ +ATSINSmove(tmpret221, PMVtmpltcst(g0int_eq)(arg0, tmp222)) ; + +ATSfunbody_end() +ATSreturn(tmpret221) ; +} /* end of [ATSLIB_056_prelude__eq_g0int_int__93] */ +#endif // end of [TEMPLATE] + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) +*/ +/* +local: +global: eq_g0int_int$93$1(level=3) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4634) +tmparg = S2Evar(tk(4634)) +tmpsub = Some(tk(4634) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__93__1(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret221__1, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp222__1, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) +*/ +ATSINSflab(__patsflab_eq_g0int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) +*/ +ATSINSmove(tmp222__1, atspre_g0int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) +*/ +ATSINSmove(tmpret221__1, atspre_g0int_eq_int(arg0, tmp222__1)) ; + +ATSfunbody_end() +ATSreturn(tmpret221__1) ; +} /* end of [ATSLIB_056_prelude__eq_g0int_int__93__1] */ + +#if(0) +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 3629(line=165, offs=3) -- 3684(line=170, offs=2) +*/ +/* +local: +global: neg_intinf0$98$0(level=0) +local: +global: +*/ +ATSextern() +/* +imparg = +tmparg = +tmpsub = None() +*/ +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__neg_intinf0__98(atstkind_type(atstype_ptrk) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret226, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp227) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/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 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 3635(line=165, offs=9) -- 3684(line=170, offs=2) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 3659(line=168, offs=10) -- 3679(line=168, offs=30) +*/ +ATSINSmove_void(tmp227, atscntrb_gmp_mpz_neg1(ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)))) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 3636(line=165, offs=10) -- 3637(line=165, offs=11) +*/ +ATSINSmove(tmpret226, arg0) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 3635(line=165, offs=9) -- 3684(line=170, offs=2) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret226) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__neg_intinf0__98] */ +#endif // end of [TEMPLATE] + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 3629(line=165, offs=3) -- 3684(line=170, offs=2) +*/ +/* +local: +global: neg_intinf0$98$1(level=3) +local: +global: +*/ +ATSstatic() +/* +imparg = +tmparg = +tmpsub = Some() +*/ +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__neg_intinf0__98__1(atstkind_type(atstype_ptrk) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret226__1, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp227__1) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/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 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 3635(line=165, offs=9) -- 3684(line=170, offs=2) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 3659(line=168, offs=10) -- 3679(line=168, offs=30) +*/ +ATSINSmove_void(tmp227__1, atscntrb_gmp_mpz_neg1(ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)))) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 3636(line=165, offs=10) -- 3637(line=165, offs=11) +*/ +ATSINSmove(tmpret226__1, arg0) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 3635(line=165, offs=9) -- 3684(line=170, offs=2) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret226__1) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__neg_intinf0__98__1] */ + +#if(0) +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 14073(line=810, offs=3) -- 14242(line=819, offs=2) +*/ +/* +local: +global: pow_int_int$100$0(level=0) +local: +global: +*/ +ATSextern() +/* +imparg = +tmparg = +tmpsub = None() +*/ +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__pow_int_int__100(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret234, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp235, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp236) ; +// ATStmpdec_void(tmp237) ; +ATStmpdec(tmp238, atstkind_t0ype(atstype_ulint)) ; +ATStmpdec(tmp239, atstkind_t0ype(atstype_ulint)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/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 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 14089(line=811, offs=3) -- 14242(line=819, offs=2) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 14127(line=814, offs=10) -- 14143(line=814, offs=26) +*/ +ATSINSmove(tmp235, PMVtmpltcst(ptr_alloc)()) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 14153(line=815, offs=10) -- 14175(line=815, offs=32) +*/ +ATSINSmove_void(tmp236, atscntrb_gmp_mpz_init(ATSPMVrefarg1(ATSSELrecsin(tmp235, atstkind_type(atstype_ptrk), atslab__2)))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 14215(line=817, offs=31) -- 14224(line=817, offs=40) +*/ +ATSINSmove(tmp238, atspre_g1int2uint_int_ulint(arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 14227(line=817, offs=43) -- 14235(line=817, offs=51) +*/ +ATSINSmove(tmp239, atspre_g1int2uint_int_ulint(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 14187(line=817, offs=3) -- 14237(line=817, offs=53) +*/ +ATSINSmove_void(tmp237, atscntrb_gmp_mpz_ui_pow_ui(ATSPMVrefarg1(ATSSELrecsin(tmp235, atstkind_type(atstype_ptrk), atslab__2)), tmp238, tmp239)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 14089(line=811, offs=3) -- 14105(line=811, offs=19) +*/ +ATSINSmove(tmpret234, ATSPMVcastfn(castvwtp0, atstkind_type(atstype_ptrk), tmp235)) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 14089(line=811, offs=3) -- 14242(line=819, offs=2) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret234) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__pow_int_int__100] */ +#endif // end of [TEMPLATE] + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 14073(line=810, offs=3) -- 14242(line=819, offs=2) +*/ +/* +local: +global: pow_int_int$100$1(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = +tmparg = +tmpsub = Some() +*/ +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__pow_int_int__100__1(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret234__1, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp235__1, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp236__1) ; +// ATStmpdec_void(tmp237__1) ; +ATStmpdec(tmp238__1, atstkind_t0ype(atstype_ulint)) ; +ATStmpdec(tmp239__1, atstkind_t0ype(atstype_ulint)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/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 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 14089(line=811, offs=3) -- 14242(line=819, offs=2) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 14127(line=814, offs=10) -- 14143(line=814, offs=26) +*/ +ATSINSmove(tmp235__1, ATSLIB_056_prelude__ptr_alloc__17__22()) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 14153(line=815, offs=10) -- 14175(line=815, offs=32) +*/ +ATSINSmove_void(tmp236__1, atscntrb_gmp_mpz_init(ATSPMVrefarg1(ATSSELrecsin(tmp235__1, atstkind_type(atstype_ptrk), atslab__2)))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 14215(line=817, offs=31) -- 14224(line=817, offs=40) +*/ +ATSINSmove(tmp238__1, atspre_g1int2uint_int_ulint(arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 14227(line=817, offs=43) -- 14235(line=817, offs=51) +*/ +ATSINSmove(tmp239__1, atspre_g1int2uint_int_ulint(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 14187(line=817, offs=3) -- 14237(line=817, offs=53) +*/ +ATSINSmove_void(tmp237__1, atscntrb_gmp_mpz_ui_pow_ui(ATSPMVrefarg1(ATSSELrecsin(tmp235__1, atstkind_type(atstype_ptrk), atslab__2)), tmp238__1, tmp239__1)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 14089(line=811, offs=3) -- 14105(line=811, offs=19) +*/ +ATSINSmove(tmpret234__1, ATSPMVcastfn(castvwtp0, atstkind_type(atstype_ptrk), tmp235__1)) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 14089(line=811, offs=3) -- 14242(line=819, offs=2) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret234__1) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__pow_int_int__100__1] */ + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42) +*/ +/* +local: +global: ptr_alloc$17$22(level=3) +local: +global: +*/ +ATSstatic() +/* +imparg = a(4746) +tmparg = S2Evar(a(4746)) +tmpsub = Some(a(4746) -> S2Ecst(mpz_vt0ype)) +*/ +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__17__22() +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret35__22, atstkind_type(atstype_ptrk)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3708(line=184, offs=1) -- 3749(line=184, offs=42) +*/ +ATSINSflab(__patsflab_ptr_alloc): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42) +*/ +ATSINSmove(tmpret35__22, atspre_ptr_alloc_tsz(ATSPMVsizeof(atscntrb_gmp_mpz))) ; + +ATSfunbody_end() +ATSreturn(tmpret35__22) ; +} /* end of [ATSLIB_056_prelude__ptr_alloc__17__22] */ + +#if(0) +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7761(line=437, offs=3) -- 7833(line=442, offs=2) +*/ +/* +local: +global: mul_intinf0_intinf1$103$0(level=0) +local: +global: +*/ +ATSextern() +/* +imparg = +tmparg = +tmpsub = None() +*/ +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_intinf1__103(atstkind_type(atstype_ptrk) arg0, atsrefarg0_type(atstkind_type(atstype_ptrk)) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret250, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp251) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7739(line=436, offs=1) -- 7833(line=442, offs=2) +*/ +ATSINSflab(__patsflab_mul_intinf0_intinf1): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7770(line=437, offs=12) -- 7833(line=442, offs=2) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7794(line=440, offs=10) -- 7828(line=440, offs=44) +*/ +ATSINSmove_void(tmp251, atscntrb_gmp_mpz_mul2_mpz(ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), ATSPMVrefarg1(ATSSELrecsin(arg1, atstkind_type(atstype_ptrk), atslab__2)))) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7771(line=437, offs=13) -- 7772(line=437, offs=14) +*/ +ATSINSmove(tmpret250, arg0) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7770(line=437, offs=12) -- 7833(line=442, offs=2) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret250) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_intinf1__103] */ +#endif // end of [TEMPLATE] + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7761(line=437, offs=3) -- 7833(line=442, offs=2) +*/ +/* +local: +global: mul_intinf0_intinf1$103$1(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = +tmparg = +tmpsub = Some() +*/ +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_intinf1__103__1(atstkind_type(atstype_ptrk) arg0, atsrefarg0_type(atstkind_type(atstype_ptrk)) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret250__1, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp251__1) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7739(line=436, offs=1) -- 7833(line=442, offs=2) +*/ +ATSINSflab(__patsflab_mul_intinf0_intinf1): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7770(line=437, offs=12) -- 7833(line=442, offs=2) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7794(line=440, offs=10) -- 7828(line=440, offs=44) +*/ +ATSINSmove_void(tmp251__1, atscntrb_gmp_mpz_mul2_mpz(ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), ATSPMVrefarg1(ATSSELrecsin(arg1, atstkind_type(atstype_ptrk), atslab__2)))) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7771(line=437, offs=13) -- 7772(line=437, offs=14) +*/ +ATSINSmove(tmpret250__1, arg0) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7770(line=437, offs=12) -- 7833(line=442, offs=2) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret250__1) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_intinf1__103__1] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5514(line=298, offs=3) -- 5585(line=303, offs=2) +*/ +/* +local: +global: add_intinf0_intinf1$6$3(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = +tmparg = +tmpsub = Some() +*/ +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__add_intinf0_intinf1__6__3(atstkind_type(atstype_ptrk) arg0, atsrefarg0_type(atstkind_type(atstype_ptrk)) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret8__3, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp9__3) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/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 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5523(line=298, offs=12) -- 5585(line=303, offs=2) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5547(line=301, offs=10) -- 5580(line=301, offs=43) +*/ +ATSINSmove_void(tmp9__3, 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 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5524(line=298, offs=13) -- 5525(line=298, offs=14) +*/ +ATSINSmove(tmpret8__3, arg0) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5523(line=298, offs=12) -- 5585(line=303, offs=2) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret8__3) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__add_intinf0_intinf1__6__3] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2888(line=119, offs=12) -- 2987(line=122, offs=4) +*/ +/* +local: +global: intinf_free$12$4(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = +tmparg = +tmpsub = Some() +*/ +atsvoid_t0ype +ATSCNTRB_056_HX_056_intinf_vt__intinf_free__12__4(atstkind_type(atstype_ptrk) arg0) +{ +/* tmpvardeclst(beg) */ +// ATStmpdec_void(tmpret22__4) ; +// ATStmpdec_void(tmp23__4) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2877(line=119, offs=1) -- 2987(line=122, offs=4) +*/ +ATSINSflab(__patsflab_intinf_free): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2894(line=119, offs=18) -- 2987(line=122, offs=4) +*/ +/* +letpush(beg) +*/ +/* (*nothing*) */ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2936(line=121, offs=12) -- 2955(line=121, offs=31) +*/ +ATSINSmove_void(tmp23__4, atscntrb_gmp_mpz_clear(ATSPMVrefarg1(arg0))) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2959(line=121, offs=35) -- 2983(line=121, offs=59) +*/ +ATSINSmove_void(tmpret22__4, atspre_ptr_free(arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2894(line=119, offs=18) -- 2987(line=122, offs=4) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn_void(tmpret22__4) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_free__12__4] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2888(line=119, offs=12) -- 2987(line=122, offs=4) +*/ +/* +local: +global: intinf_free$12$5(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = +tmparg = +tmpsub = Some() +*/ +atsvoid_t0ype +ATSCNTRB_056_HX_056_intinf_vt__intinf_free__12__5(atstkind_type(atstype_ptrk) arg0) +{ +/* tmpvardeclst(beg) */ +// ATStmpdec_void(tmpret22__5) ; +// ATStmpdec_void(tmp23__5) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2877(line=119, offs=1) -- 2987(line=122, offs=4) +*/ +ATSINSflab(__patsflab_intinf_free): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2894(line=119, offs=18) -- 2987(line=122, offs=4) +*/ +/* +letpush(beg) +*/ +/* (*nothing*) */ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2936(line=121, offs=12) -- 2955(line=121, offs=31) +*/ +ATSINSmove_void(tmp23__5, atscntrb_gmp_mpz_clear(ATSPMVrefarg1(arg0))) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2959(line=121, offs=35) -- 2983(line=121, offs=59) +*/ +ATSINSmove_void(tmpret22__5, atspre_ptr_free(arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2894(line=119, offs=18) -- 2987(line=122, offs=4) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn_void(tmpret22__5) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_free__12__5] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9009(line=513, offs=3) -- 9083(line=518, offs=2) +*/ +/* +local: +global: div_intinf0_intinf1$59$3(level=1) +local: +global: +*/ +ATSstatic() +/* +imparg = +tmparg = +tmpsub = Some() +*/ +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__div_intinf0_intinf1__59__3(atstkind_type(atstype_ptrk) arg0, atsrefarg0_type(atstkind_type(atstype_ptrk)) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret141__3, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp142__3) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/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 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9018(line=513, offs=12) -- 9083(line=518, offs=2) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9042(line=516, offs=10) -- 9078(line=516, offs=46) +*/ +ATSINSmove_void(tmp142__3, 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 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9019(line=513, offs=13) -- 9020(line=513, offs=14) +*/ +ATSINSmove(tmpret141__3, arg0) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 9018(line=513, offs=12) -- 9083(line=518, offs=2) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret141__3) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__div_intinf0_intinf1__59__3] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2888(line=119, offs=12) -- 2987(line=122, offs=4) +*/ +/* +local: +global: intinf_free$12$6(level=1) +local: +global: +*/ +ATSstatic() +/* +imparg = +tmparg = +tmpsub = Some() +*/ +atsvoid_t0ype +ATSCNTRB_056_HX_056_intinf_vt__intinf_free__12__6(atstkind_type(atstype_ptrk) arg0) +{ +/* tmpvardeclst(beg) */ +// ATStmpdec_void(tmpret22__6) ; +// ATStmpdec_void(tmp23__6) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2877(line=119, offs=1) -- 2987(line=122, offs=4) +*/ +ATSINSflab(__patsflab_intinf_free): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2894(line=119, offs=18) -- 2987(line=122, offs=4) +*/ +/* +letpush(beg) +*/ +/* (*nothing*) */ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2936(line=121, offs=12) -- 2955(line=121, offs=31) +*/ +ATSINSmove_void(tmp23__6, atscntrb_gmp_mpz_clear(ATSPMVrefarg1(arg0))) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2959(line=121, offs=35) -- 2983(line=121, offs=59) +*/ +ATSINSmove_void(tmpret22__6, atspre_ptr_free(arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2894(line=119, offs=18) -- 2987(line=122, offs=4) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn_void(tmpret22__6) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_free__12__6] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 4603(line=175, offs=4) -- 5147(line=195, offs=6) +*/ +/* +local: stirling2_79$0(level=0) +global: fact_ref_28$0(level=0), fact_34$0(level=0), choose_62$0(level=0), stirling2_79$0(level=0), bell_110$0(level=0) +local: +global: +*/ +ATSstatic() +atstkind_type(atstype_ptrk) +bell_110(atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret271, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmpref286, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp287) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 4603(line=175, offs=4) -- 5147(line=195, offs=6) +*/ +ATSINSflab(__patsflab_bell_110): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 4641(line=176, offs=3) -- 5147(line=195, offs=6) +*/ +/* +letpush(beg) +*/ +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 4997(line=187, offs=5) -- 5141(line=194, offs=10) +*/ +ATScaseof_beg() +/* +** ibranchlst-beg +*/ +ATSbranch_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 5016(line=188, offs=9) -- 5017(line=188, offs=10) +*/ +ATSINSlab(__atstmplab42): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 4616(line=175, offs=17) -- 4617(line=175, offs=18) +*/ +ATSifnthen(ATSCKpat_int(arg0, ATSPMVint(0))) { ATSINSgoto(__atstmplab44) ; } ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 5017(line=188, offs=10) -- 5017(line=188, offs=10) +*/ +ATSINSlab(__atstmplab43): +/* +emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) +*/ +/* +ibranch-mbody: +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 5021(line=188, offs=14) -- 5034(line=188, offs=27) +*/ +ATSINSmove(tmpret271, ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__22(ATSPMVi0nt(1))) ; + +ATSbranch_end() + +ATSbranch_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 5044(line=189, offs=10) -- 5044(line=189, offs=10) +*/ +ATSINSlab(__atstmplab44): +/* +emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) +*/ +/* +ibranch-mbody: +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 5049(line=189, offs=15) -- 5141(line=194, offs=10) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 5065(line=190, offs=13) -- 5068(line=190, offs=16) +*/ +/* +ATSINStmpdec(tmpref286) ; +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 5094(line=191, offs=18) -- 5110(line=191, offs=34) +*/ +ATSINSmove_void(tmp287, sum_loop_111(arg0, arg0, ATSPMVrefarg1(ATSPMVptrof(tmpref286)))) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 5128(line=193, offs=9) -- 5131(line=193, offs=12) +*/ +ATSINSmove(tmpret271, tmpref286) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 5049(line=189, offs=15) -- 5141(line=194, offs=10) +*/ +/* +INSletpop() +*/ +ATSbranch_end() + +/* +** ibranchlst-end +*/ +ATScaseof_end() + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 4641(line=176, offs=3) -- 5147(line=195, offs=6) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret271) ; +} /* end of [bell_110] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 4653(line=177, offs=9) -- 4987(line=185, offs=10) +*/ +/* +local: stirling2_79$0(level=0), sum_loop_111$0(level=1) +global: stirling2_79$0(level=0), sum_loop_111$0(level=1) +local: n$5174(1)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))) +global: n$5174(1)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))) +*/ +ATSstatic() +atsvoid_t0ype +sum_loop_111(atstkind_t0ype(atstype_int) env0, atstkind_t0ype(atstype_int) arg0, atsrefarg1_type(atstkind_type(atstype_ptrk)) arg1) +{ +/* tmpvardeclst(beg) */ +// ATStmpdec_void(tmpret272) ; +ATStmpdec(tmp273, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp274) ; +ATStmpdec(tmp275, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmpref276, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp277, atstkind_type(atstype_ptrk)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 4653(line=177, offs=9) -- 4987(line=185, offs=10) +*/ +ATSINSflab(__patsflab_sum_loop_111): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 4743(line=178, offs=7) -- 4987(line=185, offs=10) +*/ +ATScaseof_beg() +/* +** ibranchlst-beg +*/ +ATSbranch_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 4764(line=179, offs=11) -- 4765(line=179, offs=12) +*/ +ATSINSlab(__atstmplab39): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 4690(line=177, offs=46) -- 4691(line=177, offs=47) +*/ +ATSifnthen(ATSCKpat_int(arg0, ATSPMVint(1))) { ATSINSgoto(__atstmplab41) ; } ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 4765(line=179, offs=12) -- 4765(line=179, offs=12) +*/ +ATSINSlab(__atstmplab40): +/* +emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) +*/ +/* +ibranch-mbody: +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 4776(line=179, offs=23) -- 4791(line=179, offs=38) +*/ +ATSINSmove(tmp273, stirling2_79(env0, ATSPMVi0nt(1))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 4769(line=179, offs=16) -- 4791(line=179, offs=38) +*/ +ATSINSstore(ATSderef(arg1, atstkind_type(atstype_ptrk)), tmp273) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 4769(line=179, offs=16) -- 4791(line=179, offs=38) +*/ +ATSINSmove_void(tmpret272, ATSPMVempty()) ; +ATSbranch_end() + +ATSbranch_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 4803(line=180, offs=12) -- 4803(line=180, offs=12) +*/ +ATSINSlab(__atstmplab41): +/* +emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) +*/ +/* +ibranch-mbody: +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 4808(line=180, offs=17) -- 4987(line=185, offs=10) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 4838(line=181, offs=29) -- 4843(line=181, offs=34) +*/ +ATSINSmove(tmp275, atspre_g1int_sub_int(arg0, ATSPMVi0nt(1))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 4829(line=181, offs=20) -- 4849(line=181, offs=40) +*/ +ATSINSmove_void(tmp274, sum_loop_111(env0, tmp275, ATSPMVrefarg1(arg1))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 4864(line=182, offs=15) -- 4867(line=182, offs=18) +*/ +/* +ATSINStmpdec(tmpref276) ; +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 4870(line=182, offs=21) -- 4885(line=182, offs=36) +*/ +ATSINSmove(tmpref276, stirling2_79(env0, arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 4912(line=183, offs=27) -- 4941(line=183, offs=56) +*/ +ATSINSmove(tmp277, ATSCNTRB_056_HX_056_intinf_vt__add_intinf0_intinf1__6__4(ATSderef(arg1, atstkind_type(atstype_ptrk)), ATSPMVrefarg0(tmpref276))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 4905(line=183, offs=20) -- 4941(line=183, offs=56) +*/ +ATSINSstore(ATSderef(arg1, atstkind_type(atstype_ptrk)), tmp277) ; +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 4961(line=184, offs=20) -- 4976(line=184, offs=35) +*/ +ATSINSmove_void(tmpret272, ATSCNTRB_056_HX_056_intinf_vt__intinf_free__12__7(tmpref276)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 4808(line=180, offs=17) -- 4987(line=185, offs=10) +*/ +/* +INSletpop() +*/ +ATSbranch_end() + +/* +** ibranchlst-end +*/ +ATScaseof_end() + +ATSfunbody_end() +ATSreturn_void(tmpret272) ; +} /* end of [sum_loop_111] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5514(line=298, offs=3) -- 5585(line=303, offs=2) +*/ +/* +local: +global: add_intinf0_intinf1$6$4(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = +tmparg = +tmpsub = Some() +*/ +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__add_intinf0_intinf1__6__4(atstkind_type(atstype_ptrk) arg0, atsrefarg0_type(atstkind_type(atstype_ptrk)) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret8__4, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp9__4) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/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 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5523(line=298, offs=12) -- 5585(line=303, offs=2) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5547(line=301, offs=10) -- 5580(line=301, offs=43) +*/ +ATSINSmove_void(tmp9__4, 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 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5524(line=298, offs=13) -- 5525(line=298, offs=14) +*/ +ATSINSmove(tmpret8__4, arg0) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5523(line=298, offs=12) -- 5585(line=303, offs=2) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret8__4) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__add_intinf0_intinf1__6__4] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2888(line=119, offs=12) -- 2987(line=122, offs=4) +*/ +/* +local: +global: intinf_free$12$7(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = +tmparg = +tmpsub = Some() +*/ +atsvoid_t0ype +ATSCNTRB_056_HX_056_intinf_vt__intinf_free__12__7(atstkind_type(atstype_ptrk) arg0) +{ +/* tmpvardeclst(beg) */ +// ATStmpdec_void(tmpret22__7) ; +// ATStmpdec_void(tmp23__7) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2877(line=119, offs=1) -- 2987(line=122, offs=4) +*/ +ATSINSflab(__patsflab_intinf_free): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2894(line=119, offs=18) -- 2987(line=122, offs=4) +*/ +/* +letpush(beg) +*/ +/* (*nothing*) */ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2936(line=121, offs=12) -- 2955(line=121, offs=31) +*/ +ATSINSmove_void(tmp23__7, atscntrb_gmp_mpz_clear(ATSPMVrefarg1(arg0))) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2959(line=121, offs=35) -- 2983(line=121, offs=59) +*/ +ATSINSmove_void(tmpret22__7, atspre_ptr_free(arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2894(line=119, offs=18) -- 2987(line=122, offs=4) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn_void(tmpret22__7) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_free__12__7] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2209(line=74, offs=3) -- 2301(line=80, offs=2) +*/ +/* +local: +global: intinf_make_int$15$22(level=1) +local: +global: +*/ +ATSstatic() +/* +imparg = +tmparg = +tmpsub = Some() +*/ +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__22(atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret29__22, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp30__22, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp31__22) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2191(line=73, offs=1) -- 2301(line=80, offs=2) +*/ +ATSINSflab(__patsflab_intinf_make_int): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2238(line=77, offs=9) -- 2254(line=77, offs=25) +*/ +ATSINSmove(tmp30__22, ATSLIB_056_prelude__ptr_alloc__17__23()) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2264(line=78, offs=10) -- 2296(line=78, offs=42) +*/ +ATSINSmove_void(tmp31__22, atscntrb_gmp_mpz_init_set_int(ATSPMVrefarg1(ATSSELrecsin(tmp30__22, atstkind_type(atstype_ptrk), atslab__2)), arg0)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2216(line=74, offs=10) -- 2217(line=74, offs=11) +*/ +ATSINSmove(tmpret29__22, tmp30__22) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret29__22) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__22] */ + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42) +*/ +/* +local: +global: ptr_alloc$17$23(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = a(4746) +tmparg = S2Evar(a(4746)) +tmpsub = Some(a(4746) -> S2Ecst(mpz_vt0ype)) +*/ +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__17__23() +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret35__23, atstkind_type(atstype_ptrk)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3708(line=184, offs=1) -- 3749(line=184, offs=42) +*/ +ATSINSflab(__patsflab_ptr_alloc): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42) +*/ +ATSINSmove(tmpret35__23, atspre_ptr_alloc_tsz(ATSPMVsizeof(atscntrb_gmp_mpz))) ; + +ATSfunbody_end() +ATSreturn(tmpret35__23) ; +} /* end of [ATSLIB_056_prelude__ptr_alloc__17__23] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 5152(line=197, offs=4) -- 5575(line=213, offs=6) +*/ +/* +local: choose_62$0(level=0) +global: fact_ref_28$0(level=0), fact_34$0(level=0), choose_62$0(level=0), max_regions_116$0(level=0) +local: +global: +*/ +ATSstatic() +atstkind_type(atstype_ptrk) +max_regions_116(atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret288, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmpref303, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp304) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 5152(line=197, offs=4) -- 5575(line=213, offs=6) +*/ +ATSINSflab(__patsflab_max_regions_116): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 5197(line=198, offs=3) -- 5575(line=213, offs=6) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 5525(line=209, offs=9) -- 5526(line=209, offs=10) +*/ +/* +ATSINStmpdec(tmpref303) ; +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 5548(line=210, offs=14) -- 5558(line=210, offs=24) +*/ +ATSINSmove_void(tmp304, loop_117(arg0, ATSPMVi0nt(4), ATSPMVrefarg1(ATSPMVptrof(tmpref303)))) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 5568(line=212, offs=5) -- 5569(line=212, offs=6) +*/ +ATSINSmove(tmpret288, tmpref303) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 5197(line=198, offs=3) -- 5575(line=213, offs=6) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret288) ; +} /* end of [max_regions_116] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 5209(line=199, offs=9) -- 5511(line=207, offs=10) +*/ +/* +local: choose_62$0(level=0), loop_117$0(level=1) +global: choose_62$0(level=0), loop_117$0(level=1) +local: n$5183(1)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))) +global: n$5183(1)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))) +*/ +ATSstatic() +atsvoid_t0ype +loop_117(atstkind_t0ype(atstype_int) env0, atstkind_t0ype(atstype_int) arg0, atsrefarg1_type(atstkind_type(atstype_ptrk)) arg1) +{ +/* tmpvardeclst(beg) */ +// ATStmpdec_void(tmpret289) ; +ATStmpdec(tmp290, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp295) ; +ATStmpdec(tmp296, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmpref297, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp298, atstkind_type(atstype_ptrk)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 5209(line=199, offs=9) -- 5511(line=207, offs=10) +*/ +ATSINSflab(__patsflab_loop_117): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 5282(line=200, offs=7) -- 5511(line=207, offs=10) +*/ +ATScaseof_beg() +/* +** ibranchlst-beg +*/ +ATSbranch_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 5303(line=201, offs=11) -- 5304(line=201, offs=12) +*/ +ATSINSlab(__atstmplab45): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 5229(line=199, offs=29) -- 5230(line=199, offs=30) +*/ +ATSifnthen(ATSCKpat_int(arg0, ATSPMVint(0))) { ATSINSgoto(__atstmplab47) ; } ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 5304(line=201, offs=12) -- 5304(line=201, offs=12) +*/ +ATSINSlab(__atstmplab46): +/* +emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) +*/ +/* +ibranch-mbody: +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 5315(line=201, offs=23) -- 5328(line=201, offs=36) +*/ +ATSINSmove(tmp290, ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__23(ATSPMVi0nt(1))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 5308(line=201, offs=16) -- 5328(line=201, offs=36) +*/ +ATSINSstore(ATSderef(arg1, atstkind_type(atstype_ptrk)), tmp290) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 5308(line=201, offs=16) -- 5328(line=201, offs=36) +*/ +ATSINSmove_void(tmpret289, ATSPMVempty()) ; +ATSbranch_end() + +ATSbranch_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 5340(line=202, offs=12) -- 5340(line=202, offs=12) +*/ +ATSINSlab(__atstmplab47): +/* +emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) +*/ +/* +ibranch-mbody: +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 5345(line=202, offs=17) -- 5511(line=207, offs=10) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 5371(line=203, offs=25) -- 5376(line=203, offs=30) +*/ +ATSINSmove(tmp296, atspre_g1int_sub_int(arg0, ATSPMVi0nt(1))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 5366(line=203, offs=20) -- 5382(line=203, offs=36) +*/ +ATSINSmove_void(tmp295, loop_117(env0, tmp296, ATSPMVrefarg1(arg1))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 5397(line=204, offs=15) -- 5398(line=204, offs=16) +*/ +/* +ATSINStmpdec(tmpref297) ; +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 5401(line=204, offs=19) -- 5413(line=204, offs=31) +*/ +ATSINSmove(tmpref297, choose_62(env0, arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 5440(line=205, offs=27) -- 5467(line=205, offs=54) +*/ +ATSINSmove(tmp298, ATSCNTRB_056_HX_056_intinf_vt__add_intinf0_intinf1__6__5(ATSderef(arg1, atstkind_type(atstype_ptrk)), ATSPMVrefarg0(tmpref297))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 5433(line=205, offs=20) -- 5467(line=205, offs=54) +*/ +ATSINSstore(ATSderef(arg1, atstkind_type(atstype_ptrk)), tmp298) ; +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 5487(line=206, offs=20) -- 5500(line=206, offs=33) +*/ +ATSINSmove_void(tmpret289, ATSCNTRB_056_HX_056_intinf_vt__intinf_free__12__8(tmpref297)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 5345(line=202, offs=17) -- 5511(line=207, offs=10) +*/ +/* +INSletpop() +*/ +ATSbranch_end() + +/* +** ibranchlst-end +*/ +ATScaseof_end() + +ATSfunbody_end() +ATSreturn_void(tmpret289) ; +} /* end of [loop_117] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2209(line=74, offs=3) -- 2301(line=80, offs=2) +*/ +/* +local: +global: intinf_make_int$15$23(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = +tmparg = +tmpsub = Some() +*/ +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__23(atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret29__23, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp30__23, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp31__23) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2191(line=73, offs=1) -- 2301(line=80, offs=2) +*/ +ATSINSflab(__patsflab_intinf_make_int): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2238(line=77, offs=9) -- 2254(line=77, offs=25) +*/ +ATSINSmove(tmp30__23, ATSLIB_056_prelude__ptr_alloc__17__24()) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2264(line=78, offs=10) -- 2296(line=78, offs=42) +*/ +ATSINSmove_void(tmp31__23, atscntrb_gmp_mpz_init_set_int(ATSPMVrefarg1(ATSSELrecsin(tmp30__23, atstkind_type(atstype_ptrk), atslab__2)), arg0)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2216(line=74, offs=10) -- 2217(line=74, offs=11) +*/ +ATSINSmove(tmpret29__23, tmp30__23) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret29__23) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__15__23] */ + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42) +*/ +/* +local: +global: ptr_alloc$17$24(level=3) +local: +global: +*/ +ATSstatic() +/* +imparg = a(4746) +tmparg = S2Evar(a(4746)) +tmpsub = Some(a(4746) -> S2Ecst(mpz_vt0ype)) +*/ +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__17__24() +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret35__24, atstkind_type(atstype_ptrk)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3708(line=184, offs=1) -- 3749(line=184, offs=42) +*/ +ATSINSflab(__patsflab_ptr_alloc): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42) +*/ +ATSINSmove(tmpret35__24, atspre_ptr_alloc_tsz(ATSPMVsizeof(atscntrb_gmp_mpz))) ; + +ATSfunbody_end() +ATSreturn(tmpret35__24) ; +} /* end of [ATSLIB_056_prelude__ptr_alloc__17__24] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5514(line=298, offs=3) -- 5585(line=303, offs=2) +*/ +/* +local: +global: add_intinf0_intinf1$6$5(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = +tmparg = +tmpsub = Some() +*/ +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__add_intinf0_intinf1__6__5(atstkind_type(atstype_ptrk) arg0, atsrefarg0_type(atstkind_type(atstype_ptrk)) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret8__5, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp9__5) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/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 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5523(line=298, offs=12) -- 5585(line=303, offs=2) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5547(line=301, offs=10) -- 5580(line=301, offs=43) +*/ +ATSINSmove_void(tmp9__5, 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 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5524(line=298, offs=13) -- 5525(line=298, offs=14) +*/ +ATSINSmove(tmpret8__5, arg0) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5523(line=298, offs=12) -- 5585(line=303, offs=2) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret8__5) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__add_intinf0_intinf1__6__5] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2888(line=119, offs=12) -- 2987(line=122, offs=4) +*/ +/* +local: +global: intinf_free$12$8(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = +tmparg = +tmpsub = Some() +*/ +atsvoid_t0ype +ATSCNTRB_056_HX_056_intinf_vt__intinf_free__12__8(atstkind_type(atstype_ptrk) arg0) +{ +/* tmpvardeclst(beg) */ +// ATStmpdec_void(tmpret22__8) ; +// ATStmpdec_void(tmp23__8) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2877(line=119, offs=1) -- 2987(line=122, offs=4) +*/ +ATSINSflab(__patsflab_intinf_free): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2894(line=119, offs=18) -- 2987(line=122, offs=4) +*/ +/* +letpush(beg) +*/ +/* (*nothing*) */ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2936(line=121, offs=12) -- 2955(line=121, offs=31) +*/ +ATSINSmove_void(tmp23__8, atscntrb_gmp_mpz_clear(ATSPMVrefarg1(arg0))) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2959(line=121, offs=35) -- 2983(line=121, offs=59) +*/ +ATSINSmove_void(tmpret22__8, atspre_ptr_free(arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2894(line=119, offs=18) -- 2987(line=122, offs=4) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn_void(tmpret22__8) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_free__12__8] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 5598(line=215, offs=22) -- 5621(line=216, offs=15) +*/ +/* +local: choose_62$0(level=0) +global: fact_ref_28$0(level=0), fact_34$0(level=0), choose_62$0(level=0), choose_ats$122$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(tmpret305, atstkind_type(atstype_ptrk)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 5587(line=215, offs=11) -- 5621(line=216, offs=15) +*/ +ATSINSflab(__patsflab_choose_ats): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 5609(line=216, offs=3) -- 5621(line=216, offs=15) +*/ +ATSINSmove(tmpret305, choose_62(arg0, arg1)) ; + +ATSfunbody_end() +ATSreturn(tmpret305) ; +} /* end of [choose_ats] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 5654(line=218, offs=32) -- 5669(line=219, offs=10) +*/ +/* +local: dfact_41$0(level=0) +global: dfact_ref_35$0(level=0), dfact_41$0(level=0), double_factorial_ats$123$0(level=0) +local: +global: +*/ +ATSextern() +atstkind_type(atstype_ptrk) +double_factorial_ats(atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret306, atstkind_type(atstype_ptrk)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 5633(line=218, offs=11) -- 5670(line=219, offs=11) +*/ +ATSINSflab(__patsflab_double_factorial_ats): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 5662(line=219, offs=3) -- 5669(line=219, offs=10) +*/ +ATSINSmove(tmpret306, dfact_41(arg0)) ; + +ATSfunbody_end() +ATSreturn(tmpret306) ; +} /* end of [double_factorial_ats] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 5696(line=221, offs=25) -- 5710(line=222, offs=9) +*/ +/* +local: fact_34$0(level=0) +global: fact_ref_28$0(level=0), fact_34$0(level=0), factorial_ats$124$0(level=0) +local: +global: +*/ +ATSextern() +atstkind_type(atstype_ptrk) +factorial_ats(atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret307, atstkind_type(atstype_ptrk)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 5682(line=221, offs=11) -- 5711(line=222, offs=10) +*/ +ATSINSflab(__patsflab_factorial_ats): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 5704(line=222, offs=3) -- 5710(line=222, offs=9) +*/ +ATSINSmove(tmpret307, fact_34(arg0)) ; + +ATSfunbody_end() +ATSreturn(tmpret307) ; +} /* end of [factorial_ats] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 5735(line=224, offs=23) -- 5752(line=225, offs=12) +*/ +/* +local: catalan_50$0(level=0) +global: fact_ref_28$0(level=0), fact_34$0(level=0), catalan_50$0(level=0), catalan_ats$125$0(level=0) +local: +global: +*/ +ATSextern() +atstkind_type(atstype_ptrk) +catalan_ats(atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret308, atstkind_type(atstype_ptrk)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 5723(line=224, offs=11) -- 5753(line=225, offs=13) +*/ +ATSINSflab(__patsflab_catalan_ats): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 5743(line=225, offs=3) -- 5752(line=225, offs=12) +*/ +ATSINSmove(tmpret308, catalan_50(arg0)) ; + +ATSfunbody_end() +ATSreturn(tmpret308) ; +} /* end of [catalan_ats] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 5782(line=227, offs=28) -- 5804(line=228, offs=17) +*/ +/* +local: derangements_0$0(level=0) +global: derangements_0$0(level=0), derangements_ats$126$0(level=0) +local: +global: +*/ +ATSextern() +atstkind_type(atstype_ptrk) +derangements_ats(atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret309, atstkind_type(atstype_ptrk)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 5765(line=227, offs=11) -- 5805(line=228, offs=18) +*/ +ATSINSflab(__patsflab_derangements_ats): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 5790(line=228, offs=3) -- 5804(line=228, offs=17) +*/ +ATSINSmove(tmpret309, derangements_0(arg0)) ; + +ATSfunbody_end() +ATSreturn(tmpret309) ; +} /* end of [derangements_ats] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 5834(line=230, offs=28) -- 5863(line=231, offs=21) +*/ +/* +local: permutations_42$0(level=0) +global: permutations_42$0(level=0), permutations_ats$127$0(level=0) +local: +global: +*/ +ATSextern() +atstkind_type(atstype_ptrk) +permutations_ats(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret310, atstkind_type(atstype_ptrk)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 5817(line=230, offs=11) -- 5863(line=231, offs=21) +*/ +ATSINSflab(__patsflab_permutations_ats): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 5845(line=231, offs=3) -- 5863(line=231, offs=21) +*/ +ATSINSmove(tmpret310, permutations_42(arg0, arg1)) ; + +ATSfunbody_end() +ATSreturn(tmpret310) ; +} /* end of [permutations_ats] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 5889(line=233, offs=25) -- 5915(line=234, offs=18) +*/ +/* +local: stirling2_79$0(level=0) +global: fact_ref_28$0(level=0), fact_34$0(level=0), choose_62$0(level=0), stirling2_79$0(level=0), stirling2_ats$128$0(level=0) +local: +global: +*/ +ATSextern() +atstkind_type(atstype_ptrk) +stirling2_ats(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret311, atstkind_type(atstype_ptrk)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 5875(line=233, offs=11) -- 5915(line=234, offs=18) +*/ +ATSINSflab(__patsflab_stirling2_ats): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 5900(line=234, offs=3) -- 5915(line=234, offs=18) +*/ +ATSINSmove(tmpret311, stirling2_79(arg0, arg1)) ; + +ATSfunbody_end() +ATSreturn(tmpret311) ; +} /* end of [stirling2_ats] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 5943(line=236, offs=27) -- 5964(line=237, offs=16) +*/ +/* +local: max_regions_116$0(level=0) +global: fact_ref_28$0(level=0), fact_34$0(level=0), choose_62$0(level=0), max_regions_116$0(level=0), max_regions_ats$129$0(level=0) +local: +global: +*/ +ATSextern() +atstkind_type(atstype_ptrk) +max_regions_ats(atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret312, atstkind_type(atstype_ptrk)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 5927(line=236, offs=11) -- 5965(line=237, offs=17) +*/ +ATSINSflab(__patsflab_max_regions_ats): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 5951(line=237, offs=3) -- 5964(line=237, offs=16) +*/ +ATSINSmove(tmpret312, max_regions_116(arg0)) ; + +ATSfunbody_end() +ATSreturn(tmpret312) ; +} /* end of [max_regions_ats] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 5986(line=239, offs=20) -- 6000(line=240, offs=9) +*/ +/* +local: bell_110$0(level=0) +global: fact_ref_28$0(level=0), fact_34$0(level=0), choose_62$0(level=0), stirling2_79$0(level=0), bell_110$0(level=0), bell_ats$130$0(level=0) +local: +global: +*/ +ATSextern() +atstkind_type(atstype_ptrk) +bell_ats(atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret313, atstkind_type(atstype_ptrk)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 5977(line=239, offs=11) -- 6001(line=240, offs=10) +*/ +ATSINSflab(__patsflab_bell_ats): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/combinatorics.dats: 5994(line=240, offs=3) -- 6000(line=240, offs=9) +*/ +ATSINSmove(tmpret313, bell_110(arg0)) ; + +ATSfunbody_end() +ATSreturn(tmpret313) ; +} /* end of [bell_ats] */ + +/* +** for initialization(dynloading) +*/ +ATSdynloadflag_minit(_057_home_057_vanessa_057_dev_057_haskell_057_fast_055_arithmetic_057_fast_055_arithmetic_057_ats_055_src_057_combinatorics_056_dats__dynloadflag) ; +ATSextern() +atsvoid_t0ype +_057_home_057_vanessa_057_dev_057_haskell_057_fast_055_arithmetic_057_fast_055_arithmetic_057_ats_055_src_057_combinatorics_056_dats__dynload() +{ +ATSfunbody_beg() +ATSdynload(/*void*/) +ATSdynloadflag_sta( +_057_home_057_vanessa_057_dev_057_haskell_057_fast_055_arithmetic_057_fast_055_arithmetic_057_ats_055_src_057_combinatorics_056_dats__dynloadflag +) ; +ATSif( +ATSCKiseqz( +_057_home_057_vanessa_057_dev_057_haskell_057_fast_055_arithmetic_057_fast_055_arithmetic_057_ats_055_src_057_combinatorics_056_dats__dynloadflag +) +) ATSthen() { +ATSdynloadset(_057_home_057_vanessa_057_dev_057_haskell_057_fast_055_arithmetic_057_fast_055_arithmetic_057_ats_055_src_057_combinatorics_056_dats__dynloadflag) ; /* dynexnlst-initize(beg) */ diff --git a/cbits/number-theory.c b/cbits/number-theory.c --- a/cbits/number-theory.c +++ b/cbits/number-theory.c @@ -1,11505 +1,11379 @@ /* ** -** The C code is generated by [ATS/Postiats-0-3-13] -** -*/ - -/* -** include runtime header files -*/ -#ifndef _ATS_CCOMP_HEADER_NONE_ -#include "pats_ccomp_config.h" -#include "pats_ccomp_basics.h" -#include "pats_ccomp_typedefs.h" -#include "pats_ccomp_instrset.h" -#include "pats_ccomp_memalloc.h" -#ifndef _ATS_CCOMP_EXCEPTION_NONE_ -#include "pats_ccomp_memalloca.h" -#include "pats_ccomp_exception.h" -#endif // end of [_ATS_CCOMP_EXCEPTION_NONE_] -#endif /* _ATS_CCOMP_HEADER_NONE_ */ - - -/* -** include prelude cats files -*/ -#ifndef _ATS_CCOMP_PRELUDE_NONE_ -// -#include "prelude/CATS/basics.cats" -#include "prelude/CATS/integer.cats" -#include "prelude/CATS/pointer.cats" -#include "prelude/CATS/integer_long.cats" -#include "prelude/CATS/integer_size.cats" -#include "prelude/CATS/integer_short.cats" -#include "prelude/CATS/bool.cats" -#include "prelude/CATS/char.cats" -#include "prelude/CATS/float.cats" -#include "prelude/CATS/integer_ptr.cats" -#include "prelude/CATS/integer_fixed.cats" -#include "prelude/CATS/memory.cats" -#include "prelude/CATS/string.cats" -#include "prelude/CATS/strptr.cats" -// -#include "prelude/CATS/fprintf.cats" -// -#include "prelude/CATS/filebas.cats" -// -#include "prelude/CATS/list.cats" -#include "prelude/CATS/option.cats" -#include "prelude/CATS/array.cats" -#include "prelude/CATS/arrayptr.cats" -#include "prelude/CATS/arrayref.cats" -#include "prelude/CATS/matrix.cats" -#include "prelude/CATS/matrixptr.cats" -// -#endif /* _ATS_CCOMP_PRELUDE_NONE_ */ -/* -** for user-supplied prelude -*/ -#ifdef _ATS_CCOMP_PRELUDE_USER_ -// -#include _ATS_CCOMP_PRELUDE_USER_ -// -#endif /* _ATS_CCOMP_PRELUDE_USER_ */ -/* -** for user2-supplied prelude -*/ -#ifdef _ATS_CCOMP_PRELUDE_USER2_ -// -#include _ATS_CCOMP_PRELUDE_USER2_ -// -#endif /* _ATS_CCOMP_PRELUDE_USER2_ */ - -/* -staload-prologues(beg) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/basics.dats: 1636(line=50, offs=1) -- 1675(line=50, offs=40) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 1596(line=49, offs=1) -- 1635(line=49, offs=40) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats: 1533(line=44, offs=1) -- 1572(line=44, offs=40) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer_long.dats: 1602(line=49, offs=1) -- 1641(line=49, offs=40) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer_size.dats: 1597(line=49, offs=1) -- 1636(line=49, offs=40) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer_short.dats: 1603(line=49, offs=1) -- 1642(line=49, offs=40) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/char.dats: 1610(line=48, offs=1) -- 1649(line=48, offs=40) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/float.dats: 1636(line=50, offs=1) -- 1675(line=50, offs=40) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/string.dats: 1631(line=50, offs=1) -- 1670(line=50, offs=40) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/strptr.dats: 1629(line=50, offs=1) -- 1668(line=50, offs=40) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/strptr.dats: 1691(line=54, offs=1) -- 1738(line=54, offs=48) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 1596(line=49, offs=1) -- 1635(line=49, offs=40) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer_ptr.dats: 1601(line=49, offs=1) -- 1640(line=49, offs=40) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer_fixed.dats: 1603(line=49, offs=1) -- 1642(line=49, offs=40) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/memory.dats: 1410(line=38, offs=1) -- 1449(line=39, offs=32) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/filebas.dats: 1607(line=49, offs=1) -- 1646(line=50, offs=32) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/filebas.dats: 1669(line=54, offs=1) -- 1715(line=55, offs=39) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 1596(line=49, offs=1) -- 1635(line=49, offs=40) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/filebas.dats: 1738(line=59, offs=1) -- 1783(line=60, offs=38) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/libats/libc/SATS/stdio.sats: 1390(line=36, offs=1) -- 1437(line=39, offs=3) -*/ - -#include \ -"libats/libc/CATS/stdio.cats" -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/libats/libc/SATS/stdio.sats: 1950(line=69, offs=1) -- 1999(line=71, offs=34) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/libats/libc/SATS/sys/types.sats: 1390(line=36, offs=1) -- 1441(line=39, offs=3) -*/ - -#include \ -"libats/libc/CATS/sys/types.cats" -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/filebas.dats: 1865(line=66, offs=1) -- 1912(line=66, offs=48) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/libats/libc/SATS/sys/stat.sats: 1390(line=36, offs=1) -- 1440(line=39, offs=3) -*/ - -#include \ -"libats/libc/CATS/sys/stat.cats" -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/libats/libc/SATS/sys/stat.sats: 1756(line=58, offs=1) -- 1805(line=60, offs=34) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/libats/libc/SATS/sys/types.sats: 1390(line=36, offs=1) -- 1441(line=39, offs=3) -*/ - -#include \ -"libats/libc/CATS/sys/types.cats" -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/filebas.dats: 15937(line=927, offs=1) -- 15974(line=928, offs=30) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/libats/libc/SATS/stdio.sats: 1390(line=36, offs=1) -- 1437(line=39, offs=3) -*/ - -#include \ -"libats/libc/CATS/stdio.cats" -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/libats/libc/SATS/stdio.sats: 1950(line=69, offs=1) -- 1999(line=71, offs=34) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/libats/libc/SATS/sys/types.sats: 1390(line=36, offs=1) -- 1441(line=39, offs=3) -*/ - -#include \ -"libats/libc/CATS/sys/types.cats" -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/list.dats: 1529(line=44, offs=1) -- 1568(line=45, offs=32) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/list.dats: 1569(line=46, offs=1) -- 1615(line=47, offs=39) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/unsafe.dats: 1532(line=44, offs=1) -- 1566(line=44, offs=35) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/list_vt.dats: 1538(line=44, offs=1) -- 1577(line=45, offs=32) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/list_vt.dats: 1578(line=46, offs=1) -- 1624(line=47, offs=39) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/unsafe.dats: 1532(line=44, offs=1) -- 1566(line=44, offs=35) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/SHARE/list_vt_mergesort.dats: 1546(line=44, offs=1) -- 1585(line=44, offs=40) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/SHARE/list_vt_quicksort.dats: 1546(line=44, offs=1) -- 1585(line=44, offs=40) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/array.dats: 1528(line=44, offs=1) -- 1567(line=45, offs=32) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/SHARE/array_bsearch.dats: 1531(line=44, offs=1) -- 1570(line=44, offs=40) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/SHARE/array_quicksort.dats: 1531(line=44, offs=1) -- 1570(line=44, offs=40) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/arrayptr.dats: 1532(line=44, offs=1) -- 1571(line=44, offs=40) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/arrayref.dats: 1532(line=44, offs=1) -- 1571(line=44, offs=40) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/matrix.dats: 1535(line=44, offs=1) -- 1574(line=44, offs=40) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/matrixptr.dats: 1538(line=44, offs=1) -- 1577(line=44, offs=40) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/matrixref.dats: 1538(line=44, offs=1) -- 1577(line=44, offs=40) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream.dats: 1523(line=44, offs=1) -- 1562(line=44, offs=40) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats: 1523(line=44, offs=1) -- 1562(line=44, offs=40) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/tostring.dats: 1528(line=44, offs=1) -- 1567(line=45, offs=32) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/unsafe.dats: 1532(line=44, offs=1) -- 1566(line=44, offs=35) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/checkast.dats: 1531(line=44, offs=1) -- 1570(line=45, offs=32) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/contrib/atscntrb/atscntrb-hx-libgmp/SATS/gmp.sats: 1178(line=38, offs=1) -- 1236(line=43, offs=3) -*/ - -// -#include \ -"atscntrb-hx-libgmp/CATS/gmp.cats" -// -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/SATS/intinf_t.sats: 1805(line=48, offs=1) -- 1828(line=48, offs=24) -*/ -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/SATS/intinf_vt.sats: 1806(line=48, offs=1) -- 1829(line=48, offs=24) -*/ -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 1660(line=37, offs=1) -- 1700(line=38, offs=27) -*/ -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 1727(line=42, offs=1) -- 1759(line=42, offs=33) -*/ -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 1833(line=49, offs=1) -- 1867(line=49, offs=35) -*/ -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/SATS/intinf_t.sats: 1805(line=48, offs=1) -- 1828(line=48, offs=24) -*/ -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 1868(line=50, offs=1) -- 1908(line=50, offs=41) -*/ -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/SATS/intinf_vt.sats: 1806(line=48, offs=1) -- 1829(line=48, offs=24) -*/ -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 1656(line=37, offs=1) -- 1696(line=39, offs=27) -*/ -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/mydepies.hats: 208(line=18, offs=1) -- 248(line=19, offs=32) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/contrib/atscntrb/atscntrb-hx-libgmp/SATS/gmp.sats: 1178(line=38, offs=1) -- 1236(line=43, offs=3) -*/ - -// -#include \ -"atscntrb-hx-libgmp/CATS/gmp.cats" -// -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 1813(line=49, offs=1) -- 1845(line=49, offs=33) -*/ -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 1846(line=50, offs=1) -- 1881(line=50, offs=36) -*/ -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/SATS/intinf_vt.sats: 1806(line=48, offs=1) -- 1829(line=48, offs=24) -*/ -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/gintinf_t.dats: 1657(line=37, offs=1) -- 1689(line=37, offs=33) -*/ -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/gintinf_t.dats: 1690(line=38, offs=1) -- 1724(line=38, offs=35) -*/ -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/SATS/intinf_t.sats: 1805(line=48, offs=1) -- 1828(line=48, offs=24) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/contrib/atscntrb/atscntrb-hx-libgmp/SATS/gmp.sats: 1178(line=38, offs=1) -- 1236(line=43, offs=3) -*/ - -// -#include \ -"atscntrb-hx-libgmp/CATS/gmp.cats" -// -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/SATS/intinf_t.sats: 1805(line=48, offs=1) -- 1828(line=48, offs=24) -*/ -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/SATS/intinf_vt.sats: 1806(line=48, offs=1) -- 1829(line=48, offs=24) -*/ -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 1660(line=37, offs=1) -- 1700(line=38, offs=27) -*/ -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 1727(line=42, offs=1) -- 1759(line=42, offs=33) -*/ -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 1833(line=49, offs=1) -- 1867(line=49, offs=35) -*/ -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/SATS/intinf_t.sats: 1805(line=48, offs=1) -- 1828(line=48, offs=24) -*/ -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 1868(line=50, offs=1) -- 1908(line=50, offs=41) -*/ -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/SATS/intinf_vt.sats: 1806(line=48, offs=1) -- 1829(line=48, offs=24) -*/ -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 1656(line=37, offs=1) -- 1696(line=39, offs=27) -*/ -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/mydepies.hats: 208(line=18, offs=1) -- 248(line=19, offs=32) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/contrib/atscntrb/atscntrb-hx-libgmp/SATS/gmp.sats: 1178(line=38, offs=1) -- 1236(line=43, offs=3) -*/ - -// -#include \ -"atscntrb-hx-libgmp/CATS/gmp.cats" -// -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 1813(line=49, offs=1) -- 1845(line=49, offs=33) -*/ -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 1846(line=50, offs=1) -- 1881(line=50, offs=36) -*/ -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/SATS/intinf_vt.sats: 1806(line=48, offs=1) -- 1829(line=48, offs=24) -*/ -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/gintinf_t.dats: 1657(line=37, offs=1) -- 1689(line=37, offs=33) -*/ -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/gintinf_t.dats: 1690(line=38, offs=1) -- 1724(line=38, offs=35) -*/ -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/SATS/intinf_t.sats: 1805(line=48, offs=1) -- 1828(line=48, offs=24) -*/ -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/SATS/intinf_vt.sats: 1806(line=48, offs=1) -- 1829(line=48, offs=24) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/libats/libc/SATS/math.sats: 1380(line=35, offs=1) -- 1426(line=38, offs=3) -*/ - -#include \ -"libats/libc/CATS/math.cats" -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.sats: 1(line=1, offs=1) -- 63(line=1, offs=63) -*/ -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/SATS/intinf_vt.sats: 1806(line=48, offs=1) -- 1829(line=48, offs=24) -*/ -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.sats: 64(line=2, offs=1) -- 95(line=2, offs=32) -*/ -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/SATS/intinf_vt.sats: 1806(line=48, offs=1) -- 1829(line=48, offs=24) -*/ -/* -staload-prologues(end) -*/ -/* -typedefs-for-tyrecs-and-tysums(beg) -*/ -typedef -ATSstruct { -atstkind_t0ype(atstype_int) atslab__first ; -atstkind_t0ype(atstype_int) atslab__second ; -} postiats_tyrec_0 ; -typedef -ATSstruct { -#if(0) -int contag ; -#endif -atstkind_t0ype(atstype_int) atslab__0 ; -atstkind_type(atstype_ptrk) atslab__1 ; -} postiats_tysum_1 ; -typedef -ATSstruct { -#if(0) -int contag ; -#endif -atstyvar_type(a) atslab__0 ; -atstkind_type(atstype_ptrk) atslab__1 ; -} postiats_tysum_2 ; -typedef -ATSstruct { -#if(0) -int contag ; -#endif -atstyvar_type(a) atslab__0 ; -atstkind_type(atstype_ptrk) atslab__1 ; -} postiats_tysum_3 ; -/* -typedefs-for-tyrecs-and-tysums(end) -*/ -/* -dynconlst-declaration(beg) -*/ -/* -dynconlst-declaration(end) -*/ -/* -dyncstlst-declaration(beg) -*/ -ATSdyncst_mac(atspre_ptr_alloc_tsz) -ATSdyncst_mac(atscntrb_gmp_mpz_init) -ATSdyncst_mac(atscntrb_gmp_mpz_fib_uint) -ATSdyncst_mac(atspre_g1int2int_int_int) -ATSdyncst_mac(atspre_g1int_gt_int) -ATSdyncst_mac(atspre_g1int_half_int) -ATSdyncst_mac(atspre_g0int_mod_int) -ATSdyncst_mac(atspre_g0int2int_int_int) -ATSdyncst_mac(atspre_g0int_eq_int) -ATSdyncst_mac(atspre_g0int_mul_int) -ATSdyncst_mac(atspre_g1int_eq_int) -ATSdyncst_mac(atscntrb_gmp_mpz_cmp_int) -ATSdyncst_mac(atspre_g0int_lt_int) -ATSdyncst_mac(atspre_g1int_neg_int) -ATSdyncst_mac(atspre_g0int_gt_int) -ATSdyncst_mac(atscntrb_gmp_mpz_init_set_mpz) -ATSdyncst_mac(atscntrb_gmp_mpz_mul2_mpz) -ATSdyncst_mac(atscntrb_gmp_mpz_clear) -ATSdyncst_mac(atspre_ptr_free) -ATSdyncst_mac(atscntrb_gmp_mpz_init_set_int) -ATSdyncst_mac(atspre_g0float2int_double_int) -ATSdyncst_mac(atslib_libats_libc_sqrt_double) -ATSdyncst_mac(atspre_g0int2float_int_double) -ATSdyncst_mac(atspre_g1int_lt_int) -ATSdyncst_mac(atspre_g1int_add_int) -ATSdyncst_mac(atspre_g1int_div_int) -ATSdyncst_mac(atspre_g1int_neq_int) -ATSdyncst_extfun(_057_home_057_vanessa_057_programming_057_haskell_057_done_057_hs_055_ats_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_sats__gcd, (atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)), atstkind_t0ype(atstype_int)) ; -ATSdyncst_mac(atspre_g0int_div_int) -ATSdyncst_mac(atspre_g1int_gte_int) -ATSdyncst_mac(atspre_g1int_sub_int) -ATSdyncst_mac(atspre_g0int_half_int) -ATSdyncst_mac(atspre_g1int_mul_int) -ATSdyncst_mac(atspre_g0int_neg_int) -ATSdyncst_extfun(_057_home_057_vanessa_057_programming_057_haskell_057_done_057_hs_055_ats_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_sats__divisors, (atstkind_t0ype(atstype_int)), atstkind_type(atstype_ptrk)) ; -ATSdyncst_mac(atspre_g0int_add_int) -ATSdyncst_extfun(sum_divisors_ats, (atstkind_t0ype(atstype_int)), atstkind_t0ype(atstype_int)) ; -ATSdyncst_mac(atspre_g0int_neq_int) -ATSdyncst_extfun(_057_home_057_vanessa_057_programming_057_haskell_057_done_057_hs_055_ats_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_sats__prime_factors, (atstkind_t0ype(atstype_int)), atstkind_type(atstype_ptrk)) ; -ATSdyncst_mac(atspre_g0int_sub_int) -ATSdyncst_mac(atspre_cloptr_free) -ATSdyncst_mac(atscntrb_gmp_mpz_add2_int) -/* -dyncstlst-declaration(end) -*/ -/* -dynvalist-implementation(beg) -*/ -/* -dynvalist-implementation(end) -*/ -/* -exnconlst-declaration(beg) -*/ -#ifndef _ATS_CCOMP_EXCEPTION_NONE_ -ATSextern() -atsvoid_t0ype -the_atsexncon_initize -( - atstype_exnconptr d2c, atstype_string exnmsg -) ; -#endif // end of [_ATS_CCOMP_EXCEPTION_NONE_] -/* -exnconlst-declaration(end) -*/ -/* -extypelst-declaration(beg) -*/ -/* -extypelst-declaration(end) -*/ -/* -assumelst-declaration(beg) -*/ -#ifndef _ATS_CCOMP_ASSUME_CHECK_NONE_ -#endif // #ifndef(_ATS_CCOMP_ASSUME_CHECK_NONE_) -/* -assumelst-declaration(end) -*/ -ATSstatic() -atstkind_type(atstype_ptrk) -fib_gmp_0(atstkind_t0ype(atstype_uint)) ; - -#if(0) -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -ATSLIB_056_prelude__ptr_alloc__1() ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -ATSstatic() -atstkind_type(atstype_ptrk) -ATSLIB_056_prelude__ptr_alloc__1__1() ; - -ATSstatic() -atstkind_t0ype(atstype_int) -exp_3(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -#if(0) -#if(0) -ATSextern() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__gt_g1int_int__4(atstkind_t0ype(atstyvar_type(tk)), atstkind_t0ype(atstype_int)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -ATSstatic() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__gt_g1int_int__4__1(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -#if(0) -#if(0) -ATSextern() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g0int_int__10(atstkind_t0ype(atstyvar_type(tk)), atstkind_t0ype(atstype_int)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -ATSstatic() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g0int_int__10__1(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_type(atstype_ptrk) -big_exp_15(atstkind_type(atstype_ptrk), atstkind_t0ype(atstype_int)) ; - -#if(0) -#if(0) -ATSextern() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g1int_int__16(atstkind_t0ype(atstyvar_type(tk)), atstkind_t0ype(atstype_int)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -ATSstatic() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g1int_int__16__1(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -#if(0) -#if(0) -ATSextern() -atstkind_t0ype(atstype_int) -ATSCNTRB_056_HX_056_intinf_vt__compare_intinf_int__19(atsrefarg0_type(atstkind_type(atstype_ptrk)), atstkind_t0ype(atstype_int)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -ATSstatic() -atstkind_t0ype(atstype_int) -ATSCNTRB_056_HX_056_intinf_vt__compare_intinf_int__19__1(atsrefarg0_type(atstkind_type(atstype_ptrk)), atstkind_t0ype(atstype_int)) ; - -#if(0) -#if(0) -ATSextern() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__lt_g0int_int__21(atstkind_t0ype(atstyvar_type(tk)), atstkind_t0ype(atstype_int)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -ATSstatic() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__lt_g0int_int__21__1(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -#if(0) -#if(0) -ATSextern() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__gt_g0int_int__25(atstkind_t0ype(atstyvar_type(tk)), atstkind_t0ype(atstype_int)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -ATSstatic() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__gt_g0int_int__25__1(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__gt_g1int_int__4__2(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g0int_int__10__2(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -#if(0) -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__square_intinf0__30(atstkind_type(atstype_ptrk)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -ATSstatic() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__square_intinf0__30__1(atstkind_type(atstype_ptrk)) ; - -#if(0) -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__square_intinf1__32(atsrefarg0_type(atstkind_type(atstype_ptrk))) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -ATSstatic() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__square_intinf1__32__1(atsrefarg0_type(atstkind_type(atstype_ptrk))) ; - -ATSstatic() -atstkind_type(atstype_ptrk) -ATSLIB_056_prelude__ptr_alloc__1__2() ; - -#if(0) -#if(0) -ATSextern() -atsvoid_t0ype -ATSCNTRB_056_HX_056_intinf_vt__intinf_free__35(atstkind_type(atstype_ptrk)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -ATSstatic() -atsvoid_t0ype -ATSCNTRB_056_HX_056_intinf_vt__intinf_free__35__1(atstkind_type(atstype_ptrk)) ; - -ATSstatic() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__square_intinf1__32__2(atsrefarg0_type(atstkind_type(atstype_ptrk))) ; - -ATSstatic() -atstkind_type(atstype_ptrk) -ATSLIB_056_prelude__ptr_alloc__1__3() ; - -#if(0) -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_intinf1__39(atstkind_type(atstype_ptrk), atsrefarg0_type(atstkind_type(atstype_ptrk))) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -ATSstatic() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_intinf1__39__1(atstkind_type(atstype_ptrk), atsrefarg0_type(atstkind_type(atstype_ptrk))) ; - -ATSstatic() -atsvoid_t0ype -ATSCNTRB_056_HX_056_intinf_vt__intinf_free__35__2(atstkind_type(atstype_ptrk)) ; - -ATSstatic() -atsvoid_t0ype -ATSCNTRB_056_HX_056_intinf_vt__intinf_free__35__3(atstkind_type(atstype_ptrk)) ; - -#if(0) -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__43(atstkind_t0ype(atstype_int)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -ATSstatic() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__43__1(atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_type(atstype_ptrk) -ATSLIB_056_prelude__ptr_alloc__1__4() ; - -ATSstatic() -atstkind_t0ype(atstype_int) -sqrt_int_46(atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_t0ype(atstype_bool) -is_prime_48(atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_t0ype(atstype_bool) -loop_49(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -#if(0) -#if(0) -ATSextern() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__lt_g1int_int__50(atstkind_t0ype(atstyvar_type(tk)), atstkind_t0ype(atstype_int)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -ATSstatic() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__lt_g1int_int__50__1(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g0int_int__10__3(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g1int_int__16__2(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g0int_int__10__4(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_t0ype(atstype_bool) -is_semiprime_57(atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_t0ype(atstype_bool) -loop_58(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__lt_g1int_int__50__2(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g0int_int__10__5(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g1int_int__16__3(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g0int_int__10__6(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -#if(0) -ATSextern() -atstkind_t0ype(atstype_bool) -_057_home_057_vanessa_057_programming_057_haskell_057_done_057_hs_055_ats_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_sats__divides(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; -#endif // end of [QUALIFIED] - -ATSstatic() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g0int_int__10__7(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -#if(0) -ATSextern() -atstkind_t0ype(atstype_int) -_057_home_057_vanessa_057_programming_057_haskell_057_done_057_hs_055_ats_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_sats__gcd(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; -#endif // end of [QUALIFIED] - -#if(0) -#if(0) -ATSextern() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__neq_g1int_int__67(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__67__1(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -#if(0) -ATSextern() -atstkind_t0ype(atstype_int) -_057_home_057_vanessa_057_programming_057_haskell_057_done_057_hs_055_ats_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_sats__lcm(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; -#endif // end of [QUALIFIED] - -#if(0) -ATSextern() -atstkind_t0ype(atstype_bool) -_057_home_057_vanessa_057_programming_057_haskell_057_done_057_hs_055_ats_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_sats__coprime(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; -#endif // end of [QUALIFIED] - -ATSstatic() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g0int_int__10__8(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -_057_home_057_vanessa_057_programming_057_haskell_057_done_057_hs_055_ats_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_sats__divisors(atstkind_t0ype(atstype_int)) ; -#endif // end of [QUALIFIED] - -ATSstatic() -atstype_boxed -__patsfun_75(atstype_bool) ; - -ATSstatic() -atstype_boxed -__patsfun_76(atstype_bool) ; - -ATSstatic() -atstkind_type(atstype_ptrk) -loop_77(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -#if(0) -#if(0) -ATSextern() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__gte_g1int_int__78(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__78__1(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g0int_int__10__9(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__neq_g1int_int__67__2(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstype_boxed -__patsfun_83(atstkind_t0ype(atstype_int), atstkind_type(atstype_ptrk), atstype_bool) ; - -ATSstatic() -atstype_boxed -__patsfun_84(atstkind_type(atstype_ptrk), atstype_bool) ; - -ATSstatic() -atstype_boxed -__patsfun_85(atstype_bool) ; - -ATSstatic() -atstype_boxed -__patsfun_86(atstkind_t0ype(atstype_int), atstype_bool) ; - -ATSstatic() -atstype_boxed -__patsfun_87(atstype_bool) ; - -ATSstatic() -atstype_boxed -__patsfun_88(atstype_bool) ; - -ATSstatic() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g0int_int__10__10(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstype_boxed -__patsfun_90(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int), atstkind_type(atstype_ptrk), atstype_bool) ; - -ATSstatic() -atstype_boxed -__patsfun_91(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int), atstkind_type(atstype_ptrk), atstype_bool) ; - -ATSstatic() -atstkind_t0ype(atstype_int) -div_gt_zero_92(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_t0ype(atstype_int) -jacobi_93(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_t0ype(atstype_int) -legendre_94(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_t0ype(atstype_int) -exp_mod_prime_95(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__gt_g1int_int__4__3(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g0int_int__10__11(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g0int_int__10__12(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g0int_int__10__13(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_t0ype(atstype_int) -get_multiplicity_103(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_t0ype(atstype_int) -loop_104(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__gt_g1int_int__4__4(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g1int_int__16__4(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g0int_int__10__14(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_t0ype(atstype_int) -jacobi2_108(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__gt_g1int_int__4__5(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g0int_int__10__15(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g0int_int__10__16(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g0int_int__10__17(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g0int_int__10__18(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g0int_int__10__19(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -#if(0) -ATSextern() -atstkind_t0ype(atstype_int) -count_divisors_ats(atstkind_t0ype(atstype_int)) ; -#endif // end of [QUALIFIED] - -#if(0) -#if(0) -ATSextern() -atstkind_t0ype(atstype_int) -ATSLIB_056_prelude__stream_vt_length__117(atstkind_type(atstype_ptrk)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -ATSstatic() -atstkind_t0ype(atstype_int) -loop_118__118(atstkind_type(atstype_ptrk), atstkind_t0ype(atstype_int)) ; -#endif // end of [TEMPLATE] - -ATSstatic() -atstkind_t0ype(atstype_int) -ATSLIB_056_prelude__stream_vt_length__117__1(atstkind_type(atstype_ptrk)) ; - -ATSstatic() -atstkind_t0ype(atstype_int) -loop_118__118__1(atstkind_type(atstype_ptrk), atstkind_t0ype(atstype_int)) ; - -#if(0) -ATSextern() -atstkind_t0ype(atstype_int) -sum_divisors_ats(atstkind_t0ype(atstype_int)) ; -#endif // end of [QUALIFIED] - -ATSstatic() -atstkind_t0ype(atstype_int) -loop_122(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__gte_g1int_int__78__2(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g0int_int__10__20(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__neq_g1int_int__67__3(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g0int_int__10__21(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -#if(0) -ATSextern() -atstkind_t0ype(atstype_bool) -is_perfect_ats(atstkind_t0ype(atstype_int)) ; -#endif // end of [QUALIFIED] - -ATSstatic() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g0int_int__10__22(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_t0ype(atstype_int) -rip_130(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -#if(0) -#if(0) -ATSextern() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__neq_g0int_int__131(atstkind_t0ype(atstyvar_type(tk)), atstkind_t0ype(atstype_int)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -ATSstatic() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__neq_g0int_int__131__1(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__gt_g1int_int__4__6(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__lt_g1int_int__50__3(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -_057_home_057_vanessa_057_programming_057_haskell_057_done_057_hs_055_ats_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_sats__prime_factors(atstkind_t0ype(atstype_int)) ; -#endif // end of [QUALIFIED] - -ATSstatic() -atstkind_type(atstype_ptrk) -loop_137(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__gte_g1int_int__78__3(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstype_boxed -__patsfun_139(atstkind_t0ype(atstype_int), atstype_bool) ; - -ATSstatic() -atstype_boxed -__patsfun_140(atstype_bool) ; - -ATSstatic() -atstype_boxed -__patsfun_141(atstype_bool) ; - -ATSstatic() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g0int_int__10__23(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__gt_g1int_int__4__7(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstype_boxed -__patsfun_144(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int), atstype_bool) ; - -ATSstatic() -atstype_boxed -__patsfun_145(atstkind_t0ype(atstype_int), atstype_bool) ; - -ATSstatic() -atstype_boxed -__patsfun_146(atstype_bool) ; - -#if(0) -ATSextern() -atstkind_t0ype(atstype_int) -little_omega_ats(atstkind_t0ype(atstype_int)) ; -#endif // end of [QUALIFIED] - -ATSstatic() -atstkind_t0ype(atstype_int) -loop_148(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__gte_g1int_int__78__4(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g0int_int__10__24(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__gt_g1int_int__4__8(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -#if(0) -ATSextern() -atstkind_t0ype(atstype_int) -radical_ats(atstkind_t0ype(atstype_int)) ; -#endif // end of [QUALIFIED] - -ATSstatic() -atstkind_t0ype(atstype_int) -product_153(atstkind_type(atstype_ptrk)) ; - -ATSstatic() -atstkind_t0ype(atstype_int) -totient_154(atstkind_t0ype(atstype_int)) ; - -ATSstatic() -postiats_tyrec_0 -adjust_contents_155(postiats_tyrec_0, atstkind_t0ype(atstype_int)) ; - -#if(0) -#if(0) -ATSextern() -atstyvar_type(res) -ATSLIB_056_prelude__stream_vt_foldleft_cloptr__157(atstkind_type(atstype_ptrk), atstyvar_type(res), atstype_cloptr) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -#if(0) -ATSstatic() -atstyvar_type(res) -loop_158__158(atstkind_type(atstype_ptrk), atstyvar_type(res), atstype_cloptr) ; -#endif // end of [TEMPLATE] - -ATSstatic() -postiats_tyrec_0 -ATSLIB_056_prelude__stream_vt_foldleft_cloptr__157__1(atstkind_type(atstype_ptrk), postiats_tyrec_0, atstype_cloptr) ; - -ATSstatic() -postiats_tyrec_0 -loop_158__158__1(atstkind_type(atstype_ptrk), postiats_tyrec_0, atstype_cloptr) ; - -ATSstatic() -postiats_tyrec_0 -__patsfun_161(postiats_tyrec_0, atsrefarg1_type(atstkind_t0ype(atstype_int))) ; - -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -_057_home_057_vanessa_057_programming_057_haskell_057_done_057_hs_055_ats_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_sats__totient_sum(atstkind_t0ype(atstype_int)) ; -#endif // end of [QUALIFIED] - -ATSstatic() -atstkind_type(atstype_ptrk) -loop_163(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__lt_g1int_int__50__4(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__165(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__165__1(atstkind_type(atstype_ptrk), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__43__2(atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_type(atstype_ptrk) -ATSLIB_056_prelude__ptr_alloc__1__5() ; - -#if(0) -ATSextern() -atstkind_t0ype(atstype_int) -totient_ats(atstkind_t0ype(atstype_int)) ; -#endif // end of [QUALIFIED] - -#if(0) -ATSextern() -atstkind_t0ype(atstype_int) -jacobi_ats(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; -#endif // end of [QUALIFIED] - -ATSclosurerize_beg(__patsfun_75, (), (atstype_bool), atstype_boxed) -typedef -ATSstruct { -atstype_funptr cfun ; -} __patsfun_75__closure_t0ype ; -ATSstatic() -atstype_boxed -__patsfun_75__cfun -( -__patsfun_75__closure_t0ype *p_cenv, atstype_bool arg0 -) -{ -ATSFCreturn(__patsfun_75(arg0)) ; -} /* end of [cfun] */ -ATSstatic() -atstype_cloptr -__patsfun_75__closureinit -( -__patsfun_75__closure_t0ype *p_cenv -) -{ -p_cenv->cfun = __patsfun_75__cfun ; -return p_cenv ; -} /* end of [closureinit] */ -ATSstatic() -atstype_cloptr -__patsfun_75__closurerize -( -// argumentless -) -{ -return __patsfun_75__closureinit(ATS_MALLOC(sizeof(__patsfun_75__closure_t0ype))) ; -} /* end of [closurerize] */ -ATSclosurerize_end() -ATSclosurerize_beg(__patsfun_76, (), (atstype_bool), atstype_boxed) -typedef -ATSstruct { -atstype_funptr cfun ; -} __patsfun_76__closure_t0ype ; -ATSstatic() -atstype_boxed -__patsfun_76__cfun -( -__patsfun_76__closure_t0ype *p_cenv, atstype_bool arg0 -) -{ -ATSFCreturn(__patsfun_76(arg0)) ; -} /* end of [cfun] */ -ATSstatic() -atstype_cloptr -__patsfun_76__closureinit -( -__patsfun_76__closure_t0ype *p_cenv -) -{ -p_cenv->cfun = __patsfun_76__cfun ; -return p_cenv ; -} /* end of [closureinit] */ -ATSstatic() -atstype_cloptr -__patsfun_76__closurerize -( -// argumentless -) -{ -return __patsfun_76__closureinit(ATS_MALLOC(sizeof(__patsfun_76__closure_t0ype))) ; -} /* end of [closurerize] */ -ATSclosurerize_end() -ATSclosurerize_beg(__patsfun_83, (atstkind_t0ype(atstype_int), atstkind_type(atstype_ptrk)), (atstype_bool), atstype_boxed) -typedef -ATSstruct { -atstype_funptr cfun ; -atstkind_t0ype(atstype_int) env0 ; -atstkind_type(atstype_ptrk) env1 ; -} __patsfun_83__closure_t0ype ; -ATSstatic() -atstype_boxed -__patsfun_83__cfun -( -__patsfun_83__closure_t0ype *p_cenv, atstype_bool arg0 -) -{ -ATSFCreturn(__patsfun_83(p_cenv->env0, p_cenv->env1, arg0)) ; -} /* end of [cfun] */ -ATSstatic() -atstype_cloptr -__patsfun_83__closureinit -( -__patsfun_83__closure_t0ype *p_cenv, atstkind_t0ype(atstype_int) env0, atstkind_type(atstype_ptrk) env1 -) -{ -p_cenv->env0 = env0 ; -p_cenv->env1 = env1 ; -p_cenv->cfun = __patsfun_83__cfun ; -return p_cenv ; -} /* end of [closureinit] */ -ATSstatic() -atstype_cloptr -__patsfun_83__closurerize -( -atstkind_t0ype(atstype_int) env0, atstkind_type(atstype_ptrk) env1 -) -{ -return __patsfun_83__closureinit(ATS_MALLOC(sizeof(__patsfun_83__closure_t0ype)), env0, env1) ; -} /* end of [closurerize] */ -ATSclosurerize_end() -ATSclosurerize_beg(__patsfun_84, (atstkind_type(atstype_ptrk)), (atstype_bool), atstype_boxed) -typedef -ATSstruct { -atstype_funptr cfun ; -atstkind_type(atstype_ptrk) env0 ; -} __patsfun_84__closure_t0ype ; -ATSstatic() -atstype_boxed -__patsfun_84__cfun -( -__patsfun_84__closure_t0ype *p_cenv, atstype_bool arg0 -) -{ -ATSFCreturn(__patsfun_84(p_cenv->env0, arg0)) ; -} /* end of [cfun] */ -ATSstatic() -atstype_cloptr -__patsfun_84__closureinit -( -__patsfun_84__closure_t0ype *p_cenv, atstkind_type(atstype_ptrk) env0 -) -{ -p_cenv->env0 = env0 ; -p_cenv->cfun = __patsfun_84__cfun ; -return p_cenv ; -} /* end of [closureinit] */ -ATSstatic() -atstype_cloptr -__patsfun_84__closurerize -( -atstkind_type(atstype_ptrk) env0 -) -{ -return __patsfun_84__closureinit(ATS_MALLOC(sizeof(__patsfun_84__closure_t0ype)), env0) ; -} /* end of [closurerize] */ -ATSclosurerize_end() -ATSclosurerize_beg(__patsfun_85, (), (atstype_bool), atstype_boxed) -typedef -ATSstruct { -atstype_funptr cfun ; -} __patsfun_85__closure_t0ype ; -ATSstatic() -atstype_boxed -__patsfun_85__cfun -( -__patsfun_85__closure_t0ype *p_cenv, atstype_bool arg0 -) -{ -ATSFCreturn(__patsfun_85(arg0)) ; -} /* end of [cfun] */ -ATSstatic() -atstype_cloptr -__patsfun_85__closureinit -( -__patsfun_85__closure_t0ype *p_cenv -) -{ -p_cenv->cfun = __patsfun_85__cfun ; -return p_cenv ; -} /* end of [closureinit] */ -ATSstatic() -atstype_cloptr -__patsfun_85__closurerize -( -// argumentless -) -{ -return __patsfun_85__closureinit(ATS_MALLOC(sizeof(__patsfun_85__closure_t0ype))) ; -} /* end of [closurerize] */ -ATSclosurerize_end() -ATSclosurerize_beg(__patsfun_86, (atstkind_t0ype(atstype_int)), (atstype_bool), atstype_boxed) -typedef -ATSstruct { -atstype_funptr cfun ; -atstkind_t0ype(atstype_int) env0 ; -} __patsfun_86__closure_t0ype ; -ATSstatic() -atstype_boxed -__patsfun_86__cfun -( -__patsfun_86__closure_t0ype *p_cenv, atstype_bool arg0 -) -{ -ATSFCreturn(__patsfun_86(p_cenv->env0, arg0)) ; -} /* end of [cfun] */ -ATSstatic() -atstype_cloptr -__patsfun_86__closureinit -( -__patsfun_86__closure_t0ype *p_cenv, atstkind_t0ype(atstype_int) env0 -) -{ -p_cenv->env0 = env0 ; -p_cenv->cfun = __patsfun_86__cfun ; -return p_cenv ; -} /* end of [closureinit] */ -ATSstatic() -atstype_cloptr -__patsfun_86__closurerize -( -atstkind_t0ype(atstype_int) env0 -) -{ -return __patsfun_86__closureinit(ATS_MALLOC(sizeof(__patsfun_86__closure_t0ype)), env0) ; -} /* end of [closurerize] */ -ATSclosurerize_end() -ATSclosurerize_beg(__patsfun_87, (), (atstype_bool), atstype_boxed) -typedef -ATSstruct { -atstype_funptr cfun ; -} __patsfun_87__closure_t0ype ; -ATSstatic() -atstype_boxed -__patsfun_87__cfun -( -__patsfun_87__closure_t0ype *p_cenv, atstype_bool arg0 -) -{ -ATSFCreturn(__patsfun_87(arg0)) ; -} /* end of [cfun] */ -ATSstatic() -atstype_cloptr -__patsfun_87__closureinit -( -__patsfun_87__closure_t0ype *p_cenv -) -{ -p_cenv->cfun = __patsfun_87__cfun ; -return p_cenv ; -} /* end of [closureinit] */ -ATSstatic() -atstype_cloptr -__patsfun_87__closurerize -( -// argumentless -) -{ -return __patsfun_87__closureinit(ATS_MALLOC(sizeof(__patsfun_87__closure_t0ype))) ; -} /* end of [closurerize] */ -ATSclosurerize_end() -ATSclosurerize_beg(__patsfun_88, (), (atstype_bool), atstype_boxed) -typedef -ATSstruct { -atstype_funptr cfun ; -} __patsfun_88__closure_t0ype ; -ATSstatic() -atstype_boxed -__patsfun_88__cfun -( -__patsfun_88__closure_t0ype *p_cenv, atstype_bool arg0 -) -{ -ATSFCreturn(__patsfun_88(arg0)) ; -} /* end of [cfun] */ -ATSstatic() -atstype_cloptr -__patsfun_88__closureinit -( -__patsfun_88__closure_t0ype *p_cenv -) -{ -p_cenv->cfun = __patsfun_88__cfun ; -return p_cenv ; -} /* end of [closureinit] */ -ATSstatic() -atstype_cloptr -__patsfun_88__closurerize -( -// argumentless -) -{ -return __patsfun_88__closureinit(ATS_MALLOC(sizeof(__patsfun_88__closure_t0ype))) ; -} /* end of [closurerize] */ -ATSclosurerize_end() -ATSclosurerize_beg(__patsfun_90, (atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int), atstkind_type(atstype_ptrk)), (atstype_bool), atstype_boxed) -typedef -ATSstruct { -atstype_funptr cfun ; -atstkind_t0ype(atstype_int) env0 ; -atstkind_t0ype(atstype_int) env1 ; -atstkind_type(atstype_ptrk) env2 ; -} __patsfun_90__closure_t0ype ; -ATSstatic() -atstype_boxed -__patsfun_90__cfun -( -__patsfun_90__closure_t0ype *p_cenv, atstype_bool arg0 -) -{ -ATSFCreturn(__patsfun_90(p_cenv->env0, p_cenv->env1, p_cenv->env2, arg0)) ; -} /* end of [cfun] */ -ATSstatic() -atstype_cloptr -__patsfun_90__closureinit -( -__patsfun_90__closure_t0ype *p_cenv, atstkind_t0ype(atstype_int) env0, atstkind_t0ype(atstype_int) env1, atstkind_type(atstype_ptrk) env2 -) -{ -p_cenv->env0 = env0 ; -p_cenv->env1 = env1 ; -p_cenv->env2 = env2 ; -p_cenv->cfun = __patsfun_90__cfun ; -return p_cenv ; -} /* end of [closureinit] */ -ATSstatic() -atstype_cloptr -__patsfun_90__closurerize -( -atstkind_t0ype(atstype_int) env0, atstkind_t0ype(atstype_int) env1, atstkind_type(atstype_ptrk) env2 -) -{ -return __patsfun_90__closureinit(ATS_MALLOC(sizeof(__patsfun_90__closure_t0ype)), env0, env1, env2) ; -} /* end of [closurerize] */ -ATSclosurerize_end() -ATSclosurerize_beg(__patsfun_91, (atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int), atstkind_type(atstype_ptrk)), (atstype_bool), atstype_boxed) -typedef -ATSstruct { -atstype_funptr cfun ; -atstkind_t0ype(atstype_int) env0 ; -atstkind_t0ype(atstype_int) env1 ; -atstkind_type(atstype_ptrk) env2 ; -} __patsfun_91__closure_t0ype ; -ATSstatic() -atstype_boxed -__patsfun_91__cfun -( -__patsfun_91__closure_t0ype *p_cenv, atstype_bool arg0 -) -{ -ATSFCreturn(__patsfun_91(p_cenv->env0, p_cenv->env1, p_cenv->env2, arg0)) ; -} /* end of [cfun] */ -ATSstatic() -atstype_cloptr -__patsfun_91__closureinit -( -__patsfun_91__closure_t0ype *p_cenv, atstkind_t0ype(atstype_int) env0, atstkind_t0ype(atstype_int) env1, atstkind_type(atstype_ptrk) env2 -) -{ -p_cenv->env0 = env0 ; -p_cenv->env1 = env1 ; -p_cenv->env2 = env2 ; -p_cenv->cfun = __patsfun_91__cfun ; -return p_cenv ; -} /* end of [closureinit] */ -ATSstatic() -atstype_cloptr -__patsfun_91__closurerize -( -atstkind_t0ype(atstype_int) env0, atstkind_t0ype(atstype_int) env1, atstkind_type(atstype_ptrk) env2 -) -{ -return __patsfun_91__closureinit(ATS_MALLOC(sizeof(__patsfun_91__closure_t0ype)), env0, env1, env2) ; -} /* end of [closurerize] */ -ATSclosurerize_end() -ATSclosurerize_beg(__patsfun_139, (atstkind_t0ype(atstype_int)), (atstype_bool), atstype_boxed) -typedef -ATSstruct { -atstype_funptr cfun ; -atstkind_t0ype(atstype_int) env0 ; -} __patsfun_139__closure_t0ype ; -ATSstatic() -atstype_boxed -__patsfun_139__cfun -( -__patsfun_139__closure_t0ype *p_cenv, atstype_bool arg0 -) -{ -ATSFCreturn(__patsfun_139(p_cenv->env0, arg0)) ; -} /* end of [cfun] */ -ATSstatic() -atstype_cloptr -__patsfun_139__closureinit -( -__patsfun_139__closure_t0ype *p_cenv, atstkind_t0ype(atstype_int) env0 -) -{ -p_cenv->env0 = env0 ; -p_cenv->cfun = __patsfun_139__cfun ; -return p_cenv ; -} /* end of [closureinit] */ -ATSstatic() -atstype_cloptr -__patsfun_139__closurerize -( -atstkind_t0ype(atstype_int) env0 -) -{ -return __patsfun_139__closureinit(ATS_MALLOC(sizeof(__patsfun_139__closure_t0ype)), env0) ; -} /* end of [closurerize] */ -ATSclosurerize_end() -ATSclosurerize_beg(__patsfun_140, (), (atstype_bool), atstype_boxed) -typedef -ATSstruct { -atstype_funptr cfun ; -} __patsfun_140__closure_t0ype ; -ATSstatic() -atstype_boxed -__patsfun_140__cfun -( -__patsfun_140__closure_t0ype *p_cenv, atstype_bool arg0 -) -{ -ATSFCreturn(__patsfun_140(arg0)) ; -} /* end of [cfun] */ -ATSstatic() -atstype_cloptr -__patsfun_140__closureinit -( -__patsfun_140__closure_t0ype *p_cenv -) -{ -p_cenv->cfun = __patsfun_140__cfun ; -return p_cenv ; -} /* end of [closureinit] */ -ATSstatic() -atstype_cloptr -__patsfun_140__closurerize -( -// argumentless -) -{ -return __patsfun_140__closureinit(ATS_MALLOC(sizeof(__patsfun_140__closure_t0ype))) ; -} /* end of [closurerize] */ -ATSclosurerize_end() -ATSclosurerize_beg(__patsfun_141, (), (atstype_bool), atstype_boxed) -typedef -ATSstruct { -atstype_funptr cfun ; -} __patsfun_141__closure_t0ype ; -ATSstatic() -atstype_boxed -__patsfun_141__cfun -( -__patsfun_141__closure_t0ype *p_cenv, atstype_bool arg0 -) -{ -ATSFCreturn(__patsfun_141(arg0)) ; -} /* end of [cfun] */ -ATSstatic() -atstype_cloptr -__patsfun_141__closureinit -( -__patsfun_141__closure_t0ype *p_cenv -) -{ -p_cenv->cfun = __patsfun_141__cfun ; -return p_cenv ; -} /* end of [closureinit] */ -ATSstatic() -atstype_cloptr -__patsfun_141__closurerize -( -// argumentless -) -{ -return __patsfun_141__closureinit(ATS_MALLOC(sizeof(__patsfun_141__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, (atstkind_t0ype(atstype_int)), (atstype_bool), atstype_boxed) -typedef -ATSstruct { -atstype_funptr cfun ; -atstkind_t0ype(atstype_int) env0 ; -} __patsfun_145__closure_t0ype ; -ATSstatic() -atstype_boxed -__patsfun_145__cfun -( -__patsfun_145__closure_t0ype *p_cenv, atstype_bool arg0 -) -{ -ATSFCreturn(__patsfun_145(p_cenv->env0, arg0)) ; -} /* end of [cfun] */ -ATSstatic() -atstype_cloptr -__patsfun_145__closureinit -( -__patsfun_145__closure_t0ype *p_cenv, atstkind_t0ype(atstype_int) env0 -) -{ -p_cenv->env0 = env0 ; -p_cenv->cfun = __patsfun_145__cfun ; -return p_cenv ; -} /* end of [closureinit] */ -ATSstatic() -atstype_cloptr -__patsfun_145__closurerize -( -atstkind_t0ype(atstype_int) env0 -) -{ -return __patsfun_145__closureinit(ATS_MALLOC(sizeof(__patsfun_145__closure_t0ype)), env0) ; -} /* end of [closurerize] */ -ATSclosurerize_end() -ATSclosurerize_beg(__patsfun_146, (), (atstype_bool), atstype_boxed) -typedef -ATSstruct { -atstype_funptr cfun ; -} __patsfun_146__closure_t0ype ; -ATSstatic() -atstype_boxed -__patsfun_146__cfun -( -__patsfun_146__closure_t0ype *p_cenv, atstype_bool arg0 -) -{ -ATSFCreturn(__patsfun_146(arg0)) ; -} /* end of [cfun] */ -ATSstatic() -atstype_cloptr -__patsfun_146__closureinit -( -__patsfun_146__closure_t0ype *p_cenv -) -{ -p_cenv->cfun = __patsfun_146__cfun ; -return p_cenv ; -} /* end of [closureinit] */ -ATSstatic() -atstype_cloptr -__patsfun_146__closurerize -( -// argumentless -) -{ -return __patsfun_146__closureinit(ATS_MALLOC(sizeof(__patsfun_146__closure_t0ype))) ; -} /* end of [closurerize] */ -ATSclosurerize_end() -ATSclosurerize_beg(__patsfun_161, (), (postiats_tyrec_0, atsrefarg1_type(atstkind_t0ype(atstype_int))), postiats_tyrec_0) -typedef -ATSstruct { -atstype_funptr cfun ; -} __patsfun_161__closure_t0ype ; -ATSstatic() -postiats_tyrec_0 -__patsfun_161__cfun -( -__patsfun_161__closure_t0ype *p_cenv, postiats_tyrec_0 arg0, atsrefarg1_type(atstkind_t0ype(atstype_int)) arg1 -) -{ -ATSFCreturn(__patsfun_161(arg0, arg1)) ; -} /* end of [cfun] */ -ATSstatic() -atstype_cloptr -__patsfun_161__closureinit -( -__patsfun_161__closure_t0ype *p_cenv -) -{ -p_cenv->cfun = __patsfun_161__cfun ; -return p_cenv ; -} /* end of [closureinit] */ -ATSstatic() -atstype_cloptr -__patsfun_161__closurerize -( -// argumentless -) -{ -return __patsfun_161__closureinit(ATS_MALLOC(sizeof(__patsfun_161__closure_t0ype))) ; -} /* end of [closurerize] */ -ATSclosurerize_end() -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 414(line=12, offs=4) -- 587(line=19, offs=6) -*/ -/* -local: -global: fib_gmp_0$0(level=0) -local: -global: -*/ -ATSstatic() -atstkind_type(atstype_ptrk) -fib_gmp_0(atstkind_t0ype(atstype_uint) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret0, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmpref1, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp4) ; -// ATStmpdec_void(tmp5) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 414(line=12, offs=4) -- 587(line=19, offs=6) -*/ -ATSINSflab(__patsflab_fib_gmp_0): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 451(line=13, offs=3) -- 587(line=19, offs=6) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 463(line=14, offs=9) -- 464(line=14, offs=10) -*/ -/* -ATSINStmpdec(tmpref1) ; -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 467(line=14, offs=13) -- 478(line=14, offs=24) -*/ -ATSINSmove(tmpref1, ATSLIB_056_prelude__ptr_alloc__1__1()) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 492(line=15, offs=14) -- 513(line=15, offs=35) -*/ -ATSINSmove_void(tmp4, atscntrb_gmp_mpz_init(ATSPMVrefarg1(ATSSELrecsin(tmpref1, atstkind_type(atstype_ptrk), atslab__2)))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 527(line=16, offs=14) -- 555(line=16, offs=42) -*/ -ATSINSmove_void(tmp5, atscntrb_gmp_mpz_fib_uint(ATSPMVrefarg1(ATSSELrecsin(tmpref1, atstkind_type(atstype_ptrk), atslab__2)), arg0)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 565(line=18, offs=5) -- 580(line=18, offs=20) -*/ -ATSINSmove(tmpret0, ATSPMVcastfn(castvwtp0, atstkind_type(atstype_ptrk), tmpref1)) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 451(line=13, offs=3) -- 587(line=19, offs=6) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret0) ; -} /* end of [fib_gmp_0] */ - -#if(0) -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42) -*/ -/* -local: -global: ptr_alloc$1$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = a(4740) -tmparg = S2Evar(a(4740)) -tmpsub = None() -*/ -atstkind_type(atstype_ptrk) -ATSLIB_056_prelude__ptr_alloc__1() -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret2, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3708(line=184, offs=1) -- 3749(line=184, offs=42) -*/ -ATSINSflab(__patsflab_ptr_alloc): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42) -*/ -ATSINSmove(tmpret2, atspre_ptr_alloc_tsz(ATSPMVsizeof(atstyvar_type(a)))) ; - -ATSfunbody_end() -ATSreturn(tmpret2) ; -} /* end of [ATSLIB_056_prelude__ptr_alloc__1] */ -#endif // end of [TEMPLATE] - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42) -*/ -/* -local: -global: ptr_alloc$1$1(level=1) -local: -global: -*/ -ATSstatic() -/* -imparg = a(4740) -tmparg = S2Evar(a(4740)) -tmpsub = Some(a(4740) -> S2EVar(5559)) -*/ -atstkind_type(atstype_ptrk) -ATSLIB_056_prelude__ptr_alloc__1__1() -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret2__1, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3708(line=184, offs=1) -- 3749(line=184, offs=42) -*/ -ATSINSflab(__patsflab_ptr_alloc): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42) -*/ -ATSINSmove(tmpret2__1, atspre_ptr_alloc_tsz(ATSPMVsizeof(atscntrb_gmp_mpz))) ; - -ATSfunbody_end() -ATSreturn(tmpret2__1) ; -} /* end of [ATSLIB_056_prelude__ptr_alloc__1__1] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 764(line=24, offs=5) -- 1203(line=45, offs=10) -*/ -/* -local: exp_3$0(level=0) -global: exp_3$0(level=0) -local: -global: -*/ -ATSstatic() -atstkind_t0ype(atstype_int) -exp_3(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(apy0, atstkind_t0ype(atstype_int)) ; -ATStmpdec(apy1, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmpret6, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp7, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmpref12, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmpref13, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp14, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp19, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmpref20, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp21, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp22, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 764(line=24, offs=5) -- 1203(line=45, offs=10) -*/ -ATSINSflab(__patsflab_exp_3): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 814(line=25, offs=3) -- 1203(line=45, offs=10) -*/ -ATScaseof_beg() -/* -** ibranchlst-beg -*/ -ATSbranch_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 831(line=26, offs=7) -- 832(line=26, offs=8) -*/ -ATSINSlab(__atstmplab0): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 783(line=24, offs=24) -- 784(line=24, offs=25) -*/ -ATSifnthen(ATSCKpat_int(arg0, ATSPMVint(0))) { ATSINSgoto(__atstmplab2) ; } ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 832(line=26, offs=8) -- 832(line=26, offs=8) -*/ -ATSINSlab(__atstmplab1): -/* -emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) -*/ -/* -ibranch-mbody: -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 836(line=26, offs=12) -- 837(line=26, offs=13) -*/ -ATSINSmove(tmpret6, ATSPMVi0nt(0)) ; -ATSbranch_end() - -ATSbranch_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 845(line=27, offs=8) -- 845(line=27, offs=8) -*/ -ATSINSlab(__atstmplab2): -/* -emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) -*/ -/* -ibranch-mbody: -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 874(line=29, offs=12) -- 879(line=29, offs=17) -*/ -ATSINSmove(tmp7, ATSLIB_056_prelude__gt_g1int_int__4__1(arg1, ATSPMVi0nt(0))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 871(line=29, offs=9) -- 1193(line=44, offs=12) -*/ -ATSif( -tmp7 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 895(line=30, offs=11) -- 1168(line=42, offs=14) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 915(line=31, offs=17) -- 917(line=31, offs=19) -*/ -/* -ATSINStmpdec(tmpref12) ; -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 920(line=31, offs=22) -- 926(line=31, offs=28) -*/ -ATSINSmove(tmpref12, atspre_g1int_half_int(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 944(line=32, offs=17) -- 946(line=32, offs=19) -*/ -/* -ATSINStmpdec(tmpref13) ; -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 949(line=32, offs=22) -- 954(line=32, offs=27) -*/ -ATSINSmove(tmpref13, atspre_g0int_mod_int(arg1, ATSPMVi0nt(2))) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 983(line=34, offs=16) -- 989(line=34, offs=22) -*/ -ATSINSmove(tmp14, ATSLIB_056_prelude__eq_g0int_int__10__1(tmpref13, ATSPMVi0nt(0))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 980(line=34, offs=13) -- 1154(line=41, offs=18) -*/ -ATSif( -tmp14 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1013(line=35, offs=19) -- 1018(line=35, offs=24) -*/ -ATSINSmove(tmp19, atspre_g0int_mul_int(arg0, arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1009(line=35, offs=15) -- 1023(line=35, offs=29) -*/ -ATStailcal_beg() -ATSINSmove_tlcal(apy0, tmp19) ; -ATSINSmove_tlcal(apy1, tmpref12) ; -ATSINSargmove_tlcal(arg0, apy0) ; -ATSINSargmove_tlcal(arg1, apy1) ; -ATSINSfgoto(__patsflab_exp_3) ; -ATStailcal_end() - -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1055(line=37, offs=15) -- 1154(line=41, offs=18) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1079(line=38, offs=21) -- 1080(line=38, offs=22) -*/ -/* -ATSINStmpdec(tmpref20) ; -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1091(line=38, offs=33) -- 1096(line=38, offs=38) -*/ -ATSINSmove(tmp22, atspre_g0int_mul_int(arg0, arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1087(line=38, offs=29) -- 1101(line=38, offs=43) -*/ -ATSINSmove(tmp21, exp_3(tmp22, tmpref12)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1083(line=38, offs=25) -- 1101(line=38, offs=43) -*/ -ATSINSmove(tmpref20, atspre_g0int_mul_int(arg0, tmp21)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1135(line=40, offs=17) -- 1136(line=40, offs=18) -*/ -ATSINSmove(tmpret6, tmpref20) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1055(line=37, offs=15) -- 1154(line=41, offs=18) -*/ -/* -INSletpop() -*/ -} /* ATSendif */ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 895(line=30, offs=11) -- 1168(line=42, offs=14) -*/ -/* -INSletpop() -*/ -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1192(line=44, offs=11) -- 1193(line=44, offs=12) -*/ -ATSINSmove(tmpret6, ATSPMVi0nt(1)) ; -} /* ATSendif */ -ATSbranch_end() - -/* -** ibranchlst-end -*/ -ATScaseof_end() - -ATSfunbody_end() -ATSreturn(tmpret6) ; -} /* end of [exp_3] */ - -#if(0) -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12679(line=659, offs=3) -- 12718(line=659, offs=42) -*/ -/* -local: -global: gt_g1int_int$4$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = tk(4637) -tmparg = S2Evar(tk(4637)) -tmpsub = None() -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__gt_g1int_int__4(atstkind_t0ype(atstyvar_type(tk)) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret8, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp9, atstkind_t0ype(atstyvar_type(tk))) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12664(line=658, offs=1) -- 12718(line=659, offs=42) -*/ -ATSINSflab(__patsflab_gt_g1int_int): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12705(line=659, offs=29) -- 12716(line=659, offs=40) -*/ -ATSINSmove(tmp9, PMVtmpltcst(g1int2int)(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12688(line=659, offs=12) -- 12718(line=659, offs=42) -*/ -ATSINSmove(tmpret8, PMVtmpltcst(g1int_gt)(arg0, tmp9)) ; - -ATSfunbody_end() -ATSreturn(tmpret8) ; -} /* end of [ATSLIB_056_prelude__gt_g1int_int__4] */ -#endif // end of [TEMPLATE] - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12679(line=659, offs=3) -- 12718(line=659, offs=42) -*/ -/* -local: -global: gt_g1int_int$4$1(level=1) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4637) -tmparg = S2Evar(tk(4637)) -tmpsub = Some(tk(4637) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__gt_g1int_int__4__1(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret8__1, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp9__1, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12664(line=658, offs=1) -- 12718(line=659, offs=42) -*/ -ATSINSflab(__patsflab_gt_g1int_int): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12705(line=659, offs=29) -- 12716(line=659, offs=40) -*/ -ATSINSmove(tmp9__1, atspre_g1int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12688(line=659, offs=12) -- 12718(line=659, offs=42) -*/ -ATSINSmove(tmpret8__1, atspre_g1int_gt_int(arg0, tmp9__1)) ; - -ATSfunbody_end() -ATSreturn(tmpret8__1) ; -} /* end of [ATSLIB_056_prelude__gt_g1int_int__4__1] */ - -#if(0) -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) -*/ -/* -local: -global: eq_g0int_int$10$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = tk(4628) -tmparg = S2Evar(tk(4628)) -tmpsub = None() -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g0int_int__10(atstkind_t0ype(atstyvar_type(tk)) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret15, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp16, atstkind_t0ype(atstyvar_type(tk))) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) -*/ -ATSINSflab(__patsflab_eq_g0int_int): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) -*/ -ATSINSmove(tmp16, PMVtmpltcst(g0int2int)(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) -*/ -ATSINSmove(tmpret15, PMVtmpltcst(g0int_eq)(arg0, tmp16)) ; - -ATSfunbody_end() -ATSreturn(tmpret15) ; -} /* end of [ATSLIB_056_prelude__eq_g0int_int__10] */ -#endif // end of [TEMPLATE] - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) -*/ -/* -local: -global: eq_g0int_int$10$1(level=1) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4628) -tmparg = S2Evar(tk(4628)) -tmpsub = Some(tk(4628) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g0int_int__10__1(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret15__1, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp16__1, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) -*/ -ATSINSflab(__patsflab_eq_g0int_int): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) -*/ -ATSINSmove(tmp16__1, atspre_g0int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) -*/ -ATSINSmove(tmpret15__1, atspre_g0int_eq_int(arg0, tmp16__1)) ; - -ATSfunbody_end() -ATSreturn(tmpret15__1) ; -} /* end of [ATSLIB_056_prelude__eq_g0int_int__10__1] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1241(line=48, offs=5) -- 1849(line=74, offs=39) -*/ -/* -local: big_exp_15$0(level=0) -global: big_exp_15$0(level=0) -local: -global: -*/ -ATSstatic() -atstkind_type(atstype_ptrk) -big_exp_15(atstkind_type(atstype_ptrk) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(apy0, atstkind_type(atstype_ptrk)) ; -ATStmpdec(apy1, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmpret23, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp24, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp29, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp48, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmpref51, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmpref52, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp53, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmpref56, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmpref76, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmpref82, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmpref83, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp88) ; -// ATStmpdec_void(tmp91) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1241(line=48, offs=5) -- 1849(line=74, offs=39) -*/ -ATSINSflab(__patsflab_big_exp_15): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1304(line=49, offs=6) -- 1328(line=49, offs=30) -*/ -ATSINSmove(tmp29, ATSCNTRB_056_HX_056_intinf_vt__compare_intinf_int__19__1(ATSPMVrefarg0(arg0), ATSPMVi0nt(0))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1304(line=49, offs=6) -- 1332(line=49, offs=34) -*/ -ATSINSmove(tmp24, ATSLIB_056_prelude__eq_g1int_int__16__1(tmp29, ATSPMVi0nt(0))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1301(line=49, offs=3) -- 1849(line=74, offs=39) -*/ -ATSif( -tmp24 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1342(line=50, offs=5) -- 1343(line=50, offs=6) -*/ -ATSINSmove(tmpret23, arg0) ; -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1358(line=52, offs=8) -- 1363(line=52, offs=13) -*/ -ATSINSmove(tmp48, ATSLIB_056_prelude__gt_g1int_int__4__2(arg1, ATSPMVi0nt(0))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1355(line=52, offs=5) -- 1849(line=74, offs=39) -*/ -ATSif( -tmp48 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1375(line=53, offs=7) -- 1801(line=72, offs=10) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1391(line=54, offs=13) -- 1393(line=54, offs=15) -*/ -/* -ATSINStmpdec(tmpref51) ; -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1396(line=54, offs=18) -- 1402(line=54, offs=24) -*/ -ATSINSmove(tmpref51, atspre_g1int_half_int(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1416(line=55, offs=13) -- 1418(line=55, offs=15) -*/ -/* -ATSINStmpdec(tmpref52) ; -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1421(line=55, offs=18) -- 1426(line=55, offs=23) -*/ -ATSINSmove(tmpref52, atspre_g0int_mod_int(arg1, ATSPMVi0nt(2))) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1447(line=57, offs=12) -- 1453(line=57, offs=18) -*/ -ATSINSmove(tmp53, ATSLIB_056_prelude__eq_g0int_int__10__2(tmpref52, ATSPMVi0nt(0))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1444(line=57, offs=9) -- 1791(line=71, offs=14) -*/ -ATSif( -tmp53 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1469(line=58, offs=11) -- 1564(line=62, offs=14) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1489(line=59, offs=17) -- 1490(line=59, offs=18) -*/ -/* -ATSINStmpdec(tmpref56) ; -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1493(line=59, offs=21) -- 1509(line=59, offs=37) -*/ -ATSINSmove(tmpref56, ATSCNTRB_056_HX_056_intinf_vt__square_intinf0__30__1(arg0)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1536(line=61, offs=13) -- 1550(line=61, offs=27) -*/ -ATStailcal_beg() -ATSINSmove_tlcal(apy0, tmpref56) ; -ATSINSmove_tlcal(apy1, tmpref51) ; -ATSINSargmove_tlcal(arg0, apy0) ; -ATSINSargmove_tlcal(arg1, apy1) ; -ATSINSfgoto(__patsflab_big_exp_15) ; -ATStailcal_end() - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1469(line=58, offs=11) -- 1564(line=62, offs=14) -*/ -/* -INSletpop() -*/ -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1588(line=64, offs=11) -- 1791(line=71, offs=14) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1608(line=65, offs=17) -- 1610(line=65, offs=19) -*/ -/* -ATSINStmpdec(tmpref76) ; -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1613(line=65, offs=22) -- 1629(line=65, offs=38) -*/ -ATSINSmove(tmpref76, ATSCNTRB_056_HX_056_intinf_vt__square_intinf1__32__2(ATSPMVrefarg0(arg0))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1647(line=66, offs=17) -- 1649(line=66, offs=19) -*/ -/* -ATSINStmpdec(tmpref82) ; -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1652(line=66, offs=22) -- 1667(line=66, offs=37) -*/ -ATSINSmove(tmpref82, big_exp_15(tmpref76, tmpref51)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1684(line=67, offs=17) -- 1685(line=67, offs=18) -*/ -/* -ATSINStmpdec(tmpref83) ; -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1688(line=67, offs=21) -- 1714(line=67, offs=47) -*/ -ATSINSmove(tmpref83, ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_intinf1__39__1(tmpref82, ATSPMVrefarg0(arg0))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1736(line=68, offs=22) -- 1749(line=68, offs=35) -*/ -ATSINSmove_void(tmp88, ATSCNTRB_056_HX_056_intinf_vt__intinf_free__35__2(arg0)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1776(line=70, offs=13) -- 1777(line=70, offs=14) -*/ -ATSINSmove(tmpret23, tmpref83) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1588(line=64, offs=11) -- 1791(line=71, offs=14) -*/ -/* -INSletpop() -*/ -} /* ATSendif */ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1375(line=53, offs=7) -- 1801(line=72, offs=10) -*/ -/* -INSletpop() -*/ -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1818(line=74, offs=8) -- 1831(line=74, offs=21) -*/ -ATSINSmove_void(tmp91, ATSCNTRB_056_HX_056_intinf_vt__intinf_free__35__3(arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1835(line=74, offs=25) -- 1848(line=74, offs=38) -*/ -ATSINSmove(tmpret23, ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__43__1(ATSPMVi0nt(1))) ; - -} /* ATSendif */ -} /* ATSendif */ -ATSfunbody_end() -ATSreturn(tmpret23) ; -} /* end of [big_exp_15] */ - -#if(0) -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12838(line=668, offs=3) -- 12877(line=668, offs=42) -*/ -/* -local: -global: eq_g1int_int$16$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = tk(4643) -tmparg = S2Evar(tk(4643)) -tmpsub = None() -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g1int_int__16(atstkind_t0ype(atstyvar_type(tk)) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret25, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp26, atstkind_t0ype(atstyvar_type(tk))) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12823(line=667, offs=1) -- 12877(line=668, offs=42) -*/ -ATSINSflab(__patsflab_eq_g1int_int): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12864(line=668, offs=29) -- 12875(line=668, offs=40) -*/ -ATSINSmove(tmp26, PMVtmpltcst(g1int2int)(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12847(line=668, offs=12) -- 12877(line=668, offs=42) -*/ -ATSINSmove(tmpret25, PMVtmpltcst(g1int_eq)(arg0, tmp26)) ; - -ATSfunbody_end() -ATSreturn(tmpret25) ; -} /* end of [ATSLIB_056_prelude__eq_g1int_int__16] */ -#endif // end of [TEMPLATE] - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12838(line=668, offs=3) -- 12877(line=668, offs=42) -*/ -/* -local: -global: eq_g1int_int$16$1(level=1) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4643) -tmparg = S2Evar(tk(4643)) -tmpsub = Some(tk(4643) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g1int_int__16__1(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret25__1, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp26__1, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12823(line=667, offs=1) -- 12877(line=668, offs=42) -*/ -ATSINSflab(__patsflab_eq_g1int_int): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12864(line=668, offs=29) -- 12875(line=668, offs=40) -*/ -ATSINSmove(tmp26__1, atspre_g1int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12847(line=668, offs=12) -- 12877(line=668, offs=42) -*/ -ATSINSmove(tmpret25__1, atspre_g1int_eq_int(arg0, tmp26__1)) ; - -ATSfunbody_end() -ATSreturn(tmpret25__1) ; -} /* end of [ATSLIB_056_prelude__eq_g1int_int__16__1] */ - -#if(0) -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13321(line=768, offs=9) -- 13484(line=775, offs=4) -*/ -/* -local: -global: compare_intinf_int$19$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_t0ype(atstype_int) -ATSCNTRB_056_HX_056_intinf_vt__compare_intinf_int__19(atsrefarg0_type(atstkind_type(atstype_ptrk)) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret30, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp31, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp32, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp33, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp34, atstkind_t0ype(atstype_bool)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13294(line=767, offs=1) -- 13484(line=775, offs=4) -*/ -ATSINSflab(__patsflab_compare_intinf_int): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13330(line=768, offs=18) -- 13484(line=775, offs=4) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13347(line=770, offs=11) -- 13375(line=770, offs=39) -*/ -ATSINSmove(tmp31, atscntrb_gmp_mpz_cmp_int(ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13390(line=771, offs=15) -- 13397(line=771, offs=22) -*/ -ATSINSmove(tmp33, PMVtmpltcst(lt_g0int_int)(tmp31, ATSPMVi0nt(0))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13387(line=771, offs=12) -- 13437(line=771, offs=62) -*/ -ATSif( -tmp33 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13403(line=771, offs=28) -- 13405(line=771, offs=30) -*/ -ATSINSmove(tmp32, PMVtmpltcst(g1int_neg)(ATSPMVi0nt(1))) ; - -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13415(line=771, offs=40) -- 13422(line=771, offs=47) -*/ -ATSINSmove(tmp34, PMVtmpltcst(gt_g0int_int)(tmp31, ATSPMVi0nt(0))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13412(line=771, offs=37) -- 13436(line=771, offs=61) -*/ -ATSif( -tmp34 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13428(line=771, offs=53) -- 13429(line=771, offs=54) -*/ -ATSINSmove(tmp32, ATSPMVi0nt(1)) ; -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13435(line=771, offs=60) -- 13436(line=771, offs=61) -*/ -ATSINSmove(tmp32, ATSPMVi0nt(0)) ; -} /* ATSendif */ -} /* ATSendif */ -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13452(line=774, offs=3) -- 13479(line=774, offs=30) -*/ -ATSINSmove(tmpret30, ATSPMVcastfn(cast, atstkind_t0ype(atstype_int), tmp32)) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13330(line=768, offs=18) -- 13484(line=775, offs=4) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret30) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__compare_intinf_int__19] */ -#endif // end of [TEMPLATE] - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13321(line=768, offs=9) -- 13484(line=775, offs=4) -*/ -/* -local: -global: compare_intinf_int$19$1(level=1) -local: -global: -*/ -ATSstatic() -/* -imparg = -tmparg = -tmpsub = Some() -*/ -atstkind_t0ype(atstype_int) -ATSCNTRB_056_HX_056_intinf_vt__compare_intinf_int__19__1(atsrefarg0_type(atstkind_type(atstype_ptrk)) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret30__1, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp31__1, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp32__1, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp33__1, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp34__1, atstkind_t0ype(atstype_bool)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13294(line=767, offs=1) -- 13484(line=775, offs=4) -*/ -ATSINSflab(__patsflab_compare_intinf_int): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13330(line=768, offs=18) -- 13484(line=775, offs=4) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13347(line=770, offs=11) -- 13375(line=770, offs=39) -*/ -ATSINSmove(tmp31__1, atscntrb_gmp_mpz_cmp_int(ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13390(line=771, offs=15) -- 13397(line=771, offs=22) -*/ -ATSINSmove(tmp33__1, ATSLIB_056_prelude__lt_g0int_int__21__1(tmp31__1, ATSPMVi0nt(0))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13387(line=771, offs=12) -- 13437(line=771, offs=62) -*/ -ATSif( -tmp33__1 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13403(line=771, offs=28) -- 13405(line=771, offs=30) -*/ -ATSINSmove(tmp32__1, atspre_g1int_neg_int(ATSPMVi0nt(1))) ; - -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13415(line=771, offs=40) -- 13422(line=771, offs=47) -*/ -ATSINSmove(tmp34__1, ATSLIB_056_prelude__gt_g0int_int__25__1(tmp31__1, ATSPMVi0nt(0))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13412(line=771, offs=37) -- 13436(line=771, offs=61) -*/ -ATSif( -tmp34__1 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13428(line=771, offs=53) -- 13429(line=771, offs=54) -*/ -ATSINSmove(tmp32__1, ATSPMVi0nt(1)) ; -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13435(line=771, offs=60) -- 13436(line=771, offs=61) -*/ -ATSINSmove(tmp32__1, ATSPMVi0nt(0)) ; -} /* ATSendif */ -} /* ATSendif */ -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13452(line=774, offs=3) -- 13479(line=774, offs=30) -*/ -ATSINSmove(tmpret30__1, ATSPMVcastfn(cast, atstkind_t0ype(atstype_int), tmp32__1)) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13330(line=768, offs=18) -- 13484(line=775, offs=4) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret30__1) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__compare_intinf_int__19__1] */ - -#if(0) -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 11941(line=617, offs=3) -- 11980(line=617, offs=42) -*/ -/* -local: -global: lt_g0int_int$21$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = tk(4624) -tmparg = S2Evar(tk(4624)) -tmpsub = None() -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__lt_g0int_int__21(atstkind_t0ype(atstyvar_type(tk)) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret40, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp41, atstkind_t0ype(atstyvar_type(tk))) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 11926(line=616, offs=1) -- 11980(line=617, offs=42) -*/ -ATSINSflab(__patsflab_lt_g0int_int): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 11967(line=617, offs=29) -- 11978(line=617, offs=40) -*/ -ATSINSmove(tmp41, PMVtmpltcst(g0int2int)(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 11950(line=617, offs=12) -- 11980(line=617, offs=42) -*/ -ATSINSmove(tmpret40, PMVtmpltcst(g0int_lt)(arg0, tmp41)) ; - -ATSfunbody_end() -ATSreturn(tmpret40) ; -} /* end of [ATSLIB_056_prelude__lt_g0int_int__21] */ -#endif // end of [TEMPLATE] - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 11941(line=617, offs=3) -- 11980(line=617, offs=42) -*/ -/* -local: -global: lt_g0int_int$21$1(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4624) -tmparg = S2Evar(tk(4624)) -tmpsub = Some(tk(4624) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__lt_g0int_int__21__1(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret40__1, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp41__1, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 11926(line=616, offs=1) -- 11980(line=617, offs=42) -*/ -ATSINSflab(__patsflab_lt_g0int_int): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 11967(line=617, offs=29) -- 11978(line=617, offs=40) -*/ -ATSINSmove(tmp41__1, atspre_g0int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 11950(line=617, offs=12) -- 11980(line=617, offs=42) -*/ -ATSINSmove(tmpret40__1, atspre_g0int_lt_int(arg0, tmp41__1)) ; - -ATSfunbody_end() -ATSreturn(tmpret40__1) ; -} /* end of [ATSLIB_056_prelude__lt_g0int_int__21__1] */ - -#if(0) -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12100(line=626, offs=3) -- 12139(line=626, offs=42) -*/ -/* -local: -global: gt_g0int_int$25$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = tk(4626) -tmparg = S2Evar(tk(4626)) -tmpsub = None() -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__gt_g0int_int__25(atstkind_t0ype(atstyvar_type(tk)) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret44, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp45, atstkind_t0ype(atstyvar_type(tk))) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12085(line=625, offs=1) -- 12139(line=626, offs=42) -*/ -ATSINSflab(__patsflab_gt_g0int_int): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12126(line=626, offs=29) -- 12137(line=626, offs=40) -*/ -ATSINSmove(tmp45, PMVtmpltcst(g0int2int)(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12109(line=626, offs=12) -- 12139(line=626, offs=42) -*/ -ATSINSmove(tmpret44, PMVtmpltcst(g0int_gt)(arg0, tmp45)) ; - -ATSfunbody_end() -ATSreturn(tmpret44) ; -} /* end of [ATSLIB_056_prelude__gt_g0int_int__25] */ -#endif // end of [TEMPLATE] - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12100(line=626, offs=3) -- 12139(line=626, offs=42) -*/ -/* -local: -global: gt_g0int_int$25$1(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4626) -tmparg = S2Evar(tk(4626)) -tmpsub = Some(tk(4626) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__gt_g0int_int__25__1(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret44__1, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp45__1, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12085(line=625, offs=1) -- 12139(line=626, offs=42) -*/ -ATSINSflab(__patsflab_gt_g0int_int): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12126(line=626, offs=29) -- 12137(line=626, offs=40) -*/ -ATSINSmove(tmp45__1, atspre_g0int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12109(line=626, offs=12) -- 12139(line=626, offs=42) -*/ -ATSINSmove(tmpret44__1, atspre_g0int_gt_int(arg0, tmp45__1)) ; - -ATSfunbody_end() -ATSreturn(tmpret44__1) ; -} /* end of [ATSLIB_056_prelude__gt_g0int_int__25__1] */ - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12679(line=659, offs=3) -- 12718(line=659, offs=42) -*/ -/* -local: -global: gt_g1int_int$4$2(level=1) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4637) -tmparg = S2Evar(tk(4637)) -tmpsub = Some(tk(4637) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__gt_g1int_int__4__2(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret8__2, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp9__2, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12664(line=658, offs=1) -- 12718(line=659, offs=42) -*/ -ATSINSflab(__patsflab_gt_g1int_int): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12705(line=659, offs=29) -- 12716(line=659, offs=40) -*/ -ATSINSmove(tmp9__2, atspre_g1int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12688(line=659, offs=12) -- 12718(line=659, offs=42) -*/ -ATSINSmove(tmpret8__2, atspre_g1int_gt_int(arg0, tmp9__2)) ; - -ATSfunbody_end() -ATSreturn(tmpret8__2) ; -} /* end of [ATSLIB_056_prelude__gt_g1int_int__4__2] */ - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) -*/ -/* -local: -global: eq_g0int_int$10$2(level=1) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4628) -tmparg = S2Evar(tk(4628)) -tmpsub = Some(tk(4628) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g0int_int__10__2(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret15__2, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp16__2, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) -*/ -ATSINSflab(__patsflab_eq_g0int_int): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) -*/ -ATSINSmove(tmp16__2, atspre_g0int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) -*/ -ATSINSmove(tmpret15__2, atspre_g0int_eq_int(arg0, tmp16__2)) ; - -ATSfunbody_end() -ATSreturn(tmpret15__2) ; -} /* end of [ATSLIB_056_prelude__eq_g0int_int__10__2] */ - -#if(0) -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4581(line=236, offs=3) -- 4665(line=240, offs=2) -*/ -/* -local: -global: square_intinf0$30$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__square_intinf0__30(atstkind_type(atstype_ptrk) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret57, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp58, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp59) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4564(line=235, offs=1) -- 4665(line=240, offs=2) -*/ -ATSINSflab(__patsflab_square_intinf0): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4587(line=236, offs=9) -- 4665(line=240, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4611(line=238, offs=13) -- 4627(line=238, offs=29) -*/ -ATSINSmove(tmp58, PMVtmpltcst(square_intinf1<>)(ATSPMVrefarg0(arg0))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4649(line=239, offs=21) -- 4662(line=239, offs=34) -*/ -ATSINSmove_void(tmp59, PMVtmpltcst(intinf_free<>)(arg0)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4587(line=236, offs=9) -- 4590(line=236, offs=12) -*/ -ATSINSmove(tmpret57, tmp58) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4587(line=236, offs=9) -- 4665(line=240, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret57) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__square_intinf0__30] */ -#endif // end of [TEMPLATE] - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4581(line=236, offs=3) -- 4665(line=240, offs=2) -*/ -/* -local: -global: square_intinf0$30$1(level=1) -local: -global: -*/ -ATSstatic() -/* -imparg = -tmparg = -tmpsub = Some() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__square_intinf0__30__1(atstkind_type(atstype_ptrk) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret57__1, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp58__1, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp59__1) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4564(line=235, offs=1) -- 4665(line=240, offs=2) -*/ -ATSINSflab(__patsflab_square_intinf0): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4587(line=236, offs=9) -- 4665(line=240, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4611(line=238, offs=13) -- 4627(line=238, offs=29) -*/ -ATSINSmove(tmp58__1, ATSCNTRB_056_HX_056_intinf_vt__square_intinf1__32__1(ATSPMVrefarg0(arg0))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4649(line=239, offs=21) -- 4662(line=239, offs=34) -*/ -ATSINSmove_void(tmp59__1, ATSCNTRB_056_HX_056_intinf_vt__intinf_free__35__1(arg0)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4587(line=236, offs=9) -- 4590(line=236, offs=12) -*/ -ATSINSmove(tmpret57__1, tmp58__1) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4587(line=236, offs=9) -- 4665(line=240, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret57__1) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__square_intinf0__30__1] */ - -#if(0) -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4755(line=247, offs=3) -- 4900(line=256, offs=2) -*/ -/* -local: -global: square_intinf1$32$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__square_intinf1__32(atsrefarg0_type(atstkind_type(atstype_ptrk)) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret63, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp64, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp65) ; -// ATStmpdec_void(tmp66) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4738(line=246, offs=1) -- 4900(line=256, offs=2) -*/ -ATSINSflab(__patsflab_square_intinf1): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4761(line=247, offs=9) -- 4900(line=256, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4784(line=250, offs=9) -- 4800(line=250, offs=25) -*/ -ATSINSmove(tmp64, PMVtmpltcst(ptr_alloc)()) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4812(line=252, offs=3) -- 4849(line=252, offs=40) -*/ -ATSINSmove_void(tmp65, atscntrb_gmp_mpz_init_set_mpz(ATSPMVrefarg1(ATSSELrecsin(tmp64, atstkind_type(atstype_ptrk), atslab__2)), ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4862(line=254, offs=10) -- 4895(line=254, offs=43) -*/ -ATSINSmove_void(tmp66, atscntrb_gmp_mpz_mul2_mpz(ATSPMVrefarg1(ATSSELrecsin(tmp64, atstkind_type(atstype_ptrk), atslab__2)), ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)))) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4762(line=247, offs=10) -- 4763(line=247, offs=11) -*/ -ATSINSmove(tmpret63, tmp64) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4761(line=247, offs=9) -- 4900(line=256, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret63) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__square_intinf1__32] */ -#endif // end of [TEMPLATE] - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4755(line=247, offs=3) -- 4900(line=256, offs=2) -*/ -/* -local: -global: square_intinf1$32$1(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = -tmparg = -tmpsub = Some() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__square_intinf1__32__1(atsrefarg0_type(atstkind_type(atstype_ptrk)) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret63__1, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp64__1, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp65__1) ; -// ATStmpdec_void(tmp66__1) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4738(line=246, offs=1) -- 4900(line=256, offs=2) -*/ -ATSINSflab(__patsflab_square_intinf1): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4761(line=247, offs=9) -- 4900(line=256, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4784(line=250, offs=9) -- 4800(line=250, offs=25) -*/ -ATSINSmove(tmp64__1, ATSLIB_056_prelude__ptr_alloc__1__2()) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4812(line=252, offs=3) -- 4849(line=252, offs=40) -*/ -ATSINSmove_void(tmp65__1, atscntrb_gmp_mpz_init_set_mpz(ATSPMVrefarg1(ATSSELrecsin(tmp64__1, atstkind_type(atstype_ptrk), atslab__2)), ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4862(line=254, offs=10) -- 4895(line=254, offs=43) -*/ -ATSINSmove_void(tmp66__1, atscntrb_gmp_mpz_mul2_mpz(ATSPMVrefarg1(ATSSELrecsin(tmp64__1, atstkind_type(atstype_ptrk), atslab__2)), ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)))) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4762(line=247, offs=10) -- 4763(line=247, offs=11) -*/ -ATSINSmove(tmpret63__1, tmp64__1) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4761(line=247, offs=9) -- 4900(line=256, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret63__1) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__square_intinf1__32__1] */ - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42) -*/ -/* -local: -global: ptr_alloc$1$2(level=3) -local: -global: -*/ -ATSstatic() -/* -imparg = a(4740) -tmparg = S2Evar(a(4740)) -tmpsub = Some(a(4740) -> S2Ecst(mpz_vt0ype)) -*/ -atstkind_type(atstype_ptrk) -ATSLIB_056_prelude__ptr_alloc__1__2() -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret2__2, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3708(line=184, offs=1) -- 3749(line=184, offs=42) -*/ -ATSINSflab(__patsflab_ptr_alloc): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42) -*/ -ATSINSmove(tmpret2__2, atspre_ptr_alloc_tsz(ATSPMVsizeof(atscntrb_gmp_mpz))) ; - -ATSfunbody_end() -ATSreturn(tmpret2__2) ; -} /* end of [ATSLIB_056_prelude__ptr_alloc__1__2] */ - -#if(0) -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2888(line=119, offs=12) -- 2987(line=122, offs=4) -*/ -/* -local: -global: intinf_free$35$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atsvoid_t0ype -ATSCNTRB_056_HX_056_intinf_vt__intinf_free__35(atstkind_type(atstype_ptrk) arg0) -{ -/* tmpvardeclst(beg) */ -// ATStmpdec_void(tmpret72) ; -// ATStmpdec_void(tmp73) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2877(line=119, offs=1) -- 2987(line=122, offs=4) -*/ -ATSINSflab(__patsflab_intinf_free): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2894(line=119, offs=18) -- 2987(line=122, offs=4) -*/ -/* -letpush(beg) -*/ -/* (*nothing*) */ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2936(line=121, offs=12) -- 2955(line=121, offs=31) -*/ -ATSINSmove_void(tmp73, atscntrb_gmp_mpz_clear(ATSPMVrefarg1(arg0))) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2959(line=121, offs=35) -- 2983(line=121, offs=59) -*/ -ATSINSmove_void(tmpret72, atspre_ptr_free(arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2894(line=119, offs=18) -- 2987(line=122, offs=4) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn_void(tmpret72) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_free__35] */ -#endif // end of [TEMPLATE] - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2888(line=119, offs=12) -- 2987(line=122, offs=4) -*/ -/* -local: -global: intinf_free$35$1(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = -tmparg = -tmpsub = Some() -*/ -atsvoid_t0ype -ATSCNTRB_056_HX_056_intinf_vt__intinf_free__35__1(atstkind_type(atstype_ptrk) arg0) -{ -/* tmpvardeclst(beg) */ -// ATStmpdec_void(tmpret72__1) ; -// ATStmpdec_void(tmp73__1) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2877(line=119, offs=1) -- 2987(line=122, offs=4) -*/ -ATSINSflab(__patsflab_intinf_free): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2894(line=119, offs=18) -- 2987(line=122, offs=4) -*/ -/* -letpush(beg) -*/ -/* (*nothing*) */ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2936(line=121, offs=12) -- 2955(line=121, offs=31) -*/ -ATSINSmove_void(tmp73__1, atscntrb_gmp_mpz_clear(ATSPMVrefarg1(arg0))) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2959(line=121, offs=35) -- 2983(line=121, offs=59) -*/ -ATSINSmove_void(tmpret72__1, atspre_ptr_free(arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2894(line=119, offs=18) -- 2987(line=122, offs=4) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn_void(tmpret72__1) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_free__35__1] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4755(line=247, offs=3) -- 4900(line=256, offs=2) -*/ -/* -local: -global: square_intinf1$32$2(level=1) -local: -global: -*/ -ATSstatic() -/* -imparg = -tmparg = -tmpsub = Some() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__square_intinf1__32__2(atsrefarg0_type(atstkind_type(atstype_ptrk)) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret63__2, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp64__2, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp65__2) ; -// ATStmpdec_void(tmp66__2) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4738(line=246, offs=1) -- 4900(line=256, offs=2) -*/ -ATSINSflab(__patsflab_square_intinf1): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4761(line=247, offs=9) -- 4900(line=256, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4784(line=250, offs=9) -- 4800(line=250, offs=25) -*/ -ATSINSmove(tmp64__2, ATSLIB_056_prelude__ptr_alloc__1__3()) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4812(line=252, offs=3) -- 4849(line=252, offs=40) -*/ -ATSINSmove_void(tmp65__2, atscntrb_gmp_mpz_init_set_mpz(ATSPMVrefarg1(ATSSELrecsin(tmp64__2, atstkind_type(atstype_ptrk), atslab__2)), ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4862(line=254, offs=10) -- 4895(line=254, offs=43) -*/ -ATSINSmove_void(tmp66__2, atscntrb_gmp_mpz_mul2_mpz(ATSPMVrefarg1(ATSSELrecsin(tmp64__2, atstkind_type(atstype_ptrk), atslab__2)), ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)))) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4762(line=247, offs=10) -- 4763(line=247, offs=11) -*/ -ATSINSmove(tmpret63__2, tmp64__2) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4761(line=247, offs=9) -- 4900(line=256, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret63__2) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__square_intinf1__32__2] */ - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42) -*/ -/* -local: -global: ptr_alloc$1$3(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = a(4740) -tmparg = S2Evar(a(4740)) -tmpsub = Some(a(4740) -> S2Ecst(mpz_vt0ype)) -*/ -atstkind_type(atstype_ptrk) -ATSLIB_056_prelude__ptr_alloc__1__3() -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret2__3, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3708(line=184, offs=1) -- 3749(line=184, offs=42) -*/ -ATSINSflab(__patsflab_ptr_alloc): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42) -*/ -ATSINSmove(tmpret2__3, atspre_ptr_alloc_tsz(ATSPMVsizeof(atscntrb_gmp_mpz))) ; - -ATSfunbody_end() -ATSreturn(tmpret2__3) ; -} /* end of [ATSLIB_056_prelude__ptr_alloc__1__3] */ - -#if(0) -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7761(line=437, offs=3) -- 7833(line=442, offs=2) -*/ -/* -local: -global: mul_intinf0_intinf1$39$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_intinf1__39(atstkind_type(atstype_ptrk) arg0, atsrefarg0_type(atstkind_type(atstype_ptrk)) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret84, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp85) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7739(line=436, offs=1) -- 7833(line=442, offs=2) -*/ -ATSINSflab(__patsflab_mul_intinf0_intinf1): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7770(line=437, offs=12) -- 7833(line=442, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7794(line=440, offs=10) -- 7828(line=440, offs=44) -*/ -ATSINSmove_void(tmp85, atscntrb_gmp_mpz_mul2_mpz(ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), ATSPMVrefarg1(ATSSELrecsin(arg1, atstkind_type(atstype_ptrk), atslab__2)))) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7771(line=437, offs=13) -- 7772(line=437, offs=14) -*/ -ATSINSmove(tmpret84, arg0) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7770(line=437, offs=12) -- 7833(line=442, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret84) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_intinf1__39] */ -#endif // end of [TEMPLATE] - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7761(line=437, offs=3) -- 7833(line=442, offs=2) -*/ -/* -local: -global: mul_intinf0_intinf1$39$1(level=1) -local: -global: -*/ -ATSstatic() -/* -imparg = -tmparg = -tmpsub = Some() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_intinf1__39__1(atstkind_type(atstype_ptrk) arg0, atsrefarg0_type(atstkind_type(atstype_ptrk)) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret84__1, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp85__1) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7739(line=436, offs=1) -- 7833(line=442, offs=2) -*/ -ATSINSflab(__patsflab_mul_intinf0_intinf1): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7770(line=437, offs=12) -- 7833(line=442, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7794(line=440, offs=10) -- 7828(line=440, offs=44) -*/ -ATSINSmove_void(tmp85__1, atscntrb_gmp_mpz_mul2_mpz(ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), ATSPMVrefarg1(ATSSELrecsin(arg1, atstkind_type(atstype_ptrk), atslab__2)))) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7771(line=437, offs=13) -- 7772(line=437, offs=14) -*/ -ATSINSmove(tmpret84__1, arg0) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7770(line=437, offs=12) -- 7833(line=442, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret84__1) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_intinf1__39__1] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2888(line=119, offs=12) -- 2987(line=122, offs=4) -*/ -/* -local: -global: intinf_free$35$2(level=1) -local: -global: -*/ -ATSstatic() -/* -imparg = -tmparg = -tmpsub = Some() -*/ -atsvoid_t0ype -ATSCNTRB_056_HX_056_intinf_vt__intinf_free__35__2(atstkind_type(atstype_ptrk) arg0) -{ -/* tmpvardeclst(beg) */ -// ATStmpdec_void(tmpret72__2) ; -// ATStmpdec_void(tmp73__2) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2877(line=119, offs=1) -- 2987(line=122, offs=4) -*/ -ATSINSflab(__patsflab_intinf_free): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2894(line=119, offs=18) -- 2987(line=122, offs=4) -*/ -/* -letpush(beg) -*/ -/* (*nothing*) */ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2936(line=121, offs=12) -- 2955(line=121, offs=31) -*/ -ATSINSmove_void(tmp73__2, atscntrb_gmp_mpz_clear(ATSPMVrefarg1(arg0))) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2959(line=121, offs=35) -- 2983(line=121, offs=59) -*/ -ATSINSmove_void(tmpret72__2, atspre_ptr_free(arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2894(line=119, offs=18) -- 2987(line=122, offs=4) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn_void(tmpret72__2) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_free__35__2] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2888(line=119, offs=12) -- 2987(line=122, offs=4) -*/ -/* -local: -global: intinf_free$35$3(level=1) -local: -global: -*/ -ATSstatic() -/* -imparg = -tmparg = -tmpsub = Some() -*/ -atsvoid_t0ype -ATSCNTRB_056_HX_056_intinf_vt__intinf_free__35__3(atstkind_type(atstype_ptrk) arg0) -{ -/* tmpvardeclst(beg) */ -// ATStmpdec_void(tmpret72__3) ; -// ATStmpdec_void(tmp73__3) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2877(line=119, offs=1) -- 2987(line=122, offs=4) -*/ -ATSINSflab(__patsflab_intinf_free): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2894(line=119, offs=18) -- 2987(line=122, offs=4) -*/ -/* -letpush(beg) -*/ -/* (*nothing*) */ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2936(line=121, offs=12) -- 2955(line=121, offs=31) -*/ -ATSINSmove_void(tmp73__3, atscntrb_gmp_mpz_clear(ATSPMVrefarg1(arg0))) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2959(line=121, offs=35) -- 2983(line=121, offs=59) -*/ -ATSINSmove_void(tmpret72__3, atspre_ptr_free(arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2894(line=119, offs=18) -- 2987(line=122, offs=4) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn_void(tmpret72__3) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_free__35__3] */ - -#if(0) -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2209(line=74, offs=3) -- 2301(line=80, offs=2) -*/ -/* -local: -global: intinf_make_int$43$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__43(atstkind_t0ype(atstype_int) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret94, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp95, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp96) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2191(line=73, offs=1) -- 2301(line=80, offs=2) -*/ -ATSINSflab(__patsflab_intinf_make_int): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2238(line=77, offs=9) -- 2254(line=77, offs=25) -*/ -ATSINSmove(tmp95, PMVtmpltcst(ptr_alloc)()) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2264(line=78, offs=10) -- 2296(line=78, offs=42) -*/ -ATSINSmove_void(tmp96, atscntrb_gmp_mpz_init_set_int(ATSPMVrefarg1(ATSSELrecsin(tmp95, atstkind_type(atstype_ptrk), atslab__2)), arg0)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2216(line=74, offs=10) -- 2217(line=74, offs=11) -*/ -ATSINSmove(tmpret94, tmp95) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret94) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__43] */ -#endif // end of [TEMPLATE] - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2209(line=74, offs=3) -- 2301(line=80, offs=2) -*/ -/* -local: -global: intinf_make_int$43$1(level=1) -local: -global: -*/ -ATSstatic() -/* -imparg = -tmparg = -tmpsub = Some() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__43__1(atstkind_t0ype(atstype_int) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret94__1, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp95__1, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp96__1) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2191(line=73, offs=1) -- 2301(line=80, offs=2) -*/ -ATSINSflab(__patsflab_intinf_make_int): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2238(line=77, offs=9) -- 2254(line=77, offs=25) -*/ -ATSINSmove(tmp95__1, ATSLIB_056_prelude__ptr_alloc__1__4()) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2264(line=78, offs=10) -- 2296(line=78, offs=42) -*/ -ATSINSmove_void(tmp96__1, atscntrb_gmp_mpz_init_set_int(ATSPMVrefarg1(ATSSELrecsin(tmp95__1, atstkind_type(atstype_ptrk), atslab__2)), arg0)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2216(line=74, offs=10) -- 2217(line=74, offs=11) -*/ -ATSINSmove(tmpret94__1, tmp95__1) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret94__1) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__43__1] */ - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42) -*/ -/* -local: -global: ptr_alloc$1$4(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = a(4740) -tmparg = S2Evar(a(4740)) -tmpsub = Some(a(4740) -> S2Ecst(mpz_vt0ype)) -*/ -atstkind_type(atstype_ptrk) -ATSLIB_056_prelude__ptr_alloc__1__4() -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret2__4, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3708(line=184, offs=1) -- 3749(line=184, offs=42) -*/ -ATSINSflab(__patsflab_ptr_alloc): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42) -*/ -ATSINSmove(tmpret2__4, atspre_ptr_alloc_tsz(ATSPMVsizeof(atscntrb_gmp_mpz))) ; - -ATSfunbody_end() -ATSreturn(tmpret2__4) ; -} /* end of [ATSLIB_056_prelude__ptr_alloc__1__4] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1895(line=77, offs=4) -- 2042(line=82, offs=6) -*/ -/* -local: -global: sqrt_int_46$0(level=0) -local: -global: -*/ -ATSstatic() -atstkind_t0ype(atstype_int) -sqrt_int_46(atstkind_t0ype(atstype_int) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret101, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmpref102, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp103, atstkind_t0ype(atstype_double)) ; -ATStmpdec(tmp104, atstkind_t0ype(atstype_double)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1895(line=77, offs=4) -- 2042(line=82, offs=6) -*/ -ATSINSflab(__patsflab_sqrt_int_46): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1941(line=78, offs=3) -- 2042(line=82, offs=6) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1953(line=79, offs=9) -- 1958(line=79, offs=14) -*/ -/* -ATSINStmpdec(tmpref102) ; -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1985(line=79, offs=41) -- 2009(line=79, offs=65) -*/ -ATSINSmove(tmp104, atspre_g0int2float_int_double(arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1973(line=79, offs=29) -- 2011(line=79, offs=67) -*/ -ATSINSmove(tmp103, atslib_libats_libc_sqrt_double(tmp104)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1961(line=79, offs=17) -- 2012(line=79, offs=68) -*/ -ATSINSmove(tmpref102, atspre_g0float2int_double_int(tmp103)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2022(line=81, offs=5) -- 2035(line=81, offs=18) -*/ -ATSINSmove(tmpret101, ATSPMVcastfn(witness, atstkind_t0ype(atstype_int), tmpref102)) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1941(line=78, offs=3) -- 2042(line=82, offs=6) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret101) ; -} /* end of [sqrt_int_46] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2078(line=85, offs=4) -- 2659(line=108, offs=10) -*/ -/* -local: sqrt_int_46$0(level=0) -global: sqrt_int_46$0(level=0), is_prime_48$0(level=0) -local: -global: -*/ -ATSstatic() -atstkind_t0ype(atstype_bool) -is_prime_48(atstkind_t0ype(atstype_int) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret105, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp124, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2078(line=85, offs=4) -- 2659(line=108, offs=10) -*/ -ATSINSflab(__patsflab_is_prime_48): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2114(line=86, offs=3) -- 2659(line=108, offs=10) -*/ -ATScaseof_beg() -/* -** ibranchlst-beg -*/ -ATSbranch_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2131(line=87, offs=7) -- 2132(line=87, offs=8) -*/ -ATSINSlab(__atstmplab3): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2087(line=85, offs=13) -- 2088(line=85, offs=14) -*/ -ATSifnthen(ATSCKpat_int(arg0, ATSPMVint(1))) { ATSINSgoto(__atstmplab5) ; } ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2132(line=87, offs=8) -- 2132(line=87, offs=8) -*/ -ATSINSlab(__atstmplab4): -/* -emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) -*/ -/* -ibranch-mbody: -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2136(line=87, offs=12) -- 2141(line=87, offs=17) -*/ -ATSINSmove(tmpret105, ATSPMVbool_false()) ; -ATSbranch_end() - -ATSbranch_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2149(line=88, offs=8) -- 2149(line=88, offs=8) -*/ -ATSINSlab(__atstmplab5): -/* -emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) -*/ -/* -ibranch-mbody: -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2174(line=90, offs=9) -- 2649(line=107, offs=12) -*/ -/* -letpush(beg) -*/ -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2625(line=106, offs=19) -- 2635(line=106, offs=29) -*/ -ATSINSmove(tmp124, sqrt_int_46(arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2617(line=106, offs=11) -- 2637(line=106, offs=31) -*/ -ATSINSmove(tmpret105, loop_49(arg0, ATSPMVi0nt(2), tmp124)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2174(line=90, offs=9) -- 2649(line=107, offs=12) -*/ -/* -INSletpop() -*/ -ATSbranch_end() - -/* -** ibranchlst-end -*/ -ATScaseof_end() - -ATSfunbody_end() -ATSreturn(tmpret105) ; -} /* end of [is_prime_48] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2192(line=91, offs=15) -- 2595(line=104, offs=21) -*/ -/* -local: loop_49$0(level=1) -global: loop_49$0(level=1) -local: k$5102(1)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))) -global: k$5102(1)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))) -*/ -ATSstatic() -atstkind_t0ype(atstype_bool) -loop_49(atstkind_t0ype(atstype_int) env0, atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(apy0, atstkind_t0ype(atstype_int)) ; -ATStmpdec(apy1, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmpret106, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp107, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp112, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp115, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp116, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp117, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp120, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp123, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2192(line=91, offs=15) -- 2595(line=104, offs=21) -*/ -ATSINSflab(__patsflab_loop_49): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2282(line=92, offs=16) -- 2291(line=92, offs=25) -*/ -ATSINSmove(tmp107, ATSLIB_056_prelude__lt_g1int_int__50__1(arg0, arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2279(line=92, offs=13) -- 2595(line=104, offs=21) -*/ -ATSif( -tmp107 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2314(line=93, offs=18) -- 2319(line=93, offs=23) -*/ -ATSINSmove(tmp115, atspre_g0int_mod_int(env0, arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2314(line=93, offs=18) -- 2323(line=93, offs=27) -*/ -ATSINSmove(tmp112, ATSLIB_056_prelude__eq_g0int_int__10__3(tmp115, ATSPMVi0nt(0))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2311(line=93, offs=15) -- 2404(line=96, offs=35) -*/ -ATSif( -tmp112 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2345(line=94, offs=17) -- 2350(line=94, offs=22) -*/ -ATSINSmove(tmpret106, ATSPMVbool_false()) ; -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2391(line=96, offs=22) -- 2396(line=96, offs=27) -*/ -ATSINSmove(tmp116, atspre_g1int_add_int(arg0, ATSPMVi0nt(1))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2386(line=96, offs=17) -- 2404(line=96, offs=35) -*/ -ATStailcal_beg() -ATSINSmove_tlcal(apy0, tmp116) ; -ATSINSmove_tlcal(apy1, arg1) ; -ATSINSargmove_tlcal(arg0, apy0) ; -ATSINSargmove_tlcal(arg1, apy1) ; -ATSINSfgoto(__patsflab_loop_49) ; -ATStailcal_end() - -} /* ATSendif */ -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2439(line=98, offs=18) -- 2448(line=98, offs=27) -*/ -ATSINSmove(tmp117, ATSLIB_056_prelude__eq_g1int_int__16__2(arg0, arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2436(line=98, offs=15) -- 2595(line=104, offs=21) -*/ -ATSif( -tmp117 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2473(line=99, offs=20) -- 2478(line=99, offs=25) -*/ -ATSINSmove(tmp123, atspre_g0int_mod_int(env0, arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2473(line=99, offs=20) -- 2482(line=99, offs=29) -*/ -ATSINSmove(tmp120, ATSLIB_056_prelude__eq_g0int_int__10__4(tmp123, ATSPMVi0nt(0))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2470(line=99, offs=17) -- 2555(line=102, offs=23) -*/ -ATSif( -tmp120 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2506(line=100, offs=19) -- 2511(line=100, offs=24) -*/ -ATSINSmove(tmpret106, ATSPMVbool_false()) ; -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2551(line=102, offs=19) -- 2555(line=102, offs=23) -*/ -ATSINSmove(tmpret106, ATSPMVbool_true()) ; -} /* ATSendif */ -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2591(line=104, offs=17) -- 2595(line=104, offs=21) -*/ -ATSINSmove(tmpret106, ATSPMVbool_true()) ; -} /* ATSendif */ -} /* ATSendif */ -ATSfunbody_end() -ATSreturn(tmpret106) ; -} /* end of [loop_49] */ - -#if(0) -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12520(line=650, offs=3) -- 12559(line=650, offs=42) -*/ -/* -local: -global: lt_g1int_int$50$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = tk(4631) -tmparg = S2Evar(tk(4631)) -tmpsub = None() -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__lt_g1int_int__50(atstkind_t0ype(atstyvar_type(tk)) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret108, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp109, atstkind_t0ype(atstyvar_type(tk))) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12505(line=649, offs=1) -- 12559(line=650, offs=42) -*/ -ATSINSflab(__patsflab_lt_g1int_int): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12546(line=650, offs=29) -- 12557(line=650, offs=40) -*/ -ATSINSmove(tmp109, PMVtmpltcst(g1int2int)(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12529(line=650, offs=12) -- 12559(line=650, offs=42) -*/ -ATSINSmove(tmpret108, PMVtmpltcst(g1int_lt)(arg0, tmp109)) ; - -ATSfunbody_end() -ATSreturn(tmpret108) ; -} /* end of [ATSLIB_056_prelude__lt_g1int_int__50] */ -#endif // end of [TEMPLATE] - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12520(line=650, offs=3) -- 12559(line=650, offs=42) -*/ -/* -local: -global: lt_g1int_int$50$1(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4631) -tmparg = S2Evar(tk(4631)) -tmpsub = Some(tk(4631) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__lt_g1int_int__50__1(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret108__1, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp109__1, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12505(line=649, offs=1) -- 12559(line=650, offs=42) -*/ -ATSINSflab(__patsflab_lt_g1int_int): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12546(line=650, offs=29) -- 12557(line=650, offs=40) -*/ -ATSINSmove(tmp109__1, atspre_g1int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12529(line=650, offs=12) -- 12559(line=650, offs=42) -*/ -ATSINSmove(tmpret108__1, atspre_g1int_lt_int(arg0, tmp109__1)) ; - -ATSfunbody_end() -ATSreturn(tmpret108__1) ; -} /* end of [ATSLIB_056_prelude__lt_g1int_int__50__1] */ - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) -*/ -/* -local: -global: eq_g0int_int$10$3(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4628) -tmparg = S2Evar(tk(4628)) -tmpsub = Some(tk(4628) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g0int_int__10__3(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret15__3, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp16__3, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) -*/ -ATSINSflab(__patsflab_eq_g0int_int): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) -*/ -ATSINSmove(tmp16__3, atspre_g0int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) -*/ -ATSINSmove(tmpret15__3, atspre_g0int_eq_int(arg0, tmp16__3)) ; - -ATSfunbody_end() -ATSreturn(tmpret15__3) ; -} /* end of [ATSLIB_056_prelude__eq_g0int_int__10__3] */ - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12838(line=668, offs=3) -- 12877(line=668, offs=42) -*/ -/* -local: -global: eq_g1int_int$16$2(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4643) -tmparg = S2Evar(tk(4643)) -tmpsub = Some(tk(4643) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g1int_int__16__2(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret25__2, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp26__2, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12823(line=667, offs=1) -- 12877(line=668, offs=42) -*/ -ATSINSflab(__patsflab_eq_g1int_int): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12864(line=668, offs=29) -- 12875(line=668, offs=40) -*/ -ATSINSmove(tmp26__2, atspre_g1int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12847(line=668, offs=12) -- 12877(line=668, offs=42) -*/ -ATSINSmove(tmpret25__2, atspre_g1int_eq_int(arg0, tmp26__2)) ; - -ATSfunbody_end() -ATSreturn(tmpret25__2) ; -} /* end of [ATSLIB_056_prelude__eq_g1int_int__16__2] */ - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) -*/ -/* -local: -global: eq_g0int_int$10$4(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4628) -tmparg = S2Evar(tk(4628)) -tmpsub = Some(tk(4628) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g0int_int__10__4(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret15__4, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp16__4, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) -*/ -ATSINSflab(__patsflab_eq_g0int_int): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) -*/ -ATSINSmove(tmp16__4, atspre_g0int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) -*/ -ATSINSmove(tmpret15__4, atspre_g0int_eq_int(arg0, tmp16__4)) ; - -ATSfunbody_end() -ATSreturn(tmpret15__4) ; -} /* end of [ATSLIB_056_prelude__eq_g0int_int__10__4] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2664(line=110, offs=4) -- 3475(line=139, offs=10) -*/ -/* -local: sqrt_int_46$0(level=0), is_prime_48$0(level=0) -global: sqrt_int_46$0(level=0), is_prime_48$0(level=0), is_semiprime_57$0(level=0) -local: -global: -*/ -ATSstatic() -atstkind_t0ype(atstype_bool) -is_semiprime_57(atstkind_t0ype(atstype_int) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret125, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp146, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2664(line=110, offs=4) -- 3475(line=139, offs=10) -*/ -ATSINSflab(__patsflab_is_semiprime_57): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2704(line=111, offs=3) -- 3475(line=139, offs=10) -*/ -ATScaseof_beg() -/* -** ibranchlst-beg -*/ -ATSbranch_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2721(line=112, offs=7) -- 2722(line=112, offs=8) -*/ -ATSINSlab(__atstmplab6): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2677(line=110, offs=17) -- 2678(line=110, offs=18) -*/ -ATSifnthen(ATSCKpat_int(arg0, ATSPMVint(1))) { ATSINSgoto(__atstmplab8) ; } ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2722(line=112, offs=8) -- 2722(line=112, offs=8) -*/ -ATSINSlab(__atstmplab7): -/* -emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) -*/ -/* -ibranch-mbody: -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2726(line=112, offs=12) -- 2731(line=112, offs=17) -*/ -ATSINSmove(tmpret125, ATSPMVbool_false()) ; -ATSbranch_end() - -ATSbranch_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2739(line=113, offs=8) -- 2739(line=113, offs=8) -*/ -ATSINSlab(__atstmplab8): -/* -emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) -*/ -/* -ibranch-mbody: -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2764(line=115, offs=9) -- 3465(line=138, offs=12) -*/ -/* -letpush(beg) -*/ -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 3441(line=137, offs=19) -- 3451(line=137, offs=29) -*/ -ATSINSmove(tmp146, sqrt_int_46(arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 3433(line=137, offs=11) -- 3453(line=137, offs=31) -*/ -ATSINSmove(tmpret125, loop_58(arg0, ATSPMVi0nt(2), tmp146)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2764(line=115, offs=9) -- 3465(line=138, offs=12) -*/ -/* -INSletpop() -*/ -ATSbranch_end() - -/* -** ibranchlst-end -*/ -ATScaseof_end() - -ATSfunbody_end() -ATSreturn(tmpret125) ; -} /* end of [is_semiprime_57] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2782(line=116, offs=15) -- 3411(line=135, offs=22) -*/ -/* -local: is_prime_48$0(level=0), loop_58$0(level=1) -global: is_prime_48$0(level=0), loop_58$0(level=1) -local: k$5108(1)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))) -global: k$5108(1)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))) -*/ -ATSstatic() -atstkind_t0ype(atstype_bool) -loop_58(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(tmpret126, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp127, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp130, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp133, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp134, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp135, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp136, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp137, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp140, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp143, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp144, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp145, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2782(line=116, offs=15) -- 3411(line=135, offs=22) -*/ -ATSINSflab(__patsflab_loop_58): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2884(line=117, offs=16) -- 2893(line=117, offs=25) -*/ -ATSINSmove(tmp127, ATSLIB_056_prelude__lt_g1int_int__50__2(arg0, arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2881(line=117, offs=13) -- 3411(line=135, offs=22) -*/ -ATSif( -tmp127 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2916(line=118, offs=18) -- 2921(line=118, offs=23) -*/ -ATSINSmove(tmp133, atspre_g0int_mod_int(env0, arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2916(line=118, offs=18) -- 2925(line=118, offs=27) -*/ -ATSINSmove(tmp130, ATSLIB_056_prelude__eq_g0int_int__10__5(tmp133, ATSPMVi0nt(0))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2913(line=118, offs=15) -- 3109(line=124, offs=35) -*/ -ATSif( -tmp130 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2950(line=119, offs=20) -- 2960(line=119, offs=30) -*/ -ATSINSmove(tmp134, is_prime_48(arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2947(line=119, offs=17) -- 3055(line=122, offs=24) -*/ -ATSif( -tmp134 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 3003(line=120, offs=37) -- 3008(line=120, offs=42) -*/ -ATSINSmove(tmp135, atspre_g1int_div_int(env0, arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2985(line=120, offs=19) -- 3010(line=120, offs=44) -*/ -ATSINSmove(tmpret126, is_prime_48(ATSPMVcastfn(cast, atstkind_t0ype(atstype_int), tmp135))) ; - -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 3050(line=122, offs=19) -- 3055(line=122, offs=24) -*/ -ATSINSmove(tmpret126, ATSPMVbool_false()) ; -} /* ATSendif */ -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 3096(line=124, offs=22) -- 3101(line=124, offs=27) -*/ -ATSINSmove(tmp136, atspre_g1int_add_int(arg0, ATSPMVi0nt(1))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 3091(line=124, offs=17) -- 3109(line=124, offs=35) -*/ -ATStailcal_beg() -ATSINSmove_tlcal(apy0, tmp136) ; -ATSINSmove_tlcal(apy1, arg1) ; -ATSINSargmove_tlcal(arg0, apy0) ; -ATSINSargmove_tlcal(arg1, apy1) ; -ATSINSfgoto(__patsflab_loop_58) ; -ATStailcal_end() - -} /* ATSendif */ -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 3144(line=126, offs=18) -- 3153(line=126, offs=27) -*/ -ATSINSmove(tmp137, ATSLIB_056_prelude__eq_g1int_int__16__3(arg0, arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 3141(line=126, offs=15) -- 3411(line=135, offs=22) -*/ -ATSif( -tmp137 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 3178(line=127, offs=20) -- 3183(line=127, offs=25) -*/ -ATSINSmove(tmp143, atspre_g0int_mod_int(env0, arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 3178(line=127, offs=20) -- 3187(line=127, offs=29) -*/ -ATSINSmove(tmp140, ATSLIB_056_prelude__eq_g0int_int__10__6(tmp143, ATSPMVi0nt(0))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 3175(line=127, offs=17) -- 3370(line=133, offs=24) -*/ -ATSif( -tmp140 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 3214(line=128, offs=22) -- 3224(line=128, offs=32) -*/ -ATSINSmove(tmp144, is_prime_48(arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 3211(line=128, offs=19) -- 3325(line=131, offs=26) -*/ -ATSif( -tmp144 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 3269(line=129, offs=39) -- 3274(line=129, offs=44) -*/ -ATSINSmove(tmp145, atspre_g1int_div_int(env0, arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 3251(line=129, offs=21) -- 3276(line=129, offs=46) -*/ -ATSINSmove(tmpret126, is_prime_48(ATSPMVcastfn(cast, atstkind_t0ype(atstype_int), tmp145))) ; - -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 3320(line=131, offs=21) -- 3325(line=131, offs=26) -*/ -ATSINSmove(tmpret126, ATSPMVbool_false()) ; -} /* ATSendif */ -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 3365(line=133, offs=19) -- 3370(line=133, offs=24) -*/ -ATSINSmove(tmpret126, ATSPMVbool_false()) ; -} /* ATSendif */ -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 3406(line=135, offs=17) -- 3411(line=135, offs=22) -*/ -ATSINSmove(tmpret126, ATSPMVbool_false()) ; -} /* ATSendif */ -} /* ATSendif */ -ATSfunbody_end() -ATSreturn(tmpret126) ; -} /* end of [loop_58] */ - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12520(line=650, offs=3) -- 12559(line=650, offs=42) -*/ -/* -local: -global: lt_g1int_int$50$2(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4631) -tmparg = S2Evar(tk(4631)) -tmpsub = Some(tk(4631) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__lt_g1int_int__50__2(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret108__2, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp109__2, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12505(line=649, offs=1) -- 12559(line=650, offs=42) -*/ -ATSINSflab(__patsflab_lt_g1int_int): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12546(line=650, offs=29) -- 12557(line=650, offs=40) -*/ -ATSINSmove(tmp109__2, atspre_g1int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12529(line=650, offs=12) -- 12559(line=650, offs=42) -*/ -ATSINSmove(tmpret108__2, atspre_g1int_lt_int(arg0, tmp109__2)) ; - -ATSfunbody_end() -ATSreturn(tmpret108__2) ; -} /* end of [ATSLIB_056_prelude__lt_g1int_int__50__2] */ - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) -*/ -/* -local: -global: eq_g0int_int$10$5(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4628) -tmparg = S2Evar(tk(4628)) -tmpsub = Some(tk(4628) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g0int_int__10__5(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret15__5, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp16__5, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) -*/ -ATSINSflab(__patsflab_eq_g0int_int): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) -*/ -ATSINSmove(tmp16__5, atspre_g0int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) -*/ -ATSINSmove(tmpret15__5, atspre_g0int_eq_int(arg0, tmp16__5)) ; - -ATSfunbody_end() -ATSreturn(tmpret15__5) ; -} /* end of [ATSLIB_056_prelude__eq_g0int_int__10__5] */ - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12838(line=668, offs=3) -- 12877(line=668, offs=42) -*/ -/* -local: -global: eq_g1int_int$16$3(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4643) -tmparg = S2Evar(tk(4643)) -tmpsub = Some(tk(4643) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g1int_int__16__3(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret25__3, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp26__3, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12823(line=667, offs=1) -- 12877(line=668, offs=42) -*/ -ATSINSflab(__patsflab_eq_g1int_int): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12864(line=668, offs=29) -- 12875(line=668, offs=40) -*/ -ATSINSmove(tmp26__3, atspre_g1int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12847(line=668, offs=12) -- 12877(line=668, offs=42) -*/ -ATSINSmove(tmpret25__3, atspre_g1int_eq_int(arg0, tmp26__3)) ; - -ATSfunbody_end() -ATSreturn(tmpret25__3) ; -} /* end of [ATSLIB_056_prelude__eq_g1int_int__16__3] */ - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) -*/ -/* -local: -global: eq_g0int_int$10$6(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4628) -tmparg = S2Evar(tk(4628)) -tmpsub = Some(tk(4628) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g0int_int__10__6(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret15__6, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp16__6, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) -*/ -ATSINSflab(__patsflab_eq_g0int_int): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) -*/ -ATSINSmove(tmp16__6, atspre_g0int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) -*/ -ATSINSmove(tmpret15__6, atspre_g0int_eq_int(arg0, tmp16__6)) ; - -ATSfunbody_end() -ATSreturn(tmpret15__6) ; -} /* end of [ATSLIB_056_prelude__eq_g0int_int__10__6] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 451(line=14, offs=19) -- 471(line=15, offs=12) -*/ -/* -local: -global: divides$64$0(level=0) -local: -global: -*/ -ATSextern() -atstkind_t0ype(atstype_bool) -_057_home_057_vanessa_057_programming_057_haskell_057_done_057_hs_055_ats_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_sats__divides(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret147, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp150, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 443(line=14, offs=11) -- 471(line=15, offs=12) -*/ -ATSINSflab(__patsflab_divides): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 462(line=15, offs=3) -- 467(line=15, offs=8) -*/ -ATSINSmove(tmp150, atspre_g0int_mod_int(arg1, arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 462(line=15, offs=3) -- 471(line=15, offs=12) -*/ -ATSINSmove(tmpret147, ATSLIB_056_prelude__eq_g0int_int__10__7(tmp150, ATSPMVi0nt(0))) ; - -ATSfunbody_end() -ATSreturn(tmpret147) ; -} /* end of [_057_home_057_vanessa_057_programming_057_haskell_057_done_057_hs_055_ats_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_sats__divides] */ - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) -*/ -/* -local: -global: eq_g0int_int$10$7(level=1) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4628) -tmparg = S2Evar(tk(4628)) -tmpsub = Some(tk(4628) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g0int_int__10__7(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret15__7, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp16__7, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) -*/ -ATSINSflab(__patsflab_eq_g0int_int): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) -*/ -ATSINSmove(tmp16__7, atspre_g0int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) -*/ -ATSINSmove(tmpret15__7, atspre_g0int_eq_int(arg0, tmp16__7)) ; - -ATSfunbody_end() -ATSreturn(tmpret15__7) ; -} /* end of [ATSLIB_056_prelude__eq_g0int_int__10__7] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 487(line=17, offs=15) -- 552(line=21, offs=6) -*/ -/* -local: -global: gcd$66$0(level=0) -local: -global: -*/ -ATSextern() -atstkind_t0ype(atstype_int) -_057_home_057_vanessa_057_programming_057_haskell_057_done_057_hs_055_ats_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_sats__gcd(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(apy0, atstkind_t0ype(atstype_int)) ; -ATStmpdec(apy1, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmpret151, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp152, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp157, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 483(line=17, offs=11) -- 552(line=21, offs=6) -*/ -ATSINSflab(__patsflab_gcd): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 501(line=18, offs=6) -- 507(line=18, offs=12) -*/ -ATSINSmove(tmp152, ATSLIB_056_prelude__neq_g1int_int__67__1(arg1, ATSPMVi0nt(0))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 498(line=18, offs=3) -- 552(line=21, offs=6) -*/ -ATSif( -tmp152 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 532(line=19, offs=20) -- 537(line=19, offs=25) -*/ -ATSINSmove(tmp157, atspre_g0int_mod_int(arg0, arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 517(line=19, offs=5) -- 539(line=19, offs=27) -*/ -ATStailcal_beg() -ATSINSmove_tlcal(apy0, arg1) ; -ATSINSmove_tlcal(apy1, ATSPMVcastfn(witness, atstkind_t0ype(atstype_int), tmp157)) ; -ATSINSargmove_tlcal(arg0, apy0) ; -ATSINSargmove_tlcal(arg1, apy1) ; -ATSINSfgoto(__patsflab_gcd) ; -ATStailcal_end() - -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 551(line=21, offs=5) -- 552(line=21, offs=6) -*/ -ATSINSmove(tmpret151, arg0) ; -} /* ATSendif */ -ATSfunbody_end() -ATSreturn(tmpret151) ; -} /* end of [_057_home_057_vanessa_057_programming_057_haskell_057_done_057_hs_055_ats_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_sats__gcd] */ - -#if(0) -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12916(line=672, offs=3) -- 12956(line=672, offs=43) -*/ -/* -local: -global: neq_g1int_int$67$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = tk(4646) -tmparg = S2Evar(tk(4646)) -tmpsub = None() -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__neq_g1int_int__67(atstkind_t0ype(atstyvar_type(tk)) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret153, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp154, atstkind_t0ype(atstyvar_type(tk))) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12900(line=671, offs=1) -- 12956(line=672, offs=43) -*/ -ATSINSflab(__patsflab_neq_g1int_int): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12943(line=672, offs=30) -- 12954(line=672, offs=41) -*/ -ATSINSmove(tmp154, PMVtmpltcst(g1int2int)(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12925(line=672, offs=12) -- 12956(line=672, offs=43) -*/ -ATSINSmove(tmpret153, PMVtmpltcst(g1int_neq)(arg0, tmp154)) ; - -ATSfunbody_end() -ATSreturn(tmpret153) ; -} /* end of [ATSLIB_056_prelude__neq_g1int_int__67] */ -#endif // end of [TEMPLATE] - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12916(line=672, offs=3) -- 12956(line=672, offs=43) -*/ -/* -local: -global: neq_g1int_int$67$1(level=1) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4646) -tmparg = S2Evar(tk(4646)) -tmpsub = Some(tk(4646) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__neq_g1int_int__67__1(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret153__1, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp154__1, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12900(line=671, offs=1) -- 12956(line=672, offs=43) -*/ -ATSINSflab(__patsflab_neq_g1int_int): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12943(line=672, offs=30) -- 12954(line=672, offs=41) -*/ -ATSINSmove(tmp154__1, atspre_g1int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12925(line=672, offs=12) -- 12956(line=672, offs=43) -*/ -ATSINSmove(tmpret153__1, atspre_g1int_neq_int(arg0, tmp154__1)) ; - -ATSfunbody_end() -ATSreturn(tmpret153__1) ; -} /* end of [ATSLIB_056_prelude__neq_g1int_int__67__1] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 568(line=23, offs=15) -- 598(line=24, offs=22) -*/ -/* -local: -global: lcm$70$0(level=0) -local: -global: -*/ -ATSextern() -atstkind_t0ype(atstype_int) -_057_home_057_vanessa_057_programming_057_haskell_057_done_057_hs_055_ats_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_sats__lcm(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret158, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp159, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp160, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 564(line=23, offs=11) -- 598(line=24, offs=22) -*/ -ATSINSflab(__patsflab_lcm): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 584(line=24, offs=8) -- 593(line=24, offs=17) -*/ -ATSINSmove(tmp160, _057_home_057_vanessa_057_programming_057_haskell_057_done_057_hs_055_ats_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_sats__gcd(arg0, arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 580(line=24, offs=4) -- 593(line=24, offs=17) -*/ -ATSINSmove(tmp159, atspre_g0int_div_int(arg0, tmp160)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 579(line=24, offs=3) -- 598(line=24, offs=22) -*/ -ATSINSmove(tmpret158, atspre_g0int_mul_int(tmp159, arg1)) ; - -ATSfunbody_end() -ATSreturn(tmpret158) ; -} /* end of [_057_home_057_vanessa_057_programming_057_haskell_057_done_057_hs_055_ats_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_sats__lcm] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 618(line=26, offs=19) -- 642(line=27, offs=16) -*/ -/* -local: -global: coprime$72$0(level=0) -local: -global: -*/ -ATSextern() -atstkind_t0ype(atstype_bool) -_057_home_057_vanessa_057_programming_057_haskell_057_done_057_hs_055_ats_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_sats__coprime(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret161, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp164, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 610(line=26, offs=11) -- 642(line=27, offs=16) -*/ -ATSINSflab(__patsflab_coprime): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 629(line=27, offs=3) -- 638(line=27, offs=12) -*/ -ATSINSmove(tmp164, _057_home_057_vanessa_057_programming_057_haskell_057_done_057_hs_055_ats_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_sats__gcd(arg0, arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 629(line=27, offs=3) -- 642(line=27, offs=16) -*/ -ATSINSmove(tmpret161, ATSLIB_056_prelude__eq_g0int_int__10__8(tmp164, ATSPMVi0nt(1))) ; - -ATSfunbody_end() -ATSreturn(tmpret161) ; -} /* end of [_057_home_057_vanessa_057_programming_057_haskell_057_done_057_hs_055_ats_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_sats__coprime] */ - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) -*/ -/* -local: -global: eq_g0int_int$10$8(level=1) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4628) -tmparg = S2Evar(tk(4628)) -tmpsub = Some(tk(4628) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g0int_int__10__8(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret15__8, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp16__8, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) -*/ -ATSINSflab(__patsflab_eq_g0int_int): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) -*/ -ATSINSmove(tmp16__8, atspre_g0int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) -*/ -ATSINSmove(tmpret15__8, atspre_g0int_eq_int(arg0, tmp16__8)) ; - -ATSfunbody_end() -ATSreturn(tmpret15__8) ; -} /* end of [ATSLIB_056_prelude__eq_g0int_int__10__8] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 663(line=29, offs=20) -- 1642(line=61, offs=8) -*/ -/* -local: sqrt_int_46$0(level=0) -global: sqrt_int_46$0(level=0), divisors$74$0(level=0) -local: -global: -*/ -ATSextern() -atstkind_type(atstype_ptrk) -_057_home_057_vanessa_057_programming_057_haskell_057_done_057_hs_055_ats_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_sats__divisors(atstkind_t0ype(atstype_int) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret165, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 654(line=29, offs=11) -- 1642(line=61, offs=8) -*/ -ATSINSflab(__patsflab_divisors): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 671(line=30, offs=3) -- 1642(line=61, offs=8) -*/ -ATScaseof_beg() -/* -** ibranchlst-beg -*/ -ATSbranch_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 688(line=31, offs=7) -- 689(line=31, offs=8) -*/ -ATSINSlab(__atstmplab9): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 664(line=29, offs=21) -- 665(line=29, offs=22) -*/ -ATSifnthen(ATSCKpat_int(arg0, ATSPMVint(1))) { ATSINSgoto(__atstmplab11) ; } ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 689(line=31, offs=8) -- 689(line=31, offs=8) -*/ -ATSINSlab(__atstmplab10): -/* -emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) -*/ -/* -ibranch-mbody: -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 693(line=31, offs=12) -- 743(line=31, offs=62) -*/ -ATSINSmove_ldelay(tmpret165, atstype_boxed, ATSPMVcfunlab(1, __patsfun_75, ())) ; -ATSbranch_end() - -ATSbranch_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 751(line=32, offs=8) -- 751(line=32, offs=8) -*/ -ATSINSlab(__atstmplab11): -/* -emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) -*/ -/* -ibranch-mbody: -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 755(line=32, offs=12) -- 1642(line=61, offs=8) -*/ -/* -letpush(beg) -*/ -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1624(line=60, offs=7) -- 1634(line=60, offs=17) -*/ -ATSINSmove(tmpret165, loop_77(arg0, ATSPMVi0nt(1))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 755(line=32, offs=12) -- 1642(line=61, offs=8) -*/ -/* -INSletpop() -*/ -ATSbranch_end() - -/* -** ibranchlst-end -*/ -ATScaseof_end() - -ATSfunbody_end() -ATSreturn(tmpret165) ; -} /* end of [_057_home_057_vanessa_057_programming_057_haskell_057_done_057_hs_055_ats_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_sats__divisors] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 693(line=31, offs=12) -- 743(line=31, offs=62) -*/ -/* -local: -global: __patsfun_75$0(level=1) -local: -global: -*/ -ATSstatic() -atstype_boxed -__patsfun_75(atstype_bool arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret166, atstype_boxed) ; -ATStmpdec(tmp167, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 693(line=31, offs=12) -- 743(line=31, offs=62) -*/ -ATSINSflab(__patsflab___patsfun_75): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 693(line=31, offs=12) -- 743(line=31, offs=62) -*/ -ATSif( -arg0 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 719(line=31, offs=38) -- 741(line=31, offs=60) -*/ -ATSINSmove_ldelay(tmp167, atstype_boxed, ATSPMVcfunlab(1, __patsfun_76, ())) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 701(line=31, offs=20) -- 742(line=31, offs=61) -*/ - -/* -#LINCONSTATUS==0 -*/ -ATSINSmove_con1_beg() -ATSINSmove_con1_new(tmpret166, postiats_tysum_1) ; -#if(0) -ATSINSstore_con1_tag(tmpret166, 1) ; -#endif -ATSINSstore_con1_ofs(tmpret166, postiats_tysum_1, atslab__0, ATSPMVi0nt(1)) ; -ATSINSstore_con1_ofs(tmpret166, postiats_tysum_1, atslab__1, tmp167) ; -ATSINSmove_con1_end() -} ATSelse() { -/* (*nothing*) */ -} /* ATSendif */ -ATSfunbody_end() -ATSreturn(tmpret166) ; -} /* end of [__patsfun_75] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 719(line=31, offs=38) -- 741(line=31, offs=60) -*/ -/* -local: -global: __patsfun_76$0(level=2) -local: -global: -*/ -ATSstatic() -atstype_boxed -__patsfun_76(atstype_bool arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret168, atstype_boxed) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 719(line=31, offs=38) -- 741(line=31, offs=60) -*/ -ATSINSflab(__patsflab___patsfun_76): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 719(line=31, offs=38) -- 741(line=31, offs=60) -*/ -ATSif( -arg0 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 727(line=31, offs=46) -- 740(line=31, offs=59) -*/ - -ATSINSmove_nil(tmpret168) ; - -} ATSelse() { -/* (*nothing*) */ -} /* ATSendif */ -ATSfunbody_end() -ATSreturn(tmpret168) ; -} /* end of [__patsfun_76] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 769(line=33, offs=11) -- 1610(line=58, offs=29) -*/ -/* -local: sqrt_int_46$0(level=0), loop_77$0(level=1) -global: sqrt_int_46$0(level=0), loop_77$0(level=1) -local: -global: -*/ -ATSstatic() -atstkind_type(atstype_ptrk) -loop_77(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(tmpret169, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp170, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp175, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp176, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp179, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp180, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp183, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmpref184, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp194, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp197, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmpref198, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp204, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 769(line=33, offs=11) -- 1610(line=58, offs=29) -*/ -ATSINSflab(__patsflab_loop_77): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 876(line=34, offs=19) -- 886(line=34, offs=29) -*/ -ATSINSmove(tmp175, sqrt_int_46(arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 869(line=34, offs=12) -- 886(line=34, offs=29) -*/ -ATSINSmove(tmp170, ATSLIB_056_prelude__gte_g1int_int__78__1(arg1, tmp175)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 866(line=34, offs=9) -- 1610(line=58, offs=29) -*/ -ATSif( -tmp170 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 906(line=35, offs=14) -- 913(line=35, offs=21) -*/ -ATSINSmove(tmp179, atspre_g0int_mod_int(arg0, arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 906(line=35, offs=14) -- 917(line=35, offs=25) -*/ -ATSINSmove(tmp176, ATSLIB_056_prelude__eq_g0int_int__10__9(tmp179, ATSPMVi0nt(0))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 903(line=35, offs=11) -- 1350(line=49, offs=35) -*/ -ATSif( -tmp176 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 938(line=36, offs=16) -- 945(line=36, offs=23) -*/ -ATSINSmove(tmp183, atspre_g1int_div_int(arg0, arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 938(line=36, offs=16) -- 952(line=36, offs=30) -*/ -ATSINSmove(tmp180, ATSLIB_056_prelude__neq_g1int_int__67__2(tmp183, arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 935(line=36, offs=13) -- 1300(line=47, offs=18) -*/ -ATSif( -tmp180 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 972(line=37, offs=15) -- 1144(line=41, offs=18) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 996(line=38, offs=21) -- 997(line=38, offs=22) -*/ -/* -ATSINStmpdec(tmpref184) ; -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1005(line=38, offs=30) -- 1012(line=38, offs=37) -*/ -ATSINSmove(tmpref184, atspre_g1int_div_int(arg0, arg1)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1046(line=40, offs=17) -- 1126(line=40, offs=97) -*/ -ATSINSmove_ldelay(tmpret169, atstype_boxed, ATSPMVcfunlab(1, __patsfun_83, (arg1, ATSPMVptrof(tmpref184)))) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 972(line=37, offs=15) -- 1144(line=41, offs=18) -*/ -/* -INSletpop() -*/ -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1230(line=46, offs=17) -- 1282(line=46, offs=69) -*/ -ATSINSmove_ldelay(tmpret169, atstype_boxed, ATSPMVcfunlab(1, __patsfun_86, (arg1))) ; -} /* ATSendif */ -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1328(line=49, offs=13) -- 1350(line=49, offs=35) -*/ -ATSINSmove_ldelay(tmpret169, atstype_boxed, ATSPMVcfunlab(1, __patsfun_88, ())) ; -} /* ATSendif */ -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1377(line=51, offs=14) -- 1384(line=51, offs=21) -*/ -ATSINSmove(tmp197, atspre_g0int_mod_int(arg0, arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1377(line=51, offs=14) -- 1388(line=51, offs=25) -*/ -ATSINSmove(tmp194, ATSLIB_056_prelude__eq_g0int_int__10__10(tmp197, ATSPMVi0nt(0))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1374(line=51, offs=11) -- 1610(line=58, offs=29) -*/ -ATSif( -tmp194 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1406(line=52, offs=13) -- 1566(line=56, offs=16) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1428(line=53, offs=19) -- 1429(line=53, offs=20) -*/ -/* -ATSINStmpdec(tmpref198) ; -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1437(line=53, offs=28) -- 1444(line=53, offs=35) -*/ -ATSINSmove(tmpref198, atspre_g1int_div_int(arg0, arg1)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1474(line=55, offs=15) -- 1550(line=55, offs=91) -*/ -ATSINSmove_ldelay(tmpret169, atstype_boxed, ATSPMVcfunlab(1, __patsfun_90, (arg0, arg1, ATSPMVptrof(tmpref198)))) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1406(line=52, offs=13) -- 1566(line=56, offs=16) -*/ -/* -INSletpop() -*/ -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1602(line=58, offs=21) -- 1609(line=58, offs=28) -*/ -ATSINSmove(tmp204, atspre_g1int_add_int(arg1, ATSPMVi0nt(1))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1594(line=58, offs=13) -- 1610(line=58, offs=29) -*/ -ATStailcal_beg() -ATSINSmove_tlcal(apy0, arg0) ; -ATSINSmove_tlcal(apy1, tmp204) ; -ATSINSargmove_tlcal(arg0, apy0) ; -ATSINSargmove_tlcal(arg1, apy1) ; -ATSINSfgoto(__patsflab_loop_77) ; -ATStailcal_end() - -} /* ATSendif */ -} /* ATSendif */ -ATSfunbody_end() -ATSreturn(tmpret169) ; -} /* end of [loop_77] */ - -#if(0) -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12757(line=663, offs=3) -- 12797(line=663, offs=43) -*/ -/* -local: -global: gte_g1int_int$78$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = tk(4640) -tmparg = S2Evar(tk(4640)) -tmpsub = None() -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__gte_g1int_int__78(atstkind_t0ype(atstyvar_type(tk)) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret171, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp172, atstkind_t0ype(atstyvar_type(tk))) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12741(line=662, offs=1) -- 12797(line=663, offs=43) -*/ -ATSINSflab(__patsflab_gte_g1int_int): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12784(line=663, offs=30) -- 12795(line=663, offs=41) -*/ -ATSINSmove(tmp172, PMVtmpltcst(g1int2int)(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12766(line=663, offs=12) -- 12797(line=663, offs=43) -*/ -ATSINSmove(tmpret171, PMVtmpltcst(g1int_gte)(arg0, tmp172)) ; - -ATSfunbody_end() -ATSreturn(tmpret171) ; -} /* end of [ATSLIB_056_prelude__gte_g1int_int__78] */ -#endif // end of [TEMPLATE] - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12757(line=663, offs=3) -- 12797(line=663, offs=43) -*/ -/* -local: -global: gte_g1int_int$78$1(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4640) -tmparg = S2Evar(tk(4640)) -tmpsub = Some(tk(4640) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__gte_g1int_int__78__1(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret171__1, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp172__1, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12741(line=662, offs=1) -- 12797(line=663, offs=43) -*/ -ATSINSflab(__patsflab_gte_g1int_int): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12784(line=663, offs=30) -- 12795(line=663, offs=41) -*/ -ATSINSmove(tmp172__1, atspre_g1int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12766(line=663, offs=12) -- 12797(line=663, offs=43) -*/ -ATSINSmove(tmpret171__1, atspre_g1int_gte_int(arg0, tmp172__1)) ; - -ATSfunbody_end() -ATSreturn(tmpret171__1) ; -} /* end of [ATSLIB_056_prelude__gte_g1int_int__78__1] */ - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) -*/ -/* -local: -global: eq_g0int_int$10$9(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4628) -tmparg = S2Evar(tk(4628)) -tmpsub = Some(tk(4628) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g0int_int__10__9(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret15__9, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp16__9, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) -*/ -ATSINSflab(__patsflab_eq_g0int_int): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) -*/ -ATSINSmove(tmp16__9, atspre_g0int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) -*/ -ATSINSmove(tmpret15__9, atspre_g0int_eq_int(arg0, tmp16__9)) ; - -ATSfunbody_end() -ATSreturn(tmpret15__9) ; -} /* end of [ATSLIB_056_prelude__eq_g0int_int__10__9] */ - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12916(line=672, offs=3) -- 12956(line=672, offs=43) -*/ -/* -local: -global: neq_g1int_int$67$2(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4646) -tmparg = S2Evar(tk(4646)) -tmpsub = Some(tk(4646) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__neq_g1int_int__67__2(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret153__2, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp154__2, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12900(line=671, offs=1) -- 12956(line=672, offs=43) -*/ -ATSINSflab(__patsflab_neq_g1int_int): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12943(line=672, offs=30) -- 12954(line=672, offs=41) -*/ -ATSINSmove(tmp154__2, atspre_g1int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12925(line=672, offs=12) -- 12956(line=672, offs=43) -*/ -ATSINSmove(tmpret153__2, atspre_g1int_neq_int(arg0, tmp154__2)) ; - -ATSfunbody_end() -ATSreturn(tmpret153__2) ; -} /* end of [ATSLIB_056_prelude__neq_g1int_int__67__2] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1046(line=40, offs=17) -- 1126(line=40, offs=97) -*/ -/* -local: -global: __patsfun_83$0(level=2) -local: acc$5123(2)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))), x$5124(2)(HSEapp(HSEcst(atstkind_type); HSEs2exp(S2Eextkind(atstype_ptrk)))) -global: acc$5123(2)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))), x$5124(2)(HSEapp(HSEcst(atstkind_type); HSEs2exp(S2Eextkind(atstype_ptrk)))) -*/ -ATSstatic() -atstype_boxed -__patsfun_83(atstkind_t0ype(atstype_int) env0, atstkind_type(atstype_ptrk) env1, atstype_bool arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret185, atstype_boxed) ; -ATStmpdec(tmp186, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1046(line=40, offs=17) -- 1126(line=40, offs=97) -*/ -ATSINSflab(__patsflab___patsfun_83): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1046(line=40, offs=17) -- 1126(line=40, offs=97) -*/ -ATSif( -arg0 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1074(line=40, offs=45) -- 1124(line=40, offs=95) -*/ -ATSINSmove_ldelay(tmp186, atstype_boxed, ATSPMVcfunlab(1, __patsfun_84, (env1))) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1054(line=40, offs=25) -- 1125(line=40, offs=96) -*/ - -/* -#LINCONSTATUS==0 -*/ -ATSINSmove_con1_beg() -ATSINSmove_con1_new(tmpret185, postiats_tysum_1) ; -#if(0) -ATSINSstore_con1_tag(tmpret185, 1) ; -#endif -ATSINSstore_con1_ofs(tmpret185, postiats_tysum_1, atslab__0, env0) ; -ATSINSstore_con1_ofs(tmpret185, postiats_tysum_1, atslab__1, tmp186) ; -ATSINSmove_con1_end() -} ATSelse() { -/* (*nothing*) */ -} /* ATSendif */ -ATSfunbody_end() -ATSreturn(tmpret185) ; -} /* end of [__patsfun_83] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1074(line=40, offs=45) -- 1124(line=40, offs=95) -*/ -/* -local: -global: __patsfun_84$0(level=3) -local: x$5124(2)(HSEapp(HSEcst(atstkind_type); HSEs2exp(S2Eextkind(atstype_ptrk)))) -global: x$5124(2)(HSEapp(HSEcst(atstkind_type); HSEs2exp(S2Eextkind(atstype_ptrk)))) -*/ -ATSstatic() -atstype_boxed -__patsfun_84(atstkind_type(atstype_ptrk) env0, atstype_bool arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret187, atstype_boxed) ; -ATStmpdec(tmp188, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1074(line=40, offs=45) -- 1124(line=40, offs=95) -*/ -ATSINSflab(__patsflab___patsfun_84): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1074(line=40, offs=45) -- 1124(line=40, offs=95) -*/ -ATSif( -arg0 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1100(line=40, offs=71) -- 1122(line=40, offs=93) -*/ -ATSINSmove_ldelay(tmp188, atstype_boxed, ATSPMVcfunlab(1, __patsfun_85, ())) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1082(line=40, offs=53) -- 1123(line=40, offs=94) -*/ - -/* -#LINCONSTATUS==0 -*/ -ATSINSmove_con1_beg() -ATSINSmove_con1_new(tmpret187, postiats_tysum_1) ; -#if(0) -ATSINSstore_con1_tag(tmpret187, 1) ; -#endif -ATSINSstore_con1_ofs(tmpret187, postiats_tysum_1, atslab__0, ATSderef(env0, atstkind_t0ype(atstype_int))) ; -ATSINSstore_con1_ofs(tmpret187, postiats_tysum_1, atslab__1, tmp188) ; -ATSINSmove_con1_end() -} ATSelse() { -/* (*nothing*) */ -} /* ATSendif */ -ATSfunbody_end() -ATSreturn(tmpret187) ; -} /* end of [__patsfun_84] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1100(line=40, offs=71) -- 1122(line=40, offs=93) -*/ -/* -local: -global: __patsfun_85$0(level=4) -local: -global: -*/ -ATSstatic() -atstype_boxed -__patsfun_85(atstype_bool arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret189, atstype_boxed) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1100(line=40, offs=71) -- 1122(line=40, offs=93) -*/ -ATSINSflab(__patsflab___patsfun_85): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1100(line=40, offs=71) -- 1122(line=40, offs=93) -*/ -ATSif( -arg0 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1108(line=40, offs=79) -- 1121(line=40, offs=92) -*/ - -ATSINSmove_nil(tmpret189) ; - -} ATSelse() { -/* (*nothing*) */ -} /* ATSendif */ -ATSfunbody_end() -ATSreturn(tmpret189) ; -} /* end of [__patsfun_85] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1230(line=46, offs=17) -- 1282(line=46, offs=69) -*/ -/* -local: -global: __patsfun_86$0(level=2) -local: acc$5123(2)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))) -global: acc$5123(2)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))) -*/ -ATSstatic() -atstype_boxed -__patsfun_86(atstkind_t0ype(atstype_int) env0, atstype_bool arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret190, atstype_boxed) ; -ATStmpdec(tmp191, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1230(line=46, offs=17) -- 1282(line=46, offs=69) -*/ -ATSINSflab(__patsflab___patsfun_86): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1230(line=46, offs=17) -- 1282(line=46, offs=69) -*/ -ATSif( -arg0 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1258(line=46, offs=45) -- 1280(line=46, offs=67) -*/ -ATSINSmove_ldelay(tmp191, atstype_boxed, ATSPMVcfunlab(1, __patsfun_87, ())) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1238(line=46, offs=25) -- 1281(line=46, offs=68) -*/ - -/* -#LINCONSTATUS==0 -*/ -ATSINSmove_con1_beg() -ATSINSmove_con1_new(tmpret190, postiats_tysum_1) ; -#if(0) -ATSINSstore_con1_tag(tmpret190, 1) ; -#endif -ATSINSstore_con1_ofs(tmpret190, postiats_tysum_1, atslab__0, env0) ; -ATSINSstore_con1_ofs(tmpret190, postiats_tysum_1, atslab__1, tmp191) ; -ATSINSmove_con1_end() -} ATSelse() { -/* (*nothing*) */ -} /* ATSendif */ -ATSfunbody_end() -ATSreturn(tmpret190) ; -} /* end of [__patsfun_86] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1258(line=46, offs=45) -- 1280(line=46, offs=67) -*/ -/* -local: -global: __patsfun_87$0(level=3) -local: -global: -*/ -ATSstatic() -atstype_boxed -__patsfun_87(atstype_bool arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret192, atstype_boxed) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1258(line=46, offs=45) -- 1280(line=46, offs=67) -*/ -ATSINSflab(__patsflab___patsfun_87): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1258(line=46, offs=45) -- 1280(line=46, offs=67) -*/ -ATSif( -arg0 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1266(line=46, offs=53) -- 1279(line=46, offs=66) -*/ - -ATSINSmove_nil(tmpret192) ; - -} ATSelse() { -/* (*nothing*) */ -} /* ATSendif */ -ATSfunbody_end() -ATSreturn(tmpret192) ; -} /* end of [__patsfun_87] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1328(line=49, offs=13) -- 1350(line=49, offs=35) -*/ -/* -local: -global: __patsfun_88$0(level=2) -local: -global: -*/ -ATSstatic() -atstype_boxed -__patsfun_88(atstype_bool arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret193, atstype_boxed) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1328(line=49, offs=13) -- 1350(line=49, offs=35) -*/ -ATSINSflab(__patsflab___patsfun_88): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1328(line=49, offs=13) -- 1350(line=49, offs=35) -*/ -ATSif( -arg0 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1336(line=49, offs=21) -- 1349(line=49, offs=34) -*/ - -ATSINSmove_nil(tmpret193) ; - -} ATSelse() { -/* (*nothing*) */ -} /* ATSendif */ -ATSfunbody_end() -ATSreturn(tmpret193) ; -} /* end of [__patsfun_88] */ - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) -*/ -/* -local: -global: eq_g0int_int$10$10(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4628) -tmparg = S2Evar(tk(4628)) -tmpsub = Some(tk(4628) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g0int_int__10__10(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret15__10, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp16__10, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) -*/ -ATSINSflab(__patsflab_eq_g0int_int): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) -*/ -ATSINSmove(tmp16__10, atspre_g0int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) -*/ -ATSINSmove(tmpret15__10, atspre_g0int_eq_int(arg0, tmp16__10)) ; - -ATSfunbody_end() -ATSreturn(tmpret15__10) ; -} /* end of [ATSLIB_056_prelude__eq_g0int_int__10__10] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1474(line=55, offs=15) -- 1550(line=55, offs=91) -*/ -/* -local: loop_77$0(level=1) -global: loop_77$0(level=1), __patsfun_90$0(level=2) -local: n$5122(2)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))), acc$5123(2)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))), x$5125(2)(HSEapp(HSEcst(atstkind_type); HSEs2exp(S2Eextkind(atstype_ptrk)))) -global: n$5122(2)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))), acc$5123(2)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))), x$5125(2)(HSEapp(HSEcst(atstkind_type); HSEs2exp(S2Eextkind(atstype_ptrk)))) -*/ -ATSstatic() -atstype_boxed -__patsfun_90(atstkind_t0ype(atstype_int) env0, atstkind_t0ype(atstype_int) env1, atstkind_type(atstype_ptrk) env2, atstype_bool arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret199, atstype_boxed) ; -ATStmpdec(tmp200, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1474(line=55, offs=15) -- 1550(line=55, offs=91) -*/ -ATSINSflab(__patsflab___patsfun_90): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1474(line=55, offs=15) -- 1550(line=55, offs=91) -*/ -ATSif( -arg0 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1502(line=55, offs=43) -- 1548(line=55, offs=89) -*/ -ATSINSmove_ldelay(tmp200, atstype_boxed, ATSPMVcfunlab(1, __patsfun_91, (env0, env1, env2))) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1482(line=55, offs=23) -- 1549(line=55, offs=90) -*/ - -/* -#LINCONSTATUS==0 -*/ -ATSINSmove_con1_beg() -ATSINSmove_con1_new(tmpret199, postiats_tysum_1) ; -#if(0) -ATSINSstore_con1_tag(tmpret199, 1) ; -#endif -ATSINSstore_con1_ofs(tmpret199, postiats_tysum_1, atslab__0, env1) ; -ATSINSstore_con1_ofs(tmpret199, postiats_tysum_1, atslab__1, tmp200) ; -ATSINSmove_con1_end() -} ATSelse() { -/* (*nothing*) */ -} /* ATSendif */ -ATSfunbody_end() -ATSreturn(tmpret199) ; -} /* end of [__patsfun_90] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1502(line=55, offs=43) -- 1548(line=55, offs=89) -*/ -/* -local: loop_77$0(level=1) -global: loop_77$0(level=1), __patsfun_91$0(level=3) -local: n$5122(2)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))), acc$5123(2)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))), x$5125(2)(HSEapp(HSEcst(atstkind_type); HSEs2exp(S2Eextkind(atstype_ptrk)))) -global: n$5122(2)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))), acc$5123(2)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))), x$5125(2)(HSEapp(HSEcst(atstkind_type); HSEs2exp(S2Eextkind(atstype_ptrk)))) -*/ -ATSstatic() -atstype_boxed -__patsfun_91(atstkind_t0ype(atstype_int) env0, atstkind_t0ype(atstype_int) env1, atstkind_type(atstype_ptrk) env2, atstype_bool arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret201, atstype_boxed) ; -ATStmpdec(tmp202, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp203, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1502(line=55, offs=43) -- 1548(line=55, offs=89) -*/ -ATSINSflab(__patsflab___patsfun_91): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1502(line=55, offs=43) -- 1548(line=55, offs=89) -*/ -ATSif( -arg0 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1537(line=55, offs=78) -- 1544(line=55, offs=85) -*/ -ATSINSmove(tmp203, atspre_g1int_add_int(env1, ATSPMVi0nt(1))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1529(line=55, offs=70) -- 1545(line=55, offs=86) -*/ -ATSINSmove(tmp202, loop_77(env0, tmp203)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1510(line=55, offs=51) -- 1547(line=55, offs=88) -*/ - -/* -#LINCONSTATUS==0 -*/ -ATSINSmove_con1_beg() -ATSINSmove_con1_new(tmpret201, postiats_tysum_1) ; -#if(0) -ATSINSstore_con1_tag(tmpret201, 1) ; -#endif -ATSINSstore_con1_ofs(tmpret201, postiats_tysum_1, atslab__0, ATSderef(env2, atstkind_t0ype(atstype_int))) ; -ATSINSstore_con1_ofs(tmpret201, postiats_tysum_1, atslab__1, tmp202) ; -ATSINSmove_con1_end() -} ATSelse() { -/* (*nothing*) */ -} /* ATSendif */ -ATSfunbody_end() -ATSreturn(tmpret201) ; -} /* end of [__patsfun_91] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1682(line=64, offs=4) -- 1754(line=65, offs=18) -*/ -/* -local: -global: div_gt_zero_92$0(level=0) -local: -global: -*/ -ATSstatic() -atstkind_t0ype(atstype_int) -div_gt_zero_92(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret205, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp206, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1682(line=64, offs=4) -- 1754(line=65, offs=18) -*/ -ATSINSflab(__patsflab_div_gt_zero_92): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1748(line=65, offs=12) -- 1753(line=65, offs=17) -*/ -ATSINSmove(tmp206, atspre_g1int_div_int(arg0, arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1739(line=65, offs=3) -- 1754(line=65, offs=18) -*/ -ATSINSmove(tmpret205, ATSPMVcastfn(cast, atstkind_t0ype(atstype_int), tmp206)) ; -ATSfunbody_end() -ATSreturn(tmpret205) ; -} /* end of [div_gt_zero_92] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1873(line=69, offs=5) -- 3801(line=132, offs=6) -*/ -/* -local: exp_3$0(level=0), is_prime_48$0(level=0), div_gt_zero_92$0(level=0) -global: exp_3$0(level=0), sqrt_int_46$0(level=0), is_prime_48$0(level=0), div_gt_zero_92$0(level=0), jacobi_93$0(level=0) -local: -global: -*/ -ATSstatic() -atstkind_t0ype(atstype_int) -jacobi_93(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret207, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1873(line=69, offs=5) -- 3801(line=132, offs=6) -*/ -ATSINSflab(__patsflab_jacobi_93): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1914(line=70, offs=3) -- 3801(line=132, offs=6) -*/ -/* -letpush(beg) -*/ -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3788(line=131, offs=5) -- 3795(line=131, offs=12) -*/ -ATSINSmove(tmpret207, loop_104(arg0, arg1, ATSPMVi0nt(2))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1914(line=70, offs=3) -- 3801(line=132, offs=6) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret207) ; -} /* end of [jacobi_93] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1967(line=72, offs=9) -- 3295(line=112, offs=12) -*/ -/* -local: -global: legendre_94$0(level=1) -local: -global: -*/ -ATSstatic() -atstkind_t0ype(atstype_int) -legendre_94(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret208, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp209, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmpref228, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp229, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp230, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp231, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp232, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp235, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp236, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp237, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp240, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 1967(line=72, offs=9) -- 3295(line=112, offs=12) -*/ -ATSINSflab(__patsflab_legendre_94): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2055(line=73, offs=13) -- 2060(line=73, offs=18) -*/ -ATSINSmove(tmp209, atspre_g0int_mod_int(arg1, arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2049(line=73, offs=7) -- 3295(line=112, offs=12) -*/ -ATScaseof_beg() -/* -** ibranchlst-beg -*/ -ATSbranch_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2074(line=74, offs=11) -- 2075(line=74, offs=12) -*/ -ATSINSlab(__atstmplab12): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2055(line=73, offs=13) -- 2060(line=73, offs=18) -*/ -ATSifnthen(ATSCKpat_int(tmp209, ATSPMVint(0))) { ATSINSgoto(__atstmplab14) ; } ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2075(line=74, offs=12) -- 2075(line=74, offs=12) -*/ -ATSINSlab(__atstmplab13): -/* -emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) -*/ -/* -ibranch-mbody: -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2079(line=74, offs=16) -- 2080(line=74, offs=17) -*/ -ATSINSmove(tmpret208, ATSPMVi0nt(0)) ; -ATSbranch_end() - -ATSbranch_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2092(line=75, offs=12) -- 2092(line=75, offs=12) -*/ -ATSINSlab(__atstmplab14): -/* -emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) -*/ -/* -ibranch-mbody: -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2096(line=75, offs=16) -- 3295(line=112, offs=12) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3115(line=106, offs=15) -- 3116(line=106, offs=16) -*/ -/* -ATSINStmpdec(tmpref228) ; -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3137(line=106, offs=37) -- 3142(line=106, offs=42) -*/ -ATSINSmove(tmp230, atspre_g1int_sub_int(arg1, ATSPMVi0nt(1))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3136(line=106, offs=36) -- 3147(line=106, offs=47) -*/ -ATSINSmove(tmp229, atspre_g1int_div_int(tmp230, ATSPMVi0nt(2))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3119(line=106, offs=19) -- 3151(line=106, offs=51) -*/ -ATSINSmove(tmpref228, exp_mod_prime_95(arg0, tmp229, arg1)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3179(line=108, offs=17) -- 3180(line=108, offs=18) -*/ -ATSINSmove(tmp231, tmpref228) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3173(line=108, offs=11) -- 3283(line=111, offs=21) -*/ -ATScaseof_beg() -/* -** ibranchlst-beg -*/ -ATSbranch_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3199(line=109, offs=16) -- 3199(line=109, offs=16) -*/ -ATSINSlab(__atstmplab18): -/* -emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) -*/ -/* -ibranch-guard: -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3210(line=109, offs=27) -- 3215(line=109, offs=32) -*/ -ATSINSmove(tmp236, atspre_g1int_sub_int(arg1, ATSPMVi0nt(1))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3205(line=109, offs=22) -- 3216(line=109, offs=33) -*/ -ATSINSmove(tmp235, atspre_g0int_mod_int(tmp231, tmp236)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3205(line=109, offs=22) -- 3220(line=109, offs=37) -*/ -ATSINSmove(tmp232, ATSLIB_056_prelude__eq_g0int_int__10__12(tmp235, ATSPMVi0nt(0))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3205(line=109, offs=22) -- 3220(line=109, offs=37) -*/ -ATSifnthen(ATSCKpat_bool(tmp232, ATSPMVbool_true())) { ATSINSgoto(__atstmplab19) ; } ; -/* -emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) -*/ -/* -ibranch-mbody: -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3224(line=109, offs=41) -- 3226(line=109, offs=43) -*/ -ATSINSmove(tmpret208, atspre_g1int_neg_int(ATSPMVi0nt(1))) ; - -ATSbranch_end() - -ATSbranch_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3242(line=110, offs=16) -- 3242(line=110, offs=16) -*/ -ATSINSlab(__atstmplab19): -/* -emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) -*/ -/* -ibranch-guard: -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3248(line=110, offs=22) -- 3253(line=110, offs=27) -*/ -ATSINSmove(tmp240, atspre_g0int_mod_int(tmp231, arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3248(line=110, offs=22) -- 3257(line=110, offs=31) -*/ -ATSINSmove(tmp237, ATSLIB_056_prelude__eq_g0int_int__10__13(tmp240, ATSPMVi0nt(0))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3248(line=110, offs=22) -- 3257(line=110, offs=31) -*/ -ATSifnthen(ATSCKpat_bool(tmp237, ATSPMVbool_true())) { ATSINSgoto(__atstmplab20) ; } ; -/* -emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) -*/ -/* -ibranch-mbody: -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3261(line=110, offs=35) -- 3262(line=110, offs=36) -*/ -ATSINSmove(tmpret208, ATSPMVi0nt(0)) ; -ATSbranch_end() - -ATSbranch_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3278(line=111, offs=16) -- 3278(line=111, offs=16) -*/ -ATSINSlab(__atstmplab20): -/* -emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) -*/ -/* -ibranch-mbody: -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3282(line=111, offs=20) -- 3283(line=111, offs=21) -*/ -ATSINSmove(tmpret208, ATSPMVi0nt(1)) ; -ATSbranch_end() - -/* -** ibranchlst-end -*/ -ATScaseof_end() - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2096(line=75, offs=16) -- 3295(line=112, offs=12) -*/ -/* -INSletpop() -*/ -ATSbranch_end() - -/* -** ibranchlst-end -*/ -ATScaseof_end() - -ATSfunbody_end() -ATSreturn(tmpret208) ; -} /* end of [legendre_94] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2156(line=77, offs=15) -- 3089(line=104, offs=16) -*/ -/* -local: exp_mod_prime_95$0(level=2) -global: exp_mod_prime_95$0(level=2) -local: -global: -*/ -ATSstatic() -atstkind_t0ype(atstype_int) -exp_mod_prime_95(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1, atstkind_t0ype(atstype_int) arg2) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(apy0, atstkind_t0ype(atstype_int)) ; -ATStmpdec(apy1, atstkind_t0ype(atstype_int)) ; -ATStmpdec(apy2, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmpret210, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmpref211, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmpref212, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp213, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp214, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmpref217, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp218, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmpref219, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmpref220, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp221, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp222, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp223, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmpref226, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp227, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2156(line=77, offs=15) -- 3089(line=104, offs=16) -*/ -ATSINSflab(__patsflab_exp_mod_prime_95): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2234(line=78, offs=13) -- 3089(line=104, offs=16) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2256(line=79, offs=19) -- 2258(line=79, offs=21) -*/ -/* -ATSINStmpdec(tmpref211) ; -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2261(line=79, offs=24) -- 2266(line=79, offs=29) -*/ -ATSINSmove(tmpref211, atspre_g0int_mod_int(arg0, arg2)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2285(line=80, offs=19) -- 2287(line=80, offs=21) -*/ -/* -ATSINStmpdec(tmpref212) ; -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2295(line=80, offs=29) -- 2300(line=80, offs=34) -*/ -ATSINSmove(tmp213, atspre_g1int_sub_int(arg2, ATSPMVi0nt(1))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2290(line=80, offs=24) -- 2301(line=80, offs=35) -*/ -ATSINSmove(tmpref212, atspre_g0int_mod_int(arg1, tmp213)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2331(line=82, offs=15) -- 3073(line=103, offs=22) -*/ -ATScaseof_beg() -/* -** ibranchlst-beg -*/ -ATSbranch_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2360(line=83, offs=19) -- 2361(line=83, offs=20) -*/ -ATSINSlab(__atstmplab15): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2170(line=77, offs=29) -- 2171(line=77, offs=30) -*/ -ATSifnthen(ATSCKpat_int(arg0, ATSPMVint(0))) { ATSINSgoto(__atstmplab17) ; } ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2361(line=83, offs=20) -- 2361(line=83, offs=20) -*/ -ATSINSlab(__atstmplab16): -/* -emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) -*/ -/* -ibranch-mbody: -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2365(line=83, offs=24) -- 2366(line=83, offs=25) -*/ -ATSINSmove(tmpret210, ATSPMVi0nt(0)) ; -ATSbranch_end() - -ATSbranch_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2386(line=84, offs=20) -- 2386(line=84, offs=20) -*/ -ATSINSlab(__atstmplab17): -/* -emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) -*/ -/* -ibranch-mbody: -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2439(line=86, offs=24) -- 2444(line=86, offs=29) -*/ -ATSINSmove(tmp214, ATSLIB_056_prelude__gt_g1int_int__4__3(arg1, ATSPMVi0nt(0))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2436(line=86, offs=21) -- 3051(line=102, offs=24) -*/ -ATSif( -tmp214 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2472(line=87, offs=23) -- 3002(line=100, offs=26) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2504(line=88, offs=29) -- 2506(line=88, offs=31) -*/ -/* -ATSINStmpdec(tmpref217) ; -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2529(line=88, offs=54) -- 2536(line=88, offs=61) -*/ -ATSINSmove(tmp218, atspre_g0int_half_int(tmpref212)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2520(line=88, offs=45) -- 2538(line=88, offs=63) -*/ -ATSINSmove(tmpref217, ATSPMVcastfn(cast, atstkind_t0ype(atstype_int), tmp218)) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2567(line=89, offs=29) -- 2569(line=89, offs=31) -*/ -/* -ATSINStmpdec(tmpref219) ; -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2572(line=89, offs=34) -- 2578(line=89, offs=40) -*/ -ATSINSmove(tmpref219, atspre_g0int_mod_int(tmpref212, ATSPMVi0nt(2))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2607(line=90, offs=29) -- 2611(line=90, offs=33) -*/ -/* -ATSINStmpdec(tmpref220) ; -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2634(line=90, offs=56) -- 2639(line=90, offs=61) -*/ -ATSINSmove(tmp222, atspre_g1int_mul_int(arg0, arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2634(line=90, offs=56) -- 2643(line=90, offs=65) -*/ -ATSINSmove(tmp221, atspre_g0int_mod_int(tmp222, arg2)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2625(line=90, offs=47) -- 2644(line=90, offs=66) -*/ -ATSINSmove(tmpref220, ATSPMVcastfn(cast, atstkind_t0ype(atstype_int), tmp221)) ; -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2697(line=92, offs=28) -- 2703(line=92, offs=34) -*/ -ATSINSmove(tmp223, ATSLIB_056_prelude__eq_g0int_int__10__11(tmpref219, ATSPMVi0nt(0))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2694(line=92, offs=25) -- 2976(line=99, offs=30) -*/ -ATSif( -tmp223 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2735(line=93, offs=27) -- 2761(line=93, offs=53) -*/ -ATStailcal_beg() -ATSINSmove_tlcal(apy0, tmpref220) ; -ATSINSmove_tlcal(apy1, tmpref217) ; -ATSINSmove_tlcal(apy2, arg2) ; -ATSINSargmove_tlcal(arg0, apy0) ; -ATSINSargmove_tlcal(arg1, apy1) ; -ATSINSargmove_tlcal(arg2, apy2) ; -ATSINSfgoto(__patsflab_exp_mod_prime_95) ; -ATStailcal_end() - -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2817(line=95, offs=27) -- 2976(line=99, offs=30) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2853(line=96, offs=33) -- 2854(line=96, offs=34) -*/ -/* -ATSINStmpdec(tmpref226) ; -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2861(line=96, offs=41) -- 2887(line=96, offs=67) -*/ -ATSINSmove(tmp227, exp_mod_prime_95(tmpref220, tmpref217, arg2)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2857(line=96, offs=37) -- 2887(line=96, offs=67) -*/ -ATSINSmove(tmpref226, atspre_g0int_mul_int(arg0, tmp227)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2945(line=98, offs=29) -- 2946(line=98, offs=30) -*/ -ATSINSmove(tmpret210, tmpref226) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2817(line=95, offs=27) -- 2976(line=99, offs=30) -*/ -/* -INSletpop() -*/ -} /* ATSendif */ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2472(line=87, offs=23) -- 3002(line=100, offs=26) -*/ -/* -INSletpop() -*/ -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3050(line=102, offs=23) -- 3051(line=102, offs=24) -*/ -ATSINSmove(tmpret210, ATSPMVi0nt(1)) ; -} /* ATSendif */ -ATSbranch_end() - -/* -** ibranchlst-end -*/ -ATScaseof_end() - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 2234(line=78, offs=13) -- 3089(line=104, offs=16) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret210) ; -} /* end of [exp_mod_prime_95] */ - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12679(line=659, offs=3) -- 12718(line=659, offs=42) -*/ -/* -local: -global: gt_g1int_int$4$3(level=3) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4637) -tmparg = S2Evar(tk(4637)) -tmpsub = Some(tk(4637) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__gt_g1int_int__4__3(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret8__3, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp9__3, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12664(line=658, offs=1) -- 12718(line=659, offs=42) -*/ -ATSINSflab(__patsflab_gt_g1int_int): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12705(line=659, offs=29) -- 12716(line=659, offs=40) -*/ -ATSINSmove(tmp9__3, atspre_g1int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12688(line=659, offs=12) -- 12718(line=659, offs=42) -*/ -ATSINSmove(tmpret8__3, atspre_g1int_gt_int(arg0, tmp9__3)) ; - -ATSfunbody_end() -ATSreturn(tmpret8__3) ; -} /* end of [ATSLIB_056_prelude__gt_g1int_int__4__3] */ - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) -*/ -/* -local: -global: eq_g0int_int$10$11(level=3) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4628) -tmparg = S2Evar(tk(4628)) -tmpsub = Some(tk(4628) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g0int_int__10__11(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret15__11, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp16__11, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) -*/ -ATSINSflab(__patsflab_eq_g0int_int): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) -*/ -ATSINSmove(tmp16__11, atspre_g0int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) -*/ -ATSINSmove(tmpret15__11, atspre_g0int_eq_int(arg0, tmp16__11)) ; - -ATSfunbody_end() -ATSreturn(tmpret15__11) ; -} /* end of [ATSLIB_056_prelude__eq_g0int_int__10__11] */ - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) -*/ -/* -local: -global: eq_g0int_int$10$12(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4628) -tmparg = S2Evar(tk(4628)) -tmpsub = Some(tk(4628) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g0int_int__10__12(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret15__12, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp16__12, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) -*/ -ATSINSflab(__patsflab_eq_g0int_int): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) -*/ -ATSINSmove(tmp16__12, atspre_g0int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) -*/ -ATSINSmove(tmpret15__12, atspre_g0int_eq_int(arg0, tmp16__12)) ; - -ATSfunbody_end() -ATSreturn(tmpret15__12) ; -} /* end of [ATSLIB_056_prelude__eq_g0int_int__10__12] */ - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) -*/ -/* -local: -global: eq_g0int_int$10$13(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4628) -tmparg = S2Evar(tk(4628)) -tmpsub = Some(tk(4628) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g0int_int__10__13(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret15__13, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp16__13, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) -*/ -ATSINSflab(__patsflab_eq_g0int_int): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) -*/ -ATSINSmove(tmp16__13, atspre_g0int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) -*/ -ATSINSmove(tmpret15__13, atspre_g0int_eq_int(arg0, tmp16__13)) ; - -ATSfunbody_end() -ATSreturn(tmpret15__13) ; -} /* end of [ATSLIB_056_prelude__eq_g0int_int__10__13] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3309(line=114, offs=9) -- 3464(line=117, offs=17) -*/ -/* -local: div_gt_zero_92$0(level=0), get_multiplicity_103$0(level=1) -global: div_gt_zero_92$0(level=0), get_multiplicity_103$0(level=1) -local: -global: -*/ -ATSstatic() -atstkind_t0ype(atstype_int) -get_multiplicity_103(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret241, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp242, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp243, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp244, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3309(line=114, offs=9) -- 3464(line=117, offs=17) -*/ -ATSINSflab(__patsflab_get_multiplicity_103): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3381(line=115, offs=13) -- 3386(line=115, offs=18) -*/ -ATSINSmove(tmp242, atspre_g0int_mod_int(arg0, arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3375(line=115, offs=7) -- 3464(line=117, offs=17) -*/ -ATScaseof_beg() -/* -** ibranchlst-beg -*/ -ATSbranch_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3400(line=116, offs=11) -- 3401(line=116, offs=12) -*/ -ATSINSlab(__atstmplab21): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3381(line=115, offs=13) -- 3386(line=115, offs=18) -*/ -ATSifnthen(ATSCKpat_int(tmp242, ATSPMVint(0))) { ATSINSgoto(__atstmplab23) ; } ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3401(line=116, offs=12) -- 3401(line=116, offs=12) -*/ -ATSINSlab(__atstmplab22): -/* -emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) -*/ -/* -ibranch-mbody: -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3426(line=116, offs=37) -- 3443(line=116, offs=54) -*/ -ATSINSmove(tmp244, div_gt_zero_92(arg0, arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3409(line=116, offs=20) -- 3447(line=116, offs=58) -*/ -ATSINSmove(tmp243, get_multiplicity_103(tmp244, arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3405(line=116, offs=16) -- 3447(line=116, offs=58) -*/ -ATSINSmove(tmpret241, atspre_g1int_add_int(ATSPMVi0nt(1), tmp243)) ; - -ATSbranch_end() - -ATSbranch_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3459(line=117, offs=12) -- 3459(line=117, offs=12) -*/ -ATSINSlab(__atstmplab23): -/* -emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) -*/ -/* -ibranch-mbody: -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3463(line=117, offs=16) -- 3464(line=117, offs=17) -*/ -ATSINSmove(tmpret241, ATSPMVi0nt(0)) ; -ATSbranch_end() - -/* -** ibranchlst-end -*/ -ATScaseof_end() - -ATSfunbody_end() -ATSreturn(tmpret241) ; -} /* end of [get_multiplicity_103] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3478(line=119, offs=9) -- 3778(line=129, offs=26) -*/ -/* -local: exp_3$0(level=0), is_prime_48$0(level=0), legendre_94$0(level=1), get_multiplicity_103$0(level=1), loop_104$0(level=1) -global: exp_3$0(level=0), is_prime_48$0(level=0), div_gt_zero_92$0(level=0), legendre_94$0(level=1), get_multiplicity_103$0(level=1), loop_104$0(level=1) -local: a$5130(1)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))), n$5131(1)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))) -global: a$5130(1)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))), n$5131(1)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))) -*/ -ATSstatic() -atstkind_t0ype(atstype_int) -loop_104(atstkind_t0ype(atstype_int) env0, atstkind_t0ype(atstype_int) env1, atstkind_t0ype(atstype_int) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(apy0, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmpret245, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp246, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp249, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp252, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp253, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp256, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp257, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp258, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp259, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp260, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp261, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp262, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3478(line=119, offs=9) -- 3778(line=129, offs=26) -*/ -ATSINSflab(__patsflab_loop_104): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3534(line=120, offs=10) -- 3541(line=120, offs=17) -*/ -ATSINSmove(tmp246, ATSLIB_056_prelude__gt_g1int_int__4__4(arg0, env1)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3531(line=120, offs=7) -- 3778(line=129, offs=26) -*/ -ATSif( -tmp246 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3555(line=121, offs=9) -- 3556(line=121, offs=10) -*/ -ATSINSmove(tmpret245, ATSPMVi0nt(1)) ; -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3579(line=123, offs=12) -- 3584(line=123, offs=17) -*/ -ATSINSmove(tmp249, ATSLIB_056_prelude__eq_g1int_int__16__4(env0, ATSPMVi0nt(0))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3576(line=123, offs=9) -- 3778(line=129, offs=26) -*/ -ATSif( -tmp249 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3600(line=124, offs=11) -- 3601(line=124, offs=12) -*/ -ATSINSmove(tmpret245, ATSPMVi0nt(0)) ; -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3628(line=126, offs=14) -- 3655(line=126, offs=41) -*/ -ATSINSmove(tmp256, atspre_g0int_mod_int(env0, arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3628(line=126, offs=14) -- 3655(line=126, offs=41) -*/ -ATSINSmove(tmp253, ATSLIB_056_prelude__eq_g0int_int__10__14(tmp256, ATSPMVi0nt(0))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3628(line=126, offs=14) -- 3655(line=126, offs=41) -*/ -ATSif( -tmp253 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3628(line=126, offs=14) -- 3655(line=126, offs=41) -*/ -ATSINSmove(tmp252, is_prime_48(arg0)) ; - -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3628(line=126, offs=14) -- 3655(line=126, offs=41) -*/ -ATSINSmove(tmp252, ATSPMVbool_false()) ; -} /* ATSendif */ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3625(line=126, offs=11) -- 3778(line=129, offs=26) -*/ -ATSif( -tmp252 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3679(line=127, offs=18) -- 3686(line=127, offs=25) -*/ -ATSINSmove(tmp258, atspre_g1int_add_int(arg0, ATSPMVi0nt(1))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3674(line=127, offs=13) -- 3687(line=127, offs=26) -*/ -ATSINSmove(tmp257, loop_104(env0, env1, tmp258)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3694(line=127, offs=33) -- 3710(line=127, offs=49) -*/ -ATSINSmove(tmp260, legendre_94(arg0, env1)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3712(line=127, offs=51) -- 3736(line=127, offs=75) -*/ -ATSINSmove(tmp261, get_multiplicity_103(env0, arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3690(line=127, offs=29) -- 3737(line=127, offs=76) -*/ -ATSINSmove(tmp259, exp_3(tmp260, tmp261)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3674(line=127, offs=13) -- 3737(line=127, offs=76) -*/ -ATSINSmove(tmpret245, atspre_g0int_mul_int(tmp257, tmp259)) ; - -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3770(line=129, offs=18) -- 3777(line=129, offs=25) -*/ -ATSINSmove(tmp262, atspre_g1int_add_int(arg0, ATSPMVi0nt(1))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3765(line=129, offs=13) -- 3778(line=129, offs=26) -*/ -ATStailcal_beg() -ATSINSmove_tlcal(apy0, tmp262) ; -ATSINSargmove_tlcal(arg0, apy0) ; -ATSINSfgoto(__patsflab_loop_104) ; -ATStailcal_end() - -} /* ATSendif */ -} /* ATSendif */ -} /* ATSendif */ -ATSfunbody_end() -ATSreturn(tmpret245) ; -} /* end of [loop_104] */ - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12679(line=659, offs=3) -- 12718(line=659, offs=42) -*/ -/* -local: -global: gt_g1int_int$4$4(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4637) -tmparg = S2Evar(tk(4637)) -tmpsub = Some(tk(4637) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__gt_g1int_int__4__4(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret8__4, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp9__4, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12664(line=658, offs=1) -- 12718(line=659, offs=42) -*/ -ATSINSflab(__patsflab_gt_g1int_int): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12705(line=659, offs=29) -- 12716(line=659, offs=40) -*/ -ATSINSmove(tmp9__4, atspre_g1int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12688(line=659, offs=12) -- 12718(line=659, offs=42) -*/ -ATSINSmove(tmpret8__4, atspre_g1int_gt_int(arg0, tmp9__4)) ; - -ATSfunbody_end() -ATSreturn(tmpret8__4) ; -} /* end of [ATSLIB_056_prelude__gt_g1int_int__4__4] */ - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12838(line=668, offs=3) -- 12877(line=668, offs=42) -*/ -/* -local: -global: eq_g1int_int$16$4(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4643) -tmparg = S2Evar(tk(4643)) -tmpsub = Some(tk(4643) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g1int_int__16__4(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret25__4, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp26__4, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12823(line=667, offs=1) -- 12877(line=668, offs=42) -*/ -ATSINSflab(__patsflab_eq_g1int_int): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12864(line=668, offs=29) -- 12875(line=668, offs=40) -*/ -ATSINSmove(tmp26__4, atspre_g1int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12847(line=668, offs=12) -- 12877(line=668, offs=42) -*/ -ATSINSmove(tmpret25__4, atspre_g1int_eq_int(arg0, tmp26__4)) ; - -ATSfunbody_end() -ATSreturn(tmpret25__4) ; -} /* end of [ATSLIB_056_prelude__eq_g1int_int__16__4] */ - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) -*/ -/* -local: -global: eq_g0int_int$10$14(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4628) -tmparg = S2Evar(tk(4628)) -tmpsub = Some(tk(4628) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g0int_int__10__14(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret15__14, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp16__14, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) -*/ -ATSINSflab(__patsflab_eq_g0int_int): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) -*/ -ATSINSmove(tmp16__14, atspre_g0int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) -*/ -ATSINSmove(tmpret15__14, atspre_g0int_eq_int(arg0, tmp16__14)) ; - -ATSfunbody_end() -ATSreturn(tmpret15__14) ; -} /* end of [ATSLIB_056_prelude__eq_g0int_int__10__14] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3876(line=135, offs=5) -- 4214(line=145, offs=26) -*/ -/* -local: jacobi2_108$0(level=0) -global: jacobi2_108$0(level=0) -local: -global: -*/ -ATSstatic() -atstkind_t0ype(atstype_int) -jacobi2_108(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(tmpret263, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp264, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp267, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp268, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp271, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp272, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp273, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp276, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp279, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp280, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp281, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp282, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp283, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp284, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp285, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp288, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp291, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp292, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3876(line=135, offs=5) -- 4214(line=145, offs=26) -*/ -ATSINSflab(__patsflab_jacobi2_108): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3933(line=136, offs=3) -- 4214(line=145, offs=26) -*/ -ATScaseof_beg() -/* -** ibranchlst-beg -*/ -ATSbranch_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3950(line=137, offs=7) -- 3951(line=137, offs=8) -*/ -ATSINSlab(__atstmplab24): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3899(line=135, offs=28) -- 3900(line=135, offs=29) -*/ -ATSifnthen(ATSCKpat_int(arg0, ATSPMVint(0))) { ATSINSgoto(__atstmplab26) ; } ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3951(line=137, offs=8) -- 3951(line=137, offs=8) -*/ -ATSINSlab(__atstmplab25): -/* -emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) -*/ -/* -ibranch-mbody: -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3955(line=137, offs=12) -- 3956(line=137, offs=13) -*/ -ATSINSmove(tmpret263, ATSPMVi0nt(0)) ; -ATSbranch_end() - -ATSbranch_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3963(line=138, offs=7) -- 3964(line=138, offs=8) -*/ -ATSINSlab(__atstmplab26): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3899(line=135, offs=28) -- 3900(line=135, offs=29) -*/ -ATSifnthen(ATSCKpat_int(arg0, ATSPMVint(1))) { ATSINSgoto(__atstmplab28) ; } ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3964(line=138, offs=8) -- 3964(line=138, offs=8) -*/ -ATSINSlab(__atstmplab27): -/* -emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) -*/ -/* -ibranch-mbody: -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3968(line=138, offs=12) -- 3969(line=138, offs=13) -*/ -ATSINSmove(tmpret263, ATSPMVi0nt(1)) ; -ATSbranch_end() - -ATSbranch_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3977(line=139, offs=8) -- 3977(line=139, offs=8) -*/ -ATSINSlab(__atstmplab28): -/* -emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) -*/ -/* -ibranch-guard: -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3983(line=139, offs=14) -- 3988(line=139, offs=19) -*/ -ATSINSmove(tmp264, ATSLIB_056_prelude__gt_g1int_int__4__5(arg0, arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3983(line=139, offs=14) -- 3988(line=139, offs=19) -*/ -ATSifnthen(ATSCKpat_bool(tmp264, ATSPMVbool_true())) { ATSINSgoto(__atstmplab29) ; } ; -/* -emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) -*/ -/* -ibranch-mbody: -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4009(line=139, offs=40) -- 4014(line=139, offs=45) -*/ -ATSINSmove(tmp267, atspre_g0int_mod_int(arg0, arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 3992(line=139, offs=23) -- 4019(line=139, offs=50) -*/ -ATStailcal_beg() -ATSINSmove_tlcal(apy0, ATSPMVcastfn(cast, atstkind_t0ype(atstype_int), tmp267)) ; -ATSINSmove_tlcal(apy1, arg1) ; -ATSINSargmove_tlcal(arg0, apy0) ; -ATSINSargmove_tlcal(arg1, apy1) ; -ATSINSfgoto(__patsflab_jacobi2_108) ; -ATStailcal_end() - -ATSbranch_end() - -ATSbranch_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4027(line=140, offs=8) -- 4027(line=140, offs=8) -*/ -ATSINSlab(__atstmplab29): -/* -emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) -*/ -/* -ibranch-guard: -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4033(line=140, offs=14) -- 4038(line=140, offs=19) -*/ -ATSINSmove(tmp271, atspre_g0int_mod_int(arg0, ATSPMVi0nt(2))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4033(line=140, offs=14) -- 4042(line=140, offs=23) -*/ -ATSINSmove(tmp268, ATSLIB_056_prelude__eq_g0int_int__10__15(tmp271, ATSPMVi0nt(0))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4033(line=140, offs=14) -- 4042(line=140, offs=23) -*/ -ATSifnthen(ATSCKpat_bool(tmp268, ATSPMVbool_true())) { ATSINSgoto(__atstmplab30) ; } ; -/* -emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) -*/ -/* -ibranch-mbody: -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4049(line=140, offs=30) -- 4072(line=140, offs=53) -*/ -ATSINSmove(tmp276, atspre_g0int_mod_int(arg1, ATSPMVi0nt(8))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4049(line=140, offs=30) -- 4072(line=140, offs=53) -*/ -ATSINSmove(tmp273, ATSLIB_056_prelude__eq_g0int_int__10__16(tmp276, ATSPMVi0nt(1))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4049(line=140, offs=30) -- 4072(line=140, offs=53) -*/ -ATSif( -tmp273 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4049(line=140, offs=30) -- 4072(line=140, offs=53) -*/ -ATSINSmove(tmp272, ATSPMVbool_true()) ; -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4049(line=140, offs=30) -- 4072(line=140, offs=53) -*/ -ATSINSmove(tmp279, atspre_g0int_mod_int(arg1, ATSPMVi0nt(8))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4049(line=140, offs=30) -- 4072(line=140, offs=53) -*/ -ATSINSmove(tmp280, atspre_g1int_neg_int(ATSPMVi0nt(1))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4049(line=140, offs=30) -- 4072(line=140, offs=53) -*/ -ATSINSmove(tmp272, ATSLIB_056_prelude__eq_g0int_int__10__17(tmp279, tmp280)) ; - -} /* ATSendif */ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4046(line=140, offs=27) -- 4135(line=143, offs=25) -*/ -ATSif( -tmp272 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4092(line=141, offs=15) -- 4097(line=141, offs=20) -*/ -ATSINSmove(tmp281, atspre_g1int_div_int(arg0, ATSPMVi0nt(2))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4084(line=141, offs=7) -- 4101(line=141, offs=24) -*/ -ATStailcal_beg() -ATSINSmove_tlcal(apy0, tmp281) ; -ATSINSmove_tlcal(apy1, arg1) ; -ATSINSargmove_tlcal(arg0, apy0) ; -ATSINSargmove_tlcal(arg1, apy1) ; -ATSINSfgoto(__patsflab_jacobi2_108) ; -ATStailcal_end() - -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4126(line=143, offs=16) -- 4131(line=143, offs=21) -*/ -ATSINSmove(tmp283, atspre_g1int_div_int(arg0, ATSPMVi0nt(2))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4118(line=143, offs=8) -- 4135(line=143, offs=25) -*/ -ATSINSmove(tmp282, jacobi2_108(tmp283, arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4117(line=143, offs=7) -- 4135(line=143, offs=25) -*/ -ATSINSmove(tmpret263, atspre_g0int_neg_int(tmp282)) ; - -} /* ATSendif */ -ATSbranch_end() - -ATSbranch_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4143(line=144, offs=8) -- 4143(line=144, offs=8) -*/ -ATSINSlab(__atstmplab30): -/* -emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) -*/ -/* -ibranch-guard: -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4149(line=144, offs=14) -- 4171(line=144, offs=36) -*/ -ATSINSmove(tmp288, atspre_g0int_mod_int(arg0, ATSPMVi0nt(4))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4149(line=144, offs=14) -- 4171(line=144, offs=36) -*/ -ATSINSmove(tmp285, ATSLIB_056_prelude__eq_g0int_int__10__18(tmp288, ATSPMVi0nt(3))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4149(line=144, offs=14) -- 4171(line=144, offs=36) -*/ -ATSif( -tmp285 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4149(line=144, offs=14) -- 4171(line=144, offs=36) -*/ -ATSINSmove(tmp291, atspre_g0int_mod_int(arg1, ATSPMVi0nt(4))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4149(line=144, offs=14) -- 4171(line=144, offs=36) -*/ -ATSINSmove(tmp284, ATSLIB_056_prelude__eq_g0int_int__10__19(tmp291, ATSPMVi0nt(3))) ; - -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4149(line=144, offs=14) -- 4171(line=144, offs=36) -*/ -ATSINSmove(tmp284, ATSPMVbool_false()) ; -} /* ATSendif */ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4149(line=144, offs=14) -- 4171(line=144, offs=36) -*/ -ATSifnthen(ATSCKpat_bool(tmp284, ATSPMVbool_true())) { ATSINSgoto(__atstmplab31) ; } ; -/* -emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) -*/ -/* -ibranch-mbody: -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4175(line=144, offs=40) -- 4188(line=144, offs=53) -*/ -ATStailcal_beg() -ATSINSmove_tlcal(apy0, arg1) ; -ATSINSmove_tlcal(apy1, arg0) ; -ATSINSargmove_tlcal(arg0, apy0) ; -ATSINSargmove_tlcal(arg1, apy1) ; -ATSINSfgoto(__patsflab_jacobi2_108) ; -ATStailcal_end() - -ATSbranch_end() - -ATSbranch_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4196(line=145, offs=8) -- 4196(line=145, offs=8) -*/ -ATSINSlab(__atstmplab31): -/* -emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) -*/ -/* -ibranch-mbody: -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4201(line=145, offs=13) -- 4214(line=145, offs=26) -*/ -ATSINSmove(tmp292, jacobi2_108(arg1, arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4200(line=145, offs=12) -- 4214(line=145, offs=26) -*/ -ATSINSmove(tmpret263, atspre_g0int_neg_int(tmp292)) ; - -ATSbranch_end() - -/* -** ibranchlst-end -*/ -ATScaseof_end() - -ATSfunbody_end() -ATSreturn(tmpret263) ; -} /* end of [jacobi2_108] */ - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12679(line=659, offs=3) -- 12718(line=659, offs=42) -*/ -/* -local: -global: gt_g1int_int$4$5(level=1) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4637) -tmparg = S2Evar(tk(4637)) -tmpsub = Some(tk(4637) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__gt_g1int_int__4__5(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret8__5, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp9__5, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12664(line=658, offs=1) -- 12718(line=659, offs=42) -*/ -ATSINSflab(__patsflab_gt_g1int_int): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12705(line=659, offs=29) -- 12716(line=659, offs=40) -*/ -ATSINSmove(tmp9__5, atspre_g1int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12688(line=659, offs=12) -- 12718(line=659, offs=42) -*/ -ATSINSmove(tmpret8__5, atspre_g1int_gt_int(arg0, tmp9__5)) ; - -ATSfunbody_end() -ATSreturn(tmpret8__5) ; -} /* end of [ATSLIB_056_prelude__gt_g1int_int__4__5] */ - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) -*/ -/* -local: -global: eq_g0int_int$10$15(level=1) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4628) -tmparg = S2Evar(tk(4628)) -tmpsub = Some(tk(4628) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g0int_int__10__15(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret15__15, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp16__15, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) -*/ -ATSINSflab(__patsflab_eq_g0int_int): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) -*/ -ATSINSmove(tmp16__15, atspre_g0int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) -*/ -ATSINSmove(tmpret15__15, atspre_g0int_eq_int(arg0, tmp16__15)) ; - -ATSfunbody_end() -ATSreturn(tmpret15__15) ; -} /* end of [ATSLIB_056_prelude__eq_g0int_int__10__15] */ - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) -*/ -/* -local: -global: eq_g0int_int$10$16(level=1) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4628) -tmparg = S2Evar(tk(4628)) -tmpsub = Some(tk(4628) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g0int_int__10__16(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret15__16, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp16__16, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) -*/ -ATSINSflab(__patsflab_eq_g0int_int): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) -*/ -ATSINSmove(tmp16__16, atspre_g0int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) -*/ -ATSINSmove(tmpret15__16, atspre_g0int_eq_int(arg0, tmp16__16)) ; - -ATSfunbody_end() -ATSreturn(tmpret15__16) ; -} /* end of [ATSLIB_056_prelude__eq_g0int_int__10__16] */ - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) -*/ -/* -local: -global: eq_g0int_int$10$17(level=1) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4628) -tmparg = S2Evar(tk(4628)) -tmpsub = Some(tk(4628) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g0int_int__10__17(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret15__17, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp16__17, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) -*/ -ATSINSflab(__patsflab_eq_g0int_int): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) -*/ -ATSINSmove(tmp16__17, atspre_g0int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) -*/ -ATSINSmove(tmpret15__17, atspre_g0int_eq_int(arg0, tmp16__17)) ; - -ATSfunbody_end() -ATSreturn(tmpret15__17) ; -} /* end of [ATSLIB_056_prelude__eq_g0int_int__10__17] */ - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) -*/ -/* -local: -global: eq_g0int_int$10$18(level=1) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4628) -tmparg = S2Evar(tk(4628)) -tmpsub = Some(tk(4628) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g0int_int__10__18(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret15__18, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp16__18, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) -*/ -ATSINSflab(__patsflab_eq_g0int_int): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) -*/ -ATSINSmove(tmp16__18, atspre_g0int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) -*/ -ATSINSmove(tmpret15__18, atspre_g0int_eq_int(arg0, tmp16__18)) ; - -ATSfunbody_end() -ATSreturn(tmpret15__18) ; -} /* end of [ATSLIB_056_prelude__eq_g0int_int__10__18] */ - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) -*/ -/* -local: -global: eq_g0int_int$10$19(level=1) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4628) -tmparg = S2Evar(tk(4628)) -tmpsub = Some(tk(4628) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g0int_int__10__19(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret15__19, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp16__19, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) -*/ -ATSINSflab(__patsflab_eq_g0int_int): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) -*/ -ATSINSmove(tmp16__19, atspre_g0int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) -*/ -ATSINSmove(tmpret15__19, atspre_g0int_eq_int(arg0, tmp16__19)) ; - -ATSfunbody_end() -ATSreturn(tmpret15__19) ; -} /* end of [ATSLIB_056_prelude__eq_g0int_int__10__19] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4245(line=147, offs=30) -- 4282(line=148, offs=32) -*/ -/* -local: -global: count_divisors_ats$116$0(level=0) -local: -global: -*/ -ATSextern() -atstkind_t0ype(atstype_int) -count_divisors_ats(atstkind_t0ype(atstype_int) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret293, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp305, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4226(line=147, offs=11) -- 4282(line=148, offs=32) -*/ -ATSINSflab(__patsflab_count_divisors_ats): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4270(line=148, offs=20) -- 4280(line=148, offs=30) -*/ -ATSINSmove(tmp305, _057_home_057_vanessa_057_programming_057_haskell_057_done_057_hs_055_ats_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_sats__divisors(arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4253(line=148, offs=3) -- 4282(line=148, offs=32) -*/ -ATSINSmove(tmpret293, ATSLIB_056_prelude__stream_vt_length__117__1(tmp305)) ; - -ATSfunbody_end() -ATSreturn(tmpret293) ; -} /* end of [count_divisors_ats] */ - -#if(0) -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats: 8385(line=480, offs=17) -- 8607(line=495, offs=4) -*/ -/* -local: -global: stream_vt_length$117$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = a(8194) -tmparg = S2Evar(a(8194)) -tmpsub = None() -*/ -atstkind_t0ype(atstype_int) -ATSLIB_056_prelude__stream_vt_length__117(atstkind_type(atstype_ptrk) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret294, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 8369(line=480, offs=1) -- 8607(line=495, offs=4) -*/ -ATSINSflab(__patsflab_stream_vt_length): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 8393(line=480, offs=25) -- 8607(line=495, offs=4) -*/ -/* -letpush(beg) -*/ -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 8590(line=494, offs=16) -- 8602(line=494, offs=28) -*/ -ATSINSmove(tmpret294, ATSfunclo_fun(PMVd2vfunlab(d2v=loop$4191(1), flab=loop_118$0(level=1)), (atstkind_type(atstype_ptrk), atstkind_t0ype(atstype_int)), atstkind_t0ype(atstype_int))(arg0, ATSPMVi0nt(0))) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 8393(line=480, offs=25) -- 8607(line=495, offs=4) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret294) ; -} /* end of [ATSLIB_056_prelude__stream_vt_length__117] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats: 8404(line=483, offs=1) -- 8548(line=491, offs=2) -*/ -/* -local: loop_118$0(level=1) -global: loop_118$0(level=1) -local: -global: -*/ -ATSstatic() -atstkind_t0ype(atstype_int) -loop_118__118(atstkind_type(atstype_ptrk) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(apy0, atstkind_type(atstype_ptrk)) ; -ATStmpdec(apy1, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmpret295, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp296, atstype_boxed) ; -ATStmpdec(tmp298, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp299, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 8404(line=483, offs=1) -- 8548(line=491, offs=2) -*/ -ATSINSflab(__patsflab_loop_118): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 8470(line=488, offs=9) -- 8473(line=488, offs=12) -*/ -ATSINSmove_llazyeval(tmp296, atstype_boxed, arg0) ; -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 8464(line=488, offs=3) -- 8546(line=490, offs=44) -*/ -ATScaseof_beg() -/* -** ibranchlst-beg -*/ -ATSbranch_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 8481(line=489, offs=5) -- 8497(line=489, offs=21) -*/ -ATSINSlab(__atstmplab32): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 8470(line=488, offs=9) -- 8473(line=488, offs=12) -*/ -ATSifthen(ATSCKptriscons(tmp296)) { ATSINSgoto(__atstmplab35) ; } ; -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 8497(line=489, offs=21) -- 8497(line=489, offs=21) -*/ -ATSINSlab(__atstmplab33): -/* -emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) -*/ -/* -ibranch-mbody: -*/ -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 8501(line=489, offs=25) -- 8502(line=489, offs=26) -*/ -ATSINSmove(tmpret295, arg1) ; -ATSbranch_end() - -ATSbranch_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 8507(line=490, offs=5) -- 8529(line=490, offs=27) -*/ -ATSINSlab(__atstmplab34): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 8470(line=488, offs=9) -- 8473(line=488, offs=12) -*/ -#if(0) -ATSifthen(ATSCKptrisnull(tmp296)) { ATSINSdeadcode_fail() ; } ; -#endif -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 8529(line=490, offs=27) -- 8529(line=490, offs=27) -*/ -ATSINSlab(__atstmplab35): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 8526(line=490, offs=24) -- 8528(line=490, offs=26) -*/ -ATSINSmove(tmp298, ATSSELcon(tmp296, postiats_tysum_2, atslab__1)) ; -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 8507(line=490, offs=5) -- 8546(line=490, offs=44) -*/ -ATSINSfreecon(tmp296) ; -/* -emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) -*/ -/* -ibranch-mbody: -*/ -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 8542(line=490, offs=40) -- 8545(line=490, offs=43) -*/ -ATSINSmove(tmp299, PMVtmpltcst(g1int_add)(arg1, ATSPMVi0nt(1))) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 8533(line=490, offs=31) -- 8546(line=490, offs=44) -*/ -ATStailcal_beg() -ATSINSmove_tlcal(apy0, tmp298) ; -ATSINSmove_tlcal(apy1, tmp299) ; -ATSINSargmove_tlcal(arg0, apy0) ; -ATSINSargmove_tlcal(arg1, apy1) ; -ATSINSfgoto(__patsflab_loop_118) ; -ATStailcal_end() - -ATSbranch_end() - -/* -** ibranchlst-end -*/ -ATScaseof_end() - -ATSfunbody_end() -ATSreturn(tmpret295) ; -} /* end of [loop_118__118] */ -#endif // end of [TEMPLATE] - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats: 8385(line=480, offs=17) -- 8607(line=495, offs=4) -*/ -/* -local: -global: stream_vt_length$117$1(level=1) -local: -global: -*/ -ATSstatic() -/* -imparg = a(8194) -tmparg = S2Evar(a(8194)) -tmpsub = Some(a(8194) -> S2Eapp(S2Ecst(g0int_t0ype); S2Eextkind(atstype_int))) -*/ -atstkind_t0ype(atstype_int) -ATSLIB_056_prelude__stream_vt_length__117__1(atstkind_type(atstype_ptrk) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret294__1, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 8369(line=480, offs=1) -- 8607(line=495, offs=4) -*/ -ATSINSflab(__patsflab_stream_vt_length): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 8393(line=480, offs=25) -- 8607(line=495, offs=4) -*/ -/* -letpush(beg) -*/ -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 8590(line=494, offs=16) -- 8602(line=494, offs=28) -*/ -ATSINSmove(tmpret294__1, loop_118__118__1(arg0, ATSPMVi0nt(0))) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 8393(line=480, offs=25) -- 8607(line=495, offs=4) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret294__1) ; -} /* end of [ATSLIB_056_prelude__stream_vt_length__117__1] */ - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats: 8404(line=483, offs=1) -- 8548(line=491, offs=2) -*/ -/* -local: loop_118$1(level=2) -global: loop_118$1(level=2) -local: -global: -*/ -ATSstatic() -atstkind_t0ype(atstype_int) -loop_118__118__1(atstkind_type(atstype_ptrk) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(apy0, atstkind_type(atstype_ptrk)) ; -ATStmpdec(apy1, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmpret295__1, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp296__1, atstype_boxed) ; -ATStmpdec(tmp298__1, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp299__1, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 8404(line=483, offs=1) -- 8548(line=491, offs=2) -*/ -ATSINSflab(__patsflab_loop_118): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 8470(line=488, offs=9) -- 8473(line=488, offs=12) -*/ -ATSINSmove_llazyeval(tmp296__1, atstype_boxed, arg0) ; -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 8464(line=488, offs=3) -- 8546(line=490, offs=44) -*/ -ATScaseof_beg() -/* -** ibranchlst-beg -*/ -ATSbranch_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 8481(line=489, offs=5) -- 8497(line=489, offs=21) -*/ -ATSINSlab(__atstmplab32): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 8470(line=488, offs=9) -- 8473(line=488, offs=12) -*/ -ATSifthen(ATSCKptriscons(tmp296__1)) { ATSINSgoto(__atstmplab35) ; } ; -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 8497(line=489, offs=21) -- 8497(line=489, offs=21) -*/ -ATSINSlab(__atstmplab33): -/* -emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) -*/ -/* -ibranch-mbody: -*/ -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 8501(line=489, offs=25) -- 8502(line=489, offs=26) -*/ -ATSINSmove(tmpret295__1, arg1) ; -ATSbranch_end() - -ATSbranch_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 8507(line=490, offs=5) -- 8529(line=490, offs=27) -*/ -ATSINSlab(__atstmplab34): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 8470(line=488, offs=9) -- 8473(line=488, offs=12) -*/ -#if(0) -ATSifthen(ATSCKptrisnull(tmp296__1)) { ATSINSdeadcode_fail() ; } ; -#endif -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 8529(line=490, offs=27) -- 8529(line=490, offs=27) -*/ -ATSINSlab(__atstmplab35): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 8526(line=490, offs=24) -- 8528(line=490, offs=26) -*/ -ATSINSmove(tmp298__1, ATSSELcon(tmp296__1, postiats_tysum_1, atslab__1)) ; -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 8507(line=490, offs=5) -- 8546(line=490, offs=44) -*/ -ATSINSfreecon(tmp296__1) ; -/* -emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) -*/ -/* -ibranch-mbody: -*/ -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 8542(line=490, offs=40) -- 8545(line=490, offs=43) -*/ -ATSINSmove(tmp299__1, atspre_g1int_add_int(arg1, ATSPMVi0nt(1))) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 8533(line=490, offs=31) -- 8546(line=490, offs=44) -*/ -ATStailcal_beg() -ATSINSmove_tlcal(apy0, tmp298__1) ; -ATSINSmove_tlcal(apy1, tmp299__1) ; -ATSINSargmove_tlcal(arg0, apy0) ; -ATSINSargmove_tlcal(arg1, apy1) ; -ATSINSfgoto(__patsflab_loop_118) ; -ATStailcal_end() - -ATSbranch_end() - -/* -** ibranchlst-end -*/ -ATScaseof_end() - -ATSfunbody_end() -ATSreturn(tmpret295__1) ; -} /* end of [loop_118__118__1] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4311(line=150, offs=28) -- 4880(line=176, offs=6) -*/ -/* -local: sqrt_int_46$0(level=0) -global: sqrt_int_46$0(level=0), sum_divisors_ats$121$0(level=0) -local: -global: -*/ -ATSextern() -atstkind_t0ype(atstype_int) -sum_divisors_ats(atstkind_t0ype(atstype_int) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret306, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4294(line=150, offs=11) -- 4880(line=176, offs=6) -*/ -ATSINSflab(__patsflab_sum_divisors_ats): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4319(line=151, offs=3) -- 4880(line=176, offs=6) -*/ -/* -letpush(beg) -*/ -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4864(line=175, offs=5) -- 4874(line=175, offs=15) -*/ -ATSINSmove(tmpret306, loop_122(arg0, ATSPMVi0nt(1))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4319(line=151, offs=3) -- 4880(line=176, offs=6) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret306) ; -} /* end of [sum_divisors_ats] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4331(line=152, offs=9) -- 4854(line=173, offs=27) -*/ -/* -local: sqrt_int_46$0(level=0), loop_122$0(level=1) -global: sqrt_int_46$0(level=0), loop_122$0(level=1) -local: -global: -*/ -ATSstatic() -atstkind_t0ype(atstype_int) -loop_122(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_bool)) ; -ATStmpdec(tmp315, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp316, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp319, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmpref320, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp321, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp324, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmpref325, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp326, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp327, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp328, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp329, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4331(line=152, offs=9) -- 4854(line=173, offs=27) -*/ -ATSINSflab(__patsflab_loop_122): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4425(line=153, offs=17) -- 4435(line=153, offs=27) -*/ -ATSINSmove(tmp311, sqrt_int_46(arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4418(line=153, offs=10) -- 4435(line=153, offs=27) -*/ -ATSINSmove(tmp308, ATSLIB_056_prelude__gte_g1int_int__78__2(arg1, tmp311)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4415(line=153, offs=7) -- 4854(line=173, offs=27) -*/ -ATSif( -tmp308 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4453(line=154, offs=12) -- 4460(line=154, offs=19) -*/ -ATSINSmove(tmp315, atspre_g0int_mod_int(arg0, arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4453(line=154, offs=12) -- 4464(line=154, offs=23) -*/ -ATSINSmove(tmp312, ATSLIB_056_prelude__eq_g0int_int__10__20(tmp315, ATSPMVi0nt(0))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4450(line=154, offs=9) -- 4662(line=164, offs=12) -*/ -ATSif( -tmp312 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4483(line=155, offs=14) -- 4490(line=155, offs=21) -*/ -ATSINSmove(tmp319, atspre_g1int_div_int(arg0, arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4483(line=155, offs=14) -- 4497(line=155, offs=28) -*/ -ATSINSmove(tmp316, ATSLIB_056_prelude__neq_g1int_int__67__3(tmp319, arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4480(line=155, offs=11) -- 4637(line=162, offs=16) -*/ -ATSif( -tmp316 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4515(line=156, offs=13) -- 4606(line=160, offs=16) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4537(line=157, offs=19) -- 4538(line=157, offs=20) -*/ -/* -ATSINStmpdec(tmpref320) ; -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4546(line=157, offs=28) -- 4553(line=157, offs=35) -*/ -ATSINSmove(tmpref320, atspre_g1int_div_int(arg0, arg1)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4583(line=159, offs=15) -- 4590(line=159, offs=22) -*/ -ATSINSmove(tmpret307, atspre_g1int_add_int(arg1, tmpref320)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4515(line=156, offs=13) -- 4606(line=160, offs=16) -*/ -/* -INSletpop() -*/ -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4634(line=162, offs=13) -- 4637(line=162, offs=16) -*/ -ATSINSmove(tmpret307, arg1) ; -} /* ATSendif */ -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4661(line=164, offs=11) -- 4662(line=164, offs=12) -*/ -ATSINSmove(tmpret307, ATSPMVi0nt(0)) ; -} /* ATSendif */ -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4685(line=166, offs=12) -- 4692(line=166, offs=19) -*/ -ATSINSmove(tmp324, atspre_g0int_mod_int(arg0, arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4685(line=166, offs=12) -- 4696(line=166, offs=23) -*/ -ATSINSmove(tmp321, ATSLIB_056_prelude__eq_g0int_int__10__21(tmp324, ATSPMVi0nt(0))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4682(line=166, offs=9) -- 4854(line=173, offs=27) -*/ -ATSif( -tmp321 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4712(line=167, offs=11) -- 4814(line=171, offs=14) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4732(line=168, offs=17) -- 4733(line=168, offs=18) -*/ -/* -ATSINStmpdec(tmpref325) ; -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4741(line=168, offs=26) -- 4748(line=168, offs=33) -*/ -ATSINSmove(tmpref325, atspre_g1int_div_int(arg0, arg1)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4774(line=170, offs=13) -- 4781(line=170, offs=20) -*/ -ATSINSmove(tmp326, atspre_g1int_add_int(arg1, tmpref325)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4792(line=170, offs=31) -- 4799(line=170, offs=38) -*/ -ATSINSmove(tmp328, atspre_g1int_add_int(arg1, ATSPMVi0nt(1))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4784(line=170, offs=23) -- 4800(line=170, offs=39) -*/ -ATSINSmove(tmp327, loop_122(arg0, tmp328)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4774(line=170, offs=13) -- 4800(line=170, offs=39) -*/ -ATSINSmove(tmpret307, atspre_g0int_add_int(tmp326, tmp327)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4712(line=167, offs=11) -- 4814(line=171, offs=14) -*/ -/* -INSletpop() -*/ -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4846(line=173, offs=19) -- 4853(line=173, offs=26) -*/ -ATSINSmove(tmp329, atspre_g1int_add_int(arg1, ATSPMVi0nt(1))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4838(line=173, offs=11) -- 4854(line=173, offs=27) -*/ -ATStailcal_beg() -ATSINSmove_tlcal(apy0, arg0) ; -ATSINSmove_tlcal(apy1, tmp329) ; -ATSINSargmove_tlcal(arg0, apy0) ; -ATSINSargmove_tlcal(arg1, apy1) ; -ATSINSfgoto(__patsflab_loop_122) ; -ATStailcal_end() - -} /* ATSendif */ -} /* ATSendif */ -ATSfunbody_end() -ATSreturn(tmpret307) ; -} /* end of [loop_122] */ - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12757(line=663, offs=3) -- 12797(line=663, offs=43) -*/ -/* -local: -global: gte_g1int_int$78$2(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4640) -tmparg = S2Evar(tk(4640)) -tmpsub = Some(tk(4640) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__gte_g1int_int__78__2(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret171__2, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp172__2, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12741(line=662, offs=1) -- 12797(line=663, offs=43) -*/ -ATSINSflab(__patsflab_gte_g1int_int): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12784(line=663, offs=30) -- 12795(line=663, offs=41) -*/ -ATSINSmove(tmp172__2, atspre_g1int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12766(line=663, offs=12) -- 12797(line=663, offs=43) -*/ -ATSINSmove(tmpret171__2, atspre_g1int_gte_int(arg0, tmp172__2)) ; - -ATSfunbody_end() -ATSreturn(tmpret171__2) ; -} /* end of [ATSLIB_056_prelude__gte_g1int_int__78__2] */ - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) -*/ -/* -local: -global: eq_g0int_int$10$20(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4628) -tmparg = S2Evar(tk(4628)) -tmpsub = Some(tk(4628) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g0int_int__10__20(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret15__20, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp16__20, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) -*/ -ATSINSflab(__patsflab_eq_g0int_int): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) -*/ -ATSINSmove(tmp16__20, atspre_g0int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) -*/ -ATSINSmove(tmpret15__20, atspre_g0int_eq_int(arg0, tmp16__20)) ; - -ATSfunbody_end() -ATSreturn(tmpret15__20) ; -} /* end of [ATSLIB_056_prelude__eq_g0int_int__10__20] */ - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12916(line=672, offs=3) -- 12956(line=672, offs=43) -*/ -/* -local: -global: neq_g1int_int$67$3(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4646) -tmparg = S2Evar(tk(4646)) -tmpsub = Some(tk(4646) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__neq_g1int_int__67__3(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret153__3, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp154__3, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12900(line=671, offs=1) -- 12956(line=672, offs=43) -*/ -ATSINSflab(__patsflab_neq_g1int_int): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12943(line=672, offs=30) -- 12954(line=672, offs=41) -*/ -ATSINSmove(tmp154__3, atspre_g1int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12925(line=672, offs=12) -- 12956(line=672, offs=43) -*/ -ATSINSmove(tmpret153__3, atspre_g1int_neq_int(arg0, tmp154__3)) ; - -ATSfunbody_end() -ATSreturn(tmpret153__3) ; -} /* end of [ATSLIB_056_prelude__neq_g1int_int__67__3] */ - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) -*/ -/* -local: -global: eq_g0int_int$10$21(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4628) -tmparg = S2Evar(tk(4628)) -tmpsub = Some(tk(4628) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g0int_int__10__21(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret15__21, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp16__21, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) -*/ -ATSINSflab(__patsflab_eq_g0int_int): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) -*/ -ATSINSmove(tmp16__21, atspre_g0int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) -*/ -ATSINSmove(tmpret15__21, atspre_g0int_eq_int(arg0, tmp16__21)) ; - -ATSfunbody_end() -ATSreturn(tmpret15__21) ; -} /* end of [ATSLIB_056_prelude__eq_g0int_int__10__21] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4907(line=178, offs=26) -- 4938(line=179, offs=26) -*/ -/* -local: -global: is_perfect_ats$128$0(level=0) -local: -global: -*/ -ATSextern() -atstkind_t0ype(atstype_bool) -is_perfect_ats(atstkind_t0ype(atstype_int) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret330, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp333, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4892(line=178, offs=11) -- 4938(line=179, offs=26) -*/ -ATSINSflab(__patsflab_is_perfect_ats): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4915(line=179, offs=3) -- 4933(line=179, offs=21) -*/ -ATSINSmove(tmp333, sum_divisors_ats(arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4915(line=179, offs=3) -- 4938(line=179, offs=26) -*/ -ATSINSmove(tmpret330, ATSLIB_056_prelude__eq_g0int_int__10__22(tmp333, arg0)) ; - -ATSfunbody_end() -ATSreturn(tmpret330) ; -} /* end of [is_perfect_ats] */ - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) -*/ -/* -local: -global: eq_g0int_int$10$22(level=1) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4628) -tmparg = S2Evar(tk(4628)) -tmpsub = Some(tk(4628) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g0int_int__10__22(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret15__22, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp16__22, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) -*/ -ATSINSflab(__patsflab_eq_g0int_int): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) -*/ -ATSINSmove(tmp16__22, atspre_g0int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) -*/ -ATSINSmove(tmpret15__22, atspre_g0int_eq_int(arg0, tmp16__22)) ; - -ATSfunbody_end() -ATSreturn(tmpret15__22) ; -} /* end of [ATSLIB_056_prelude__eq_g0int_int__10__22] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4944(line=181, offs=5) -- 5254(line=195, offs=8) -*/ -/* -local: rip_130$0(level=0) -global: rip_130$0(level=0) -local: -global: -*/ -ATSstatic() -atstkind_t0ype(atstype_int) -rip_130(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(tmpret334, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp335, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp340, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp341, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp344, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmpref345, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp346, atstkind_t0ype(atstype_bool)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 4944(line=181, offs=5) -- 5254(line=195, offs=8) -*/ -ATSINSflab(__patsflab_rip_130): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5066(line=182, offs=6) -- 5071(line=182, offs=11) -*/ -ATSINSmove(tmp340, atspre_g0int_mod_int(arg0, arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5066(line=182, offs=6) -- 5076(line=182, offs=16) -*/ -ATSINSmove(tmp335, ATSLIB_056_prelude__neq_g0int_int__131__1(tmp340, ATSPMVi0nt(0))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5063(line=182, offs=3) -- 5254(line=195, offs=8) -*/ -ATSif( -tmp335 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5086(line=183, offs=5) -- 5087(line=183, offs=6) -*/ -ATSINSmove(tmpret334, arg0) ; -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5102(line=185, offs=8) -- 5107(line=185, offs=13) -*/ -ATSINSmove(tmp344, atspre_g1int_div_int(arg0, arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5102(line=185, offs=8) -- 5111(line=185, offs=17) -*/ -ATSINSmove(tmp341, ATSLIB_056_prelude__gt_g1int_int__4__6(tmp344, ATSPMVi0nt(0))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5099(line=185, offs=5) -- 5254(line=195, offs=8) -*/ -ATSif( -tmp341 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5123(line=186, offs=7) -- 5237(line=193, offs=10) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5139(line=187, offs=13) -- 5141(line=187, offs=15) -*/ -/* -ATSINStmpdec(tmpref345) ; -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5144(line=187, offs=18) -- 5149(line=187, offs=23) -*/ -ATSINSmove(tmpref345, atspre_g1int_div_int(arg0, arg1)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5170(line=189, offs=12) -- 5176(line=189, offs=18) -*/ -ATSINSmove(tmp346, ATSLIB_056_prelude__lt_g1int_int__50__3(tmpref345, arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5167(line=189, offs=9) -- 5227(line=192, offs=12) -*/ -ATSif( -tmp346 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5192(line=190, offs=11) -- 5202(line=190, offs=21) -*/ -ATStailcal_beg() -ATSINSmove_tlcal(apy0, tmpref345) ; -ATSINSmove_tlcal(apy1, arg1) ; -ATSINSargmove_tlcal(arg0, apy0) ; -ATSINSargmove_tlcal(arg1, apy1) ; -ATSINSfgoto(__patsflab_rip_130) ; -ATStailcal_end() - -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5226(line=192, offs=11) -- 5227(line=192, offs=12) -*/ -ATSINSmove(tmpret334, ATSPMVi0nt(1)) ; -} /* ATSendif */ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5123(line=186, offs=7) -- 5237(line=193, offs=10) -*/ -/* -INSletpop() -*/ -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5253(line=195, offs=7) -- 5254(line=195, offs=8) -*/ -ATSINSmove(tmpret334, ATSPMVi0nt(1)) ; -} /* ATSendif */ -} /* ATSendif */ -ATSfunbody_end() -ATSreturn(tmpret334) ; -} /* end of [rip_130] */ - -#if(0) -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12337(line=639, offs=3) -- 12377(line=639, offs=43) -*/ -/* -local: -global: neq_g0int_int$131$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = tk(4629) -tmparg = S2Evar(tk(4629)) -tmpsub = None() -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__neq_g0int_int__131(atstkind_t0ype(atstyvar_type(tk)) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret336, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp337, atstkind_t0ype(atstyvar_type(tk))) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12321(line=638, offs=1) -- 12377(line=639, offs=43) -*/ -ATSINSflab(__patsflab_neq_g0int_int): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12364(line=639, offs=30) -- 12375(line=639, offs=41) -*/ -ATSINSmove(tmp337, PMVtmpltcst(g0int2int)(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12346(line=639, offs=12) -- 12377(line=639, offs=43) -*/ -ATSINSmove(tmpret336, PMVtmpltcst(g0int_neq)(arg0, tmp337)) ; - -ATSfunbody_end() -ATSreturn(tmpret336) ; -} /* end of [ATSLIB_056_prelude__neq_g0int_int__131] */ -#endif // end of [TEMPLATE] - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12337(line=639, offs=3) -- 12377(line=639, offs=43) -*/ -/* -local: -global: neq_g0int_int$131$1(level=1) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4629) -tmparg = S2Evar(tk(4629)) -tmpsub = Some(tk(4629) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__neq_g0int_int__131__1(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret336__1, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp337__1, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12321(line=638, offs=1) -- 12377(line=639, offs=43) -*/ -ATSINSflab(__patsflab_neq_g0int_int): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12364(line=639, offs=30) -- 12375(line=639, offs=41) -*/ -ATSINSmove(tmp337__1, atspre_g0int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12346(line=639, offs=12) -- 12377(line=639, offs=43) -*/ -ATSINSmove(tmpret336__1, atspre_g0int_neq_int(arg0, tmp337__1)) ; - -ATSfunbody_end() -ATSreturn(tmpret336__1) ; -} /* end of [ATSLIB_056_prelude__neq_g0int_int__131__1] */ - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12679(line=659, offs=3) -- 12718(line=659, offs=42) -*/ -/* -local: -global: gt_g1int_int$4$6(level=1) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4637) -tmparg = S2Evar(tk(4637)) -tmpsub = Some(tk(4637) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__gt_g1int_int__4__6(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret8__6, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp9__6, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12664(line=658, offs=1) -- 12718(line=659, offs=42) -*/ -ATSINSflab(__patsflab_gt_g1int_int): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12705(line=659, offs=29) -- 12716(line=659, offs=40) -*/ -ATSINSmove(tmp9__6, atspre_g1int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12688(line=659, offs=12) -- 12718(line=659, offs=42) -*/ -ATSINSmove(tmpret8__6, atspre_g1int_gt_int(arg0, tmp9__6)) ; - -ATSfunbody_end() -ATSreturn(tmpret8__6) ; -} /* end of [ATSLIB_056_prelude__gt_g1int_int__4__6] */ - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12520(line=650, offs=3) -- 12559(line=650, offs=42) -*/ -/* -local: -global: lt_g1int_int$50$3(level=1) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4631) -tmparg = S2Evar(tk(4631)) -tmpsub = Some(tk(4631) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__lt_g1int_int__50__3(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret108__3, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp109__3, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12505(line=649, offs=1) -- 12559(line=650, offs=42) -*/ -ATSINSflab(__patsflab_lt_g1int_int): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12546(line=650, offs=29) -- 12557(line=650, offs=40) -*/ -ATSINSmove(tmp109__3, atspre_g1int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12529(line=650, offs=12) -- 12559(line=650, offs=42) -*/ -ATSINSmove(tmpret108__3, atspre_g1int_lt_int(arg0, tmp109__3)) ; - -ATSfunbody_end() -ATSreturn(tmpret108__3) ; -} /* end of [ATSLIB_056_prelude__lt_g1int_int__50__3] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5280(line=197, offs=25) -- 5841(line=215, offs=6) -*/ -/* -local: is_prime_48$0(level=0), rip_130$0(level=0) -global: sqrt_int_46$0(level=0), is_prime_48$0(level=0), rip_130$0(level=0), prime_factors$136$0(level=0) -local: -global: -*/ -ATSextern() -atstkind_type(atstype_ptrk) -_057_home_057_vanessa_057_programming_057_haskell_057_done_057_hs_055_ats_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_sats__prime_factors(atstkind_t0ype(atstype_int) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret349, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5266(line=197, offs=11) -- 5841(line=215, offs=6) -*/ -ATSINSflab(__patsflab_prime_factors): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5288(line=198, offs=3) -- 5841(line=215, offs=6) -*/ -/* -letpush(beg) -*/ -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5825(line=214, offs=5) -- 5835(line=214, offs=15) -*/ -ATSINSmove(tmpret349, loop_137(arg0, ATSPMVi0nt(1))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5288(line=198, offs=3) -- 5841(line=215, offs=6) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret349) ; -} /* end of [_057_home_057_vanessa_057_programming_057_haskell_057_done_057_hs_055_ats_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_sats__prime_factors] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5300(line=199, offs=9) -- 5815(line=212, offs=27) -*/ -/* -local: is_prime_48$0(level=0), rip_130$0(level=0), loop_137$0(level=1) -global: is_prime_48$0(level=0), rip_130$0(level=0), 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(apy0, atstkind_t0ype(atstype_int)) ; -ATStmpdec(apy1, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmpret350, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp351, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp354, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp359, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp360, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp363, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp364, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp367, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp374, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5300(line=199, offs=9) -- 5815(line=212, offs=27) -*/ -ATSINSflab(__patsflab_loop_137): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5398(line=200, offs=10) -- 5406(line=200, offs=18) -*/ -ATSINSmove(tmp351, ATSLIB_056_prelude__gte_g1int_int__78__3(arg1, arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5395(line=200, offs=7) -- 5815(line=212, offs=27) -*/ -ATSif( -tmp351 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5423(line=201, offs=12) -- 5433(line=201, offs=22) -*/ -ATSINSmove(tmp354, is_prime_48(arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5420(line=201, offs=9) -- 5546(line=204, offs=33) -*/ -ATSif( -tmp354 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5450(line=202, offs=11) -- 5500(line=202, offs=61) -*/ -ATSINSmove_ldelay(tmpret350, atstype_boxed, ATSPMVcfunlab(1, __patsfun_139, (arg0))) ; -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5524(line=204, offs=11) -- 5546(line=204, offs=33) -*/ -ATSINSmove_ldelay(tmpret350, atstype_boxed, ATSPMVcfunlab(1, __patsfun_141, ())) ; -} /* ATSendif */ -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5569(line=206, offs=12) -- 5596(line=206, offs=39) -*/ -ATSINSmove(tmp363, atspre_g0int_mod_int(arg0, arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5569(line=206, offs=12) -- 5596(line=206, offs=39) -*/ -ATSINSmove(tmp360, ATSLIB_056_prelude__eq_g0int_int__10__23(tmp363, ATSPMVi0nt(0))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5569(line=206, offs=12) -- 5596(line=206, offs=39) -*/ -ATSif( -tmp360 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5569(line=206, offs=12) -- 5596(line=206, offs=39) -*/ -ATSINSmove(tmp359, is_prime_48(arg1)) ; - -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5569(line=206, offs=12) -- 5596(line=206, offs=39) -*/ -ATSINSmove(tmp359, ATSPMVbool_false()) ; -} /* ATSendif */ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5566(line=206, offs=9) -- 5815(line=212, offs=27) -*/ -ATSif( -tmp359 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5616(line=207, offs=14) -- 5623(line=207, offs=21) -*/ -ATSINSmove(tmp367, atspre_g1int_div_int(arg0, arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5616(line=207, offs=14) -- 5627(line=207, offs=25) -*/ -ATSINSmove(tmp364, ATSLIB_056_prelude__gt_g1int_int__4__7(tmp367, ATSPMVi0nt(0))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5613(line=207, offs=11) -- 5775(line=210, offs=65) -*/ -ATSif( -tmp364 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5645(line=208, offs=13) -- 5695(line=208, offs=63) -*/ -ATSINSmove_ldelay(tmpret350, atstype_boxed, ATSPMVcfunlab(1, __patsfun_144, (arg0, arg1))) ; -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5723(line=210, offs=13) -- 5775(line=210, offs=65) -*/ -ATSINSmove_ldelay(tmpret350, atstype_boxed, ATSPMVcfunlab(1, __patsfun_145, (arg1))) ; -} /* ATSendif */ -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5807(line=212, offs=19) -- 5814(line=212, offs=26) -*/ -ATSINSmove(tmp374, atspre_g1int_add_int(arg1, ATSPMVi0nt(1))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5799(line=212, offs=11) -- 5815(line=212, offs=27) -*/ -ATStailcal_beg() -ATSINSmove_tlcal(apy0, arg0) ; -ATSINSmove_tlcal(apy1, tmp374) ; -ATSINSargmove_tlcal(arg0, apy0) ; -ATSINSargmove_tlcal(arg1, apy1) ; -ATSINSfgoto(__patsflab_loop_137) ; -ATStailcal_end() - -} /* ATSendif */ -} /* ATSendif */ -ATSfunbody_end() -ATSreturn(tmpret350) ; -} /* end of [loop_137] */ - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12757(line=663, offs=3) -- 12797(line=663, offs=43) -*/ -/* -local: -global: gte_g1int_int$78$3(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4640) -tmparg = S2Evar(tk(4640)) -tmpsub = Some(tk(4640) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__gte_g1int_int__78__3(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret171__3, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp172__3, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12741(line=662, offs=1) -- 12797(line=663, offs=43) -*/ -ATSINSflab(__patsflab_gte_g1int_int): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12784(line=663, offs=30) -- 12795(line=663, offs=41) -*/ -ATSINSmove(tmp172__3, atspre_g1int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12766(line=663, offs=12) -- 12797(line=663, offs=43) -*/ -ATSINSmove(tmpret171__3, atspre_g1int_gte_int(arg0, tmp172__3)) ; - -ATSfunbody_end() -ATSreturn(tmpret171__3) ; -} /* end of [ATSLIB_056_prelude__gte_g1int_int__78__3] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5450(line=202, offs=11) -- 5500(line=202, offs=61) -*/ -/* -local: -global: __patsfun_139$0(level=2) -local: n$5171(2)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))) -global: n$5171(2)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))) -*/ -ATSstatic() -atstype_boxed -__patsfun_139(atstkind_t0ype(atstype_int) env0, atstype_bool arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret355, atstype_boxed) ; -ATStmpdec(tmp356, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5450(line=202, offs=11) -- 5500(line=202, offs=61) -*/ -ATSINSflab(__patsflab___patsfun_139): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5450(line=202, offs=11) -- 5500(line=202, offs=61) -*/ -ATSif( -arg0 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5476(line=202, offs=37) -- 5498(line=202, offs=59) -*/ -ATSINSmove_ldelay(tmp356, atstype_boxed, ATSPMVcfunlab(1, __patsfun_140, ())) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5458(line=202, offs=19) -- 5499(line=202, offs=60) -*/ - -/* -#LINCONSTATUS==0 -*/ -ATSINSmove_con1_beg() -ATSINSmove_con1_new(tmpret355, postiats_tysum_1) ; -#if(0) -ATSINSstore_con1_tag(tmpret355, 1) ; -#endif -ATSINSstore_con1_ofs(tmpret355, postiats_tysum_1, atslab__0, env0) ; -ATSINSstore_con1_ofs(tmpret355, postiats_tysum_1, atslab__1, tmp356) ; -ATSINSmove_con1_end() -} ATSelse() { -/* (*nothing*) */ -} /* ATSendif */ -ATSfunbody_end() -ATSreturn(tmpret355) ; -} /* end of [__patsfun_139] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5476(line=202, offs=37) -- 5498(line=202, offs=59) -*/ -/* -local: -global: __patsfun_140$0(level=3) -local: -global: -*/ -ATSstatic() -atstype_boxed -__patsfun_140(atstype_bool arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret357, atstype_boxed) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5476(line=202, offs=37) -- 5498(line=202, offs=59) -*/ -ATSINSflab(__patsflab___patsfun_140): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5476(line=202, offs=37) -- 5498(line=202, offs=59) -*/ -ATSif( -arg0 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5484(line=202, offs=45) -- 5497(line=202, offs=58) -*/ - -ATSINSmove_nil(tmpret357) ; - -} ATSelse() { -/* (*nothing*) */ -} /* ATSendif */ -ATSfunbody_end() -ATSreturn(tmpret357) ; -} /* end of [__patsfun_140] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5524(line=204, offs=11) -- 5546(line=204, offs=33) -*/ -/* -local: -global: __patsfun_141$0(level=2) -local: -global: -*/ -ATSstatic() -atstype_boxed -__patsfun_141(atstype_bool arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret358, atstype_boxed) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5524(line=204, offs=11) -- 5546(line=204, offs=33) -*/ -ATSINSflab(__patsflab___patsfun_141): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5524(line=204, offs=11) -- 5546(line=204, offs=33) -*/ -ATSif( -arg0 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5532(line=204, offs=19) -- 5545(line=204, offs=32) -*/ - -ATSINSmove_nil(tmpret358) ; - -} ATSelse() { -/* (*nothing*) */ -} /* ATSendif */ -ATSfunbody_end() -ATSreturn(tmpret358) ; -} /* end of [__patsfun_141] */ - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) -*/ -/* -local: -global: eq_g0int_int$10$23(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4628) -tmparg = S2Evar(tk(4628)) -tmpsub = Some(tk(4628) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g0int_int__10__23(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret15__23, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp16__23, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) -*/ -ATSINSflab(__patsflab_eq_g0int_int): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) -*/ -ATSINSmove(tmp16__23, atspre_g0int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) -*/ -ATSINSmove(tmpret15__23, atspre_g0int_eq_int(arg0, tmp16__23)) ; - -ATSfunbody_end() -ATSreturn(tmpret15__23) ; -} /* end of [ATSLIB_056_prelude__eq_g0int_int__10__23] */ - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12679(line=659, offs=3) -- 12718(line=659, offs=42) -*/ -/* -local: -global: gt_g1int_int$4$7(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4637) -tmparg = S2Evar(tk(4637)) -tmpsub = Some(tk(4637) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__gt_g1int_int__4__7(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret8__7, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp9__7, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12664(line=658, offs=1) -- 12718(line=659, offs=42) -*/ -ATSINSflab(__patsflab_gt_g1int_int): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12705(line=659, offs=29) -- 12716(line=659, offs=40) -*/ -ATSINSmove(tmp9__7, atspre_g1int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12688(line=659, offs=12) -- 12718(line=659, offs=42) -*/ -ATSINSmove(tmpret8__7, atspre_g1int_gt_int(arg0, tmp9__7)) ; - -ATSfunbody_end() -ATSreturn(tmpret8__7) ; -} /* end of [ATSLIB_056_prelude__gt_g1int_int__4__7] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5645(line=208, offs=13) -- 5695(line=208, offs=63) -*/ -/* -local: rip_130$0(level=0), loop_137$0(level=1) -global: rip_130$0(level=0), loop_137$0(level=1), __patsfun_144$0(level=2) -local: n$5171(2)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))), acc$5172(2)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))) -global: n$5171(2)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))), acc$5172(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(tmpret368, atstype_boxed) ; -ATStmpdec(tmp369, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp370, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5645(line=208, offs=13) -- 5695(line=208, offs=63) -*/ -ATSINSflab(__patsflab___patsfun_144): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5645(line=208, offs=13) -- 5695(line=208, offs=63) -*/ -ATSif( -arg0 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5678(line=208, offs=46) -- 5689(line=208, offs=57) -*/ -ATSINSmove(tmp370, rip_130(env0, env1)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5673(line=208, offs=41) -- 5693(line=208, offs=61) -*/ -ATSINSmove(tmp369, loop_137(tmp370, ATSPMVi0nt(1))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5653(line=208, offs=21) -- 5694(line=208, offs=62) -*/ - -/* -#LINCONSTATUS==0 -*/ -ATSINSmove_con1_beg() -ATSINSmove_con1_new(tmpret368, postiats_tysum_1) ; -#if(0) -ATSINSstore_con1_tag(tmpret368, 1) ; -#endif -ATSINSstore_con1_ofs(tmpret368, postiats_tysum_1, atslab__0, env1) ; -ATSINSstore_con1_ofs(tmpret368, postiats_tysum_1, atslab__1, tmp369) ; -ATSINSmove_con1_end() -} ATSelse() { -/* (*nothing*) */ -} /* ATSendif */ -ATSfunbody_end() -ATSreturn(tmpret368) ; -} /* end of [__patsfun_144] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5723(line=210, offs=13) -- 5775(line=210, offs=65) -*/ -/* -local: -global: __patsfun_145$0(level=2) -local: acc$5172(2)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))) -global: acc$5172(2)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))) -*/ -ATSstatic() -atstype_boxed -__patsfun_145(atstkind_t0ype(atstype_int) env0, atstype_bool arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret371, atstype_boxed) ; -ATStmpdec(tmp372, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5723(line=210, offs=13) -- 5775(line=210, offs=65) -*/ -ATSINSflab(__patsflab___patsfun_145): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5723(line=210, offs=13) -- 5775(line=210, offs=65) -*/ -ATSif( -arg0 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5751(line=210, offs=41) -- 5773(line=210, offs=63) -*/ -ATSINSmove_ldelay(tmp372, atstype_boxed, ATSPMVcfunlab(1, __patsfun_146, ())) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5731(line=210, offs=21) -- 5774(line=210, offs=64) -*/ - -/* -#LINCONSTATUS==0 -*/ -ATSINSmove_con1_beg() -ATSINSmove_con1_new(tmpret371, postiats_tysum_1) ; -#if(0) -ATSINSstore_con1_tag(tmpret371, 1) ; -#endif -ATSINSstore_con1_ofs(tmpret371, postiats_tysum_1, atslab__0, env0) ; -ATSINSstore_con1_ofs(tmpret371, postiats_tysum_1, atslab__1, tmp372) ; -ATSINSmove_con1_end() -} ATSelse() { -/* (*nothing*) */ -} /* ATSendif */ -ATSfunbody_end() -ATSreturn(tmpret371) ; -} /* end of [__patsfun_145] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5751(line=210, offs=41) -- 5773(line=210, offs=63) -*/ -/* -local: -global: __patsfun_146$0(level=3) -local: -global: -*/ -ATSstatic() -atstype_boxed -__patsfun_146(atstype_bool arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret373, atstype_boxed) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5751(line=210, offs=41) -- 5773(line=210, offs=63) -*/ -ATSINSflab(__patsflab___patsfun_146): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5751(line=210, offs=41) -- 5773(line=210, offs=63) -*/ -ATSif( -arg0 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5759(line=210, offs=49) -- 5772(line=210, offs=62) -*/ - -ATSINSmove_nil(tmpret373) ; - -} ATSelse() { -/* (*nothing*) */ -} /* ATSendif */ -ATSfunbody_end() -ATSreturn(tmpret373) ; -} /* end of [__patsfun_146] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5870(line=217, offs=28) -- 6279(line=235, offs=6) -*/ -/* -local: is_prime_48$0(level=0), rip_130$0(level=0) -global: sqrt_int_46$0(level=0), is_prime_48$0(level=0), rip_130$0(level=0), little_omega_ats$147$0(level=0) -local: -global: -*/ -ATSextern() -atstkind_t0ype(atstype_int) -little_omega_ats(atstkind_t0ype(atstype_int) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret375, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5853(line=217, offs=11) -- 6279(line=235, offs=6) -*/ -ATSINSflab(__patsflab_little_omega_ats): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5878(line=218, offs=3) -- 6279(line=235, offs=6) -*/ -/* -letpush(beg) -*/ -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6263(line=234, offs=5) -- 6273(line=234, offs=15) -*/ -ATSINSmove(tmpret375, loop_148(arg0, ATSPMVi0nt(1))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5878(line=218, offs=3) -- 6279(line=235, offs=6) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret375) ; -} /* end of [little_omega_ats] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5890(line=219, offs=9) -- 6253(line=232, offs=27) -*/ -/* -local: is_prime_48$0(level=0), rip_130$0(level=0), loop_148$0(level=1) -global: is_prime_48$0(level=0), rip_130$0(level=0), loop_148$0(level=1) -local: -global: -*/ -ATSstatic() -atstkind_t0ype(atstype_int) -loop_148(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(tmpret376, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp377, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp380, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp381, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp382, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp385, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp386, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp389, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp390, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp391, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp392, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5890(line=219, offs=9) -- 6253(line=232, offs=27) -*/ -ATSINSflab(__patsflab_loop_148): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5983(line=220, offs=10) -- 5991(line=220, offs=18) -*/ -ATSINSmove(tmp377, ATSLIB_056_prelude__gte_g1int_int__78__4(arg1, arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 5980(line=220, offs=7) -- 6253(line=232, offs=27) -*/ -ATSif( -tmp377 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6008(line=221, offs=12) -- 6018(line=221, offs=22) -*/ -ATSINSmove(tmp380, is_prime_48(arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6005(line=221, offs=9) -- 6061(line=224, offs=12) -*/ -ATSif( -tmp380 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6035(line=222, offs=11) -- 6036(line=222, offs=12) -*/ -ATSINSmove(tmpret376, ATSPMVi0nt(1)) ; -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6060(line=224, offs=11) -- 6061(line=224, offs=12) -*/ -ATSINSmove(tmpret376, ATSPMVi0nt(0)) ; -} /* ATSendif */ -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6084(line=226, offs=12) -- 6111(line=226, offs=39) -*/ -ATSINSmove(tmp385, atspre_g0int_mod_int(arg0, arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6084(line=226, offs=12) -- 6111(line=226, offs=39) -*/ -ATSINSmove(tmp382, ATSLIB_056_prelude__eq_g0int_int__10__24(tmp385, ATSPMVi0nt(0))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6084(line=226, offs=12) -- 6111(line=226, offs=39) -*/ -ATSif( -tmp382 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6084(line=226, offs=12) -- 6111(line=226, offs=39) -*/ -ATSINSmove(tmp381, is_prime_48(arg1)) ; - -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6084(line=226, offs=12) -- 6111(line=226, offs=39) -*/ -ATSINSmove(tmp381, ATSPMVbool_false()) ; -} /* ATSendif */ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6081(line=226, offs=9) -- 6253(line=232, offs=27) -*/ -ATSif( -tmp381 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6131(line=227, offs=14) -- 6138(line=227, offs=21) -*/ -ATSINSmove(tmp389, atspre_g1int_div_int(arg0, arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6131(line=227, offs=14) -- 6142(line=227, offs=25) -*/ -ATSINSmove(tmp386, ATSLIB_056_prelude__gt_g1int_int__4__8(tmp389, ATSPMVi0nt(0))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6128(line=227, offs=11) -- 6213(line=230, offs=14) -*/ -ATSif( -tmp386 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6169(line=228, offs=22) -- 6180(line=228, offs=33) -*/ -ATSINSmove(tmp391, rip_130(arg0, arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6164(line=228, offs=17) -- 6184(line=228, offs=37) -*/ -ATSINSmove(tmp390, loop_148(tmp391, ATSPMVi0nt(1))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6160(line=228, offs=13) -- 6184(line=228, offs=37) -*/ -ATSINSmove(tmpret376, atspre_g0int_add_int(ATSPMVi0nt(1), tmp390)) ; - -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6212(line=230, offs=13) -- 6213(line=230, offs=14) -*/ -ATSINSmove(tmpret376, ATSPMVi0nt(1)) ; -} /* ATSendif */ -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6245(line=232, offs=19) -- 6252(line=232, offs=26) -*/ -ATSINSmove(tmp392, atspre_g1int_add_int(arg1, ATSPMVi0nt(1))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6237(line=232, offs=11) -- 6253(line=232, offs=27) -*/ -ATStailcal_beg() -ATSINSmove_tlcal(apy0, arg0) ; -ATSINSmove_tlcal(apy1, tmp392) ; -ATSINSargmove_tlcal(arg0, apy0) ; -ATSINSargmove_tlcal(arg1, apy1) ; -ATSINSfgoto(__patsflab_loop_148) ; -ATStailcal_end() - -} /* ATSendif */ -} /* ATSendif */ -ATSfunbody_end() -ATSreturn(tmpret376) ; -} /* end of [loop_148] */ - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12757(line=663, offs=3) -- 12797(line=663, offs=43) -*/ -/* -local: -global: gte_g1int_int$78$4(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4640) -tmparg = S2Evar(tk(4640)) -tmpsub = Some(tk(4640) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__gte_g1int_int__78__4(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret171__4, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp172__4, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12741(line=662, offs=1) -- 12797(line=663, offs=43) -*/ -ATSINSflab(__patsflab_gte_g1int_int): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12784(line=663, offs=30) -- 12795(line=663, offs=41) -*/ -ATSINSmove(tmp172__4, atspre_g1int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12766(line=663, offs=12) -- 12797(line=663, offs=43) -*/ -ATSINSmove(tmpret171__4, atspre_g1int_gte_int(arg0, tmp172__4)) ; - -ATSfunbody_end() -ATSreturn(tmpret171__4) ; -} /* end of [ATSLIB_056_prelude__gte_g1int_int__78__4] */ - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) -*/ -/* -local: -global: eq_g0int_int$10$24(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4628) -tmparg = S2Evar(tk(4628)) -tmpsub = Some(tk(4628) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g0int_int__10__24(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret15__24, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp16__24, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) -*/ -ATSINSflab(__patsflab_eq_g0int_int): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) -*/ -ATSINSmove(tmp16__24, atspre_g0int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) -*/ -ATSINSmove(tmpret15__24, atspre_g0int_eq_int(arg0, tmp16__24)) ; - -ATSfunbody_end() -ATSreturn(tmpret15__24) ; -} /* end of [ATSLIB_056_prelude__eq_g0int_int__10__24] */ - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12679(line=659, offs=3) -- 12718(line=659, offs=42) -*/ -/* -local: -global: gt_g1int_int$4$8(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4637) -tmparg = S2Evar(tk(4637)) -tmpsub = Some(tk(4637) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__gt_g1int_int__4__8(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret8__8, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp9__8, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12664(line=658, offs=1) -- 12718(line=659, offs=42) -*/ -ATSINSflab(__patsflab_gt_g1int_int): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12705(line=659, offs=29) -- 12716(line=659, offs=40) -*/ -ATSINSmove(tmp9__8, atspre_g1int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12688(line=659, offs=12) -- 12718(line=659, offs=42) -*/ -ATSINSmove(tmpret8__8, atspre_g1int_gt_int(arg0, tmp9__8)) ; - -ATSfunbody_end() -ATSreturn(tmpret8__8) ; -} /* end of [ATSLIB_056_prelude__gt_g1int_int__4__8] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6303(line=237, offs=23) -- 6593(line=249, offs=8) -*/ -/* -local: -global: radical_ats$152$0(level=0) -local: -global: -*/ -ATSextern() -atstkind_t0ype(atstype_int) -radical_ats(atstkind_t0ype(atstype_int) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret393, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmpref394, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6291(line=237, offs=11) -- 6593(line=249, offs=8) -*/ -ATSINSflab(__patsflab_radical_ats): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6311(line=238, offs=3) -- 6593(line=249, offs=8) -*/ -ATScaseof_beg() -/* -** ibranchlst-beg -*/ -ATSbranch_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6328(line=239, offs=7) -- 6329(line=239, offs=8) -*/ -ATSINSlab(__atstmplab36): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6304(line=237, offs=24) -- 6305(line=237, offs=25) -*/ -ATSifnthen(ATSCKpat_int(arg0, ATSPMVint(1))) { ATSINSgoto(__atstmplab38) ; } ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6329(line=239, offs=8) -- 6329(line=239, offs=8) -*/ -ATSINSlab(__atstmplab37): -/* -emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) -*/ -/* -ibranch-mbody: -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6333(line=239, offs=12) -- 6334(line=239, offs=13) -*/ -ATSINSmove(tmpret393, ATSPMVi0nt(1)) ; -ATSbranch_end() - -ATSbranch_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6342(line=240, offs=8) -- 6342(line=240, offs=8) -*/ -ATSINSlab(__atstmplab38): -/* -emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) -*/ -/* -ibranch-mbody: -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6347(line=240, offs=13) -- 6593(line=249, offs=8) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6361(line=241, offs=11) -- 6362(line=241, offs=12) -*/ -/* -ATSINStmpdec(tmpref394) ; -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6381(line=241, offs=31) -- 6396(line=241, offs=46) -*/ -ATSINSmove(tmpref394, _057_home_057_vanessa_057_programming_057_haskell_057_done_057_hs_055_ats_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_sats__prime_factors(arg0)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6575(line=248, offs=7) -- 6584(line=248, offs=16) -*/ -ATSINSmove(tmpret393, product_153(tmpref394)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6347(line=240, offs=13) -- 6593(line=249, offs=8) -*/ -/* -INSletpop() -*/ -ATSbranch_end() - -/* -** ibranchlst-end -*/ -ATScaseof_end() - -ATSfunbody_end() -ATSreturn(tmpret393) ; -} /* end of [radical_ats] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6415(line=243, offs=11) -- 6561(line=246, offs=34) -*/ -/* -local: product_153$0(level=1) -global: product_153$0(level=1) -local: -global: -*/ -ATSstatic() -atstkind_t0ype(atstype_int) -product_153(atstkind_type(atstype_ptrk) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret395, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp396, atstype_boxed) ; -ATStmpdec(tmp397, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp398, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp399, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6415(line=243, offs=11) -- 6561(line=246, offs=34) -*/ -ATSINSflab(__patsflab_product_153): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6466(line=244, offs=15) -- 6469(line=244, offs=18) -*/ -ATSINSmove_llazyeval(tmp396, atstype_boxed, arg0) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6460(line=244, offs=9) -- 6561(line=246, offs=34) -*/ -ATScaseof_beg() -/* -** ibranchlst-beg -*/ -ATSbranch_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6485(line=245, offs=13) -- 6508(line=245, offs=36) -*/ -ATSINSlab(__atstmplab39): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6466(line=244, offs=15) -- 6469(line=244, offs=18) -*/ -ATSifthen(ATSCKptrisnull(tmp396)) { ATSINSgoto(__atstmplab42) ; } ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6508(line=245, offs=36) -- 6508(line=245, offs=36) -*/ -ATSINSlab(__atstmplab40): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6502(line=245, offs=30) -- 6503(line=245, offs=31) -*/ -ATSINSmove(tmp397, ATSSELcon(tmp396, postiats_tysum_1, atslab__0)) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6505(line=245, offs=33) -- 6507(line=245, offs=35) -*/ -ATSINSmove(tmp398, ATSSELcon(tmp396, postiats_tysum_1, atslab__1)) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6485(line=245, offs=13) -- 6527(line=245, offs=55) -*/ -ATSINSfreecon(tmp396) ; -/* -emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) -*/ -/* -ibranch-mbody: -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6516(line=245, offs=44) -- 6526(line=245, offs=54) -*/ -ATSINSmove(tmp399, product_153(tmp398)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6512(line=245, offs=40) -- 6526(line=245, offs=54) -*/ -ATSINSmove(tmpret395, atspre_g0int_mul_int(tmp397, tmp399)) ; - -ATSbranch_end() - -ATSbranch_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6540(line=246, offs=13) -- 6556(line=246, offs=29) -*/ -ATSINSlab(__atstmplab41): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6466(line=244, offs=15) -- 6469(line=244, offs=18) -*/ -#if(0) -ATSifthen(ATSCKptriscons(tmp396)) { ATSINSdeadcode_fail() ; } ; -#endif -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6556(line=246, offs=29) -- 6556(line=246, offs=29) -*/ -ATSINSlab(__atstmplab42): -/* -emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) -*/ -/* -ibranch-mbody: -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6560(line=246, offs=33) -- 6561(line=246, offs=34) -*/ -ATSINSmove(tmpret395, ATSPMVi0nt(1)) ; -ATSbranch_end() - -/* -** ibranchlst-end -*/ -ATScaseof_end() - -ATSfunbody_end() -ATSreturn(tmpret395) ; -} /* end of [product_153] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6598(line=251, offs=4) -- 7147(line=265, offs=8) -*/ -/* -local: -global: totient_154$0(level=0) -local: -global: -*/ -ATSstatic() -atstkind_t0ype(atstype_int) -totient_154(atstkind_t0ype(atstype_int) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret400, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmpref405, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmpref406, postiats_tyrec_0) ; -ATStmpdec(tmpref407, postiats_tyrec_0) ; -ATStmpdec(tmp425, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6598(line=251, offs=4) -- 7147(line=265, offs=8) -*/ -ATSINSflab(__patsflab_totient_154): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6631(line=252, offs=3) -- 7147(line=265, offs=8) -*/ -ATScaseof_beg() -/* -** ibranchlst-beg -*/ -ATSbranch_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6648(line=253, offs=7) -- 6649(line=253, offs=8) -*/ -ATSINSlab(__atstmplab43): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6606(line=251, offs=12) -- 6607(line=251, offs=13) -*/ -ATSifnthen(ATSCKpat_int(arg0, ATSPMVint(1))) { ATSINSgoto(__atstmplab45) ; } ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6649(line=253, offs=8) -- 6649(line=253, offs=8) -*/ -ATSINSlab(__atstmplab44): -/* -emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) -*/ -/* -ibranch-mbody: -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6653(line=253, offs=12) -- 6654(line=253, offs=13) -*/ -ATSINSmove(tmpret400, ATSPMVi0nt(1)) ; -ATSbranch_end() - -ATSbranch_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6662(line=254, offs=8) -- 6662(line=254, offs=8) -*/ -ATSINSlab(__atstmplab45): -/* -emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) -*/ -/* -ibranch-mbody: -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6667(line=254, offs=13) -- 7147(line=265, offs=8) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6881(line=260, offs=11) -- 6882(line=260, offs=12) -*/ -/* -ATSINStmpdec(tmpref405) ; -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6901(line=260, offs=31) -- 6916(line=260, offs=46) -*/ -ATSINSmove(tmpref405, _057_home_057_vanessa_057_programming_057_haskell_057_done_057_hs_055_ats_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_sats__prime_factors(arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6928(line=261, offs=11) -- 6938(line=261, offs=21) -*/ -/* -ATSINStmpdec(tmpref406) ; -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6941(line=261, offs=24) -- 6967(line=261, offs=50) -*/ -ATSINSmove_fltrec_beg() -ATSINSstore_fltrec_ofs(tmpref406, postiats_tyrec_0, atslab__first, ATSPMVi0nt(1)) ; -ATSINSstore_fltrec_ofs(tmpref406, postiats_tyrec_0, atslab__second, ATSPMVi0nt(1)) ; -ATSINSmove_fltrec_end() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6985(line=262, offs=11) -- 6986(line=262, offs=12) -*/ -/* -ATSINStmpdec(tmpref407) ; -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6989(line=262, offs=15) -- 7076(line=262, offs=102) -*/ -ATSINSmove(tmpref407, ATSLIB_056_prelude__stream_vt_foldleft_cloptr__157__1(tmpref405, tmpref406, ATSPMVcfunlab(1, __patsfun_161, ()))) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 7107(line=264, offs=17) -- 7128(line=264, offs=38) -*/ -ATSINSmove(tmp425, atspre_g0int_mul_int(arg0, ATSSELfltrec(tmpref407, postiats_tyrec_0, atslab__first))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 7097(line=264, offs=7) -- 7139(line=264, offs=49) -*/ -ATSINSmove(tmpret400, atspre_g0int_div_int(tmp425, ATSSELfltrec(tmpref407, postiats_tyrec_0, atslab__second))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6667(line=254, offs=13) -- 7147(line=265, offs=8) -*/ -/* -INSletpop() -*/ -ATSbranch_end() - -/* -** ibranchlst-end -*/ -ATScaseof_end() - -ATSfunbody_end() -ATSreturn(tmpret400) ; -} /* end of [totient_154] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6740(line=257, offs=10) -- 6863(line=258, offs=80) -*/ -/* -local: -global: adjust_contents_155$0(level=1) -local: -global: -*/ -ATSstatic() -postiats_tyrec_0 -adjust_contents_155(postiats_tyrec_0 arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret401, postiats_tyrec_0) ; -ATStmpdec(tmp402, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp403, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp404, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6740(line=257, offs=10) -- 6863(line=258, offs=80) -*/ -ATSINSflab(__patsflab_adjust_contents_155): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6822(line=258, offs=39) -- 6827(line=258, offs=44) -*/ -ATSINSmove(tmp403, atspre_g0int_sub_int(arg1, ATSPMVi0nt(1))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6803(line=258, offs=20) -- 6828(line=258, offs=45) -*/ -ATSINSmove(tmp402, atspre_g0int_mul_int(ATSSELfltrec(arg0, postiats_tyrec_0, atslab__first), tmp403)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6839(line=258, offs=56) -- 6861(line=258, offs=78) -*/ -ATSINSmove(tmp404, atspre_g0int_mul_int(ATSSELfltrec(arg0, postiats_tyrec_0, atslab__second), arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 6792(line=258, offs=9) -- 6863(line=258, offs=80) -*/ -ATSINSmove_fltrec_beg() -ATSINSstore_fltrec_ofs(tmpret401, postiats_tyrec_0, atslab__first, tmp402) ; -ATSINSstore_fltrec_ofs(tmpret401, postiats_tyrec_0, atslab__second, tmp404) ; -ATSINSmove_fltrec_end() -ATSfunbody_end() -ATSreturn(tmpret401) ; -} /* end of [adjust_contents_155] */ - -#if(0) -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats: 29943(line=1864, offs=3) -- 30423(line=1895, offs=2) -*/ -/* -local: -global: stream_vt_foldleft_cloptr$157$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = res(8342), a(8343) -tmparg = S2Evar(res(8342)); S2Evar(a(8343)) -tmpsub = None() -*/ -atstyvar_type(res) -ATSLIB_056_prelude__stream_vt_foldleft_cloptr__157(atstkind_type(atstype_ptrk) arg0, atstyvar_type(res) arg1, atstype_cloptr arg2) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret408, atstyvar_type(res)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 29915(line=1863, offs=1) -- 30423(line=1895, offs=2) -*/ -ATSINSflab(__patsflab_stream_vt_foldleft_cloptr): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 29964(line=1865, offs=3) -- 30423(line=1895, offs=2) -*/ -/* -letpush(beg) -*/ -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 29964(line=1865, offs=3) -- 29984(line=1865, offs=23) -*/ -ATSINSmove(tmpret408, ATSfunclo_fun(PMVd2vfunlab(d2v=loop$4484(1), flab=loop_158$0(level=1)), (atstkind_type(atstype_ptrk), atstyvar_type(res), atstype_cloptr), atstyvar_type(res))(arg0, arg1, arg2)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 29964(line=1865, offs=3) -- 30423(line=1895, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret408) ; -} /* end of [ATSLIB_056_prelude__stream_vt_foldleft_cloptr__157] */ -#endif // end of [TEMPLATE] - -#if(0) -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats: 30000(line=1869, offs=1) -- 30401(line=1893, offs=4) -*/ -/* -local: loop_158$0(level=1) -global: loop_158$0(level=1) -local: -global: -*/ -ATSstatic() -atstyvar_type(res) -loop_158__158(atstkind_type(atstype_ptrk) arg0, atstyvar_type(res) arg1, atstype_cloptr arg2) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(apy0, atstkind_type(atstype_ptrk)) ; -ATStmpdec(apy1, atstyvar_type(res)) ; -ATStmpdec(apy2, atstype_cloptr) ; -ATStmpdec(tmpret409, atstyvar_type(res)) ; -ATStmpdec(tmpref410, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp411, atstype_boxed) ; -// ATStmpdec_void(tmp414) ; -ATStmpdec(tmp415, atstyvar_type(res)) ; -ATStmpdec(tmp416, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30000(line=1869, offs=1) -- 30401(line=1893, offs=4) -*/ -ATSINSflab(__patsflab_loop_158): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30078(line=1875, offs=6) -- 30401(line=1893, offs=4) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30088(line=1876, offs=7) -- 30094(line=1876, offs=13) -*/ -/* -ATSINStmpdec(tmpref410) ; -*/ -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30097(line=1876, offs=16) -- 30100(line=1876, offs=19) -*/ -ATSINSmove_llazyeval(tmpref410, atstype_boxed, arg0) ; -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30113(line=1880, offs=1) -- 30119(line=1880, offs=7) -*/ -ATSINSmove(tmp411, tmpref410) ; -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30107(line=1879, offs=1) -- 30367(line=1891, offs=6) -*/ -ATScaseof_beg() -/* -** ibranchlst-beg -*/ -ATSbranch_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30134(line=1882, offs=3) -- 30155(line=1883, offs=7) -*/ -ATSINSlab(__atstmplab46): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30113(line=1880, offs=1) -- 30119(line=1880, offs=7) -*/ -ATSifthen(ATSCKptriscons(tmp411)) { ATSINSgoto(__atstmplab49) ; } ; -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30155(line=1883, offs=7) -- 30155(line=1883, offs=7) -*/ -ATSINSlab(__atstmplab47): -/* -emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) -*/ -/* -ibranch-mbody: -*/ -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30167(line=1885, offs=5) -- 30199(line=1885, offs=37) -*/ -ATSINSmove_void(tmp414, atspre_cloptr_free(ATSPMVcastfn(castvwtp0, atstkind_type(atstype_ptrk), arg2))) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30201(line=1885, offs=39) -- 30204(line=1885, offs=42) -*/ -ATSINSmove(tmpret409, arg1) ; -ATSbranch_end() - -ATSbranch_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30240(line=1887, offs=3) -- 30269(line=1888, offs=14) -*/ -ATSINSlab(__atstmplab48): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30113(line=1880, offs=1) -- 30119(line=1880, offs=7) -*/ -#if(0) -ATSifthen(ATSCKptrisnull(tmp411)) { ATSINSdeadcode_fail() ; } ; -#endif -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30269(line=1888, offs=14) -- 30269(line=1888, offs=14) -*/ -ATSINSlab(__atstmplab49): -/* -emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) -*/ -/* -ibranch-mbody: -*/ -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30273(line=1888, offs=18) -- 30367(line=1891, offs=6) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30291(line=1889, offs=15) -- 30304(line=1889, offs=28) -*/ -ATSINSmove(tmp415, ATSfunclo_clo(ATSPMVrefarg0(arg2), (atstype_cloptr, atstyvar_type(res), atsrefarg1_type(atstyvar_type(a))), atstyvar_type(res))(ATSPMVrefarg0(arg2), arg1, ATSPMVrefarg1(ATSPMVptrof(ATSSELcon(tmp411, postiats_tysum_3, atslab__0))))) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30319(line=1890, offs=15) -- 30322(line=1890, offs=18) -*/ -ATSINSmove(tmp416, ATSSELcon(tmp411, postiats_tysum_3, atslab__1)) ; -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30326(line=1890, offs=22) -- 30338(line=1890, offs=34) -*/ -ATSINSfreecon(tmpref410) ; -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30341(line=1890, offs=37) -- 30361(line=1890, offs=57) -*/ -ATStailcal_beg() -ATSINSmove_tlcal(apy0, tmp416) ; -ATSINSmove_tlcal(apy1, tmp415) ; -ATSINSmove_tlcal(apy2, arg2) ; -ATSINSargmove_tlcal(arg0, apy0) ; -ATSINSargmove_tlcal(arg1, apy1) ; -ATSINSargmove_tlcal(arg2, apy2) ; -ATSINSfgoto(__patsflab_loop_158) ; -ATStailcal_end() - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30273(line=1888, offs=18) -- 30367(line=1891, offs=6) -*/ -/* -INSletpop() -*/ -ATSbranch_end() - -/* -** ibranchlst-end -*/ -ATScaseof_end() - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30078(line=1875, offs=6) -- 30401(line=1893, offs=4) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret409) ; -} /* end of [loop_158__158] */ -#endif // end of [TEMPLATE] - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats: 29943(line=1864, offs=3) -- 30423(line=1895, offs=2) -*/ -/* -local: -global: stream_vt_foldleft_cloptr$157$1(level=1) -local: -global: -*/ -ATSstatic() -/* -imparg = res(8342), a(8343) -tmparg = S2Evar(res(8342)); S2Evar(a(8343)) -tmpsub = Some(res(8342) -> S2EVar(5953); a(8343) -> S2Eapp(S2Ecst(g0int_t0ype); S2Eextkind(atstype_int))) -*/ -postiats_tyrec_0 -ATSLIB_056_prelude__stream_vt_foldleft_cloptr__157__1(atstkind_type(atstype_ptrk) arg0, postiats_tyrec_0 arg1, atstype_cloptr arg2) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret408__1, postiats_tyrec_0) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 29915(line=1863, offs=1) -- 30423(line=1895, offs=2) -*/ -ATSINSflab(__patsflab_stream_vt_foldleft_cloptr): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 29964(line=1865, offs=3) -- 30423(line=1895, offs=2) -*/ -/* -letpush(beg) -*/ -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 29964(line=1865, offs=3) -- 29984(line=1865, offs=23) -*/ -ATSINSmove(tmpret408__1, loop_158__158__1(arg0, arg1, arg2)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 29964(line=1865, offs=3) -- 30423(line=1895, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret408__1) ; -} /* end of [ATSLIB_056_prelude__stream_vt_foldleft_cloptr__157__1] */ - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats: 30000(line=1869, offs=1) -- 30401(line=1893, offs=4) -*/ -/* -local: loop_158$1(level=2) -global: loop_158$1(level=2) -local: -global: -*/ -ATSstatic() -postiats_tyrec_0 -loop_158__158__1(atstkind_type(atstype_ptrk) arg0, postiats_tyrec_0 arg1, atstype_cloptr arg2) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(apy0, atstkind_type(atstype_ptrk)) ; -ATStmpdec(apy1, postiats_tyrec_0) ; -ATStmpdec(apy2, atstype_cloptr) ; -ATStmpdec(tmpret409__1, postiats_tyrec_0) ; -ATStmpdec(tmpref410__1, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp411__1, atstype_boxed) ; -// ATStmpdec_void(tmp414__1) ; -ATStmpdec(tmp415__1, postiats_tyrec_0) ; -ATStmpdec(tmp416__1, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30000(line=1869, offs=1) -- 30401(line=1893, offs=4) -*/ -ATSINSflab(__patsflab_loop_158): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30078(line=1875, offs=6) -- 30401(line=1893, offs=4) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30088(line=1876, offs=7) -- 30094(line=1876, offs=13) -*/ -/* -ATSINStmpdec(tmpref410) ; -*/ -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30097(line=1876, offs=16) -- 30100(line=1876, offs=19) -*/ -ATSINSmove_llazyeval(tmpref410__1, atstype_boxed, arg0) ; -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30113(line=1880, offs=1) -- 30119(line=1880, offs=7) -*/ -ATSINSmove(tmp411__1, tmpref410__1) ; -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30107(line=1879, offs=1) -- 30367(line=1891, offs=6) -*/ -ATScaseof_beg() -/* -** ibranchlst-beg -*/ -ATSbranch_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30134(line=1882, offs=3) -- 30155(line=1883, offs=7) -*/ -ATSINSlab(__atstmplab46): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30113(line=1880, offs=1) -- 30119(line=1880, offs=7) -*/ -ATSifthen(ATSCKptriscons(tmp411__1)) { ATSINSgoto(__atstmplab49) ; } ; -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30155(line=1883, offs=7) -- 30155(line=1883, offs=7) -*/ -ATSINSlab(__atstmplab47): -/* -emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) -*/ -/* -ibranch-mbody: -*/ -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30167(line=1885, offs=5) -- 30199(line=1885, offs=37) -*/ -ATSINSmove_void(tmp414__1, atspre_cloptr_free(ATSPMVcastfn(castvwtp0, atstkind_type(atstype_ptrk), arg2))) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30201(line=1885, offs=39) -- 30204(line=1885, offs=42) -*/ -ATSINSmove(tmpret409__1, arg1) ; -ATSbranch_end() - -ATSbranch_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30240(line=1887, offs=3) -- 30269(line=1888, offs=14) -*/ -ATSINSlab(__atstmplab48): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30113(line=1880, offs=1) -- 30119(line=1880, offs=7) -*/ -#if(0) -ATSifthen(ATSCKptrisnull(tmp411__1)) { ATSINSdeadcode_fail() ; } ; -#endif -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30269(line=1888, offs=14) -- 30269(line=1888, offs=14) -*/ -ATSINSlab(__atstmplab49): -/* -emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) -*/ -/* -ibranch-mbody: -*/ -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30273(line=1888, offs=18) -- 30367(line=1891, offs=6) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30291(line=1889, offs=15) -- 30304(line=1889, offs=28) -*/ -ATSINSmove(tmp415__1, ATSfunclo_clo(ATSPMVrefarg0(arg2), (atstype_cloptr, postiats_tyrec_0, atsrefarg1_type(atstkind_t0ype(atstype_int))), postiats_tyrec_0)(ATSPMVrefarg0(arg2), arg1, ATSPMVrefarg1(ATSPMVptrof(ATSSELcon(tmp411__1, postiats_tysum_1, atslab__0))))) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30319(line=1890, offs=15) -- 30322(line=1890, offs=18) -*/ -ATSINSmove(tmp416__1, ATSSELcon(tmp411__1, postiats_tysum_1, atslab__1)) ; -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30326(line=1890, offs=22) -- 30338(line=1890, offs=34) -*/ -ATSINSfreecon(tmpref410__1) ; -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30341(line=1890, offs=37) -- 30361(line=1890, offs=57) -*/ -ATStailcal_beg() -ATSINSmove_tlcal(apy0, tmp416__1) ; -ATSINSmove_tlcal(apy1, tmp415__1) ; -ATSINSmove_tlcal(apy2, arg2) ; -ATSINSargmove_tlcal(arg0, apy0) ; -ATSINSargmove_tlcal(arg1, apy1) ; -ATSINSargmove_tlcal(arg2, apy2) ; -ATSINSfgoto(__patsflab_loop_158) ; -ATStailcal_end() - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30273(line=1888, offs=18) -- 30367(line=1891, offs=6) -*/ -/* -INSletpop() -*/ -ATSbranch_end() - -/* -** ibranchlst-end -*/ -ATScaseof_end() - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30078(line=1875, offs=6) -- 30401(line=1893, offs=4) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret409__1) ; -} /* end of [loop_158__158__1] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 7030(line=262, offs=56) -- 7075(line=262, offs=101) -*/ -/* -local: adjust_contents_155$0(level=1) -global: adjust_contents_155$0(level=1), __patsfun_161$0(level=1) -local: -global: -*/ -ATSstatic() -postiats_tyrec_0 -__patsfun_161(postiats_tyrec_0 arg0, atsrefarg1_type(atstkind_t0ype(atstype_int)) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret424, postiats_tyrec_0) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 7030(line=262, offs=56) -- 7075(line=262, offs=101) -*/ -ATSINSflab(__patsflab___patsfun_161): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 7049(line=262, offs=75) -- 7075(line=262, offs=101) -*/ -ATSINSmove(tmpret424, adjust_contents_155(arg0, ATSderef(arg1, atstkind_t0ype(atstype_int)))) ; - -ATSfunbody_end() -ATSreturn(tmpret424) ; -} /* end of [__patsfun_161] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 7171(line=267, offs=23) -- 7527(line=281, offs=6) -*/ -/* -local: totient_154$0(level=0) -global: totient_154$0(level=0), totient_sum$162$0(level=0) -local: -global: -*/ -ATSextern() -atstkind_type(atstype_ptrk) -_057_home_057_vanessa_057_programming_057_haskell_057_done_057_hs_055_ats_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_sats__totient_sum(atstkind_t0ype(atstype_int) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret426, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 7159(line=267, offs=11) -- 7527(line=281, offs=6) -*/ -ATSINSflab(__patsflab_totient_sum): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 7179(line=268, offs=3) -- 7527(line=281, offs=6) -*/ -/* -letpush(beg) -*/ -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 7511(line=280, offs=5) -- 7521(line=280, offs=15) -*/ -ATSINSmove(tmpret426, loop_163(ATSPMVi0nt(1), arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 7179(line=268, offs=3) -- 7527(line=281, offs=6) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret426) ; -} /* end of [_057_home_057_vanessa_057_programming_057_haskell_057_done_057_hs_055_ats_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_sats__totient_sum] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 7191(line=269, offs=9) -- 7501(line=278, offs=40) -*/ -/* -local: totient_154$0(level=0), loop_163$0(level=1) -global: totient_154$0(level=0), loop_163$0(level=1) -local: -global: -*/ -ATSstatic() -atstkind_type(atstype_ptrk) -loop_163(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret427, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp428, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmpref431, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp432, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmpref433, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp438, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp443, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 7191(line=269, offs=9) -- 7501(line=278, offs=40) -*/ -ATSINSflab(__patsflab_loop_163): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 7294(line=270, offs=10) -- 7303(line=270, offs=19) -*/ -ATSINSmove(tmp428, ATSLIB_056_prelude__lt_g1int_int__50__4(arg0, arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 7291(line=270, offs=7) -- 7501(line=278, offs=40) -*/ -ATSif( -tmp428 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 7317(line=271, offs=9) -- 7450(line=276, offs=12) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 7335(line=272, offs=15) -- 7336(line=272, offs=16) -*/ -/* -ATSINStmpdec(tmpref431) ; -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 7344(line=272, offs=24) -- 7349(line=272, offs=29) -*/ -ATSINSmove(tmp432, atspre_g1int_add_int(arg0, ATSPMVi0nt(1))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 7339(line=272, offs=19) -- 7357(line=272, offs=37) -*/ -ATSINSmove(tmpref431, loop_163(tmp432, arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 7372(line=273, offs=15) -- 7373(line=273, offs=16) -*/ -/* -ATSINStmpdec(tmpref433) ; -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 7403(line=273, offs=46) -- 7412(line=273, offs=55) -*/ -ATSINSmove(tmp438, totient_154(arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 7376(line=273, offs=19) -- 7415(line=273, offs=58) -*/ -ATSINSmove(tmpref433, ATSCNTRB_056_HX_056_intinf_vt__add_intinf0_int__165__1(tmpref431, ATSPMVcastfn(witness, atstkind_t0ype(atstype_int), tmp438))) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 7437(line=275, offs=11) -- 7438(line=275, offs=12) -*/ -ATSINSmove(tmpret427, tmpref433) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 7317(line=271, offs=9) -- 7450(line=276, offs=12) -*/ -/* -INSletpop() -*/ -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 7470(line=278, offs=9) -- 7501(line=278, offs=40) -*/ -ATSINSmove(tmp443, totient_154(arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 7470(line=278, offs=9) -- 7501(line=278, offs=40) -*/ -ATSINSmove(tmpret427, ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__43__2(ATSPMVcastfn(witness, atstkind_t0ype(atstype_int), tmp443))) ; - -} /* ATSendif */ -ATSfunbody_end() -ATSreturn(tmpret427) ; -} /* end of [loop_163] */ - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12520(line=650, offs=3) -- 12559(line=650, offs=42) -*/ -/* -local: -global: lt_g1int_int$50$4(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4631) -tmparg = S2Evar(tk(4631)) -tmpsub = Some(tk(4631) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__lt_g1int_int__50__4(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret108__4, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp109__4, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12505(line=649, offs=1) -- 12559(line=650, offs=42) -*/ -ATSINSflab(__patsflab_lt_g1int_int): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12546(line=650, offs=29) -- 12557(line=650, offs=40) -*/ -ATSINSmove(tmp109__4, atspre_g1int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12529(line=650, offs=12) -- 12559(line=650, offs=42) -*/ -ATSINSmove(tmpret108__4, atspre_g1int_lt_int(arg0, tmp109__4)) ; - -ATSfunbody_end() -ATSreturn(tmpret108__4) ; -} /* end of [ATSLIB_056_prelude__lt_g1int_int__50__4] */ - -#if(0) -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5151(line=274, offs=3) -- 5217(line=279, offs=2) -*/ -/* -local: -global: add_intinf0_int$165$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__add_intinf0_int__165(atstkind_type(atstype_ptrk) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret434, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp435) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5133(line=273, offs=1) -- 5217(line=279, offs=2) -*/ -ATSINSflab(__patsflab_add_intinf0_int): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5160(line=274, offs=12) -- 5217(line=279, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5184(line=277, offs=10) -- 5212(line=277, offs=38) -*/ -ATSINSmove_void(tmp435, atscntrb_gmp_mpz_add2_int(ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), arg1)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5161(line=274, offs=13) -- 5162(line=274, offs=14) -*/ -ATSINSmove(tmpret434, arg0) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5160(line=274, offs=12) -- 5217(line=279, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret434) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__add_intinf0_int__165] */ -#endif // end of [TEMPLATE] - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5151(line=274, offs=3) -- 5217(line=279, offs=2) -*/ -/* -local: -global: add_intinf0_int$165$1(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = -tmparg = -tmpsub = Some() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__add_intinf0_int__165__1(atstkind_type(atstype_ptrk) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret434__1, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp435__1) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5133(line=273, offs=1) -- 5217(line=279, offs=2) -*/ -ATSINSflab(__patsflab_add_intinf0_int): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5160(line=274, offs=12) -- 5217(line=279, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5184(line=277, offs=10) -- 5212(line=277, offs=38) -*/ -ATSINSmove_void(tmp435__1, atscntrb_gmp_mpz_add2_int(ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), arg1)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5161(line=274, offs=13) -- 5162(line=274, offs=14) -*/ -ATSINSmove(tmpret434__1, arg0) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5160(line=274, offs=12) -- 5217(line=279, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret434__1) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__add_intinf0_int__165__1] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2209(line=74, offs=3) -- 2301(line=80, offs=2) -*/ -/* -local: -global: intinf_make_int$43$2(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = -tmparg = -tmpsub = Some() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__43__2(atstkind_t0ype(atstype_int) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret94__2, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp95__2, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp96__2) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2191(line=73, offs=1) -- 2301(line=80, offs=2) -*/ -ATSINSflab(__patsflab_intinf_make_int): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2238(line=77, offs=9) -- 2254(line=77, offs=25) -*/ -ATSINSmove(tmp95__2, ATSLIB_056_prelude__ptr_alloc__1__5()) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2264(line=78, offs=10) -- 2296(line=78, offs=42) -*/ -ATSINSmove_void(tmp96__2, atscntrb_gmp_mpz_init_set_int(ATSPMVrefarg1(ATSSELrecsin(tmp95__2, atstkind_type(atstype_ptrk), atslab__2)), arg0)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2216(line=74, offs=10) -- 2217(line=74, offs=11) -*/ -ATSINSmove(tmpret94__2, tmp95__2) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret94__2) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__43__2] */ - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42) -*/ -/* -local: -global: ptr_alloc$1$5(level=3) -local: -global: -*/ -ATSstatic() -/* -imparg = a(4740) -tmparg = S2Evar(a(4740)) -tmpsub = Some(a(4740) -> S2Ecst(mpz_vt0ype)) -*/ -atstkind_type(atstype_ptrk) -ATSLIB_056_prelude__ptr_alloc__1__5() -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret2__5, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3708(line=184, offs=1) -- 3749(line=184, offs=42) -*/ -ATSINSflab(__patsflab_ptr_alloc): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42) -*/ -ATSINSmove(tmpret2__5, atspre_ptr_alloc_tsz(ATSPMVsizeof(atscntrb_gmp_mpz))) ; - -ATSfunbody_end() -ATSreturn(tmpret2__5) ; -} /* end of [ATSLIB_056_prelude__ptr_alloc__1__5] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 7551(line=283, offs=23) -- 7568(line=284, offs=12) -*/ -/* -local: totient_154$0(level=0) -global: totient_154$0(level=0), totient_ats$169$0(level=0) -local: -global: -*/ -ATSextern() -atstkind_t0ype(atstype_int) -totient_ats(atstkind_t0ype(atstype_int) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret444, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 7539(line=283, offs=11) -- 7569(line=284, offs=13) -*/ -ATSINSflab(__patsflab_totient_ats): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 7559(line=284, offs=3) -- 7568(line=284, offs=12) -*/ -ATSINSmove(tmpret444, totient_154(arg0)) ; - -ATSfunbody_end() -ATSreturn(tmpret444) ; -} /* end of [totient_ats] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 7592(line=286, offs=22) -- 7625(line=287, offs=25) -*/ -/* -local: jacobi_93$0(level=0) -global: exp_3$0(level=0), sqrt_int_46$0(level=0), is_prime_48$0(level=0), div_gt_zero_92$0(level=0), jacobi_93$0(level=0), jacobi_ats$170$0(level=0) -local: -global: -*/ -ATSextern() -atstkind_t0ype(atstype_int) -jacobi_ats(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret445, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 7581(line=286, offs=11) -- 7625(line=287, offs=25) -*/ -ATSINSflab(__patsflab_jacobi_ats): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/number-theory.dats: 7603(line=287, offs=3) -- 7625(line=287, offs=25) -*/ -ATSINSmove(tmpret445, jacobi_93(arg0, ATSPMVcastfn(cast, atstkind_t0ype(atstype_int), arg1))) ; - -ATSfunbody_end() -ATSreturn(tmpret445) ; -} /* end of [jacobi_ats] */ - -/* -** for initialization(dynloading) -*/ -ATSdynloadflag_minit(_057_home_057_vanessa_057_programming_057_haskell_057_done_057_hs_055_ats_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_dats__dynloadflag) ; -ATSextern() -atsvoid_t0ype -_057_home_057_vanessa_057_programming_057_haskell_057_done_057_hs_055_ats_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_dats__dynload() -{ -ATSfunbody_beg() -ATSdynload(/*void*/) -ATSdynloadflag_sta( -_057_home_057_vanessa_057_programming_057_haskell_057_done_057_hs_055_ats_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_dats__dynloadflag -) ; -ATSif( -ATSCKiseqz( -_057_home_057_vanessa_057_programming_057_haskell_057_done_057_hs_055_ats_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_dats__dynloadflag -) -) ATSthen() { -ATSdynloadset(_057_home_057_vanessa_057_programming_057_haskell_057_done_057_hs_055_ats_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_dats__dynloadflag) ; +** The C code is generated by [ATS/Postiats-0-4-1] +** +*/ + +/* +** include runtime header files +*/ +#ifndef _ATS_CCOMP_HEADER_NONE_ +#include "pats_ccomp_config.h" +#include "pats_ccomp_basics.h" +#include "pats_ccomp_typedefs.h" +#include "pats_ccomp_instrset.h" +#include "pats_ccomp_memalloc.h" +#ifndef _ATS_CCOMP_EXCEPTION_NONE_ +#include "pats_ccomp_memalloca.h" +#include "pats_ccomp_exception.h" +#endif // end of [_ATS_CCOMP_EXCEPTION_NONE_] +#endif /* _ATS_CCOMP_HEADER_NONE_ */ + + +/* +** include prelude cats files +*/ +#ifndef _ATS_CCOMP_PRELUDE_NONE_ +// +#include "prelude/CATS/basics.cats" +#include "prelude/CATS/integer.cats" +#include "prelude/CATS/pointer.cats" +#include "prelude/CATS/integer_long.cats" +#include "prelude/CATS/integer_size.cats" +#include "prelude/CATS/integer_short.cats" +#include "prelude/CATS/bool.cats" +#include "prelude/CATS/char.cats" +#include "prelude/CATS/float.cats" +#include "prelude/CATS/integer_ptr.cats" +#include "prelude/CATS/integer_fixed.cats" +#include "prelude/CATS/memory.cats" +#include "prelude/CATS/string.cats" +#include "prelude/CATS/strptr.cats" +// +#include "prelude/CATS/fprintf.cats" +// +#include "prelude/CATS/filebas.cats" +// +#include "prelude/CATS/list.cats" +#include "prelude/CATS/option.cats" +#include "prelude/CATS/array.cats" +#include "prelude/CATS/arrayptr.cats" +#include "prelude/CATS/arrayref.cats" +#include "prelude/CATS/matrix.cats" +#include "prelude/CATS/matrixptr.cats" +// +#endif /* _ATS_CCOMP_PRELUDE_NONE_ */ +/* +** for user-supplied prelude +*/ +#ifdef _ATS_CCOMP_PRELUDE_USER_ +// +#include _ATS_CCOMP_PRELUDE_USER_ +// +#endif /* _ATS_CCOMP_PRELUDE_USER_ */ +/* +** for user2-supplied prelude +*/ +#ifdef _ATS_CCOMP_PRELUDE_USER2_ +// +#include _ATS_CCOMP_PRELUDE_USER2_ +// +#endif /* _ATS_CCOMP_PRELUDE_USER2_ */ + +/* +staload-prologues(beg) +*/ +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/libats/libc/SATS/stdio.sats: 1390(line=36, offs=1) -- 1437(line=39, offs=3) +*/ + +#include \ +"libats/libc/CATS/stdio.cats" +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/libats/libc/SATS/sys/types.sats: 1390(line=36, offs=1) -- 1441(line=39, offs=3) +*/ + +#include \ +"libats/libc/CATS/sys/types.cats" +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/libats/libc/SATS/sys/stat.sats: 1390(line=36, offs=1) -- 1440(line=39, offs=3) +*/ + +#include \ +"libats/libc/CATS/sys/stat.cats" +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/libats/libc/SATS/sys/types.sats: 1390(line=36, offs=1) -- 1441(line=39, offs=3) +*/ + +#include \ +"libats/libc/CATS/sys/types.cats" +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/libats/libc/SATS/stdio.sats: 1390(line=36, offs=1) -- 1437(line=39, offs=3) +*/ + +#include \ +"libats/libc/CATS/stdio.cats" +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/libats/libc/SATS/sys/types.sats: 1390(line=36, offs=1) -- 1441(line=39, offs=3) +*/ + +#include \ +"libats/libc/CATS/sys/types.cats" +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/contrib/atscntrb/atscntrb-hx-libgmp/SATS/gmp.sats: 1178(line=38, offs=1) -- 1236(line=43, offs=3) +*/ + +// +#include \ +"atscntrb-hx-libgmp/CATS/gmp.cats" +// +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/contrib/atscntrb/atscntrb-hx-libgmp/SATS/gmp.sats: 1178(line=38, offs=1) -- 1236(line=43, offs=3) +*/ + +// +#include \ +"atscntrb-hx-libgmp/CATS/gmp.cats" +// +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/contrib/atscntrb/atscntrb-hx-libgmp/SATS/gmp.sats: 1178(line=38, offs=1) -- 1236(line=43, offs=3) +*/ + +// +#include \ +"atscntrb-hx-libgmp/CATS/gmp.cats" +// +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/contrib/atscntrb/atscntrb-hx-libgmp/SATS/gmp.sats: 1178(line=38, offs=1) -- 1236(line=43, offs=3) +*/ + +// +#include \ +"atscntrb-hx-libgmp/CATS/gmp.cats" +// +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/libats/libc/SATS/math.sats: 1380(line=35, offs=1) -- 1426(line=38, offs=3) +*/ + +#include \ +"libats/libc/CATS/math.cats" +/* +staload-prologues(end) +*/ +/* +typedefs-for-tyrecs-and-tysums(beg) +*/ +typedef +ATSstruct { +atstkind_t0ype(atstype_int) atslab__first ; +atstkind_t0ype(atstype_int) atslab__second ; +} postiats_tyrec_0 ; +typedef +ATSstruct { +#if(0) +int contag ; +#endif +atstkind_t0ype(atstype_int) atslab__0 ; +atstkind_type(atstype_ptrk) atslab__1 ; +} postiats_tysum_1 ; +typedef +ATSstruct { +#if(0) +int contag ; +#endif +atstyvar_type(a) atslab__0 ; +atstkind_type(atstype_ptrk) atslab__1 ; +} postiats_tysum_2 ; +/* +typedefs-for-tyrecs-and-tysums(end) +*/ +/* +dynconlst-declaration(beg) +*/ +/* +dynconlst-declaration(end) +*/ +/* +dyncstlst-declaration(beg) +*/ +ATSdyncst_mac(atspre_ptr_alloc_tsz) +ATSdyncst_mac(atscntrb_gmp_mpz_init) +ATSdyncst_mac(atscntrb_gmp_mpz_fib_uint) +ATSdyncst_mac(atspre_g1int2int_int_int) +ATSdyncst_mac(atspre_g1int_gt_int) +ATSdyncst_mac(atspre_g1int_half_int) +ATSdyncst_mac(atspre_g0int_mod_int) +ATSdyncst_mac(atspre_g0int2int_int_int) +ATSdyncst_mac(atspre_g0int_eq_int) +ATSdyncst_mac(atspre_g0int_mul_int) +ATSdyncst_mac(atspre_g1int_eq_int) +ATSdyncst_mac(atscntrb_gmp_mpz_cmp_int) +ATSdyncst_mac(atspre_g0int_lt_int) +ATSdyncst_mac(atspre_g1int_neg_int) +ATSdyncst_mac(atspre_g0int_gt_int) +ATSdyncst_mac(atscntrb_gmp_mpz_init_set_mpz) +ATSdyncst_mac(atscntrb_gmp_mpz_mul2_mpz) +ATSdyncst_mac(atscntrb_gmp_mpz_clear) +ATSdyncst_mac(atspre_ptr_free) +ATSdyncst_mac(atscntrb_gmp_mpz_init_set_int) +ATSdyncst_mac(atspre_g0float2int_double_int) +ATSdyncst_mac(atslib_libats_libc_sqrt_double) +ATSdyncst_mac(atspre_g0int2float_int_double) +ATSdyncst_mac(atspre_g1int_lt_int) +ATSdyncst_mac(atspre_g1int_add_int) +ATSdyncst_mac(atspre_g1int_div_int) +ATSdyncst_mac(atspre_g1int_neq_int) +ATSdyncst_extfun(_057_home_057_vanessa_057_dev_057_haskell_057_fast_055_arithmetic_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_sats__gcd, (atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)), atstkind_t0ype(atstype_int)) ; +ATSdyncst_mac(atspre_g0int_div_int) +ATSdyncst_mac(atspre_g1int_gte_int) +ATSdyncst_mac(mpz_primorial_ui) +ATSdyncst_mac(atspre_g1int_sub_int) +ATSdyncst_mac(atspre_g0int_half_int) +ATSdyncst_mac(atspre_g1int_mul_int) +ATSdyncst_mac(atspre_g0int_neg_int) +ATSdyncst_mac(atspre_g0int_add_int) +ATSdyncst_extfun(sum_divisors_ats, (atstkind_t0ype(atstype_int)), atstkind_t0ype(atstype_int)) ; +ATSdyncst_mac(atspre_g0int_neq_int) +ATSdyncst_extfun(_057_home_057_vanessa_057_dev_057_haskell_057_fast_055_arithmetic_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_sats__prime_factors, (atstkind_t0ype(atstype_int)), atstkind_type(atstype_ptrk)) ; +ATSdyncst_mac(atspre_g0int_sub_int) +ATSdyncst_mac(atspre_cloptr_free) +ATSdyncst_mac(atscntrb_gmp_mpz_add2_int) +/* +dyncstlst-declaration(end) +*/ +/* +dynvalist-implementation(beg) +*/ +/* +dynvalist-implementation(end) +*/ +/* +exnconlst-declaration(beg) +*/ +#ifndef _ATS_CCOMP_EXCEPTION_NONE_ +ATSextern() +atsvoid_t0ype +the_atsexncon_initize +( + atstype_exnconptr d2c, atstype_string exnmsg +) ; +#endif // end of [_ATS_CCOMP_EXCEPTION_NONE_] +/* +exnconlst-declaration(end) +*/ +/* +extypelst-declaration(beg) +*/ +/* +extypelst-declaration(end) +*/ +/* +assumelst-declaration(beg) +*/ +#ifndef _ATS_CCOMP_ASSUME_CHECK_NONE_ +#endif // #ifndef(_ATS_CCOMP_ASSUME_CHECK_NONE_) +/* +assumelst-declaration(end) +*/ +ATSstatic() +atstkind_type(atstype_ptrk) +fib_gmp_0(atstkind_t0ype(atstype_uint)) ; + +#if(0) +#if(0) +ATSextern() +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__1() ; +#endif // end of [QUALIFIED] +#endif // end of [TEMPLATE] + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__1__1() ; + +ATSstatic() +atstkind_t0ype(atstype_int) +exp_3(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +#if(0) +#if(0) +ATSextern() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__gt_g1int_int__4(atstkind_t0ype(atstyvar_type(tk)), atstkind_t0ype(atstype_int)) ; +#endif // end of [QUALIFIED] +#endif // end of [TEMPLATE] + +ATSstatic() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__gt_g1int_int__4__1(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +#if(0) +#if(0) +ATSextern() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__10(atstkind_t0ype(atstyvar_type(tk)), atstkind_t0ype(atstype_int)) ; +#endif // end of [QUALIFIED] +#endif // end of [TEMPLATE] + +ATSstatic() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__10__1(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_type(atstype_ptrk) +big_exp_15(atstkind_type(atstype_ptrk), atstkind_t0ype(atstype_int)) ; + +#if(0) +#if(0) +ATSextern() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g1int_int__16(atstkind_t0ype(atstyvar_type(tk)), atstkind_t0ype(atstype_int)) ; +#endif // end of [QUALIFIED] +#endif // end of [TEMPLATE] + +ATSstatic() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g1int_int__16__1(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +#if(0) +#if(0) +ATSextern() +atstkind_t0ype(atstype_int) +ATSCNTRB_056_HX_056_intinf_vt__compare_intinf_int__19(atsrefarg0_type(atstkind_type(atstype_ptrk)), atstkind_t0ype(atstype_int)) ; +#endif // end of [QUALIFIED] +#endif // end of [TEMPLATE] + +ATSstatic() +atstkind_t0ype(atstype_int) +ATSCNTRB_056_HX_056_intinf_vt__compare_intinf_int__19__1(atsrefarg0_type(atstkind_type(atstype_ptrk)), atstkind_t0ype(atstype_int)) ; + +#if(0) +#if(0) +ATSextern() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__lt_g0int_int__21(atstkind_t0ype(atstyvar_type(tk)), atstkind_t0ype(atstype_int)) ; +#endif // end of [QUALIFIED] +#endif // end of [TEMPLATE] + +ATSstatic() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__lt_g0int_int__21__1(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +#if(0) +#if(0) +ATSextern() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__gt_g0int_int__25(atstkind_t0ype(atstyvar_type(tk)), atstkind_t0ype(atstype_int)) ; +#endif // end of [QUALIFIED] +#endif // end of [TEMPLATE] + +ATSstatic() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__gt_g0int_int__25__1(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__gt_g1int_int__4__2(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__10__2(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +#if(0) +#if(0) +ATSextern() +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__square_intinf0__30(atstkind_type(atstype_ptrk)) ; +#endif // end of [QUALIFIED] +#endif // end of [TEMPLATE] + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__square_intinf0__30__1(atstkind_type(atstype_ptrk)) ; + +#if(0) +#if(0) +ATSextern() +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__square_intinf1__32(atsrefarg0_type(atstkind_type(atstype_ptrk))) ; +#endif // end of [QUALIFIED] +#endif // end of [TEMPLATE] + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__square_intinf1__32__1(atsrefarg0_type(atstkind_type(atstype_ptrk))) ; + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__1__2() ; + +#if(0) +#if(0) +ATSextern() +atsvoid_t0ype +ATSCNTRB_056_HX_056_intinf_vt__intinf_free__35(atstkind_type(atstype_ptrk)) ; +#endif // end of [QUALIFIED] +#endif // end of [TEMPLATE] + +ATSstatic() +atsvoid_t0ype +ATSCNTRB_056_HX_056_intinf_vt__intinf_free__35__1(atstkind_type(atstype_ptrk)) ; + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__square_intinf1__32__2(atsrefarg0_type(atstkind_type(atstype_ptrk))) ; + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__1__3() ; + +#if(0) +#if(0) +ATSextern() +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_intinf1__39(atstkind_type(atstype_ptrk), atsrefarg0_type(atstkind_type(atstype_ptrk))) ; +#endif // end of [QUALIFIED] +#endif // end of [TEMPLATE] + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_intinf1__39__1(atstkind_type(atstype_ptrk), atsrefarg0_type(atstkind_type(atstype_ptrk))) ; + +ATSstatic() +atsvoid_t0ype +ATSCNTRB_056_HX_056_intinf_vt__intinf_free__35__2(atstkind_type(atstype_ptrk)) ; + +ATSstatic() +atsvoid_t0ype +ATSCNTRB_056_HX_056_intinf_vt__intinf_free__35__3(atstkind_type(atstype_ptrk)) ; + +#if(0) +#if(0) +ATSextern() +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__43(atstkind_t0ype(atstype_int)) ; +#endif // end of [QUALIFIED] +#endif // end of [TEMPLATE] + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__43__1(atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__1__4() ; + +ATSstatic() +atstkind_t0ype(atstype_int) +sqrt_int_46(atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_bool) +is_prime_48(atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_bool) +loop_49(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +#if(0) +#if(0) +ATSextern() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__lt_g1int_int__50(atstkind_t0ype(atstyvar_type(tk)), atstkind_t0ype(atstype_int)) ; +#endif // end of [QUALIFIED] +#endif // end of [TEMPLATE] + +ATSstatic() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__lt_g1int_int__50__1(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__10__3(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g1int_int__16__2(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__10__4(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_bool) +is_semiprime_57(atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_bool) +loop_58(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__lt_g1int_int__50__2(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__10__5(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g1int_int__16__3(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__10__6(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +#if(0) +ATSextern() +atstkind_t0ype(atstype_bool) +_057_home_057_vanessa_057_dev_057_haskell_057_fast_055_arithmetic_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_sats__divides(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; +#endif // end of [QUALIFIED] + +ATSstatic() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__10__7(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +#if(0) +ATSextern() +atstkind_t0ype(atstype_int) +_057_home_057_vanessa_057_dev_057_haskell_057_fast_055_arithmetic_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_sats__gcd(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; +#endif // end of [QUALIFIED] + +#if(0) +#if(0) +ATSextern() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__neq_g1int_int__67(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__67__1(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +#if(0) +ATSextern() +atstkind_t0ype(atstype_int) +_057_home_057_vanessa_057_dev_057_haskell_057_fast_055_arithmetic_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_sats__lcm(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; +#endif // end of [QUALIFIED] + +#if(0) +ATSextern() +atstkind_t0ype(atstype_bool) +_057_home_057_vanessa_057_dev_057_haskell_057_fast_055_arithmetic_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_sats__coprime(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; +#endif // end of [QUALIFIED] + +ATSstatic() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__10__8(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +#if(0) +ATSextern() +atstkind_type(atstype_ptrk) +_057_home_057_vanessa_057_dev_057_haskell_057_fast_055_arithmetic_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_sats__divisors(atstkind_t0ype(atstype_int)) ; +#endif // end of [QUALIFIED] + +ATSstatic() +atstype_boxed +__patsfun_75(atstype_bool) ; + +ATSstatic() +atstype_boxed +__patsfun_76(atstype_bool) ; + +ATSstatic() +atstkind_type(atstype_ptrk) +loop_77(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +#if(0) +#if(0) +ATSextern() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__gte_g1int_int__78(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__78__1(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__10__9(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__neq_g1int_int__67__2(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstype_boxed +__patsfun_83(atstkind_t0ype(atstype_int), atstkind_type(atstype_ptrk), atstype_bool) ; + +ATSstatic() +atstype_boxed +__patsfun_84(atstkind_type(atstype_ptrk), atstype_bool) ; + +ATSstatic() +atstype_boxed +__patsfun_85(atstype_bool) ; + +ATSstatic() +atstype_boxed +__patsfun_86(atstkind_t0ype(atstype_int), atstype_bool) ; + +ATSstatic() +atstype_boxed +__patsfun_87(atstype_bool) ; + +ATSstatic() +atstype_boxed +__patsfun_88(atstype_bool) ; + +ATSstatic() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__10__10(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstype_boxed +__patsfun_90(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int), atstkind_type(atstype_ptrk), atstype_bool) ; + +ATSstatic() +atstype_boxed +__patsfun_91(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int), atstkind_type(atstype_ptrk), atstype_bool) ; + +ATSstatic() +atstkind_type(atstype_ptrk) +primorial_gmp_92(atstkind_t0ype(atstype_ullint)) ; + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__1__5() ; + +ATSstatic() +atstkind_t0ype(atstype_int) +div_gt_zero_94(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_int) +jacobi_95(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_int) +legendre_96(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_int) +exp_mod_prime_97(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__gt_g1int_int__4__3(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__10__11(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__10__12(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__10__13(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_int) +get_multiplicity_105(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_int) +loop_106(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__gt_g1int_int__4__4(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g1int_int__16__4(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__10__14(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_int) +jacobi2_110(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__gt_g1int_int__4__5(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__10__15(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__10__16(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__10__17(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__10__18(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__10__19(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +#if(0) +ATSextern() +atstkind_t0ype(atstype_int) +count_divisors_ats(atstkind_t0ype(atstype_int)) ; +#endif // end of [QUALIFIED] + +ATSstatic() +atstkind_t0ype(atstype_int) +loop_119(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__gte_g1int_int__78__2(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__10__20(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__neq_g1int_int__67__3(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__10__21(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +#if(0) +ATSextern() +atstkind_t0ype(atstype_int) +sum_divisors_ats(atstkind_t0ype(atstype_int)) ; +#endif // end of [QUALIFIED] + +ATSstatic() +atstkind_t0ype(atstype_int) +loop_126(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__gte_g1int_int__78__3(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__10__22(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__neq_g1int_int__67__4(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__10__23(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +#if(0) +ATSextern() +atstkind_t0ype(atstype_bool) +is_perfect_ats(atstkind_t0ype(atstype_int)) ; +#endif // end of [QUALIFIED] + +ATSstatic() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__10__24(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_int) +rip_133(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +#if(0) +#if(0) +ATSextern() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__neq_g0int_int__134(atstkind_t0ype(atstyvar_type(tk)), atstkind_t0ype(atstype_int)) ; +#endif // end of [QUALIFIED] +#endif // end of [TEMPLATE] + +ATSstatic() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__neq_g0int_int__134__1(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__gt_g1int_int__4__6(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__lt_g1int_int__50__3(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +#if(0) +ATSextern() +atstkind_type(atstype_ptrk) +_057_home_057_vanessa_057_dev_057_haskell_057_fast_055_arithmetic_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_sats__prime_factors(atstkind_t0ype(atstype_int)) ; +#endif // end of [QUALIFIED] + +ATSstatic() +atstkind_type(atstype_ptrk) +loop_140(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__gte_g1int_int__78__4(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstype_boxed +__patsfun_142(atstkind_t0ype(atstype_int), atstype_bool) ; + +ATSstatic() +atstype_boxed +__patsfun_143(atstype_bool) ; + +ATSstatic() +atstype_boxed +__patsfun_144(atstype_bool) ; + +ATSstatic() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__10__25(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__gt_g1int_int__4__7(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstype_boxed +__patsfun_147(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int), atstype_bool) ; + +ATSstatic() +atstype_boxed +__patsfun_148(atstkind_t0ype(atstype_int), atstype_bool) ; + +ATSstatic() +atstype_boxed +__patsfun_149(atstype_bool) ; + +#if(0) +ATSextern() +atstkind_t0ype(atstype_int) +little_omega_ats(atstkind_t0ype(atstype_int)) ; +#endif // end of [QUALIFIED] + +ATSstatic() +atstkind_t0ype(atstype_int) +loop_151(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__gte_g1int_int__78__5(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__10__26(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__gt_g1int_int__4__8(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +#if(0) +ATSextern() +atstkind_t0ype(atstype_int) +radical_ats(atstkind_t0ype(atstype_int)) ; +#endif // end of [QUALIFIED] + +ATSstatic() +atstkind_t0ype(atstype_int) +product_156(atstkind_type(atstype_ptrk)) ; + +ATSstatic() +atstkind_t0ype(atstype_int) +totient_157(atstkind_t0ype(atstype_int)) ; + +ATSstatic() +postiats_tyrec_0 +adjust_contents_158(postiats_tyrec_0, atstkind_t0ype(atstype_int)) ; + +#if(0) +#if(0) +ATSextern() +atstyvar_type(res) +ATSLIB_056_prelude__stream_vt_foldleft_cloptr__160(atstkind_type(atstype_ptrk), atstyvar_type(res), atstype_cloptr) ; +#endif // end of [QUALIFIED] +#endif // end of [TEMPLATE] + +#if(0) +ATSstatic() +atstyvar_type(res) +loop_161__161(atstkind_type(atstype_ptrk), atstyvar_type(res), atstype_cloptr) ; +#endif // end of [TEMPLATE] + +ATSstatic() +postiats_tyrec_0 +ATSLIB_056_prelude__stream_vt_foldleft_cloptr__160__1(atstkind_type(atstype_ptrk), postiats_tyrec_0, atstype_cloptr) ; + +ATSstatic() +postiats_tyrec_0 +loop_161__161__1(atstkind_type(atstype_ptrk), postiats_tyrec_0, atstype_cloptr) ; + +ATSstatic() +postiats_tyrec_0 +__patsfun_164(postiats_tyrec_0, atsrefarg1_type(atstkind_t0ype(atstype_int))) ; + +#if(0) +ATSextern() +atstkind_type(atstype_ptrk) +_057_home_057_vanessa_057_dev_057_haskell_057_fast_055_arithmetic_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_sats__totient_sum(atstkind_t0ype(atstype_int)) ; +#endif // end of [QUALIFIED] + +ATSstatic() +atstkind_type(atstype_ptrk) +loop_166(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__lt_g1int_int__50__4(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__168(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__168__1(atstkind_type(atstype_ptrk), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__43__2(atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__1__6() ; + +#if(0) +ATSextern() +atstkind_t0ype(atstype_int) +totient_ats(atstkind_t0ype(atstype_int)) ; +#endif // end of [QUALIFIED] + +#if(0) +ATSextern() +atstkind_t0ype(atstype_int) +jacobi_ats(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; +#endif // end of [QUALIFIED] + +#if(0) +ATSextern() +atstkind_type(atstype_ptrk) +_057_home_057_vanessa_057_dev_057_haskell_057_fast_055_arithmetic_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_sats__primorial(atstkind_t0ype(atstype_ullint)) ; +#endif // end of [QUALIFIED] + +ATSclosurerize_beg(__patsfun_75, (), (atstype_bool), atstype_boxed) +typedef +ATSstruct { +atstype_funptr cfun ; +} __patsfun_75__closure_t0ype ; +ATSstatic() +atstype_boxed +__patsfun_75__cfun +( +__patsfun_75__closure_t0ype *p_cenv, atstype_bool arg0 +) +{ +ATSFCreturn(__patsfun_75(arg0)) ; +} /* end of [cfun] */ +ATSstatic() +atstype_cloptr +__patsfun_75__closureinit +( +__patsfun_75__closure_t0ype *p_cenv +) +{ +p_cenv->cfun = __patsfun_75__cfun ; +return p_cenv ; +} /* end of [closureinit] */ +ATSstatic() +atstype_cloptr +__patsfun_75__closurerize +( +// argumentless +) +{ +return __patsfun_75__closureinit(ATS_MALLOC(sizeof(__patsfun_75__closure_t0ype))) ; +} /* end of [closurerize] */ +ATSclosurerize_end() +ATSclosurerize_beg(__patsfun_76, (), (atstype_bool), atstype_boxed) +typedef +ATSstruct { +atstype_funptr cfun ; +} __patsfun_76__closure_t0ype ; +ATSstatic() +atstype_boxed +__patsfun_76__cfun +( +__patsfun_76__closure_t0ype *p_cenv, atstype_bool arg0 +) +{ +ATSFCreturn(__patsfun_76(arg0)) ; +} /* end of [cfun] */ +ATSstatic() +atstype_cloptr +__patsfun_76__closureinit +( +__patsfun_76__closure_t0ype *p_cenv +) +{ +p_cenv->cfun = __patsfun_76__cfun ; +return p_cenv ; +} /* end of [closureinit] */ +ATSstatic() +atstype_cloptr +__patsfun_76__closurerize +( +// argumentless +) +{ +return __patsfun_76__closureinit(ATS_MALLOC(sizeof(__patsfun_76__closure_t0ype))) ; +} /* end of [closurerize] */ +ATSclosurerize_end() +ATSclosurerize_beg(__patsfun_83, (atstkind_t0ype(atstype_int), atstkind_type(atstype_ptrk)), (atstype_bool), atstype_boxed) +typedef +ATSstruct { +atstype_funptr cfun ; +atstkind_t0ype(atstype_int) env0 ; +atstkind_type(atstype_ptrk) env1 ; +} __patsfun_83__closure_t0ype ; +ATSstatic() +atstype_boxed +__patsfun_83__cfun +( +__patsfun_83__closure_t0ype *p_cenv, atstype_bool arg0 +) +{ +ATSFCreturn(__patsfun_83(p_cenv->env0, p_cenv->env1, arg0)) ; +} /* end of [cfun] */ +ATSstatic() +atstype_cloptr +__patsfun_83__closureinit +( +__patsfun_83__closure_t0ype *p_cenv, atstkind_t0ype(atstype_int) env0, atstkind_type(atstype_ptrk) env1 +) +{ +p_cenv->env0 = env0 ; +p_cenv->env1 = env1 ; +p_cenv->cfun = __patsfun_83__cfun ; +return p_cenv ; +} /* end of [closureinit] */ +ATSstatic() +atstype_cloptr +__patsfun_83__closurerize +( +atstkind_t0ype(atstype_int) env0, atstkind_type(atstype_ptrk) env1 +) +{ +return __patsfun_83__closureinit(ATS_MALLOC(sizeof(__patsfun_83__closure_t0ype)), env0, env1) ; +} /* end of [closurerize] */ +ATSclosurerize_end() +ATSclosurerize_beg(__patsfun_84, (atstkind_type(atstype_ptrk)), (atstype_bool), atstype_boxed) +typedef +ATSstruct { +atstype_funptr cfun ; +atstkind_type(atstype_ptrk) env0 ; +} __patsfun_84__closure_t0ype ; +ATSstatic() +atstype_boxed +__patsfun_84__cfun +( +__patsfun_84__closure_t0ype *p_cenv, atstype_bool arg0 +) +{ +ATSFCreturn(__patsfun_84(p_cenv->env0, arg0)) ; +} /* end of [cfun] */ +ATSstatic() +atstype_cloptr +__patsfun_84__closureinit +( +__patsfun_84__closure_t0ype *p_cenv, atstkind_type(atstype_ptrk) env0 +) +{ +p_cenv->env0 = env0 ; +p_cenv->cfun = __patsfun_84__cfun ; +return p_cenv ; +} /* end of [closureinit] */ +ATSstatic() +atstype_cloptr +__patsfun_84__closurerize +( +atstkind_type(atstype_ptrk) env0 +) +{ +return __patsfun_84__closureinit(ATS_MALLOC(sizeof(__patsfun_84__closure_t0ype)), env0) ; +} /* end of [closurerize] */ +ATSclosurerize_end() +ATSclosurerize_beg(__patsfun_85, (), (atstype_bool), atstype_boxed) +typedef +ATSstruct { +atstype_funptr cfun ; +} __patsfun_85__closure_t0ype ; +ATSstatic() +atstype_boxed +__patsfun_85__cfun +( +__patsfun_85__closure_t0ype *p_cenv, atstype_bool arg0 +) +{ +ATSFCreturn(__patsfun_85(arg0)) ; +} /* end of [cfun] */ +ATSstatic() +atstype_cloptr +__patsfun_85__closureinit +( +__patsfun_85__closure_t0ype *p_cenv +) +{ +p_cenv->cfun = __patsfun_85__cfun ; +return p_cenv ; +} /* end of [closureinit] */ +ATSstatic() +atstype_cloptr +__patsfun_85__closurerize +( +// argumentless +) +{ +return __patsfun_85__closureinit(ATS_MALLOC(sizeof(__patsfun_85__closure_t0ype))) ; +} /* end of [closurerize] */ +ATSclosurerize_end() +ATSclosurerize_beg(__patsfun_86, (atstkind_t0ype(atstype_int)), (atstype_bool), atstype_boxed) +typedef +ATSstruct { +atstype_funptr cfun ; +atstkind_t0ype(atstype_int) env0 ; +} __patsfun_86__closure_t0ype ; +ATSstatic() +atstype_boxed +__patsfun_86__cfun +( +__patsfun_86__closure_t0ype *p_cenv, atstype_bool arg0 +) +{ +ATSFCreturn(__patsfun_86(p_cenv->env0, arg0)) ; +} /* end of [cfun] */ +ATSstatic() +atstype_cloptr +__patsfun_86__closureinit +( +__patsfun_86__closure_t0ype *p_cenv, atstkind_t0ype(atstype_int) env0 +) +{ +p_cenv->env0 = env0 ; +p_cenv->cfun = __patsfun_86__cfun ; +return p_cenv ; +} /* end of [closureinit] */ +ATSstatic() +atstype_cloptr +__patsfun_86__closurerize +( +atstkind_t0ype(atstype_int) env0 +) +{ +return __patsfun_86__closureinit(ATS_MALLOC(sizeof(__patsfun_86__closure_t0ype)), env0) ; +} /* end of [closurerize] */ +ATSclosurerize_end() +ATSclosurerize_beg(__patsfun_87, (), (atstype_bool), atstype_boxed) +typedef +ATSstruct { +atstype_funptr cfun ; +} __patsfun_87__closure_t0ype ; +ATSstatic() +atstype_boxed +__patsfun_87__cfun +( +__patsfun_87__closure_t0ype *p_cenv, atstype_bool arg0 +) +{ +ATSFCreturn(__patsfun_87(arg0)) ; +} /* end of [cfun] */ +ATSstatic() +atstype_cloptr +__patsfun_87__closureinit +( +__patsfun_87__closure_t0ype *p_cenv +) +{ +p_cenv->cfun = __patsfun_87__cfun ; +return p_cenv ; +} /* end of [closureinit] */ +ATSstatic() +atstype_cloptr +__patsfun_87__closurerize +( +// argumentless +) +{ +return __patsfun_87__closureinit(ATS_MALLOC(sizeof(__patsfun_87__closure_t0ype))) ; +} /* end of [closurerize] */ +ATSclosurerize_end() +ATSclosurerize_beg(__patsfun_88, (), (atstype_bool), atstype_boxed) +typedef +ATSstruct { +atstype_funptr cfun ; +} __patsfun_88__closure_t0ype ; +ATSstatic() +atstype_boxed +__patsfun_88__cfun +( +__patsfun_88__closure_t0ype *p_cenv, atstype_bool arg0 +) +{ +ATSFCreturn(__patsfun_88(arg0)) ; +} /* end of [cfun] */ +ATSstatic() +atstype_cloptr +__patsfun_88__closureinit +( +__patsfun_88__closure_t0ype *p_cenv +) +{ +p_cenv->cfun = __patsfun_88__cfun ; +return p_cenv ; +} /* end of [closureinit] */ +ATSstatic() +atstype_cloptr +__patsfun_88__closurerize +( +// argumentless +) +{ +return __patsfun_88__closureinit(ATS_MALLOC(sizeof(__patsfun_88__closure_t0ype))) ; +} /* end of [closurerize] */ +ATSclosurerize_end() +ATSclosurerize_beg(__patsfun_90, (atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int), atstkind_type(atstype_ptrk)), (atstype_bool), atstype_boxed) +typedef +ATSstruct { +atstype_funptr cfun ; +atstkind_t0ype(atstype_int) env0 ; +atstkind_t0ype(atstype_int) env1 ; +atstkind_type(atstype_ptrk) env2 ; +} __patsfun_90__closure_t0ype ; +ATSstatic() +atstype_boxed +__patsfun_90__cfun +( +__patsfun_90__closure_t0ype *p_cenv, atstype_bool arg0 +) +{ +ATSFCreturn(__patsfun_90(p_cenv->env0, p_cenv->env1, p_cenv->env2, arg0)) ; +} /* end of [cfun] */ +ATSstatic() +atstype_cloptr +__patsfun_90__closureinit +( +__patsfun_90__closure_t0ype *p_cenv, atstkind_t0ype(atstype_int) env0, atstkind_t0ype(atstype_int) env1, atstkind_type(atstype_ptrk) env2 +) +{ +p_cenv->env0 = env0 ; +p_cenv->env1 = env1 ; +p_cenv->env2 = env2 ; +p_cenv->cfun = __patsfun_90__cfun ; +return p_cenv ; +} /* end of [closureinit] */ +ATSstatic() +atstype_cloptr +__patsfun_90__closurerize +( +atstkind_t0ype(atstype_int) env0, atstkind_t0ype(atstype_int) env1, atstkind_type(atstype_ptrk) env2 +) +{ +return __patsfun_90__closureinit(ATS_MALLOC(sizeof(__patsfun_90__closure_t0ype)), env0, env1, env2) ; +} /* end of [closurerize] */ +ATSclosurerize_end() +ATSclosurerize_beg(__patsfun_91, (atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int), atstkind_type(atstype_ptrk)), (atstype_bool), atstype_boxed) +typedef +ATSstruct { +atstype_funptr cfun ; +atstkind_t0ype(atstype_int) env0 ; +atstkind_t0ype(atstype_int) env1 ; +atstkind_type(atstype_ptrk) env2 ; +} __patsfun_91__closure_t0ype ; +ATSstatic() +atstype_boxed +__patsfun_91__cfun +( +__patsfun_91__closure_t0ype *p_cenv, atstype_bool arg0 +) +{ +ATSFCreturn(__patsfun_91(p_cenv->env0, p_cenv->env1, p_cenv->env2, arg0)) ; +} /* end of [cfun] */ +ATSstatic() +atstype_cloptr +__patsfun_91__closureinit +( +__patsfun_91__closure_t0ype *p_cenv, atstkind_t0ype(atstype_int) env0, atstkind_t0ype(atstype_int) env1, atstkind_type(atstype_ptrk) env2 +) +{ +p_cenv->env0 = env0 ; +p_cenv->env1 = env1 ; +p_cenv->env2 = env2 ; +p_cenv->cfun = __patsfun_91__cfun ; +return p_cenv ; +} /* end of [closureinit] */ +ATSstatic() +atstype_cloptr +__patsfun_91__closurerize +( +atstkind_t0ype(atstype_int) env0, atstkind_t0ype(atstype_int) env1, atstkind_type(atstype_ptrk) env2 +) +{ +return __patsfun_91__closureinit(ATS_MALLOC(sizeof(__patsfun_91__closure_t0ype)), env0, env1, env2) ; +} /* end of [closurerize] */ +ATSclosurerize_end() +ATSclosurerize_beg(__patsfun_142, (atstkind_t0ype(atstype_int)), (atstype_bool), atstype_boxed) +typedef +ATSstruct { +atstype_funptr cfun ; +atstkind_t0ype(atstype_int) env0 ; +} __patsfun_142__closure_t0ype ; +ATSstatic() +atstype_boxed +__patsfun_142__cfun +( +__patsfun_142__closure_t0ype *p_cenv, atstype_bool arg0 +) +{ +ATSFCreturn(__patsfun_142(p_cenv->env0, arg0)) ; +} /* end of [cfun] */ +ATSstatic() +atstype_cloptr +__patsfun_142__closureinit +( +__patsfun_142__closure_t0ype *p_cenv, atstkind_t0ype(atstype_int) env0 +) +{ +p_cenv->env0 = env0 ; +p_cenv->cfun = __patsfun_142__cfun ; +return p_cenv ; +} /* end of [closureinit] */ +ATSstatic() +atstype_cloptr +__patsfun_142__closurerize +( +atstkind_t0ype(atstype_int) env0 +) +{ +return __patsfun_142__closureinit(ATS_MALLOC(sizeof(__patsfun_142__closure_t0ype)), env0) ; +} /* end of [closurerize] */ +ATSclosurerize_end() +ATSclosurerize_beg(__patsfun_143, (), (atstype_bool), atstype_boxed) +typedef +ATSstruct { +atstype_funptr cfun ; +} __patsfun_143__closure_t0ype ; +ATSstatic() +atstype_boxed +__patsfun_143__cfun +( +__patsfun_143__closure_t0ype *p_cenv, atstype_bool arg0 +) +{ +ATSFCreturn(__patsfun_143(arg0)) ; +} /* end of [cfun] */ +ATSstatic() +atstype_cloptr +__patsfun_143__closureinit +( +__patsfun_143__closure_t0ype *p_cenv +) +{ +p_cenv->cfun = __patsfun_143__cfun ; +return p_cenv ; +} /* end of [closureinit] */ +ATSstatic() +atstype_cloptr +__patsfun_143__closurerize +( +// argumentless +) +{ +return __patsfun_143__closureinit(ATS_MALLOC(sizeof(__patsfun_143__closure_t0ype))) ; +} /* end of [closurerize] */ +ATSclosurerize_end() +ATSclosurerize_beg(__patsfun_144, (), (atstype_bool), atstype_boxed) +typedef +ATSstruct { +atstype_funptr cfun ; +} __patsfun_144__closure_t0ype ; +ATSstatic() +atstype_boxed +__patsfun_144__cfun +( +__patsfun_144__closure_t0ype *p_cenv, atstype_bool arg0 +) +{ +ATSFCreturn(__patsfun_144(arg0)) ; +} /* end of [cfun] */ +ATSstatic() +atstype_cloptr +__patsfun_144__closureinit +( +__patsfun_144__closure_t0ype *p_cenv +) +{ +p_cenv->cfun = __patsfun_144__cfun ; +return p_cenv ; +} /* end of [closureinit] */ +ATSstatic() +atstype_cloptr +__patsfun_144__closurerize +( +// argumentless +) +{ +return __patsfun_144__closureinit(ATS_MALLOC(sizeof(__patsfun_144__closure_t0ype))) ; +} /* end of [closurerize] */ +ATSclosurerize_end() +ATSclosurerize_beg(__patsfun_147, (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_147__closure_t0ype ; +ATSstatic() +atstype_boxed +__patsfun_147__cfun +( +__patsfun_147__closure_t0ype *p_cenv, atstype_bool arg0 +) +{ +ATSFCreturn(__patsfun_147(p_cenv->env0, p_cenv->env1, arg0)) ; +} /* end of [cfun] */ +ATSstatic() +atstype_cloptr +__patsfun_147__closureinit +( +__patsfun_147__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_147__cfun ; +return p_cenv ; +} /* end of [closureinit] */ +ATSstatic() +atstype_cloptr +__patsfun_147__closurerize +( +atstkind_t0ype(atstype_int) env0, atstkind_t0ype(atstype_int) env1 +) +{ +return __patsfun_147__closureinit(ATS_MALLOC(sizeof(__patsfun_147__closure_t0ype)), env0, env1) ; +} /* end of [closurerize] */ +ATSclosurerize_end() +ATSclosurerize_beg(__patsfun_148, (atstkind_t0ype(atstype_int)), (atstype_bool), atstype_boxed) +typedef +ATSstruct { +atstype_funptr cfun ; +atstkind_t0ype(atstype_int) env0 ; +} __patsfun_148__closure_t0ype ; +ATSstatic() +atstype_boxed +__patsfun_148__cfun +( +__patsfun_148__closure_t0ype *p_cenv, atstype_bool arg0 +) +{ +ATSFCreturn(__patsfun_148(p_cenv->env0, arg0)) ; +} /* end of [cfun] */ +ATSstatic() +atstype_cloptr +__patsfun_148__closureinit +( +__patsfun_148__closure_t0ype *p_cenv, atstkind_t0ype(atstype_int) env0 +) +{ +p_cenv->env0 = env0 ; +p_cenv->cfun = __patsfun_148__cfun ; +return p_cenv ; +} /* end of [closureinit] */ +ATSstatic() +atstype_cloptr +__patsfun_148__closurerize +( +atstkind_t0ype(atstype_int) env0 +) +{ +return __patsfun_148__closureinit(ATS_MALLOC(sizeof(__patsfun_148__closure_t0ype)), env0) ; +} /* end of [closurerize] */ +ATSclosurerize_end() +ATSclosurerize_beg(__patsfun_149, (), (atstype_bool), atstype_boxed) +typedef +ATSstruct { +atstype_funptr cfun ; +} __patsfun_149__closure_t0ype ; +ATSstatic() +atstype_boxed +__patsfun_149__cfun +( +__patsfun_149__closure_t0ype *p_cenv, atstype_bool arg0 +) +{ +ATSFCreturn(__patsfun_149(arg0)) ; +} /* end of [cfun] */ +ATSstatic() +atstype_cloptr +__patsfun_149__closureinit +( +__patsfun_149__closure_t0ype *p_cenv +) +{ +p_cenv->cfun = __patsfun_149__cfun ; +return p_cenv ; +} /* end of [closureinit] */ +ATSstatic() +atstype_cloptr +__patsfun_149__closurerize +( +// argumentless +) +{ +return __patsfun_149__closureinit(ATS_MALLOC(sizeof(__patsfun_149__closure_t0ype))) ; +} /* end of [closurerize] */ +ATSclosurerize_end() +ATSclosurerize_beg(__patsfun_164, (), (postiats_tyrec_0, atsrefarg1_type(atstkind_t0ype(atstype_int))), postiats_tyrec_0) +typedef +ATSstruct { +atstype_funptr cfun ; +} __patsfun_164__closure_t0ype ; +ATSstatic() +postiats_tyrec_0 +__patsfun_164__cfun +( +__patsfun_164__closure_t0ype *p_cenv, postiats_tyrec_0 arg0, atsrefarg1_type(atstkind_t0ype(atstype_int)) arg1 +) +{ +ATSFCreturn(__patsfun_164(arg0, arg1)) ; +} /* end of [cfun] */ +ATSstatic() +atstype_cloptr +__patsfun_164__closureinit +( +__patsfun_164__closure_t0ype *p_cenv +) +{ +p_cenv->cfun = __patsfun_164__cfun ; +return p_cenv ; +} /* end of [closureinit] */ +ATSstatic() +atstype_cloptr +__patsfun_164__closurerize +( +// argumentless +) +{ +return __patsfun_164__closureinit(ATS_MALLOC(sizeof(__patsfun_164__closure_t0ype))) ; +} /* end of [closurerize] */ +ATSclosurerize_end() +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 414(line=12, offs=4) -- 587(line=19, offs=6) +*/ +/* +local: +global: fib_gmp_0$0(level=0) +local: +global: +*/ +ATSstatic() +atstkind_type(atstype_ptrk) +fib_gmp_0(atstkind_t0ype(atstype_uint) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret0, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmpref1, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp4) ; +// ATStmpdec_void(tmp5) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 414(line=12, offs=4) -- 587(line=19, offs=6) +*/ +ATSINSflab(__patsflab_fib_gmp_0): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 451(line=13, offs=3) -- 587(line=19, offs=6) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 463(line=14, offs=9) -- 464(line=14, offs=10) +*/ +/* +ATSINStmpdec(tmpref1) ; +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 467(line=14, offs=13) -- 478(line=14, offs=24) +*/ +ATSINSmove(tmpref1, ATSLIB_056_prelude__ptr_alloc__1__1()) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 492(line=15, offs=14) -- 513(line=15, offs=35) +*/ +ATSINSmove_void(tmp4, atscntrb_gmp_mpz_init(ATSPMVrefarg1(ATSSELrecsin(tmpref1, atstkind_type(atstype_ptrk), atslab__2)))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 527(line=16, offs=14) -- 555(line=16, offs=42) +*/ +ATSINSmove_void(tmp5, atscntrb_gmp_mpz_fib_uint(ATSPMVrefarg1(ATSSELrecsin(tmpref1, atstkind_type(atstype_ptrk), atslab__2)), arg0)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 565(line=18, offs=5) -- 580(line=18, offs=20) +*/ +ATSINSmove(tmpret0, ATSPMVcastfn(castvwtp0, atstkind_type(atstype_ptrk), tmpref1)) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 451(line=13, offs=3) -- 587(line=19, offs=6) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret0) ; +} /* end of [fib_gmp_0] */ + +#if(0) +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42) +*/ +/* +local: +global: ptr_alloc$1$0(level=0) +local: +global: +*/ +ATSextern() +/* +imparg = a(4746) +tmparg = S2Evar(a(4746)) +tmpsub = None() +*/ +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__1() +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret2, atstkind_type(atstype_ptrk)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3708(line=184, offs=1) -- 3749(line=184, offs=42) +*/ +ATSINSflab(__patsflab_ptr_alloc): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42) +*/ +ATSINSmove(tmpret2, atspre_ptr_alloc_tsz(ATSPMVsizeof(atstyvar_type(a)))) ; + +ATSfunbody_end() +ATSreturn(tmpret2) ; +} /* end of [ATSLIB_056_prelude__ptr_alloc__1] */ +#endif // end of [TEMPLATE] + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42) +*/ +/* +local: +global: ptr_alloc$1$1(level=1) +local: +global: +*/ +ATSstatic() +/* +imparg = a(4746) +tmparg = S2Evar(a(4746)) +tmpsub = Some(a(4746) -> S2EVar(5565)) +*/ +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__1__1() +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret2__1, atstkind_type(atstype_ptrk)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3708(line=184, offs=1) -- 3749(line=184, offs=42) +*/ +ATSINSflab(__patsflab_ptr_alloc): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42) +*/ +ATSINSmove(tmpret2__1, atspre_ptr_alloc_tsz(ATSPMVsizeof(atscntrb_gmp_mpz))) ; + +ATSfunbody_end() +ATSreturn(tmpret2__1) ; +} /* end of [ATSLIB_056_prelude__ptr_alloc__1__1] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 764(line=24, offs=5) -- 1203(line=45, offs=10) +*/ +/* +local: exp_3$0(level=0) +global: exp_3$0(level=0) +local: +global: +*/ +ATSstatic() +atstkind_t0ype(atstype_int) +exp_3(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(apy0, atstkind_t0ype(atstype_int)) ; +ATStmpdec(apy1, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmpret6, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp7, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmpref12, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmpref13, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp14, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp19, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmpref20, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp21, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp22, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 764(line=24, offs=5) -- 1203(line=45, offs=10) +*/ +ATSINSflab(__patsflab_exp_3): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 814(line=25, offs=3) -- 1203(line=45, offs=10) +*/ +ATScaseof_beg() +/* +** ibranchlst-beg +*/ +ATSbranch_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 831(line=26, offs=7) -- 832(line=26, offs=8) +*/ +ATSINSlab(__atstmplab0): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 783(line=24, offs=24) -- 784(line=24, offs=25) +*/ +ATSifnthen(ATSCKpat_int(arg0, ATSPMVint(0))) { ATSINSgoto(__atstmplab2) ; } ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 832(line=26, offs=8) -- 832(line=26, offs=8) +*/ +ATSINSlab(__atstmplab1): +/* +emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) +*/ +/* +ibranch-mbody: +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 836(line=26, offs=12) -- 837(line=26, offs=13) +*/ +ATSINSmove(tmpret6, ATSPMVi0nt(0)) ; +ATSbranch_end() + +ATSbranch_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 845(line=27, offs=8) -- 845(line=27, offs=8) +*/ +ATSINSlab(__atstmplab2): +/* +emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) +*/ +/* +ibranch-mbody: +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 874(line=29, offs=12) -- 879(line=29, offs=17) +*/ +ATSINSmove(tmp7, ATSLIB_056_prelude__gt_g1int_int__4__1(arg1, ATSPMVi0nt(0))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 871(line=29, offs=9) -- 1193(line=44, offs=12) +*/ +ATSif( +tmp7 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 895(line=30, offs=11) -- 1168(line=42, offs=14) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 915(line=31, offs=17) -- 917(line=31, offs=19) +*/ +/* +ATSINStmpdec(tmpref12) ; +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 920(line=31, offs=22) -- 926(line=31, offs=28) +*/ +ATSINSmove(tmpref12, atspre_g1int_half_int(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 944(line=32, offs=17) -- 946(line=32, offs=19) +*/ +/* +ATSINStmpdec(tmpref13) ; +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 949(line=32, offs=22) -- 954(line=32, offs=27) +*/ +ATSINSmove(tmpref13, atspre_g0int_mod_int(arg1, ATSPMVi0nt(2))) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 983(line=34, offs=16) -- 989(line=34, offs=22) +*/ +ATSINSmove(tmp14, ATSLIB_056_prelude__eq_g0int_int__10__1(tmpref13, ATSPMVi0nt(0))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 980(line=34, offs=13) -- 1154(line=41, offs=18) +*/ +ATSif( +tmp14 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1013(line=35, offs=19) -- 1018(line=35, offs=24) +*/ +ATSINSmove(tmp19, atspre_g0int_mul_int(arg0, arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1009(line=35, offs=15) -- 1023(line=35, offs=29) +*/ +ATStailcal_beg() +ATSINSmove_tlcal(apy0, tmp19) ; +ATSINSmove_tlcal(apy1, tmpref12) ; +ATSINSargmove_tlcal(arg0, apy0) ; +ATSINSargmove_tlcal(arg1, apy1) ; +ATSINSfgoto(__patsflab_exp_3) ; +ATStailcal_end() + +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1055(line=37, offs=15) -- 1154(line=41, offs=18) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1079(line=38, offs=21) -- 1080(line=38, offs=22) +*/ +/* +ATSINStmpdec(tmpref20) ; +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1091(line=38, offs=33) -- 1096(line=38, offs=38) +*/ +ATSINSmove(tmp22, atspre_g0int_mul_int(arg0, arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1087(line=38, offs=29) -- 1101(line=38, offs=43) +*/ +ATSINSmove(tmp21, exp_3(tmp22, tmpref12)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1083(line=38, offs=25) -- 1101(line=38, offs=43) +*/ +ATSINSmove(tmpref20, atspre_g0int_mul_int(arg0, tmp21)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1135(line=40, offs=17) -- 1136(line=40, offs=18) +*/ +ATSINSmove(tmpret6, tmpref20) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1055(line=37, offs=15) -- 1154(line=41, offs=18) +*/ +/* +INSletpop() +*/ +} /* ATSendif */ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 895(line=30, offs=11) -- 1168(line=42, offs=14) +*/ +/* +INSletpop() +*/ +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1192(line=44, offs=11) -- 1193(line=44, offs=12) +*/ +ATSINSmove(tmpret6, ATSPMVi0nt(1)) ; +} /* ATSendif */ +ATSbranch_end() + +/* +** ibranchlst-end +*/ +ATScaseof_end() + +ATSfunbody_end() +ATSreturn(tmpret6) ; +} /* end of [exp_3] */ + +#if(0) +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 12679(line=659, offs=3) -- 12718(line=659, offs=42) +*/ +/* +local: +global: gt_g1int_int$4$0(level=0) +local: +global: +*/ +ATSextern() +/* +imparg = tk(4643) +tmparg = S2Evar(tk(4643)) +tmpsub = None() +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__gt_g1int_int__4(atstkind_t0ype(atstyvar_type(tk)) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret8, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp9, atstkind_t0ype(atstyvar_type(tk))) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12664(line=658, offs=1) -- 12718(line=659, offs=42) +*/ +ATSINSflab(__patsflab_gt_g1int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12705(line=659, offs=29) -- 12716(line=659, offs=40) +*/ +ATSINSmove(tmp9, PMVtmpltcst(g1int2int)(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12688(line=659, offs=12) -- 12718(line=659, offs=42) +*/ +ATSINSmove(tmpret8, PMVtmpltcst(g1int_gt)(arg0, tmp9)) ; + +ATSfunbody_end() +ATSreturn(tmpret8) ; +} /* end of [ATSLIB_056_prelude__gt_g1int_int__4] */ +#endif // end of [TEMPLATE] + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 12679(line=659, offs=3) -- 12718(line=659, offs=42) +*/ +/* +local: +global: gt_g1int_int$4$1(level=1) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4643) +tmparg = S2Evar(tk(4643)) +tmpsub = Some(tk(4643) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__gt_g1int_int__4__1(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret8__1, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp9__1, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12664(line=658, offs=1) -- 12718(line=659, offs=42) +*/ +ATSINSflab(__patsflab_gt_g1int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12705(line=659, offs=29) -- 12716(line=659, offs=40) +*/ +ATSINSmove(tmp9__1, atspre_g1int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12688(line=659, offs=12) -- 12718(line=659, offs=42) +*/ +ATSINSmove(tmpret8__1, atspre_g1int_gt_int(arg0, tmp9__1)) ; + +ATSfunbody_end() +ATSreturn(tmpret8__1) ; +} /* end of [ATSLIB_056_prelude__gt_g1int_int__4__1] */ + +#if(0) +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) +*/ +/* +local: +global: eq_g0int_int$10$0(level=0) +local: +global: +*/ +ATSextern() +/* +imparg = tk(4634) +tmparg = S2Evar(tk(4634)) +tmpsub = None() +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__10(atstkind_t0ype(atstyvar_type(tk)) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret15, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp16, atstkind_t0ype(atstyvar_type(tk))) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) +*/ +ATSINSflab(__patsflab_eq_g0int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) +*/ +ATSINSmove(tmp16, PMVtmpltcst(g0int2int)(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) +*/ +ATSINSmove(tmpret15, PMVtmpltcst(g0int_eq)(arg0, tmp16)) ; + +ATSfunbody_end() +ATSreturn(tmpret15) ; +} /* end of [ATSLIB_056_prelude__eq_g0int_int__10] */ +#endif // end of [TEMPLATE] + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) +*/ +/* +local: +global: eq_g0int_int$10$1(level=1) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4634) +tmparg = S2Evar(tk(4634)) +tmpsub = Some(tk(4634) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__10__1(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret15__1, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp16__1, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) +*/ +ATSINSflab(__patsflab_eq_g0int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) +*/ +ATSINSmove(tmp16__1, atspre_g0int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) +*/ +ATSINSmove(tmpret15__1, atspre_g0int_eq_int(arg0, tmp16__1)) ; + +ATSfunbody_end() +ATSreturn(tmpret15__1) ; +} /* end of [ATSLIB_056_prelude__eq_g0int_int__10__1] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1241(line=48, offs=5) -- 1849(line=74, offs=39) +*/ +/* +local: big_exp_15$0(level=0) +global: big_exp_15$0(level=0) +local: +global: +*/ +ATSstatic() +atstkind_type(atstype_ptrk) +big_exp_15(atstkind_type(atstype_ptrk) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(apy0, atstkind_type(atstype_ptrk)) ; +ATStmpdec(apy1, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmpret23, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp24, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp29, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp48, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmpref51, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmpref52, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp53, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmpref56, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmpref76, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmpref82, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmpref83, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp88) ; +// ATStmpdec_void(tmp91) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1241(line=48, offs=5) -- 1849(line=74, offs=39) +*/ +ATSINSflab(__patsflab_big_exp_15): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1304(line=49, offs=6) -- 1328(line=49, offs=30) +*/ +ATSINSmove(tmp29, ATSCNTRB_056_HX_056_intinf_vt__compare_intinf_int__19__1(ATSPMVrefarg0(arg0), ATSPMVi0nt(0))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1304(line=49, offs=6) -- 1332(line=49, offs=34) +*/ +ATSINSmove(tmp24, ATSLIB_056_prelude__eq_g1int_int__16__1(tmp29, ATSPMVi0nt(0))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1301(line=49, offs=3) -- 1849(line=74, offs=39) +*/ +ATSif( +tmp24 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1342(line=50, offs=5) -- 1343(line=50, offs=6) +*/ +ATSINSmove(tmpret23, arg0) ; +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1358(line=52, offs=8) -- 1363(line=52, offs=13) +*/ +ATSINSmove(tmp48, ATSLIB_056_prelude__gt_g1int_int__4__2(arg1, ATSPMVi0nt(0))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1355(line=52, offs=5) -- 1849(line=74, offs=39) +*/ +ATSif( +tmp48 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1375(line=53, offs=7) -- 1801(line=72, offs=10) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1391(line=54, offs=13) -- 1393(line=54, offs=15) +*/ +/* +ATSINStmpdec(tmpref51) ; +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1396(line=54, offs=18) -- 1402(line=54, offs=24) +*/ +ATSINSmove(tmpref51, atspre_g1int_half_int(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1416(line=55, offs=13) -- 1418(line=55, offs=15) +*/ +/* +ATSINStmpdec(tmpref52) ; +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1421(line=55, offs=18) -- 1426(line=55, offs=23) +*/ +ATSINSmove(tmpref52, atspre_g0int_mod_int(arg1, ATSPMVi0nt(2))) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1447(line=57, offs=12) -- 1453(line=57, offs=18) +*/ +ATSINSmove(tmp53, ATSLIB_056_prelude__eq_g0int_int__10__2(tmpref52, ATSPMVi0nt(0))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1444(line=57, offs=9) -- 1791(line=71, offs=14) +*/ +ATSif( +tmp53 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1469(line=58, offs=11) -- 1564(line=62, offs=14) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1489(line=59, offs=17) -- 1490(line=59, offs=18) +*/ +/* +ATSINStmpdec(tmpref56) ; +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1493(line=59, offs=21) -- 1509(line=59, offs=37) +*/ +ATSINSmove(tmpref56, ATSCNTRB_056_HX_056_intinf_vt__square_intinf0__30__1(arg0)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1536(line=61, offs=13) -- 1550(line=61, offs=27) +*/ +ATStailcal_beg() +ATSINSmove_tlcal(apy0, tmpref56) ; +ATSINSmove_tlcal(apy1, tmpref51) ; +ATSINSargmove_tlcal(arg0, apy0) ; +ATSINSargmove_tlcal(arg1, apy1) ; +ATSINSfgoto(__patsflab_big_exp_15) ; +ATStailcal_end() + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1469(line=58, offs=11) -- 1564(line=62, offs=14) +*/ +/* +INSletpop() +*/ +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1588(line=64, offs=11) -- 1791(line=71, offs=14) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1608(line=65, offs=17) -- 1610(line=65, offs=19) +*/ +/* +ATSINStmpdec(tmpref76) ; +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1613(line=65, offs=22) -- 1629(line=65, offs=38) +*/ +ATSINSmove(tmpref76, ATSCNTRB_056_HX_056_intinf_vt__square_intinf1__32__2(ATSPMVrefarg0(arg0))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1647(line=66, offs=17) -- 1649(line=66, offs=19) +*/ +/* +ATSINStmpdec(tmpref82) ; +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1652(line=66, offs=22) -- 1667(line=66, offs=37) +*/ +ATSINSmove(tmpref82, big_exp_15(tmpref76, tmpref51)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1684(line=67, offs=17) -- 1685(line=67, offs=18) +*/ +/* +ATSINStmpdec(tmpref83) ; +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1688(line=67, offs=21) -- 1714(line=67, offs=47) +*/ +ATSINSmove(tmpref83, ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_intinf1__39__1(tmpref82, ATSPMVrefarg0(arg0))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1736(line=68, offs=22) -- 1749(line=68, offs=35) +*/ +ATSINSmove_void(tmp88, ATSCNTRB_056_HX_056_intinf_vt__intinf_free__35__2(arg0)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1776(line=70, offs=13) -- 1777(line=70, offs=14) +*/ +ATSINSmove(tmpret23, tmpref83) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1588(line=64, offs=11) -- 1791(line=71, offs=14) +*/ +/* +INSletpop() +*/ +} /* ATSendif */ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1375(line=53, offs=7) -- 1801(line=72, offs=10) +*/ +/* +INSletpop() +*/ +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1818(line=74, offs=8) -- 1831(line=74, offs=21) +*/ +ATSINSmove_void(tmp91, ATSCNTRB_056_HX_056_intinf_vt__intinf_free__35__3(arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1835(line=74, offs=25) -- 1848(line=74, offs=38) +*/ +ATSINSmove(tmpret23, ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__43__1(ATSPMVi0nt(1))) ; + +} /* ATSendif */ +} /* ATSendif */ +ATSfunbody_end() +ATSreturn(tmpret23) ; +} /* end of [big_exp_15] */ + +#if(0) +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 12838(line=668, offs=3) -- 12877(line=668, offs=42) +*/ +/* +local: +global: eq_g1int_int$16$0(level=0) +local: +global: +*/ +ATSextern() +/* +imparg = tk(4649) +tmparg = S2Evar(tk(4649)) +tmpsub = None() +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g1int_int__16(atstkind_t0ype(atstyvar_type(tk)) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret25, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp26, atstkind_t0ype(atstyvar_type(tk))) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12823(line=667, offs=1) -- 12877(line=668, offs=42) +*/ +ATSINSflab(__patsflab_eq_g1int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12864(line=668, offs=29) -- 12875(line=668, offs=40) +*/ +ATSINSmove(tmp26, PMVtmpltcst(g1int2int)(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12847(line=668, offs=12) -- 12877(line=668, offs=42) +*/ +ATSINSmove(tmpret25, PMVtmpltcst(g1int_eq)(arg0, tmp26)) ; + +ATSfunbody_end() +ATSreturn(tmpret25) ; +} /* end of [ATSLIB_056_prelude__eq_g1int_int__16] */ +#endif // end of [TEMPLATE] + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 12838(line=668, offs=3) -- 12877(line=668, offs=42) +*/ +/* +local: +global: eq_g1int_int$16$1(level=1) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4649) +tmparg = S2Evar(tk(4649)) +tmpsub = Some(tk(4649) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g1int_int__16__1(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret25__1, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp26__1, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12823(line=667, offs=1) -- 12877(line=668, offs=42) +*/ +ATSINSflab(__patsflab_eq_g1int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12864(line=668, offs=29) -- 12875(line=668, offs=40) +*/ +ATSINSmove(tmp26__1, atspre_g1int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12847(line=668, offs=12) -- 12877(line=668, offs=42) +*/ +ATSINSmove(tmpret25__1, atspre_g1int_eq_int(arg0, tmp26__1)) ; + +ATSfunbody_end() +ATSreturn(tmpret25__1) ; +} /* end of [ATSLIB_056_prelude__eq_g1int_int__16__1] */ + +#if(0) +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13321(line=768, offs=9) -- 13484(line=775, offs=4) +*/ +/* +local: +global: compare_intinf_int$19$0(level=0) +local: +global: +*/ +ATSextern() +/* +imparg = +tmparg = +tmpsub = None() +*/ +atstkind_t0ype(atstype_int) +ATSCNTRB_056_HX_056_intinf_vt__compare_intinf_int__19(atsrefarg0_type(atstkind_type(atstype_ptrk)) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret30, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp31, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp32, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp33, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp34, atstkind_t0ype(atstype_bool)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13294(line=767, offs=1) -- 13484(line=775, offs=4) +*/ +ATSINSflab(__patsflab_compare_intinf_int): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13330(line=768, offs=18) -- 13484(line=775, offs=4) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13347(line=770, offs=11) -- 13375(line=770, offs=39) +*/ +ATSINSmove(tmp31, atscntrb_gmp_mpz_cmp_int(ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13390(line=771, offs=15) -- 13397(line=771, offs=22) +*/ +ATSINSmove(tmp33, PMVtmpltcst(lt_g0int_int)(tmp31, ATSPMVi0nt(0))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13387(line=771, offs=12) -- 13437(line=771, offs=62) +*/ +ATSif( +tmp33 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13403(line=771, offs=28) -- 13405(line=771, offs=30) +*/ +ATSINSmove(tmp32, PMVtmpltcst(g1int_neg)(ATSPMVi0nt(1))) ; + +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13415(line=771, offs=40) -- 13422(line=771, offs=47) +*/ +ATSINSmove(tmp34, PMVtmpltcst(gt_g0int_int)(tmp31, ATSPMVi0nt(0))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13412(line=771, offs=37) -- 13436(line=771, offs=61) +*/ +ATSif( +tmp34 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13428(line=771, offs=53) -- 13429(line=771, offs=54) +*/ +ATSINSmove(tmp32, ATSPMVi0nt(1)) ; +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13435(line=771, offs=60) -- 13436(line=771, offs=61) +*/ +ATSINSmove(tmp32, ATSPMVi0nt(0)) ; +} /* ATSendif */ +} /* ATSendif */ +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13452(line=774, offs=3) -- 13479(line=774, offs=30) +*/ +ATSINSmove(tmpret30, ATSPMVcastfn(cast, atstkind_t0ype(atstype_int), tmp32)) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13330(line=768, offs=18) -- 13484(line=775, offs=4) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret30) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__compare_intinf_int__19] */ +#endif // end of [TEMPLATE] + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13321(line=768, offs=9) -- 13484(line=775, offs=4) +*/ +/* +local: +global: compare_intinf_int$19$1(level=1) +local: +global: +*/ +ATSstatic() +/* +imparg = +tmparg = +tmpsub = Some() +*/ +atstkind_t0ype(atstype_int) +ATSCNTRB_056_HX_056_intinf_vt__compare_intinf_int__19__1(atsrefarg0_type(atstkind_type(atstype_ptrk)) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret30__1, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp31__1, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp32__1, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp33__1, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp34__1, atstkind_t0ype(atstype_bool)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13294(line=767, offs=1) -- 13484(line=775, offs=4) +*/ +ATSINSflab(__patsflab_compare_intinf_int): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13330(line=768, offs=18) -- 13484(line=775, offs=4) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13347(line=770, offs=11) -- 13375(line=770, offs=39) +*/ +ATSINSmove(tmp31__1, atscntrb_gmp_mpz_cmp_int(ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13390(line=771, offs=15) -- 13397(line=771, offs=22) +*/ +ATSINSmove(tmp33__1, ATSLIB_056_prelude__lt_g0int_int__21__1(tmp31__1, ATSPMVi0nt(0))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13387(line=771, offs=12) -- 13437(line=771, offs=62) +*/ +ATSif( +tmp33__1 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13403(line=771, offs=28) -- 13405(line=771, offs=30) +*/ +ATSINSmove(tmp32__1, atspre_g1int_neg_int(ATSPMVi0nt(1))) ; + +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13415(line=771, offs=40) -- 13422(line=771, offs=47) +*/ +ATSINSmove(tmp34__1, ATSLIB_056_prelude__gt_g0int_int__25__1(tmp31__1, ATSPMVi0nt(0))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13412(line=771, offs=37) -- 13436(line=771, offs=61) +*/ +ATSif( +tmp34__1 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13428(line=771, offs=53) -- 13429(line=771, offs=54) +*/ +ATSINSmove(tmp32__1, ATSPMVi0nt(1)) ; +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13435(line=771, offs=60) -- 13436(line=771, offs=61) +*/ +ATSINSmove(tmp32__1, ATSPMVi0nt(0)) ; +} /* ATSendif */ +} /* ATSendif */ +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13452(line=774, offs=3) -- 13479(line=774, offs=30) +*/ +ATSINSmove(tmpret30__1, ATSPMVcastfn(cast, atstkind_t0ype(atstype_int), tmp32__1)) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13330(line=768, offs=18) -- 13484(line=775, offs=4) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret30__1) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__compare_intinf_int__19__1] */ + +#if(0) +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 11941(line=617, offs=3) -- 11980(line=617, offs=42) +*/ +/* +local: +global: lt_g0int_int$21$0(level=0) +local: +global: +*/ +ATSextern() +/* +imparg = tk(4630) +tmparg = S2Evar(tk(4630)) +tmpsub = None() +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__lt_g0int_int__21(atstkind_t0ype(atstyvar_type(tk)) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret40, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp41, atstkind_t0ype(atstyvar_type(tk))) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 11926(line=616, offs=1) -- 11980(line=617, offs=42) +*/ +ATSINSflab(__patsflab_lt_g0int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 11967(line=617, offs=29) -- 11978(line=617, offs=40) +*/ +ATSINSmove(tmp41, PMVtmpltcst(g0int2int)(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 11950(line=617, offs=12) -- 11980(line=617, offs=42) +*/ +ATSINSmove(tmpret40, PMVtmpltcst(g0int_lt)(arg0, tmp41)) ; + +ATSfunbody_end() +ATSreturn(tmpret40) ; +} /* end of [ATSLIB_056_prelude__lt_g0int_int__21] */ +#endif // end of [TEMPLATE] + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 11941(line=617, offs=3) -- 11980(line=617, offs=42) +*/ +/* +local: +global: lt_g0int_int$21$1(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4630) +tmparg = S2Evar(tk(4630)) +tmpsub = Some(tk(4630) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__lt_g0int_int__21__1(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret40__1, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp41__1, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 11926(line=616, offs=1) -- 11980(line=617, offs=42) +*/ +ATSINSflab(__patsflab_lt_g0int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 11967(line=617, offs=29) -- 11978(line=617, offs=40) +*/ +ATSINSmove(tmp41__1, atspre_g0int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 11950(line=617, offs=12) -- 11980(line=617, offs=42) +*/ +ATSINSmove(tmpret40__1, atspre_g0int_lt_int(arg0, tmp41__1)) ; + +ATSfunbody_end() +ATSreturn(tmpret40__1) ; +} /* end of [ATSLIB_056_prelude__lt_g0int_int__21__1] */ + +#if(0) +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 12100(line=626, offs=3) -- 12139(line=626, offs=42) +*/ +/* +local: +global: gt_g0int_int$25$0(level=0) +local: +global: +*/ +ATSextern() +/* +imparg = tk(4632) +tmparg = S2Evar(tk(4632)) +tmpsub = None() +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__gt_g0int_int__25(atstkind_t0ype(atstyvar_type(tk)) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret44, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp45, atstkind_t0ype(atstyvar_type(tk))) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12085(line=625, offs=1) -- 12139(line=626, offs=42) +*/ +ATSINSflab(__patsflab_gt_g0int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12126(line=626, offs=29) -- 12137(line=626, offs=40) +*/ +ATSINSmove(tmp45, PMVtmpltcst(g0int2int)(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12109(line=626, offs=12) -- 12139(line=626, offs=42) +*/ +ATSINSmove(tmpret44, PMVtmpltcst(g0int_gt)(arg0, tmp45)) ; + +ATSfunbody_end() +ATSreturn(tmpret44) ; +} /* end of [ATSLIB_056_prelude__gt_g0int_int__25] */ +#endif // end of [TEMPLATE] + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 12100(line=626, offs=3) -- 12139(line=626, offs=42) +*/ +/* +local: +global: gt_g0int_int$25$1(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4632) +tmparg = S2Evar(tk(4632)) +tmpsub = Some(tk(4632) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__gt_g0int_int__25__1(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret44__1, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp45__1, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12085(line=625, offs=1) -- 12139(line=626, offs=42) +*/ +ATSINSflab(__patsflab_gt_g0int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12126(line=626, offs=29) -- 12137(line=626, offs=40) +*/ +ATSINSmove(tmp45__1, atspre_g0int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12109(line=626, offs=12) -- 12139(line=626, offs=42) +*/ +ATSINSmove(tmpret44__1, atspre_g0int_gt_int(arg0, tmp45__1)) ; + +ATSfunbody_end() +ATSreturn(tmpret44__1) ; +} /* end of [ATSLIB_056_prelude__gt_g0int_int__25__1] */ + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 12679(line=659, offs=3) -- 12718(line=659, offs=42) +*/ +/* +local: +global: gt_g1int_int$4$2(level=1) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4643) +tmparg = S2Evar(tk(4643)) +tmpsub = Some(tk(4643) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__gt_g1int_int__4__2(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret8__2, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp9__2, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12664(line=658, offs=1) -- 12718(line=659, offs=42) +*/ +ATSINSflab(__patsflab_gt_g1int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12705(line=659, offs=29) -- 12716(line=659, offs=40) +*/ +ATSINSmove(tmp9__2, atspre_g1int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12688(line=659, offs=12) -- 12718(line=659, offs=42) +*/ +ATSINSmove(tmpret8__2, atspre_g1int_gt_int(arg0, tmp9__2)) ; + +ATSfunbody_end() +ATSreturn(tmpret8__2) ; +} /* end of [ATSLIB_056_prelude__gt_g1int_int__4__2] */ + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) +*/ +/* +local: +global: eq_g0int_int$10$2(level=1) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4634) +tmparg = S2Evar(tk(4634)) +tmpsub = Some(tk(4634) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__10__2(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret15__2, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp16__2, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) +*/ +ATSINSflab(__patsflab_eq_g0int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) +*/ +ATSINSmove(tmp16__2, atspre_g0int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) +*/ +ATSINSmove(tmpret15__2, atspre_g0int_eq_int(arg0, tmp16__2)) ; + +ATSfunbody_end() +ATSreturn(tmpret15__2) ; +} /* end of [ATSLIB_056_prelude__eq_g0int_int__10__2] */ + +#if(0) +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4581(line=236, offs=3) -- 4665(line=240, offs=2) +*/ +/* +local: +global: square_intinf0$30$0(level=0) +local: +global: +*/ +ATSextern() +/* +imparg = +tmparg = +tmpsub = None() +*/ +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__square_intinf0__30(atstkind_type(atstype_ptrk) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret57, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp58, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp59) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4564(line=235, offs=1) -- 4665(line=240, offs=2) +*/ +ATSINSflab(__patsflab_square_intinf0): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4587(line=236, offs=9) -- 4665(line=240, offs=2) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4611(line=238, offs=13) -- 4627(line=238, offs=29) +*/ +ATSINSmove(tmp58, PMVtmpltcst(square_intinf1<>)(ATSPMVrefarg0(arg0))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4649(line=239, offs=21) -- 4662(line=239, offs=34) +*/ +ATSINSmove_void(tmp59, PMVtmpltcst(intinf_free<>)(arg0)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4587(line=236, offs=9) -- 4590(line=236, offs=12) +*/ +ATSINSmove(tmpret57, tmp58) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4587(line=236, offs=9) -- 4665(line=240, offs=2) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret57) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__square_intinf0__30] */ +#endif // end of [TEMPLATE] + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4581(line=236, offs=3) -- 4665(line=240, offs=2) +*/ +/* +local: +global: square_intinf0$30$1(level=1) +local: +global: +*/ +ATSstatic() +/* +imparg = +tmparg = +tmpsub = Some() +*/ +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__square_intinf0__30__1(atstkind_type(atstype_ptrk) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret57__1, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp58__1, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp59__1) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4564(line=235, offs=1) -- 4665(line=240, offs=2) +*/ +ATSINSflab(__patsflab_square_intinf0): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4587(line=236, offs=9) -- 4665(line=240, offs=2) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4611(line=238, offs=13) -- 4627(line=238, offs=29) +*/ +ATSINSmove(tmp58__1, ATSCNTRB_056_HX_056_intinf_vt__square_intinf1__32__1(ATSPMVrefarg0(arg0))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4649(line=239, offs=21) -- 4662(line=239, offs=34) +*/ +ATSINSmove_void(tmp59__1, ATSCNTRB_056_HX_056_intinf_vt__intinf_free__35__1(arg0)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4587(line=236, offs=9) -- 4590(line=236, offs=12) +*/ +ATSINSmove(tmpret57__1, tmp58__1) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4587(line=236, offs=9) -- 4665(line=240, offs=2) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret57__1) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__square_intinf0__30__1] */ + +#if(0) +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4755(line=247, offs=3) -- 4900(line=256, offs=2) +*/ +/* +local: +global: square_intinf1$32$0(level=0) +local: +global: +*/ +ATSextern() +/* +imparg = +tmparg = +tmpsub = None() +*/ +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__square_intinf1__32(atsrefarg0_type(atstkind_type(atstype_ptrk)) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret63, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp64, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp65) ; +// ATStmpdec_void(tmp66) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4738(line=246, offs=1) -- 4900(line=256, offs=2) +*/ +ATSINSflab(__patsflab_square_intinf1): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4761(line=247, offs=9) -- 4900(line=256, offs=2) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4784(line=250, offs=9) -- 4800(line=250, offs=25) +*/ +ATSINSmove(tmp64, PMVtmpltcst(ptr_alloc)()) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4812(line=252, offs=3) -- 4849(line=252, offs=40) +*/ +ATSINSmove_void(tmp65, atscntrb_gmp_mpz_init_set_mpz(ATSPMVrefarg1(ATSSELrecsin(tmp64, atstkind_type(atstype_ptrk), atslab__2)), ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4862(line=254, offs=10) -- 4895(line=254, offs=43) +*/ +ATSINSmove_void(tmp66, atscntrb_gmp_mpz_mul2_mpz(ATSPMVrefarg1(ATSSELrecsin(tmp64, atstkind_type(atstype_ptrk), atslab__2)), ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)))) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4762(line=247, offs=10) -- 4763(line=247, offs=11) +*/ +ATSINSmove(tmpret63, tmp64) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4761(line=247, offs=9) -- 4900(line=256, offs=2) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret63) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__square_intinf1__32] */ +#endif // end of [TEMPLATE] + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4755(line=247, offs=3) -- 4900(line=256, offs=2) +*/ +/* +local: +global: square_intinf1$32$1(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = +tmparg = +tmpsub = Some() +*/ +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__square_intinf1__32__1(atsrefarg0_type(atstkind_type(atstype_ptrk)) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret63__1, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp64__1, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp65__1) ; +// ATStmpdec_void(tmp66__1) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4738(line=246, offs=1) -- 4900(line=256, offs=2) +*/ +ATSINSflab(__patsflab_square_intinf1): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4761(line=247, offs=9) -- 4900(line=256, offs=2) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4784(line=250, offs=9) -- 4800(line=250, offs=25) +*/ +ATSINSmove(tmp64__1, ATSLIB_056_prelude__ptr_alloc__1__2()) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4812(line=252, offs=3) -- 4849(line=252, offs=40) +*/ +ATSINSmove_void(tmp65__1, atscntrb_gmp_mpz_init_set_mpz(ATSPMVrefarg1(ATSSELrecsin(tmp64__1, atstkind_type(atstype_ptrk), atslab__2)), ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4862(line=254, offs=10) -- 4895(line=254, offs=43) +*/ +ATSINSmove_void(tmp66__1, atscntrb_gmp_mpz_mul2_mpz(ATSPMVrefarg1(ATSSELrecsin(tmp64__1, atstkind_type(atstype_ptrk), atslab__2)), ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)))) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4762(line=247, offs=10) -- 4763(line=247, offs=11) +*/ +ATSINSmove(tmpret63__1, tmp64__1) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4761(line=247, offs=9) -- 4900(line=256, offs=2) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret63__1) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__square_intinf1__32__1] */ + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42) +*/ +/* +local: +global: ptr_alloc$1$2(level=3) +local: +global: +*/ +ATSstatic() +/* +imparg = a(4746) +tmparg = S2Evar(a(4746)) +tmpsub = Some(a(4746) -> S2Ecst(mpz_vt0ype)) +*/ +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__1__2() +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret2__2, atstkind_type(atstype_ptrk)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3708(line=184, offs=1) -- 3749(line=184, offs=42) +*/ +ATSINSflab(__patsflab_ptr_alloc): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42) +*/ +ATSINSmove(tmpret2__2, atspre_ptr_alloc_tsz(ATSPMVsizeof(atscntrb_gmp_mpz))) ; + +ATSfunbody_end() +ATSreturn(tmpret2__2) ; +} /* end of [ATSLIB_056_prelude__ptr_alloc__1__2] */ + +#if(0) +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2888(line=119, offs=12) -- 2987(line=122, offs=4) +*/ +/* +local: +global: intinf_free$35$0(level=0) +local: +global: +*/ +ATSextern() +/* +imparg = +tmparg = +tmpsub = None() +*/ +atsvoid_t0ype +ATSCNTRB_056_HX_056_intinf_vt__intinf_free__35(atstkind_type(atstype_ptrk) arg0) +{ +/* tmpvardeclst(beg) */ +// ATStmpdec_void(tmpret72) ; +// ATStmpdec_void(tmp73) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2877(line=119, offs=1) -- 2987(line=122, offs=4) +*/ +ATSINSflab(__patsflab_intinf_free): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2894(line=119, offs=18) -- 2987(line=122, offs=4) +*/ +/* +letpush(beg) +*/ +/* (*nothing*) */ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2936(line=121, offs=12) -- 2955(line=121, offs=31) +*/ +ATSINSmove_void(tmp73, atscntrb_gmp_mpz_clear(ATSPMVrefarg1(arg0))) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2959(line=121, offs=35) -- 2983(line=121, offs=59) +*/ +ATSINSmove_void(tmpret72, atspre_ptr_free(arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2894(line=119, offs=18) -- 2987(line=122, offs=4) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn_void(tmpret72) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_free__35] */ +#endif // end of [TEMPLATE] + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2888(line=119, offs=12) -- 2987(line=122, offs=4) +*/ +/* +local: +global: intinf_free$35$1(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = +tmparg = +tmpsub = Some() +*/ +atsvoid_t0ype +ATSCNTRB_056_HX_056_intinf_vt__intinf_free__35__1(atstkind_type(atstype_ptrk) arg0) +{ +/* tmpvardeclst(beg) */ +// ATStmpdec_void(tmpret72__1) ; +// ATStmpdec_void(tmp73__1) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2877(line=119, offs=1) -- 2987(line=122, offs=4) +*/ +ATSINSflab(__patsflab_intinf_free): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2894(line=119, offs=18) -- 2987(line=122, offs=4) +*/ +/* +letpush(beg) +*/ +/* (*nothing*) */ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2936(line=121, offs=12) -- 2955(line=121, offs=31) +*/ +ATSINSmove_void(tmp73__1, atscntrb_gmp_mpz_clear(ATSPMVrefarg1(arg0))) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2959(line=121, offs=35) -- 2983(line=121, offs=59) +*/ +ATSINSmove_void(tmpret72__1, atspre_ptr_free(arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2894(line=119, offs=18) -- 2987(line=122, offs=4) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn_void(tmpret72__1) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_free__35__1] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4755(line=247, offs=3) -- 4900(line=256, offs=2) +*/ +/* +local: +global: square_intinf1$32$2(level=1) +local: +global: +*/ +ATSstatic() +/* +imparg = +tmparg = +tmpsub = Some() +*/ +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__square_intinf1__32__2(atsrefarg0_type(atstkind_type(atstype_ptrk)) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret63__2, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp64__2, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp65__2) ; +// ATStmpdec_void(tmp66__2) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4738(line=246, offs=1) -- 4900(line=256, offs=2) +*/ +ATSINSflab(__patsflab_square_intinf1): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4761(line=247, offs=9) -- 4900(line=256, offs=2) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4784(line=250, offs=9) -- 4800(line=250, offs=25) +*/ +ATSINSmove(tmp64__2, ATSLIB_056_prelude__ptr_alloc__1__3()) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4812(line=252, offs=3) -- 4849(line=252, offs=40) +*/ +ATSINSmove_void(tmp65__2, atscntrb_gmp_mpz_init_set_mpz(ATSPMVrefarg1(ATSSELrecsin(tmp64__2, atstkind_type(atstype_ptrk), atslab__2)), ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4862(line=254, offs=10) -- 4895(line=254, offs=43) +*/ +ATSINSmove_void(tmp66__2, atscntrb_gmp_mpz_mul2_mpz(ATSPMVrefarg1(ATSSELrecsin(tmp64__2, atstkind_type(atstype_ptrk), atslab__2)), ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)))) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4762(line=247, offs=10) -- 4763(line=247, offs=11) +*/ +ATSINSmove(tmpret63__2, tmp64__2) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4761(line=247, offs=9) -- 4900(line=256, offs=2) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret63__2) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__square_intinf1__32__2] */ + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42) +*/ +/* +local: +global: ptr_alloc$1$3(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = a(4746) +tmparg = S2Evar(a(4746)) +tmpsub = Some(a(4746) -> S2Ecst(mpz_vt0ype)) +*/ +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__1__3() +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret2__3, atstkind_type(atstype_ptrk)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3708(line=184, offs=1) -- 3749(line=184, offs=42) +*/ +ATSINSflab(__patsflab_ptr_alloc): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42) +*/ +ATSINSmove(tmpret2__3, atspre_ptr_alloc_tsz(ATSPMVsizeof(atscntrb_gmp_mpz))) ; + +ATSfunbody_end() +ATSreturn(tmpret2__3) ; +} /* end of [ATSLIB_056_prelude__ptr_alloc__1__3] */ + +#if(0) +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7761(line=437, offs=3) -- 7833(line=442, offs=2) +*/ +/* +local: +global: mul_intinf0_intinf1$39$0(level=0) +local: +global: +*/ +ATSextern() +/* +imparg = +tmparg = +tmpsub = None() +*/ +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_intinf1__39(atstkind_type(atstype_ptrk) arg0, atsrefarg0_type(atstkind_type(atstype_ptrk)) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret84, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp85) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7739(line=436, offs=1) -- 7833(line=442, offs=2) +*/ +ATSINSflab(__patsflab_mul_intinf0_intinf1): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7770(line=437, offs=12) -- 7833(line=442, offs=2) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7794(line=440, offs=10) -- 7828(line=440, offs=44) +*/ +ATSINSmove_void(tmp85, atscntrb_gmp_mpz_mul2_mpz(ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), ATSPMVrefarg1(ATSSELrecsin(arg1, atstkind_type(atstype_ptrk), atslab__2)))) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7771(line=437, offs=13) -- 7772(line=437, offs=14) +*/ +ATSINSmove(tmpret84, arg0) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7770(line=437, offs=12) -- 7833(line=442, offs=2) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret84) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_intinf1__39] */ +#endif // end of [TEMPLATE] + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7761(line=437, offs=3) -- 7833(line=442, offs=2) +*/ +/* +local: +global: mul_intinf0_intinf1$39$1(level=1) +local: +global: +*/ +ATSstatic() +/* +imparg = +tmparg = +tmpsub = Some() +*/ +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_intinf1__39__1(atstkind_type(atstype_ptrk) arg0, atsrefarg0_type(atstkind_type(atstype_ptrk)) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret84__1, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp85__1) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7739(line=436, offs=1) -- 7833(line=442, offs=2) +*/ +ATSINSflab(__patsflab_mul_intinf0_intinf1): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7770(line=437, offs=12) -- 7833(line=442, offs=2) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7794(line=440, offs=10) -- 7828(line=440, offs=44) +*/ +ATSINSmove_void(tmp85__1, atscntrb_gmp_mpz_mul2_mpz(ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), ATSPMVrefarg1(ATSSELrecsin(arg1, atstkind_type(atstype_ptrk), atslab__2)))) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7771(line=437, offs=13) -- 7772(line=437, offs=14) +*/ +ATSINSmove(tmpret84__1, arg0) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7770(line=437, offs=12) -- 7833(line=442, offs=2) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret84__1) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_intinf1__39__1] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2888(line=119, offs=12) -- 2987(line=122, offs=4) +*/ +/* +local: +global: intinf_free$35$2(level=1) +local: +global: +*/ +ATSstatic() +/* +imparg = +tmparg = +tmpsub = Some() +*/ +atsvoid_t0ype +ATSCNTRB_056_HX_056_intinf_vt__intinf_free__35__2(atstkind_type(atstype_ptrk) arg0) +{ +/* tmpvardeclst(beg) */ +// ATStmpdec_void(tmpret72__2) ; +// ATStmpdec_void(tmp73__2) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2877(line=119, offs=1) -- 2987(line=122, offs=4) +*/ +ATSINSflab(__patsflab_intinf_free): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2894(line=119, offs=18) -- 2987(line=122, offs=4) +*/ +/* +letpush(beg) +*/ +/* (*nothing*) */ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2936(line=121, offs=12) -- 2955(line=121, offs=31) +*/ +ATSINSmove_void(tmp73__2, atscntrb_gmp_mpz_clear(ATSPMVrefarg1(arg0))) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2959(line=121, offs=35) -- 2983(line=121, offs=59) +*/ +ATSINSmove_void(tmpret72__2, atspre_ptr_free(arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2894(line=119, offs=18) -- 2987(line=122, offs=4) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn_void(tmpret72__2) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_free__35__2] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2888(line=119, offs=12) -- 2987(line=122, offs=4) +*/ +/* +local: +global: intinf_free$35$3(level=1) +local: +global: +*/ +ATSstatic() +/* +imparg = +tmparg = +tmpsub = Some() +*/ +atsvoid_t0ype +ATSCNTRB_056_HX_056_intinf_vt__intinf_free__35__3(atstkind_type(atstype_ptrk) arg0) +{ +/* tmpvardeclst(beg) */ +// ATStmpdec_void(tmpret72__3) ; +// ATStmpdec_void(tmp73__3) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2877(line=119, offs=1) -- 2987(line=122, offs=4) +*/ +ATSINSflab(__patsflab_intinf_free): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2894(line=119, offs=18) -- 2987(line=122, offs=4) +*/ +/* +letpush(beg) +*/ +/* (*nothing*) */ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2936(line=121, offs=12) -- 2955(line=121, offs=31) +*/ +ATSINSmove_void(tmp73__3, atscntrb_gmp_mpz_clear(ATSPMVrefarg1(arg0))) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2959(line=121, offs=35) -- 2983(line=121, offs=59) +*/ +ATSINSmove_void(tmpret72__3, atspre_ptr_free(arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2894(line=119, offs=18) -- 2987(line=122, offs=4) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn_void(tmpret72__3) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_free__35__3] */ + +#if(0) +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2209(line=74, offs=3) -- 2301(line=80, offs=2) +*/ +/* +local: +global: intinf_make_int$43$0(level=0) +local: +global: +*/ +ATSextern() +/* +imparg = +tmparg = +tmpsub = None() +*/ +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__43(atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret94, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp95, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp96) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2191(line=73, offs=1) -- 2301(line=80, offs=2) +*/ +ATSINSflab(__patsflab_intinf_make_int): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2238(line=77, offs=9) -- 2254(line=77, offs=25) +*/ +ATSINSmove(tmp95, PMVtmpltcst(ptr_alloc)()) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2264(line=78, offs=10) -- 2296(line=78, offs=42) +*/ +ATSINSmove_void(tmp96, atscntrb_gmp_mpz_init_set_int(ATSPMVrefarg1(ATSSELrecsin(tmp95, atstkind_type(atstype_ptrk), atslab__2)), arg0)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2216(line=74, offs=10) -- 2217(line=74, offs=11) +*/ +ATSINSmove(tmpret94, tmp95) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret94) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__43] */ +#endif // end of [TEMPLATE] + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2209(line=74, offs=3) -- 2301(line=80, offs=2) +*/ +/* +local: +global: intinf_make_int$43$1(level=1) +local: +global: +*/ +ATSstatic() +/* +imparg = +tmparg = +tmpsub = Some() +*/ +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__43__1(atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret94__1, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp95__1, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp96__1) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2191(line=73, offs=1) -- 2301(line=80, offs=2) +*/ +ATSINSflab(__patsflab_intinf_make_int): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2238(line=77, offs=9) -- 2254(line=77, offs=25) +*/ +ATSINSmove(tmp95__1, ATSLIB_056_prelude__ptr_alloc__1__4()) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2264(line=78, offs=10) -- 2296(line=78, offs=42) +*/ +ATSINSmove_void(tmp96__1, atscntrb_gmp_mpz_init_set_int(ATSPMVrefarg1(ATSSELrecsin(tmp95__1, atstkind_type(atstype_ptrk), atslab__2)), arg0)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2216(line=74, offs=10) -- 2217(line=74, offs=11) +*/ +ATSINSmove(tmpret94__1, tmp95__1) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret94__1) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__43__1] */ + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42) +*/ +/* +local: +global: ptr_alloc$1$4(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = a(4746) +tmparg = S2Evar(a(4746)) +tmpsub = Some(a(4746) -> S2Ecst(mpz_vt0ype)) +*/ +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__1__4() +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret2__4, atstkind_type(atstype_ptrk)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3708(line=184, offs=1) -- 3749(line=184, offs=42) +*/ +ATSINSflab(__patsflab_ptr_alloc): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42) +*/ +ATSINSmove(tmpret2__4, atspre_ptr_alloc_tsz(ATSPMVsizeof(atscntrb_gmp_mpz))) ; + +ATSfunbody_end() +ATSreturn(tmpret2__4) ; +} /* end of [ATSLIB_056_prelude__ptr_alloc__1__4] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1895(line=77, offs=4) -- 2042(line=82, offs=6) +*/ +/* +local: +global: sqrt_int_46$0(level=0) +local: +global: +*/ +ATSstatic() +atstkind_t0ype(atstype_int) +sqrt_int_46(atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret101, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmpref102, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp103, atstkind_t0ype(atstype_double)) ; +ATStmpdec(tmp104, atstkind_t0ype(atstype_double)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1895(line=77, offs=4) -- 2042(line=82, offs=6) +*/ +ATSINSflab(__patsflab_sqrt_int_46): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1941(line=78, offs=3) -- 2042(line=82, offs=6) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1953(line=79, offs=9) -- 1958(line=79, offs=14) +*/ +/* +ATSINStmpdec(tmpref102) ; +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1985(line=79, offs=41) -- 2009(line=79, offs=65) +*/ +ATSINSmove(tmp104, atspre_g0int2float_int_double(arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1973(line=79, offs=29) -- 2011(line=79, offs=67) +*/ +ATSINSmove(tmp103, atslib_libats_libc_sqrt_double(tmp104)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1961(line=79, offs=17) -- 2012(line=79, offs=68) +*/ +ATSINSmove(tmpref102, atspre_g0float2int_double_int(tmp103)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2022(line=81, offs=5) -- 2035(line=81, offs=18) +*/ +ATSINSmove(tmpret101, ATSPMVcastfn(witness, atstkind_t0ype(atstype_int), tmpref102)) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1941(line=78, offs=3) -- 2042(line=82, offs=6) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret101) ; +} /* end of [sqrt_int_46] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2078(line=85, offs=4) -- 2659(line=108, offs=10) +*/ +/* +local: sqrt_int_46$0(level=0) +global: sqrt_int_46$0(level=0), is_prime_48$0(level=0) +local: +global: +*/ +ATSstatic() +atstkind_t0ype(atstype_bool) +is_prime_48(atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret105, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp124, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2078(line=85, offs=4) -- 2659(line=108, offs=10) +*/ +ATSINSflab(__patsflab_is_prime_48): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2114(line=86, offs=3) -- 2659(line=108, offs=10) +*/ +ATScaseof_beg() +/* +** ibranchlst-beg +*/ +ATSbranch_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2131(line=87, offs=7) -- 2132(line=87, offs=8) +*/ +ATSINSlab(__atstmplab3): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2087(line=85, offs=13) -- 2088(line=85, offs=14) +*/ +ATSifnthen(ATSCKpat_int(arg0, ATSPMVint(1))) { ATSINSgoto(__atstmplab5) ; } ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2132(line=87, offs=8) -- 2132(line=87, offs=8) +*/ +ATSINSlab(__atstmplab4): +/* +emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) +*/ +/* +ibranch-mbody: +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2136(line=87, offs=12) -- 2141(line=87, offs=17) +*/ +ATSINSmove(tmpret105, ATSPMVbool_false()) ; +ATSbranch_end() + +ATSbranch_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2149(line=88, offs=8) -- 2149(line=88, offs=8) +*/ +ATSINSlab(__atstmplab5): +/* +emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) +*/ +/* +ibranch-mbody: +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2174(line=90, offs=9) -- 2649(line=107, offs=12) +*/ +/* +letpush(beg) +*/ +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2625(line=106, offs=19) -- 2635(line=106, offs=29) +*/ +ATSINSmove(tmp124, sqrt_int_46(arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2617(line=106, offs=11) -- 2637(line=106, offs=31) +*/ +ATSINSmove(tmpret105, loop_49(arg0, ATSPMVi0nt(2), tmp124)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2174(line=90, offs=9) -- 2649(line=107, offs=12) +*/ +/* +INSletpop() +*/ +ATSbranch_end() + +/* +** ibranchlst-end +*/ +ATScaseof_end() + +ATSfunbody_end() +ATSreturn(tmpret105) ; +} /* end of [is_prime_48] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2192(line=91, offs=15) -- 2595(line=104, offs=21) +*/ +/* +local: loop_49$0(level=1) +global: loop_49$0(level=1) +local: k$5122(1)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))) +global: k$5122(1)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))) +*/ +ATSstatic() +atstkind_t0ype(atstype_bool) +loop_49(atstkind_t0ype(atstype_int) env0, atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(apy0, atstkind_t0ype(atstype_int)) ; +ATStmpdec(apy1, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmpret106, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp107, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp112, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp115, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp116, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp117, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp120, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp123, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2192(line=91, offs=15) -- 2595(line=104, offs=21) +*/ +ATSINSflab(__patsflab_loop_49): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2282(line=92, offs=16) -- 2291(line=92, offs=25) +*/ +ATSINSmove(tmp107, ATSLIB_056_prelude__lt_g1int_int__50__1(arg0, arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2279(line=92, offs=13) -- 2595(line=104, offs=21) +*/ +ATSif( +tmp107 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2314(line=93, offs=18) -- 2319(line=93, offs=23) +*/ +ATSINSmove(tmp115, atspre_g0int_mod_int(env0, arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2314(line=93, offs=18) -- 2323(line=93, offs=27) +*/ +ATSINSmove(tmp112, ATSLIB_056_prelude__eq_g0int_int__10__3(tmp115, ATSPMVi0nt(0))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2311(line=93, offs=15) -- 2404(line=96, offs=35) +*/ +ATSif( +tmp112 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2345(line=94, offs=17) -- 2350(line=94, offs=22) +*/ +ATSINSmove(tmpret106, ATSPMVbool_false()) ; +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2391(line=96, offs=22) -- 2396(line=96, offs=27) +*/ +ATSINSmove(tmp116, atspre_g1int_add_int(arg0, ATSPMVi0nt(1))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2386(line=96, offs=17) -- 2404(line=96, offs=35) +*/ +ATStailcal_beg() +ATSINSmove_tlcal(apy0, tmp116) ; +ATSINSmove_tlcal(apy1, arg1) ; +ATSINSargmove_tlcal(arg0, apy0) ; +ATSINSargmove_tlcal(arg1, apy1) ; +ATSINSfgoto(__patsflab_loop_49) ; +ATStailcal_end() + +} /* ATSendif */ +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2439(line=98, offs=18) -- 2448(line=98, offs=27) +*/ +ATSINSmove(tmp117, ATSLIB_056_prelude__eq_g1int_int__16__2(arg0, arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2436(line=98, offs=15) -- 2595(line=104, offs=21) +*/ +ATSif( +tmp117 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2473(line=99, offs=20) -- 2478(line=99, offs=25) +*/ +ATSINSmove(tmp123, atspre_g0int_mod_int(env0, arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2473(line=99, offs=20) -- 2482(line=99, offs=29) +*/ +ATSINSmove(tmp120, ATSLIB_056_prelude__eq_g0int_int__10__4(tmp123, ATSPMVi0nt(0))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2470(line=99, offs=17) -- 2555(line=102, offs=23) +*/ +ATSif( +tmp120 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2506(line=100, offs=19) -- 2511(line=100, offs=24) +*/ +ATSINSmove(tmpret106, ATSPMVbool_false()) ; +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2551(line=102, offs=19) -- 2555(line=102, offs=23) +*/ +ATSINSmove(tmpret106, ATSPMVbool_true()) ; +} /* ATSendif */ +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2591(line=104, offs=17) -- 2595(line=104, offs=21) +*/ +ATSINSmove(tmpret106, ATSPMVbool_true()) ; +} /* ATSendif */ +} /* ATSendif */ +ATSfunbody_end() +ATSreturn(tmpret106) ; +} /* end of [loop_49] */ + +#if(0) +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 12520(line=650, offs=3) -- 12559(line=650, offs=42) +*/ +/* +local: +global: lt_g1int_int$50$0(level=0) +local: +global: +*/ +ATSextern() +/* +imparg = tk(4637) +tmparg = S2Evar(tk(4637)) +tmpsub = None() +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__lt_g1int_int__50(atstkind_t0ype(atstyvar_type(tk)) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret108, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp109, atstkind_t0ype(atstyvar_type(tk))) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12505(line=649, offs=1) -- 12559(line=650, offs=42) +*/ +ATSINSflab(__patsflab_lt_g1int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12546(line=650, offs=29) -- 12557(line=650, offs=40) +*/ +ATSINSmove(tmp109, PMVtmpltcst(g1int2int)(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12529(line=650, offs=12) -- 12559(line=650, offs=42) +*/ +ATSINSmove(tmpret108, PMVtmpltcst(g1int_lt)(arg0, tmp109)) ; + +ATSfunbody_end() +ATSreturn(tmpret108) ; +} /* end of [ATSLIB_056_prelude__lt_g1int_int__50] */ +#endif // end of [TEMPLATE] + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 12520(line=650, offs=3) -- 12559(line=650, offs=42) +*/ +/* +local: +global: lt_g1int_int$50$1(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4637) +tmparg = S2Evar(tk(4637)) +tmpsub = Some(tk(4637) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__lt_g1int_int__50__1(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret108__1, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp109__1, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12505(line=649, offs=1) -- 12559(line=650, offs=42) +*/ +ATSINSflab(__patsflab_lt_g1int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12546(line=650, offs=29) -- 12557(line=650, offs=40) +*/ +ATSINSmove(tmp109__1, atspre_g1int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12529(line=650, offs=12) -- 12559(line=650, offs=42) +*/ +ATSINSmove(tmpret108__1, atspre_g1int_lt_int(arg0, tmp109__1)) ; + +ATSfunbody_end() +ATSreturn(tmpret108__1) ; +} /* end of [ATSLIB_056_prelude__lt_g1int_int__50__1] */ + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) +*/ +/* +local: +global: eq_g0int_int$10$3(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4634) +tmparg = S2Evar(tk(4634)) +tmpsub = Some(tk(4634) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__10__3(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret15__3, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp16__3, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) +*/ +ATSINSflab(__patsflab_eq_g0int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) +*/ +ATSINSmove(tmp16__3, atspre_g0int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) +*/ +ATSINSmove(tmpret15__3, atspre_g0int_eq_int(arg0, tmp16__3)) ; + +ATSfunbody_end() +ATSreturn(tmpret15__3) ; +} /* end of [ATSLIB_056_prelude__eq_g0int_int__10__3] */ + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 12838(line=668, offs=3) -- 12877(line=668, offs=42) +*/ +/* +local: +global: eq_g1int_int$16$2(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4649) +tmparg = S2Evar(tk(4649)) +tmpsub = Some(tk(4649) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g1int_int__16__2(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret25__2, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp26__2, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12823(line=667, offs=1) -- 12877(line=668, offs=42) +*/ +ATSINSflab(__patsflab_eq_g1int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12864(line=668, offs=29) -- 12875(line=668, offs=40) +*/ +ATSINSmove(tmp26__2, atspre_g1int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12847(line=668, offs=12) -- 12877(line=668, offs=42) +*/ +ATSINSmove(tmpret25__2, atspre_g1int_eq_int(arg0, tmp26__2)) ; + +ATSfunbody_end() +ATSreturn(tmpret25__2) ; +} /* end of [ATSLIB_056_prelude__eq_g1int_int__16__2] */ + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) +*/ +/* +local: +global: eq_g0int_int$10$4(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4634) +tmparg = S2Evar(tk(4634)) +tmpsub = Some(tk(4634) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__10__4(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret15__4, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp16__4, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) +*/ +ATSINSflab(__patsflab_eq_g0int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) +*/ +ATSINSmove(tmp16__4, atspre_g0int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) +*/ +ATSINSmove(tmpret15__4, atspre_g0int_eq_int(arg0, tmp16__4)) ; + +ATSfunbody_end() +ATSreturn(tmpret15__4) ; +} /* end of [ATSLIB_056_prelude__eq_g0int_int__10__4] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2664(line=110, offs=4) -- 3475(line=139, offs=10) +*/ +/* +local: sqrt_int_46$0(level=0), is_prime_48$0(level=0) +global: sqrt_int_46$0(level=0), is_prime_48$0(level=0), is_semiprime_57$0(level=0) +local: +global: +*/ +ATSstatic() +atstkind_t0ype(atstype_bool) +is_semiprime_57(atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret125, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp146, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2664(line=110, offs=4) -- 3475(line=139, offs=10) +*/ +ATSINSflab(__patsflab_is_semiprime_57): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2704(line=111, offs=3) -- 3475(line=139, offs=10) +*/ +ATScaseof_beg() +/* +** ibranchlst-beg +*/ +ATSbranch_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2721(line=112, offs=7) -- 2722(line=112, offs=8) +*/ +ATSINSlab(__atstmplab6): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2677(line=110, offs=17) -- 2678(line=110, offs=18) +*/ +ATSifnthen(ATSCKpat_int(arg0, ATSPMVint(1))) { ATSINSgoto(__atstmplab8) ; } ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2722(line=112, offs=8) -- 2722(line=112, offs=8) +*/ +ATSINSlab(__atstmplab7): +/* +emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) +*/ +/* +ibranch-mbody: +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2726(line=112, offs=12) -- 2731(line=112, offs=17) +*/ +ATSINSmove(tmpret125, ATSPMVbool_false()) ; +ATSbranch_end() + +ATSbranch_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2739(line=113, offs=8) -- 2739(line=113, offs=8) +*/ +ATSINSlab(__atstmplab8): +/* +emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) +*/ +/* +ibranch-mbody: +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2764(line=115, offs=9) -- 3465(line=138, offs=12) +*/ +/* +letpush(beg) +*/ +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 3441(line=137, offs=19) -- 3451(line=137, offs=29) +*/ +ATSINSmove(tmp146, sqrt_int_46(arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 3433(line=137, offs=11) -- 3453(line=137, offs=31) +*/ +ATSINSmove(tmpret125, loop_58(arg0, ATSPMVi0nt(2), tmp146)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2764(line=115, offs=9) -- 3465(line=138, offs=12) +*/ +/* +INSletpop() +*/ +ATSbranch_end() + +/* +** ibranchlst-end +*/ +ATScaseof_end() + +ATSfunbody_end() +ATSreturn(tmpret125) ; +} /* end of [is_semiprime_57] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2782(line=116, offs=15) -- 3411(line=135, offs=22) +*/ +/* +local: is_prime_48$0(level=0), loop_58$0(level=1) +global: is_prime_48$0(level=0), loop_58$0(level=1) +local: k$5128(1)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))) +global: k$5128(1)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))) +*/ +ATSstatic() +atstkind_t0ype(atstype_bool) +loop_58(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(tmpret126, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp127, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp130, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp133, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp134, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp135, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp136, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp137, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp140, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp143, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp144, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp145, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2782(line=116, offs=15) -- 3411(line=135, offs=22) +*/ +ATSINSflab(__patsflab_loop_58): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2884(line=117, offs=16) -- 2893(line=117, offs=25) +*/ +ATSINSmove(tmp127, ATSLIB_056_prelude__lt_g1int_int__50__2(arg0, arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2881(line=117, offs=13) -- 3411(line=135, offs=22) +*/ +ATSif( +tmp127 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2916(line=118, offs=18) -- 2921(line=118, offs=23) +*/ +ATSINSmove(tmp133, atspre_g0int_mod_int(env0, arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2916(line=118, offs=18) -- 2925(line=118, offs=27) +*/ +ATSINSmove(tmp130, ATSLIB_056_prelude__eq_g0int_int__10__5(tmp133, ATSPMVi0nt(0))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2913(line=118, offs=15) -- 3109(line=124, offs=35) +*/ +ATSif( +tmp130 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2950(line=119, offs=20) -- 2960(line=119, offs=30) +*/ +ATSINSmove(tmp134, is_prime_48(arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2947(line=119, offs=17) -- 3055(line=122, offs=24) +*/ +ATSif( +tmp134 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 3003(line=120, offs=37) -- 3008(line=120, offs=42) +*/ +ATSINSmove(tmp135, atspre_g1int_div_int(env0, arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2985(line=120, offs=19) -- 3010(line=120, offs=44) +*/ +ATSINSmove(tmpret126, is_prime_48(ATSPMVcastfn(cast, atstkind_t0ype(atstype_int), tmp135))) ; + +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 3050(line=122, offs=19) -- 3055(line=122, offs=24) +*/ +ATSINSmove(tmpret126, ATSPMVbool_false()) ; +} /* ATSendif */ +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 3096(line=124, offs=22) -- 3101(line=124, offs=27) +*/ +ATSINSmove(tmp136, atspre_g1int_add_int(arg0, ATSPMVi0nt(1))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 3091(line=124, offs=17) -- 3109(line=124, offs=35) +*/ +ATStailcal_beg() +ATSINSmove_tlcal(apy0, tmp136) ; +ATSINSmove_tlcal(apy1, arg1) ; +ATSINSargmove_tlcal(arg0, apy0) ; +ATSINSargmove_tlcal(arg1, apy1) ; +ATSINSfgoto(__patsflab_loop_58) ; +ATStailcal_end() + +} /* ATSendif */ +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 3144(line=126, offs=18) -- 3153(line=126, offs=27) +*/ +ATSINSmove(tmp137, ATSLIB_056_prelude__eq_g1int_int__16__3(arg0, arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 3141(line=126, offs=15) -- 3411(line=135, offs=22) +*/ +ATSif( +tmp137 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 3178(line=127, offs=20) -- 3183(line=127, offs=25) +*/ +ATSINSmove(tmp143, atspre_g0int_mod_int(env0, arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 3178(line=127, offs=20) -- 3187(line=127, offs=29) +*/ +ATSINSmove(tmp140, ATSLIB_056_prelude__eq_g0int_int__10__6(tmp143, ATSPMVi0nt(0))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 3175(line=127, offs=17) -- 3370(line=133, offs=24) +*/ +ATSif( +tmp140 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 3214(line=128, offs=22) -- 3224(line=128, offs=32) +*/ +ATSINSmove(tmp144, is_prime_48(arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 3211(line=128, offs=19) -- 3325(line=131, offs=26) +*/ +ATSif( +tmp144 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 3269(line=129, offs=39) -- 3274(line=129, offs=44) +*/ +ATSINSmove(tmp145, atspre_g1int_div_int(env0, arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 3251(line=129, offs=21) -- 3276(line=129, offs=46) +*/ +ATSINSmove(tmpret126, is_prime_48(ATSPMVcastfn(cast, atstkind_t0ype(atstype_int), tmp145))) ; + +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 3320(line=131, offs=21) -- 3325(line=131, offs=26) +*/ +ATSINSmove(tmpret126, ATSPMVbool_false()) ; +} /* ATSendif */ +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 3365(line=133, offs=19) -- 3370(line=133, offs=24) +*/ +ATSINSmove(tmpret126, ATSPMVbool_false()) ; +} /* ATSendif */ +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 3406(line=135, offs=17) -- 3411(line=135, offs=22) +*/ +ATSINSmove(tmpret126, ATSPMVbool_false()) ; +} /* ATSendif */ +} /* ATSendif */ +ATSfunbody_end() +ATSreturn(tmpret126) ; +} /* end of [loop_58] */ + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 12520(line=650, offs=3) -- 12559(line=650, offs=42) +*/ +/* +local: +global: lt_g1int_int$50$2(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4637) +tmparg = S2Evar(tk(4637)) +tmpsub = Some(tk(4637) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__lt_g1int_int__50__2(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret108__2, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp109__2, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12505(line=649, offs=1) -- 12559(line=650, offs=42) +*/ +ATSINSflab(__patsflab_lt_g1int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12546(line=650, offs=29) -- 12557(line=650, offs=40) +*/ +ATSINSmove(tmp109__2, atspre_g1int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12529(line=650, offs=12) -- 12559(line=650, offs=42) +*/ +ATSINSmove(tmpret108__2, atspre_g1int_lt_int(arg0, tmp109__2)) ; + +ATSfunbody_end() +ATSreturn(tmpret108__2) ; +} /* end of [ATSLIB_056_prelude__lt_g1int_int__50__2] */ + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) +*/ +/* +local: +global: eq_g0int_int$10$5(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4634) +tmparg = S2Evar(tk(4634)) +tmpsub = Some(tk(4634) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__10__5(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret15__5, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp16__5, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) +*/ +ATSINSflab(__patsflab_eq_g0int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) +*/ +ATSINSmove(tmp16__5, atspre_g0int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) +*/ +ATSINSmove(tmpret15__5, atspre_g0int_eq_int(arg0, tmp16__5)) ; + +ATSfunbody_end() +ATSreturn(tmpret15__5) ; +} /* end of [ATSLIB_056_prelude__eq_g0int_int__10__5] */ + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 12838(line=668, offs=3) -- 12877(line=668, offs=42) +*/ +/* +local: +global: eq_g1int_int$16$3(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4649) +tmparg = S2Evar(tk(4649)) +tmpsub = Some(tk(4649) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g1int_int__16__3(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret25__3, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp26__3, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12823(line=667, offs=1) -- 12877(line=668, offs=42) +*/ +ATSINSflab(__patsflab_eq_g1int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12864(line=668, offs=29) -- 12875(line=668, offs=40) +*/ +ATSINSmove(tmp26__3, atspre_g1int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12847(line=668, offs=12) -- 12877(line=668, offs=42) +*/ +ATSINSmove(tmpret25__3, atspre_g1int_eq_int(arg0, tmp26__3)) ; + +ATSfunbody_end() +ATSreturn(tmpret25__3) ; +} /* end of [ATSLIB_056_prelude__eq_g1int_int__16__3] */ + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) +*/ +/* +local: +global: eq_g0int_int$10$6(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4634) +tmparg = S2Evar(tk(4634)) +tmpsub = Some(tk(4634) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__10__6(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret15__6, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp16__6, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) +*/ +ATSINSflab(__patsflab_eq_g0int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) +*/ +ATSINSmove(tmp16__6, atspre_g0int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) +*/ +ATSINSmove(tmpret15__6, atspre_g0int_eq_int(arg0, tmp16__6)) ; + +ATSfunbody_end() +ATSreturn(tmpret15__6) ; +} /* end of [ATSLIB_056_prelude__eq_g0int_int__10__6] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 451(line=14, offs=19) -- 471(line=15, offs=12) +*/ +/* +local: +global: divides$64$0(level=0) +local: +global: +*/ +ATSextern() +atstkind_t0ype(atstype_bool) +_057_home_057_vanessa_057_dev_057_haskell_057_fast_055_arithmetic_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_sats__divides(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret147, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp150, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 443(line=14, offs=11) -- 471(line=15, offs=12) +*/ +ATSINSflab(__patsflab_divides): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 462(line=15, offs=3) -- 467(line=15, offs=8) +*/ +ATSINSmove(tmp150, atspre_g0int_mod_int(arg1, arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 462(line=15, offs=3) -- 471(line=15, offs=12) +*/ +ATSINSmove(tmpret147, ATSLIB_056_prelude__eq_g0int_int__10__7(tmp150, ATSPMVi0nt(0))) ; + +ATSfunbody_end() +ATSreturn(tmpret147) ; +} /* end of [_057_home_057_vanessa_057_dev_057_haskell_057_fast_055_arithmetic_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_sats__divides] */ + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) +*/ +/* +local: +global: eq_g0int_int$10$7(level=1) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4634) +tmparg = S2Evar(tk(4634)) +tmpsub = Some(tk(4634) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__10__7(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret15__7, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp16__7, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) +*/ +ATSINSflab(__patsflab_eq_g0int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) +*/ +ATSINSmove(tmp16__7, atspre_g0int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) +*/ +ATSINSmove(tmpret15__7, atspre_g0int_eq_int(arg0, tmp16__7)) ; + +ATSfunbody_end() +ATSreturn(tmpret15__7) ; +} /* end of [ATSLIB_056_prelude__eq_g0int_int__10__7] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 487(line=17, offs=15) -- 552(line=21, offs=6) +*/ +/* +local: +global: gcd$66$0(level=0) +local: +global: +*/ +ATSextern() +atstkind_t0ype(atstype_int) +_057_home_057_vanessa_057_dev_057_haskell_057_fast_055_arithmetic_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_sats__gcd(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(apy0, atstkind_t0ype(atstype_int)) ; +ATStmpdec(apy1, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmpret151, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp152, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp157, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 483(line=17, offs=11) -- 552(line=21, offs=6) +*/ +ATSINSflab(__patsflab_gcd): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 501(line=18, offs=6) -- 507(line=18, offs=12) +*/ +ATSINSmove(tmp152, ATSLIB_056_prelude__neq_g1int_int__67__1(arg1, ATSPMVi0nt(0))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 498(line=18, offs=3) -- 552(line=21, offs=6) +*/ +ATSif( +tmp152 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 532(line=19, offs=20) -- 537(line=19, offs=25) +*/ +ATSINSmove(tmp157, atspre_g0int_mod_int(arg0, arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 517(line=19, offs=5) -- 539(line=19, offs=27) +*/ +ATStailcal_beg() +ATSINSmove_tlcal(apy0, arg1) ; +ATSINSmove_tlcal(apy1, ATSPMVcastfn(witness, atstkind_t0ype(atstype_int), tmp157)) ; +ATSINSargmove_tlcal(arg0, apy0) ; +ATSINSargmove_tlcal(arg1, apy1) ; +ATSINSfgoto(__patsflab_gcd) ; +ATStailcal_end() + +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 551(line=21, offs=5) -- 552(line=21, offs=6) +*/ +ATSINSmove(tmpret151, arg0) ; +} /* ATSendif */ +ATSfunbody_end() +ATSreturn(tmpret151) ; +} /* end of [_057_home_057_vanessa_057_dev_057_haskell_057_fast_055_arithmetic_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_sats__gcd] */ + +#if(0) +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 12916(line=672, offs=3) -- 12956(line=672, offs=43) +*/ +/* +local: +global: neq_g1int_int$67$0(level=0) +local: +global: +*/ +ATSextern() +/* +imparg = tk(4652) +tmparg = S2Evar(tk(4652)) +tmpsub = None() +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__neq_g1int_int__67(atstkind_t0ype(atstyvar_type(tk)) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret153, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp154, atstkind_t0ype(atstyvar_type(tk))) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12900(line=671, offs=1) -- 12956(line=672, offs=43) +*/ +ATSINSflab(__patsflab_neq_g1int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12943(line=672, offs=30) -- 12954(line=672, offs=41) +*/ +ATSINSmove(tmp154, PMVtmpltcst(g1int2int)(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12925(line=672, offs=12) -- 12956(line=672, offs=43) +*/ +ATSINSmove(tmpret153, PMVtmpltcst(g1int_neq)(arg0, tmp154)) ; + +ATSfunbody_end() +ATSreturn(tmpret153) ; +} /* end of [ATSLIB_056_prelude__neq_g1int_int__67] */ +#endif // end of [TEMPLATE] + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 12916(line=672, offs=3) -- 12956(line=672, offs=43) +*/ +/* +local: +global: neq_g1int_int$67$1(level=1) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4652) +tmparg = S2Evar(tk(4652)) +tmpsub = Some(tk(4652) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__neq_g1int_int__67__1(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret153__1, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp154__1, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12900(line=671, offs=1) -- 12956(line=672, offs=43) +*/ +ATSINSflab(__patsflab_neq_g1int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12943(line=672, offs=30) -- 12954(line=672, offs=41) +*/ +ATSINSmove(tmp154__1, atspre_g1int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12925(line=672, offs=12) -- 12956(line=672, offs=43) +*/ +ATSINSmove(tmpret153__1, atspre_g1int_neq_int(arg0, tmp154__1)) ; + +ATSfunbody_end() +ATSreturn(tmpret153__1) ; +} /* end of [ATSLIB_056_prelude__neq_g1int_int__67__1] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 568(line=23, offs=15) -- 598(line=24, offs=22) +*/ +/* +local: +global: lcm$70$0(level=0) +local: +global: +*/ +ATSextern() +atstkind_t0ype(atstype_int) +_057_home_057_vanessa_057_dev_057_haskell_057_fast_055_arithmetic_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_sats__lcm(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret158, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp159, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp160, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 564(line=23, offs=11) -- 598(line=24, offs=22) +*/ +ATSINSflab(__patsflab_lcm): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 584(line=24, offs=8) -- 593(line=24, offs=17) +*/ +ATSINSmove(tmp160, _057_home_057_vanessa_057_dev_057_haskell_057_fast_055_arithmetic_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_sats__gcd(arg0, arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 580(line=24, offs=4) -- 593(line=24, offs=17) +*/ +ATSINSmove(tmp159, atspre_g0int_div_int(arg0, tmp160)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 579(line=24, offs=3) -- 598(line=24, offs=22) +*/ +ATSINSmove(tmpret158, atspre_g0int_mul_int(tmp159, arg1)) ; + +ATSfunbody_end() +ATSreturn(tmpret158) ; +} /* end of [_057_home_057_vanessa_057_dev_057_haskell_057_fast_055_arithmetic_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_sats__lcm] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 618(line=26, offs=19) -- 642(line=27, offs=16) +*/ +/* +local: +global: coprime$72$0(level=0) +local: +global: +*/ +ATSextern() +atstkind_t0ype(atstype_bool) +_057_home_057_vanessa_057_dev_057_haskell_057_fast_055_arithmetic_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_sats__coprime(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret161, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp164, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 610(line=26, offs=11) -- 642(line=27, offs=16) +*/ +ATSINSflab(__patsflab_coprime): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 629(line=27, offs=3) -- 638(line=27, offs=12) +*/ +ATSINSmove(tmp164, _057_home_057_vanessa_057_dev_057_haskell_057_fast_055_arithmetic_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_sats__gcd(arg0, arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 629(line=27, offs=3) -- 642(line=27, offs=16) +*/ +ATSINSmove(tmpret161, ATSLIB_056_prelude__eq_g0int_int__10__8(tmp164, ATSPMVi0nt(1))) ; + +ATSfunbody_end() +ATSreturn(tmpret161) ; +} /* end of [_057_home_057_vanessa_057_dev_057_haskell_057_fast_055_arithmetic_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_sats__coprime] */ + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) +*/ +/* +local: +global: eq_g0int_int$10$8(level=1) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4634) +tmparg = S2Evar(tk(4634)) +tmpsub = Some(tk(4634) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__10__8(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret15__8, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp16__8, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) +*/ +ATSINSflab(__patsflab_eq_g0int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) +*/ +ATSINSmove(tmp16__8, atspre_g0int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) +*/ +ATSINSmove(tmpret15__8, atspre_g0int_eq_int(arg0, tmp16__8)) ; + +ATSfunbody_end() +ATSreturn(tmpret15__8) ; +} /* end of [ATSLIB_056_prelude__eq_g0int_int__10__8] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 663(line=29, offs=20) -- 1642(line=61, offs=8) +*/ +/* +local: sqrt_int_46$0(level=0) +global: sqrt_int_46$0(level=0), divisors$74$0(level=0) +local: +global: +*/ +ATSextern() +atstkind_type(atstype_ptrk) +_057_home_057_vanessa_057_dev_057_haskell_057_fast_055_arithmetic_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_sats__divisors(atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret165, atstkind_type(atstype_ptrk)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 654(line=29, offs=11) -- 1642(line=61, offs=8) +*/ +ATSINSflab(__patsflab_divisors): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 671(line=30, offs=3) -- 1642(line=61, offs=8) +*/ +ATScaseof_beg() +/* +** ibranchlst-beg +*/ +ATSbranch_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 688(line=31, offs=7) -- 689(line=31, offs=8) +*/ +ATSINSlab(__atstmplab9): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 664(line=29, offs=21) -- 665(line=29, offs=22) +*/ +ATSifnthen(ATSCKpat_int(arg0, ATSPMVint(1))) { ATSINSgoto(__atstmplab11) ; } ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 689(line=31, offs=8) -- 689(line=31, offs=8) +*/ +ATSINSlab(__atstmplab10): +/* +emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) +*/ +/* +ibranch-mbody: +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 693(line=31, offs=12) -- 743(line=31, offs=62) +*/ +ATSINSmove_ldelay(tmpret165, atstype_boxed, ATSPMVcfunlab(1, __patsfun_75, ())) ; +ATSbranch_end() + +ATSbranch_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 751(line=32, offs=8) -- 751(line=32, offs=8) +*/ +ATSINSlab(__atstmplab11): +/* +emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) +*/ +/* +ibranch-mbody: +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 755(line=32, offs=12) -- 1642(line=61, offs=8) +*/ +/* +letpush(beg) +*/ +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 1624(line=60, offs=7) -- 1634(line=60, offs=17) +*/ +ATSINSmove(tmpret165, loop_77(arg0, ATSPMVi0nt(1))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 755(line=32, offs=12) -- 1642(line=61, offs=8) +*/ +/* +INSletpop() +*/ +ATSbranch_end() + +/* +** ibranchlst-end +*/ +ATScaseof_end() + +ATSfunbody_end() +ATSreturn(tmpret165) ; +} /* end of [_057_home_057_vanessa_057_dev_057_haskell_057_fast_055_arithmetic_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_sats__divisors] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 693(line=31, offs=12) -- 743(line=31, offs=62) +*/ +/* +local: +global: __patsfun_75$0(level=1) +local: +global: +*/ +ATSstatic() +atstype_boxed +__patsfun_75(atstype_bool arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret166, atstype_boxed) ; +ATStmpdec(tmp167, atstkind_type(atstype_ptrk)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 693(line=31, offs=12) -- 743(line=31, offs=62) +*/ +ATSINSflab(__patsflab___patsfun_75): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 693(line=31, offs=12) -- 743(line=31, offs=62) +*/ +ATSif( +arg0 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 719(line=31, offs=38) -- 741(line=31, offs=60) +*/ +ATSINSmove_ldelay(tmp167, atstype_boxed, ATSPMVcfunlab(1, __patsfun_76, ())) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 701(line=31, offs=20) -- 742(line=31, offs=61) +*/ + +/* +#LINCONSTATUS==0 +*/ +ATSINSmove_con1_beg() +ATSINSmove_con1_new(tmpret166, postiats_tysum_1) ; +#if(0) +ATSINSstore_con1_tag(tmpret166, 1) ; +#endif +ATSINSstore_con1_ofs(tmpret166, postiats_tysum_1, atslab__0, ATSPMVi0nt(1)) ; +ATSINSstore_con1_ofs(tmpret166, postiats_tysum_1, atslab__1, tmp167) ; +ATSINSmove_con1_end() +} ATSelse() { +/* (*nothing*) */ +} /* ATSendif */ +ATSfunbody_end() +ATSreturn(tmpret166) ; +} /* end of [__patsfun_75] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 719(line=31, offs=38) -- 741(line=31, offs=60) +*/ +/* +local: +global: __patsfun_76$0(level=2) +local: +global: +*/ +ATSstatic() +atstype_boxed +__patsfun_76(atstype_bool arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret168, atstype_boxed) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 719(line=31, offs=38) -- 741(line=31, offs=60) +*/ +ATSINSflab(__patsflab___patsfun_76): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 719(line=31, offs=38) -- 741(line=31, offs=60) +*/ +ATSif( +arg0 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 727(line=31, offs=46) -- 740(line=31, offs=59) +*/ + +ATSINSmove_nil(tmpret168) ; + +} ATSelse() { +/* (*nothing*) */ +} /* ATSendif */ +ATSfunbody_end() +ATSreturn(tmpret168) ; +} /* end of [__patsfun_76] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 769(line=33, offs=11) -- 1610(line=58, offs=29) +*/ +/* +local: sqrt_int_46$0(level=0), loop_77$0(level=1) +global: sqrt_int_46$0(level=0), loop_77$0(level=1) +local: +global: +*/ +ATSstatic() +atstkind_type(atstype_ptrk) +loop_77(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(tmpret169, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp170, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp175, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp176, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp179, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp180, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp183, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmpref184, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp194, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp197, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmpref198, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp204, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 769(line=33, offs=11) -- 1610(line=58, offs=29) +*/ +ATSINSflab(__patsflab_loop_77): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 876(line=34, offs=19) -- 886(line=34, offs=29) +*/ +ATSINSmove(tmp175, sqrt_int_46(arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 869(line=34, offs=12) -- 886(line=34, offs=29) +*/ +ATSINSmove(tmp170, ATSLIB_056_prelude__gte_g1int_int__78__1(arg1, tmp175)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 866(line=34, offs=9) -- 1610(line=58, offs=29) +*/ +ATSif( +tmp170 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 906(line=35, offs=14) -- 913(line=35, offs=21) +*/ +ATSINSmove(tmp179, atspre_g0int_mod_int(arg0, arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 906(line=35, offs=14) -- 917(line=35, offs=25) +*/ +ATSINSmove(tmp176, ATSLIB_056_prelude__eq_g0int_int__10__9(tmp179, ATSPMVi0nt(0))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 903(line=35, offs=11) -- 1350(line=49, offs=35) +*/ +ATSif( +tmp176 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 938(line=36, offs=16) -- 945(line=36, offs=23) +*/ +ATSINSmove(tmp183, atspre_g1int_div_int(arg0, arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 938(line=36, offs=16) -- 952(line=36, offs=30) +*/ +ATSINSmove(tmp180, ATSLIB_056_prelude__neq_g1int_int__67__2(tmp183, arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 935(line=36, offs=13) -- 1300(line=47, offs=18) +*/ +ATSif( +tmp180 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 972(line=37, offs=15) -- 1144(line=41, offs=18) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 996(line=38, offs=21) -- 997(line=38, offs=22) +*/ +/* +ATSINStmpdec(tmpref184) ; +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 1005(line=38, offs=30) -- 1012(line=38, offs=37) +*/ +ATSINSmove(tmpref184, atspre_g1int_div_int(arg0, arg1)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 1046(line=40, offs=17) -- 1126(line=40, offs=97) +*/ +ATSINSmove_ldelay(tmpret169, atstype_boxed, ATSPMVcfunlab(1, __patsfun_83, (arg1, ATSPMVptrof(tmpref184)))) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 972(line=37, offs=15) -- 1144(line=41, offs=18) +*/ +/* +INSletpop() +*/ +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 1230(line=46, offs=17) -- 1282(line=46, offs=69) +*/ +ATSINSmove_ldelay(tmpret169, atstype_boxed, ATSPMVcfunlab(1, __patsfun_86, (arg1))) ; +} /* ATSendif */ +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 1328(line=49, offs=13) -- 1350(line=49, offs=35) +*/ +ATSINSmove_ldelay(tmpret169, atstype_boxed, ATSPMVcfunlab(1, __patsfun_88, ())) ; +} /* ATSendif */ +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 1377(line=51, offs=14) -- 1384(line=51, offs=21) +*/ +ATSINSmove(tmp197, atspre_g0int_mod_int(arg0, arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 1377(line=51, offs=14) -- 1388(line=51, offs=25) +*/ +ATSINSmove(tmp194, ATSLIB_056_prelude__eq_g0int_int__10__10(tmp197, ATSPMVi0nt(0))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 1374(line=51, offs=11) -- 1610(line=58, offs=29) +*/ +ATSif( +tmp194 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 1406(line=52, offs=13) -- 1566(line=56, offs=16) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 1428(line=53, offs=19) -- 1429(line=53, offs=20) +*/ +/* +ATSINStmpdec(tmpref198) ; +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 1437(line=53, offs=28) -- 1444(line=53, offs=35) +*/ +ATSINSmove(tmpref198, atspre_g1int_div_int(arg0, arg1)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 1474(line=55, offs=15) -- 1550(line=55, offs=91) +*/ +ATSINSmove_ldelay(tmpret169, atstype_boxed, ATSPMVcfunlab(1, __patsfun_90, (arg0, arg1, ATSPMVptrof(tmpref198)))) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 1406(line=52, offs=13) -- 1566(line=56, offs=16) +*/ +/* +INSletpop() +*/ +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 1602(line=58, offs=21) -- 1609(line=58, offs=28) +*/ +ATSINSmove(tmp204, atspre_g1int_add_int(arg1, ATSPMVi0nt(1))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 1594(line=58, offs=13) -- 1610(line=58, offs=29) +*/ +ATStailcal_beg() +ATSINSmove_tlcal(apy0, arg0) ; +ATSINSmove_tlcal(apy1, tmp204) ; +ATSINSargmove_tlcal(arg0, apy0) ; +ATSINSargmove_tlcal(arg1, apy1) ; +ATSINSfgoto(__patsflab_loop_77) ; +ATStailcal_end() + +} /* ATSendif */ +} /* ATSendif */ +ATSfunbody_end() +ATSreturn(tmpret169) ; +} /* end of [loop_77] */ + +#if(0) +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 12757(line=663, offs=3) -- 12797(line=663, offs=43) +*/ +/* +local: +global: gte_g1int_int$78$0(level=0) +local: +global: +*/ +ATSextern() +/* +imparg = tk(4646) +tmparg = S2Evar(tk(4646)) +tmpsub = None() +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__gte_g1int_int__78(atstkind_t0ype(atstyvar_type(tk)) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret171, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp172, atstkind_t0ype(atstyvar_type(tk))) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12741(line=662, offs=1) -- 12797(line=663, offs=43) +*/ +ATSINSflab(__patsflab_gte_g1int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12784(line=663, offs=30) -- 12795(line=663, offs=41) +*/ +ATSINSmove(tmp172, PMVtmpltcst(g1int2int)(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12766(line=663, offs=12) -- 12797(line=663, offs=43) +*/ +ATSINSmove(tmpret171, PMVtmpltcst(g1int_gte)(arg0, tmp172)) ; + +ATSfunbody_end() +ATSreturn(tmpret171) ; +} /* end of [ATSLIB_056_prelude__gte_g1int_int__78] */ +#endif // end of [TEMPLATE] + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 12757(line=663, offs=3) -- 12797(line=663, offs=43) +*/ +/* +local: +global: gte_g1int_int$78$1(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4646) +tmparg = S2Evar(tk(4646)) +tmpsub = Some(tk(4646) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__gte_g1int_int__78__1(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret171__1, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp172__1, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12741(line=662, offs=1) -- 12797(line=663, offs=43) +*/ +ATSINSflab(__patsflab_gte_g1int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12784(line=663, offs=30) -- 12795(line=663, offs=41) +*/ +ATSINSmove(tmp172__1, atspre_g1int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12766(line=663, offs=12) -- 12797(line=663, offs=43) +*/ +ATSINSmove(tmpret171__1, atspre_g1int_gte_int(arg0, tmp172__1)) ; + +ATSfunbody_end() +ATSreturn(tmpret171__1) ; +} /* end of [ATSLIB_056_prelude__gte_g1int_int__78__1] */ + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) +*/ +/* +local: +global: eq_g0int_int$10$9(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4634) +tmparg = S2Evar(tk(4634)) +tmpsub = Some(tk(4634) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__10__9(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret15__9, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp16__9, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) +*/ +ATSINSflab(__patsflab_eq_g0int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) +*/ +ATSINSmove(tmp16__9, atspre_g0int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) +*/ +ATSINSmove(tmpret15__9, atspre_g0int_eq_int(arg0, tmp16__9)) ; + +ATSfunbody_end() +ATSreturn(tmpret15__9) ; +} /* end of [ATSLIB_056_prelude__eq_g0int_int__10__9] */ + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 12916(line=672, offs=3) -- 12956(line=672, offs=43) +*/ +/* +local: +global: neq_g1int_int$67$2(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4652) +tmparg = S2Evar(tk(4652)) +tmpsub = Some(tk(4652) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__neq_g1int_int__67__2(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret153__2, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp154__2, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12900(line=671, offs=1) -- 12956(line=672, offs=43) +*/ +ATSINSflab(__patsflab_neq_g1int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12943(line=672, offs=30) -- 12954(line=672, offs=41) +*/ +ATSINSmove(tmp154__2, atspre_g1int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12925(line=672, offs=12) -- 12956(line=672, offs=43) +*/ +ATSINSmove(tmpret153__2, atspre_g1int_neq_int(arg0, tmp154__2)) ; + +ATSfunbody_end() +ATSreturn(tmpret153__2) ; +} /* end of [ATSLIB_056_prelude__neq_g1int_int__67__2] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 1046(line=40, offs=17) -- 1126(line=40, offs=97) +*/ +/* +local: +global: __patsfun_83$0(level=2) +local: acc$5143(2)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))), x$5144(2)(HSEapp(HSEcst(atstkind_type); HSEs2exp(S2Eextkind(atstype_ptrk)))) +global: acc$5143(2)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))), x$5144(2)(HSEapp(HSEcst(atstkind_type); HSEs2exp(S2Eextkind(atstype_ptrk)))) +*/ +ATSstatic() +atstype_boxed +__patsfun_83(atstkind_t0ype(atstype_int) env0, atstkind_type(atstype_ptrk) env1, atstype_bool arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret185, atstype_boxed) ; +ATStmpdec(tmp186, atstkind_type(atstype_ptrk)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 1046(line=40, offs=17) -- 1126(line=40, offs=97) +*/ +ATSINSflab(__patsflab___patsfun_83): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 1046(line=40, offs=17) -- 1126(line=40, offs=97) +*/ +ATSif( +arg0 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 1074(line=40, offs=45) -- 1124(line=40, offs=95) +*/ +ATSINSmove_ldelay(tmp186, atstype_boxed, ATSPMVcfunlab(1, __patsfun_84, (env1))) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 1054(line=40, offs=25) -- 1125(line=40, offs=96) +*/ + +/* +#LINCONSTATUS==0 +*/ +ATSINSmove_con1_beg() +ATSINSmove_con1_new(tmpret185, postiats_tysum_1) ; +#if(0) +ATSINSstore_con1_tag(tmpret185, 1) ; +#endif +ATSINSstore_con1_ofs(tmpret185, postiats_tysum_1, atslab__0, env0) ; +ATSINSstore_con1_ofs(tmpret185, postiats_tysum_1, atslab__1, tmp186) ; +ATSINSmove_con1_end() +} ATSelse() { +/* (*nothing*) */ +} /* ATSendif */ +ATSfunbody_end() +ATSreturn(tmpret185) ; +} /* end of [__patsfun_83] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 1074(line=40, offs=45) -- 1124(line=40, offs=95) +*/ +/* +local: +global: __patsfun_84$0(level=3) +local: x$5144(2)(HSEapp(HSEcst(atstkind_type); HSEs2exp(S2Eextkind(atstype_ptrk)))) +global: x$5144(2)(HSEapp(HSEcst(atstkind_type); HSEs2exp(S2Eextkind(atstype_ptrk)))) +*/ +ATSstatic() +atstype_boxed +__patsfun_84(atstkind_type(atstype_ptrk) env0, atstype_bool arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret187, atstype_boxed) ; +ATStmpdec(tmp188, atstkind_type(atstype_ptrk)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 1074(line=40, offs=45) -- 1124(line=40, offs=95) +*/ +ATSINSflab(__patsflab___patsfun_84): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 1074(line=40, offs=45) -- 1124(line=40, offs=95) +*/ +ATSif( +arg0 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 1100(line=40, offs=71) -- 1122(line=40, offs=93) +*/ +ATSINSmove_ldelay(tmp188, atstype_boxed, ATSPMVcfunlab(1, __patsfun_85, ())) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 1082(line=40, offs=53) -- 1123(line=40, offs=94) +*/ + +/* +#LINCONSTATUS==0 +*/ +ATSINSmove_con1_beg() +ATSINSmove_con1_new(tmpret187, postiats_tysum_1) ; +#if(0) +ATSINSstore_con1_tag(tmpret187, 1) ; +#endif +ATSINSstore_con1_ofs(tmpret187, postiats_tysum_1, atslab__0, ATSderef(env0, atstkind_t0ype(atstype_int))) ; +ATSINSstore_con1_ofs(tmpret187, postiats_tysum_1, atslab__1, tmp188) ; +ATSINSmove_con1_end() +} ATSelse() { +/* (*nothing*) */ +} /* ATSendif */ +ATSfunbody_end() +ATSreturn(tmpret187) ; +} /* end of [__patsfun_84] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 1100(line=40, offs=71) -- 1122(line=40, offs=93) +*/ +/* +local: +global: __patsfun_85$0(level=4) +local: +global: +*/ +ATSstatic() +atstype_boxed +__patsfun_85(atstype_bool arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret189, atstype_boxed) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 1100(line=40, offs=71) -- 1122(line=40, offs=93) +*/ +ATSINSflab(__patsflab___patsfun_85): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 1100(line=40, offs=71) -- 1122(line=40, offs=93) +*/ +ATSif( +arg0 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 1108(line=40, offs=79) -- 1121(line=40, offs=92) +*/ + +ATSINSmove_nil(tmpret189) ; + +} ATSelse() { +/* (*nothing*) */ +} /* ATSendif */ +ATSfunbody_end() +ATSreturn(tmpret189) ; +} /* end of [__patsfun_85] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 1230(line=46, offs=17) -- 1282(line=46, offs=69) +*/ +/* +local: +global: __patsfun_86$0(level=2) +local: acc$5143(2)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))) +global: acc$5143(2)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))) +*/ +ATSstatic() +atstype_boxed +__patsfun_86(atstkind_t0ype(atstype_int) env0, atstype_bool arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret190, atstype_boxed) ; +ATStmpdec(tmp191, atstkind_type(atstype_ptrk)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 1230(line=46, offs=17) -- 1282(line=46, offs=69) +*/ +ATSINSflab(__patsflab___patsfun_86): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 1230(line=46, offs=17) -- 1282(line=46, offs=69) +*/ +ATSif( +arg0 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 1258(line=46, offs=45) -- 1280(line=46, offs=67) +*/ +ATSINSmove_ldelay(tmp191, atstype_boxed, ATSPMVcfunlab(1, __patsfun_87, ())) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 1238(line=46, offs=25) -- 1281(line=46, offs=68) +*/ + +/* +#LINCONSTATUS==0 +*/ +ATSINSmove_con1_beg() +ATSINSmove_con1_new(tmpret190, postiats_tysum_1) ; +#if(0) +ATSINSstore_con1_tag(tmpret190, 1) ; +#endif +ATSINSstore_con1_ofs(tmpret190, postiats_tysum_1, atslab__0, env0) ; +ATSINSstore_con1_ofs(tmpret190, postiats_tysum_1, atslab__1, tmp191) ; +ATSINSmove_con1_end() +} ATSelse() { +/* (*nothing*) */ +} /* ATSendif */ +ATSfunbody_end() +ATSreturn(tmpret190) ; +} /* end of [__patsfun_86] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 1258(line=46, offs=45) -- 1280(line=46, offs=67) +*/ +/* +local: +global: __patsfun_87$0(level=3) +local: +global: +*/ +ATSstatic() +atstype_boxed +__patsfun_87(atstype_bool arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret192, atstype_boxed) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 1258(line=46, offs=45) -- 1280(line=46, offs=67) +*/ +ATSINSflab(__patsflab___patsfun_87): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 1258(line=46, offs=45) -- 1280(line=46, offs=67) +*/ +ATSif( +arg0 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 1266(line=46, offs=53) -- 1279(line=46, offs=66) +*/ + +ATSINSmove_nil(tmpret192) ; + +} ATSelse() { +/* (*nothing*) */ +} /* ATSendif */ +ATSfunbody_end() +ATSreturn(tmpret192) ; +} /* end of [__patsfun_87] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 1328(line=49, offs=13) -- 1350(line=49, offs=35) +*/ +/* +local: +global: __patsfun_88$0(level=2) +local: +global: +*/ +ATSstatic() +atstype_boxed +__patsfun_88(atstype_bool arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret193, atstype_boxed) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 1328(line=49, offs=13) -- 1350(line=49, offs=35) +*/ +ATSINSflab(__patsflab___patsfun_88): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 1328(line=49, offs=13) -- 1350(line=49, offs=35) +*/ +ATSif( +arg0 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 1336(line=49, offs=21) -- 1349(line=49, offs=34) +*/ + +ATSINSmove_nil(tmpret193) ; + +} ATSelse() { +/* (*nothing*) */ +} /* ATSendif */ +ATSfunbody_end() +ATSreturn(tmpret193) ; +} /* end of [__patsfun_88] */ + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) +*/ +/* +local: +global: eq_g0int_int$10$10(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4634) +tmparg = S2Evar(tk(4634)) +tmpsub = Some(tk(4634) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__10__10(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret15__10, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp16__10, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) +*/ +ATSINSflab(__patsflab_eq_g0int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) +*/ +ATSINSmove(tmp16__10, atspre_g0int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) +*/ +ATSINSmove(tmpret15__10, atspre_g0int_eq_int(arg0, tmp16__10)) ; + +ATSfunbody_end() +ATSreturn(tmpret15__10) ; +} /* end of [ATSLIB_056_prelude__eq_g0int_int__10__10] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 1474(line=55, offs=15) -- 1550(line=55, offs=91) +*/ +/* +local: loop_77$0(level=1) +global: loop_77$0(level=1), __patsfun_90$0(level=2) +local: n$5142(2)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))), acc$5143(2)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))), x$5145(2)(HSEapp(HSEcst(atstkind_type); HSEs2exp(S2Eextkind(atstype_ptrk)))) +global: n$5142(2)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))), acc$5143(2)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))), x$5145(2)(HSEapp(HSEcst(atstkind_type); HSEs2exp(S2Eextkind(atstype_ptrk)))) +*/ +ATSstatic() +atstype_boxed +__patsfun_90(atstkind_t0ype(atstype_int) env0, atstkind_t0ype(atstype_int) env1, atstkind_type(atstype_ptrk) env2, atstype_bool arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret199, atstype_boxed) ; +ATStmpdec(tmp200, atstkind_type(atstype_ptrk)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 1474(line=55, offs=15) -- 1550(line=55, offs=91) +*/ +ATSINSflab(__patsflab___patsfun_90): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 1474(line=55, offs=15) -- 1550(line=55, offs=91) +*/ +ATSif( +arg0 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 1502(line=55, offs=43) -- 1548(line=55, offs=89) +*/ +ATSINSmove_ldelay(tmp200, atstype_boxed, ATSPMVcfunlab(1, __patsfun_91, (env0, env1, env2))) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 1482(line=55, offs=23) -- 1549(line=55, offs=90) +*/ + +/* +#LINCONSTATUS==0 +*/ +ATSINSmove_con1_beg() +ATSINSmove_con1_new(tmpret199, postiats_tysum_1) ; +#if(0) +ATSINSstore_con1_tag(tmpret199, 1) ; +#endif +ATSINSstore_con1_ofs(tmpret199, postiats_tysum_1, atslab__0, env1) ; +ATSINSstore_con1_ofs(tmpret199, postiats_tysum_1, atslab__1, tmp200) ; +ATSINSmove_con1_end() +} ATSelse() { +/* (*nothing*) */ +} /* ATSendif */ +ATSfunbody_end() +ATSreturn(tmpret199) ; +} /* end of [__patsfun_90] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 1502(line=55, offs=43) -- 1548(line=55, offs=89) +*/ +/* +local: loop_77$0(level=1) +global: loop_77$0(level=1), __patsfun_91$0(level=3) +local: n$5142(2)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))), acc$5143(2)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))), x$5145(2)(HSEapp(HSEcst(atstkind_type); HSEs2exp(S2Eextkind(atstype_ptrk)))) +global: n$5142(2)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))), acc$5143(2)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))), x$5145(2)(HSEapp(HSEcst(atstkind_type); HSEs2exp(S2Eextkind(atstype_ptrk)))) +*/ +ATSstatic() +atstype_boxed +__patsfun_91(atstkind_t0ype(atstype_int) env0, atstkind_t0ype(atstype_int) env1, atstkind_type(atstype_ptrk) env2, atstype_bool arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret201, atstype_boxed) ; +ATStmpdec(tmp202, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp203, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 1502(line=55, offs=43) -- 1548(line=55, offs=89) +*/ +ATSINSflab(__patsflab___patsfun_91): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 1502(line=55, offs=43) -- 1548(line=55, offs=89) +*/ +ATSif( +arg0 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 1537(line=55, offs=78) -- 1544(line=55, offs=85) +*/ +ATSINSmove(tmp203, atspre_g1int_add_int(env1, ATSPMVi0nt(1))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 1529(line=55, offs=70) -- 1545(line=55, offs=86) +*/ +ATSINSmove(tmp202, loop_77(env0, tmp203)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 1510(line=55, offs=51) -- 1547(line=55, offs=88) +*/ + +/* +#LINCONSTATUS==0 +*/ +ATSINSmove_con1_beg() +ATSINSmove_con1_new(tmpret201, postiats_tysum_1) ; +#if(0) +ATSINSstore_con1_tag(tmpret201, 1) ; +#endif +ATSINSstore_con1_ofs(tmpret201, postiats_tysum_1, atslab__0, ATSderef(env2, atstkind_t0ype(atstype_int))) ; +ATSINSstore_con1_ofs(tmpret201, postiats_tysum_1, atslab__1, tmp202) ; +ATSINSmove_con1_end() +} ATSelse() { +/* (*nothing*) */ +} /* ATSendif */ +ATSfunbody_end() +ATSreturn(tmpret201) ; +} /* end of [__patsfun_91] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 1725(line=67, offs=4) -- 1923(line=74, offs=6) +*/ +/* +local: +global: primorial_gmp_92$0(level=0) +local: +global: +*/ +ATSstatic() +atstkind_type(atstype_ptrk) +primorial_gmp_92(atstkind_t0ype(atstype_ullint) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret205, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmpref206, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp208) ; +// ATStmpdec_void(tmp209) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 1725(line=67, offs=4) -- 1923(line=74, offs=6) +*/ +ATSINSflab(__patsflab_primorial_gmp_92): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 1788(line=68, offs=3) -- 1923(line=74, offs=6) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 1800(line=69, offs=9) -- 1801(line=69, offs=10) +*/ +/* +ATSINStmpdec(tmpref206) ; +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 1804(line=69, offs=13) -- 1815(line=69, offs=24) +*/ +ATSINSmove(tmpref206, ATSLIB_056_prelude__ptr_alloc__1__5()) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 1829(line=70, offs=14) -- 1850(line=70, offs=35) +*/ +ATSINSmove_void(tmp208, atscntrb_gmp_mpz_init(ATSPMVrefarg1(ATSSELrecsin(tmpref206, atstkind_type(atstype_ptrk), atslab__2)))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 1864(line=71, offs=14) -- 1891(line=71, offs=41) +*/ +ATSINSmove_void(tmp209, mpz_primorial_ui(ATSPMVrefarg1(ATSSELrecsin(tmpref206, atstkind_type(atstype_ptrk), atslab__2)), arg0)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 1901(line=73, offs=5) -- 1916(line=73, offs=20) +*/ +ATSINSmove(tmpret205, ATSPMVcastfn(castvwtp0, atstkind_type(atstype_ptrk), tmpref206)) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 1788(line=68, offs=3) -- 1923(line=74, offs=6) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret205) ; +} /* end of [primorial_gmp_92] */ + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42) +*/ +/* +local: +global: ptr_alloc$1$5(level=1) +local: +global: +*/ +ATSstatic() +/* +imparg = a(4746) +tmparg = S2Evar(a(4746)) +tmpsub = Some(a(4746) -> S2EVar(5715)) +*/ +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__1__5() +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret2__5, atstkind_type(atstype_ptrk)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3708(line=184, offs=1) -- 3749(line=184, offs=42) +*/ +ATSINSflab(__patsflab_ptr_alloc): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42) +*/ +ATSINSmove(tmpret2__5, atspre_ptr_alloc_tsz(ATSPMVsizeof(atscntrb_gmp_mpz))) ; + +ATSfunbody_end() +ATSreturn(tmpret2__5) ; +} /* end of [ATSLIB_056_prelude__ptr_alloc__1__5] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 1963(line=77, offs=4) -- 2035(line=78, offs=18) +*/ +/* +local: +global: div_gt_zero_94$0(level=0) +local: +global: +*/ +ATSstatic() +atstkind_t0ype(atstype_int) +div_gt_zero_94(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret210, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp211, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 1963(line=77, offs=4) -- 2035(line=78, offs=18) +*/ +ATSINSflab(__patsflab_div_gt_zero_94): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 2029(line=78, offs=12) -- 2034(line=78, offs=17) +*/ +ATSINSmove(tmp211, atspre_g1int_div_int(arg0, arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 2020(line=78, offs=3) -- 2035(line=78, offs=18) +*/ +ATSINSmove(tmpret210, ATSPMVcastfn(cast, atstkind_t0ype(atstype_int), tmp211)) ; +ATSfunbody_end() +ATSreturn(tmpret210) ; +} /* end of [div_gt_zero_94] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 2154(line=82, offs=5) -- 4082(line=145, offs=6) +*/ +/* +local: exp_3$0(level=0), is_prime_48$0(level=0), div_gt_zero_94$0(level=0) +global: exp_3$0(level=0), sqrt_int_46$0(level=0), is_prime_48$0(level=0), div_gt_zero_94$0(level=0), jacobi_95$0(level=0) +local: +global: +*/ +ATSstatic() +atstkind_t0ype(atstype_int) +jacobi_95(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret212, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 2154(line=82, offs=5) -- 4082(line=145, offs=6) +*/ +ATSINSflab(__patsflab_jacobi_95): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 2195(line=83, offs=3) -- 4082(line=145, offs=6) +*/ +/* +letpush(beg) +*/ +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 4069(line=144, offs=5) -- 4076(line=144, offs=12) +*/ +ATSINSmove(tmpret212, loop_106(arg0, arg1, ATSPMVi0nt(2))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 2195(line=83, offs=3) -- 4082(line=145, offs=6) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret212) ; +} /* end of [jacobi_95] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 2248(line=85, offs=9) -- 3576(line=125, offs=12) +*/ +/* +local: +global: legendre_96$0(level=1) +local: +global: +*/ +ATSstatic() +atstkind_t0ype(atstype_int) +legendre_96(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret213, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp214, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmpref233, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp234, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp235, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp236, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp237, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp240, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp241, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp242, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp245, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 2248(line=85, offs=9) -- 3576(line=125, offs=12) +*/ +ATSINSflab(__patsflab_legendre_96): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 2336(line=86, offs=13) -- 2341(line=86, offs=18) +*/ +ATSINSmove(tmp214, atspre_g0int_mod_int(arg1, arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 2330(line=86, offs=7) -- 3576(line=125, offs=12) +*/ +ATScaseof_beg() +/* +** ibranchlst-beg +*/ +ATSbranch_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 2355(line=87, offs=11) -- 2356(line=87, offs=12) +*/ +ATSINSlab(__atstmplab12): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 2336(line=86, offs=13) -- 2341(line=86, offs=18) +*/ +ATSifnthen(ATSCKpat_int(tmp214, ATSPMVint(0))) { ATSINSgoto(__atstmplab14) ; } ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 2356(line=87, offs=12) -- 2356(line=87, offs=12) +*/ +ATSINSlab(__atstmplab13): +/* +emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) +*/ +/* +ibranch-mbody: +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 2360(line=87, offs=16) -- 2361(line=87, offs=17) +*/ +ATSINSmove(tmpret213, ATSPMVi0nt(0)) ; +ATSbranch_end() + +ATSbranch_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 2373(line=88, offs=12) -- 2373(line=88, offs=12) +*/ +ATSINSlab(__atstmplab14): +/* +emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) +*/ +/* +ibranch-mbody: +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 2377(line=88, offs=16) -- 3576(line=125, offs=12) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 3396(line=119, offs=15) -- 3397(line=119, offs=16) +*/ +/* +ATSINStmpdec(tmpref233) ; +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 3418(line=119, offs=37) -- 3423(line=119, offs=42) +*/ +ATSINSmove(tmp235, atspre_g1int_sub_int(arg1, ATSPMVi0nt(1))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 3417(line=119, offs=36) -- 3428(line=119, offs=47) +*/ +ATSINSmove(tmp234, atspre_g1int_div_int(tmp235, ATSPMVi0nt(2))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 3400(line=119, offs=19) -- 3432(line=119, offs=51) +*/ +ATSINSmove(tmpref233, exp_mod_prime_97(arg0, tmp234, arg1)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 3460(line=121, offs=17) -- 3461(line=121, offs=18) +*/ +ATSINSmove(tmp236, tmpref233) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 3454(line=121, offs=11) -- 3564(line=124, offs=21) +*/ +ATScaseof_beg() +/* +** ibranchlst-beg +*/ +ATSbranch_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 3480(line=122, offs=16) -- 3480(line=122, offs=16) +*/ +ATSINSlab(__atstmplab18): +/* +emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) +*/ +/* +ibranch-guard: +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 3491(line=122, offs=27) -- 3496(line=122, offs=32) +*/ +ATSINSmove(tmp241, atspre_g1int_sub_int(arg1, ATSPMVi0nt(1))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 3486(line=122, offs=22) -- 3497(line=122, offs=33) +*/ +ATSINSmove(tmp240, atspre_g0int_mod_int(tmp236, tmp241)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 3486(line=122, offs=22) -- 3501(line=122, offs=37) +*/ +ATSINSmove(tmp237, ATSLIB_056_prelude__eq_g0int_int__10__12(tmp240, ATSPMVi0nt(0))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 3486(line=122, offs=22) -- 3501(line=122, offs=37) +*/ +ATSifnthen(ATSCKpat_bool(tmp237, ATSPMVbool_true())) { ATSINSgoto(__atstmplab19) ; } ; +/* +emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) +*/ +/* +ibranch-mbody: +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 3505(line=122, offs=41) -- 3507(line=122, offs=43) +*/ +ATSINSmove(tmpret213, atspre_g1int_neg_int(ATSPMVi0nt(1))) ; + +ATSbranch_end() + +ATSbranch_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 3523(line=123, offs=16) -- 3523(line=123, offs=16) +*/ +ATSINSlab(__atstmplab19): +/* +emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) +*/ +/* +ibranch-guard: +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 3529(line=123, offs=22) -- 3534(line=123, offs=27) +*/ +ATSINSmove(tmp245, atspre_g0int_mod_int(tmp236, arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 3529(line=123, offs=22) -- 3538(line=123, offs=31) +*/ +ATSINSmove(tmp242, ATSLIB_056_prelude__eq_g0int_int__10__13(tmp245, ATSPMVi0nt(0))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 3529(line=123, offs=22) -- 3538(line=123, offs=31) +*/ +ATSifnthen(ATSCKpat_bool(tmp242, ATSPMVbool_true())) { ATSINSgoto(__atstmplab20) ; } ; +/* +emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) +*/ +/* +ibranch-mbody: +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 3542(line=123, offs=35) -- 3543(line=123, offs=36) +*/ +ATSINSmove(tmpret213, ATSPMVi0nt(0)) ; +ATSbranch_end() + +ATSbranch_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 3559(line=124, offs=16) -- 3559(line=124, offs=16) +*/ +ATSINSlab(__atstmplab20): +/* +emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) +*/ +/* +ibranch-mbody: +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 3563(line=124, offs=20) -- 3564(line=124, offs=21) +*/ +ATSINSmove(tmpret213, ATSPMVi0nt(1)) ; +ATSbranch_end() + +/* +** ibranchlst-end +*/ +ATScaseof_end() + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 2377(line=88, offs=16) -- 3576(line=125, offs=12) +*/ +/* +INSletpop() +*/ +ATSbranch_end() + +/* +** ibranchlst-end +*/ +ATScaseof_end() + +ATSfunbody_end() +ATSreturn(tmpret213) ; +} /* end of [legendre_96] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 2437(line=90, offs=15) -- 3370(line=117, offs=16) +*/ +/* +local: exp_mod_prime_97$0(level=2) +global: exp_mod_prime_97$0(level=2) +local: +global: +*/ +ATSstatic() +atstkind_t0ype(atstype_int) +exp_mod_prime_97(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1, atstkind_t0ype(atstype_int) arg2) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(apy0, atstkind_t0ype(atstype_int)) ; +ATStmpdec(apy1, atstkind_t0ype(atstype_int)) ; +ATStmpdec(apy2, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmpret215, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmpref216, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmpref217, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp218, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp219, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmpref222, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp223, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmpref224, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmpref225, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp226, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp227, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp228, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmpref231, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp232, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 2437(line=90, offs=15) -- 3370(line=117, offs=16) +*/ +ATSINSflab(__patsflab_exp_mod_prime_97): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 2515(line=91, offs=13) -- 3370(line=117, offs=16) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 2537(line=92, offs=19) -- 2539(line=92, offs=21) +*/ +/* +ATSINStmpdec(tmpref216) ; +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 2542(line=92, offs=24) -- 2547(line=92, offs=29) +*/ +ATSINSmove(tmpref216, atspre_g0int_mod_int(arg0, arg2)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 2566(line=93, offs=19) -- 2568(line=93, offs=21) +*/ +/* +ATSINStmpdec(tmpref217) ; +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 2576(line=93, offs=29) -- 2581(line=93, offs=34) +*/ +ATSINSmove(tmp218, atspre_g1int_sub_int(arg2, ATSPMVi0nt(1))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 2571(line=93, offs=24) -- 2582(line=93, offs=35) +*/ +ATSINSmove(tmpref217, atspre_g0int_mod_int(arg1, tmp218)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 2612(line=95, offs=15) -- 3354(line=116, offs=22) +*/ +ATScaseof_beg() +/* +** ibranchlst-beg +*/ +ATSbranch_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 2641(line=96, offs=19) -- 2642(line=96, offs=20) +*/ +ATSINSlab(__atstmplab15): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 2451(line=90, offs=29) -- 2452(line=90, offs=30) +*/ +ATSifnthen(ATSCKpat_int(arg0, ATSPMVint(0))) { ATSINSgoto(__atstmplab17) ; } ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 2642(line=96, offs=20) -- 2642(line=96, offs=20) +*/ +ATSINSlab(__atstmplab16): +/* +emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) +*/ +/* +ibranch-mbody: +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 2646(line=96, offs=24) -- 2647(line=96, offs=25) +*/ +ATSINSmove(tmpret215, ATSPMVi0nt(0)) ; +ATSbranch_end() + +ATSbranch_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 2667(line=97, offs=20) -- 2667(line=97, offs=20) +*/ +ATSINSlab(__atstmplab17): +/* +emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) +*/ +/* +ibranch-mbody: +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 2720(line=99, offs=24) -- 2725(line=99, offs=29) +*/ +ATSINSmove(tmp219, ATSLIB_056_prelude__gt_g1int_int__4__3(arg1, ATSPMVi0nt(0))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 2717(line=99, offs=21) -- 3332(line=115, offs=24) +*/ +ATSif( +tmp219 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 2753(line=100, offs=23) -- 3283(line=113, offs=26) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 2785(line=101, offs=29) -- 2787(line=101, offs=31) +*/ +/* +ATSINStmpdec(tmpref222) ; +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 2810(line=101, offs=54) -- 2817(line=101, offs=61) +*/ +ATSINSmove(tmp223, atspre_g0int_half_int(tmpref217)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 2801(line=101, offs=45) -- 2819(line=101, offs=63) +*/ +ATSINSmove(tmpref222, ATSPMVcastfn(cast, atstkind_t0ype(atstype_int), tmp223)) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 2848(line=102, offs=29) -- 2850(line=102, offs=31) +*/ +/* +ATSINStmpdec(tmpref224) ; +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 2853(line=102, offs=34) -- 2859(line=102, offs=40) +*/ +ATSINSmove(tmpref224, atspre_g0int_mod_int(tmpref217, ATSPMVi0nt(2))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 2888(line=103, offs=29) -- 2892(line=103, offs=33) +*/ +/* +ATSINStmpdec(tmpref225) ; +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 2915(line=103, offs=56) -- 2920(line=103, offs=61) +*/ +ATSINSmove(tmp227, atspre_g1int_mul_int(arg0, arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 2915(line=103, offs=56) -- 2924(line=103, offs=65) +*/ +ATSINSmove(tmp226, atspre_g0int_mod_int(tmp227, arg2)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 2906(line=103, offs=47) -- 2925(line=103, offs=66) +*/ +ATSINSmove(tmpref225, ATSPMVcastfn(cast, atstkind_t0ype(atstype_int), tmp226)) ; +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 2978(line=105, offs=28) -- 2984(line=105, offs=34) +*/ +ATSINSmove(tmp228, ATSLIB_056_prelude__eq_g0int_int__10__11(tmpref224, ATSPMVi0nt(0))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 2975(line=105, offs=25) -- 3257(line=112, offs=30) +*/ +ATSif( +tmp228 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 3016(line=106, offs=27) -- 3042(line=106, offs=53) +*/ +ATStailcal_beg() +ATSINSmove_tlcal(apy0, tmpref225) ; +ATSINSmove_tlcal(apy1, tmpref222) ; +ATSINSmove_tlcal(apy2, arg2) ; +ATSINSargmove_tlcal(arg0, apy0) ; +ATSINSargmove_tlcal(arg1, apy1) ; +ATSINSargmove_tlcal(arg2, apy2) ; +ATSINSfgoto(__patsflab_exp_mod_prime_97) ; +ATStailcal_end() + +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 3098(line=108, offs=27) -- 3257(line=112, offs=30) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 3134(line=109, offs=33) -- 3135(line=109, offs=34) +*/ +/* +ATSINStmpdec(tmpref231) ; +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 3142(line=109, offs=41) -- 3168(line=109, offs=67) +*/ +ATSINSmove(tmp232, exp_mod_prime_97(tmpref225, tmpref222, arg2)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 3138(line=109, offs=37) -- 3168(line=109, offs=67) +*/ +ATSINSmove(tmpref231, atspre_g0int_mul_int(arg0, tmp232)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 3226(line=111, offs=29) -- 3227(line=111, offs=30) +*/ +ATSINSmove(tmpret215, tmpref231) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 3098(line=108, offs=27) -- 3257(line=112, offs=30) +*/ +/* +INSletpop() +*/ +} /* ATSendif */ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 2753(line=100, offs=23) -- 3283(line=113, offs=26) +*/ +/* +INSletpop() +*/ +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 3331(line=115, offs=23) -- 3332(line=115, offs=24) +*/ +ATSINSmove(tmpret215, ATSPMVi0nt(1)) ; +} /* ATSendif */ +ATSbranch_end() + +/* +** ibranchlst-end +*/ +ATScaseof_end() + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 2515(line=91, offs=13) -- 3370(line=117, offs=16) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret215) ; +} /* end of [exp_mod_prime_97] */ + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 12679(line=659, offs=3) -- 12718(line=659, offs=42) +*/ +/* +local: +global: gt_g1int_int$4$3(level=3) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4643) +tmparg = S2Evar(tk(4643)) +tmpsub = Some(tk(4643) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__gt_g1int_int__4__3(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret8__3, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp9__3, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12664(line=658, offs=1) -- 12718(line=659, offs=42) +*/ +ATSINSflab(__patsflab_gt_g1int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12705(line=659, offs=29) -- 12716(line=659, offs=40) +*/ +ATSINSmove(tmp9__3, atspre_g1int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12688(line=659, offs=12) -- 12718(line=659, offs=42) +*/ +ATSINSmove(tmpret8__3, atspre_g1int_gt_int(arg0, tmp9__3)) ; + +ATSfunbody_end() +ATSreturn(tmpret8__3) ; +} /* end of [ATSLIB_056_prelude__gt_g1int_int__4__3] */ + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) +*/ +/* +local: +global: eq_g0int_int$10$11(level=3) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4634) +tmparg = S2Evar(tk(4634)) +tmpsub = Some(tk(4634) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__10__11(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret15__11, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp16__11, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) +*/ +ATSINSflab(__patsflab_eq_g0int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) +*/ +ATSINSmove(tmp16__11, atspre_g0int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) +*/ +ATSINSmove(tmpret15__11, atspre_g0int_eq_int(arg0, tmp16__11)) ; + +ATSfunbody_end() +ATSreturn(tmpret15__11) ; +} /* end of [ATSLIB_056_prelude__eq_g0int_int__10__11] */ + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) +*/ +/* +local: +global: eq_g0int_int$10$12(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4634) +tmparg = S2Evar(tk(4634)) +tmpsub = Some(tk(4634) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__10__12(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret15__12, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp16__12, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) +*/ +ATSINSflab(__patsflab_eq_g0int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) +*/ +ATSINSmove(tmp16__12, atspre_g0int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) +*/ +ATSINSmove(tmpret15__12, atspre_g0int_eq_int(arg0, tmp16__12)) ; + +ATSfunbody_end() +ATSreturn(tmpret15__12) ; +} /* end of [ATSLIB_056_prelude__eq_g0int_int__10__12] */ + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) +*/ +/* +local: +global: eq_g0int_int$10$13(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4634) +tmparg = S2Evar(tk(4634)) +tmpsub = Some(tk(4634) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__10__13(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret15__13, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp16__13, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) +*/ +ATSINSflab(__patsflab_eq_g0int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) +*/ +ATSINSmove(tmp16__13, atspre_g0int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) +*/ +ATSINSmove(tmpret15__13, atspre_g0int_eq_int(arg0, tmp16__13)) ; + +ATSfunbody_end() +ATSreturn(tmpret15__13) ; +} /* end of [ATSLIB_056_prelude__eq_g0int_int__10__13] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 3590(line=127, offs=9) -- 3745(line=130, offs=17) +*/ +/* +local: div_gt_zero_94$0(level=0), get_multiplicity_105$0(level=1) +global: div_gt_zero_94$0(level=0), get_multiplicity_105$0(level=1) +local: +global: +*/ +ATSstatic() +atstkind_t0ype(atstype_int) +get_multiplicity_105(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret246, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp247, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp248, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp249, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 3590(line=127, offs=9) -- 3745(line=130, offs=17) +*/ +ATSINSflab(__patsflab_get_multiplicity_105): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 3662(line=128, offs=13) -- 3667(line=128, offs=18) +*/ +ATSINSmove(tmp247, atspre_g0int_mod_int(arg0, arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 3656(line=128, offs=7) -- 3745(line=130, offs=17) +*/ +ATScaseof_beg() +/* +** ibranchlst-beg +*/ +ATSbranch_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 3681(line=129, offs=11) -- 3682(line=129, offs=12) +*/ +ATSINSlab(__atstmplab21): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 3662(line=128, offs=13) -- 3667(line=128, offs=18) +*/ +ATSifnthen(ATSCKpat_int(tmp247, ATSPMVint(0))) { ATSINSgoto(__atstmplab23) ; } ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 3682(line=129, offs=12) -- 3682(line=129, offs=12) +*/ +ATSINSlab(__atstmplab22): +/* +emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) +*/ +/* +ibranch-mbody: +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 3707(line=129, offs=37) -- 3724(line=129, offs=54) +*/ +ATSINSmove(tmp249, div_gt_zero_94(arg0, arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 3690(line=129, offs=20) -- 3728(line=129, offs=58) +*/ +ATSINSmove(tmp248, get_multiplicity_105(tmp249, arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 3686(line=129, offs=16) -- 3728(line=129, offs=58) +*/ +ATSINSmove(tmpret246, atspre_g1int_add_int(ATSPMVi0nt(1), tmp248)) ; + +ATSbranch_end() + +ATSbranch_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 3740(line=130, offs=12) -- 3740(line=130, offs=12) +*/ +ATSINSlab(__atstmplab23): +/* +emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) +*/ +/* +ibranch-mbody: +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 3744(line=130, offs=16) -- 3745(line=130, offs=17) +*/ +ATSINSmove(tmpret246, ATSPMVi0nt(0)) ; +ATSbranch_end() + +/* +** ibranchlst-end +*/ +ATScaseof_end() + +ATSfunbody_end() +ATSreturn(tmpret246) ; +} /* end of [get_multiplicity_105] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 3759(line=132, offs=9) -- 4059(line=142, offs=26) +*/ +/* +local: exp_3$0(level=0), is_prime_48$0(level=0), legendre_96$0(level=1), get_multiplicity_105$0(level=1), loop_106$0(level=1) +global: exp_3$0(level=0), is_prime_48$0(level=0), div_gt_zero_94$0(level=0), legendre_96$0(level=1), get_multiplicity_105$0(level=1), loop_106$0(level=1) +local: a$5153(1)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))), n$5154(1)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))) +global: a$5153(1)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))), n$5154(1)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))) +*/ +ATSstatic() +atstkind_t0ype(atstype_int) +loop_106(atstkind_t0ype(atstype_int) env0, atstkind_t0ype(atstype_int) env1, atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(apy0, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmpret250, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp251, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp254, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp257, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp258, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp261, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp262, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp263, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp264, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp265, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp266, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp267, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 3759(line=132, offs=9) -- 4059(line=142, offs=26) +*/ +ATSINSflab(__patsflab_loop_106): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 3815(line=133, offs=10) -- 3822(line=133, offs=17) +*/ +ATSINSmove(tmp251, ATSLIB_056_prelude__gt_g1int_int__4__4(arg0, env1)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 3812(line=133, offs=7) -- 4059(line=142, offs=26) +*/ +ATSif( +tmp251 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 3836(line=134, offs=9) -- 3837(line=134, offs=10) +*/ +ATSINSmove(tmpret250, ATSPMVi0nt(1)) ; +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 3860(line=136, offs=12) -- 3865(line=136, offs=17) +*/ +ATSINSmove(tmp254, ATSLIB_056_prelude__eq_g1int_int__16__4(env0, ATSPMVi0nt(0))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 3857(line=136, offs=9) -- 4059(line=142, offs=26) +*/ +ATSif( +tmp254 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 3881(line=137, offs=11) -- 3882(line=137, offs=12) +*/ +ATSINSmove(tmpret250, ATSPMVi0nt(0)) ; +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 3909(line=139, offs=14) -- 3936(line=139, offs=41) +*/ +ATSINSmove(tmp261, atspre_g0int_mod_int(env0, arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 3909(line=139, offs=14) -- 3936(line=139, offs=41) +*/ +ATSINSmove(tmp258, ATSLIB_056_prelude__eq_g0int_int__10__14(tmp261, ATSPMVi0nt(0))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 3909(line=139, offs=14) -- 3936(line=139, offs=41) +*/ +ATSif( +tmp258 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 3909(line=139, offs=14) -- 3936(line=139, offs=41) +*/ +ATSINSmove(tmp257, is_prime_48(arg0)) ; + +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 3909(line=139, offs=14) -- 3936(line=139, offs=41) +*/ +ATSINSmove(tmp257, ATSPMVbool_false()) ; +} /* ATSendif */ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 3906(line=139, offs=11) -- 4059(line=142, offs=26) +*/ +ATSif( +tmp257 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 3960(line=140, offs=18) -- 3967(line=140, offs=25) +*/ +ATSINSmove(tmp263, atspre_g1int_add_int(arg0, ATSPMVi0nt(1))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 3955(line=140, offs=13) -- 3968(line=140, offs=26) +*/ +ATSINSmove(tmp262, loop_106(env0, env1, tmp263)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 3975(line=140, offs=33) -- 3991(line=140, offs=49) +*/ +ATSINSmove(tmp265, legendre_96(arg0, env1)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 3993(line=140, offs=51) -- 4017(line=140, offs=75) +*/ +ATSINSmove(tmp266, get_multiplicity_105(env0, arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 3971(line=140, offs=29) -- 4018(line=140, offs=76) +*/ +ATSINSmove(tmp264, exp_3(tmp265, tmp266)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 3955(line=140, offs=13) -- 4018(line=140, offs=76) +*/ +ATSINSmove(tmpret250, atspre_g0int_mul_int(tmp262, tmp264)) ; + +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 4051(line=142, offs=18) -- 4058(line=142, offs=25) +*/ +ATSINSmove(tmp267, atspre_g1int_add_int(arg0, ATSPMVi0nt(1))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 4046(line=142, offs=13) -- 4059(line=142, offs=26) +*/ +ATStailcal_beg() +ATSINSmove_tlcal(apy0, tmp267) ; +ATSINSargmove_tlcal(arg0, apy0) ; +ATSINSfgoto(__patsflab_loop_106) ; +ATStailcal_end() + +} /* ATSendif */ +} /* ATSendif */ +} /* ATSendif */ +ATSfunbody_end() +ATSreturn(tmpret250) ; +} /* end of [loop_106] */ + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 12679(line=659, offs=3) -- 12718(line=659, offs=42) +*/ +/* +local: +global: gt_g1int_int$4$4(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4643) +tmparg = S2Evar(tk(4643)) +tmpsub = Some(tk(4643) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__gt_g1int_int__4__4(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret8__4, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp9__4, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12664(line=658, offs=1) -- 12718(line=659, offs=42) +*/ +ATSINSflab(__patsflab_gt_g1int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12705(line=659, offs=29) -- 12716(line=659, offs=40) +*/ +ATSINSmove(tmp9__4, atspre_g1int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12688(line=659, offs=12) -- 12718(line=659, offs=42) +*/ +ATSINSmove(tmpret8__4, atspre_g1int_gt_int(arg0, tmp9__4)) ; + +ATSfunbody_end() +ATSreturn(tmpret8__4) ; +} /* end of [ATSLIB_056_prelude__gt_g1int_int__4__4] */ + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 12838(line=668, offs=3) -- 12877(line=668, offs=42) +*/ +/* +local: +global: eq_g1int_int$16$4(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4649) +tmparg = S2Evar(tk(4649)) +tmpsub = Some(tk(4649) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g1int_int__16__4(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret25__4, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp26__4, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12823(line=667, offs=1) -- 12877(line=668, offs=42) +*/ +ATSINSflab(__patsflab_eq_g1int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12864(line=668, offs=29) -- 12875(line=668, offs=40) +*/ +ATSINSmove(tmp26__4, atspre_g1int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12847(line=668, offs=12) -- 12877(line=668, offs=42) +*/ +ATSINSmove(tmpret25__4, atspre_g1int_eq_int(arg0, tmp26__4)) ; + +ATSfunbody_end() +ATSreturn(tmpret25__4) ; +} /* end of [ATSLIB_056_prelude__eq_g1int_int__16__4] */ + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) +*/ +/* +local: +global: eq_g0int_int$10$14(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4634) +tmparg = S2Evar(tk(4634)) +tmpsub = Some(tk(4634) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__10__14(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret15__14, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp16__14, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) +*/ +ATSINSflab(__patsflab_eq_g0int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) +*/ +ATSINSmove(tmp16__14, atspre_g0int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) +*/ +ATSINSmove(tmpret15__14, atspre_g0int_eq_int(arg0, tmp16__14)) ; + +ATSfunbody_end() +ATSreturn(tmpret15__14) ; +} /* end of [ATSLIB_056_prelude__eq_g0int_int__10__14] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 4157(line=148, offs=5) -- 4495(line=158, offs=26) +*/ +/* +local: jacobi2_110$0(level=0) +global: jacobi2_110$0(level=0) +local: +global: +*/ +ATSstatic() +atstkind_t0ype(atstype_int) +jacobi2_110(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(tmpret268, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp269, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp272, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp273, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp276, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp277, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp278, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp281, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp284, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp285, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp286, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp287, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp288, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp289, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp290, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp293, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp296, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp297, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 4157(line=148, offs=5) -- 4495(line=158, offs=26) +*/ +ATSINSflab(__patsflab_jacobi2_110): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 4214(line=149, offs=3) -- 4495(line=158, offs=26) +*/ +ATScaseof_beg() +/* +** ibranchlst-beg +*/ +ATSbranch_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 4231(line=150, offs=7) -- 4232(line=150, offs=8) +*/ +ATSINSlab(__atstmplab24): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 4180(line=148, offs=28) -- 4181(line=148, offs=29) +*/ +ATSifnthen(ATSCKpat_int(arg0, ATSPMVint(0))) { ATSINSgoto(__atstmplab26) ; } ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 4232(line=150, offs=8) -- 4232(line=150, offs=8) +*/ +ATSINSlab(__atstmplab25): +/* +emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) +*/ +/* +ibranch-mbody: +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 4236(line=150, offs=12) -- 4237(line=150, offs=13) +*/ +ATSINSmove(tmpret268, ATSPMVi0nt(0)) ; +ATSbranch_end() + +ATSbranch_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 4244(line=151, offs=7) -- 4245(line=151, offs=8) +*/ +ATSINSlab(__atstmplab26): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 4180(line=148, offs=28) -- 4181(line=148, offs=29) +*/ +ATSifnthen(ATSCKpat_int(arg0, ATSPMVint(1))) { ATSINSgoto(__atstmplab28) ; } ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 4245(line=151, offs=8) -- 4245(line=151, offs=8) +*/ +ATSINSlab(__atstmplab27): +/* +emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) +*/ +/* +ibranch-mbody: +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 4249(line=151, offs=12) -- 4250(line=151, offs=13) +*/ +ATSINSmove(tmpret268, ATSPMVi0nt(1)) ; +ATSbranch_end() + +ATSbranch_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 4258(line=152, offs=8) -- 4258(line=152, offs=8) +*/ +ATSINSlab(__atstmplab28): +/* +emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) +*/ +/* +ibranch-guard: +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 4264(line=152, offs=14) -- 4269(line=152, offs=19) +*/ +ATSINSmove(tmp269, ATSLIB_056_prelude__gt_g1int_int__4__5(arg0, arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 4264(line=152, offs=14) -- 4269(line=152, offs=19) +*/ +ATSifnthen(ATSCKpat_bool(tmp269, ATSPMVbool_true())) { ATSINSgoto(__atstmplab29) ; } ; +/* +emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) +*/ +/* +ibranch-mbody: +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 4290(line=152, offs=40) -- 4295(line=152, offs=45) +*/ +ATSINSmove(tmp272, atspre_g0int_mod_int(arg0, arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 4273(line=152, offs=23) -- 4300(line=152, offs=50) +*/ +ATStailcal_beg() +ATSINSmove_tlcal(apy0, ATSPMVcastfn(cast, atstkind_t0ype(atstype_int), tmp272)) ; +ATSINSmove_tlcal(apy1, arg1) ; +ATSINSargmove_tlcal(arg0, apy0) ; +ATSINSargmove_tlcal(arg1, apy1) ; +ATSINSfgoto(__patsflab_jacobi2_110) ; +ATStailcal_end() + +ATSbranch_end() + +ATSbranch_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 4308(line=153, offs=8) -- 4308(line=153, offs=8) +*/ +ATSINSlab(__atstmplab29): +/* +emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) +*/ +/* +ibranch-guard: +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 4314(line=153, offs=14) -- 4319(line=153, offs=19) +*/ +ATSINSmove(tmp276, atspre_g0int_mod_int(arg0, ATSPMVi0nt(2))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 4314(line=153, offs=14) -- 4323(line=153, offs=23) +*/ +ATSINSmove(tmp273, ATSLIB_056_prelude__eq_g0int_int__10__15(tmp276, ATSPMVi0nt(0))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 4314(line=153, offs=14) -- 4323(line=153, offs=23) +*/ +ATSifnthen(ATSCKpat_bool(tmp273, ATSPMVbool_true())) { ATSINSgoto(__atstmplab30) ; } ; +/* +emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) +*/ +/* +ibranch-mbody: +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 4330(line=153, offs=30) -- 4353(line=153, offs=53) +*/ +ATSINSmove(tmp281, atspre_g0int_mod_int(arg1, ATSPMVi0nt(8))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 4330(line=153, offs=30) -- 4353(line=153, offs=53) +*/ +ATSINSmove(tmp278, ATSLIB_056_prelude__eq_g0int_int__10__16(tmp281, ATSPMVi0nt(1))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 4330(line=153, offs=30) -- 4353(line=153, offs=53) +*/ +ATSif( +tmp278 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 4330(line=153, offs=30) -- 4353(line=153, offs=53) +*/ +ATSINSmove(tmp277, ATSPMVbool_true()) ; +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 4330(line=153, offs=30) -- 4353(line=153, offs=53) +*/ +ATSINSmove(tmp284, atspre_g0int_mod_int(arg1, ATSPMVi0nt(8))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 4330(line=153, offs=30) -- 4353(line=153, offs=53) +*/ +ATSINSmove(tmp285, atspre_g1int_neg_int(ATSPMVi0nt(1))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 4330(line=153, offs=30) -- 4353(line=153, offs=53) +*/ +ATSINSmove(tmp277, ATSLIB_056_prelude__eq_g0int_int__10__17(tmp284, tmp285)) ; + +} /* ATSendif */ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 4327(line=153, offs=27) -- 4416(line=156, offs=25) +*/ +ATSif( +tmp277 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 4373(line=154, offs=15) -- 4378(line=154, offs=20) +*/ +ATSINSmove(tmp286, atspre_g1int_div_int(arg0, ATSPMVi0nt(2))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 4365(line=154, offs=7) -- 4382(line=154, offs=24) +*/ +ATStailcal_beg() +ATSINSmove_tlcal(apy0, tmp286) ; +ATSINSmove_tlcal(apy1, arg1) ; +ATSINSargmove_tlcal(arg0, apy0) ; +ATSINSargmove_tlcal(arg1, apy1) ; +ATSINSfgoto(__patsflab_jacobi2_110) ; +ATStailcal_end() + +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 4407(line=156, offs=16) -- 4412(line=156, offs=21) +*/ +ATSINSmove(tmp288, atspre_g1int_div_int(arg0, ATSPMVi0nt(2))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 4399(line=156, offs=8) -- 4416(line=156, offs=25) +*/ +ATSINSmove(tmp287, jacobi2_110(tmp288, arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 4398(line=156, offs=7) -- 4416(line=156, offs=25) +*/ +ATSINSmove(tmpret268, atspre_g0int_neg_int(tmp287)) ; + +} /* ATSendif */ +ATSbranch_end() + +ATSbranch_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 4424(line=157, offs=8) -- 4424(line=157, offs=8) +*/ +ATSINSlab(__atstmplab30): +/* +emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) +*/ +/* +ibranch-guard: +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 4430(line=157, offs=14) -- 4452(line=157, offs=36) +*/ +ATSINSmove(tmp293, atspre_g0int_mod_int(arg0, ATSPMVi0nt(4))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 4430(line=157, offs=14) -- 4452(line=157, offs=36) +*/ +ATSINSmove(tmp290, ATSLIB_056_prelude__eq_g0int_int__10__18(tmp293, ATSPMVi0nt(3))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 4430(line=157, offs=14) -- 4452(line=157, offs=36) +*/ +ATSif( +tmp290 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 4430(line=157, offs=14) -- 4452(line=157, offs=36) +*/ +ATSINSmove(tmp296, atspre_g0int_mod_int(arg1, ATSPMVi0nt(4))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 4430(line=157, offs=14) -- 4452(line=157, offs=36) +*/ +ATSINSmove(tmp289, ATSLIB_056_prelude__eq_g0int_int__10__19(tmp296, ATSPMVi0nt(3))) ; + +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 4430(line=157, offs=14) -- 4452(line=157, offs=36) +*/ +ATSINSmove(tmp289, ATSPMVbool_false()) ; +} /* ATSendif */ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 4430(line=157, offs=14) -- 4452(line=157, offs=36) +*/ +ATSifnthen(ATSCKpat_bool(tmp289, ATSPMVbool_true())) { ATSINSgoto(__atstmplab31) ; } ; +/* +emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) +*/ +/* +ibranch-mbody: +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 4456(line=157, offs=40) -- 4469(line=157, offs=53) +*/ +ATStailcal_beg() +ATSINSmove_tlcal(apy0, arg1) ; +ATSINSmove_tlcal(apy1, arg0) ; +ATSINSargmove_tlcal(arg0, apy0) ; +ATSINSargmove_tlcal(arg1, apy1) ; +ATSINSfgoto(__patsflab_jacobi2_110) ; +ATStailcal_end() + +ATSbranch_end() + +ATSbranch_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 4477(line=158, offs=8) -- 4477(line=158, offs=8) +*/ +ATSINSlab(__atstmplab31): +/* +emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) +*/ +/* +ibranch-mbody: +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 4482(line=158, offs=13) -- 4495(line=158, offs=26) +*/ +ATSINSmove(tmp297, jacobi2_110(arg1, arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 4481(line=158, offs=12) -- 4495(line=158, offs=26) +*/ +ATSINSmove(tmpret268, atspre_g0int_neg_int(tmp297)) ; + +ATSbranch_end() + +/* +** ibranchlst-end +*/ +ATScaseof_end() + +ATSfunbody_end() +ATSreturn(tmpret268) ; +} /* end of [jacobi2_110] */ + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 12679(line=659, offs=3) -- 12718(line=659, offs=42) +*/ +/* +local: +global: gt_g1int_int$4$5(level=1) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4643) +tmparg = S2Evar(tk(4643)) +tmpsub = Some(tk(4643) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__gt_g1int_int__4__5(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret8__5, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp9__5, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12664(line=658, offs=1) -- 12718(line=659, offs=42) +*/ +ATSINSflab(__patsflab_gt_g1int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12705(line=659, offs=29) -- 12716(line=659, offs=40) +*/ +ATSINSmove(tmp9__5, atspre_g1int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12688(line=659, offs=12) -- 12718(line=659, offs=42) +*/ +ATSINSmove(tmpret8__5, atspre_g1int_gt_int(arg0, tmp9__5)) ; + +ATSfunbody_end() +ATSreturn(tmpret8__5) ; +} /* end of [ATSLIB_056_prelude__gt_g1int_int__4__5] */ + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) +*/ +/* +local: +global: eq_g0int_int$10$15(level=1) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4634) +tmparg = S2Evar(tk(4634)) +tmpsub = Some(tk(4634) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__10__15(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret15__15, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp16__15, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) +*/ +ATSINSflab(__patsflab_eq_g0int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) +*/ +ATSINSmove(tmp16__15, atspre_g0int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) +*/ +ATSINSmove(tmpret15__15, atspre_g0int_eq_int(arg0, tmp16__15)) ; + +ATSfunbody_end() +ATSreturn(tmpret15__15) ; +} /* end of [ATSLIB_056_prelude__eq_g0int_int__10__15] */ + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) +*/ +/* +local: +global: eq_g0int_int$10$16(level=1) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4634) +tmparg = S2Evar(tk(4634)) +tmpsub = Some(tk(4634) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__10__16(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret15__16, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp16__16, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) +*/ +ATSINSflab(__patsflab_eq_g0int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) +*/ +ATSINSmove(tmp16__16, atspre_g0int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) +*/ +ATSINSmove(tmpret15__16, atspre_g0int_eq_int(arg0, tmp16__16)) ; + +ATSfunbody_end() +ATSreturn(tmpret15__16) ; +} /* end of [ATSLIB_056_prelude__eq_g0int_int__10__16] */ + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) +*/ +/* +local: +global: eq_g0int_int$10$17(level=1) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4634) +tmparg = S2Evar(tk(4634)) +tmpsub = Some(tk(4634) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__10__17(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret15__17, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp16__17, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) +*/ +ATSINSflab(__patsflab_eq_g0int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) +*/ +ATSINSmove(tmp16__17, atspre_g0int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) +*/ +ATSINSmove(tmpret15__17, atspre_g0int_eq_int(arg0, tmp16__17)) ; + +ATSfunbody_end() +ATSreturn(tmpret15__17) ; +} /* end of [ATSLIB_056_prelude__eq_g0int_int__10__17] */ + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) +*/ +/* +local: +global: eq_g0int_int$10$18(level=1) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4634) +tmparg = S2Evar(tk(4634)) +tmpsub = Some(tk(4634) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__10__18(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret15__18, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp16__18, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) +*/ +ATSINSflab(__patsflab_eq_g0int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) +*/ +ATSINSmove(tmp16__18, atspre_g0int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) +*/ +ATSINSmove(tmpret15__18, atspre_g0int_eq_int(arg0, tmp16__18)) ; + +ATSfunbody_end() +ATSreturn(tmpret15__18) ; +} /* end of [ATSLIB_056_prelude__eq_g0int_int__10__18] */ + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) +*/ +/* +local: +global: eq_g0int_int$10$19(level=1) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4634) +tmparg = S2Evar(tk(4634)) +tmpsub = Some(tk(4634) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__10__19(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret15__19, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp16__19, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) +*/ +ATSINSflab(__patsflab_eq_g0int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) +*/ +ATSINSmove(tmp16__19, atspre_g0int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) +*/ +ATSINSmove(tmpret15__19, atspre_g0int_eq_int(arg0, tmp16__19)) ; + +ATSfunbody_end() +ATSreturn(tmpret15__19) ; +} /* end of [ATSLIB_056_prelude__eq_g0int_int__10__19] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 4526(line=160, offs=30) -- 4865(line=178, offs=6) +*/ +/* +local: sqrt_int_46$0(level=0) +global: sqrt_int_46$0(level=0), count_divisors_ats$118$0(level=0) +local: +global: +*/ +ATSextern() +atstkind_t0ype(atstype_int) +count_divisors_ats(atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret298, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 4507(line=160, offs=11) -- 4865(line=178, offs=6) +*/ +ATSINSflab(__patsflab_count_divisors_ats): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 4534(line=161, offs=3) -- 4865(line=178, offs=6) +*/ +/* +letpush(beg) +*/ +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 4852(line=177, offs=5) -- 4859(line=177, offs=12) +*/ +ATSINSmove(tmpret298, loop_119(arg0, ATSPMVi0nt(1))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 4534(line=161, offs=3) -- 4865(line=178, offs=6) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret298) ; +} /* end of [count_divisors_ats] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 4546(line=162, offs=9) -- 4842(line=175, offs=22) +*/ +/* +local: sqrt_int_46$0(level=0), loop_119$0(level=1) +global: sqrt_int_46$0(level=0), loop_119$0(level=1) +local: n$5180(1)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))) +global: n$5180(1)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))) +*/ +ATSstatic() +atstkind_t0ype(atstype_int) +loop_119(atstkind_t0ype(atstype_int) env0, atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(apy0, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmpret299, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp300, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp303, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp304, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp307, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp308, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp311, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp312, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp315, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp316, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp317, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp318, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 4546(line=162, offs=9) -- 4842(line=175, offs=22) +*/ +ATSINSflab(__patsflab_loop_119): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 4605(line=163, offs=15) -- 4615(line=163, offs=25) +*/ +ATSINSmove(tmp303, sqrt_int_46(env0)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 4600(line=163, offs=10) -- 4615(line=163, offs=25) +*/ +ATSINSmove(tmp300, ATSLIB_056_prelude__gte_g1int_int__78__2(arg0, tmp303)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 4597(line=163, offs=7) -- 4842(line=175, offs=22) +*/ +ATSif( +tmp300 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 4633(line=164, offs=12) -- 4638(line=164, offs=17) +*/ +ATSINSmove(tmp307, atspre_g0int_mod_int(env0, arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 4633(line=164, offs=12) -- 4642(line=164, offs=21) +*/ +ATSINSmove(tmp304, ATSLIB_056_prelude__eq_g0int_int__10__20(tmp307, ATSPMVi0nt(0))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 4630(line=164, offs=9) -- 4744(line=170, offs=12) +*/ +ATSif( +tmp304 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 4661(line=165, offs=14) -- 4666(line=165, offs=19) +*/ +ATSINSmove(tmp311, atspre_g1int_div_int(env0, arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 4661(line=165, offs=14) -- 4671(line=165, offs=24) +*/ +ATSINSmove(tmp308, ATSLIB_056_prelude__neq_g1int_int__67__3(tmp311, arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 4658(line=165, offs=11) -- 4719(line=168, offs=14) +*/ +ATSif( +tmp308 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 4689(line=166, offs=13) -- 4690(line=166, offs=14) +*/ +ATSINSmove(tmpret299, ATSPMVi0nt(2)) ; +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 4718(line=168, offs=13) -- 4719(line=168, offs=14) +*/ +ATSINSmove(tmpret299, ATSPMVi0nt(1)) ; +} /* ATSendif */ +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 4743(line=170, offs=11) -- 4744(line=170, offs=12) +*/ +ATSINSmove(tmpret299, ATSPMVi0nt(0)) ; +} /* ATSendif */ +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 4767(line=172, offs=12) -- 4772(line=172, offs=17) +*/ +ATSINSmove(tmp315, atspre_g0int_mod_int(env0, arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 4767(line=172, offs=12) -- 4776(line=172, offs=21) +*/ +ATSINSmove(tmp312, ATSLIB_056_prelude__eq_g0int_int__10__21(tmp315, ATSPMVi0nt(0))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 4764(line=172, offs=9) -- 4842(line=175, offs=22) +*/ +ATSif( +tmp312 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 4801(line=173, offs=20) -- 4806(line=173, offs=25) +*/ +ATSINSmove(tmp317, atspre_g1int_add_int(arg0, ATSPMVi0nt(1))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 4796(line=173, offs=15) -- 4807(line=173, offs=26) +*/ +ATSINSmove(tmp316, loop_119(env0, tmp317)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 4792(line=173, offs=11) -- 4807(line=173, offs=26) +*/ +ATSINSmove(tmpret299, atspre_g0int_add_int(ATSPMVi0nt(2), tmp316)) ; + +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 4836(line=175, offs=16) -- 4841(line=175, offs=21) +*/ +ATSINSmove(tmp318, atspre_g1int_add_int(arg0, ATSPMVi0nt(1))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 4831(line=175, offs=11) -- 4842(line=175, offs=22) +*/ +ATStailcal_beg() +ATSINSmove_tlcal(apy0, tmp318) ; +ATSINSargmove_tlcal(arg0, apy0) ; +ATSINSfgoto(__patsflab_loop_119) ; +ATStailcal_end() + +} /* ATSendif */ +} /* ATSendif */ +ATSfunbody_end() +ATSreturn(tmpret299) ; +} /* end of [loop_119] */ + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 12757(line=663, offs=3) -- 12797(line=663, offs=43) +*/ +/* +local: +global: gte_g1int_int$78$2(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4646) +tmparg = S2Evar(tk(4646)) +tmpsub = Some(tk(4646) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__gte_g1int_int__78__2(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret171__2, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp172__2, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12741(line=662, offs=1) -- 12797(line=663, offs=43) +*/ +ATSINSflab(__patsflab_gte_g1int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12784(line=663, offs=30) -- 12795(line=663, offs=41) +*/ +ATSINSmove(tmp172__2, atspre_g1int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12766(line=663, offs=12) -- 12797(line=663, offs=43) +*/ +ATSINSmove(tmpret171__2, atspre_g1int_gte_int(arg0, tmp172__2)) ; + +ATSfunbody_end() +ATSreturn(tmpret171__2) ; +} /* end of [ATSLIB_056_prelude__gte_g1int_int__78__2] */ + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) +*/ +/* +local: +global: eq_g0int_int$10$20(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4634) +tmparg = S2Evar(tk(4634)) +tmpsub = Some(tk(4634) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__10__20(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret15__20, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp16__20, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) +*/ +ATSINSflab(__patsflab_eq_g0int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) +*/ +ATSINSmove(tmp16__20, atspre_g0int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) +*/ +ATSINSmove(tmpret15__20, atspre_g0int_eq_int(arg0, tmp16__20)) ; + +ATSfunbody_end() +ATSreturn(tmpret15__20) ; +} /* end of [ATSLIB_056_prelude__eq_g0int_int__10__20] */ + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 12916(line=672, offs=3) -- 12956(line=672, offs=43) +*/ +/* +local: +global: neq_g1int_int$67$3(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4652) +tmparg = S2Evar(tk(4652)) +tmpsub = Some(tk(4652) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__neq_g1int_int__67__3(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret153__3, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp154__3, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12900(line=671, offs=1) -- 12956(line=672, offs=43) +*/ +ATSINSflab(__patsflab_neq_g1int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12943(line=672, offs=30) -- 12954(line=672, offs=41) +*/ +ATSINSmove(tmp154__3, atspre_g1int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12925(line=672, offs=12) -- 12956(line=672, offs=43) +*/ +ATSINSmove(tmpret153__3, atspre_g1int_neq_int(arg0, tmp154__3)) ; + +ATSfunbody_end() +ATSreturn(tmpret153__3) ; +} /* end of [ATSLIB_056_prelude__neq_g1int_int__67__3] */ + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) +*/ +/* +local: +global: eq_g0int_int$10$21(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4634) +tmparg = S2Evar(tk(4634)) +tmpsub = Some(tk(4634) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__10__21(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret15__21, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp16__21, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) +*/ +ATSINSflab(__patsflab_eq_g0int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) +*/ +ATSINSmove(tmp16__21, atspre_g0int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) +*/ +ATSINSmove(tmpret15__21, atspre_g0int_eq_int(arg0, tmp16__21)) ; + +ATSfunbody_end() +ATSreturn(tmpret15__21) ; +} /* end of [ATSLIB_056_prelude__eq_g0int_int__10__21] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 4894(line=180, offs=28) -- 5463(line=206, offs=6) +*/ +/* +local: sqrt_int_46$0(level=0) +global: sqrt_int_46$0(level=0), sum_divisors_ats$125$0(level=0) +local: +global: +*/ +ATSextern() +atstkind_t0ype(atstype_int) +sum_divisors_ats(atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret319, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 4877(line=180, offs=11) -- 5463(line=206, offs=6) +*/ +ATSINSflab(__patsflab_sum_divisors_ats): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 4902(line=181, offs=3) -- 5463(line=206, offs=6) +*/ +/* +letpush(beg) +*/ +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 5447(line=205, offs=5) -- 5457(line=205, offs=15) +*/ +ATSINSmove(tmpret319, loop_126(arg0, ATSPMVi0nt(1))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 4902(line=181, offs=3) -- 5463(line=206, offs=6) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret319) ; +} /* end of [sum_divisors_ats] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 4914(line=182, offs=9) -- 5437(line=203, offs=27) +*/ +/* +local: sqrt_int_46$0(level=0), loop_126$0(level=1) +global: sqrt_int_46$0(level=0), loop_126$0(level=1) +local: +global: +*/ +ATSstatic() +atstkind_t0ype(atstype_int) +loop_126(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(tmpret320, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp321, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp324, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp325, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp328, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp329, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp332, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmpref333, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp334, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp337, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmpref338, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp339, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp340, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp341, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp342, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 4914(line=182, offs=9) -- 5437(line=203, offs=27) +*/ +ATSINSflab(__patsflab_loop_126): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 5008(line=183, offs=17) -- 5018(line=183, offs=27) +*/ +ATSINSmove(tmp324, sqrt_int_46(arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 5001(line=183, offs=10) -- 5018(line=183, offs=27) +*/ +ATSINSmove(tmp321, ATSLIB_056_prelude__gte_g1int_int__78__3(arg1, tmp324)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 4998(line=183, offs=7) -- 5437(line=203, offs=27) +*/ +ATSif( +tmp321 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 5036(line=184, offs=12) -- 5043(line=184, offs=19) +*/ +ATSINSmove(tmp328, atspre_g0int_mod_int(arg0, arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 5036(line=184, offs=12) -- 5047(line=184, offs=23) +*/ +ATSINSmove(tmp325, ATSLIB_056_prelude__eq_g0int_int__10__22(tmp328, ATSPMVi0nt(0))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 5033(line=184, offs=9) -- 5245(line=194, offs=12) +*/ +ATSif( +tmp325 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 5066(line=185, offs=14) -- 5073(line=185, offs=21) +*/ +ATSINSmove(tmp332, atspre_g1int_div_int(arg0, arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 5066(line=185, offs=14) -- 5080(line=185, offs=28) +*/ +ATSINSmove(tmp329, ATSLIB_056_prelude__neq_g1int_int__67__4(tmp332, arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 5063(line=185, offs=11) -- 5220(line=192, offs=16) +*/ +ATSif( +tmp329 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 5098(line=186, offs=13) -- 5189(line=190, offs=16) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 5120(line=187, offs=19) -- 5121(line=187, offs=20) +*/ +/* +ATSINStmpdec(tmpref333) ; +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 5129(line=187, offs=28) -- 5136(line=187, offs=35) +*/ +ATSINSmove(tmpref333, atspre_g1int_div_int(arg0, arg1)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 5166(line=189, offs=15) -- 5173(line=189, offs=22) +*/ +ATSINSmove(tmpret320, atspre_g1int_add_int(arg1, tmpref333)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 5098(line=186, offs=13) -- 5189(line=190, offs=16) +*/ +/* +INSletpop() +*/ +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 5217(line=192, offs=13) -- 5220(line=192, offs=16) +*/ +ATSINSmove(tmpret320, arg1) ; +} /* ATSendif */ +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 5244(line=194, offs=11) -- 5245(line=194, offs=12) +*/ +ATSINSmove(tmpret320, ATSPMVi0nt(0)) ; +} /* ATSendif */ +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 5268(line=196, offs=12) -- 5275(line=196, offs=19) +*/ +ATSINSmove(tmp337, atspre_g0int_mod_int(arg0, arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 5268(line=196, offs=12) -- 5279(line=196, offs=23) +*/ +ATSINSmove(tmp334, ATSLIB_056_prelude__eq_g0int_int__10__23(tmp337, ATSPMVi0nt(0))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 5265(line=196, offs=9) -- 5437(line=203, offs=27) +*/ +ATSif( +tmp334 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 5295(line=197, offs=11) -- 5397(line=201, offs=14) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 5315(line=198, offs=17) -- 5316(line=198, offs=18) +*/ +/* +ATSINStmpdec(tmpref338) ; +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 5324(line=198, offs=26) -- 5331(line=198, offs=33) +*/ +ATSINSmove(tmpref338, atspre_g1int_div_int(arg0, arg1)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 5357(line=200, offs=13) -- 5364(line=200, offs=20) +*/ +ATSINSmove(tmp339, atspre_g1int_add_int(arg1, tmpref338)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 5375(line=200, offs=31) -- 5382(line=200, offs=38) +*/ +ATSINSmove(tmp341, atspre_g1int_add_int(arg1, ATSPMVi0nt(1))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 5367(line=200, offs=23) -- 5383(line=200, offs=39) +*/ +ATSINSmove(tmp340, loop_126(arg0, tmp341)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 5357(line=200, offs=13) -- 5383(line=200, offs=39) +*/ +ATSINSmove(tmpret320, atspre_g0int_add_int(tmp339, tmp340)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 5295(line=197, offs=11) -- 5397(line=201, offs=14) +*/ +/* +INSletpop() +*/ +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 5429(line=203, offs=19) -- 5436(line=203, offs=26) +*/ +ATSINSmove(tmp342, atspre_g1int_add_int(arg1, ATSPMVi0nt(1))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 5421(line=203, offs=11) -- 5437(line=203, offs=27) +*/ +ATStailcal_beg() +ATSINSmove_tlcal(apy0, arg0) ; +ATSINSmove_tlcal(apy1, tmp342) ; +ATSINSargmove_tlcal(arg0, apy0) ; +ATSINSargmove_tlcal(arg1, apy1) ; +ATSINSfgoto(__patsflab_loop_126) ; +ATStailcal_end() + +} /* ATSendif */ +} /* ATSendif */ +ATSfunbody_end() +ATSreturn(tmpret320) ; +} /* end of [loop_126] */ + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 12757(line=663, offs=3) -- 12797(line=663, offs=43) +*/ +/* +local: +global: gte_g1int_int$78$3(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4646) +tmparg = S2Evar(tk(4646)) +tmpsub = Some(tk(4646) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__gte_g1int_int__78__3(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret171__3, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp172__3, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12741(line=662, offs=1) -- 12797(line=663, offs=43) +*/ +ATSINSflab(__patsflab_gte_g1int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12784(line=663, offs=30) -- 12795(line=663, offs=41) +*/ +ATSINSmove(tmp172__3, atspre_g1int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12766(line=663, offs=12) -- 12797(line=663, offs=43) +*/ +ATSINSmove(tmpret171__3, atspre_g1int_gte_int(arg0, tmp172__3)) ; + +ATSfunbody_end() +ATSreturn(tmpret171__3) ; +} /* end of [ATSLIB_056_prelude__gte_g1int_int__78__3] */ + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) +*/ +/* +local: +global: eq_g0int_int$10$22(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4634) +tmparg = S2Evar(tk(4634)) +tmpsub = Some(tk(4634) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__10__22(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret15__22, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp16__22, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) +*/ +ATSINSflab(__patsflab_eq_g0int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) +*/ +ATSINSmove(tmp16__22, atspre_g0int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) +*/ +ATSINSmove(tmpret15__22, atspre_g0int_eq_int(arg0, tmp16__22)) ; + +ATSfunbody_end() +ATSreturn(tmpret15__22) ; +} /* end of [ATSLIB_056_prelude__eq_g0int_int__10__22] */ + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 12916(line=672, offs=3) -- 12956(line=672, offs=43) +*/ +/* +local: +global: neq_g1int_int$67$4(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4652) +tmparg = S2Evar(tk(4652)) +tmpsub = Some(tk(4652) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__neq_g1int_int__67__4(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret153__4, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp154__4, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12900(line=671, offs=1) -- 12956(line=672, offs=43) +*/ +ATSINSflab(__patsflab_neq_g1int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12943(line=672, offs=30) -- 12954(line=672, offs=41) +*/ +ATSINSmove(tmp154__4, atspre_g1int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12925(line=672, offs=12) -- 12956(line=672, offs=43) +*/ +ATSINSmove(tmpret153__4, atspre_g1int_neq_int(arg0, tmp154__4)) ; + +ATSfunbody_end() +ATSreturn(tmpret153__4) ; +} /* end of [ATSLIB_056_prelude__neq_g1int_int__67__4] */ + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) +*/ +/* +local: +global: eq_g0int_int$10$23(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4634) +tmparg = S2Evar(tk(4634)) +tmpsub = Some(tk(4634) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__10__23(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret15__23, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp16__23, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) +*/ +ATSINSflab(__patsflab_eq_g0int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) +*/ +ATSINSmove(tmp16__23, atspre_g0int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) +*/ +ATSINSmove(tmpret15__23, atspre_g0int_eq_int(arg0, tmp16__23)) ; + +ATSfunbody_end() +ATSreturn(tmpret15__23) ; +} /* end of [ATSLIB_056_prelude__eq_g0int_int__10__23] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 5490(line=208, offs=26) -- 5521(line=209, offs=26) +*/ +/* +local: +global: is_perfect_ats$131$0(level=0) +local: +global: +*/ +ATSextern() +atstkind_t0ype(atstype_bool) +is_perfect_ats(atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret343, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp346, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 5475(line=208, offs=11) -- 5521(line=209, offs=26) +*/ +ATSINSflab(__patsflab_is_perfect_ats): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 5498(line=209, offs=3) -- 5516(line=209, offs=21) +*/ +ATSINSmove(tmp346, sum_divisors_ats(arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 5498(line=209, offs=3) -- 5521(line=209, offs=26) +*/ +ATSINSmove(tmpret343, ATSLIB_056_prelude__eq_g0int_int__10__24(tmp346, arg0)) ; + +ATSfunbody_end() +ATSreturn(tmpret343) ; +} /* end of [is_perfect_ats] */ + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) +*/ +/* +local: +global: eq_g0int_int$10$24(level=1) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4634) +tmparg = S2Evar(tk(4634)) +tmpsub = Some(tk(4634) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__10__24(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret15__24, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp16__24, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) +*/ +ATSINSflab(__patsflab_eq_g0int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) +*/ +ATSINSmove(tmp16__24, atspre_g0int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) +*/ +ATSINSmove(tmpret15__24, atspre_g0int_eq_int(arg0, tmp16__24)) ; + +ATSfunbody_end() +ATSreturn(tmpret15__24) ; +} /* end of [ATSLIB_056_prelude__eq_g0int_int__10__24] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 5527(line=211, offs=5) -- 5837(line=225, offs=8) +*/ +/* +local: rip_133$0(level=0) +global: rip_133$0(level=0) +local: +global: +*/ +ATSstatic() +atstkind_t0ype(atstype_int) +rip_133(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(tmp353, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp354, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp357, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmpref358, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp359, atstkind_t0ype(atstype_bool)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 5527(line=211, offs=5) -- 5837(line=225, offs=8) +*/ +ATSINSflab(__patsflab_rip_133): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 5649(line=212, offs=6) -- 5654(line=212, offs=11) +*/ +ATSINSmove(tmp353, atspre_g0int_mod_int(arg0, arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 5649(line=212, offs=6) -- 5659(line=212, offs=16) +*/ +ATSINSmove(tmp348, ATSLIB_056_prelude__neq_g0int_int__134__1(tmp353, ATSPMVi0nt(0))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 5646(line=212, offs=3) -- 5837(line=225, offs=8) +*/ +ATSif( +tmp348 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 5669(line=213, offs=5) -- 5670(line=213, offs=6) +*/ +ATSINSmove(tmpret347, arg0) ; +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 5685(line=215, offs=8) -- 5690(line=215, offs=13) +*/ +ATSINSmove(tmp357, atspre_g1int_div_int(arg0, arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 5685(line=215, offs=8) -- 5694(line=215, offs=17) +*/ +ATSINSmove(tmp354, ATSLIB_056_prelude__gt_g1int_int__4__6(tmp357, ATSPMVi0nt(0))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 5682(line=215, offs=5) -- 5837(line=225, offs=8) +*/ +ATSif( +tmp354 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 5706(line=216, offs=7) -- 5820(line=223, offs=10) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 5722(line=217, offs=13) -- 5724(line=217, offs=15) +*/ +/* +ATSINStmpdec(tmpref358) ; +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 5727(line=217, offs=18) -- 5732(line=217, offs=23) +*/ +ATSINSmove(tmpref358, atspre_g1int_div_int(arg0, arg1)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 5753(line=219, offs=12) -- 5759(line=219, offs=18) +*/ +ATSINSmove(tmp359, ATSLIB_056_prelude__lt_g1int_int__50__3(tmpref358, arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 5750(line=219, offs=9) -- 5810(line=222, offs=12) +*/ +ATSif( +tmp359 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 5775(line=220, offs=11) -- 5785(line=220, offs=21) +*/ +ATStailcal_beg() +ATSINSmove_tlcal(apy0, tmpref358) ; +ATSINSmove_tlcal(apy1, arg1) ; +ATSINSargmove_tlcal(arg0, apy0) ; +ATSINSargmove_tlcal(arg1, apy1) ; +ATSINSfgoto(__patsflab_rip_133) ; +ATStailcal_end() + +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 5809(line=222, offs=11) -- 5810(line=222, offs=12) +*/ +ATSINSmove(tmpret347, ATSPMVi0nt(1)) ; +} /* ATSendif */ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 5706(line=216, offs=7) -- 5820(line=223, offs=10) +*/ +/* +INSletpop() +*/ +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 5836(line=225, offs=7) -- 5837(line=225, offs=8) +*/ +ATSINSmove(tmpret347, ATSPMVi0nt(1)) ; +} /* ATSendif */ +} /* ATSendif */ +ATSfunbody_end() +ATSreturn(tmpret347) ; +} /* end of [rip_133] */ + +#if(0) +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 12337(line=639, offs=3) -- 12377(line=639, offs=43) +*/ +/* +local: +global: neq_g0int_int$134$0(level=0) +local: +global: +*/ +ATSextern() +/* +imparg = tk(4635) +tmparg = S2Evar(tk(4635)) +tmpsub = None() +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__neq_g0int_int__134(atstkind_t0ype(atstyvar_type(tk)) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret349, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp350, atstkind_t0ype(atstyvar_type(tk))) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12321(line=638, offs=1) -- 12377(line=639, offs=43) +*/ +ATSINSflab(__patsflab_neq_g0int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12364(line=639, offs=30) -- 12375(line=639, offs=41) +*/ +ATSINSmove(tmp350, PMVtmpltcst(g0int2int)(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12346(line=639, offs=12) -- 12377(line=639, offs=43) +*/ +ATSINSmove(tmpret349, PMVtmpltcst(g0int_neq)(arg0, tmp350)) ; + +ATSfunbody_end() +ATSreturn(tmpret349) ; +} /* end of [ATSLIB_056_prelude__neq_g0int_int__134] */ +#endif // end of [TEMPLATE] + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 12337(line=639, offs=3) -- 12377(line=639, offs=43) +*/ +/* +local: +global: neq_g0int_int$134$1(level=1) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4635) +tmparg = S2Evar(tk(4635)) +tmpsub = Some(tk(4635) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__neq_g0int_int__134__1(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret349__1, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp350__1, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12321(line=638, offs=1) -- 12377(line=639, offs=43) +*/ +ATSINSflab(__patsflab_neq_g0int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12364(line=639, offs=30) -- 12375(line=639, offs=41) +*/ +ATSINSmove(tmp350__1, atspre_g0int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12346(line=639, offs=12) -- 12377(line=639, offs=43) +*/ +ATSINSmove(tmpret349__1, atspre_g0int_neq_int(arg0, tmp350__1)) ; + +ATSfunbody_end() +ATSreturn(tmpret349__1) ; +} /* end of [ATSLIB_056_prelude__neq_g0int_int__134__1] */ + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 12679(line=659, offs=3) -- 12718(line=659, offs=42) +*/ +/* +local: +global: gt_g1int_int$4$6(level=1) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4643) +tmparg = S2Evar(tk(4643)) +tmpsub = Some(tk(4643) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__gt_g1int_int__4__6(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret8__6, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp9__6, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12664(line=658, offs=1) -- 12718(line=659, offs=42) +*/ +ATSINSflab(__patsflab_gt_g1int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12705(line=659, offs=29) -- 12716(line=659, offs=40) +*/ +ATSINSmove(tmp9__6, atspre_g1int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12688(line=659, offs=12) -- 12718(line=659, offs=42) +*/ +ATSINSmove(tmpret8__6, atspre_g1int_gt_int(arg0, tmp9__6)) ; + +ATSfunbody_end() +ATSreturn(tmpret8__6) ; +} /* end of [ATSLIB_056_prelude__gt_g1int_int__4__6] */ + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 12520(line=650, offs=3) -- 12559(line=650, offs=42) +*/ +/* +local: +global: lt_g1int_int$50$3(level=1) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4637) +tmparg = S2Evar(tk(4637)) +tmpsub = Some(tk(4637) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__lt_g1int_int__50__3(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret108__3, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp109__3, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12505(line=649, offs=1) -- 12559(line=650, offs=42) +*/ +ATSINSflab(__patsflab_lt_g1int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12546(line=650, offs=29) -- 12557(line=650, offs=40) +*/ +ATSINSmove(tmp109__3, atspre_g1int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12529(line=650, offs=12) -- 12559(line=650, offs=42) +*/ +ATSINSmove(tmpret108__3, atspre_g1int_lt_int(arg0, tmp109__3)) ; + +ATSfunbody_end() +ATSreturn(tmpret108__3) ; +} /* end of [ATSLIB_056_prelude__lt_g1int_int__50__3] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 5863(line=227, offs=25) -- 6424(line=245, offs=6) +*/ +/* +local: is_prime_48$0(level=0), rip_133$0(level=0) +global: sqrt_int_46$0(level=0), is_prime_48$0(level=0), rip_133$0(level=0), prime_factors$139$0(level=0) +local: +global: +*/ +ATSextern() +atstkind_type(atstype_ptrk) +_057_home_057_vanessa_057_dev_057_haskell_057_fast_055_arithmetic_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_sats__prime_factors(atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret362, atstkind_type(atstype_ptrk)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 5849(line=227, offs=11) -- 6424(line=245, offs=6) +*/ +ATSINSflab(__patsflab_prime_factors): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 5871(line=228, offs=3) -- 6424(line=245, offs=6) +*/ +/* +letpush(beg) +*/ +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 6408(line=244, offs=5) -- 6418(line=244, offs=15) +*/ +ATSINSmove(tmpret362, loop_140(arg0, ATSPMVi0nt(1))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 5871(line=228, offs=3) -- 6424(line=245, offs=6) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret362) ; +} /* end of [_057_home_057_vanessa_057_dev_057_haskell_057_fast_055_arithmetic_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_sats__prime_factors] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 5883(line=229, offs=9) -- 6398(line=242, offs=27) +*/ +/* +local: is_prime_48$0(level=0), rip_133$0(level=0), loop_140$0(level=1) +global: is_prime_48$0(level=0), rip_133$0(level=0), loop_140$0(level=1) +local: +global: +*/ +ATSstatic() +atstkind_type(atstype_ptrk) +loop_140(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_type(atstype_ptrk)) ; +ATStmpdec(tmp364, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp367, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp372, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp373, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp376, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp377, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp380, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp387, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 5883(line=229, offs=9) -- 6398(line=242, offs=27) +*/ +ATSINSflab(__patsflab_loop_140): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 5981(line=230, offs=10) -- 5989(line=230, offs=18) +*/ +ATSINSmove(tmp364, ATSLIB_056_prelude__gte_g1int_int__78__4(arg1, arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 5978(line=230, offs=7) -- 6398(line=242, offs=27) +*/ +ATSif( +tmp364 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 6006(line=231, offs=12) -- 6016(line=231, offs=22) +*/ +ATSINSmove(tmp367, is_prime_48(arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 6003(line=231, offs=9) -- 6129(line=234, offs=33) +*/ +ATSif( +tmp367 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 6033(line=232, offs=11) -- 6083(line=232, offs=61) +*/ +ATSINSmove_ldelay(tmpret363, atstype_boxed, ATSPMVcfunlab(1, __patsfun_142, (arg0))) ; +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 6107(line=234, offs=11) -- 6129(line=234, offs=33) +*/ +ATSINSmove_ldelay(tmpret363, atstype_boxed, ATSPMVcfunlab(1, __patsfun_144, ())) ; +} /* ATSendif */ +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 6152(line=236, offs=12) -- 6179(line=236, offs=39) +*/ +ATSINSmove(tmp376, atspre_g0int_mod_int(arg0, arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 6152(line=236, offs=12) -- 6179(line=236, offs=39) +*/ +ATSINSmove(tmp373, ATSLIB_056_prelude__eq_g0int_int__10__25(tmp376, ATSPMVi0nt(0))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 6152(line=236, offs=12) -- 6179(line=236, offs=39) +*/ +ATSif( +tmp373 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 6152(line=236, offs=12) -- 6179(line=236, offs=39) +*/ +ATSINSmove(tmp372, is_prime_48(arg1)) ; + +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 6152(line=236, offs=12) -- 6179(line=236, offs=39) +*/ +ATSINSmove(tmp372, ATSPMVbool_false()) ; +} /* ATSendif */ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 6149(line=236, offs=9) -- 6398(line=242, offs=27) +*/ +ATSif( +tmp372 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 6199(line=237, offs=14) -- 6206(line=237, offs=21) +*/ +ATSINSmove(tmp380, atspre_g1int_div_int(arg0, arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 6199(line=237, offs=14) -- 6210(line=237, offs=25) +*/ +ATSINSmove(tmp377, ATSLIB_056_prelude__gt_g1int_int__4__7(tmp380, ATSPMVi0nt(0))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 6196(line=237, offs=11) -- 6358(line=240, offs=65) +*/ +ATSif( +tmp377 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 6228(line=238, offs=13) -- 6278(line=238, offs=63) +*/ +ATSINSmove_ldelay(tmpret363, atstype_boxed, ATSPMVcfunlab(1, __patsfun_147, (arg0, arg1))) ; +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 6306(line=240, offs=13) -- 6358(line=240, offs=65) +*/ +ATSINSmove_ldelay(tmpret363, atstype_boxed, ATSPMVcfunlab(1, __patsfun_148, (arg1))) ; +} /* ATSendif */ +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 6390(line=242, offs=19) -- 6397(line=242, offs=26) +*/ +ATSINSmove(tmp387, atspre_g1int_add_int(arg1, ATSPMVi0nt(1))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 6382(line=242, offs=11) -- 6398(line=242, offs=27) +*/ +ATStailcal_beg() +ATSINSmove_tlcal(apy0, arg0) ; +ATSINSmove_tlcal(apy1, tmp387) ; +ATSINSargmove_tlcal(arg0, apy0) ; +ATSINSargmove_tlcal(arg1, apy1) ; +ATSINSfgoto(__patsflab_loop_140) ; +ATStailcal_end() + +} /* ATSendif */ +} /* ATSendif */ +ATSfunbody_end() +ATSreturn(tmpret363) ; +} /* end of [loop_140] */ + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 12757(line=663, offs=3) -- 12797(line=663, offs=43) +*/ +/* +local: +global: gte_g1int_int$78$4(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4646) +tmparg = S2Evar(tk(4646)) +tmpsub = Some(tk(4646) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__gte_g1int_int__78__4(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret171__4, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp172__4, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12741(line=662, offs=1) -- 12797(line=663, offs=43) +*/ +ATSINSflab(__patsflab_gte_g1int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12784(line=663, offs=30) -- 12795(line=663, offs=41) +*/ +ATSINSmove(tmp172__4, atspre_g1int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12766(line=663, offs=12) -- 12797(line=663, offs=43) +*/ +ATSINSmove(tmpret171__4, atspre_g1int_gte_int(arg0, tmp172__4)) ; + +ATSfunbody_end() +ATSreturn(tmpret171__4) ; +} /* end of [ATSLIB_056_prelude__gte_g1int_int__78__4] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 6033(line=232, offs=11) -- 6083(line=232, offs=61) +*/ +/* +local: +global: __patsfun_142$0(level=2) +local: n$5196(2)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))) +global: n$5196(2)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))) +*/ +ATSstatic() +atstype_boxed +__patsfun_142(atstkind_t0ype(atstype_int) env0, atstype_bool arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret368, atstype_boxed) ; +ATStmpdec(tmp369, atstkind_type(atstype_ptrk)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 6033(line=232, offs=11) -- 6083(line=232, offs=61) +*/ +ATSINSflab(__patsflab___patsfun_142): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 6033(line=232, offs=11) -- 6083(line=232, offs=61) +*/ +ATSif( +arg0 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 6059(line=232, offs=37) -- 6081(line=232, offs=59) +*/ +ATSINSmove_ldelay(tmp369, atstype_boxed, ATSPMVcfunlab(1, __patsfun_143, ())) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 6041(line=232, offs=19) -- 6082(line=232, offs=60) +*/ + +/* +#LINCONSTATUS==0 +*/ +ATSINSmove_con1_beg() +ATSINSmove_con1_new(tmpret368, postiats_tysum_1) ; +#if(0) +ATSINSstore_con1_tag(tmpret368, 1) ; +#endif +ATSINSstore_con1_ofs(tmpret368, postiats_tysum_1, atslab__0, env0) ; +ATSINSstore_con1_ofs(tmpret368, postiats_tysum_1, atslab__1, tmp369) ; +ATSINSmove_con1_end() +} ATSelse() { +/* (*nothing*) */ +} /* ATSendif */ +ATSfunbody_end() +ATSreturn(tmpret368) ; +} /* end of [__patsfun_142] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 6059(line=232, offs=37) -- 6081(line=232, offs=59) +*/ +/* +local: +global: __patsfun_143$0(level=3) +local: +global: +*/ +ATSstatic() +atstype_boxed +__patsfun_143(atstype_bool arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret370, atstype_boxed) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 6059(line=232, offs=37) -- 6081(line=232, offs=59) +*/ +ATSINSflab(__patsflab___patsfun_143): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 6059(line=232, offs=37) -- 6081(line=232, offs=59) +*/ +ATSif( +arg0 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 6067(line=232, offs=45) -- 6080(line=232, offs=58) +*/ + +ATSINSmove_nil(tmpret370) ; + +} ATSelse() { +/* (*nothing*) */ +} /* ATSendif */ +ATSfunbody_end() +ATSreturn(tmpret370) ; +} /* end of [__patsfun_143] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 6107(line=234, offs=11) -- 6129(line=234, offs=33) +*/ +/* +local: +global: __patsfun_144$0(level=2) +local: +global: +*/ +ATSstatic() +atstype_boxed +__patsfun_144(atstype_bool arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret371, atstype_boxed) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 6107(line=234, offs=11) -- 6129(line=234, offs=33) +*/ +ATSINSflab(__patsflab___patsfun_144): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 6107(line=234, offs=11) -- 6129(line=234, offs=33) +*/ +ATSif( +arg0 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 6115(line=234, offs=19) -- 6128(line=234, offs=32) +*/ + +ATSINSmove_nil(tmpret371) ; + +} ATSelse() { +/* (*nothing*) */ +} /* ATSendif */ +ATSfunbody_end() +ATSreturn(tmpret371) ; +} /* end of [__patsfun_144] */ + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) +*/ +/* +local: +global: eq_g0int_int$10$25(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4634) +tmparg = S2Evar(tk(4634)) +tmpsub = Some(tk(4634) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__10__25(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret15__25, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp16__25, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) +*/ +ATSINSflab(__patsflab_eq_g0int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) +*/ +ATSINSmove(tmp16__25, atspre_g0int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) +*/ +ATSINSmove(tmpret15__25, atspre_g0int_eq_int(arg0, tmp16__25)) ; + +ATSfunbody_end() +ATSreturn(tmpret15__25) ; +} /* end of [ATSLIB_056_prelude__eq_g0int_int__10__25] */ + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 12679(line=659, offs=3) -- 12718(line=659, offs=42) +*/ +/* +local: +global: gt_g1int_int$4$7(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4643) +tmparg = S2Evar(tk(4643)) +tmpsub = Some(tk(4643) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__gt_g1int_int__4__7(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret8__7, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp9__7, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12664(line=658, offs=1) -- 12718(line=659, offs=42) +*/ +ATSINSflab(__patsflab_gt_g1int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12705(line=659, offs=29) -- 12716(line=659, offs=40) +*/ +ATSINSmove(tmp9__7, atspre_g1int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12688(line=659, offs=12) -- 12718(line=659, offs=42) +*/ +ATSINSmove(tmpret8__7, atspre_g1int_gt_int(arg0, tmp9__7)) ; + +ATSfunbody_end() +ATSreturn(tmpret8__7) ; +} /* end of [ATSLIB_056_prelude__gt_g1int_int__4__7] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 6228(line=238, offs=13) -- 6278(line=238, offs=63) +*/ +/* +local: rip_133$0(level=0), loop_140$0(level=1) +global: rip_133$0(level=0), loop_140$0(level=1), __patsfun_147$0(level=2) +local: n$5196(2)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))), acc$5197(2)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))) +global: n$5196(2)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))), acc$5197(2)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))) +*/ +ATSstatic() +atstype_boxed +__patsfun_147(atstkind_t0ype(atstype_int) env0, atstkind_t0ype(atstype_int) env1, atstype_bool arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret381, atstype_boxed) ; +ATStmpdec(tmp382, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp383, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 6228(line=238, offs=13) -- 6278(line=238, offs=63) +*/ +ATSINSflab(__patsflab___patsfun_147): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 6228(line=238, offs=13) -- 6278(line=238, offs=63) +*/ +ATSif( +arg0 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 6261(line=238, offs=46) -- 6272(line=238, offs=57) +*/ +ATSINSmove(tmp383, rip_133(env0, env1)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 6256(line=238, offs=41) -- 6276(line=238, offs=61) +*/ +ATSINSmove(tmp382, loop_140(tmp383, ATSPMVi0nt(1))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 6236(line=238, offs=21) -- 6277(line=238, offs=62) +*/ + +/* +#LINCONSTATUS==0 +*/ +ATSINSmove_con1_beg() +ATSINSmove_con1_new(tmpret381, postiats_tysum_1) ; +#if(0) +ATSINSstore_con1_tag(tmpret381, 1) ; +#endif +ATSINSstore_con1_ofs(tmpret381, postiats_tysum_1, atslab__0, env1) ; +ATSINSstore_con1_ofs(tmpret381, postiats_tysum_1, atslab__1, tmp382) ; +ATSINSmove_con1_end() +} ATSelse() { +/* (*nothing*) */ +} /* ATSendif */ +ATSfunbody_end() +ATSreturn(tmpret381) ; +} /* end of [__patsfun_147] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 6306(line=240, offs=13) -- 6358(line=240, offs=65) +*/ +/* +local: +global: __patsfun_148$0(level=2) +local: acc$5197(2)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))) +global: acc$5197(2)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))) +*/ +ATSstatic() +atstype_boxed +__patsfun_148(atstkind_t0ype(atstype_int) env0, atstype_bool arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret384, atstype_boxed) ; +ATStmpdec(tmp385, atstkind_type(atstype_ptrk)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 6306(line=240, offs=13) -- 6358(line=240, offs=65) +*/ +ATSINSflab(__patsflab___patsfun_148): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 6306(line=240, offs=13) -- 6358(line=240, offs=65) +*/ +ATSif( +arg0 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 6334(line=240, offs=41) -- 6356(line=240, offs=63) +*/ +ATSINSmove_ldelay(tmp385, atstype_boxed, ATSPMVcfunlab(1, __patsfun_149, ())) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 6314(line=240, offs=21) -- 6357(line=240, offs=64) +*/ + +/* +#LINCONSTATUS==0 +*/ +ATSINSmove_con1_beg() +ATSINSmove_con1_new(tmpret384, postiats_tysum_1) ; +#if(0) +ATSINSstore_con1_tag(tmpret384, 1) ; +#endif +ATSINSstore_con1_ofs(tmpret384, postiats_tysum_1, atslab__0, env0) ; +ATSINSstore_con1_ofs(tmpret384, postiats_tysum_1, atslab__1, tmp385) ; +ATSINSmove_con1_end() +} ATSelse() { +/* (*nothing*) */ +} /* ATSendif */ +ATSfunbody_end() +ATSreturn(tmpret384) ; +} /* end of [__patsfun_148] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 6334(line=240, offs=41) -- 6356(line=240, offs=63) +*/ +/* +local: +global: __patsfun_149$0(level=3) +local: +global: +*/ +ATSstatic() +atstype_boxed +__patsfun_149(atstype_bool arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret386, atstype_boxed) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 6334(line=240, offs=41) -- 6356(line=240, offs=63) +*/ +ATSINSflab(__patsflab___patsfun_149): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 6334(line=240, offs=41) -- 6356(line=240, offs=63) +*/ +ATSif( +arg0 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 6342(line=240, offs=49) -- 6355(line=240, offs=62) +*/ + +ATSINSmove_nil(tmpret386) ; + +} ATSelse() { +/* (*nothing*) */ +} /* ATSendif */ +ATSfunbody_end() +ATSreturn(tmpret386) ; +} /* end of [__patsfun_149] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 6453(line=247, offs=28) -- 6862(line=265, offs=6) +*/ +/* +local: is_prime_48$0(level=0), rip_133$0(level=0) +global: sqrt_int_46$0(level=0), is_prime_48$0(level=0), rip_133$0(level=0), little_omega_ats$150$0(level=0) +local: +global: +*/ +ATSextern() +atstkind_t0ype(atstype_int) +little_omega_ats(atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret388, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 6436(line=247, offs=11) -- 6862(line=265, offs=6) +*/ +ATSINSflab(__patsflab_little_omega_ats): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 6461(line=248, offs=3) -- 6862(line=265, offs=6) +*/ +/* +letpush(beg) +*/ +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 6846(line=264, offs=5) -- 6856(line=264, offs=15) +*/ +ATSINSmove(tmpret388, loop_151(arg0, ATSPMVi0nt(1))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 6461(line=248, offs=3) -- 6862(line=265, offs=6) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret388) ; +} /* end of [little_omega_ats] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 6473(line=249, offs=9) -- 6836(line=262, offs=27) +*/ +/* +local: is_prime_48$0(level=0), rip_133$0(level=0), loop_151$0(level=1) +global: is_prime_48$0(level=0), rip_133$0(level=0), loop_151$0(level=1) +local: +global: +*/ +ATSstatic() +atstkind_t0ype(atstype_int) +loop_151(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(tmpret389, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp390, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp393, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp394, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp395, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp398, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp399, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp402, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp403, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp404, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp405, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 6473(line=249, offs=9) -- 6836(line=262, offs=27) +*/ +ATSINSflab(__patsflab_loop_151): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 6566(line=250, offs=10) -- 6574(line=250, offs=18) +*/ +ATSINSmove(tmp390, ATSLIB_056_prelude__gte_g1int_int__78__5(arg1, arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 6563(line=250, offs=7) -- 6836(line=262, offs=27) +*/ +ATSif( +tmp390 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 6591(line=251, offs=12) -- 6601(line=251, offs=22) +*/ +ATSINSmove(tmp393, is_prime_48(arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 6588(line=251, offs=9) -- 6644(line=254, offs=12) +*/ +ATSif( +tmp393 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 6618(line=252, offs=11) -- 6619(line=252, offs=12) +*/ +ATSINSmove(tmpret389, ATSPMVi0nt(1)) ; +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 6643(line=254, offs=11) -- 6644(line=254, offs=12) +*/ +ATSINSmove(tmpret389, ATSPMVi0nt(0)) ; +} /* ATSendif */ +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 6667(line=256, offs=12) -- 6694(line=256, offs=39) +*/ +ATSINSmove(tmp398, atspre_g0int_mod_int(arg0, arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 6667(line=256, offs=12) -- 6694(line=256, offs=39) +*/ +ATSINSmove(tmp395, ATSLIB_056_prelude__eq_g0int_int__10__26(tmp398, ATSPMVi0nt(0))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 6667(line=256, offs=12) -- 6694(line=256, offs=39) +*/ +ATSif( +tmp395 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 6667(line=256, offs=12) -- 6694(line=256, offs=39) +*/ +ATSINSmove(tmp394, is_prime_48(arg1)) ; + +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 6667(line=256, offs=12) -- 6694(line=256, offs=39) +*/ +ATSINSmove(tmp394, ATSPMVbool_false()) ; +} /* ATSendif */ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 6664(line=256, offs=9) -- 6836(line=262, offs=27) +*/ +ATSif( +tmp394 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 6714(line=257, offs=14) -- 6721(line=257, offs=21) +*/ +ATSINSmove(tmp402, atspre_g1int_div_int(arg0, arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 6714(line=257, offs=14) -- 6725(line=257, offs=25) +*/ +ATSINSmove(tmp399, ATSLIB_056_prelude__gt_g1int_int__4__8(tmp402, ATSPMVi0nt(0))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 6711(line=257, offs=11) -- 6796(line=260, offs=14) +*/ +ATSif( +tmp399 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 6752(line=258, offs=22) -- 6763(line=258, offs=33) +*/ +ATSINSmove(tmp404, rip_133(arg0, arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 6747(line=258, offs=17) -- 6767(line=258, offs=37) +*/ +ATSINSmove(tmp403, loop_151(tmp404, ATSPMVi0nt(1))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 6743(line=258, offs=13) -- 6767(line=258, offs=37) +*/ +ATSINSmove(tmpret389, atspre_g0int_add_int(ATSPMVi0nt(1), tmp403)) ; + +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 6795(line=260, offs=13) -- 6796(line=260, offs=14) +*/ +ATSINSmove(tmpret389, ATSPMVi0nt(1)) ; +} /* ATSendif */ +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 6828(line=262, offs=19) -- 6835(line=262, offs=26) +*/ +ATSINSmove(tmp405, atspre_g1int_add_int(arg1, ATSPMVi0nt(1))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 6820(line=262, offs=11) -- 6836(line=262, offs=27) +*/ +ATStailcal_beg() +ATSINSmove_tlcal(apy0, arg0) ; +ATSINSmove_tlcal(apy1, tmp405) ; +ATSINSargmove_tlcal(arg0, apy0) ; +ATSINSargmove_tlcal(arg1, apy1) ; +ATSINSfgoto(__patsflab_loop_151) ; +ATStailcal_end() + +} /* ATSendif */ +} /* ATSendif */ +ATSfunbody_end() +ATSreturn(tmpret389) ; +} /* end of [loop_151] */ + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 12757(line=663, offs=3) -- 12797(line=663, offs=43) +*/ +/* +local: +global: gte_g1int_int$78$5(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4646) +tmparg = S2Evar(tk(4646)) +tmpsub = Some(tk(4646) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__gte_g1int_int__78__5(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret171__5, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp172__5, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12741(line=662, offs=1) -- 12797(line=663, offs=43) +*/ +ATSINSflab(__patsflab_gte_g1int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12784(line=663, offs=30) -- 12795(line=663, offs=41) +*/ +ATSINSmove(tmp172__5, atspre_g1int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12766(line=663, offs=12) -- 12797(line=663, offs=43) +*/ +ATSINSmove(tmpret171__5, atspre_g1int_gte_int(arg0, tmp172__5)) ; + +ATSfunbody_end() +ATSreturn(tmpret171__5) ; +} /* end of [ATSLIB_056_prelude__gte_g1int_int__78__5] */ + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) +*/ +/* +local: +global: eq_g0int_int$10$26(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4634) +tmparg = S2Evar(tk(4634)) +tmpsub = Some(tk(4634) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__10__26(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret15__26, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp16__26, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) +*/ +ATSINSflab(__patsflab_eq_g0int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) +*/ +ATSINSmove(tmp16__26, atspre_g0int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) +*/ +ATSINSmove(tmpret15__26, atspre_g0int_eq_int(arg0, tmp16__26)) ; + +ATSfunbody_end() +ATSreturn(tmpret15__26) ; +} /* end of [ATSLIB_056_prelude__eq_g0int_int__10__26] */ + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 12679(line=659, offs=3) -- 12718(line=659, offs=42) +*/ +/* +local: +global: gt_g1int_int$4$8(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4643) +tmparg = S2Evar(tk(4643)) +tmpsub = Some(tk(4643) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__gt_g1int_int__4__8(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret8__8, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp9__8, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12664(line=658, offs=1) -- 12718(line=659, offs=42) +*/ +ATSINSflab(__patsflab_gt_g1int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12705(line=659, offs=29) -- 12716(line=659, offs=40) +*/ +ATSINSmove(tmp9__8, atspre_g1int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12688(line=659, offs=12) -- 12718(line=659, offs=42) +*/ +ATSINSmove(tmpret8__8, atspre_g1int_gt_int(arg0, tmp9__8)) ; + +ATSfunbody_end() +ATSreturn(tmpret8__8) ; +} /* end of [ATSLIB_056_prelude__gt_g1int_int__4__8] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 6886(line=267, offs=23) -- 7176(line=279, offs=8) +*/ +/* +local: +global: radical_ats$155$0(level=0) +local: +global: +*/ +ATSextern() +atstkind_t0ype(atstype_int) +radical_ats(atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret406, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmpref407, atstkind_type(atstype_ptrk)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 6874(line=267, offs=11) -- 7176(line=279, offs=8) +*/ +ATSINSflab(__patsflab_radical_ats): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 6894(line=268, offs=3) -- 7176(line=279, offs=8) +*/ +ATScaseof_beg() +/* +** ibranchlst-beg +*/ +ATSbranch_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 6911(line=269, offs=7) -- 6912(line=269, offs=8) +*/ +ATSINSlab(__atstmplab32): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 6887(line=267, offs=24) -- 6888(line=267, offs=25) +*/ +ATSifnthen(ATSCKpat_int(arg0, ATSPMVint(1))) { ATSINSgoto(__atstmplab34) ; } ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 6912(line=269, offs=8) -- 6912(line=269, offs=8) +*/ +ATSINSlab(__atstmplab33): +/* +emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) +*/ +/* +ibranch-mbody: +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 6916(line=269, offs=12) -- 6917(line=269, offs=13) +*/ +ATSINSmove(tmpret406, ATSPMVi0nt(1)) ; +ATSbranch_end() + +ATSbranch_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 6925(line=270, offs=8) -- 6925(line=270, offs=8) +*/ +ATSINSlab(__atstmplab34): +/* +emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) +*/ +/* +ibranch-mbody: +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 6930(line=270, offs=13) -- 7176(line=279, offs=8) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 6944(line=271, offs=11) -- 6945(line=271, offs=12) +*/ +/* +ATSINStmpdec(tmpref407) ; +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 6964(line=271, offs=31) -- 6979(line=271, offs=46) +*/ +ATSINSmove(tmpref407, _057_home_057_vanessa_057_dev_057_haskell_057_fast_055_arithmetic_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_sats__prime_factors(arg0)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 7158(line=278, offs=7) -- 7167(line=278, offs=16) +*/ +ATSINSmove(tmpret406, product_156(tmpref407)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 6930(line=270, offs=13) -- 7176(line=279, offs=8) +*/ +/* +INSletpop() +*/ +ATSbranch_end() + +/* +** ibranchlst-end +*/ +ATScaseof_end() + +ATSfunbody_end() +ATSreturn(tmpret406) ; +} /* end of [radical_ats] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 6998(line=273, offs=11) -- 7144(line=276, offs=34) +*/ +/* +local: product_156$0(level=1) +global: product_156$0(level=1) +local: +global: +*/ +ATSstatic() +atstkind_t0ype(atstype_int) +product_156(atstkind_type(atstype_ptrk) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret408, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp409, atstype_boxed) ; +ATStmpdec(tmp410, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp411, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp412, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 6998(line=273, offs=11) -- 7144(line=276, offs=34) +*/ +ATSINSflab(__patsflab_product_156): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 7049(line=274, offs=15) -- 7052(line=274, offs=18) +*/ +ATSINSmove_llazyeval(tmp409, atstype_boxed, arg0) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 7043(line=274, offs=9) -- 7144(line=276, offs=34) +*/ +ATScaseof_beg() +/* +** ibranchlst-beg +*/ +ATSbranch_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 7068(line=275, offs=13) -- 7091(line=275, offs=36) +*/ +ATSINSlab(__atstmplab35): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 7049(line=274, offs=15) -- 7052(line=274, offs=18) +*/ +ATSifthen(ATSCKptrisnull(tmp409)) { ATSINSgoto(__atstmplab38) ; } ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 7091(line=275, offs=36) -- 7091(line=275, offs=36) +*/ +ATSINSlab(__atstmplab36): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 7085(line=275, offs=30) -- 7086(line=275, offs=31) +*/ +ATSINSmove(tmp410, ATSSELcon(tmp409, postiats_tysum_1, atslab__0)) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 7088(line=275, offs=33) -- 7090(line=275, offs=35) +*/ +ATSINSmove(tmp411, ATSSELcon(tmp409, postiats_tysum_1, atslab__1)) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 7068(line=275, offs=13) -- 7110(line=275, offs=55) +*/ +ATSINSfreecon(tmp409) ; +/* +emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) +*/ +/* +ibranch-mbody: +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 7099(line=275, offs=44) -- 7109(line=275, offs=54) +*/ +ATSINSmove(tmp412, product_156(tmp411)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 7095(line=275, offs=40) -- 7109(line=275, offs=54) +*/ +ATSINSmove(tmpret408, atspre_g0int_mul_int(tmp410, tmp412)) ; + +ATSbranch_end() + +ATSbranch_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 7123(line=276, offs=13) -- 7139(line=276, offs=29) +*/ +ATSINSlab(__atstmplab37): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 7049(line=274, offs=15) -- 7052(line=274, offs=18) +*/ +#if(0) +ATSifthen(ATSCKptriscons(tmp409)) { ATSINSdeadcode_fail() ; } ; +#endif +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 7139(line=276, offs=29) -- 7139(line=276, offs=29) +*/ +ATSINSlab(__atstmplab38): +/* +emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) +*/ +/* +ibranch-mbody: +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 7143(line=276, offs=33) -- 7144(line=276, offs=34) +*/ +ATSINSmove(tmpret408, ATSPMVi0nt(1)) ; +ATSbranch_end() + +/* +** ibranchlst-end +*/ +ATScaseof_end() + +ATSfunbody_end() +ATSreturn(tmpret408) ; +} /* end of [product_156] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 7181(line=281, offs=4) -- 7730(line=295, offs=8) +*/ +/* +local: +global: totient_157$0(level=0) +local: +global: +*/ +ATSstatic() +atstkind_t0ype(atstype_int) +totient_157(atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret413, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmpref418, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmpref419, postiats_tyrec_0) ; +ATStmpdec(tmpref420, postiats_tyrec_0) ; +ATStmpdec(tmp438, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 7181(line=281, offs=4) -- 7730(line=295, offs=8) +*/ +ATSINSflab(__patsflab_totient_157): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 7214(line=282, offs=3) -- 7730(line=295, offs=8) +*/ +ATScaseof_beg() +/* +** ibranchlst-beg +*/ +ATSbranch_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 7231(line=283, offs=7) -- 7232(line=283, offs=8) +*/ +ATSINSlab(__atstmplab39): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 7189(line=281, offs=12) -- 7190(line=281, offs=13) +*/ +ATSifnthen(ATSCKpat_int(arg0, ATSPMVint(1))) { ATSINSgoto(__atstmplab41) ; } ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 7232(line=283, offs=8) -- 7232(line=283, offs=8) +*/ +ATSINSlab(__atstmplab40): +/* +emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) +*/ +/* +ibranch-mbody: +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 7236(line=283, offs=12) -- 7237(line=283, offs=13) +*/ +ATSINSmove(tmpret413, ATSPMVi0nt(1)) ; +ATSbranch_end() + +ATSbranch_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 7245(line=284, offs=8) -- 7245(line=284, offs=8) +*/ +ATSINSlab(__atstmplab41): +/* +emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) +*/ +/* +ibranch-mbody: +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 7250(line=284, offs=13) -- 7730(line=295, offs=8) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 7464(line=290, offs=11) -- 7465(line=290, offs=12) +*/ +/* +ATSINStmpdec(tmpref418) ; +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 7484(line=290, offs=31) -- 7499(line=290, offs=46) +*/ +ATSINSmove(tmpref418, _057_home_057_vanessa_057_dev_057_haskell_057_fast_055_arithmetic_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_sats__prime_factors(arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 7511(line=291, offs=11) -- 7521(line=291, offs=21) +*/ +/* +ATSINStmpdec(tmpref419) ; +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 7524(line=291, offs=24) -- 7550(line=291, offs=50) +*/ +ATSINSmove_fltrec_beg() +ATSINSstore_fltrec_ofs(tmpref419, postiats_tyrec_0, atslab__first, ATSPMVi0nt(1)) ; +ATSINSstore_fltrec_ofs(tmpref419, postiats_tyrec_0, atslab__second, ATSPMVi0nt(1)) ; +ATSINSmove_fltrec_end() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 7568(line=292, offs=11) -- 7569(line=292, offs=12) +*/ +/* +ATSINStmpdec(tmpref420) ; +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 7572(line=292, offs=15) -- 7659(line=292, offs=102) +*/ +ATSINSmove(tmpref420, ATSLIB_056_prelude__stream_vt_foldleft_cloptr__160__1(tmpref418, tmpref419, ATSPMVcfunlab(1, __patsfun_164, ()))) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 7690(line=294, offs=17) -- 7711(line=294, offs=38) +*/ +ATSINSmove(tmp438, atspre_g0int_mul_int(arg0, ATSSELfltrec(tmpref420, postiats_tyrec_0, atslab__first))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 7680(line=294, offs=7) -- 7722(line=294, offs=49) +*/ +ATSINSmove(tmpret413, atspre_g0int_div_int(tmp438, ATSSELfltrec(tmpref420, postiats_tyrec_0, atslab__second))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 7250(line=284, offs=13) -- 7730(line=295, offs=8) +*/ +/* +INSletpop() +*/ +ATSbranch_end() + +/* +** ibranchlst-end +*/ +ATScaseof_end() + +ATSfunbody_end() +ATSreturn(tmpret413) ; +} /* end of [totient_157] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 7323(line=287, offs=10) -- 7446(line=288, offs=80) +*/ +/* +local: +global: adjust_contents_158$0(level=1) +local: +global: +*/ +ATSstatic() +postiats_tyrec_0 +adjust_contents_158(postiats_tyrec_0 arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret414, postiats_tyrec_0) ; +ATStmpdec(tmp415, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp416, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp417, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 7323(line=287, offs=10) -- 7446(line=288, offs=80) +*/ +ATSINSflab(__patsflab_adjust_contents_158): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 7405(line=288, offs=39) -- 7410(line=288, offs=44) +*/ +ATSINSmove(tmp416, atspre_g0int_sub_int(arg1, ATSPMVi0nt(1))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 7386(line=288, offs=20) -- 7411(line=288, offs=45) +*/ +ATSINSmove(tmp415, atspre_g0int_mul_int(ATSSELfltrec(arg0, postiats_tyrec_0, atslab__first), tmp416)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 7422(line=288, offs=56) -- 7444(line=288, offs=78) +*/ +ATSINSmove(tmp417, atspre_g0int_mul_int(ATSSELfltrec(arg0, postiats_tyrec_0, atslab__second), arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 7375(line=288, offs=9) -- 7446(line=288, offs=80) +*/ +ATSINSmove_fltrec_beg() +ATSINSstore_fltrec_ofs(tmpret414, postiats_tyrec_0, atslab__first, tmp415) ; +ATSINSstore_fltrec_ofs(tmpret414, postiats_tyrec_0, atslab__second, tmp417) ; +ATSINSmove_fltrec_end() +ATSfunbody_end() +ATSreturn(tmpret414) ; +} /* end of [adjust_contents_158] */ + +#if(0) +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/stream_vt.dats: 29943(line=1864, offs=3) -- 30423(line=1895, offs=2) +*/ +/* +local: +global: stream_vt_foldleft_cloptr$160$0(level=0) +local: +global: +*/ +ATSextern() +/* +imparg = res(8358), a(8359) +tmparg = S2Evar(res(8358)); S2Evar(a(8359)) +tmpsub = None() +*/ +atstyvar_type(res) +ATSLIB_056_prelude__stream_vt_foldleft_cloptr__160(atstkind_type(atstype_ptrk) arg0, atstyvar_type(res) arg1, atstype_cloptr arg2) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret421, atstyvar_type(res)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 29915(line=1863, offs=1) -- 30423(line=1895, offs=2) +*/ +ATSINSflab(__patsflab_stream_vt_foldleft_cloptr): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 29964(line=1865, offs=3) -- 30423(line=1895, offs=2) +*/ +/* +letpush(beg) +*/ +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 29964(line=1865, offs=3) -- 29984(line=1865, offs=23) +*/ +ATSINSmove(tmpret421, ATSfunclo_fun(PMVd2vfunlab(d2v=loop$4504(1), flab=loop_161$0(level=1)), (atstkind_type(atstype_ptrk), atstyvar_type(res), atstype_cloptr), atstyvar_type(res))(arg0, arg1, arg2)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 29964(line=1865, offs=3) -- 30423(line=1895, offs=2) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret421) ; +} /* end of [ATSLIB_056_prelude__stream_vt_foldleft_cloptr__160] */ +#endif // end of [TEMPLATE] + +#if(0) +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/stream_vt.dats: 30000(line=1869, offs=1) -- 30401(line=1893, offs=4) +*/ +/* +local: loop_161$0(level=1) +global: loop_161$0(level=1) +local: +global: +*/ +ATSstatic() +atstyvar_type(res) +loop_161__161(atstkind_type(atstype_ptrk) arg0, atstyvar_type(res) arg1, atstype_cloptr arg2) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(apy0, atstkind_type(atstype_ptrk)) ; +ATStmpdec(apy1, atstyvar_type(res)) ; +ATStmpdec(apy2, atstype_cloptr) ; +ATStmpdec(tmpret422, atstyvar_type(res)) ; +ATStmpdec(tmpref423, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp424, atstype_boxed) ; +// ATStmpdec_void(tmp427) ; +ATStmpdec(tmp428, atstyvar_type(res)) ; +ATStmpdec(tmp429, atstkind_type(atstype_ptrk)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30000(line=1869, offs=1) -- 30401(line=1893, offs=4) +*/ +ATSINSflab(__patsflab_loop_161): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30078(line=1875, offs=6) -- 30401(line=1893, offs=4) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30088(line=1876, offs=7) -- 30094(line=1876, offs=13) +*/ +/* +ATSINStmpdec(tmpref423) ; +*/ +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30097(line=1876, offs=16) -- 30100(line=1876, offs=19) +*/ +ATSINSmove_llazyeval(tmpref423, atstype_boxed, arg0) ; +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30113(line=1880, offs=1) -- 30119(line=1880, offs=7) +*/ +ATSINSmove(tmp424, tmpref423) ; +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30107(line=1879, offs=1) -- 30367(line=1891, offs=6) +*/ +ATScaseof_beg() +/* +** ibranchlst-beg +*/ +ATSbranch_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30134(line=1882, offs=3) -- 30155(line=1883, offs=7) +*/ +ATSINSlab(__atstmplab42): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30113(line=1880, offs=1) -- 30119(line=1880, offs=7) +*/ +ATSifthen(ATSCKptriscons(tmp424)) { ATSINSgoto(__atstmplab45) ; } ; +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30155(line=1883, offs=7) -- 30155(line=1883, offs=7) +*/ +ATSINSlab(__atstmplab43): +/* +emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) +*/ +/* +ibranch-mbody: +*/ +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30167(line=1885, offs=5) -- 30199(line=1885, offs=37) +*/ +ATSINSmove_void(tmp427, atspre_cloptr_free(ATSPMVcastfn(castvwtp0, atstkind_type(atstype_ptrk), arg2))) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30201(line=1885, offs=39) -- 30204(line=1885, offs=42) +*/ +ATSINSmove(tmpret422, arg1) ; +ATSbranch_end() + +ATSbranch_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30240(line=1887, offs=3) -- 30269(line=1888, offs=14) +*/ +ATSINSlab(__atstmplab44): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30113(line=1880, offs=1) -- 30119(line=1880, offs=7) +*/ +#if(0) +ATSifthen(ATSCKptrisnull(tmp424)) { ATSINSdeadcode_fail() ; } ; +#endif +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30269(line=1888, offs=14) -- 30269(line=1888, offs=14) +*/ +ATSINSlab(__atstmplab45): +/* +emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) +*/ +/* +ibranch-mbody: +*/ +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30273(line=1888, offs=18) -- 30367(line=1891, offs=6) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30291(line=1889, offs=15) -- 30304(line=1889, offs=28) +*/ +ATSINSmove(tmp428, ATSfunclo_clo(ATSPMVrefarg0(arg2), (atstype_cloptr, atstyvar_type(res), atsrefarg1_type(atstyvar_type(a))), atstyvar_type(res))(ATSPMVrefarg0(arg2), arg1, ATSPMVrefarg1(ATSPMVptrof(ATSSELcon(tmp424, postiats_tysum_2, atslab__0))))) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30319(line=1890, offs=15) -- 30322(line=1890, offs=18) +*/ +ATSINSmove(tmp429, ATSSELcon(tmp424, postiats_tysum_2, atslab__1)) ; +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30326(line=1890, offs=22) -- 30338(line=1890, offs=34) +*/ +ATSINSfreecon(tmpref423) ; +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30341(line=1890, offs=37) -- 30361(line=1890, offs=57) +*/ +ATStailcal_beg() +ATSINSmove_tlcal(apy0, tmp429) ; +ATSINSmove_tlcal(apy1, tmp428) ; +ATSINSmove_tlcal(apy2, arg2) ; +ATSINSargmove_tlcal(arg0, apy0) ; +ATSINSargmove_tlcal(arg1, apy1) ; +ATSINSargmove_tlcal(arg2, apy2) ; +ATSINSfgoto(__patsflab_loop_161) ; +ATStailcal_end() + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30273(line=1888, offs=18) -- 30367(line=1891, offs=6) +*/ +/* +INSletpop() +*/ +ATSbranch_end() + +/* +** ibranchlst-end +*/ +ATScaseof_end() + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30078(line=1875, offs=6) -- 30401(line=1893, offs=4) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret422) ; +} /* end of [loop_161__161] */ +#endif // end of [TEMPLATE] + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/stream_vt.dats: 29943(line=1864, offs=3) -- 30423(line=1895, offs=2) +*/ +/* +local: +global: stream_vt_foldleft_cloptr$160$1(level=1) +local: +global: +*/ +ATSstatic() +/* +imparg = res(8358), a(8359) +tmparg = S2Evar(res(8358)); S2Evar(a(8359)) +tmpsub = Some(res(8358) -> S2EVar(5984); a(8359) -> S2Eapp(S2Ecst(g0int_t0ype); S2Eextkind(atstype_int))) +*/ +postiats_tyrec_0 +ATSLIB_056_prelude__stream_vt_foldleft_cloptr__160__1(atstkind_type(atstype_ptrk) arg0, postiats_tyrec_0 arg1, atstype_cloptr arg2) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret421__1, postiats_tyrec_0) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 29915(line=1863, offs=1) -- 30423(line=1895, offs=2) +*/ +ATSINSflab(__patsflab_stream_vt_foldleft_cloptr): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 29964(line=1865, offs=3) -- 30423(line=1895, offs=2) +*/ +/* +letpush(beg) +*/ +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 29964(line=1865, offs=3) -- 29984(line=1865, offs=23) +*/ +ATSINSmove(tmpret421__1, loop_161__161__1(arg0, arg1, arg2)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 29964(line=1865, offs=3) -- 30423(line=1895, offs=2) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret421__1) ; +} /* end of [ATSLIB_056_prelude__stream_vt_foldleft_cloptr__160__1] */ + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/stream_vt.dats: 30000(line=1869, offs=1) -- 30401(line=1893, offs=4) +*/ +/* +local: loop_161$1(level=2) +global: loop_161$1(level=2) +local: +global: +*/ +ATSstatic() +postiats_tyrec_0 +loop_161__161__1(atstkind_type(atstype_ptrk) arg0, postiats_tyrec_0 arg1, atstype_cloptr arg2) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(apy0, atstkind_type(atstype_ptrk)) ; +ATStmpdec(apy1, postiats_tyrec_0) ; +ATStmpdec(apy2, atstype_cloptr) ; +ATStmpdec(tmpret422__1, postiats_tyrec_0) ; +ATStmpdec(tmpref423__1, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp424__1, atstype_boxed) ; +// ATStmpdec_void(tmp427__1) ; +ATStmpdec(tmp428__1, postiats_tyrec_0) ; +ATStmpdec(tmp429__1, atstkind_type(atstype_ptrk)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30000(line=1869, offs=1) -- 30401(line=1893, offs=4) +*/ +ATSINSflab(__patsflab_loop_161): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30078(line=1875, offs=6) -- 30401(line=1893, offs=4) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30088(line=1876, offs=7) -- 30094(line=1876, offs=13) +*/ +/* +ATSINStmpdec(tmpref423) ; +*/ +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30097(line=1876, offs=16) -- 30100(line=1876, offs=19) +*/ +ATSINSmove_llazyeval(tmpref423__1, atstype_boxed, arg0) ; +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30113(line=1880, offs=1) -- 30119(line=1880, offs=7) +*/ +ATSINSmove(tmp424__1, tmpref423__1) ; +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30107(line=1879, offs=1) -- 30367(line=1891, offs=6) +*/ +ATScaseof_beg() +/* +** ibranchlst-beg +*/ +ATSbranch_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30134(line=1882, offs=3) -- 30155(line=1883, offs=7) +*/ +ATSINSlab(__atstmplab42): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30113(line=1880, offs=1) -- 30119(line=1880, offs=7) +*/ +ATSifthen(ATSCKptriscons(tmp424__1)) { ATSINSgoto(__atstmplab45) ; } ; +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30155(line=1883, offs=7) -- 30155(line=1883, offs=7) +*/ +ATSINSlab(__atstmplab43): +/* +emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) +*/ +/* +ibranch-mbody: +*/ +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30167(line=1885, offs=5) -- 30199(line=1885, offs=37) +*/ +ATSINSmove_void(tmp427__1, atspre_cloptr_free(ATSPMVcastfn(castvwtp0, atstkind_type(atstype_ptrk), arg2))) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30201(line=1885, offs=39) -- 30204(line=1885, offs=42) +*/ +ATSINSmove(tmpret422__1, arg1) ; +ATSbranch_end() + +ATSbranch_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30240(line=1887, offs=3) -- 30269(line=1888, offs=14) +*/ +ATSINSlab(__atstmplab44): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30113(line=1880, offs=1) -- 30119(line=1880, offs=7) +*/ +#if(0) +ATSifthen(ATSCKptrisnull(tmp424__1)) { ATSINSdeadcode_fail() ; } ; +#endif +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30269(line=1888, offs=14) -- 30269(line=1888, offs=14) +*/ +ATSINSlab(__atstmplab45): +/* +emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) +*/ +/* +ibranch-mbody: +*/ +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30273(line=1888, offs=18) -- 30367(line=1891, offs=6) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30291(line=1889, offs=15) -- 30304(line=1889, offs=28) +*/ +ATSINSmove(tmp428__1, ATSfunclo_clo(ATSPMVrefarg0(arg2), (atstype_cloptr, postiats_tyrec_0, atsrefarg1_type(atstkind_t0ype(atstype_int))), postiats_tyrec_0)(ATSPMVrefarg0(arg2), arg1, ATSPMVrefarg1(ATSPMVptrof(ATSSELcon(tmp424__1, postiats_tysum_1, atslab__0))))) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30319(line=1890, offs=15) -- 30322(line=1890, offs=18) +*/ +ATSINSmove(tmp429__1, ATSSELcon(tmp424__1, postiats_tysum_1, atslab__1)) ; +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30326(line=1890, offs=22) -- 30338(line=1890, offs=34) +*/ +ATSINSfreecon(tmpref423__1) ; +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30341(line=1890, offs=37) -- 30361(line=1890, offs=57) +*/ +ATStailcal_beg() +ATSINSmove_tlcal(apy0, tmp429__1) ; +ATSINSmove_tlcal(apy1, tmp428__1) ; +ATSINSmove_tlcal(apy2, arg2) ; +ATSINSargmove_tlcal(arg0, apy0) ; +ATSINSargmove_tlcal(arg1, apy1) ; +ATSINSargmove_tlcal(arg2, apy2) ; +ATSINSfgoto(__patsflab_loop_161) ; +ATStailcal_end() + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30273(line=1888, offs=18) -- 30367(line=1891, offs=6) +*/ +/* +INSletpop() +*/ +ATSbranch_end() + +/* +** ibranchlst-end +*/ +ATScaseof_end() + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/stream_vt.dats({$PATSPRE}/DATS/stream_vt.dats): 30078(line=1875, offs=6) -- 30401(line=1893, offs=4) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret422__1) ; +} /* end of [loop_161__161__1] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 7613(line=292, offs=56) -- 7658(line=292, offs=101) +*/ +/* +local: adjust_contents_158$0(level=1) +global: adjust_contents_158$0(level=1), __patsfun_164$0(level=1) +local: +global: +*/ +ATSstatic() +postiats_tyrec_0 +__patsfun_164(postiats_tyrec_0 arg0, atsrefarg1_type(atstkind_t0ype(atstype_int)) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret437, postiats_tyrec_0) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 7613(line=292, offs=56) -- 7658(line=292, offs=101) +*/ +ATSINSflab(__patsflab___patsfun_164): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 7632(line=292, offs=75) -- 7658(line=292, offs=101) +*/ +ATSINSmove(tmpret437, adjust_contents_158(arg0, ATSderef(arg1, atstkind_t0ype(atstype_int)))) ; + +ATSfunbody_end() +ATSreturn(tmpret437) ; +} /* end of [__patsfun_164] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 7754(line=297, offs=23) -- 8110(line=311, offs=6) +*/ +/* +local: totient_157$0(level=0) +global: totient_157$0(level=0), totient_sum$165$0(level=0) +local: +global: +*/ +ATSextern() +atstkind_type(atstype_ptrk) +_057_home_057_vanessa_057_dev_057_haskell_057_fast_055_arithmetic_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_sats__totient_sum(atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret439, atstkind_type(atstype_ptrk)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 7742(line=297, offs=11) -- 8110(line=311, offs=6) +*/ +ATSINSflab(__patsflab_totient_sum): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 7762(line=298, offs=3) -- 8110(line=311, offs=6) +*/ +/* +letpush(beg) +*/ +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 8094(line=310, offs=5) -- 8104(line=310, offs=15) +*/ +ATSINSmove(tmpret439, loop_166(ATSPMVi0nt(1), arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 7762(line=298, offs=3) -- 8110(line=311, offs=6) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret439) ; +} /* end of [_057_home_057_vanessa_057_dev_057_haskell_057_fast_055_arithmetic_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_sats__totient_sum] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 7774(line=299, offs=9) -- 8084(line=308, offs=40) +*/ +/* +local: totient_157$0(level=0), loop_166$0(level=1) +global: totient_157$0(level=0), loop_166$0(level=1) +local: +global: +*/ +ATSstatic() +atstkind_type(atstype_ptrk) +loop_166(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret440, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp441, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmpref444, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp445, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmpref446, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp451, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp456, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 7774(line=299, offs=9) -- 8084(line=308, offs=40) +*/ +ATSINSflab(__patsflab_loop_166): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 7877(line=300, offs=10) -- 7886(line=300, offs=19) +*/ +ATSINSmove(tmp441, ATSLIB_056_prelude__lt_g1int_int__50__4(arg0, arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 7874(line=300, offs=7) -- 8084(line=308, offs=40) +*/ +ATSif( +tmp441 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 7900(line=301, offs=9) -- 8033(line=306, offs=12) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 7918(line=302, offs=15) -- 7919(line=302, offs=16) +*/ +/* +ATSINStmpdec(tmpref444) ; +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 7927(line=302, offs=24) -- 7932(line=302, offs=29) +*/ +ATSINSmove(tmp445, atspre_g1int_add_int(arg0, ATSPMVi0nt(1))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 7922(line=302, offs=19) -- 7940(line=302, offs=37) +*/ +ATSINSmove(tmpref444, loop_166(tmp445, arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 7955(line=303, offs=15) -- 7956(line=303, offs=16) +*/ +/* +ATSINStmpdec(tmpref446) ; +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 7986(line=303, offs=46) -- 7995(line=303, offs=55) +*/ +ATSINSmove(tmp451, totient_157(arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 7959(line=303, offs=19) -- 7998(line=303, offs=58) +*/ +ATSINSmove(tmpref446, ATSCNTRB_056_HX_056_intinf_vt__add_intinf0_int__168__1(tmpref444, ATSPMVcastfn(witness, atstkind_t0ype(atstype_int), tmp451))) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 8020(line=305, offs=11) -- 8021(line=305, offs=12) +*/ +ATSINSmove(tmpret440, tmpref446) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 7900(line=301, offs=9) -- 8033(line=306, offs=12) +*/ +/* +INSletpop() +*/ +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 8053(line=308, offs=9) -- 8084(line=308, offs=40) +*/ +ATSINSmove(tmp456, totient_157(arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 8053(line=308, offs=9) -- 8084(line=308, offs=40) +*/ +ATSINSmove(tmpret440, ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__43__2(ATSPMVcastfn(witness, atstkind_t0ype(atstype_int), tmp456))) ; + +} /* ATSendif */ +ATSfunbody_end() +ATSreturn(tmpret440) ; +} /* end of [loop_166] */ + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 12520(line=650, offs=3) -- 12559(line=650, offs=42) +*/ +/* +local: +global: lt_g1int_int$50$4(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4637) +tmparg = S2Evar(tk(4637)) +tmpsub = Some(tk(4637) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__lt_g1int_int__50__4(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret108__4, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp109__4, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12505(line=649, offs=1) -- 12559(line=650, offs=42) +*/ +ATSINSflab(__patsflab_lt_g1int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12546(line=650, offs=29) -- 12557(line=650, offs=40) +*/ +ATSINSmove(tmp109__4, atspre_g1int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12529(line=650, offs=12) -- 12559(line=650, offs=42) +*/ +ATSINSmove(tmpret108__4, atspre_g1int_lt_int(arg0, tmp109__4)) ; + +ATSfunbody_end() +ATSreturn(tmpret108__4) ; +} /* end of [ATSLIB_056_prelude__lt_g1int_int__50__4] */ + +#if(0) +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5151(line=274, offs=3) -- 5217(line=279, offs=2) +*/ +/* +local: +global: add_intinf0_int$168$0(level=0) +local: +global: +*/ +ATSextern() +/* +imparg = +tmparg = +tmpsub = None() +*/ +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__add_intinf0_int__168(atstkind_type(atstype_ptrk) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret447, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp448) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5133(line=273, offs=1) -- 5217(line=279, offs=2) +*/ +ATSINSflab(__patsflab_add_intinf0_int): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5160(line=274, offs=12) -- 5217(line=279, offs=2) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5184(line=277, offs=10) -- 5212(line=277, offs=38) +*/ +ATSINSmove_void(tmp448, atscntrb_gmp_mpz_add2_int(ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), arg1)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5161(line=274, offs=13) -- 5162(line=274, offs=14) +*/ +ATSINSmove(tmpret447, arg0) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5160(line=274, offs=12) -- 5217(line=279, offs=2) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret447) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__add_intinf0_int__168] */ +#endif // end of [TEMPLATE] + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5151(line=274, offs=3) -- 5217(line=279, offs=2) +*/ +/* +local: +global: add_intinf0_int$168$1(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = +tmparg = +tmpsub = Some() +*/ +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__add_intinf0_int__168__1(atstkind_type(atstype_ptrk) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret447__1, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp448__1) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5133(line=273, offs=1) -- 5217(line=279, offs=2) +*/ +ATSINSflab(__patsflab_add_intinf0_int): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5160(line=274, offs=12) -- 5217(line=279, offs=2) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5184(line=277, offs=10) -- 5212(line=277, offs=38) +*/ +ATSINSmove_void(tmp448__1, atscntrb_gmp_mpz_add2_int(ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), arg1)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5161(line=274, offs=13) -- 5162(line=274, offs=14) +*/ +ATSINSmove(tmpret447__1, arg0) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 5160(line=274, offs=12) -- 5217(line=279, offs=2) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret447__1) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__add_intinf0_int__168__1] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2209(line=74, offs=3) -- 2301(line=80, offs=2) +*/ +/* +local: +global: intinf_make_int$43$2(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = +tmparg = +tmpsub = Some() +*/ +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__43__2(atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret94__2, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp95__2, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp96__2) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2191(line=73, offs=1) -- 2301(line=80, offs=2) +*/ +ATSINSflab(__patsflab_intinf_make_int): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2238(line=77, offs=9) -- 2254(line=77, offs=25) +*/ +ATSINSmove(tmp95__2, ATSLIB_056_prelude__ptr_alloc__1__6()) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2264(line=78, offs=10) -- 2296(line=78, offs=42) +*/ +ATSINSmove_void(tmp96__2, atscntrb_gmp_mpz_init_set_int(ATSPMVrefarg1(ATSSELrecsin(tmp95__2, atstkind_type(atstype_ptrk), atslab__2)), arg0)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2216(line=74, offs=10) -- 2217(line=74, offs=11) +*/ +ATSINSmove(tmpret94__2, tmp95__2) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret94__2) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__43__2] */ + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42) +*/ +/* +local: +global: ptr_alloc$1$6(level=3) +local: +global: +*/ +ATSstatic() +/* +imparg = a(4746) +tmparg = S2Evar(a(4746)) +tmpsub = Some(a(4746) -> S2Ecst(mpz_vt0ype)) +*/ +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__1__6() +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret2__6, atstkind_type(atstype_ptrk)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3708(line=184, offs=1) -- 3749(line=184, offs=42) +*/ +ATSINSflab(__patsflab_ptr_alloc): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42) +*/ +ATSINSmove(tmpret2__6, atspre_ptr_alloc_tsz(ATSPMVsizeof(atscntrb_gmp_mpz))) ; + +ATSfunbody_end() +ATSreturn(tmpret2__6) ; +} /* end of [ATSLIB_056_prelude__ptr_alloc__1__6] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 8134(line=313, offs=23) -- 8151(line=314, offs=12) +*/ +/* +local: totient_157$0(level=0) +global: totient_157$0(level=0), totient_ats$172$0(level=0) +local: +global: +*/ +ATSextern() +atstkind_t0ype(atstype_int) +totient_ats(atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret457, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 8122(line=313, offs=11) -- 8152(line=314, offs=13) +*/ +ATSINSflab(__patsflab_totient_ats): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 8142(line=314, offs=3) -- 8151(line=314, offs=12) +*/ +ATSINSmove(tmpret457, totient_157(arg0)) ; + +ATSfunbody_end() +ATSreturn(tmpret457) ; +} /* end of [totient_ats] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 8175(line=316, offs=22) -- 8208(line=317, offs=25) +*/ +/* +local: jacobi_95$0(level=0) +global: exp_3$0(level=0), sqrt_int_46$0(level=0), is_prime_48$0(level=0), div_gt_zero_94$0(level=0), jacobi_95$0(level=0), jacobi_ats$173$0(level=0) +local: +global: +*/ +ATSextern() +atstkind_t0ype(atstype_int) +jacobi_ats(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret458, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 8164(line=316, offs=11) -- 8208(line=317, offs=25) +*/ +ATSINSflab(__patsflab_jacobi_ats): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 8186(line=317, offs=3) -- 8208(line=317, offs=25) +*/ +ATSINSmove(tmpret458, jacobi_95(arg0, ATSPMVcastfn(cast, atstkind_t0ype(atstype_int), arg1))) ; + +ATSfunbody_end() +ATSreturn(tmpret458) ; +} /* end of [jacobi_ats] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 8230(line=319, offs=21) -- 8253(line=320, offs=18) +*/ +/* +local: primorial_gmp_92$0(level=0) +global: primorial_gmp_92$0(level=0), primorial$174$0(level=0) +local: +global: +*/ +ATSextern() +atstkind_type(atstype_ptrk) +_057_home_057_vanessa_057_dev_057_haskell_057_fast_055_arithmetic_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_sats__primorial(atstkind_t0ype(atstype_ullint) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret459, atstkind_type(atstype_ptrk)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 8220(line=319, offs=11) -- 8254(line=320, offs=19) +*/ +ATSINSflab(__patsflab_primorial): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/number-theory.dats: 8238(line=320, offs=3) -- 8253(line=320, offs=18) +*/ +ATSINSmove(tmpret459, primorial_gmp_92(arg0)) ; + +ATSfunbody_end() +ATSreturn(tmpret459) ; +} /* end of [_057_home_057_vanessa_057_dev_057_haskell_057_fast_055_arithmetic_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_sats__primorial] */ + +/* +** for initialization(dynloading) +*/ +ATSdynloadflag_minit(_057_home_057_vanessa_057_dev_057_haskell_057_fast_055_arithmetic_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_dats__dynloadflag) ; +ATSextern() +atsvoid_t0ype +_057_home_057_vanessa_057_dev_057_haskell_057_fast_055_arithmetic_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_dats__dynload() +{ +ATSfunbody_beg() +ATSdynload(/*void*/) +ATSdynloadflag_sta( +_057_home_057_vanessa_057_dev_057_haskell_057_fast_055_arithmetic_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_dats__dynloadflag +) ; +ATSif( +ATSCKiseqz( +_057_home_057_vanessa_057_dev_057_haskell_057_fast_055_arithmetic_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_dats__dynloadflag +) +) ATSthen() { +ATSdynloadset(_057_home_057_vanessa_057_dev_057_haskell_057_fast_055_arithmetic_057_fast_055_arithmetic_057_ats_055_src_057_number_055_theory_056_dats__dynloadflag) ; /* dynexnlst-initize(beg) */ diff --git a/cbits/numerics.c b/cbits/numerics.c --- a/cbits/numerics.c +++ b/cbits/numerics.c @@ -1,3935 +1,3746 @@ /* ** -** The C code is generated by [ATS/Postiats-0-3-13] -** -*/ - -/* -** include runtime header files -*/ -#ifndef _ATS_CCOMP_HEADER_NONE_ -#include "pats_ccomp_config.h" -#include "pats_ccomp_basics.h" -#include "pats_ccomp_typedefs.h" -#include "pats_ccomp_instrset.h" -#include "pats_ccomp_memalloc.h" -#ifndef _ATS_CCOMP_EXCEPTION_NONE_ -#include "pats_ccomp_memalloca.h" -#include "pats_ccomp_exception.h" -#endif // end of [_ATS_CCOMP_EXCEPTION_NONE_] -#endif /* _ATS_CCOMP_HEADER_NONE_ */ - - -/* -** include prelude cats files -*/ -#ifndef _ATS_CCOMP_PRELUDE_NONE_ -// -#include "prelude/CATS/basics.cats" -#include "prelude/CATS/integer.cats" -#include "prelude/CATS/pointer.cats" -#include "prelude/CATS/integer_long.cats" -#include "prelude/CATS/integer_size.cats" -#include "prelude/CATS/integer_short.cats" -#include "prelude/CATS/bool.cats" -#include "prelude/CATS/char.cats" -#include "prelude/CATS/float.cats" -#include "prelude/CATS/integer_ptr.cats" -#include "prelude/CATS/integer_fixed.cats" -#include "prelude/CATS/memory.cats" -#include "prelude/CATS/string.cats" -#include "prelude/CATS/strptr.cats" -// -#include "prelude/CATS/fprintf.cats" -// -#include "prelude/CATS/filebas.cats" -// -#include "prelude/CATS/list.cats" -#include "prelude/CATS/option.cats" -#include "prelude/CATS/array.cats" -#include "prelude/CATS/arrayptr.cats" -#include "prelude/CATS/arrayref.cats" -#include "prelude/CATS/matrix.cats" -#include "prelude/CATS/matrixptr.cats" -// -#endif /* _ATS_CCOMP_PRELUDE_NONE_ */ -/* -** for user-supplied prelude -*/ -#ifdef _ATS_CCOMP_PRELUDE_USER_ -// -#include _ATS_CCOMP_PRELUDE_USER_ -// -#endif /* _ATS_CCOMP_PRELUDE_USER_ */ -/* -** for user2-supplied prelude -*/ -#ifdef _ATS_CCOMP_PRELUDE_USER2_ -// -#include _ATS_CCOMP_PRELUDE_USER2_ -// -#endif /* _ATS_CCOMP_PRELUDE_USER2_ */ - -/* -staload-prologues(beg) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/basics.dats: 1636(line=50, offs=1) -- 1675(line=50, offs=40) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 1596(line=49, offs=1) -- 1635(line=49, offs=40) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats: 1533(line=44, offs=1) -- 1572(line=44, offs=40) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer_long.dats: 1602(line=49, offs=1) -- 1641(line=49, offs=40) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer_size.dats: 1597(line=49, offs=1) -- 1636(line=49, offs=40) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer_short.dats: 1603(line=49, offs=1) -- 1642(line=49, offs=40) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/char.dats: 1610(line=48, offs=1) -- 1649(line=48, offs=40) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/float.dats: 1636(line=50, offs=1) -- 1675(line=50, offs=40) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/string.dats: 1631(line=50, offs=1) -- 1670(line=50, offs=40) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/strptr.dats: 1629(line=50, offs=1) -- 1668(line=50, offs=40) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/strptr.dats: 1691(line=54, offs=1) -- 1738(line=54, offs=48) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 1596(line=49, offs=1) -- 1635(line=49, offs=40) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer_ptr.dats: 1601(line=49, offs=1) -- 1640(line=49, offs=40) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer_fixed.dats: 1603(line=49, offs=1) -- 1642(line=49, offs=40) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/memory.dats: 1410(line=38, offs=1) -- 1449(line=39, offs=32) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/filebas.dats: 1607(line=49, offs=1) -- 1646(line=50, offs=32) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/filebas.dats: 1669(line=54, offs=1) -- 1715(line=55, offs=39) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 1596(line=49, offs=1) -- 1635(line=49, offs=40) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/filebas.dats: 1738(line=59, offs=1) -- 1783(line=60, offs=38) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/libats/libc/SATS/stdio.sats: 1390(line=36, offs=1) -- 1437(line=39, offs=3) -*/ - -#include \ -"libats/libc/CATS/stdio.cats" -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/libats/libc/SATS/stdio.sats: 1950(line=69, offs=1) -- 1999(line=71, offs=34) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/libats/libc/SATS/sys/types.sats: 1390(line=36, offs=1) -- 1441(line=39, offs=3) -*/ - -#include \ -"libats/libc/CATS/sys/types.cats" -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/filebas.dats: 1865(line=66, offs=1) -- 1912(line=66, offs=48) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/libats/libc/SATS/sys/stat.sats: 1390(line=36, offs=1) -- 1440(line=39, offs=3) -*/ - -#include \ -"libats/libc/CATS/sys/stat.cats" -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/libats/libc/SATS/sys/stat.sats: 1756(line=58, offs=1) -- 1805(line=60, offs=34) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/libats/libc/SATS/sys/types.sats: 1390(line=36, offs=1) -- 1441(line=39, offs=3) -*/ - -#include \ -"libats/libc/CATS/sys/types.cats" -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/filebas.dats: 15937(line=927, offs=1) -- 15974(line=928, offs=30) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/libats/libc/SATS/stdio.sats: 1390(line=36, offs=1) -- 1437(line=39, offs=3) -*/ - -#include \ -"libats/libc/CATS/stdio.cats" -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/libats/libc/SATS/stdio.sats: 1950(line=69, offs=1) -- 1999(line=71, offs=34) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/libats/libc/SATS/sys/types.sats: 1390(line=36, offs=1) -- 1441(line=39, offs=3) -*/ - -#include \ -"libats/libc/CATS/sys/types.cats" -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/list.dats: 1529(line=44, offs=1) -- 1568(line=45, offs=32) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/list.dats: 1569(line=46, offs=1) -- 1615(line=47, offs=39) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/unsafe.dats: 1532(line=44, offs=1) -- 1566(line=44, offs=35) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/list_vt.dats: 1538(line=44, offs=1) -- 1577(line=45, offs=32) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/list_vt.dats: 1578(line=46, offs=1) -- 1624(line=47, offs=39) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/unsafe.dats: 1532(line=44, offs=1) -- 1566(line=44, offs=35) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/SHARE/list_vt_mergesort.dats: 1546(line=44, offs=1) -- 1585(line=44, offs=40) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/SHARE/list_vt_quicksort.dats: 1546(line=44, offs=1) -- 1585(line=44, offs=40) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/array.dats: 1528(line=44, offs=1) -- 1567(line=45, offs=32) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/SHARE/array_bsearch.dats: 1531(line=44, offs=1) -- 1570(line=44, offs=40) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/SHARE/array_quicksort.dats: 1531(line=44, offs=1) -- 1570(line=44, offs=40) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/arrayptr.dats: 1532(line=44, offs=1) -- 1571(line=44, offs=40) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/arrayref.dats: 1532(line=44, offs=1) -- 1571(line=44, offs=40) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/matrix.dats: 1535(line=44, offs=1) -- 1574(line=44, offs=40) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/matrixptr.dats: 1538(line=44, offs=1) -- 1577(line=44, offs=40) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/matrixref.dats: 1538(line=44, offs=1) -- 1577(line=44, offs=40) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream.dats: 1523(line=44, offs=1) -- 1562(line=44, offs=40) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/stream_vt.dats: 1523(line=44, offs=1) -- 1562(line=44, offs=40) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/tostring.dats: 1528(line=44, offs=1) -- 1567(line=45, offs=32) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/unsafe.dats: 1532(line=44, offs=1) -- 1566(line=44, offs=35) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/checkast.dats: 1531(line=44, offs=1) -- 1570(line=45, offs=32) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/contrib/atscntrb/atscntrb-hx-libgmp/SATS/gmp.sats: 1178(line=38, offs=1) -- 1236(line=43, offs=3) -*/ - -// -#include \ -"atscntrb-hx-libgmp/CATS/gmp.cats" -// -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/SATS/intinf_t.sats: 1805(line=48, offs=1) -- 1828(line=48, offs=24) -*/ -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/SATS/intinf_vt.sats: 1806(line=48, offs=1) -- 1829(line=48, offs=24) -*/ -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 1660(line=37, offs=1) -- 1700(line=38, offs=27) -*/ -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 1727(line=42, offs=1) -- 1759(line=42, offs=33) -*/ -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 1833(line=49, offs=1) -- 1867(line=49, offs=35) -*/ -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/SATS/intinf_t.sats: 1805(line=48, offs=1) -- 1828(line=48, offs=24) -*/ -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_t.dats: 1868(line=50, offs=1) -- 1908(line=50, offs=41) -*/ -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/SATS/intinf_vt.sats: 1806(line=48, offs=1) -- 1829(line=48, offs=24) -*/ -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 1656(line=37, offs=1) -- 1696(line=39, offs=27) -*/ -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/mydepies.hats: 208(line=18, offs=1) -- 248(line=19, offs=32) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/contrib/atscntrb/atscntrb-hx-libgmp/SATS/gmp.sats: 1178(line=38, offs=1) -- 1236(line=43, offs=3) -*/ - -// -#include \ -"atscntrb-hx-libgmp/CATS/gmp.cats" -// -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 1813(line=49, offs=1) -- 1845(line=49, offs=33) -*/ -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 1846(line=50, offs=1) -- 1881(line=50, offs=36) -*/ -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/SATS/intinf_vt.sats: 1806(line=48, offs=1) -- 1829(line=48, offs=24) -*/ -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/gintinf_t.dats: 1657(line=37, offs=1) -- 1689(line=37, offs=33) -*/ -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/gintinf_t.dats: 1690(line=38, offs=1) -- 1724(line=38, offs=35) -*/ -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/SATS/intinf_t.sats: 1805(line=48, offs=1) -- 1828(line=48, offs=24) -*/ -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/SATS/intinf_vt.sats: 1806(line=48, offs=1) -- 1829(line=48, offs=24) -*/ -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/libats/libc/SATS/math.sats: 1380(line=35, offs=1) -- 1426(line=38, offs=3) -*/ - -#include \ -"libats/libc/CATS/math.cats" -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/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/hs-ats/fast-arithmetic/ats-src/numerics.dats: 204(line=9, offs=1) -- 372(line=15, offs=3) -*/ -ATSextcode_beg() -#ifndef LIBRARY_BUILD -#define ATS_MEMALLOC_LIBC -#include "ccomp/runtime/pats_ccomp_memalloc_libc.h" -#include "ccomp/runtime/pats_ccomp_runtime_memalloc.c" -#endif -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(atspre_ptr_alloc_tsz) -ATSdyncst_mac(atscntrb_gmp_mpz_init) -ATSdyncst_mac(atscntrb_gmp_mpz_fib_uint) -ATSdyncst_mac(atspre_g1int2int_int_int) -ATSdyncst_mac(atspre_g1int_gt_int) -ATSdyncst_mac(atspre_g1int_half_int) -ATSdyncst_mac(atspre_g0int_mod_int) -ATSdyncst_mac(atspre_g0int2int_int_int) -ATSdyncst_mac(atspre_g0int_eq_int) -ATSdyncst_mac(atspre_g0int_mul_int) -ATSdyncst_mac(atspre_g1int_eq_int) -ATSdyncst_mac(atscntrb_gmp_mpz_cmp_int) -ATSdyncst_mac(atspre_g0int_lt_int) -ATSdyncst_mac(atspre_g1int_neg_int) -ATSdyncst_mac(atspre_g0int_gt_int) -ATSdyncst_mac(atscntrb_gmp_mpz_init_set_mpz) -ATSdyncst_mac(atscntrb_gmp_mpz_mul2_mpz) -ATSdyncst_mac(atscntrb_gmp_mpz_clear) -ATSdyncst_mac(atspre_ptr_free) -ATSdyncst_mac(atscntrb_gmp_mpz_init_set_int) -ATSdyncst_mac(atspre_g0float2int_double_int) -ATSdyncst_mac(atslib_libats_libc_sqrt_double) -ATSdyncst_mac(atspre_g0int2float_int_double) -ATSdyncst_mac(atspre_g1int_lt_int) -ATSdyncst_mac(atspre_g1int_add_int) -ATSdyncst_mac(atspre_g1int_div_int) -/* -dyncstlst-declaration(end) -*/ -/* -dynvalist-implementation(beg) -*/ -/* -dynvalist-implementation(end) -*/ -/* -exnconlst-declaration(beg) -*/ -#ifndef _ATS_CCOMP_EXCEPTION_NONE_ -ATSextern() -atsvoid_t0ype -the_atsexncon_initize -( - atstype_exnconptr d2c, atstype_string exnmsg -) ; -#endif // end of [_ATS_CCOMP_EXCEPTION_NONE_] -/* -exnconlst-declaration(end) -*/ -/* -extypelst-declaration(beg) -*/ -/* -extypelst-declaration(end) -*/ -/* -assumelst-declaration(beg) -*/ -#ifndef _ATS_CCOMP_ASSUME_CHECK_NONE_ -#endif // #ifndef(_ATS_CCOMP_ASSUME_CHECK_NONE_) -/* -assumelst-declaration(end) -*/ -ATSstatic() -atstkind_type(atstype_ptrk) -fib_gmp_0(atstkind_t0ype(atstype_uint)) ; - -#if(0) -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -ATSLIB_056_prelude__ptr_alloc__1() ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -ATSstatic() -atstkind_type(atstype_ptrk) -ATSLIB_056_prelude__ptr_alloc__1__1() ; - -ATSstatic() -atstkind_t0ype(atstype_int) -exp_3(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -#if(0) -#if(0) -ATSextern() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__gt_g1int_int__4(atstkind_t0ype(atstyvar_type(tk)), atstkind_t0ype(atstype_int)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -ATSstatic() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__gt_g1int_int__4__1(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -#if(0) -#if(0) -ATSextern() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g0int_int__10(atstkind_t0ype(atstyvar_type(tk)), atstkind_t0ype(atstype_int)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -ATSstatic() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g0int_int__10__1(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_type(atstype_ptrk) -big_exp_15(atstkind_type(atstype_ptrk), atstkind_t0ype(atstype_int)) ; - -#if(0) -#if(0) -ATSextern() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g1int_int__16(atstkind_t0ype(atstyvar_type(tk)), atstkind_t0ype(atstype_int)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -ATSstatic() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g1int_int__16__1(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -#if(0) -#if(0) -ATSextern() -atstkind_t0ype(atstype_int) -ATSCNTRB_056_HX_056_intinf_vt__compare_intinf_int__19(atsrefarg0_type(atstkind_type(atstype_ptrk)), atstkind_t0ype(atstype_int)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -ATSstatic() -atstkind_t0ype(atstype_int) -ATSCNTRB_056_HX_056_intinf_vt__compare_intinf_int__19__1(atsrefarg0_type(atstkind_type(atstype_ptrk)), atstkind_t0ype(atstype_int)) ; - -#if(0) -#if(0) -ATSextern() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__lt_g0int_int__21(atstkind_t0ype(atstyvar_type(tk)), atstkind_t0ype(atstype_int)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -ATSstatic() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__lt_g0int_int__21__1(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -#if(0) -#if(0) -ATSextern() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__gt_g0int_int__25(atstkind_t0ype(atstyvar_type(tk)), atstkind_t0ype(atstype_int)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -ATSstatic() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__gt_g0int_int__25__1(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__gt_g1int_int__4__2(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g0int_int__10__2(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -#if(0) -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__square_intinf0__30(atstkind_type(atstype_ptrk)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -ATSstatic() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__square_intinf0__30__1(atstkind_type(atstype_ptrk)) ; - -#if(0) -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__square_intinf1__32(atsrefarg0_type(atstkind_type(atstype_ptrk))) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -ATSstatic() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__square_intinf1__32__1(atsrefarg0_type(atstkind_type(atstype_ptrk))) ; - -ATSstatic() -atstkind_type(atstype_ptrk) -ATSLIB_056_prelude__ptr_alloc__1__2() ; - -#if(0) -#if(0) -ATSextern() -atsvoid_t0ype -ATSCNTRB_056_HX_056_intinf_vt__intinf_free__35(atstkind_type(atstype_ptrk)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -ATSstatic() -atsvoid_t0ype -ATSCNTRB_056_HX_056_intinf_vt__intinf_free__35__1(atstkind_type(atstype_ptrk)) ; - -ATSstatic() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__square_intinf1__32__2(atsrefarg0_type(atstkind_type(atstype_ptrk))) ; - -ATSstatic() -atstkind_type(atstype_ptrk) -ATSLIB_056_prelude__ptr_alloc__1__3() ; - -#if(0) -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_intinf1__39(atstkind_type(atstype_ptrk), atsrefarg0_type(atstkind_type(atstype_ptrk))) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -ATSstatic() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_intinf1__39__1(atstkind_type(atstype_ptrk), atsrefarg0_type(atstkind_type(atstype_ptrk))) ; - -ATSstatic() -atsvoid_t0ype -ATSCNTRB_056_HX_056_intinf_vt__intinf_free__35__2(atstkind_type(atstype_ptrk)) ; - -ATSstatic() -atsvoid_t0ype -ATSCNTRB_056_HX_056_intinf_vt__intinf_free__35__3(atstkind_type(atstype_ptrk)) ; - -#if(0) -#if(0) -ATSextern() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__43(atstkind_t0ype(atstype_int)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -ATSstatic() -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__43__1(atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_type(atstype_ptrk) -ATSLIB_056_prelude__ptr_alloc__1__4() ; - -ATSstatic() -atstkind_t0ype(atstype_int) -sqrt_int_46(atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_t0ype(atstype_bool) -is_prime_48(atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_t0ype(atstype_bool) -loop_49(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -#if(0) -#if(0) -ATSextern() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__lt_g1int_int__50(atstkind_t0ype(atstyvar_type(tk)), atstkind_t0ype(atstype_int)) ; -#endif // end of [QUALIFIED] -#endif // end of [TEMPLATE] - -ATSstatic() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__lt_g1int_int__50__1(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g0int_int__10__3(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g1int_int__16__2(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g0int_int__10__4(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_t0ype(atstype_bool) -is_semiprime_57(atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_t0ype(atstype_bool) -loop_58(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__lt_g1int_int__50__2(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g0int_int__10__5(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g1int_int__16__3(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -ATSstatic() -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g0int_int__10__6(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; - -#if(0) -ATSextern() -atstkind_t0ype(atstype_bool) -is_prime_ats(atstkind_t0ype(atstype_int)) ; -#endif // end of [QUALIFIED] - -#if(0) -ATSextern() -atstkind_t0ype(atstype_bool) -is_semiprime_ats(atstkind_t0ype(atstype_int)) ; -#endif // end of [QUALIFIED] - -#if(0) -ATSextern() -atstkind_t0ype(atstype_int) -exp_ats(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; -#endif // end of [QUALIFIED] - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 414(line=12, offs=4) -- 587(line=19, offs=6) -*/ -/* -local: -global: fib_gmp_0$0(level=0) -local: -global: -*/ -ATSstatic() -atstkind_type(atstype_ptrk) -fib_gmp_0(atstkind_t0ype(atstype_uint) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret0, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmpref1, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp4) ; -// ATStmpdec_void(tmp5) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 414(line=12, offs=4) -- 587(line=19, offs=6) -*/ -ATSINSflab(__patsflab_fib_gmp_0): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 451(line=13, offs=3) -- 587(line=19, offs=6) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 463(line=14, offs=9) -- 464(line=14, offs=10) -*/ -/* -ATSINStmpdec(tmpref1) ; -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 467(line=14, offs=13) -- 478(line=14, offs=24) -*/ -ATSINSmove(tmpref1, ATSLIB_056_prelude__ptr_alloc__1__1()) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 492(line=15, offs=14) -- 513(line=15, offs=35) -*/ -ATSINSmove_void(tmp4, atscntrb_gmp_mpz_init(ATSPMVrefarg1(ATSSELrecsin(tmpref1, atstkind_type(atstype_ptrk), atslab__2)))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 527(line=16, offs=14) -- 555(line=16, offs=42) -*/ -ATSINSmove_void(tmp5, atscntrb_gmp_mpz_fib_uint(ATSPMVrefarg1(ATSSELrecsin(tmpref1, atstkind_type(atstype_ptrk), atslab__2)), arg0)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 565(line=18, offs=5) -- 580(line=18, offs=20) -*/ -ATSINSmove(tmpret0, ATSPMVcastfn(castvwtp0, atstkind_type(atstype_ptrk), tmpref1)) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 451(line=13, offs=3) -- 587(line=19, offs=6) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret0) ; -} /* end of [fib_gmp_0] */ - -#if(0) -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42) -*/ -/* -local: -global: ptr_alloc$1$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = a(4740) -tmparg = S2Evar(a(4740)) -tmpsub = None() -*/ -atstkind_type(atstype_ptrk) -ATSLIB_056_prelude__ptr_alloc__1() -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret2, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3708(line=184, offs=1) -- 3749(line=184, offs=42) -*/ -ATSINSflab(__patsflab_ptr_alloc): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42) -*/ -ATSINSmove(tmpret2, atspre_ptr_alloc_tsz(ATSPMVsizeof(atstyvar_type(a)))) ; - -ATSfunbody_end() -ATSreturn(tmpret2) ; -} /* end of [ATSLIB_056_prelude__ptr_alloc__1] */ -#endif // end of [TEMPLATE] - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42) -*/ -/* -local: -global: ptr_alloc$1$1(level=1) -local: -global: -*/ -ATSstatic() -/* -imparg = a(4740) -tmparg = S2Evar(a(4740)) -tmpsub = Some(a(4740) -> S2EVar(5559)) -*/ -atstkind_type(atstype_ptrk) -ATSLIB_056_prelude__ptr_alloc__1__1() -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret2__1, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3708(line=184, offs=1) -- 3749(line=184, offs=42) -*/ -ATSINSflab(__patsflab_ptr_alloc): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42) -*/ -ATSINSmove(tmpret2__1, atspre_ptr_alloc_tsz(ATSPMVsizeof(atscntrb_gmp_mpz))) ; - -ATSfunbody_end() -ATSreturn(tmpret2__1) ; -} /* end of [ATSLIB_056_prelude__ptr_alloc__1__1] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 764(line=24, offs=5) -- 1203(line=45, offs=10) -*/ -/* -local: exp_3$0(level=0) -global: exp_3$0(level=0) -local: -global: -*/ -ATSstatic() -atstkind_t0ype(atstype_int) -exp_3(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(apy0, atstkind_t0ype(atstype_int)) ; -ATStmpdec(apy1, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmpret6, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp7, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmpref12, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmpref13, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp14, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp19, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmpref20, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp21, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp22, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 764(line=24, offs=5) -- 1203(line=45, offs=10) -*/ -ATSINSflab(__patsflab_exp_3): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 814(line=25, offs=3) -- 1203(line=45, offs=10) -*/ -ATScaseof_beg() -/* -** ibranchlst-beg -*/ -ATSbranch_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 831(line=26, offs=7) -- 832(line=26, offs=8) -*/ -ATSINSlab(__atstmplab0): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 783(line=24, offs=24) -- 784(line=24, offs=25) -*/ -ATSifnthen(ATSCKpat_int(arg0, ATSPMVint(0))) { ATSINSgoto(__atstmplab2) ; } ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 832(line=26, offs=8) -- 832(line=26, offs=8) -*/ -ATSINSlab(__atstmplab1): -/* -emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) -*/ -/* -ibranch-mbody: -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 836(line=26, offs=12) -- 837(line=26, offs=13) -*/ -ATSINSmove(tmpret6, ATSPMVi0nt(0)) ; -ATSbranch_end() - -ATSbranch_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 845(line=27, offs=8) -- 845(line=27, offs=8) -*/ -ATSINSlab(__atstmplab2): -/* -emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) -*/ -/* -ibranch-mbody: -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 874(line=29, offs=12) -- 879(line=29, offs=17) -*/ -ATSINSmove(tmp7, ATSLIB_056_prelude__gt_g1int_int__4__1(arg1, ATSPMVi0nt(0))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 871(line=29, offs=9) -- 1193(line=44, offs=12) -*/ -ATSif( -tmp7 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 895(line=30, offs=11) -- 1168(line=42, offs=14) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 915(line=31, offs=17) -- 917(line=31, offs=19) -*/ -/* -ATSINStmpdec(tmpref12) ; -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 920(line=31, offs=22) -- 926(line=31, offs=28) -*/ -ATSINSmove(tmpref12, atspre_g1int_half_int(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 944(line=32, offs=17) -- 946(line=32, offs=19) -*/ -/* -ATSINStmpdec(tmpref13) ; -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 949(line=32, offs=22) -- 954(line=32, offs=27) -*/ -ATSINSmove(tmpref13, atspre_g0int_mod_int(arg1, ATSPMVi0nt(2))) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 983(line=34, offs=16) -- 989(line=34, offs=22) -*/ -ATSINSmove(tmp14, ATSLIB_056_prelude__eq_g0int_int__10__1(tmpref13, ATSPMVi0nt(0))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 980(line=34, offs=13) -- 1154(line=41, offs=18) -*/ -ATSif( -tmp14 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1013(line=35, offs=19) -- 1018(line=35, offs=24) -*/ -ATSINSmove(tmp19, atspre_g0int_mul_int(arg0, arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1009(line=35, offs=15) -- 1023(line=35, offs=29) -*/ -ATStailcal_beg() -ATSINSmove_tlcal(apy0, tmp19) ; -ATSINSmove_tlcal(apy1, tmpref12) ; -ATSINSargmove_tlcal(arg0, apy0) ; -ATSINSargmove_tlcal(arg1, apy1) ; -ATSINSfgoto(__patsflab_exp_3) ; -ATStailcal_end() - -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1055(line=37, offs=15) -- 1154(line=41, offs=18) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1079(line=38, offs=21) -- 1080(line=38, offs=22) -*/ -/* -ATSINStmpdec(tmpref20) ; -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1091(line=38, offs=33) -- 1096(line=38, offs=38) -*/ -ATSINSmove(tmp22, atspre_g0int_mul_int(arg0, arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1087(line=38, offs=29) -- 1101(line=38, offs=43) -*/ -ATSINSmove(tmp21, exp_3(tmp22, tmpref12)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1083(line=38, offs=25) -- 1101(line=38, offs=43) -*/ -ATSINSmove(tmpref20, atspre_g0int_mul_int(arg0, tmp21)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1135(line=40, offs=17) -- 1136(line=40, offs=18) -*/ -ATSINSmove(tmpret6, tmpref20) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1055(line=37, offs=15) -- 1154(line=41, offs=18) -*/ -/* -INSletpop() -*/ -} /* ATSendif */ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 895(line=30, offs=11) -- 1168(line=42, offs=14) -*/ -/* -INSletpop() -*/ -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1192(line=44, offs=11) -- 1193(line=44, offs=12) -*/ -ATSINSmove(tmpret6, ATSPMVi0nt(1)) ; -} /* ATSendif */ -ATSbranch_end() - -/* -** ibranchlst-end -*/ -ATScaseof_end() - -ATSfunbody_end() -ATSreturn(tmpret6) ; -} /* end of [exp_3] */ - -#if(0) -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12679(line=659, offs=3) -- 12718(line=659, offs=42) -*/ -/* -local: -global: gt_g1int_int$4$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = tk(4637) -tmparg = S2Evar(tk(4637)) -tmpsub = None() -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__gt_g1int_int__4(atstkind_t0ype(atstyvar_type(tk)) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret8, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp9, atstkind_t0ype(atstyvar_type(tk))) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12664(line=658, offs=1) -- 12718(line=659, offs=42) -*/ -ATSINSflab(__patsflab_gt_g1int_int): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12705(line=659, offs=29) -- 12716(line=659, offs=40) -*/ -ATSINSmove(tmp9, PMVtmpltcst(g1int2int)(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12688(line=659, offs=12) -- 12718(line=659, offs=42) -*/ -ATSINSmove(tmpret8, PMVtmpltcst(g1int_gt)(arg0, tmp9)) ; - -ATSfunbody_end() -ATSreturn(tmpret8) ; -} /* end of [ATSLIB_056_prelude__gt_g1int_int__4] */ -#endif // end of [TEMPLATE] - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12679(line=659, offs=3) -- 12718(line=659, offs=42) -*/ -/* -local: -global: gt_g1int_int$4$1(level=1) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4637) -tmparg = S2Evar(tk(4637)) -tmpsub = Some(tk(4637) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__gt_g1int_int__4__1(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret8__1, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp9__1, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12664(line=658, offs=1) -- 12718(line=659, offs=42) -*/ -ATSINSflab(__patsflab_gt_g1int_int): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12705(line=659, offs=29) -- 12716(line=659, offs=40) -*/ -ATSINSmove(tmp9__1, atspre_g1int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12688(line=659, offs=12) -- 12718(line=659, offs=42) -*/ -ATSINSmove(tmpret8__1, atspre_g1int_gt_int(arg0, tmp9__1)) ; - -ATSfunbody_end() -ATSreturn(tmpret8__1) ; -} /* end of [ATSLIB_056_prelude__gt_g1int_int__4__1] */ - -#if(0) -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) -*/ -/* -local: -global: eq_g0int_int$10$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = tk(4628) -tmparg = S2Evar(tk(4628)) -tmpsub = None() -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g0int_int__10(atstkind_t0ype(atstyvar_type(tk)) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret15, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp16, atstkind_t0ype(atstyvar_type(tk))) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) -*/ -ATSINSflab(__patsflab_eq_g0int_int): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) -*/ -ATSINSmove(tmp16, PMVtmpltcst(g0int2int)(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) -*/ -ATSINSmove(tmpret15, PMVtmpltcst(g0int_eq)(arg0, tmp16)) ; - -ATSfunbody_end() -ATSreturn(tmpret15) ; -} /* end of [ATSLIB_056_prelude__eq_g0int_int__10] */ -#endif // end of [TEMPLATE] - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) -*/ -/* -local: -global: eq_g0int_int$10$1(level=1) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4628) -tmparg = S2Evar(tk(4628)) -tmpsub = Some(tk(4628) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g0int_int__10__1(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret15__1, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp16__1, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) -*/ -ATSINSflab(__patsflab_eq_g0int_int): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) -*/ -ATSINSmove(tmp16__1, atspre_g0int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) -*/ -ATSINSmove(tmpret15__1, atspre_g0int_eq_int(arg0, tmp16__1)) ; - -ATSfunbody_end() -ATSreturn(tmpret15__1) ; -} /* end of [ATSLIB_056_prelude__eq_g0int_int__10__1] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1241(line=48, offs=5) -- 1849(line=74, offs=39) -*/ -/* -local: big_exp_15$0(level=0) -global: big_exp_15$0(level=0) -local: -global: -*/ -ATSstatic() -atstkind_type(atstype_ptrk) -big_exp_15(atstkind_type(atstype_ptrk) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(apy0, atstkind_type(atstype_ptrk)) ; -ATStmpdec(apy1, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmpret23, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp24, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp29, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp48, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmpref51, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmpref52, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp53, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmpref56, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmpref76, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmpref82, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmpref83, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp88) ; -// ATStmpdec_void(tmp91) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1241(line=48, offs=5) -- 1849(line=74, offs=39) -*/ -ATSINSflab(__patsflab_big_exp_15): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1304(line=49, offs=6) -- 1328(line=49, offs=30) -*/ -ATSINSmove(tmp29, ATSCNTRB_056_HX_056_intinf_vt__compare_intinf_int__19__1(ATSPMVrefarg0(arg0), ATSPMVi0nt(0))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1304(line=49, offs=6) -- 1332(line=49, offs=34) -*/ -ATSINSmove(tmp24, ATSLIB_056_prelude__eq_g1int_int__16__1(tmp29, ATSPMVi0nt(0))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1301(line=49, offs=3) -- 1849(line=74, offs=39) -*/ -ATSif( -tmp24 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1342(line=50, offs=5) -- 1343(line=50, offs=6) -*/ -ATSINSmove(tmpret23, arg0) ; -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1358(line=52, offs=8) -- 1363(line=52, offs=13) -*/ -ATSINSmove(tmp48, ATSLIB_056_prelude__gt_g1int_int__4__2(arg1, ATSPMVi0nt(0))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1355(line=52, offs=5) -- 1849(line=74, offs=39) -*/ -ATSif( -tmp48 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1375(line=53, offs=7) -- 1801(line=72, offs=10) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1391(line=54, offs=13) -- 1393(line=54, offs=15) -*/ -/* -ATSINStmpdec(tmpref51) ; -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1396(line=54, offs=18) -- 1402(line=54, offs=24) -*/ -ATSINSmove(tmpref51, atspre_g1int_half_int(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1416(line=55, offs=13) -- 1418(line=55, offs=15) -*/ -/* -ATSINStmpdec(tmpref52) ; -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1421(line=55, offs=18) -- 1426(line=55, offs=23) -*/ -ATSINSmove(tmpref52, atspre_g0int_mod_int(arg1, ATSPMVi0nt(2))) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1447(line=57, offs=12) -- 1453(line=57, offs=18) -*/ -ATSINSmove(tmp53, ATSLIB_056_prelude__eq_g0int_int__10__2(tmpref52, ATSPMVi0nt(0))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1444(line=57, offs=9) -- 1791(line=71, offs=14) -*/ -ATSif( -tmp53 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1469(line=58, offs=11) -- 1564(line=62, offs=14) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1489(line=59, offs=17) -- 1490(line=59, offs=18) -*/ -/* -ATSINStmpdec(tmpref56) ; -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1493(line=59, offs=21) -- 1509(line=59, offs=37) -*/ -ATSINSmove(tmpref56, ATSCNTRB_056_HX_056_intinf_vt__square_intinf0__30__1(arg0)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1536(line=61, offs=13) -- 1550(line=61, offs=27) -*/ -ATStailcal_beg() -ATSINSmove_tlcal(apy0, tmpref56) ; -ATSINSmove_tlcal(apy1, tmpref51) ; -ATSINSargmove_tlcal(arg0, apy0) ; -ATSINSargmove_tlcal(arg1, apy1) ; -ATSINSfgoto(__patsflab_big_exp_15) ; -ATStailcal_end() - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1469(line=58, offs=11) -- 1564(line=62, offs=14) -*/ -/* -INSletpop() -*/ -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1588(line=64, offs=11) -- 1791(line=71, offs=14) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1608(line=65, offs=17) -- 1610(line=65, offs=19) -*/ -/* -ATSINStmpdec(tmpref76) ; -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1613(line=65, offs=22) -- 1629(line=65, offs=38) -*/ -ATSINSmove(tmpref76, ATSCNTRB_056_HX_056_intinf_vt__square_intinf1__32__2(ATSPMVrefarg0(arg0))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1647(line=66, offs=17) -- 1649(line=66, offs=19) -*/ -/* -ATSINStmpdec(tmpref82) ; -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1652(line=66, offs=22) -- 1667(line=66, offs=37) -*/ -ATSINSmove(tmpref82, big_exp_15(tmpref76, tmpref51)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1684(line=67, offs=17) -- 1685(line=67, offs=18) -*/ -/* -ATSINStmpdec(tmpref83) ; -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1688(line=67, offs=21) -- 1714(line=67, offs=47) -*/ -ATSINSmove(tmpref83, ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_intinf1__39__1(tmpref82, ATSPMVrefarg0(arg0))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1736(line=68, offs=22) -- 1749(line=68, offs=35) -*/ -ATSINSmove_void(tmp88, ATSCNTRB_056_HX_056_intinf_vt__intinf_free__35__2(arg0)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1776(line=70, offs=13) -- 1777(line=70, offs=14) -*/ -ATSINSmove(tmpret23, tmpref83) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1588(line=64, offs=11) -- 1791(line=71, offs=14) -*/ -/* -INSletpop() -*/ -} /* ATSendif */ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1375(line=53, offs=7) -- 1801(line=72, offs=10) -*/ -/* -INSletpop() -*/ -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1818(line=74, offs=8) -- 1831(line=74, offs=21) -*/ -ATSINSmove_void(tmp91, ATSCNTRB_056_HX_056_intinf_vt__intinf_free__35__3(arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1835(line=74, offs=25) -- 1848(line=74, offs=38) -*/ -ATSINSmove(tmpret23, ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__43__1(ATSPMVi0nt(1))) ; - -} /* ATSendif */ -} /* ATSendif */ -ATSfunbody_end() -ATSreturn(tmpret23) ; -} /* end of [big_exp_15] */ - -#if(0) -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12838(line=668, offs=3) -- 12877(line=668, offs=42) -*/ -/* -local: -global: eq_g1int_int$16$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = tk(4643) -tmparg = S2Evar(tk(4643)) -tmpsub = None() -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g1int_int__16(atstkind_t0ype(atstyvar_type(tk)) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret25, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp26, atstkind_t0ype(atstyvar_type(tk))) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12823(line=667, offs=1) -- 12877(line=668, offs=42) -*/ -ATSINSflab(__patsflab_eq_g1int_int): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12864(line=668, offs=29) -- 12875(line=668, offs=40) -*/ -ATSINSmove(tmp26, PMVtmpltcst(g1int2int)(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12847(line=668, offs=12) -- 12877(line=668, offs=42) -*/ -ATSINSmove(tmpret25, PMVtmpltcst(g1int_eq)(arg0, tmp26)) ; - -ATSfunbody_end() -ATSreturn(tmpret25) ; -} /* end of [ATSLIB_056_prelude__eq_g1int_int__16] */ -#endif // end of [TEMPLATE] - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12838(line=668, offs=3) -- 12877(line=668, offs=42) -*/ -/* -local: -global: eq_g1int_int$16$1(level=1) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4643) -tmparg = S2Evar(tk(4643)) -tmpsub = Some(tk(4643) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g1int_int__16__1(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret25__1, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp26__1, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12823(line=667, offs=1) -- 12877(line=668, offs=42) -*/ -ATSINSflab(__patsflab_eq_g1int_int): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12864(line=668, offs=29) -- 12875(line=668, offs=40) -*/ -ATSINSmove(tmp26__1, atspre_g1int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12847(line=668, offs=12) -- 12877(line=668, offs=42) -*/ -ATSINSmove(tmpret25__1, atspre_g1int_eq_int(arg0, tmp26__1)) ; - -ATSfunbody_end() -ATSreturn(tmpret25__1) ; -} /* end of [ATSLIB_056_prelude__eq_g1int_int__16__1] */ - -#if(0) -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13321(line=768, offs=9) -- 13484(line=775, offs=4) -*/ -/* -local: -global: compare_intinf_int$19$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_t0ype(atstype_int) -ATSCNTRB_056_HX_056_intinf_vt__compare_intinf_int__19(atsrefarg0_type(atstkind_type(atstype_ptrk)) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret30, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp31, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp32, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp33, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp34, atstkind_t0ype(atstype_bool)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13294(line=767, offs=1) -- 13484(line=775, offs=4) -*/ -ATSINSflab(__patsflab_compare_intinf_int): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13330(line=768, offs=18) -- 13484(line=775, offs=4) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13347(line=770, offs=11) -- 13375(line=770, offs=39) -*/ -ATSINSmove(tmp31, atscntrb_gmp_mpz_cmp_int(ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13390(line=771, offs=15) -- 13397(line=771, offs=22) -*/ -ATSINSmove(tmp33, PMVtmpltcst(lt_g0int_int)(tmp31, ATSPMVi0nt(0))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13387(line=771, offs=12) -- 13437(line=771, offs=62) -*/ -ATSif( -tmp33 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13403(line=771, offs=28) -- 13405(line=771, offs=30) -*/ -ATSINSmove(tmp32, PMVtmpltcst(g1int_neg)(ATSPMVi0nt(1))) ; - -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13415(line=771, offs=40) -- 13422(line=771, offs=47) -*/ -ATSINSmove(tmp34, PMVtmpltcst(gt_g0int_int)(tmp31, ATSPMVi0nt(0))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13412(line=771, offs=37) -- 13436(line=771, offs=61) -*/ -ATSif( -tmp34 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13428(line=771, offs=53) -- 13429(line=771, offs=54) -*/ -ATSINSmove(tmp32, ATSPMVi0nt(1)) ; -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13435(line=771, offs=60) -- 13436(line=771, offs=61) -*/ -ATSINSmove(tmp32, ATSPMVi0nt(0)) ; -} /* ATSendif */ -} /* ATSendif */ -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13452(line=774, offs=3) -- 13479(line=774, offs=30) -*/ -ATSINSmove(tmpret30, ATSPMVcastfn(cast, atstkind_t0ype(atstype_int), tmp32)) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13330(line=768, offs=18) -- 13484(line=775, offs=4) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret30) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__compare_intinf_int__19] */ -#endif // end of [TEMPLATE] - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13321(line=768, offs=9) -- 13484(line=775, offs=4) -*/ -/* -local: -global: compare_intinf_int$19$1(level=1) -local: -global: -*/ -ATSstatic() -/* -imparg = -tmparg = -tmpsub = Some() -*/ -atstkind_t0ype(atstype_int) -ATSCNTRB_056_HX_056_intinf_vt__compare_intinf_int__19__1(atsrefarg0_type(atstkind_type(atstype_ptrk)) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret30__1, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp31__1, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp32__1, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp33__1, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp34__1, atstkind_t0ype(atstype_bool)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13294(line=767, offs=1) -- 13484(line=775, offs=4) -*/ -ATSINSflab(__patsflab_compare_intinf_int): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13330(line=768, offs=18) -- 13484(line=775, offs=4) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13347(line=770, offs=11) -- 13375(line=770, offs=39) -*/ -ATSINSmove(tmp31__1, atscntrb_gmp_mpz_cmp_int(ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13390(line=771, offs=15) -- 13397(line=771, offs=22) -*/ -ATSINSmove(tmp33__1, ATSLIB_056_prelude__lt_g0int_int__21__1(tmp31__1, ATSPMVi0nt(0))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13387(line=771, offs=12) -- 13437(line=771, offs=62) -*/ -ATSif( -tmp33__1 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13403(line=771, offs=28) -- 13405(line=771, offs=30) -*/ -ATSINSmove(tmp32__1, atspre_g1int_neg_int(ATSPMVi0nt(1))) ; - -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13415(line=771, offs=40) -- 13422(line=771, offs=47) -*/ -ATSINSmove(tmp34__1, ATSLIB_056_prelude__gt_g0int_int__25__1(tmp31__1, ATSPMVi0nt(0))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13412(line=771, offs=37) -- 13436(line=771, offs=61) -*/ -ATSif( -tmp34__1 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13428(line=771, offs=53) -- 13429(line=771, offs=54) -*/ -ATSINSmove(tmp32__1, ATSPMVi0nt(1)) ; -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13435(line=771, offs=60) -- 13436(line=771, offs=61) -*/ -ATSINSmove(tmp32__1, ATSPMVi0nt(0)) ; -} /* ATSendif */ -} /* ATSendif */ -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13452(line=774, offs=3) -- 13479(line=774, offs=30) -*/ -ATSINSmove(tmpret30__1, ATSPMVcastfn(cast, atstkind_t0ype(atstype_int), tmp32__1)) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13330(line=768, offs=18) -- 13484(line=775, offs=4) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret30__1) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__compare_intinf_int__19__1] */ - -#if(0) -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 11941(line=617, offs=3) -- 11980(line=617, offs=42) -*/ -/* -local: -global: lt_g0int_int$21$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = tk(4624) -tmparg = S2Evar(tk(4624)) -tmpsub = None() -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__lt_g0int_int__21(atstkind_t0ype(atstyvar_type(tk)) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret40, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp41, atstkind_t0ype(atstyvar_type(tk))) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 11926(line=616, offs=1) -- 11980(line=617, offs=42) -*/ -ATSINSflab(__patsflab_lt_g0int_int): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 11967(line=617, offs=29) -- 11978(line=617, offs=40) -*/ -ATSINSmove(tmp41, PMVtmpltcst(g0int2int)(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 11950(line=617, offs=12) -- 11980(line=617, offs=42) -*/ -ATSINSmove(tmpret40, PMVtmpltcst(g0int_lt)(arg0, tmp41)) ; - -ATSfunbody_end() -ATSreturn(tmpret40) ; -} /* end of [ATSLIB_056_prelude__lt_g0int_int__21] */ -#endif // end of [TEMPLATE] - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 11941(line=617, offs=3) -- 11980(line=617, offs=42) -*/ -/* -local: -global: lt_g0int_int$21$1(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4624) -tmparg = S2Evar(tk(4624)) -tmpsub = Some(tk(4624) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__lt_g0int_int__21__1(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret40__1, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp41__1, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 11926(line=616, offs=1) -- 11980(line=617, offs=42) -*/ -ATSINSflab(__patsflab_lt_g0int_int): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 11967(line=617, offs=29) -- 11978(line=617, offs=40) -*/ -ATSINSmove(tmp41__1, atspre_g0int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 11950(line=617, offs=12) -- 11980(line=617, offs=42) -*/ -ATSINSmove(tmpret40__1, atspre_g0int_lt_int(arg0, tmp41__1)) ; - -ATSfunbody_end() -ATSreturn(tmpret40__1) ; -} /* end of [ATSLIB_056_prelude__lt_g0int_int__21__1] */ - -#if(0) -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12100(line=626, offs=3) -- 12139(line=626, offs=42) -*/ -/* -local: -global: gt_g0int_int$25$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = tk(4626) -tmparg = S2Evar(tk(4626)) -tmpsub = None() -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__gt_g0int_int__25(atstkind_t0ype(atstyvar_type(tk)) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret44, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp45, atstkind_t0ype(atstyvar_type(tk))) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12085(line=625, offs=1) -- 12139(line=626, offs=42) -*/ -ATSINSflab(__patsflab_gt_g0int_int): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12126(line=626, offs=29) -- 12137(line=626, offs=40) -*/ -ATSINSmove(tmp45, PMVtmpltcst(g0int2int)(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12109(line=626, offs=12) -- 12139(line=626, offs=42) -*/ -ATSINSmove(tmpret44, PMVtmpltcst(g0int_gt)(arg0, tmp45)) ; - -ATSfunbody_end() -ATSreturn(tmpret44) ; -} /* end of [ATSLIB_056_prelude__gt_g0int_int__25] */ -#endif // end of [TEMPLATE] - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12100(line=626, offs=3) -- 12139(line=626, offs=42) -*/ -/* -local: -global: gt_g0int_int$25$1(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4626) -tmparg = S2Evar(tk(4626)) -tmpsub = Some(tk(4626) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__gt_g0int_int__25__1(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret44__1, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp45__1, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12085(line=625, offs=1) -- 12139(line=626, offs=42) -*/ -ATSINSflab(__patsflab_gt_g0int_int): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12126(line=626, offs=29) -- 12137(line=626, offs=40) -*/ -ATSINSmove(tmp45__1, atspre_g0int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12109(line=626, offs=12) -- 12139(line=626, offs=42) -*/ -ATSINSmove(tmpret44__1, atspre_g0int_gt_int(arg0, tmp45__1)) ; - -ATSfunbody_end() -ATSreturn(tmpret44__1) ; -} /* end of [ATSLIB_056_prelude__gt_g0int_int__25__1] */ - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12679(line=659, offs=3) -- 12718(line=659, offs=42) -*/ -/* -local: -global: gt_g1int_int$4$2(level=1) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4637) -tmparg = S2Evar(tk(4637)) -tmpsub = Some(tk(4637) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__gt_g1int_int__4__2(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret8__2, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp9__2, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12664(line=658, offs=1) -- 12718(line=659, offs=42) -*/ -ATSINSflab(__patsflab_gt_g1int_int): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12705(line=659, offs=29) -- 12716(line=659, offs=40) -*/ -ATSINSmove(tmp9__2, atspre_g1int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12688(line=659, offs=12) -- 12718(line=659, offs=42) -*/ -ATSINSmove(tmpret8__2, atspre_g1int_gt_int(arg0, tmp9__2)) ; - -ATSfunbody_end() -ATSreturn(tmpret8__2) ; -} /* end of [ATSLIB_056_prelude__gt_g1int_int__4__2] */ - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) -*/ -/* -local: -global: eq_g0int_int$10$2(level=1) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4628) -tmparg = S2Evar(tk(4628)) -tmpsub = Some(tk(4628) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g0int_int__10__2(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret15__2, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp16__2, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) -*/ -ATSINSflab(__patsflab_eq_g0int_int): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) -*/ -ATSINSmove(tmp16__2, atspre_g0int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) -*/ -ATSINSmove(tmpret15__2, atspre_g0int_eq_int(arg0, tmp16__2)) ; - -ATSfunbody_end() -ATSreturn(tmpret15__2) ; -} /* end of [ATSLIB_056_prelude__eq_g0int_int__10__2] */ - -#if(0) -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4581(line=236, offs=3) -- 4665(line=240, offs=2) -*/ -/* -local: -global: square_intinf0$30$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__square_intinf0__30(atstkind_type(atstype_ptrk) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret57, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp58, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp59) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4564(line=235, offs=1) -- 4665(line=240, offs=2) -*/ -ATSINSflab(__patsflab_square_intinf0): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4587(line=236, offs=9) -- 4665(line=240, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4611(line=238, offs=13) -- 4627(line=238, offs=29) -*/ -ATSINSmove(tmp58, PMVtmpltcst(square_intinf1<>)(ATSPMVrefarg0(arg0))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4649(line=239, offs=21) -- 4662(line=239, offs=34) -*/ -ATSINSmove_void(tmp59, PMVtmpltcst(intinf_free<>)(arg0)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4587(line=236, offs=9) -- 4590(line=236, offs=12) -*/ -ATSINSmove(tmpret57, tmp58) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4587(line=236, offs=9) -- 4665(line=240, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret57) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__square_intinf0__30] */ -#endif // end of [TEMPLATE] - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4581(line=236, offs=3) -- 4665(line=240, offs=2) -*/ -/* -local: -global: square_intinf0$30$1(level=1) -local: -global: -*/ -ATSstatic() -/* -imparg = -tmparg = -tmpsub = Some() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__square_intinf0__30__1(atstkind_type(atstype_ptrk) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret57__1, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp58__1, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp59__1) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4564(line=235, offs=1) -- 4665(line=240, offs=2) -*/ -ATSINSflab(__patsflab_square_intinf0): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4587(line=236, offs=9) -- 4665(line=240, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4611(line=238, offs=13) -- 4627(line=238, offs=29) -*/ -ATSINSmove(tmp58__1, ATSCNTRB_056_HX_056_intinf_vt__square_intinf1__32__1(ATSPMVrefarg0(arg0))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4649(line=239, offs=21) -- 4662(line=239, offs=34) -*/ -ATSINSmove_void(tmp59__1, ATSCNTRB_056_HX_056_intinf_vt__intinf_free__35__1(arg0)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4587(line=236, offs=9) -- 4590(line=236, offs=12) -*/ -ATSINSmove(tmpret57__1, tmp58__1) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4587(line=236, offs=9) -- 4665(line=240, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret57__1) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__square_intinf0__30__1] */ - -#if(0) -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4755(line=247, offs=3) -- 4900(line=256, offs=2) -*/ -/* -local: -global: square_intinf1$32$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__square_intinf1__32(atsrefarg0_type(atstkind_type(atstype_ptrk)) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret63, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp64, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp65) ; -// ATStmpdec_void(tmp66) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4738(line=246, offs=1) -- 4900(line=256, offs=2) -*/ -ATSINSflab(__patsflab_square_intinf1): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4761(line=247, offs=9) -- 4900(line=256, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4784(line=250, offs=9) -- 4800(line=250, offs=25) -*/ -ATSINSmove(tmp64, PMVtmpltcst(ptr_alloc)()) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4812(line=252, offs=3) -- 4849(line=252, offs=40) -*/ -ATSINSmove_void(tmp65, atscntrb_gmp_mpz_init_set_mpz(ATSPMVrefarg1(ATSSELrecsin(tmp64, atstkind_type(atstype_ptrk), atslab__2)), ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4862(line=254, offs=10) -- 4895(line=254, offs=43) -*/ -ATSINSmove_void(tmp66, atscntrb_gmp_mpz_mul2_mpz(ATSPMVrefarg1(ATSSELrecsin(tmp64, atstkind_type(atstype_ptrk), atslab__2)), ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)))) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4762(line=247, offs=10) -- 4763(line=247, offs=11) -*/ -ATSINSmove(tmpret63, tmp64) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4761(line=247, offs=9) -- 4900(line=256, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret63) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__square_intinf1__32] */ -#endif // end of [TEMPLATE] - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4755(line=247, offs=3) -- 4900(line=256, offs=2) -*/ -/* -local: -global: square_intinf1$32$1(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = -tmparg = -tmpsub = Some() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__square_intinf1__32__1(atsrefarg0_type(atstkind_type(atstype_ptrk)) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret63__1, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp64__1, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp65__1) ; -// ATStmpdec_void(tmp66__1) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4738(line=246, offs=1) -- 4900(line=256, offs=2) -*/ -ATSINSflab(__patsflab_square_intinf1): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4761(line=247, offs=9) -- 4900(line=256, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4784(line=250, offs=9) -- 4800(line=250, offs=25) -*/ -ATSINSmove(tmp64__1, ATSLIB_056_prelude__ptr_alloc__1__2()) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4812(line=252, offs=3) -- 4849(line=252, offs=40) -*/ -ATSINSmove_void(tmp65__1, atscntrb_gmp_mpz_init_set_mpz(ATSPMVrefarg1(ATSSELrecsin(tmp64__1, atstkind_type(atstype_ptrk), atslab__2)), ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4862(line=254, offs=10) -- 4895(line=254, offs=43) -*/ -ATSINSmove_void(tmp66__1, atscntrb_gmp_mpz_mul2_mpz(ATSPMVrefarg1(ATSSELrecsin(tmp64__1, atstkind_type(atstype_ptrk), atslab__2)), ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)))) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4762(line=247, offs=10) -- 4763(line=247, offs=11) -*/ -ATSINSmove(tmpret63__1, tmp64__1) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4761(line=247, offs=9) -- 4900(line=256, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret63__1) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__square_intinf1__32__1] */ - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42) -*/ -/* -local: -global: ptr_alloc$1$2(level=3) -local: -global: -*/ -ATSstatic() -/* -imparg = a(4740) -tmparg = S2Evar(a(4740)) -tmpsub = Some(a(4740) -> S2Ecst(mpz_vt0ype)) -*/ -atstkind_type(atstype_ptrk) -ATSLIB_056_prelude__ptr_alloc__1__2() -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret2__2, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3708(line=184, offs=1) -- 3749(line=184, offs=42) -*/ -ATSINSflab(__patsflab_ptr_alloc): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42) -*/ -ATSINSmove(tmpret2__2, atspre_ptr_alloc_tsz(ATSPMVsizeof(atscntrb_gmp_mpz))) ; - -ATSfunbody_end() -ATSreturn(tmpret2__2) ; -} /* end of [ATSLIB_056_prelude__ptr_alloc__1__2] */ - -#if(0) -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2888(line=119, offs=12) -- 2987(line=122, offs=4) -*/ -/* -local: -global: intinf_free$35$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atsvoid_t0ype -ATSCNTRB_056_HX_056_intinf_vt__intinf_free__35(atstkind_type(atstype_ptrk) arg0) -{ -/* tmpvardeclst(beg) */ -// ATStmpdec_void(tmpret72) ; -// ATStmpdec_void(tmp73) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2877(line=119, offs=1) -- 2987(line=122, offs=4) -*/ -ATSINSflab(__patsflab_intinf_free): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2894(line=119, offs=18) -- 2987(line=122, offs=4) -*/ -/* -letpush(beg) -*/ -/* (*nothing*) */ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2936(line=121, offs=12) -- 2955(line=121, offs=31) -*/ -ATSINSmove_void(tmp73, atscntrb_gmp_mpz_clear(ATSPMVrefarg1(arg0))) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2959(line=121, offs=35) -- 2983(line=121, offs=59) -*/ -ATSINSmove_void(tmpret72, atspre_ptr_free(arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2894(line=119, offs=18) -- 2987(line=122, offs=4) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn_void(tmpret72) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_free__35] */ -#endif // end of [TEMPLATE] - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2888(line=119, offs=12) -- 2987(line=122, offs=4) -*/ -/* -local: -global: intinf_free$35$1(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = -tmparg = -tmpsub = Some() -*/ -atsvoid_t0ype -ATSCNTRB_056_HX_056_intinf_vt__intinf_free__35__1(atstkind_type(atstype_ptrk) arg0) -{ -/* tmpvardeclst(beg) */ -// ATStmpdec_void(tmpret72__1) ; -// ATStmpdec_void(tmp73__1) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2877(line=119, offs=1) -- 2987(line=122, offs=4) -*/ -ATSINSflab(__patsflab_intinf_free): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2894(line=119, offs=18) -- 2987(line=122, offs=4) -*/ -/* -letpush(beg) -*/ -/* (*nothing*) */ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2936(line=121, offs=12) -- 2955(line=121, offs=31) -*/ -ATSINSmove_void(tmp73__1, atscntrb_gmp_mpz_clear(ATSPMVrefarg1(arg0))) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2959(line=121, offs=35) -- 2983(line=121, offs=59) -*/ -ATSINSmove_void(tmpret72__1, atspre_ptr_free(arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2894(line=119, offs=18) -- 2987(line=122, offs=4) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn_void(tmpret72__1) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_free__35__1] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4755(line=247, offs=3) -- 4900(line=256, offs=2) -*/ -/* -local: -global: square_intinf1$32$2(level=1) -local: -global: -*/ -ATSstatic() -/* -imparg = -tmparg = -tmpsub = Some() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__square_intinf1__32__2(atsrefarg0_type(atstkind_type(atstype_ptrk)) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret63__2, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp64__2, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp65__2) ; -// ATStmpdec_void(tmp66__2) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4738(line=246, offs=1) -- 4900(line=256, offs=2) -*/ -ATSINSflab(__patsflab_square_intinf1): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4761(line=247, offs=9) -- 4900(line=256, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4784(line=250, offs=9) -- 4800(line=250, offs=25) -*/ -ATSINSmove(tmp64__2, ATSLIB_056_prelude__ptr_alloc__1__3()) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4812(line=252, offs=3) -- 4849(line=252, offs=40) -*/ -ATSINSmove_void(tmp65__2, atscntrb_gmp_mpz_init_set_mpz(ATSPMVrefarg1(ATSSELrecsin(tmp64__2, atstkind_type(atstype_ptrk), atslab__2)), ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4862(line=254, offs=10) -- 4895(line=254, offs=43) -*/ -ATSINSmove_void(tmp66__2, atscntrb_gmp_mpz_mul2_mpz(ATSPMVrefarg1(ATSSELrecsin(tmp64__2, atstkind_type(atstype_ptrk), atslab__2)), ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)))) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4762(line=247, offs=10) -- 4763(line=247, offs=11) -*/ -ATSINSmove(tmpret63__2, tmp64__2) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4761(line=247, offs=9) -- 4900(line=256, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret63__2) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__square_intinf1__32__2] */ - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42) -*/ -/* -local: -global: ptr_alloc$1$3(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = a(4740) -tmparg = S2Evar(a(4740)) -tmpsub = Some(a(4740) -> S2Ecst(mpz_vt0ype)) -*/ -atstkind_type(atstype_ptrk) -ATSLIB_056_prelude__ptr_alloc__1__3() -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret2__3, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3708(line=184, offs=1) -- 3749(line=184, offs=42) -*/ -ATSINSflab(__patsflab_ptr_alloc): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42) -*/ -ATSINSmove(tmpret2__3, atspre_ptr_alloc_tsz(ATSPMVsizeof(atscntrb_gmp_mpz))) ; - -ATSfunbody_end() -ATSreturn(tmpret2__3) ; -} /* end of [ATSLIB_056_prelude__ptr_alloc__1__3] */ - -#if(0) -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7761(line=437, offs=3) -- 7833(line=442, offs=2) -*/ -/* -local: -global: mul_intinf0_intinf1$39$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_intinf1__39(atstkind_type(atstype_ptrk) arg0, atsrefarg0_type(atstkind_type(atstype_ptrk)) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret84, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp85) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7739(line=436, offs=1) -- 7833(line=442, offs=2) -*/ -ATSINSflab(__patsflab_mul_intinf0_intinf1): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7770(line=437, offs=12) -- 7833(line=442, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7794(line=440, offs=10) -- 7828(line=440, offs=44) -*/ -ATSINSmove_void(tmp85, atscntrb_gmp_mpz_mul2_mpz(ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), ATSPMVrefarg1(ATSSELrecsin(arg1, atstkind_type(atstype_ptrk), atslab__2)))) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7771(line=437, offs=13) -- 7772(line=437, offs=14) -*/ -ATSINSmove(tmpret84, arg0) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7770(line=437, offs=12) -- 7833(line=442, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret84) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_intinf1__39] */ -#endif // end of [TEMPLATE] - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7761(line=437, offs=3) -- 7833(line=442, offs=2) -*/ -/* -local: -global: mul_intinf0_intinf1$39$1(level=1) -local: -global: -*/ -ATSstatic() -/* -imparg = -tmparg = -tmpsub = Some() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_intinf1__39__1(atstkind_type(atstype_ptrk) arg0, atsrefarg0_type(atstkind_type(atstype_ptrk)) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret84__1, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp85__1) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7739(line=436, offs=1) -- 7833(line=442, offs=2) -*/ -ATSINSflab(__patsflab_mul_intinf0_intinf1): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7770(line=437, offs=12) -- 7833(line=442, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7794(line=440, offs=10) -- 7828(line=440, offs=44) -*/ -ATSINSmove_void(tmp85__1, atscntrb_gmp_mpz_mul2_mpz(ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), ATSPMVrefarg1(ATSSELrecsin(arg1, atstkind_type(atstype_ptrk), atslab__2)))) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7771(line=437, offs=13) -- 7772(line=437, offs=14) -*/ -ATSINSmove(tmpret84__1, arg0) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7770(line=437, offs=12) -- 7833(line=442, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret84__1) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_intinf1__39__1] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2888(line=119, offs=12) -- 2987(line=122, offs=4) -*/ -/* -local: -global: intinf_free$35$2(level=1) -local: -global: -*/ -ATSstatic() -/* -imparg = -tmparg = -tmpsub = Some() -*/ -atsvoid_t0ype -ATSCNTRB_056_HX_056_intinf_vt__intinf_free__35__2(atstkind_type(atstype_ptrk) arg0) -{ -/* tmpvardeclst(beg) */ -// ATStmpdec_void(tmpret72__2) ; -// ATStmpdec_void(tmp73__2) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2877(line=119, offs=1) -- 2987(line=122, offs=4) -*/ -ATSINSflab(__patsflab_intinf_free): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2894(line=119, offs=18) -- 2987(line=122, offs=4) -*/ -/* -letpush(beg) -*/ -/* (*nothing*) */ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2936(line=121, offs=12) -- 2955(line=121, offs=31) -*/ -ATSINSmove_void(tmp73__2, atscntrb_gmp_mpz_clear(ATSPMVrefarg1(arg0))) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2959(line=121, offs=35) -- 2983(line=121, offs=59) -*/ -ATSINSmove_void(tmpret72__2, atspre_ptr_free(arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2894(line=119, offs=18) -- 2987(line=122, offs=4) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn_void(tmpret72__2) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_free__35__2] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2888(line=119, offs=12) -- 2987(line=122, offs=4) -*/ -/* -local: -global: intinf_free$35$3(level=1) -local: -global: -*/ -ATSstatic() -/* -imparg = -tmparg = -tmpsub = Some() -*/ -atsvoid_t0ype -ATSCNTRB_056_HX_056_intinf_vt__intinf_free__35__3(atstkind_type(atstype_ptrk) arg0) -{ -/* tmpvardeclst(beg) */ -// ATStmpdec_void(tmpret72__3) ; -// ATStmpdec_void(tmp73__3) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2877(line=119, offs=1) -- 2987(line=122, offs=4) -*/ -ATSINSflab(__patsflab_intinf_free): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2894(line=119, offs=18) -- 2987(line=122, offs=4) -*/ -/* -letpush(beg) -*/ -/* (*nothing*) */ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2936(line=121, offs=12) -- 2955(line=121, offs=31) -*/ -ATSINSmove_void(tmp73__3, atscntrb_gmp_mpz_clear(ATSPMVrefarg1(arg0))) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2959(line=121, offs=35) -- 2983(line=121, offs=59) -*/ -ATSINSmove_void(tmpret72__3, atspre_ptr_free(arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2894(line=119, offs=18) -- 2987(line=122, offs=4) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn_void(tmpret72__3) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_free__35__3] */ - -#if(0) -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2209(line=74, offs=3) -- 2301(line=80, offs=2) -*/ -/* -local: -global: intinf_make_int$43$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = -tmparg = -tmpsub = None() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__43(atstkind_t0ype(atstype_int) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret94, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp95, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp96) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2191(line=73, offs=1) -- 2301(line=80, offs=2) -*/ -ATSINSflab(__patsflab_intinf_make_int): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2238(line=77, offs=9) -- 2254(line=77, offs=25) -*/ -ATSINSmove(tmp95, PMVtmpltcst(ptr_alloc)()) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2264(line=78, offs=10) -- 2296(line=78, offs=42) -*/ -ATSINSmove_void(tmp96, atscntrb_gmp_mpz_init_set_int(ATSPMVrefarg1(ATSSELrecsin(tmp95, atstkind_type(atstype_ptrk), atslab__2)), arg0)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2216(line=74, offs=10) -- 2217(line=74, offs=11) -*/ -ATSINSmove(tmpret94, tmp95) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret94) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__43] */ -#endif // end of [TEMPLATE] - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2209(line=74, offs=3) -- 2301(line=80, offs=2) -*/ -/* -local: -global: intinf_make_int$43$1(level=1) -local: -global: -*/ -ATSstatic() -/* -imparg = -tmparg = -tmpsub = Some() -*/ -atstkind_type(atstype_ptrk) -ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__43__1(atstkind_t0ype(atstype_int) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret94__1, atstkind_type(atstype_ptrk)) ; -ATStmpdec(tmp95__1, atstkind_type(atstype_ptrk)) ; -// ATStmpdec_void(tmp96__1) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2191(line=73, offs=1) -- 2301(line=80, offs=2) -*/ -ATSINSflab(__patsflab_intinf_make_int): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2238(line=77, offs=9) -- 2254(line=77, offs=25) -*/ -ATSINSmove(tmp95__1, ATSLIB_056_prelude__ptr_alloc__1__4()) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2264(line=78, offs=10) -- 2296(line=78, offs=42) -*/ -ATSINSmove_void(tmp96__1, atscntrb_gmp_mpz_init_set_int(ATSPMVrefarg1(ATSSELrecsin(tmp95__1, atstkind_type(atstype_ptrk), atslab__2)), arg0)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2216(line=74, offs=10) -- 2217(line=74, offs=11) -*/ -ATSINSmove(tmpret94__1, tmp95__1) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret94__1) ; -} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__43__1] */ - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42) -*/ -/* -local: -global: ptr_alloc$1$4(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = a(4740) -tmparg = S2Evar(a(4740)) -tmpsub = Some(a(4740) -> S2Ecst(mpz_vt0ype)) -*/ -atstkind_type(atstype_ptrk) -ATSLIB_056_prelude__ptr_alloc__1__4() -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret2__4, atstkind_type(atstype_ptrk)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3708(line=184, offs=1) -- 3749(line=184, offs=42) -*/ -ATSINSflab(__patsflab_ptr_alloc): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42) -*/ -ATSINSmove(tmpret2__4, atspre_ptr_alloc_tsz(ATSPMVsizeof(atscntrb_gmp_mpz))) ; - -ATSfunbody_end() -ATSreturn(tmpret2__4) ; -} /* end of [ATSLIB_056_prelude__ptr_alloc__1__4] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1895(line=77, offs=4) -- 2042(line=82, offs=6) -*/ -/* -local: -global: sqrt_int_46$0(level=0) -local: -global: -*/ -ATSstatic() -atstkind_t0ype(atstype_int) -sqrt_int_46(atstkind_t0ype(atstype_int) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret101, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmpref102, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp103, atstkind_t0ype(atstype_double)) ; -ATStmpdec(tmp104, atstkind_t0ype(atstype_double)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1895(line=77, offs=4) -- 2042(line=82, offs=6) -*/ -ATSINSflab(__patsflab_sqrt_int_46): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1941(line=78, offs=3) -- 2042(line=82, offs=6) -*/ -/* -letpush(beg) -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1953(line=79, offs=9) -- 1958(line=79, offs=14) -*/ -/* -ATSINStmpdec(tmpref102) ; -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1985(line=79, offs=41) -- 2009(line=79, offs=65) -*/ -ATSINSmove(tmp104, atspre_g0int2float_int_double(arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1973(line=79, offs=29) -- 2011(line=79, offs=67) -*/ -ATSINSmove(tmp103, atslib_libats_libc_sqrt_double(tmp104)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1961(line=79, offs=17) -- 2012(line=79, offs=68) -*/ -ATSINSmove(tmpref102, atspre_g0float2int_double_int(tmp103)) ; - -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2022(line=81, offs=5) -- 2035(line=81, offs=18) -*/ -ATSINSmove(tmpret101, ATSPMVcastfn(witness, atstkind_t0ype(atstype_int), tmpref102)) ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 1941(line=78, offs=3) -- 2042(line=82, offs=6) -*/ -/* -INSletpop() -*/ -ATSfunbody_end() -ATSreturn(tmpret101) ; -} /* end of [sqrt_int_46] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2078(line=85, offs=4) -- 2659(line=108, offs=10) -*/ -/* -local: sqrt_int_46$0(level=0) -global: sqrt_int_46$0(level=0), is_prime_48$0(level=0) -local: -global: -*/ -ATSstatic() -atstkind_t0ype(atstype_bool) -is_prime_48(atstkind_t0ype(atstype_int) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret105, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp124, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2078(line=85, offs=4) -- 2659(line=108, offs=10) -*/ -ATSINSflab(__patsflab_is_prime_48): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2114(line=86, offs=3) -- 2659(line=108, offs=10) -*/ -ATScaseof_beg() -/* -** ibranchlst-beg -*/ -ATSbranch_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2131(line=87, offs=7) -- 2132(line=87, offs=8) -*/ -ATSINSlab(__atstmplab3): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2087(line=85, offs=13) -- 2088(line=85, offs=14) -*/ -ATSifnthen(ATSCKpat_int(arg0, ATSPMVint(1))) { ATSINSgoto(__atstmplab5) ; } ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2132(line=87, offs=8) -- 2132(line=87, offs=8) -*/ -ATSINSlab(__atstmplab4): -/* -emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) -*/ -/* -ibranch-mbody: -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2136(line=87, offs=12) -- 2141(line=87, offs=17) -*/ -ATSINSmove(tmpret105, ATSPMVbool_false()) ; -ATSbranch_end() - -ATSbranch_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2149(line=88, offs=8) -- 2149(line=88, offs=8) -*/ -ATSINSlab(__atstmplab5): -/* -emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) -*/ -/* -ibranch-mbody: -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2174(line=90, offs=9) -- 2649(line=107, offs=12) -*/ -/* -letpush(beg) -*/ -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2625(line=106, offs=19) -- 2635(line=106, offs=29) -*/ -ATSINSmove(tmp124, sqrt_int_46(arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2617(line=106, offs=11) -- 2637(line=106, offs=31) -*/ -ATSINSmove(tmpret105, loop_49(arg0, ATSPMVi0nt(2), tmp124)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2174(line=90, offs=9) -- 2649(line=107, offs=12) -*/ -/* -INSletpop() -*/ -ATSbranch_end() - -/* -** ibranchlst-end -*/ -ATScaseof_end() - -ATSfunbody_end() -ATSreturn(tmpret105) ; -} /* end of [is_prime_48] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2192(line=91, offs=15) -- 2595(line=104, offs=21) -*/ -/* -local: loop_49$0(level=1) -global: loop_49$0(level=1) -local: k$5102(1)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))) -global: k$5102(1)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))) -*/ -ATSstatic() -atstkind_t0ype(atstype_bool) -loop_49(atstkind_t0ype(atstype_int) env0, atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(apy0, atstkind_t0ype(atstype_int)) ; -ATStmpdec(apy1, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmpret106, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp107, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp112, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp115, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp116, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp117, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp120, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp123, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2192(line=91, offs=15) -- 2595(line=104, offs=21) -*/ -ATSINSflab(__patsflab_loop_49): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2282(line=92, offs=16) -- 2291(line=92, offs=25) -*/ -ATSINSmove(tmp107, ATSLIB_056_prelude__lt_g1int_int__50__1(arg0, arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2279(line=92, offs=13) -- 2595(line=104, offs=21) -*/ -ATSif( -tmp107 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2314(line=93, offs=18) -- 2319(line=93, offs=23) -*/ -ATSINSmove(tmp115, atspre_g0int_mod_int(env0, arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2314(line=93, offs=18) -- 2323(line=93, offs=27) -*/ -ATSINSmove(tmp112, ATSLIB_056_prelude__eq_g0int_int__10__3(tmp115, ATSPMVi0nt(0))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2311(line=93, offs=15) -- 2404(line=96, offs=35) -*/ -ATSif( -tmp112 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2345(line=94, offs=17) -- 2350(line=94, offs=22) -*/ -ATSINSmove(tmpret106, ATSPMVbool_false()) ; -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2391(line=96, offs=22) -- 2396(line=96, offs=27) -*/ -ATSINSmove(tmp116, atspre_g1int_add_int(arg0, ATSPMVi0nt(1))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2386(line=96, offs=17) -- 2404(line=96, offs=35) -*/ -ATStailcal_beg() -ATSINSmove_tlcal(apy0, tmp116) ; -ATSINSmove_tlcal(apy1, arg1) ; -ATSINSargmove_tlcal(arg0, apy0) ; -ATSINSargmove_tlcal(arg1, apy1) ; -ATSINSfgoto(__patsflab_loop_49) ; -ATStailcal_end() - -} /* ATSendif */ -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2439(line=98, offs=18) -- 2448(line=98, offs=27) -*/ -ATSINSmove(tmp117, ATSLIB_056_prelude__eq_g1int_int__16__2(arg0, arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2436(line=98, offs=15) -- 2595(line=104, offs=21) -*/ -ATSif( -tmp117 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2473(line=99, offs=20) -- 2478(line=99, offs=25) -*/ -ATSINSmove(tmp123, atspre_g0int_mod_int(env0, arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2473(line=99, offs=20) -- 2482(line=99, offs=29) -*/ -ATSINSmove(tmp120, ATSLIB_056_prelude__eq_g0int_int__10__4(tmp123, ATSPMVi0nt(0))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2470(line=99, offs=17) -- 2555(line=102, offs=23) -*/ -ATSif( -tmp120 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2506(line=100, offs=19) -- 2511(line=100, offs=24) -*/ -ATSINSmove(tmpret106, ATSPMVbool_false()) ; -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2551(line=102, offs=19) -- 2555(line=102, offs=23) -*/ -ATSINSmove(tmpret106, ATSPMVbool_true()) ; -} /* ATSendif */ -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2591(line=104, offs=17) -- 2595(line=104, offs=21) -*/ -ATSINSmove(tmpret106, ATSPMVbool_true()) ; -} /* ATSendif */ -} /* ATSendif */ -ATSfunbody_end() -ATSreturn(tmpret106) ; -} /* end of [loop_49] */ - -#if(0) -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12520(line=650, offs=3) -- 12559(line=650, offs=42) -*/ -/* -local: -global: lt_g1int_int$50$0(level=0) -local: -global: -*/ -ATSextern() -/* -imparg = tk(4631) -tmparg = S2Evar(tk(4631)) -tmpsub = None() -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__lt_g1int_int__50(atstkind_t0ype(atstyvar_type(tk)) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret108, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp109, atstkind_t0ype(atstyvar_type(tk))) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12505(line=649, offs=1) -- 12559(line=650, offs=42) -*/ -ATSINSflab(__patsflab_lt_g1int_int): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12546(line=650, offs=29) -- 12557(line=650, offs=40) -*/ -ATSINSmove(tmp109, PMVtmpltcst(g1int2int)(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12529(line=650, offs=12) -- 12559(line=650, offs=42) -*/ -ATSINSmove(tmpret108, PMVtmpltcst(g1int_lt)(arg0, tmp109)) ; - -ATSfunbody_end() -ATSreturn(tmpret108) ; -} /* end of [ATSLIB_056_prelude__lt_g1int_int__50] */ -#endif // end of [TEMPLATE] - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12520(line=650, offs=3) -- 12559(line=650, offs=42) -*/ -/* -local: -global: lt_g1int_int$50$1(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4631) -tmparg = S2Evar(tk(4631)) -tmpsub = Some(tk(4631) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__lt_g1int_int__50__1(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret108__1, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp109__1, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12505(line=649, offs=1) -- 12559(line=650, offs=42) -*/ -ATSINSflab(__patsflab_lt_g1int_int): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12546(line=650, offs=29) -- 12557(line=650, offs=40) -*/ -ATSINSmove(tmp109__1, atspre_g1int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12529(line=650, offs=12) -- 12559(line=650, offs=42) -*/ -ATSINSmove(tmpret108__1, atspre_g1int_lt_int(arg0, tmp109__1)) ; - -ATSfunbody_end() -ATSreturn(tmpret108__1) ; -} /* end of [ATSLIB_056_prelude__lt_g1int_int__50__1] */ - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) -*/ -/* -local: -global: eq_g0int_int$10$3(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4628) -tmparg = S2Evar(tk(4628)) -tmpsub = Some(tk(4628) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g0int_int__10__3(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret15__3, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp16__3, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) -*/ -ATSINSflab(__patsflab_eq_g0int_int): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) -*/ -ATSINSmove(tmp16__3, atspre_g0int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) -*/ -ATSINSmove(tmpret15__3, atspre_g0int_eq_int(arg0, tmp16__3)) ; - -ATSfunbody_end() -ATSreturn(tmpret15__3) ; -} /* end of [ATSLIB_056_prelude__eq_g0int_int__10__3] */ - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12838(line=668, offs=3) -- 12877(line=668, offs=42) -*/ -/* -local: -global: eq_g1int_int$16$2(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4643) -tmparg = S2Evar(tk(4643)) -tmpsub = Some(tk(4643) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g1int_int__16__2(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret25__2, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp26__2, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12823(line=667, offs=1) -- 12877(line=668, offs=42) -*/ -ATSINSflab(__patsflab_eq_g1int_int): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12864(line=668, offs=29) -- 12875(line=668, offs=40) -*/ -ATSINSmove(tmp26__2, atspre_g1int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12847(line=668, offs=12) -- 12877(line=668, offs=42) -*/ -ATSINSmove(tmpret25__2, atspre_g1int_eq_int(arg0, tmp26__2)) ; - -ATSfunbody_end() -ATSreturn(tmpret25__2) ; -} /* end of [ATSLIB_056_prelude__eq_g1int_int__16__2] */ - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) -*/ -/* -local: -global: eq_g0int_int$10$4(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4628) -tmparg = S2Evar(tk(4628)) -tmpsub = Some(tk(4628) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g0int_int__10__4(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret15__4, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp16__4, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) -*/ -ATSINSflab(__patsflab_eq_g0int_int): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) -*/ -ATSINSmove(tmp16__4, atspre_g0int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) -*/ -ATSINSmove(tmpret15__4, atspre_g0int_eq_int(arg0, tmp16__4)) ; - -ATSfunbody_end() -ATSreturn(tmpret15__4) ; -} /* end of [ATSLIB_056_prelude__eq_g0int_int__10__4] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2664(line=110, offs=4) -- 3475(line=139, offs=10) -*/ -/* -local: sqrt_int_46$0(level=0), is_prime_48$0(level=0) -global: sqrt_int_46$0(level=0), is_prime_48$0(level=0), is_semiprime_57$0(level=0) -local: -global: -*/ -ATSstatic() -atstkind_t0ype(atstype_bool) -is_semiprime_57(atstkind_t0ype(atstype_int) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret125, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp146, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2664(line=110, offs=4) -- 3475(line=139, offs=10) -*/ -ATSINSflab(__patsflab_is_semiprime_57): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2704(line=111, offs=3) -- 3475(line=139, offs=10) -*/ -ATScaseof_beg() -/* -** ibranchlst-beg -*/ -ATSbranch_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2721(line=112, offs=7) -- 2722(line=112, offs=8) -*/ -ATSINSlab(__atstmplab6): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2677(line=110, offs=17) -- 2678(line=110, offs=18) -*/ -ATSifnthen(ATSCKpat_int(arg0, ATSPMVint(1))) { ATSINSgoto(__atstmplab8) ; } ; -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2722(line=112, offs=8) -- 2722(line=112, offs=8) -*/ -ATSINSlab(__atstmplab7): -/* -emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) -*/ -/* -ibranch-mbody: -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2726(line=112, offs=12) -- 2731(line=112, offs=17) -*/ -ATSINSmove(tmpret125, ATSPMVbool_false()) ; -ATSbranch_end() - -ATSbranch_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2739(line=113, offs=8) -- 2739(line=113, offs=8) -*/ -ATSINSlab(__atstmplab8): -/* -emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) -*/ -/* -ibranch-mbody: -*/ -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2764(line=115, offs=9) -- 3465(line=138, offs=12) -*/ -/* -letpush(beg) -*/ -/* -letpush(end) -*/ - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 3441(line=137, offs=19) -- 3451(line=137, offs=29) -*/ -ATSINSmove(tmp146, sqrt_int_46(arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 3433(line=137, offs=11) -- 3453(line=137, offs=31) -*/ -ATSINSmove(tmpret125, loop_58(arg0, ATSPMVi0nt(2), tmp146)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2764(line=115, offs=9) -- 3465(line=138, offs=12) -*/ -/* -INSletpop() -*/ -ATSbranch_end() - -/* -** ibranchlst-end -*/ -ATScaseof_end() - -ATSfunbody_end() -ATSreturn(tmpret125) ; -} /* end of [is_semiprime_57] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2782(line=116, offs=15) -- 3411(line=135, offs=22) -*/ -/* -local: is_prime_48$0(level=0), loop_58$0(level=1) -global: is_prime_48$0(level=0), loop_58$0(level=1) -local: k$5108(1)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))) -global: k$5108(1)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))) -*/ -ATSstatic() -atstkind_t0ype(atstype_bool) -loop_58(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(tmpret126, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp127, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp130, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp133, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp134, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp135, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp136, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp137, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp140, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp143, atstkind_t0ype(atstype_int)) ; -ATStmpdec(tmp144, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp145, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2782(line=116, offs=15) -- 3411(line=135, offs=22) -*/ -ATSINSflab(__patsflab_loop_58): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2884(line=117, offs=16) -- 2893(line=117, offs=25) -*/ -ATSINSmove(tmp127, ATSLIB_056_prelude__lt_g1int_int__50__2(arg0, arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2881(line=117, offs=13) -- 3411(line=135, offs=22) -*/ -ATSif( -tmp127 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2916(line=118, offs=18) -- 2921(line=118, offs=23) -*/ -ATSINSmove(tmp133, atspre_g0int_mod_int(env0, arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2916(line=118, offs=18) -- 2925(line=118, offs=27) -*/ -ATSINSmove(tmp130, ATSLIB_056_prelude__eq_g0int_int__10__5(tmp133, ATSPMVi0nt(0))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2913(line=118, offs=15) -- 3109(line=124, offs=35) -*/ -ATSif( -tmp130 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2950(line=119, offs=20) -- 2960(line=119, offs=30) -*/ -ATSINSmove(tmp134, is_prime_48(arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2947(line=119, offs=17) -- 3055(line=122, offs=24) -*/ -ATSif( -tmp134 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 3003(line=120, offs=37) -- 3008(line=120, offs=42) -*/ -ATSINSmove(tmp135, atspre_g1int_div_int(env0, arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 2985(line=120, offs=19) -- 3010(line=120, offs=44) -*/ -ATSINSmove(tmpret126, is_prime_48(ATSPMVcastfn(cast, atstkind_t0ype(atstype_int), tmp135))) ; - -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 3050(line=122, offs=19) -- 3055(line=122, offs=24) -*/ -ATSINSmove(tmpret126, ATSPMVbool_false()) ; -} /* ATSendif */ -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 3096(line=124, offs=22) -- 3101(line=124, offs=27) -*/ -ATSINSmove(tmp136, atspre_g1int_add_int(arg0, ATSPMVi0nt(1))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 3091(line=124, offs=17) -- 3109(line=124, offs=35) -*/ -ATStailcal_beg() -ATSINSmove_tlcal(apy0, tmp136) ; -ATSINSmove_tlcal(apy1, arg1) ; -ATSINSargmove_tlcal(arg0, apy0) ; -ATSINSargmove_tlcal(arg1, apy1) ; -ATSINSfgoto(__patsflab_loop_58) ; -ATStailcal_end() - -} /* ATSendif */ -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 3144(line=126, offs=18) -- 3153(line=126, offs=27) -*/ -ATSINSmove(tmp137, ATSLIB_056_prelude__eq_g1int_int__16__3(arg0, arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 3141(line=126, offs=15) -- 3411(line=135, offs=22) -*/ -ATSif( -tmp137 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 3178(line=127, offs=20) -- 3183(line=127, offs=25) -*/ -ATSINSmove(tmp143, atspre_g0int_mod_int(env0, arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 3178(line=127, offs=20) -- 3187(line=127, offs=29) -*/ -ATSINSmove(tmp140, ATSLIB_056_prelude__eq_g0int_int__10__6(tmp143, ATSPMVi0nt(0))) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 3175(line=127, offs=17) -- 3370(line=133, offs=24) -*/ -ATSif( -tmp140 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 3214(line=128, offs=22) -- 3224(line=128, offs=32) -*/ -ATSINSmove(tmp144, is_prime_48(arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 3211(line=128, offs=19) -- 3325(line=131, offs=26) -*/ -ATSif( -tmp144 -) ATSthen() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 3269(line=129, offs=39) -- 3274(line=129, offs=44) -*/ -ATSINSmove(tmp145, atspre_g1int_div_int(env0, arg0)) ; - -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 3251(line=129, offs=21) -- 3276(line=129, offs=46) -*/ -ATSINSmove(tmpret126, is_prime_48(ATSPMVcastfn(cast, atstkind_t0ype(atstype_int), tmp145))) ; - -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 3320(line=131, offs=21) -- 3325(line=131, offs=26) -*/ -ATSINSmove(tmpret126, ATSPMVbool_false()) ; -} /* ATSendif */ -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 3365(line=133, offs=19) -- 3370(line=133, offs=24) -*/ -ATSINSmove(tmpret126, ATSPMVbool_false()) ; -} /* ATSendif */ -} ATSelse() { -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics-internal.dats: 3406(line=135, offs=17) -- 3411(line=135, offs=22) -*/ -ATSINSmove(tmpret126, ATSPMVbool_false()) ; -} /* ATSendif */ -} /* ATSendif */ -ATSfunbody_end() -ATSreturn(tmpret126) ; -} /* end of [loop_58] */ - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12520(line=650, offs=3) -- 12559(line=650, offs=42) -*/ -/* -local: -global: lt_g1int_int$50$2(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4631) -tmparg = S2Evar(tk(4631)) -tmpsub = Some(tk(4631) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__lt_g1int_int__50__2(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret108__2, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp109__2, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12505(line=649, offs=1) -- 12559(line=650, offs=42) -*/ -ATSINSflab(__patsflab_lt_g1int_int): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12546(line=650, offs=29) -- 12557(line=650, offs=40) -*/ -ATSINSmove(tmp109__2, atspre_g1int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12529(line=650, offs=12) -- 12559(line=650, offs=42) -*/ -ATSINSmove(tmpret108__2, atspre_g1int_lt_int(arg0, tmp109__2)) ; - -ATSfunbody_end() -ATSreturn(tmpret108__2) ; -} /* end of [ATSLIB_056_prelude__lt_g1int_int__50__2] */ - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) -*/ -/* -local: -global: eq_g0int_int$10$5(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4628) -tmparg = S2Evar(tk(4628)) -tmpsub = Some(tk(4628) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g0int_int__10__5(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret15__5, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp16__5, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) -*/ -ATSINSflab(__patsflab_eq_g0int_int): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) -*/ -ATSINSmove(tmp16__5, atspre_g0int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) -*/ -ATSINSmove(tmpret15__5, atspre_g0int_eq_int(arg0, tmp16__5)) ; - -ATSfunbody_end() -ATSreturn(tmpret15__5) ; -} /* end of [ATSLIB_056_prelude__eq_g0int_int__10__5] */ - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12838(line=668, offs=3) -- 12877(line=668, offs=42) -*/ -/* -local: -global: eq_g1int_int$16$3(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4643) -tmparg = S2Evar(tk(4643)) -tmpsub = Some(tk(4643) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g1int_int__16__3(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret25__3, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp26__3, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12823(line=667, offs=1) -- 12877(line=668, offs=42) -*/ -ATSINSflab(__patsflab_eq_g1int_int): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12864(line=668, offs=29) -- 12875(line=668, offs=40) -*/ -ATSINSmove(tmp26__3, atspre_g1int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12847(line=668, offs=12) -- 12877(line=668, offs=42) -*/ -ATSINSmove(tmpret25__3, atspre_g1int_eq_int(arg0, tmp26__3)) ; - -ATSfunbody_end() -ATSreturn(tmpret25__3) ; -} /* end of [ATSLIB_056_prelude__eq_g1int_int__16__3] */ - -/* -/home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) -*/ -/* -local: -global: eq_g0int_int$10$6(level=2) -local: -global: -*/ -ATSstatic() -/* -imparg = tk(4628) -tmparg = S2Evar(tk(4628)) -tmpsub = Some(tk(4628) -> S2Eextkind(atstype_int)) -*/ -atstkind_t0ype(atstype_bool) -ATSLIB_056_prelude__eq_g0int_int__10__6(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret15__6, atstkind_t0ype(atstype_bool)) ; -ATStmpdec(tmp16__6, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) -*/ -ATSINSflab(__patsflab_eq_g0int_int): -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) -*/ -ATSINSmove(tmp16__6, atspre_g0int2int_int_int(arg1)) ; - -/* -emit_instr: loc0 = /home/vanessa/.atspkg/0.3.13/ATS2-Postiats-gmp-0.3.13/lib/ats2-postiats-0.3.13/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) -*/ -ATSINSmove(tmpret15__6, atspre_g0int_eq_int(arg0, tmp16__6)) ; - -ATSfunbody_end() -ATSreturn(tmpret15__6) ; -} /* end of [ATSLIB_056_prelude__eq_g0int_int__10__6] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics.dats: 397(line=17, offs=24) -- 415(line=18, offs=13) -*/ -/* -local: is_prime_48$0(level=0) -global: sqrt_int_46$0(level=0), is_prime_48$0(level=0), is_prime_ats$64$0(level=0) -local: -global: -*/ -ATSextern() -atstkind_t0ype(atstype_bool) -is_prime_ats(atstkind_t0ype(atstype_int) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret147, atstkind_t0ype(atstype_bool)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics.dats: 384(line=17, offs=11) -- 416(line=18, offs=14) -*/ -ATSINSflab(__patsflab_is_prime_ats): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics.dats: 405(line=18, offs=3) -- 415(line=18, offs=13) -*/ -ATSINSmove(tmpret147, is_prime_48(arg0)) ; - -ATSfunbody_end() -ATSreturn(tmpret147) ; -} /* end of [is_prime_ats] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics.dats: 445(line=20, offs=28) -- 467(line=21, offs=17) -*/ -/* -local: is_semiprime_57$0(level=0) -global: sqrt_int_46$0(level=0), is_prime_48$0(level=0), is_semiprime_57$0(level=0), is_semiprime_ats$65$0(level=0) -local: -global: -*/ -ATSextern() -atstkind_t0ype(atstype_bool) -is_semiprime_ats(atstkind_t0ype(atstype_int) arg0) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret148, atstkind_t0ype(atstype_bool)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics.dats: 428(line=20, offs=11) -- 468(line=21, offs=18) -*/ -ATSINSflab(__patsflab_is_semiprime_ats): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics.dats: 453(line=21, offs=3) -- 467(line=21, offs=17) -*/ -ATSINSmove(tmpret148, is_semiprime_57(arg0)) ; - -ATSfunbody_end() -ATSreturn(tmpret148) ; -} /* end of [is_semiprime_ats] */ - -/* -/home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics.dats: 488(line=23, offs=19) -- 508(line=24, offs=12) -*/ -/* -local: exp_3$0(level=0) -global: exp_3$0(level=0), exp_ats$66$0(level=0) -local: -global: -*/ -ATSextern() -atstkind_t0ype(atstype_int) -exp_ats(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) -{ -/* tmpvardeclst(beg) */ -ATStmpdec(tmpret149, atstkind_t0ype(atstype_int)) ; -/* tmpvardeclst(end) */ -ATSfunbody_beg() -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics.dats: 480(line=23, offs=11) -- 508(line=24, offs=12) -*/ -ATSINSflab(__patsflab_exp_ats): -/* -emit_instr: loc0 = /home/vanessa/programming/haskell/done/hs-ats/fast-arithmetic/ats-src/numerics.dats: 499(line=24, offs=3) -- 508(line=24, offs=12) -*/ -ATSINSmove(tmpret149, exp_3(arg0, arg1)) ; - -ATSfunbody_end() -ATSreturn(tmpret149) ; -} /* end of [exp_ats] */ - -#if(0) -/* -** for initialization(dynloading) -*/ -ATSdynloadflag_minit(_057_home_057_vanessa_057_programming_057_haskell_057_done_057_hs_055_ats_057_fast_055_arithmetic_057_ats_055_src_057_numerics_056_dats__dynloadflag) ; -ATSextern() -atsvoid_t0ype -_057_home_057_vanessa_057_programming_057_haskell_057_done_057_hs_055_ats_057_fast_055_arithmetic_057_ats_055_src_057_numerics_056_dats__dynload() -{ -ATSfunbody_beg() -ATSdynload(/*void*/) -ATSdynloadflag_sta( -_057_home_057_vanessa_057_programming_057_haskell_057_done_057_hs_055_ats_057_fast_055_arithmetic_057_ats_055_src_057_numerics_056_dats__dynloadflag -) ; -ATSif( -ATSCKiseqz( -_057_home_057_vanessa_057_programming_057_haskell_057_done_057_hs_055_ats_057_fast_055_arithmetic_057_ats_055_src_057_numerics_056_dats__dynloadflag -) -) ATSthen() { -ATSdynloadset(_057_home_057_vanessa_057_programming_057_haskell_057_done_057_hs_055_ats_057_fast_055_arithmetic_057_ats_055_src_057_numerics_056_dats__dynloadflag) ; +** The C code is generated by [ATS/Postiats-0-4-1] +** +*/ + +/* +** include runtime header files +*/ +#ifndef _ATS_CCOMP_HEADER_NONE_ +#include "pats_ccomp_config.h" +#include "pats_ccomp_basics.h" +#include "pats_ccomp_typedefs.h" +#include "pats_ccomp_instrset.h" +#include "pats_ccomp_memalloc.h" +#ifndef _ATS_CCOMP_EXCEPTION_NONE_ +#include "pats_ccomp_memalloca.h" +#include "pats_ccomp_exception.h" +#endif // end of [_ATS_CCOMP_EXCEPTION_NONE_] +#endif /* _ATS_CCOMP_HEADER_NONE_ */ + + +/* +** include prelude cats files +*/ +#ifndef _ATS_CCOMP_PRELUDE_NONE_ +// +#include "prelude/CATS/basics.cats" +#include "prelude/CATS/integer.cats" +#include "prelude/CATS/pointer.cats" +#include "prelude/CATS/integer_long.cats" +#include "prelude/CATS/integer_size.cats" +#include "prelude/CATS/integer_short.cats" +#include "prelude/CATS/bool.cats" +#include "prelude/CATS/char.cats" +#include "prelude/CATS/float.cats" +#include "prelude/CATS/integer_ptr.cats" +#include "prelude/CATS/integer_fixed.cats" +#include "prelude/CATS/memory.cats" +#include "prelude/CATS/string.cats" +#include "prelude/CATS/strptr.cats" +// +#include "prelude/CATS/fprintf.cats" +// +#include "prelude/CATS/filebas.cats" +// +#include "prelude/CATS/list.cats" +#include "prelude/CATS/option.cats" +#include "prelude/CATS/array.cats" +#include "prelude/CATS/arrayptr.cats" +#include "prelude/CATS/arrayref.cats" +#include "prelude/CATS/matrix.cats" +#include "prelude/CATS/matrixptr.cats" +// +#endif /* _ATS_CCOMP_PRELUDE_NONE_ */ +/* +** for user-supplied prelude +*/ +#ifdef _ATS_CCOMP_PRELUDE_USER_ +// +#include _ATS_CCOMP_PRELUDE_USER_ +// +#endif /* _ATS_CCOMP_PRELUDE_USER_ */ +/* +** for user2-supplied prelude +*/ +#ifdef _ATS_CCOMP_PRELUDE_USER2_ +// +#include _ATS_CCOMP_PRELUDE_USER2_ +// +#endif /* _ATS_CCOMP_PRELUDE_USER2_ */ + +/* +staload-prologues(beg) +*/ +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/libats/libc/SATS/stdio.sats: 1390(line=36, offs=1) -- 1437(line=39, offs=3) +*/ + +#include \ +"libats/libc/CATS/stdio.cats" +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/libats/libc/SATS/sys/types.sats: 1390(line=36, offs=1) -- 1441(line=39, offs=3) +*/ + +#include \ +"libats/libc/CATS/sys/types.cats" +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/libats/libc/SATS/sys/stat.sats: 1390(line=36, offs=1) -- 1440(line=39, offs=3) +*/ + +#include \ +"libats/libc/CATS/sys/stat.cats" +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/libats/libc/SATS/sys/types.sats: 1390(line=36, offs=1) -- 1441(line=39, offs=3) +*/ + +#include \ +"libats/libc/CATS/sys/types.cats" +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/libats/libc/SATS/stdio.sats: 1390(line=36, offs=1) -- 1437(line=39, offs=3) +*/ + +#include \ +"libats/libc/CATS/stdio.cats" +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/libats/libc/SATS/sys/types.sats: 1390(line=36, offs=1) -- 1441(line=39, offs=3) +*/ + +#include \ +"libats/libc/CATS/sys/types.cats" +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/contrib/atscntrb/atscntrb-hx-libgmp/SATS/gmp.sats: 1178(line=38, offs=1) -- 1236(line=43, offs=3) +*/ + +// +#include \ +"atscntrb-hx-libgmp/CATS/gmp.cats" +// +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/contrib/atscntrb/atscntrb-hx-libgmp/SATS/gmp.sats: 1178(line=38, offs=1) -- 1236(line=43, offs=3) +*/ + +// +#include \ +"atscntrb-hx-libgmp/CATS/gmp.cats" +// +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/libats/libc/SATS/math.sats: 1380(line=35, offs=1) -- 1426(line=38, offs=3) +*/ + +#include \ +"libats/libc/CATS/math.cats" +/* +staload-prologues(end) +*/ +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics.dats: 204(line=9, offs=1) -- 372(line=15, offs=3) +*/ +ATSextcode_beg() +#ifndef LIBRARY_BUILD +#define ATS_MEMALLOC_LIBC +#include "ccomp/runtime/pats_ccomp_memalloc_libc.h" +#include "ccomp/runtime/pats_ccomp_runtime_memalloc.c" +#endif +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(atspre_ptr_alloc_tsz) +ATSdyncst_mac(atscntrb_gmp_mpz_init) +ATSdyncst_mac(atscntrb_gmp_mpz_fib_uint) +ATSdyncst_mac(atspre_g1int2int_int_int) +ATSdyncst_mac(atspre_g1int_gt_int) +ATSdyncst_mac(atspre_g1int_half_int) +ATSdyncst_mac(atspre_g0int_mod_int) +ATSdyncst_mac(atspre_g0int2int_int_int) +ATSdyncst_mac(atspre_g0int_eq_int) +ATSdyncst_mac(atspre_g0int_mul_int) +ATSdyncst_mac(atspre_g1int_eq_int) +ATSdyncst_mac(atscntrb_gmp_mpz_cmp_int) +ATSdyncst_mac(atspre_g0int_lt_int) +ATSdyncst_mac(atspre_g1int_neg_int) +ATSdyncst_mac(atspre_g0int_gt_int) +ATSdyncst_mac(atscntrb_gmp_mpz_init_set_mpz) +ATSdyncst_mac(atscntrb_gmp_mpz_mul2_mpz) +ATSdyncst_mac(atscntrb_gmp_mpz_clear) +ATSdyncst_mac(atspre_ptr_free) +ATSdyncst_mac(atscntrb_gmp_mpz_init_set_int) +ATSdyncst_mac(atspre_g0float2int_double_int) +ATSdyncst_mac(atslib_libats_libc_sqrt_double) +ATSdyncst_mac(atspre_g0int2float_int_double) +ATSdyncst_mac(atspre_g1int_lt_int) +ATSdyncst_mac(atspre_g1int_add_int) +ATSdyncst_mac(atspre_g1int_div_int) +/* +dyncstlst-declaration(end) +*/ +/* +dynvalist-implementation(beg) +*/ +/* +dynvalist-implementation(end) +*/ +/* +exnconlst-declaration(beg) +*/ +#ifndef _ATS_CCOMP_EXCEPTION_NONE_ +ATSextern() +atsvoid_t0ype +the_atsexncon_initize +( + atstype_exnconptr d2c, atstype_string exnmsg +) ; +#endif // end of [_ATS_CCOMP_EXCEPTION_NONE_] +/* +exnconlst-declaration(end) +*/ +/* +extypelst-declaration(beg) +*/ +/* +extypelst-declaration(end) +*/ +/* +assumelst-declaration(beg) +*/ +#ifndef _ATS_CCOMP_ASSUME_CHECK_NONE_ +#endif // #ifndef(_ATS_CCOMP_ASSUME_CHECK_NONE_) +/* +assumelst-declaration(end) +*/ +ATSstatic() +atstkind_type(atstype_ptrk) +fib_gmp_0(atstkind_t0ype(atstype_uint)) ; + +#if(0) +#if(0) +ATSextern() +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__1() ; +#endif // end of [QUALIFIED] +#endif // end of [TEMPLATE] + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__1__1() ; + +ATSstatic() +atstkind_t0ype(atstype_int) +exp_3(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +#if(0) +#if(0) +ATSextern() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__gt_g1int_int__4(atstkind_t0ype(atstyvar_type(tk)), atstkind_t0ype(atstype_int)) ; +#endif // end of [QUALIFIED] +#endif // end of [TEMPLATE] + +ATSstatic() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__gt_g1int_int__4__1(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +#if(0) +#if(0) +ATSextern() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__10(atstkind_t0ype(atstyvar_type(tk)), atstkind_t0ype(atstype_int)) ; +#endif // end of [QUALIFIED] +#endif // end of [TEMPLATE] + +ATSstatic() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__10__1(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_type(atstype_ptrk) +big_exp_15(atstkind_type(atstype_ptrk), atstkind_t0ype(atstype_int)) ; + +#if(0) +#if(0) +ATSextern() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g1int_int__16(atstkind_t0ype(atstyvar_type(tk)), atstkind_t0ype(atstype_int)) ; +#endif // end of [QUALIFIED] +#endif // end of [TEMPLATE] + +ATSstatic() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g1int_int__16__1(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +#if(0) +#if(0) +ATSextern() +atstkind_t0ype(atstype_int) +ATSCNTRB_056_HX_056_intinf_vt__compare_intinf_int__19(atsrefarg0_type(atstkind_type(atstype_ptrk)), atstkind_t0ype(atstype_int)) ; +#endif // end of [QUALIFIED] +#endif // end of [TEMPLATE] + +ATSstatic() +atstkind_t0ype(atstype_int) +ATSCNTRB_056_HX_056_intinf_vt__compare_intinf_int__19__1(atsrefarg0_type(atstkind_type(atstype_ptrk)), atstkind_t0ype(atstype_int)) ; + +#if(0) +#if(0) +ATSextern() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__lt_g0int_int__21(atstkind_t0ype(atstyvar_type(tk)), atstkind_t0ype(atstype_int)) ; +#endif // end of [QUALIFIED] +#endif // end of [TEMPLATE] + +ATSstatic() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__lt_g0int_int__21__1(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +#if(0) +#if(0) +ATSextern() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__gt_g0int_int__25(atstkind_t0ype(atstyvar_type(tk)), atstkind_t0ype(atstype_int)) ; +#endif // end of [QUALIFIED] +#endif // end of [TEMPLATE] + +ATSstatic() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__gt_g0int_int__25__1(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__gt_g1int_int__4__2(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__10__2(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +#if(0) +#if(0) +ATSextern() +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__square_intinf0__30(atstkind_type(atstype_ptrk)) ; +#endif // end of [QUALIFIED] +#endif // end of [TEMPLATE] + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__square_intinf0__30__1(atstkind_type(atstype_ptrk)) ; + +#if(0) +#if(0) +ATSextern() +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__square_intinf1__32(atsrefarg0_type(atstkind_type(atstype_ptrk))) ; +#endif // end of [QUALIFIED] +#endif // end of [TEMPLATE] + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__square_intinf1__32__1(atsrefarg0_type(atstkind_type(atstype_ptrk))) ; + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__1__2() ; + +#if(0) +#if(0) +ATSextern() +atsvoid_t0ype +ATSCNTRB_056_HX_056_intinf_vt__intinf_free__35(atstkind_type(atstype_ptrk)) ; +#endif // end of [QUALIFIED] +#endif // end of [TEMPLATE] + +ATSstatic() +atsvoid_t0ype +ATSCNTRB_056_HX_056_intinf_vt__intinf_free__35__1(atstkind_type(atstype_ptrk)) ; + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__square_intinf1__32__2(atsrefarg0_type(atstkind_type(atstype_ptrk))) ; + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__1__3() ; + +#if(0) +#if(0) +ATSextern() +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_intinf1__39(atstkind_type(atstype_ptrk), atsrefarg0_type(atstkind_type(atstype_ptrk))) ; +#endif // end of [QUALIFIED] +#endif // end of [TEMPLATE] + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_intinf1__39__1(atstkind_type(atstype_ptrk), atsrefarg0_type(atstkind_type(atstype_ptrk))) ; + +ATSstatic() +atsvoid_t0ype +ATSCNTRB_056_HX_056_intinf_vt__intinf_free__35__2(atstkind_type(atstype_ptrk)) ; + +ATSstatic() +atsvoid_t0ype +ATSCNTRB_056_HX_056_intinf_vt__intinf_free__35__3(atstkind_type(atstype_ptrk)) ; + +#if(0) +#if(0) +ATSextern() +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__43(atstkind_t0ype(atstype_int)) ; +#endif // end of [QUALIFIED] +#endif // end of [TEMPLATE] + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__43__1(atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__1__4() ; + +ATSstatic() +atstkind_t0ype(atstype_int) +sqrt_int_46(atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_bool) +is_prime_48(atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_bool) +loop_49(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +#if(0) +#if(0) +ATSextern() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__lt_g1int_int__50(atstkind_t0ype(atstyvar_type(tk)), atstkind_t0ype(atstype_int)) ; +#endif // end of [QUALIFIED] +#endif // end of [TEMPLATE] + +ATSstatic() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__lt_g1int_int__50__1(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__10__3(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g1int_int__16__2(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__10__4(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_bool) +is_semiprime_57(atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_bool) +loop_58(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__lt_g1int_int__50__2(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__10__5(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g1int_int__16__3(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +ATSstatic() +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__10__6(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; + +#if(0) +ATSextern() +atstkind_t0ype(atstype_bool) +is_prime_ats(atstkind_t0ype(atstype_int)) ; +#endif // end of [QUALIFIED] + +#if(0) +ATSextern() +atstkind_t0ype(atstype_bool) +is_semiprime_ats(atstkind_t0ype(atstype_int)) ; +#endif // end of [QUALIFIED] + +#if(0) +ATSextern() +atstkind_t0ype(atstype_int) +exp_ats(atstkind_t0ype(atstype_int), atstkind_t0ype(atstype_int)) ; +#endif // end of [QUALIFIED] + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 414(line=12, offs=4) -- 587(line=19, offs=6) +*/ +/* +local: +global: fib_gmp_0$0(level=0) +local: +global: +*/ +ATSstatic() +atstkind_type(atstype_ptrk) +fib_gmp_0(atstkind_t0ype(atstype_uint) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret0, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmpref1, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp4) ; +// ATStmpdec_void(tmp5) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 414(line=12, offs=4) -- 587(line=19, offs=6) +*/ +ATSINSflab(__patsflab_fib_gmp_0): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 451(line=13, offs=3) -- 587(line=19, offs=6) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 463(line=14, offs=9) -- 464(line=14, offs=10) +*/ +/* +ATSINStmpdec(tmpref1) ; +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 467(line=14, offs=13) -- 478(line=14, offs=24) +*/ +ATSINSmove(tmpref1, ATSLIB_056_prelude__ptr_alloc__1__1()) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 492(line=15, offs=14) -- 513(line=15, offs=35) +*/ +ATSINSmove_void(tmp4, atscntrb_gmp_mpz_init(ATSPMVrefarg1(ATSSELrecsin(tmpref1, atstkind_type(atstype_ptrk), atslab__2)))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 527(line=16, offs=14) -- 555(line=16, offs=42) +*/ +ATSINSmove_void(tmp5, atscntrb_gmp_mpz_fib_uint(ATSPMVrefarg1(ATSSELrecsin(tmpref1, atstkind_type(atstype_ptrk), atslab__2)), arg0)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 565(line=18, offs=5) -- 580(line=18, offs=20) +*/ +ATSINSmove(tmpret0, ATSPMVcastfn(castvwtp0, atstkind_type(atstype_ptrk), tmpref1)) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 451(line=13, offs=3) -- 587(line=19, offs=6) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret0) ; +} /* end of [fib_gmp_0] */ + +#if(0) +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42) +*/ +/* +local: +global: ptr_alloc$1$0(level=0) +local: +global: +*/ +ATSextern() +/* +imparg = a(4746) +tmparg = S2Evar(a(4746)) +tmpsub = None() +*/ +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__1() +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret2, atstkind_type(atstype_ptrk)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3708(line=184, offs=1) -- 3749(line=184, offs=42) +*/ +ATSINSflab(__patsflab_ptr_alloc): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42) +*/ +ATSINSmove(tmpret2, atspre_ptr_alloc_tsz(ATSPMVsizeof(atstyvar_type(a)))) ; + +ATSfunbody_end() +ATSreturn(tmpret2) ; +} /* end of [ATSLIB_056_prelude__ptr_alloc__1] */ +#endif // end of [TEMPLATE] + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42) +*/ +/* +local: +global: ptr_alloc$1$1(level=1) +local: +global: +*/ +ATSstatic() +/* +imparg = a(4746) +tmparg = S2Evar(a(4746)) +tmpsub = Some(a(4746) -> S2EVar(5565)) +*/ +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__1__1() +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret2__1, atstkind_type(atstype_ptrk)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3708(line=184, offs=1) -- 3749(line=184, offs=42) +*/ +ATSINSflab(__patsflab_ptr_alloc): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42) +*/ +ATSINSmove(tmpret2__1, atspre_ptr_alloc_tsz(ATSPMVsizeof(atscntrb_gmp_mpz))) ; + +ATSfunbody_end() +ATSreturn(tmpret2__1) ; +} /* end of [ATSLIB_056_prelude__ptr_alloc__1__1] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 764(line=24, offs=5) -- 1203(line=45, offs=10) +*/ +/* +local: exp_3$0(level=0) +global: exp_3$0(level=0) +local: +global: +*/ +ATSstatic() +atstkind_t0ype(atstype_int) +exp_3(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(apy0, atstkind_t0ype(atstype_int)) ; +ATStmpdec(apy1, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmpret6, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp7, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmpref12, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmpref13, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp14, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp19, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmpref20, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp21, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp22, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 764(line=24, offs=5) -- 1203(line=45, offs=10) +*/ +ATSINSflab(__patsflab_exp_3): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 814(line=25, offs=3) -- 1203(line=45, offs=10) +*/ +ATScaseof_beg() +/* +** ibranchlst-beg +*/ +ATSbranch_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 831(line=26, offs=7) -- 832(line=26, offs=8) +*/ +ATSINSlab(__atstmplab0): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 783(line=24, offs=24) -- 784(line=24, offs=25) +*/ +ATSifnthen(ATSCKpat_int(arg0, ATSPMVint(0))) { ATSINSgoto(__atstmplab2) ; } ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 832(line=26, offs=8) -- 832(line=26, offs=8) +*/ +ATSINSlab(__atstmplab1): +/* +emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) +*/ +/* +ibranch-mbody: +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 836(line=26, offs=12) -- 837(line=26, offs=13) +*/ +ATSINSmove(tmpret6, ATSPMVi0nt(0)) ; +ATSbranch_end() + +ATSbranch_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 845(line=27, offs=8) -- 845(line=27, offs=8) +*/ +ATSINSlab(__atstmplab2): +/* +emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) +*/ +/* +ibranch-mbody: +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 874(line=29, offs=12) -- 879(line=29, offs=17) +*/ +ATSINSmove(tmp7, ATSLIB_056_prelude__gt_g1int_int__4__1(arg1, ATSPMVi0nt(0))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 871(line=29, offs=9) -- 1193(line=44, offs=12) +*/ +ATSif( +tmp7 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 895(line=30, offs=11) -- 1168(line=42, offs=14) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 915(line=31, offs=17) -- 917(line=31, offs=19) +*/ +/* +ATSINStmpdec(tmpref12) ; +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 920(line=31, offs=22) -- 926(line=31, offs=28) +*/ +ATSINSmove(tmpref12, atspre_g1int_half_int(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 944(line=32, offs=17) -- 946(line=32, offs=19) +*/ +/* +ATSINStmpdec(tmpref13) ; +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 949(line=32, offs=22) -- 954(line=32, offs=27) +*/ +ATSINSmove(tmpref13, atspre_g0int_mod_int(arg1, ATSPMVi0nt(2))) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 983(line=34, offs=16) -- 989(line=34, offs=22) +*/ +ATSINSmove(tmp14, ATSLIB_056_prelude__eq_g0int_int__10__1(tmpref13, ATSPMVi0nt(0))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 980(line=34, offs=13) -- 1154(line=41, offs=18) +*/ +ATSif( +tmp14 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1013(line=35, offs=19) -- 1018(line=35, offs=24) +*/ +ATSINSmove(tmp19, atspre_g0int_mul_int(arg0, arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1009(line=35, offs=15) -- 1023(line=35, offs=29) +*/ +ATStailcal_beg() +ATSINSmove_tlcal(apy0, tmp19) ; +ATSINSmove_tlcal(apy1, tmpref12) ; +ATSINSargmove_tlcal(arg0, apy0) ; +ATSINSargmove_tlcal(arg1, apy1) ; +ATSINSfgoto(__patsflab_exp_3) ; +ATStailcal_end() + +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1055(line=37, offs=15) -- 1154(line=41, offs=18) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1079(line=38, offs=21) -- 1080(line=38, offs=22) +*/ +/* +ATSINStmpdec(tmpref20) ; +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1091(line=38, offs=33) -- 1096(line=38, offs=38) +*/ +ATSINSmove(tmp22, atspre_g0int_mul_int(arg0, arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1087(line=38, offs=29) -- 1101(line=38, offs=43) +*/ +ATSINSmove(tmp21, exp_3(tmp22, tmpref12)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1083(line=38, offs=25) -- 1101(line=38, offs=43) +*/ +ATSINSmove(tmpref20, atspre_g0int_mul_int(arg0, tmp21)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1135(line=40, offs=17) -- 1136(line=40, offs=18) +*/ +ATSINSmove(tmpret6, tmpref20) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1055(line=37, offs=15) -- 1154(line=41, offs=18) +*/ +/* +INSletpop() +*/ +} /* ATSendif */ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 895(line=30, offs=11) -- 1168(line=42, offs=14) +*/ +/* +INSletpop() +*/ +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1192(line=44, offs=11) -- 1193(line=44, offs=12) +*/ +ATSINSmove(tmpret6, ATSPMVi0nt(1)) ; +} /* ATSendif */ +ATSbranch_end() + +/* +** ibranchlst-end +*/ +ATScaseof_end() + +ATSfunbody_end() +ATSreturn(tmpret6) ; +} /* end of [exp_3] */ + +#if(0) +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 12679(line=659, offs=3) -- 12718(line=659, offs=42) +*/ +/* +local: +global: gt_g1int_int$4$0(level=0) +local: +global: +*/ +ATSextern() +/* +imparg = tk(4643) +tmparg = S2Evar(tk(4643)) +tmpsub = None() +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__gt_g1int_int__4(atstkind_t0ype(atstyvar_type(tk)) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret8, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp9, atstkind_t0ype(atstyvar_type(tk))) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12664(line=658, offs=1) -- 12718(line=659, offs=42) +*/ +ATSINSflab(__patsflab_gt_g1int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12705(line=659, offs=29) -- 12716(line=659, offs=40) +*/ +ATSINSmove(tmp9, PMVtmpltcst(g1int2int)(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12688(line=659, offs=12) -- 12718(line=659, offs=42) +*/ +ATSINSmove(tmpret8, PMVtmpltcst(g1int_gt)(arg0, tmp9)) ; + +ATSfunbody_end() +ATSreturn(tmpret8) ; +} /* end of [ATSLIB_056_prelude__gt_g1int_int__4] */ +#endif // end of [TEMPLATE] + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 12679(line=659, offs=3) -- 12718(line=659, offs=42) +*/ +/* +local: +global: gt_g1int_int$4$1(level=1) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4643) +tmparg = S2Evar(tk(4643)) +tmpsub = Some(tk(4643) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__gt_g1int_int__4__1(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret8__1, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp9__1, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12664(line=658, offs=1) -- 12718(line=659, offs=42) +*/ +ATSINSflab(__patsflab_gt_g1int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12705(line=659, offs=29) -- 12716(line=659, offs=40) +*/ +ATSINSmove(tmp9__1, atspre_g1int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12688(line=659, offs=12) -- 12718(line=659, offs=42) +*/ +ATSINSmove(tmpret8__1, atspre_g1int_gt_int(arg0, tmp9__1)) ; + +ATSfunbody_end() +ATSreturn(tmpret8__1) ; +} /* end of [ATSLIB_056_prelude__gt_g1int_int__4__1] */ + +#if(0) +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) +*/ +/* +local: +global: eq_g0int_int$10$0(level=0) +local: +global: +*/ +ATSextern() +/* +imparg = tk(4634) +tmparg = S2Evar(tk(4634)) +tmpsub = None() +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__10(atstkind_t0ype(atstyvar_type(tk)) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret15, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp16, atstkind_t0ype(atstyvar_type(tk))) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) +*/ +ATSINSflab(__patsflab_eq_g0int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) +*/ +ATSINSmove(tmp16, PMVtmpltcst(g0int2int)(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) +*/ +ATSINSmove(tmpret15, PMVtmpltcst(g0int_eq)(arg0, tmp16)) ; + +ATSfunbody_end() +ATSreturn(tmpret15) ; +} /* end of [ATSLIB_056_prelude__eq_g0int_int__10] */ +#endif // end of [TEMPLATE] + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) +*/ +/* +local: +global: eq_g0int_int$10$1(level=1) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4634) +tmparg = S2Evar(tk(4634)) +tmpsub = Some(tk(4634) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__10__1(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret15__1, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp16__1, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) +*/ +ATSINSflab(__patsflab_eq_g0int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) +*/ +ATSINSmove(tmp16__1, atspre_g0int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) +*/ +ATSINSmove(tmpret15__1, atspre_g0int_eq_int(arg0, tmp16__1)) ; + +ATSfunbody_end() +ATSreturn(tmpret15__1) ; +} /* end of [ATSLIB_056_prelude__eq_g0int_int__10__1] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1241(line=48, offs=5) -- 1849(line=74, offs=39) +*/ +/* +local: big_exp_15$0(level=0) +global: big_exp_15$0(level=0) +local: +global: +*/ +ATSstatic() +atstkind_type(atstype_ptrk) +big_exp_15(atstkind_type(atstype_ptrk) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(apy0, atstkind_type(atstype_ptrk)) ; +ATStmpdec(apy1, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmpret23, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp24, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp29, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp48, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmpref51, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmpref52, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp53, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmpref56, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmpref76, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmpref82, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmpref83, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp88) ; +// ATStmpdec_void(tmp91) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1241(line=48, offs=5) -- 1849(line=74, offs=39) +*/ +ATSINSflab(__patsflab_big_exp_15): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1304(line=49, offs=6) -- 1328(line=49, offs=30) +*/ +ATSINSmove(tmp29, ATSCNTRB_056_HX_056_intinf_vt__compare_intinf_int__19__1(ATSPMVrefarg0(arg0), ATSPMVi0nt(0))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1304(line=49, offs=6) -- 1332(line=49, offs=34) +*/ +ATSINSmove(tmp24, ATSLIB_056_prelude__eq_g1int_int__16__1(tmp29, ATSPMVi0nt(0))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1301(line=49, offs=3) -- 1849(line=74, offs=39) +*/ +ATSif( +tmp24 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1342(line=50, offs=5) -- 1343(line=50, offs=6) +*/ +ATSINSmove(tmpret23, arg0) ; +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1358(line=52, offs=8) -- 1363(line=52, offs=13) +*/ +ATSINSmove(tmp48, ATSLIB_056_prelude__gt_g1int_int__4__2(arg1, ATSPMVi0nt(0))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1355(line=52, offs=5) -- 1849(line=74, offs=39) +*/ +ATSif( +tmp48 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1375(line=53, offs=7) -- 1801(line=72, offs=10) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1391(line=54, offs=13) -- 1393(line=54, offs=15) +*/ +/* +ATSINStmpdec(tmpref51) ; +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1396(line=54, offs=18) -- 1402(line=54, offs=24) +*/ +ATSINSmove(tmpref51, atspre_g1int_half_int(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1416(line=55, offs=13) -- 1418(line=55, offs=15) +*/ +/* +ATSINStmpdec(tmpref52) ; +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1421(line=55, offs=18) -- 1426(line=55, offs=23) +*/ +ATSINSmove(tmpref52, atspre_g0int_mod_int(arg1, ATSPMVi0nt(2))) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1447(line=57, offs=12) -- 1453(line=57, offs=18) +*/ +ATSINSmove(tmp53, ATSLIB_056_prelude__eq_g0int_int__10__2(tmpref52, ATSPMVi0nt(0))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1444(line=57, offs=9) -- 1791(line=71, offs=14) +*/ +ATSif( +tmp53 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1469(line=58, offs=11) -- 1564(line=62, offs=14) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1489(line=59, offs=17) -- 1490(line=59, offs=18) +*/ +/* +ATSINStmpdec(tmpref56) ; +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1493(line=59, offs=21) -- 1509(line=59, offs=37) +*/ +ATSINSmove(tmpref56, ATSCNTRB_056_HX_056_intinf_vt__square_intinf0__30__1(arg0)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1536(line=61, offs=13) -- 1550(line=61, offs=27) +*/ +ATStailcal_beg() +ATSINSmove_tlcal(apy0, tmpref56) ; +ATSINSmove_tlcal(apy1, tmpref51) ; +ATSINSargmove_tlcal(arg0, apy0) ; +ATSINSargmove_tlcal(arg1, apy1) ; +ATSINSfgoto(__patsflab_big_exp_15) ; +ATStailcal_end() + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1469(line=58, offs=11) -- 1564(line=62, offs=14) +*/ +/* +INSletpop() +*/ +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1588(line=64, offs=11) -- 1791(line=71, offs=14) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1608(line=65, offs=17) -- 1610(line=65, offs=19) +*/ +/* +ATSINStmpdec(tmpref76) ; +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1613(line=65, offs=22) -- 1629(line=65, offs=38) +*/ +ATSINSmove(tmpref76, ATSCNTRB_056_HX_056_intinf_vt__square_intinf1__32__2(ATSPMVrefarg0(arg0))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1647(line=66, offs=17) -- 1649(line=66, offs=19) +*/ +/* +ATSINStmpdec(tmpref82) ; +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1652(line=66, offs=22) -- 1667(line=66, offs=37) +*/ +ATSINSmove(tmpref82, big_exp_15(tmpref76, tmpref51)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1684(line=67, offs=17) -- 1685(line=67, offs=18) +*/ +/* +ATSINStmpdec(tmpref83) ; +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1688(line=67, offs=21) -- 1714(line=67, offs=47) +*/ +ATSINSmove(tmpref83, ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_intinf1__39__1(tmpref82, ATSPMVrefarg0(arg0))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1736(line=68, offs=22) -- 1749(line=68, offs=35) +*/ +ATSINSmove_void(tmp88, ATSCNTRB_056_HX_056_intinf_vt__intinf_free__35__2(arg0)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1776(line=70, offs=13) -- 1777(line=70, offs=14) +*/ +ATSINSmove(tmpret23, tmpref83) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1588(line=64, offs=11) -- 1791(line=71, offs=14) +*/ +/* +INSletpop() +*/ +} /* ATSendif */ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1375(line=53, offs=7) -- 1801(line=72, offs=10) +*/ +/* +INSletpop() +*/ +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1818(line=74, offs=8) -- 1831(line=74, offs=21) +*/ +ATSINSmove_void(tmp91, ATSCNTRB_056_HX_056_intinf_vt__intinf_free__35__3(arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1835(line=74, offs=25) -- 1848(line=74, offs=38) +*/ +ATSINSmove(tmpret23, ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__43__1(ATSPMVi0nt(1))) ; + +} /* ATSendif */ +} /* ATSendif */ +ATSfunbody_end() +ATSreturn(tmpret23) ; +} /* end of [big_exp_15] */ + +#if(0) +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 12838(line=668, offs=3) -- 12877(line=668, offs=42) +*/ +/* +local: +global: eq_g1int_int$16$0(level=0) +local: +global: +*/ +ATSextern() +/* +imparg = tk(4649) +tmparg = S2Evar(tk(4649)) +tmpsub = None() +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g1int_int__16(atstkind_t0ype(atstyvar_type(tk)) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret25, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp26, atstkind_t0ype(atstyvar_type(tk))) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12823(line=667, offs=1) -- 12877(line=668, offs=42) +*/ +ATSINSflab(__patsflab_eq_g1int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12864(line=668, offs=29) -- 12875(line=668, offs=40) +*/ +ATSINSmove(tmp26, PMVtmpltcst(g1int2int)(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12847(line=668, offs=12) -- 12877(line=668, offs=42) +*/ +ATSINSmove(tmpret25, PMVtmpltcst(g1int_eq)(arg0, tmp26)) ; + +ATSfunbody_end() +ATSreturn(tmpret25) ; +} /* end of [ATSLIB_056_prelude__eq_g1int_int__16] */ +#endif // end of [TEMPLATE] + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 12838(line=668, offs=3) -- 12877(line=668, offs=42) +*/ +/* +local: +global: eq_g1int_int$16$1(level=1) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4649) +tmparg = S2Evar(tk(4649)) +tmpsub = Some(tk(4649) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g1int_int__16__1(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret25__1, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp26__1, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12823(line=667, offs=1) -- 12877(line=668, offs=42) +*/ +ATSINSflab(__patsflab_eq_g1int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12864(line=668, offs=29) -- 12875(line=668, offs=40) +*/ +ATSINSmove(tmp26__1, atspre_g1int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12847(line=668, offs=12) -- 12877(line=668, offs=42) +*/ +ATSINSmove(tmpret25__1, atspre_g1int_eq_int(arg0, tmp26__1)) ; + +ATSfunbody_end() +ATSreturn(tmpret25__1) ; +} /* end of [ATSLIB_056_prelude__eq_g1int_int__16__1] */ + +#if(0) +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13321(line=768, offs=9) -- 13484(line=775, offs=4) +*/ +/* +local: +global: compare_intinf_int$19$0(level=0) +local: +global: +*/ +ATSextern() +/* +imparg = +tmparg = +tmpsub = None() +*/ +atstkind_t0ype(atstype_int) +ATSCNTRB_056_HX_056_intinf_vt__compare_intinf_int__19(atsrefarg0_type(atstkind_type(atstype_ptrk)) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret30, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp31, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp32, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp33, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp34, atstkind_t0ype(atstype_bool)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13294(line=767, offs=1) -- 13484(line=775, offs=4) +*/ +ATSINSflab(__patsflab_compare_intinf_int): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13330(line=768, offs=18) -- 13484(line=775, offs=4) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13347(line=770, offs=11) -- 13375(line=770, offs=39) +*/ +ATSINSmove(tmp31, atscntrb_gmp_mpz_cmp_int(ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13390(line=771, offs=15) -- 13397(line=771, offs=22) +*/ +ATSINSmove(tmp33, PMVtmpltcst(lt_g0int_int)(tmp31, ATSPMVi0nt(0))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13387(line=771, offs=12) -- 13437(line=771, offs=62) +*/ +ATSif( +tmp33 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13403(line=771, offs=28) -- 13405(line=771, offs=30) +*/ +ATSINSmove(tmp32, PMVtmpltcst(g1int_neg)(ATSPMVi0nt(1))) ; + +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13415(line=771, offs=40) -- 13422(line=771, offs=47) +*/ +ATSINSmove(tmp34, PMVtmpltcst(gt_g0int_int)(tmp31, ATSPMVi0nt(0))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13412(line=771, offs=37) -- 13436(line=771, offs=61) +*/ +ATSif( +tmp34 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13428(line=771, offs=53) -- 13429(line=771, offs=54) +*/ +ATSINSmove(tmp32, ATSPMVi0nt(1)) ; +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13435(line=771, offs=60) -- 13436(line=771, offs=61) +*/ +ATSINSmove(tmp32, ATSPMVi0nt(0)) ; +} /* ATSendif */ +} /* ATSendif */ +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13452(line=774, offs=3) -- 13479(line=774, offs=30) +*/ +ATSINSmove(tmpret30, ATSPMVcastfn(cast, atstkind_t0ype(atstype_int), tmp32)) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13330(line=768, offs=18) -- 13484(line=775, offs=4) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret30) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__compare_intinf_int__19] */ +#endif // end of [TEMPLATE] + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13321(line=768, offs=9) -- 13484(line=775, offs=4) +*/ +/* +local: +global: compare_intinf_int$19$1(level=1) +local: +global: +*/ +ATSstatic() +/* +imparg = +tmparg = +tmpsub = Some() +*/ +atstkind_t0ype(atstype_int) +ATSCNTRB_056_HX_056_intinf_vt__compare_intinf_int__19__1(atsrefarg0_type(atstkind_type(atstype_ptrk)) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret30__1, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp31__1, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp32__1, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp33__1, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp34__1, atstkind_t0ype(atstype_bool)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13294(line=767, offs=1) -- 13484(line=775, offs=4) +*/ +ATSINSflab(__patsflab_compare_intinf_int): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13330(line=768, offs=18) -- 13484(line=775, offs=4) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13347(line=770, offs=11) -- 13375(line=770, offs=39) +*/ +ATSINSmove(tmp31__1, atscntrb_gmp_mpz_cmp_int(ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13390(line=771, offs=15) -- 13397(line=771, offs=22) +*/ +ATSINSmove(tmp33__1, ATSLIB_056_prelude__lt_g0int_int__21__1(tmp31__1, ATSPMVi0nt(0))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13387(line=771, offs=12) -- 13437(line=771, offs=62) +*/ +ATSif( +tmp33__1 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13403(line=771, offs=28) -- 13405(line=771, offs=30) +*/ +ATSINSmove(tmp32__1, atspre_g1int_neg_int(ATSPMVi0nt(1))) ; + +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13415(line=771, offs=40) -- 13422(line=771, offs=47) +*/ +ATSINSmove(tmp34__1, ATSLIB_056_prelude__gt_g0int_int__25__1(tmp31__1, ATSPMVi0nt(0))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13412(line=771, offs=37) -- 13436(line=771, offs=61) +*/ +ATSif( +tmp34__1 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13428(line=771, offs=53) -- 13429(line=771, offs=54) +*/ +ATSINSmove(tmp32__1, ATSPMVi0nt(1)) ; +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13435(line=771, offs=60) -- 13436(line=771, offs=61) +*/ +ATSINSmove(tmp32__1, ATSPMVi0nt(0)) ; +} /* ATSendif */ +} /* ATSendif */ +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13452(line=774, offs=3) -- 13479(line=774, offs=30) +*/ +ATSINSmove(tmpret30__1, ATSPMVcastfn(cast, atstkind_t0ype(atstype_int), tmp32__1)) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 13330(line=768, offs=18) -- 13484(line=775, offs=4) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret30__1) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__compare_intinf_int__19__1] */ + +#if(0) +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 11941(line=617, offs=3) -- 11980(line=617, offs=42) +*/ +/* +local: +global: lt_g0int_int$21$0(level=0) +local: +global: +*/ +ATSextern() +/* +imparg = tk(4630) +tmparg = S2Evar(tk(4630)) +tmpsub = None() +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__lt_g0int_int__21(atstkind_t0ype(atstyvar_type(tk)) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret40, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp41, atstkind_t0ype(atstyvar_type(tk))) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 11926(line=616, offs=1) -- 11980(line=617, offs=42) +*/ +ATSINSflab(__patsflab_lt_g0int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 11967(line=617, offs=29) -- 11978(line=617, offs=40) +*/ +ATSINSmove(tmp41, PMVtmpltcst(g0int2int)(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 11950(line=617, offs=12) -- 11980(line=617, offs=42) +*/ +ATSINSmove(tmpret40, PMVtmpltcst(g0int_lt)(arg0, tmp41)) ; + +ATSfunbody_end() +ATSreturn(tmpret40) ; +} /* end of [ATSLIB_056_prelude__lt_g0int_int__21] */ +#endif // end of [TEMPLATE] + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 11941(line=617, offs=3) -- 11980(line=617, offs=42) +*/ +/* +local: +global: lt_g0int_int$21$1(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4630) +tmparg = S2Evar(tk(4630)) +tmpsub = Some(tk(4630) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__lt_g0int_int__21__1(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret40__1, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp41__1, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 11926(line=616, offs=1) -- 11980(line=617, offs=42) +*/ +ATSINSflab(__patsflab_lt_g0int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 11967(line=617, offs=29) -- 11978(line=617, offs=40) +*/ +ATSINSmove(tmp41__1, atspre_g0int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 11950(line=617, offs=12) -- 11980(line=617, offs=42) +*/ +ATSINSmove(tmpret40__1, atspre_g0int_lt_int(arg0, tmp41__1)) ; + +ATSfunbody_end() +ATSreturn(tmpret40__1) ; +} /* end of [ATSLIB_056_prelude__lt_g0int_int__21__1] */ + +#if(0) +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 12100(line=626, offs=3) -- 12139(line=626, offs=42) +*/ +/* +local: +global: gt_g0int_int$25$0(level=0) +local: +global: +*/ +ATSextern() +/* +imparg = tk(4632) +tmparg = S2Evar(tk(4632)) +tmpsub = None() +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__gt_g0int_int__25(atstkind_t0ype(atstyvar_type(tk)) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret44, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp45, atstkind_t0ype(atstyvar_type(tk))) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12085(line=625, offs=1) -- 12139(line=626, offs=42) +*/ +ATSINSflab(__patsflab_gt_g0int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12126(line=626, offs=29) -- 12137(line=626, offs=40) +*/ +ATSINSmove(tmp45, PMVtmpltcst(g0int2int)(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12109(line=626, offs=12) -- 12139(line=626, offs=42) +*/ +ATSINSmove(tmpret44, PMVtmpltcst(g0int_gt)(arg0, tmp45)) ; + +ATSfunbody_end() +ATSreturn(tmpret44) ; +} /* end of [ATSLIB_056_prelude__gt_g0int_int__25] */ +#endif // end of [TEMPLATE] + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 12100(line=626, offs=3) -- 12139(line=626, offs=42) +*/ +/* +local: +global: gt_g0int_int$25$1(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4632) +tmparg = S2Evar(tk(4632)) +tmpsub = Some(tk(4632) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__gt_g0int_int__25__1(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret44__1, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp45__1, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12085(line=625, offs=1) -- 12139(line=626, offs=42) +*/ +ATSINSflab(__patsflab_gt_g0int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12126(line=626, offs=29) -- 12137(line=626, offs=40) +*/ +ATSINSmove(tmp45__1, atspre_g0int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12109(line=626, offs=12) -- 12139(line=626, offs=42) +*/ +ATSINSmove(tmpret44__1, atspre_g0int_gt_int(arg0, tmp45__1)) ; + +ATSfunbody_end() +ATSreturn(tmpret44__1) ; +} /* end of [ATSLIB_056_prelude__gt_g0int_int__25__1] */ + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 12679(line=659, offs=3) -- 12718(line=659, offs=42) +*/ +/* +local: +global: gt_g1int_int$4$2(level=1) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4643) +tmparg = S2Evar(tk(4643)) +tmpsub = Some(tk(4643) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__gt_g1int_int__4__2(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret8__2, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp9__2, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12664(line=658, offs=1) -- 12718(line=659, offs=42) +*/ +ATSINSflab(__patsflab_gt_g1int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12705(line=659, offs=29) -- 12716(line=659, offs=40) +*/ +ATSINSmove(tmp9__2, atspre_g1int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12688(line=659, offs=12) -- 12718(line=659, offs=42) +*/ +ATSINSmove(tmpret8__2, atspre_g1int_gt_int(arg0, tmp9__2)) ; + +ATSfunbody_end() +ATSreturn(tmpret8__2) ; +} /* end of [ATSLIB_056_prelude__gt_g1int_int__4__2] */ + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) +*/ +/* +local: +global: eq_g0int_int$10$2(level=1) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4634) +tmparg = S2Evar(tk(4634)) +tmpsub = Some(tk(4634) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__10__2(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret15__2, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp16__2, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) +*/ +ATSINSflab(__patsflab_eq_g0int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) +*/ +ATSINSmove(tmp16__2, atspre_g0int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) +*/ +ATSINSmove(tmpret15__2, atspre_g0int_eq_int(arg0, tmp16__2)) ; + +ATSfunbody_end() +ATSreturn(tmpret15__2) ; +} /* end of [ATSLIB_056_prelude__eq_g0int_int__10__2] */ + +#if(0) +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4581(line=236, offs=3) -- 4665(line=240, offs=2) +*/ +/* +local: +global: square_intinf0$30$0(level=0) +local: +global: +*/ +ATSextern() +/* +imparg = +tmparg = +tmpsub = None() +*/ +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__square_intinf0__30(atstkind_type(atstype_ptrk) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret57, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp58, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp59) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4564(line=235, offs=1) -- 4665(line=240, offs=2) +*/ +ATSINSflab(__patsflab_square_intinf0): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4587(line=236, offs=9) -- 4665(line=240, offs=2) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4611(line=238, offs=13) -- 4627(line=238, offs=29) +*/ +ATSINSmove(tmp58, PMVtmpltcst(square_intinf1<>)(ATSPMVrefarg0(arg0))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4649(line=239, offs=21) -- 4662(line=239, offs=34) +*/ +ATSINSmove_void(tmp59, PMVtmpltcst(intinf_free<>)(arg0)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4587(line=236, offs=9) -- 4590(line=236, offs=12) +*/ +ATSINSmove(tmpret57, tmp58) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4587(line=236, offs=9) -- 4665(line=240, offs=2) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret57) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__square_intinf0__30] */ +#endif // end of [TEMPLATE] + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4581(line=236, offs=3) -- 4665(line=240, offs=2) +*/ +/* +local: +global: square_intinf0$30$1(level=1) +local: +global: +*/ +ATSstatic() +/* +imparg = +tmparg = +tmpsub = Some() +*/ +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__square_intinf0__30__1(atstkind_type(atstype_ptrk) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret57__1, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp58__1, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp59__1) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4564(line=235, offs=1) -- 4665(line=240, offs=2) +*/ +ATSINSflab(__patsflab_square_intinf0): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4587(line=236, offs=9) -- 4665(line=240, offs=2) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4611(line=238, offs=13) -- 4627(line=238, offs=29) +*/ +ATSINSmove(tmp58__1, ATSCNTRB_056_HX_056_intinf_vt__square_intinf1__32__1(ATSPMVrefarg0(arg0))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4649(line=239, offs=21) -- 4662(line=239, offs=34) +*/ +ATSINSmove_void(tmp59__1, ATSCNTRB_056_HX_056_intinf_vt__intinf_free__35__1(arg0)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4587(line=236, offs=9) -- 4590(line=236, offs=12) +*/ +ATSINSmove(tmpret57__1, tmp58__1) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4587(line=236, offs=9) -- 4665(line=240, offs=2) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret57__1) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__square_intinf0__30__1] */ + +#if(0) +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4755(line=247, offs=3) -- 4900(line=256, offs=2) +*/ +/* +local: +global: square_intinf1$32$0(level=0) +local: +global: +*/ +ATSextern() +/* +imparg = +tmparg = +tmpsub = None() +*/ +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__square_intinf1__32(atsrefarg0_type(atstkind_type(atstype_ptrk)) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret63, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp64, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp65) ; +// ATStmpdec_void(tmp66) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4738(line=246, offs=1) -- 4900(line=256, offs=2) +*/ +ATSINSflab(__patsflab_square_intinf1): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4761(line=247, offs=9) -- 4900(line=256, offs=2) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4784(line=250, offs=9) -- 4800(line=250, offs=25) +*/ +ATSINSmove(tmp64, PMVtmpltcst(ptr_alloc)()) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4812(line=252, offs=3) -- 4849(line=252, offs=40) +*/ +ATSINSmove_void(tmp65, atscntrb_gmp_mpz_init_set_mpz(ATSPMVrefarg1(ATSSELrecsin(tmp64, atstkind_type(atstype_ptrk), atslab__2)), ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4862(line=254, offs=10) -- 4895(line=254, offs=43) +*/ +ATSINSmove_void(tmp66, atscntrb_gmp_mpz_mul2_mpz(ATSPMVrefarg1(ATSSELrecsin(tmp64, atstkind_type(atstype_ptrk), atslab__2)), ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)))) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4762(line=247, offs=10) -- 4763(line=247, offs=11) +*/ +ATSINSmove(tmpret63, tmp64) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4761(line=247, offs=9) -- 4900(line=256, offs=2) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret63) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__square_intinf1__32] */ +#endif // end of [TEMPLATE] + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4755(line=247, offs=3) -- 4900(line=256, offs=2) +*/ +/* +local: +global: square_intinf1$32$1(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = +tmparg = +tmpsub = Some() +*/ +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__square_intinf1__32__1(atsrefarg0_type(atstkind_type(atstype_ptrk)) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret63__1, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp64__1, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp65__1) ; +// ATStmpdec_void(tmp66__1) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4738(line=246, offs=1) -- 4900(line=256, offs=2) +*/ +ATSINSflab(__patsflab_square_intinf1): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4761(line=247, offs=9) -- 4900(line=256, offs=2) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4784(line=250, offs=9) -- 4800(line=250, offs=25) +*/ +ATSINSmove(tmp64__1, ATSLIB_056_prelude__ptr_alloc__1__2()) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4812(line=252, offs=3) -- 4849(line=252, offs=40) +*/ +ATSINSmove_void(tmp65__1, atscntrb_gmp_mpz_init_set_mpz(ATSPMVrefarg1(ATSSELrecsin(tmp64__1, atstkind_type(atstype_ptrk), atslab__2)), ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4862(line=254, offs=10) -- 4895(line=254, offs=43) +*/ +ATSINSmove_void(tmp66__1, atscntrb_gmp_mpz_mul2_mpz(ATSPMVrefarg1(ATSSELrecsin(tmp64__1, atstkind_type(atstype_ptrk), atslab__2)), ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)))) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4762(line=247, offs=10) -- 4763(line=247, offs=11) +*/ +ATSINSmove(tmpret63__1, tmp64__1) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4761(line=247, offs=9) -- 4900(line=256, offs=2) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret63__1) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__square_intinf1__32__1] */ + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42) +*/ +/* +local: +global: ptr_alloc$1$2(level=3) +local: +global: +*/ +ATSstatic() +/* +imparg = a(4746) +tmparg = S2Evar(a(4746)) +tmpsub = Some(a(4746) -> S2Ecst(mpz_vt0ype)) +*/ +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__1__2() +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret2__2, atstkind_type(atstype_ptrk)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3708(line=184, offs=1) -- 3749(line=184, offs=42) +*/ +ATSINSflab(__patsflab_ptr_alloc): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42) +*/ +ATSINSmove(tmpret2__2, atspre_ptr_alloc_tsz(ATSPMVsizeof(atscntrb_gmp_mpz))) ; + +ATSfunbody_end() +ATSreturn(tmpret2__2) ; +} /* end of [ATSLIB_056_prelude__ptr_alloc__1__2] */ + +#if(0) +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2888(line=119, offs=12) -- 2987(line=122, offs=4) +*/ +/* +local: +global: intinf_free$35$0(level=0) +local: +global: +*/ +ATSextern() +/* +imparg = +tmparg = +tmpsub = None() +*/ +atsvoid_t0ype +ATSCNTRB_056_HX_056_intinf_vt__intinf_free__35(atstkind_type(atstype_ptrk) arg0) +{ +/* tmpvardeclst(beg) */ +// ATStmpdec_void(tmpret72) ; +// ATStmpdec_void(tmp73) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2877(line=119, offs=1) -- 2987(line=122, offs=4) +*/ +ATSINSflab(__patsflab_intinf_free): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2894(line=119, offs=18) -- 2987(line=122, offs=4) +*/ +/* +letpush(beg) +*/ +/* (*nothing*) */ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2936(line=121, offs=12) -- 2955(line=121, offs=31) +*/ +ATSINSmove_void(tmp73, atscntrb_gmp_mpz_clear(ATSPMVrefarg1(arg0))) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2959(line=121, offs=35) -- 2983(line=121, offs=59) +*/ +ATSINSmove_void(tmpret72, atspre_ptr_free(arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2894(line=119, offs=18) -- 2987(line=122, offs=4) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn_void(tmpret72) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_free__35] */ +#endif // end of [TEMPLATE] + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2888(line=119, offs=12) -- 2987(line=122, offs=4) +*/ +/* +local: +global: intinf_free$35$1(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = +tmparg = +tmpsub = Some() +*/ +atsvoid_t0ype +ATSCNTRB_056_HX_056_intinf_vt__intinf_free__35__1(atstkind_type(atstype_ptrk) arg0) +{ +/* tmpvardeclst(beg) */ +// ATStmpdec_void(tmpret72__1) ; +// ATStmpdec_void(tmp73__1) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2877(line=119, offs=1) -- 2987(line=122, offs=4) +*/ +ATSINSflab(__patsflab_intinf_free): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2894(line=119, offs=18) -- 2987(line=122, offs=4) +*/ +/* +letpush(beg) +*/ +/* (*nothing*) */ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2936(line=121, offs=12) -- 2955(line=121, offs=31) +*/ +ATSINSmove_void(tmp73__1, atscntrb_gmp_mpz_clear(ATSPMVrefarg1(arg0))) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2959(line=121, offs=35) -- 2983(line=121, offs=59) +*/ +ATSINSmove_void(tmpret72__1, atspre_ptr_free(arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2894(line=119, offs=18) -- 2987(line=122, offs=4) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn_void(tmpret72__1) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_free__35__1] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4755(line=247, offs=3) -- 4900(line=256, offs=2) +*/ +/* +local: +global: square_intinf1$32$2(level=1) +local: +global: +*/ +ATSstatic() +/* +imparg = +tmparg = +tmpsub = Some() +*/ +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__square_intinf1__32__2(atsrefarg0_type(atstkind_type(atstype_ptrk)) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret63__2, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp64__2, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp65__2) ; +// ATStmpdec_void(tmp66__2) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4738(line=246, offs=1) -- 4900(line=256, offs=2) +*/ +ATSINSflab(__patsflab_square_intinf1): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4761(line=247, offs=9) -- 4900(line=256, offs=2) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4784(line=250, offs=9) -- 4800(line=250, offs=25) +*/ +ATSINSmove(tmp64__2, ATSLIB_056_prelude__ptr_alloc__1__3()) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4812(line=252, offs=3) -- 4849(line=252, offs=40) +*/ +ATSINSmove_void(tmp65__2, atscntrb_gmp_mpz_init_set_mpz(ATSPMVrefarg1(ATSSELrecsin(tmp64__2, atstkind_type(atstype_ptrk), atslab__2)), ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4862(line=254, offs=10) -- 4895(line=254, offs=43) +*/ +ATSINSmove_void(tmp66__2, atscntrb_gmp_mpz_mul2_mpz(ATSPMVrefarg1(ATSSELrecsin(tmp64__2, atstkind_type(atstype_ptrk), atslab__2)), ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)))) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4762(line=247, offs=10) -- 4763(line=247, offs=11) +*/ +ATSINSmove(tmpret63__2, tmp64__2) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 4761(line=247, offs=9) -- 4900(line=256, offs=2) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret63__2) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__square_intinf1__32__2] */ + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42) +*/ +/* +local: +global: ptr_alloc$1$3(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = a(4746) +tmparg = S2Evar(a(4746)) +tmpsub = Some(a(4746) -> S2Ecst(mpz_vt0ype)) +*/ +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__1__3() +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret2__3, atstkind_type(atstype_ptrk)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3708(line=184, offs=1) -- 3749(line=184, offs=42) +*/ +ATSINSflab(__patsflab_ptr_alloc): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42) +*/ +ATSINSmove(tmpret2__3, atspre_ptr_alloc_tsz(ATSPMVsizeof(atscntrb_gmp_mpz))) ; + +ATSfunbody_end() +ATSreturn(tmpret2__3) ; +} /* end of [ATSLIB_056_prelude__ptr_alloc__1__3] */ + +#if(0) +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7761(line=437, offs=3) -- 7833(line=442, offs=2) +*/ +/* +local: +global: mul_intinf0_intinf1$39$0(level=0) +local: +global: +*/ +ATSextern() +/* +imparg = +tmparg = +tmpsub = None() +*/ +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_intinf1__39(atstkind_type(atstype_ptrk) arg0, atsrefarg0_type(atstkind_type(atstype_ptrk)) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret84, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp85) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7739(line=436, offs=1) -- 7833(line=442, offs=2) +*/ +ATSINSflab(__patsflab_mul_intinf0_intinf1): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7770(line=437, offs=12) -- 7833(line=442, offs=2) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7794(line=440, offs=10) -- 7828(line=440, offs=44) +*/ +ATSINSmove_void(tmp85, atscntrb_gmp_mpz_mul2_mpz(ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), ATSPMVrefarg1(ATSSELrecsin(arg1, atstkind_type(atstype_ptrk), atslab__2)))) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7771(line=437, offs=13) -- 7772(line=437, offs=14) +*/ +ATSINSmove(tmpret84, arg0) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7770(line=437, offs=12) -- 7833(line=442, offs=2) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret84) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_intinf1__39] */ +#endif // end of [TEMPLATE] + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7761(line=437, offs=3) -- 7833(line=442, offs=2) +*/ +/* +local: +global: mul_intinf0_intinf1$39$1(level=1) +local: +global: +*/ +ATSstatic() +/* +imparg = +tmparg = +tmpsub = Some() +*/ +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_intinf1__39__1(atstkind_type(atstype_ptrk) arg0, atsrefarg0_type(atstkind_type(atstype_ptrk)) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret84__1, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp85__1) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7739(line=436, offs=1) -- 7833(line=442, offs=2) +*/ +ATSINSflab(__patsflab_mul_intinf0_intinf1): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7770(line=437, offs=12) -- 7833(line=442, offs=2) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7794(line=440, offs=10) -- 7828(line=440, offs=44) +*/ +ATSINSmove_void(tmp85__1, atscntrb_gmp_mpz_mul2_mpz(ATSPMVrefarg1(ATSSELrecsin(arg0, atstkind_type(atstype_ptrk), atslab__2)), ATSPMVrefarg1(ATSSELrecsin(arg1, atstkind_type(atstype_ptrk), atslab__2)))) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7771(line=437, offs=13) -- 7772(line=437, offs=14) +*/ +ATSINSmove(tmpret84__1, arg0) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 7770(line=437, offs=12) -- 7833(line=442, offs=2) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret84__1) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__mul_intinf0_intinf1__39__1] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2888(line=119, offs=12) -- 2987(line=122, offs=4) +*/ +/* +local: +global: intinf_free$35$2(level=1) +local: +global: +*/ +ATSstatic() +/* +imparg = +tmparg = +tmpsub = Some() +*/ +atsvoid_t0ype +ATSCNTRB_056_HX_056_intinf_vt__intinf_free__35__2(atstkind_type(atstype_ptrk) arg0) +{ +/* tmpvardeclst(beg) */ +// ATStmpdec_void(tmpret72__2) ; +// ATStmpdec_void(tmp73__2) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2877(line=119, offs=1) -- 2987(line=122, offs=4) +*/ +ATSINSflab(__patsflab_intinf_free): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2894(line=119, offs=18) -- 2987(line=122, offs=4) +*/ +/* +letpush(beg) +*/ +/* (*nothing*) */ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2936(line=121, offs=12) -- 2955(line=121, offs=31) +*/ +ATSINSmove_void(tmp73__2, atscntrb_gmp_mpz_clear(ATSPMVrefarg1(arg0))) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2959(line=121, offs=35) -- 2983(line=121, offs=59) +*/ +ATSINSmove_void(tmpret72__2, atspre_ptr_free(arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2894(line=119, offs=18) -- 2987(line=122, offs=4) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn_void(tmpret72__2) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_free__35__2] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2888(line=119, offs=12) -- 2987(line=122, offs=4) +*/ +/* +local: +global: intinf_free$35$3(level=1) +local: +global: +*/ +ATSstatic() +/* +imparg = +tmparg = +tmpsub = Some() +*/ +atsvoid_t0ype +ATSCNTRB_056_HX_056_intinf_vt__intinf_free__35__3(atstkind_type(atstype_ptrk) arg0) +{ +/* tmpvardeclst(beg) */ +// ATStmpdec_void(tmpret72__3) ; +// ATStmpdec_void(tmp73__3) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2877(line=119, offs=1) -- 2987(line=122, offs=4) +*/ +ATSINSflab(__patsflab_intinf_free): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2894(line=119, offs=18) -- 2987(line=122, offs=4) +*/ +/* +letpush(beg) +*/ +/* (*nothing*) */ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2936(line=121, offs=12) -- 2955(line=121, offs=31) +*/ +ATSINSmove_void(tmp73__3, atscntrb_gmp_mpz_clear(ATSPMVrefarg1(arg0))) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2959(line=121, offs=35) -- 2983(line=121, offs=59) +*/ +ATSINSmove_void(tmpret72__3, atspre_ptr_free(arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2894(line=119, offs=18) -- 2987(line=122, offs=4) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn_void(tmpret72__3) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_free__35__3] */ + +#if(0) +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2209(line=74, offs=3) -- 2301(line=80, offs=2) +*/ +/* +local: +global: intinf_make_int$43$0(level=0) +local: +global: +*/ +ATSextern() +/* +imparg = +tmparg = +tmpsub = None() +*/ +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__43(atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret94, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp95, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp96) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2191(line=73, offs=1) -- 2301(line=80, offs=2) +*/ +ATSINSflab(__patsflab_intinf_make_int): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2238(line=77, offs=9) -- 2254(line=77, offs=25) +*/ +ATSINSmove(tmp95, PMVtmpltcst(ptr_alloc)()) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2264(line=78, offs=10) -- 2296(line=78, offs=42) +*/ +ATSINSmove_void(tmp96, atscntrb_gmp_mpz_init_set_int(ATSPMVrefarg1(ATSSELrecsin(tmp95, atstkind_type(atstype_ptrk), atslab__2)), arg0)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2216(line=74, offs=10) -- 2217(line=74, offs=11) +*/ +ATSINSmove(tmpret94, tmp95) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret94) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__43] */ +#endif // end of [TEMPLATE] + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2209(line=74, offs=3) -- 2301(line=80, offs=2) +*/ +/* +local: +global: intinf_make_int$43$1(level=1) +local: +global: +*/ +ATSstatic() +/* +imparg = +tmparg = +tmpsub = Some() +*/ +atstkind_type(atstype_ptrk) +ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__43__1(atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret94__1, atstkind_type(atstype_ptrk)) ; +ATStmpdec(tmp95__1, atstkind_type(atstype_ptrk)) ; +// ATStmpdec_void(tmp96__1) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2191(line=73, offs=1) -- 2301(line=80, offs=2) +*/ +ATSINSflab(__patsflab_intinf_make_int): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2238(line=77, offs=9) -- 2254(line=77, offs=25) +*/ +ATSINSmove(tmp95__1, ATSLIB_056_prelude__ptr_alloc__1__4()) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2264(line=78, offs=10) -- 2296(line=78, offs=42) +*/ +ATSINSmove_void(tmp96__1, atscntrb_gmp_mpz_init_set_int(ATSPMVrefarg1(ATSSELrecsin(tmp95__1, atstkind_type(atstype_ptrk), atslab__2)), arg0)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2216(line=74, offs=10) -- 2217(line=74, offs=11) +*/ +ATSINSmove(tmpret94__1, tmp95__1) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/.atspkg/contrib/atscntrb-hx-intinf/DATS/intinf_vt.dats: 2215(line=74, offs=9) -- 2301(line=80, offs=2) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret94__1) ; +} /* end of [ATSCNTRB_056_HX_056_intinf_vt__intinf_make_int__43__1] */ + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats: 3717(line=184, offs=10) -- 3749(line=184, offs=42) +*/ +/* +local: +global: ptr_alloc$1$4(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = a(4746) +tmparg = S2Evar(a(4746)) +tmpsub = Some(a(4746) -> S2Ecst(mpz_vt0ype)) +*/ +atstkind_type(atstype_ptrk) +ATSLIB_056_prelude__ptr_alloc__1__4() +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret2__4, atstkind_type(atstype_ptrk)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3708(line=184, offs=1) -- 3749(line=184, offs=42) +*/ +ATSINSflab(__patsflab_ptr_alloc): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/pointer.dats({$PATSPRE}/DATS/pointer.dats): 3722(line=184, offs=15) -- 3749(line=184, offs=42) +*/ +ATSINSmove(tmpret2__4, atspre_ptr_alloc_tsz(ATSPMVsizeof(atscntrb_gmp_mpz))) ; + +ATSfunbody_end() +ATSreturn(tmpret2__4) ; +} /* end of [ATSLIB_056_prelude__ptr_alloc__1__4] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1895(line=77, offs=4) -- 2042(line=82, offs=6) +*/ +/* +local: +global: sqrt_int_46$0(level=0) +local: +global: +*/ +ATSstatic() +atstkind_t0ype(atstype_int) +sqrt_int_46(atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret101, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmpref102, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp103, atstkind_t0ype(atstype_double)) ; +ATStmpdec(tmp104, atstkind_t0ype(atstype_double)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1895(line=77, offs=4) -- 2042(line=82, offs=6) +*/ +ATSINSflab(__patsflab_sqrt_int_46): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1941(line=78, offs=3) -- 2042(line=82, offs=6) +*/ +/* +letpush(beg) +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1953(line=79, offs=9) -- 1958(line=79, offs=14) +*/ +/* +ATSINStmpdec(tmpref102) ; +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1985(line=79, offs=41) -- 2009(line=79, offs=65) +*/ +ATSINSmove(tmp104, atspre_g0int2float_int_double(arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1973(line=79, offs=29) -- 2011(line=79, offs=67) +*/ +ATSINSmove(tmp103, atslib_libats_libc_sqrt_double(tmp104)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1961(line=79, offs=17) -- 2012(line=79, offs=68) +*/ +ATSINSmove(tmpref102, atspre_g0float2int_double_int(tmp103)) ; + +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2022(line=81, offs=5) -- 2035(line=81, offs=18) +*/ +ATSINSmove(tmpret101, ATSPMVcastfn(witness, atstkind_t0ype(atstype_int), tmpref102)) ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 1941(line=78, offs=3) -- 2042(line=82, offs=6) +*/ +/* +INSletpop() +*/ +ATSfunbody_end() +ATSreturn(tmpret101) ; +} /* end of [sqrt_int_46] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2078(line=85, offs=4) -- 2659(line=108, offs=10) +*/ +/* +local: sqrt_int_46$0(level=0) +global: sqrt_int_46$0(level=0), is_prime_48$0(level=0) +local: +global: +*/ +ATSstatic() +atstkind_t0ype(atstype_bool) +is_prime_48(atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret105, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp124, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2078(line=85, offs=4) -- 2659(line=108, offs=10) +*/ +ATSINSflab(__patsflab_is_prime_48): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2114(line=86, offs=3) -- 2659(line=108, offs=10) +*/ +ATScaseof_beg() +/* +** ibranchlst-beg +*/ +ATSbranch_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2131(line=87, offs=7) -- 2132(line=87, offs=8) +*/ +ATSINSlab(__atstmplab3): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2087(line=85, offs=13) -- 2088(line=85, offs=14) +*/ +ATSifnthen(ATSCKpat_int(arg0, ATSPMVint(1))) { ATSINSgoto(__atstmplab5) ; } ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2132(line=87, offs=8) -- 2132(line=87, offs=8) +*/ +ATSINSlab(__atstmplab4): +/* +emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) +*/ +/* +ibranch-mbody: +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2136(line=87, offs=12) -- 2141(line=87, offs=17) +*/ +ATSINSmove(tmpret105, ATSPMVbool_false()) ; +ATSbranch_end() + +ATSbranch_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2149(line=88, offs=8) -- 2149(line=88, offs=8) +*/ +ATSINSlab(__atstmplab5): +/* +emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) +*/ +/* +ibranch-mbody: +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2174(line=90, offs=9) -- 2649(line=107, offs=12) +*/ +/* +letpush(beg) +*/ +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2625(line=106, offs=19) -- 2635(line=106, offs=29) +*/ +ATSINSmove(tmp124, sqrt_int_46(arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2617(line=106, offs=11) -- 2637(line=106, offs=31) +*/ +ATSINSmove(tmpret105, loop_49(arg0, ATSPMVi0nt(2), tmp124)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2174(line=90, offs=9) -- 2649(line=107, offs=12) +*/ +/* +INSletpop() +*/ +ATSbranch_end() + +/* +** ibranchlst-end +*/ +ATScaseof_end() + +ATSfunbody_end() +ATSreturn(tmpret105) ; +} /* end of [is_prime_48] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2192(line=91, offs=15) -- 2595(line=104, offs=21) +*/ +/* +local: loop_49$0(level=1) +global: loop_49$0(level=1) +local: k$5122(1)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))) +global: k$5122(1)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))) +*/ +ATSstatic() +atstkind_t0ype(atstype_bool) +loop_49(atstkind_t0ype(atstype_int) env0, atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(apy0, atstkind_t0ype(atstype_int)) ; +ATStmpdec(apy1, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmpret106, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp107, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp112, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp115, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp116, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp117, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp120, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp123, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2192(line=91, offs=15) -- 2595(line=104, offs=21) +*/ +ATSINSflab(__patsflab_loop_49): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2282(line=92, offs=16) -- 2291(line=92, offs=25) +*/ +ATSINSmove(tmp107, ATSLIB_056_prelude__lt_g1int_int__50__1(arg0, arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2279(line=92, offs=13) -- 2595(line=104, offs=21) +*/ +ATSif( +tmp107 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2314(line=93, offs=18) -- 2319(line=93, offs=23) +*/ +ATSINSmove(tmp115, atspre_g0int_mod_int(env0, arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2314(line=93, offs=18) -- 2323(line=93, offs=27) +*/ +ATSINSmove(tmp112, ATSLIB_056_prelude__eq_g0int_int__10__3(tmp115, ATSPMVi0nt(0))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2311(line=93, offs=15) -- 2404(line=96, offs=35) +*/ +ATSif( +tmp112 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2345(line=94, offs=17) -- 2350(line=94, offs=22) +*/ +ATSINSmove(tmpret106, ATSPMVbool_false()) ; +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2391(line=96, offs=22) -- 2396(line=96, offs=27) +*/ +ATSINSmove(tmp116, atspre_g1int_add_int(arg0, ATSPMVi0nt(1))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2386(line=96, offs=17) -- 2404(line=96, offs=35) +*/ +ATStailcal_beg() +ATSINSmove_tlcal(apy0, tmp116) ; +ATSINSmove_tlcal(apy1, arg1) ; +ATSINSargmove_tlcal(arg0, apy0) ; +ATSINSargmove_tlcal(arg1, apy1) ; +ATSINSfgoto(__patsflab_loop_49) ; +ATStailcal_end() + +} /* ATSendif */ +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2439(line=98, offs=18) -- 2448(line=98, offs=27) +*/ +ATSINSmove(tmp117, ATSLIB_056_prelude__eq_g1int_int__16__2(arg0, arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2436(line=98, offs=15) -- 2595(line=104, offs=21) +*/ +ATSif( +tmp117 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2473(line=99, offs=20) -- 2478(line=99, offs=25) +*/ +ATSINSmove(tmp123, atspre_g0int_mod_int(env0, arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2473(line=99, offs=20) -- 2482(line=99, offs=29) +*/ +ATSINSmove(tmp120, ATSLIB_056_prelude__eq_g0int_int__10__4(tmp123, ATSPMVi0nt(0))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2470(line=99, offs=17) -- 2555(line=102, offs=23) +*/ +ATSif( +tmp120 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2506(line=100, offs=19) -- 2511(line=100, offs=24) +*/ +ATSINSmove(tmpret106, ATSPMVbool_false()) ; +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2551(line=102, offs=19) -- 2555(line=102, offs=23) +*/ +ATSINSmove(tmpret106, ATSPMVbool_true()) ; +} /* ATSendif */ +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2591(line=104, offs=17) -- 2595(line=104, offs=21) +*/ +ATSINSmove(tmpret106, ATSPMVbool_true()) ; +} /* ATSendif */ +} /* ATSendif */ +ATSfunbody_end() +ATSreturn(tmpret106) ; +} /* end of [loop_49] */ + +#if(0) +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 12520(line=650, offs=3) -- 12559(line=650, offs=42) +*/ +/* +local: +global: lt_g1int_int$50$0(level=0) +local: +global: +*/ +ATSextern() +/* +imparg = tk(4637) +tmparg = S2Evar(tk(4637)) +tmpsub = None() +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__lt_g1int_int__50(atstkind_t0ype(atstyvar_type(tk)) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret108, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp109, atstkind_t0ype(atstyvar_type(tk))) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12505(line=649, offs=1) -- 12559(line=650, offs=42) +*/ +ATSINSflab(__patsflab_lt_g1int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12546(line=650, offs=29) -- 12557(line=650, offs=40) +*/ +ATSINSmove(tmp109, PMVtmpltcst(g1int2int)(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12529(line=650, offs=12) -- 12559(line=650, offs=42) +*/ +ATSINSmove(tmpret108, PMVtmpltcst(g1int_lt)(arg0, tmp109)) ; + +ATSfunbody_end() +ATSreturn(tmpret108) ; +} /* end of [ATSLIB_056_prelude__lt_g1int_int__50] */ +#endif // end of [TEMPLATE] + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 12520(line=650, offs=3) -- 12559(line=650, offs=42) +*/ +/* +local: +global: lt_g1int_int$50$1(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4637) +tmparg = S2Evar(tk(4637)) +tmpsub = Some(tk(4637) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__lt_g1int_int__50__1(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret108__1, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp109__1, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12505(line=649, offs=1) -- 12559(line=650, offs=42) +*/ +ATSINSflab(__patsflab_lt_g1int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12546(line=650, offs=29) -- 12557(line=650, offs=40) +*/ +ATSINSmove(tmp109__1, atspre_g1int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12529(line=650, offs=12) -- 12559(line=650, offs=42) +*/ +ATSINSmove(tmpret108__1, atspre_g1int_lt_int(arg0, tmp109__1)) ; + +ATSfunbody_end() +ATSreturn(tmpret108__1) ; +} /* end of [ATSLIB_056_prelude__lt_g1int_int__50__1] */ + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) +*/ +/* +local: +global: eq_g0int_int$10$3(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4634) +tmparg = S2Evar(tk(4634)) +tmpsub = Some(tk(4634) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__10__3(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret15__3, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp16__3, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) +*/ +ATSINSflab(__patsflab_eq_g0int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) +*/ +ATSINSmove(tmp16__3, atspre_g0int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) +*/ +ATSINSmove(tmpret15__3, atspre_g0int_eq_int(arg0, tmp16__3)) ; + +ATSfunbody_end() +ATSreturn(tmpret15__3) ; +} /* end of [ATSLIB_056_prelude__eq_g0int_int__10__3] */ + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 12838(line=668, offs=3) -- 12877(line=668, offs=42) +*/ +/* +local: +global: eq_g1int_int$16$2(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4649) +tmparg = S2Evar(tk(4649)) +tmpsub = Some(tk(4649) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g1int_int__16__2(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret25__2, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp26__2, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12823(line=667, offs=1) -- 12877(line=668, offs=42) +*/ +ATSINSflab(__patsflab_eq_g1int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12864(line=668, offs=29) -- 12875(line=668, offs=40) +*/ +ATSINSmove(tmp26__2, atspre_g1int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12847(line=668, offs=12) -- 12877(line=668, offs=42) +*/ +ATSINSmove(tmpret25__2, atspre_g1int_eq_int(arg0, tmp26__2)) ; + +ATSfunbody_end() +ATSreturn(tmpret25__2) ; +} /* end of [ATSLIB_056_prelude__eq_g1int_int__16__2] */ + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) +*/ +/* +local: +global: eq_g0int_int$10$4(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4634) +tmparg = S2Evar(tk(4634)) +tmpsub = Some(tk(4634) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__10__4(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret15__4, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp16__4, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) +*/ +ATSINSflab(__patsflab_eq_g0int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) +*/ +ATSINSmove(tmp16__4, atspre_g0int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) +*/ +ATSINSmove(tmpret15__4, atspre_g0int_eq_int(arg0, tmp16__4)) ; + +ATSfunbody_end() +ATSreturn(tmpret15__4) ; +} /* end of [ATSLIB_056_prelude__eq_g0int_int__10__4] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2664(line=110, offs=4) -- 3475(line=139, offs=10) +*/ +/* +local: sqrt_int_46$0(level=0), is_prime_48$0(level=0) +global: sqrt_int_46$0(level=0), is_prime_48$0(level=0), is_semiprime_57$0(level=0) +local: +global: +*/ +ATSstatic() +atstkind_t0ype(atstype_bool) +is_semiprime_57(atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret125, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp146, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2664(line=110, offs=4) -- 3475(line=139, offs=10) +*/ +ATSINSflab(__patsflab_is_semiprime_57): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2704(line=111, offs=3) -- 3475(line=139, offs=10) +*/ +ATScaseof_beg() +/* +** ibranchlst-beg +*/ +ATSbranch_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2721(line=112, offs=7) -- 2722(line=112, offs=8) +*/ +ATSINSlab(__atstmplab6): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2677(line=110, offs=17) -- 2678(line=110, offs=18) +*/ +ATSifnthen(ATSCKpat_int(arg0, ATSPMVint(1))) { ATSINSgoto(__atstmplab8) ; } ; +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2722(line=112, offs=8) -- 2722(line=112, offs=8) +*/ +ATSINSlab(__atstmplab7): +/* +emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) +*/ +/* +ibranch-mbody: +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2726(line=112, offs=12) -- 2731(line=112, offs=17) +*/ +ATSINSmove(tmpret125, ATSPMVbool_false()) ; +ATSbranch_end() + +ATSbranch_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2739(line=113, offs=8) -- 2739(line=113, offs=8) +*/ +ATSINSlab(__atstmplab8): +/* +emit_instr: loc0 = : 0(line=0, offs=0) -- 0(line=0, offs=0) +*/ +/* +ibranch-mbody: +*/ +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2764(line=115, offs=9) -- 3465(line=138, offs=12) +*/ +/* +letpush(beg) +*/ +/* +letpush(end) +*/ + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 3441(line=137, offs=19) -- 3451(line=137, offs=29) +*/ +ATSINSmove(tmp146, sqrt_int_46(arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 3433(line=137, offs=11) -- 3453(line=137, offs=31) +*/ +ATSINSmove(tmpret125, loop_58(arg0, ATSPMVi0nt(2), tmp146)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2764(line=115, offs=9) -- 3465(line=138, offs=12) +*/ +/* +INSletpop() +*/ +ATSbranch_end() + +/* +** ibranchlst-end +*/ +ATScaseof_end() + +ATSfunbody_end() +ATSreturn(tmpret125) ; +} /* end of [is_semiprime_57] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2782(line=116, offs=15) -- 3411(line=135, offs=22) +*/ +/* +local: is_prime_48$0(level=0), loop_58$0(level=1) +global: is_prime_48$0(level=0), loop_58$0(level=1) +local: k$5128(1)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))) +global: k$5128(1)(HSEapp(HSEcst(atstkind_t0ype); HSEs2exp(S2Eextkind(atstype_int)))) +*/ +ATSstatic() +atstkind_t0ype(atstype_bool) +loop_58(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(tmpret126, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp127, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp130, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp133, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp134, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp135, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp136, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp137, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp140, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp143, atstkind_t0ype(atstype_int)) ; +ATStmpdec(tmp144, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp145, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2782(line=116, offs=15) -- 3411(line=135, offs=22) +*/ +ATSINSflab(__patsflab_loop_58): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2884(line=117, offs=16) -- 2893(line=117, offs=25) +*/ +ATSINSmove(tmp127, ATSLIB_056_prelude__lt_g1int_int__50__2(arg0, arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2881(line=117, offs=13) -- 3411(line=135, offs=22) +*/ +ATSif( +tmp127 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2916(line=118, offs=18) -- 2921(line=118, offs=23) +*/ +ATSINSmove(tmp133, atspre_g0int_mod_int(env0, arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2916(line=118, offs=18) -- 2925(line=118, offs=27) +*/ +ATSINSmove(tmp130, ATSLIB_056_prelude__eq_g0int_int__10__5(tmp133, ATSPMVi0nt(0))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2913(line=118, offs=15) -- 3109(line=124, offs=35) +*/ +ATSif( +tmp130 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2950(line=119, offs=20) -- 2960(line=119, offs=30) +*/ +ATSINSmove(tmp134, is_prime_48(arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2947(line=119, offs=17) -- 3055(line=122, offs=24) +*/ +ATSif( +tmp134 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 3003(line=120, offs=37) -- 3008(line=120, offs=42) +*/ +ATSINSmove(tmp135, atspre_g1int_div_int(env0, arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 2985(line=120, offs=19) -- 3010(line=120, offs=44) +*/ +ATSINSmove(tmpret126, is_prime_48(ATSPMVcastfn(cast, atstkind_t0ype(atstype_int), tmp135))) ; + +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 3050(line=122, offs=19) -- 3055(line=122, offs=24) +*/ +ATSINSmove(tmpret126, ATSPMVbool_false()) ; +} /* ATSendif */ +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 3096(line=124, offs=22) -- 3101(line=124, offs=27) +*/ +ATSINSmove(tmp136, atspre_g1int_add_int(arg0, ATSPMVi0nt(1))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 3091(line=124, offs=17) -- 3109(line=124, offs=35) +*/ +ATStailcal_beg() +ATSINSmove_tlcal(apy0, tmp136) ; +ATSINSmove_tlcal(apy1, arg1) ; +ATSINSargmove_tlcal(arg0, apy0) ; +ATSINSargmove_tlcal(arg1, apy1) ; +ATSINSfgoto(__patsflab_loop_58) ; +ATStailcal_end() + +} /* ATSendif */ +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 3144(line=126, offs=18) -- 3153(line=126, offs=27) +*/ +ATSINSmove(tmp137, ATSLIB_056_prelude__eq_g1int_int__16__3(arg0, arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 3141(line=126, offs=15) -- 3411(line=135, offs=22) +*/ +ATSif( +tmp137 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 3178(line=127, offs=20) -- 3183(line=127, offs=25) +*/ +ATSINSmove(tmp143, atspre_g0int_mod_int(env0, arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 3178(line=127, offs=20) -- 3187(line=127, offs=29) +*/ +ATSINSmove(tmp140, ATSLIB_056_prelude__eq_g0int_int__10__6(tmp143, ATSPMVi0nt(0))) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 3175(line=127, offs=17) -- 3370(line=133, offs=24) +*/ +ATSif( +tmp140 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 3214(line=128, offs=22) -- 3224(line=128, offs=32) +*/ +ATSINSmove(tmp144, is_prime_48(arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 3211(line=128, offs=19) -- 3325(line=131, offs=26) +*/ +ATSif( +tmp144 +) ATSthen() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 3269(line=129, offs=39) -- 3274(line=129, offs=44) +*/ +ATSINSmove(tmp145, atspre_g1int_div_int(env0, arg0)) ; + +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 3251(line=129, offs=21) -- 3276(line=129, offs=46) +*/ +ATSINSmove(tmpret126, is_prime_48(ATSPMVcastfn(cast, atstkind_t0ype(atstype_int), tmp145))) ; + +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 3320(line=131, offs=21) -- 3325(line=131, offs=26) +*/ +ATSINSmove(tmpret126, ATSPMVbool_false()) ; +} /* ATSendif */ +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 3365(line=133, offs=19) -- 3370(line=133, offs=24) +*/ +ATSINSmove(tmpret126, ATSPMVbool_false()) ; +} /* ATSendif */ +} ATSelse() { +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics-internal.dats: 3406(line=135, offs=17) -- 3411(line=135, offs=22) +*/ +ATSINSmove(tmpret126, ATSPMVbool_false()) ; +} /* ATSendif */ +} /* ATSendif */ +ATSfunbody_end() +ATSreturn(tmpret126) ; +} /* end of [loop_58] */ + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 12520(line=650, offs=3) -- 12559(line=650, offs=42) +*/ +/* +local: +global: lt_g1int_int$50$2(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4637) +tmparg = S2Evar(tk(4637)) +tmpsub = Some(tk(4637) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__lt_g1int_int__50__2(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret108__2, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp109__2, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12505(line=649, offs=1) -- 12559(line=650, offs=42) +*/ +ATSINSflab(__patsflab_lt_g1int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12546(line=650, offs=29) -- 12557(line=650, offs=40) +*/ +ATSINSmove(tmp109__2, atspre_g1int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12529(line=650, offs=12) -- 12559(line=650, offs=42) +*/ +ATSINSmove(tmpret108__2, atspre_g1int_lt_int(arg0, tmp109__2)) ; + +ATSfunbody_end() +ATSreturn(tmpret108__2) ; +} /* end of [ATSLIB_056_prelude__lt_g1int_int__50__2] */ + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) +*/ +/* +local: +global: eq_g0int_int$10$5(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4634) +tmparg = S2Evar(tk(4634)) +tmpsub = Some(tk(4634) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__10__5(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret15__5, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp16__5, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) +*/ +ATSINSflab(__patsflab_eq_g0int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) +*/ +ATSINSmove(tmp16__5, atspre_g0int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) +*/ +ATSINSmove(tmpret15__5, atspre_g0int_eq_int(arg0, tmp16__5)) ; + +ATSfunbody_end() +ATSreturn(tmpret15__5) ; +} /* end of [ATSLIB_056_prelude__eq_g0int_int__10__5] */ + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 12838(line=668, offs=3) -- 12877(line=668, offs=42) +*/ +/* +local: +global: eq_g1int_int$16$3(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4649) +tmparg = S2Evar(tk(4649)) +tmpsub = Some(tk(4649) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g1int_int__16__3(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret25__3, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp26__3, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12823(line=667, offs=1) -- 12877(line=668, offs=42) +*/ +ATSINSflab(__patsflab_eq_g1int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12864(line=668, offs=29) -- 12875(line=668, offs=40) +*/ +ATSINSmove(tmp26__3, atspre_g1int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12847(line=668, offs=12) -- 12877(line=668, offs=42) +*/ +ATSINSmove(tmpret25__3, atspre_g1int_eq_int(arg0, tmp26__3)) ; + +ATSfunbody_end() +ATSreturn(tmpret25__3) ; +} /* end of [ATSLIB_056_prelude__eq_g1int_int__16__3] */ + +/* +/home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats: 12259(line=635, offs=3) -- 12298(line=635, offs=42) +*/ +/* +local: +global: eq_g0int_int$10$6(level=2) +local: +global: +*/ +ATSstatic() +/* +imparg = tk(4634) +tmparg = S2Evar(tk(4634)) +tmpsub = Some(tk(4634) -> S2Eextkind(atstype_int)) +*/ +atstkind_t0ype(atstype_bool) +ATSLIB_056_prelude__eq_g0int_int__10__6(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret15__6, atstkind_t0ype(atstype_bool)) ; +ATStmpdec(tmp16__6, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12244(line=634, offs=1) -- 12298(line=635, offs=42) +*/ +ATSINSflab(__patsflab_eq_g0int_int): +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12285(line=635, offs=29) -- 12296(line=635, offs=40) +*/ +ATSINSmove(tmp16__6, atspre_g0int2int_int_int(arg1)) ; + +/* +emit_instr: loc0 = /home/vanessa/.atspkg/0.4.2/ATS2-Postiats-gmp-0.4.2/lib/ats2-postiats-0.4.2/prelude/DATS/integer.dats({$PATSPRE}/DATS/integer.dats): 12268(line=635, offs=12) -- 12298(line=635, offs=42) +*/ +ATSINSmove(tmpret15__6, atspre_g0int_eq_int(arg0, tmp16__6)) ; + +ATSfunbody_end() +ATSreturn(tmpret15__6) ; +} /* end of [ATSLIB_056_prelude__eq_g0int_int__10__6] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics.dats: 397(line=17, offs=24) -- 415(line=18, offs=13) +*/ +/* +local: is_prime_48$0(level=0) +global: sqrt_int_46$0(level=0), is_prime_48$0(level=0), is_prime_ats$64$0(level=0) +local: +global: +*/ +ATSextern() +atstkind_t0ype(atstype_bool) +is_prime_ats(atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret147, atstkind_t0ype(atstype_bool)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics.dats: 384(line=17, offs=11) -- 416(line=18, offs=14) +*/ +ATSINSflab(__patsflab_is_prime_ats): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics.dats: 405(line=18, offs=3) -- 415(line=18, offs=13) +*/ +ATSINSmove(tmpret147, is_prime_48(arg0)) ; + +ATSfunbody_end() +ATSreturn(tmpret147) ; +} /* end of [is_prime_ats] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics.dats: 445(line=20, offs=28) -- 467(line=21, offs=17) +*/ +/* +local: is_semiprime_57$0(level=0) +global: sqrt_int_46$0(level=0), is_prime_48$0(level=0), is_semiprime_57$0(level=0), is_semiprime_ats$65$0(level=0) +local: +global: +*/ +ATSextern() +atstkind_t0ype(atstype_bool) +is_semiprime_ats(atstkind_t0ype(atstype_int) arg0) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret148, atstkind_t0ype(atstype_bool)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics.dats: 428(line=20, offs=11) -- 468(line=21, offs=18) +*/ +ATSINSflab(__patsflab_is_semiprime_ats): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics.dats: 453(line=21, offs=3) -- 467(line=21, offs=17) +*/ +ATSINSmove(tmpret148, is_semiprime_57(arg0)) ; + +ATSfunbody_end() +ATSreturn(tmpret148) ; +} /* end of [is_semiprime_ats] */ + +/* +/home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics.dats: 488(line=23, offs=19) -- 508(line=24, offs=12) +*/ +/* +local: exp_3$0(level=0) +global: exp_3$0(level=0), exp_ats$66$0(level=0) +local: +global: +*/ +ATSextern() +atstkind_t0ype(atstype_int) +exp_ats(atstkind_t0ype(atstype_int) arg0, atstkind_t0ype(atstype_int) arg1) +{ +/* tmpvardeclst(beg) */ +ATStmpdec(tmpret149, atstkind_t0ype(atstype_int)) ; +/* tmpvardeclst(end) */ +ATSfunbody_beg() +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics.dats: 480(line=23, offs=11) -- 508(line=24, offs=12) +*/ +ATSINSflab(__patsflab_exp_ats): +/* +emit_instr: loc0 = /home/vanessa/dev/haskell/fast-arithmetic/fast-arithmetic/ats-src/numerics.dats: 499(line=24, offs=3) -- 508(line=24, offs=12) +*/ +ATSINSmove(tmpret149, exp_3(arg0, arg1)) ; + +ATSfunbody_end() +ATSreturn(tmpret149) ; +} /* end of [exp_ats] */ + +#if(0) +/* +** for initialization(dynloading) +*/ +ATSdynloadflag_minit(_057_home_057_vanessa_057_dev_057_haskell_057_fast_055_arithmetic_057_fast_055_arithmetic_057_ats_055_src_057_numerics_056_dats__dynloadflag) ; +ATSextern() +atsvoid_t0ype +_057_home_057_vanessa_057_dev_057_haskell_057_fast_055_arithmetic_057_fast_055_arithmetic_057_ats_055_src_057_numerics_056_dats__dynload() +{ +ATSfunbody_beg() +ATSdynload(/*void*/) +ATSdynloadflag_sta( +_057_home_057_vanessa_057_dev_057_haskell_057_fast_055_arithmetic_057_fast_055_arithmetic_057_ats_055_src_057_numerics_056_dats__dynloadflag +) ; +ATSif( +ATSCKiseqz( +_057_home_057_vanessa_057_dev_057_haskell_057_fast_055_arithmetic_057_fast_055_arithmetic_057_ats_055_src_057_numerics_056_dats__dynloadflag +) +) ATSthen() { +ATSdynloadset(_057_home_057_vanessa_057_dev_057_haskell_057_fast_055_arithmetic_057_fast_055_arithmetic_057_ats_055_src_057_numerics_056_dats__dynloadflag) ; /* dynexnlst-initize(beg) */ diff --git a/common/Numeric/Haskell.hs b/common/Numeric/Haskell.hs --- a/common/Numeric/Haskell.hs +++ b/common/Numeric/Haskell.hs @@ -5,9 +5,11 @@ , hsMaxRegions , hsDerangement , hsIsSemiprime + , hsPrimorial ) where -import qualified Math.Combinat.Numbers as Ext +import qualified Math.Combinat.Numbers as Ext +import Math.NumberTheory.Primes (primes, unPrime) {-# SPECIALIZE hsIsSemiprime :: Int -> Bool #-} hsIsSemiprime :: Integral a => a -> Bool @@ -40,3 +42,7 @@ derangements = fmap snd g where g = (0, 1) : (1, 0) : zipWith step g (tail g) step (_, n) (i, m) = (i + 1, i * (n + m)) + +{-# SPECIALIZE hsPrimorial :: Int -> Integer #-} +hsPrimorial :: Integral a => Int -> a +hsPrimorial n = product (unPrime <$> take n primes) diff --git a/fast-arithmetic.cabal b/fast-arithmetic.cabal --- a/fast-arithmetic.cabal +++ b/fast-arithmetic.cabal @@ -1,15 +1,12 @@ cabal-version: 2.0 name: fast-arithmetic -version: 0.6.5.0 +version: 0.6.5.1 license: BSD3 license-file: LICENSE copyright: Copyright: (c) 2018-2020 Vanessa McHale maintainer: vamchale@gmail.com author: Vanessa McHale -tested-with: - ghc ==8.2.2 ghc ==8.4.4 ghc ==8.6.5 - ghc ==8.8.3 - +tested-with: ghc ==8.2.2 ghc ==8.4.4 ghc ==8.6.5 ghc ==8.8.4 bug-reports: https://github.com/vmchale/hs-ats/issues synopsis: Fast functions on integers. description: @@ -87,7 +84,8 @@ ghc-options: -Wall -O2 build-depends: base >=4.3 && <5, - combinat -any + combinat -any, + arithmoi >=0.9.0.0 if impl(ghc >=8.0) ghc-options: @@ -130,6 +128,7 @@ criterion -any, arithmoi >=0.4.3.0, combinat -any, + exact-combinatorics -any, pure-haskell -any if flag(development) diff --git a/pkg.dhall b/pkg.dhall --- a/pkg.dhall +++ b/pkg.dhall @@ -1,8 +1,8 @@ let prelude = - https://raw.githubusercontent.com/vmchale/atspkg/master/ats-pkg/dhall/atspkg-prelude.dhall sha256:33e41e509b6cfd0b075d1a8a5210ddfd1919372f9d972c2da783c6187d2298ba + https://hackage.haskell.org/package/ats-pkg/src/dhall/atspkg-prelude.dhall -in λ(x : List Natural) - → prelude.makeHsPkg { x = x, name = "fast-arithmetic" } +in λ(x : List Natural) → + prelude.makeHsPkg { x, name = "fast-arithmetic" } ⫽ { libDeps = prelude.mapPlainDeps [ "atscntrb-hx-intinf" ] , description = Some "Library for number theory & combinatorics in ATS" } diff --git a/src/Numeric/Combinatorics.hs b/src/Numeric/Combinatorics.hs --- a/src/Numeric/Combinatorics.hs +++ b/src/Numeric/Combinatorics.hs @@ -42,7 +42,7 @@ mPtr <- f (fromIntegral n) (fromIntegral k) peekInteger mPtr <* mpz_clear mPtr --- | \\( !n \\) +-- | \( !n \) -- -- > λ:> derangement <$> [0..10] -- > [1,0,1,2,9,44,265,1854,14833,133496,1334961] @@ -74,8 +74,8 @@ doubleFactorial :: Int -> Integer doubleFactorial = conjugateMPZ double_factorial_ats --- | Compute the maximal number of regions obtained by joining \\( n \\) points +-- | Compute the maximal number of regions obtained by joining \( n \) points -- about a circle by straight lines. See [here](https://oeis.org/A000127). -maxRegions :: Int -- ^ \\( n \\) +maxRegions :: Int -- ^ \( n \) -> Integer maxRegions = conjugateMPZ max_regions_ats diff --git a/src/Numeric/Common.hs b/src/Numeric/Common.hs --- a/src/Numeric/Common.hs +++ b/src/Numeric/Common.hs @@ -1,8 +1,19 @@ module Numeric.Common ( conjugate , asTest + , conjugateMPZ ) where import Foreign.C +import Foreign.Ptr (Ptr) +import Numeric.GMP.Raw.Unsafe (mpz_clear) +import Numeric.GMP.Types +import Numeric.GMP.Utils +import System.IO.Unsafe (unsafeDupablePerformIO) + +conjugateMPZ :: (CInt -> IO (Ptr MPZ)) -> Int -> Integer +conjugateMPZ f n = unsafeDupablePerformIO $ do + mPtr <- f (fromIntegral n) + peekInteger mPtr <* mpz_clear mPtr asTest :: Integral a => (CInt -> CBool) -> a -> Bool asTest f = convertBool . f . fromIntegral diff --git a/test/Spec.hs b/test/Spec.hs --- a/test/Spec.hs +++ b/test/Spec.hs @@ -1,4 +1,3 @@ --- vim: filetype=hspec module Main (main) where import qualified Math.Combinat.Numbers as Ext