4279 lines
71 KiB
C++
4279 lines
71 KiB
C++
// Lean compiler output
|
|
// Module: init.lean.compiler.ir
|
|
// Imports: init.default init.lean.name init.lean.kvmap
|
|
#include "runtime/object.h"
|
|
#include "runtime/apply.h"
|
|
typedef lean::object obj; typedef lean::usize usize;
|
|
typedef lean::uint8 uint8; typedef lean::uint16 uint16;
|
|
typedef lean::uint32 uint32; typedef lean::uint64 uint64;
|
|
#if defined(__clang__)
|
|
#pragma clang diagnostic ignored "-Wunused-parameter"
|
|
#pragma clang diagnostic ignored "-Wunused-label"
|
|
#elif defined(__GNUC__) && !defined(__CLANG__)
|
|
#pragma GCC diagnostic ignored "-Wunused-parameter"
|
|
#pragma GCC diagnostic ignored "-Wunused-label"
|
|
#pragma GCC diagnostic ignored "-Wunused-but-set-variable"
|
|
#endif
|
|
uint8 l_lean_ir_alts_is__pure(obj*);
|
|
obj* l_rbnode_find___main___at_lean_name__map_contains___spec__2(obj*, obj*, obj*, obj*);
|
|
obj* l_list_foldl___main___at_lean_ir_insert__params___spec__1(obj*, obj*);
|
|
uint8 l_lean_ir_ctor__info_beq___main(obj*, obj*);
|
|
obj* l_lean_ir_expr_has__aeqv;
|
|
obj* l___private_init_lean_compiler_ir_3__with__bv(obj*, obj*, obj*, obj*);
|
|
obj* l_lean_ir_args_alpha__eqv___boxed(obj*, obj*, obj*);
|
|
obj* l_lean_ir_ctor__info_beq___main___boxed(obj*, obj*);
|
|
obj* l___private_init_lean_compiler_ir_9__alts_collect(obj*, obj*, obj*);
|
|
obj* l_lean_ir_expr_alpha__eqv___boxed(obj*, obj*, obj*);
|
|
obj* l_lean_ir_args_alpha__eqv___main___boxed(obj*, obj*, obj*);
|
|
obj* l_lean_ir_alt_alpha__eqv___main___boxed(obj*, obj*, obj*);
|
|
obj* l_lean_ir_varid_has__aeqv;
|
|
obj* l_lean_ir_add__params__rename___main(obj*, obj*, obj*);
|
|
obj* l_lean_ir_fnbody_alpha__eqv___main___boxed(obj*, obj*, obj*);
|
|
uint8 l_lean_ir_litval_beq(obj*, obj*);
|
|
obj* l_lean_ir_arg_has__aeqv;
|
|
obj* l_lean_ir_litval_beq___boxed(obj*, obj*);
|
|
obj* l_rbmap_insert___main___at_lean_name__map_insert___spec__1___rarg(obj*, obj*, obj*);
|
|
uint8 l_lean_ir_expr_is__pure___main(obj*);
|
|
obj* l_lean_ir_add__param__rename(obj*, obj*, obj*);
|
|
uint8 l_lean_ir_expr_is__pure(obj*);
|
|
obj* l_lean_ir_alt_alpha__eqv___boxed(obj*, obj*, obj*);
|
|
uint8 l_lean_ir_fnbody_alpha__eqv___main(obj*, obj*, obj*);
|
|
obj* l_lean_ir_alt_ctor(obj*, obj*);
|
|
uint8 l_lean_ir_type_beq___main(uint8, uint8);
|
|
uint8 l_lean_ir_fnbody_beq(obj*, obj*);
|
|
obj* l_lean_ir_args_has__aeqv;
|
|
obj* l_lean_ir_alts_is__pure___boxed(obj*);
|
|
obj* l___private_init_lean_compiler_ir_1__skip___boxed(obj*);
|
|
obj* l___private_init_lean_compiler_ir_4__with__params(obj*, obj*, obj*, obj*);
|
|
obj* l_lean_ir_add__var__rename(obj*, obj*, obj*);
|
|
obj* l_lean_ir_type_has__beq;
|
|
obj* l_lean_ir_arg_alpha__eqv___main___boxed(obj*, obj*, obj*);
|
|
obj* l___private_init_lean_compiler_ir_2__var_collect(obj*, obj*, obj*);
|
|
uint8 l_lean_ir_fnbody_is__pure(obj*);
|
|
obj* l___private_init_lean_compiler_ir_1__skip(obj*);
|
|
obj* l_lean_ir_ctor__info_beq___boxed(obj*, obj*);
|
|
obj* l_lean_ir_litval_has__beq;
|
|
obj* l_lean_ir_alt_is__pure___main___boxed(obj*);
|
|
obj* l_rbmap_insert___main___at_lean_name__set_insert___spec__1(obj*, obj*, obj*);
|
|
obj* l_lean_ir_fnbody_is__pure___main___boxed(obj*);
|
|
obj* l___private_init_lean_compiler_ir_9__alt_collect(obj*, obj*, obj*);
|
|
uint8 l_lean_ir_expr_alpha__eqv___main(obj*, obj*, obj*);
|
|
obj* l_rbmap_find___main___at_lean_ir_varid_alpha__eqv___spec__1___boxed(obj*, obj*);
|
|
obj* l___private_init_lean_compiler_ir_9__alts_collect___main(obj*, obj*, obj*);
|
|
obj* l_lean_ir_ctor__info_has__beq;
|
|
namespace lean {
|
|
uint8 nat_dec_eq(obj*, obj*);
|
|
}
|
|
uint8 l_lean_ir_args_alpha__eqv___main(obj*, obj*, obj*);
|
|
obj* l_lean_ir_fnbody_has__beq;
|
|
obj* l_lean_ir_free__vars(obj*);
|
|
obj* l_lean_ir_fnbody_alpha__eqv___boxed(obj*, obj*, obj*);
|
|
uint8 l_lean_ir_alts_is__pure___main(obj*);
|
|
obj* l___private_init_lean_compiler_ir_6__arg_collect___main(obj*, obj*, obj*);
|
|
obj* l___private_init_lean_compiler_ir_7__args_collect___main(obj*, obj*, obj*);
|
|
obj* l_lean_ir_type_beq___boxed(obj*, obj*);
|
|
uint8 l_lean_kvmap_eqv(obj*, obj*);
|
|
uint8 l_lean_ir_fnbody_is__pure___main(obj*);
|
|
uint8 l_lean_ir_litval_beq___main(obj*, obj*);
|
|
obj* l___private_init_lean_compiler_ir_8__expr_collect(obj*, obj*, obj*);
|
|
obj* l_lean_ir_fnbody_is__pure___boxed(obj*);
|
|
obj* l_lean_ir_alts_alpha__eqv___boxed(obj*, obj*, obj*);
|
|
uint8 l_lean_ir_alts_alpha__eqv___main(obj*, obj*, obj*);
|
|
obj* l_lean_ir_litval_beq___main___boxed(obj*, obj*);
|
|
obj* l___private_init_lean_compiler_ir_5__seq(obj*, obj*, obj*, obj*);
|
|
uint8 l_lean_ir_expr_alpha__eqv(obj*, obj*, obj*);
|
|
uint8 l_lean_ir_fnbody_alpha__eqv(obj*, obj*, obj*);
|
|
obj* l_lean_ir_varid_alpha__eqv___boxed(obj*, obj*, obj*);
|
|
uint8 l_lean_name__set_contains(obj*, obj*);
|
|
obj* l_lean_ir_arg_alpha__eqv___boxed(obj*, obj*, obj*);
|
|
obj* l_lean_ir_alt_default(obj*);
|
|
extern "C" uint8 lean_name_dec_eq(obj*, obj*);
|
|
obj* l_lean_ir_insert__params(obj*, obj*);
|
|
uint8 l_lean_ir_varid_alpha__eqv(obj*, obj*, obj*);
|
|
namespace lean {
|
|
uint8 string_dec_eq(obj*, obj*);
|
|
}
|
|
obj* l_lean_ir_expr_alpha__eqv___main___boxed(obj*, obj*, obj*);
|
|
obj* l___private_init_lean_compiler_ir_9__fnbody_collect___main(obj*, obj*, obj*);
|
|
obj* l_rbmap_find___main___at_lean_ir_varid_alpha__eqv___spec__1(obj*, obj*);
|
|
obj* l_lean_ir_type_beq___main___boxed(obj*, obj*);
|
|
obj* l___private_init_lean_compiler_ir_9__alt_collect___main(obj*, obj*, obj*);
|
|
obj* l_lean_ir_alts_alpha__eqv___main___boxed(obj*, obj*, obj*);
|
|
uint8 l_lean_ir_alts_alpha__eqv(obj*, obj*, obj*);
|
|
obj* l_lean_ir_alt_is__pure___boxed(obj*);
|
|
obj* l___private_init_lean_compiler_ir_6__arg_collect(obj*, obj*, obj*);
|
|
uint8 l_lean_ir_type_beq(uint8, uint8);
|
|
obj* l___private_init_lean_compiler_ir_9__fnbody_collect(obj*, obj*, obj*);
|
|
obj* l___private_init_lean_compiler_ir_1__skip___rarg___boxed(obj*);
|
|
uint8 l_lean_ir_ctor__info_beq(obj*, obj*);
|
|
obj* l_lean_ir_fnbody_beq___boxed(obj*, obj*);
|
|
uint8 l_lean_ir_alt_is__pure(obj*);
|
|
uint8 l_lean_ir_arg_alpha__eqv___main(obj*, obj*, obj*);
|
|
obj* l_lean_ir_expr_is__pure___main___boxed(obj*);
|
|
uint8 l_lean_ir_args_alpha__eqv(obj*, obj*, obj*);
|
|
obj* l_lean_ir_alts_is__pure___main___boxed(obj*);
|
|
uint8 l_lean_ir_alt_alpha__eqv___main(obj*, obj*, obj*);
|
|
uint8 l_lean_ir_arg_alpha__eqv(obj*, obj*, obj*);
|
|
obj* l___private_init_lean_compiler_ir_8__expr_collect___main(obj*, obj*, obj*);
|
|
obj* l_lean_ir_add__params__rename(obj*, obj*, obj*);
|
|
obj* l___private_init_lean_compiler_ir_7__args_collect(obj*, obj*, obj*);
|
|
uint8 l_lean_ir_alt_is__pure___main(obj*);
|
|
obj* l___private_init_lean_compiler_ir_1__skip___rarg(obj*);
|
|
uint8 l_lean_ir_alt_alpha__eqv(obj*, obj*, obj*);
|
|
obj* l_lean_ir_expr_is__pure___boxed(obj*);
|
|
uint8 l_lean_ir_type_beq___main(uint8 x_0, uint8 x_1) {
|
|
_start:
|
|
{
|
|
switch (x_0) {
|
|
case 0:
|
|
{
|
|
switch (x_1) {
|
|
case 0:
|
|
{
|
|
uint8 x_2;
|
|
x_2 = 1;
|
|
return x_2;
|
|
}
|
|
default:
|
|
{
|
|
uint8 x_3;
|
|
x_3 = 0;
|
|
return x_3;
|
|
}
|
|
}
|
|
}
|
|
case 1:
|
|
{
|
|
switch (x_1) {
|
|
case 1:
|
|
{
|
|
uint8 x_4;
|
|
x_4 = 1;
|
|
return x_4;
|
|
}
|
|
default:
|
|
{
|
|
uint8 x_5;
|
|
x_5 = 0;
|
|
return x_5;
|
|
}
|
|
}
|
|
}
|
|
case 2:
|
|
{
|
|
switch (x_1) {
|
|
case 2:
|
|
{
|
|
uint8 x_6;
|
|
x_6 = 1;
|
|
return x_6;
|
|
}
|
|
default:
|
|
{
|
|
uint8 x_7;
|
|
x_7 = 0;
|
|
return x_7;
|
|
}
|
|
}
|
|
}
|
|
case 3:
|
|
{
|
|
switch (x_1) {
|
|
case 3:
|
|
{
|
|
uint8 x_8;
|
|
x_8 = 1;
|
|
return x_8;
|
|
}
|
|
default:
|
|
{
|
|
uint8 x_9;
|
|
x_9 = 0;
|
|
return x_9;
|
|
}
|
|
}
|
|
}
|
|
case 4:
|
|
{
|
|
switch (x_1) {
|
|
case 4:
|
|
{
|
|
uint8 x_10;
|
|
x_10 = 1;
|
|
return x_10;
|
|
}
|
|
default:
|
|
{
|
|
uint8 x_11;
|
|
x_11 = 0;
|
|
return x_11;
|
|
}
|
|
}
|
|
}
|
|
case 5:
|
|
{
|
|
switch (x_1) {
|
|
case 5:
|
|
{
|
|
uint8 x_12;
|
|
x_12 = 1;
|
|
return x_12;
|
|
}
|
|
default:
|
|
{
|
|
uint8 x_13;
|
|
x_13 = 0;
|
|
return x_13;
|
|
}
|
|
}
|
|
}
|
|
case 6:
|
|
{
|
|
switch (x_1) {
|
|
case 6:
|
|
{
|
|
uint8 x_14;
|
|
x_14 = 1;
|
|
return x_14;
|
|
}
|
|
default:
|
|
{
|
|
uint8 x_15;
|
|
x_15 = 0;
|
|
return x_15;
|
|
}
|
|
}
|
|
}
|
|
case 7:
|
|
{
|
|
switch (x_1) {
|
|
case 7:
|
|
{
|
|
uint8 x_16;
|
|
x_16 = 1;
|
|
return x_16;
|
|
}
|
|
default:
|
|
{
|
|
uint8 x_17;
|
|
x_17 = 0;
|
|
return x_17;
|
|
}
|
|
}
|
|
}
|
|
default:
|
|
{
|
|
switch (x_1) {
|
|
case 8:
|
|
{
|
|
uint8 x_18;
|
|
x_18 = 1;
|
|
return x_18;
|
|
}
|
|
default:
|
|
{
|
|
uint8 x_19;
|
|
x_19 = 0;
|
|
return x_19;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
obj* l_lean_ir_type_beq___main___boxed(obj* x_0, obj* x_1) {
|
|
_start:
|
|
{
|
|
uint8 x_2; uint8 x_3; uint8 x_4; obj* x_5;
|
|
x_2 = lean::unbox(x_0);
|
|
x_3 = lean::unbox(x_1);
|
|
x_4 = l_lean_ir_type_beq___main(x_2, x_3);
|
|
x_5 = lean::box(x_4);
|
|
return x_5;
|
|
}
|
|
}
|
|
uint8 l_lean_ir_type_beq(uint8 x_0, uint8 x_1) {
|
|
_start:
|
|
{
|
|
uint8 x_2;
|
|
x_2 = l_lean_ir_type_beq___main(x_0, x_1);
|
|
return x_2;
|
|
}
|
|
}
|
|
obj* l_lean_ir_type_beq___boxed(obj* x_0, obj* x_1) {
|
|
_start:
|
|
{
|
|
uint8 x_2; uint8 x_3; uint8 x_4; obj* x_5;
|
|
x_2 = lean::unbox(x_0);
|
|
x_3 = lean::unbox(x_1);
|
|
x_4 = l_lean_ir_type_beq(x_2, x_3);
|
|
x_5 = lean::box(x_4);
|
|
return x_5;
|
|
}
|
|
}
|
|
obj* _init_l_lean_ir_type_has__beq() {
|
|
_start:
|
|
{
|
|
obj* x_0;
|
|
x_0 = lean::alloc_closure(reinterpret_cast<void*>(l_lean_ir_type_beq___boxed), 2, 0);
|
|
return x_0;
|
|
}
|
|
}
|
|
uint8 l_lean_ir_litval_beq___main(obj* x_0, obj* x_1) {
|
|
_start:
|
|
{
|
|
if (lean::obj_tag(x_0) == 0)
|
|
{
|
|
if (lean::obj_tag(x_1) == 0)
|
|
{
|
|
obj* x_2; obj* x_3; uint8 x_4;
|
|
x_2 = lean::cnstr_get(x_0, 0);
|
|
x_3 = lean::cnstr_get(x_1, 0);
|
|
x_4 = lean::nat_dec_eq(x_2, x_3);
|
|
if (x_4 == 0)
|
|
{
|
|
uint8 x_5;
|
|
x_5 = 0;
|
|
return x_5;
|
|
}
|
|
else
|
|
{
|
|
uint8 x_6;
|
|
x_6 = 1;
|
|
return x_6;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
uint8 x_7;
|
|
x_7 = 0;
|
|
return x_7;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
if (lean::obj_tag(x_1) == 0)
|
|
{
|
|
uint8 x_8;
|
|
x_8 = 0;
|
|
return x_8;
|
|
}
|
|
else
|
|
{
|
|
obj* x_9; obj* x_10; uint8 x_11;
|
|
x_9 = lean::cnstr_get(x_0, 0);
|
|
x_10 = lean::cnstr_get(x_1, 0);
|
|
x_11 = lean::string_dec_eq(x_9, x_10);
|
|
if (x_11 == 0)
|
|
{
|
|
uint8 x_12;
|
|
x_12 = 0;
|
|
return x_12;
|
|
}
|
|
else
|
|
{
|
|
uint8 x_13;
|
|
x_13 = 1;
|
|
return x_13;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
obj* l_lean_ir_litval_beq___main___boxed(obj* x_0, obj* x_1) {
|
|
_start:
|
|
{
|
|
uint8 x_2; obj* x_3;
|
|
x_2 = l_lean_ir_litval_beq___main(x_0, x_1);
|
|
x_3 = lean::box(x_2);
|
|
lean::dec(x_0);
|
|
lean::dec(x_1);
|
|
return x_3;
|
|
}
|
|
}
|
|
uint8 l_lean_ir_litval_beq(obj* x_0, obj* x_1) {
|
|
_start:
|
|
{
|
|
uint8 x_2;
|
|
x_2 = l_lean_ir_litval_beq___main(x_0, x_1);
|
|
return x_2;
|
|
}
|
|
}
|
|
obj* l_lean_ir_litval_beq___boxed(obj* x_0, obj* x_1) {
|
|
_start:
|
|
{
|
|
uint8 x_2; obj* x_3;
|
|
x_2 = l_lean_ir_litval_beq(x_0, x_1);
|
|
x_3 = lean::box(x_2);
|
|
lean::dec(x_0);
|
|
lean::dec(x_1);
|
|
return x_3;
|
|
}
|
|
}
|
|
obj* _init_l_lean_ir_litval_has__beq() {
|
|
_start:
|
|
{
|
|
obj* x_0;
|
|
x_0 = lean::alloc_closure(reinterpret_cast<void*>(l_lean_ir_litval_beq___boxed), 2, 0);
|
|
return x_0;
|
|
}
|
|
}
|
|
uint8 l_lean_ir_ctor__info_beq___main(obj* x_0, obj* x_1) {
|
|
_start:
|
|
{
|
|
obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; uint8 x_10;
|
|
x_2 = lean::cnstr_get(x_0, 0);
|
|
x_3 = lean::cnstr_get(x_0, 1);
|
|
x_4 = lean::cnstr_get(x_0, 2);
|
|
x_5 = lean::cnstr_get(x_0, 3);
|
|
x_6 = lean::cnstr_get(x_1, 0);
|
|
x_7 = lean::cnstr_get(x_1, 1);
|
|
x_8 = lean::cnstr_get(x_1, 2);
|
|
x_9 = lean::cnstr_get(x_1, 3);
|
|
x_10 = lean_name_dec_eq(x_2, x_6);
|
|
if (x_10 == 0)
|
|
{
|
|
uint8 x_11;
|
|
x_11 = 0;
|
|
return x_11;
|
|
}
|
|
else
|
|
{
|
|
uint8 x_12;
|
|
x_12 = lean::nat_dec_eq(x_3, x_7);
|
|
if (x_12 == 0)
|
|
{
|
|
uint8 x_13;
|
|
x_13 = 0;
|
|
return x_13;
|
|
}
|
|
else
|
|
{
|
|
uint8 x_14;
|
|
x_14 = lean::nat_dec_eq(x_4, x_8);
|
|
if (x_14 == 0)
|
|
{
|
|
uint8 x_15;
|
|
x_15 = 0;
|
|
return x_15;
|
|
}
|
|
else
|
|
{
|
|
uint8 x_16;
|
|
x_16 = lean::nat_dec_eq(x_5, x_9);
|
|
if (x_16 == 0)
|
|
{
|
|
uint8 x_17;
|
|
x_17 = 0;
|
|
return x_17;
|
|
}
|
|
else
|
|
{
|
|
uint8 x_18;
|
|
x_18 = 1;
|
|
return x_18;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
obj* l_lean_ir_ctor__info_beq___main___boxed(obj* x_0, obj* x_1) {
|
|
_start:
|
|
{
|
|
uint8 x_2; obj* x_3;
|
|
x_2 = l_lean_ir_ctor__info_beq___main(x_0, x_1);
|
|
x_3 = lean::box(x_2);
|
|
lean::dec(x_0);
|
|
lean::dec(x_1);
|
|
return x_3;
|
|
}
|
|
}
|
|
uint8 l_lean_ir_ctor__info_beq(obj* x_0, obj* x_1) {
|
|
_start:
|
|
{
|
|
uint8 x_2;
|
|
x_2 = l_lean_ir_ctor__info_beq___main(x_0, x_1);
|
|
return x_2;
|
|
}
|
|
}
|
|
obj* l_lean_ir_ctor__info_beq___boxed(obj* x_0, obj* x_1) {
|
|
_start:
|
|
{
|
|
uint8 x_2; obj* x_3;
|
|
x_2 = l_lean_ir_ctor__info_beq(x_0, x_1);
|
|
x_3 = lean::box(x_2);
|
|
lean::dec(x_0);
|
|
lean::dec(x_1);
|
|
return x_3;
|
|
}
|
|
}
|
|
obj* _init_l_lean_ir_ctor__info_has__beq() {
|
|
_start:
|
|
{
|
|
obj* x_0;
|
|
x_0 = lean::alloc_closure(reinterpret_cast<void*>(l_lean_ir_ctor__info_beq___boxed), 2, 0);
|
|
return x_0;
|
|
}
|
|
}
|
|
obj* l_lean_ir_alt_ctor(obj* x_0, obj* x_1) {
|
|
_start:
|
|
{
|
|
obj* x_2;
|
|
x_2 = lean::alloc_cnstr(0, 2, 0);
|
|
lean::cnstr_set(x_2, 0, x_0);
|
|
lean::cnstr_set(x_2, 1, x_1);
|
|
return x_2;
|
|
}
|
|
}
|
|
obj* l_lean_ir_alt_default(obj* x_0) {
|
|
_start:
|
|
{
|
|
obj* x_1;
|
|
x_1 = lean::alloc_cnstr(1, 1, 0);
|
|
lean::cnstr_set(x_1, 0, x_0);
|
|
return x_1;
|
|
}
|
|
}
|
|
uint8 l_lean_ir_expr_is__pure___main(obj* x_0) {
|
|
_start:
|
|
{
|
|
switch (lean::obj_tag(x_0)) {
|
|
case 1:
|
|
{
|
|
uint8 x_1;
|
|
x_1 = 0;
|
|
return x_1;
|
|
}
|
|
case 2:
|
|
{
|
|
uint8 x_2;
|
|
x_2 = 0;
|
|
return x_2;
|
|
}
|
|
case 9:
|
|
{
|
|
uint8 x_3;
|
|
x_3 = 0;
|
|
return x_3;
|
|
}
|
|
case 10:
|
|
{
|
|
uint8 x_4;
|
|
x_4 = 0;
|
|
return x_4;
|
|
}
|
|
case 12:
|
|
{
|
|
uint8 x_5;
|
|
x_5 = 0;
|
|
return x_5;
|
|
}
|
|
case 13:
|
|
{
|
|
uint8 x_6;
|
|
x_6 = 0;
|
|
return x_6;
|
|
}
|
|
default:
|
|
{
|
|
uint8 x_7;
|
|
x_7 = 1;
|
|
return x_7;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
obj* l_lean_ir_expr_is__pure___main___boxed(obj* x_0) {
|
|
_start:
|
|
{
|
|
uint8 x_1; obj* x_2;
|
|
x_1 = l_lean_ir_expr_is__pure___main(x_0);
|
|
x_2 = lean::box(x_1);
|
|
lean::dec(x_0);
|
|
return x_2;
|
|
}
|
|
}
|
|
uint8 l_lean_ir_expr_is__pure(obj* x_0) {
|
|
_start:
|
|
{
|
|
uint8 x_1;
|
|
x_1 = l_lean_ir_expr_is__pure___main(x_0);
|
|
return x_1;
|
|
}
|
|
}
|
|
obj* l_lean_ir_expr_is__pure___boxed(obj* x_0) {
|
|
_start:
|
|
{
|
|
uint8 x_1; obj* x_2;
|
|
x_1 = l_lean_ir_expr_is__pure(x_0);
|
|
x_2 = lean::box(x_1);
|
|
lean::dec(x_0);
|
|
return x_2;
|
|
}
|
|
}
|
|
uint8 l_lean_ir_fnbody_is__pure___main(obj* x_0) {
|
|
_start:
|
|
{
|
|
switch (lean::obj_tag(x_0)) {
|
|
case 0:
|
|
{
|
|
obj* x_1; obj* x_2; uint8 x_3;
|
|
x_1 = lean::cnstr_get(x_0, 1);
|
|
x_2 = lean::cnstr_get(x_0, 2);
|
|
x_3 = l_lean_ir_expr_is__pure___main(x_1);
|
|
if (x_3 == 0)
|
|
{
|
|
return x_3;
|
|
}
|
|
else
|
|
{
|
|
x_0 = x_2;
|
|
goto _start;
|
|
}
|
|
}
|
|
case 1:
|
|
{
|
|
obj* x_5; obj* x_6; uint8 x_7;
|
|
x_5 = lean::cnstr_get(x_0, 2);
|
|
x_6 = lean::cnstr_get(x_0, 3);
|
|
x_7 = l_lean_ir_fnbody_is__pure___main(x_5);
|
|
if (x_7 == 0)
|
|
{
|
|
return x_7;
|
|
}
|
|
else
|
|
{
|
|
x_0 = x_6;
|
|
goto _start;
|
|
}
|
|
}
|
|
case 3:
|
|
{
|
|
obj* x_9;
|
|
x_9 = lean::cnstr_get(x_0, 3);
|
|
x_0 = x_9;
|
|
goto _start;
|
|
}
|
|
case 4:
|
|
{
|
|
obj* x_11;
|
|
x_11 = lean::cnstr_get(x_0, 4);
|
|
x_0 = x_11;
|
|
goto _start;
|
|
}
|
|
case 8:
|
|
{
|
|
obj* x_13;
|
|
x_13 = lean::cnstr_get(x_0, 1);
|
|
x_0 = x_13;
|
|
goto _start;
|
|
}
|
|
case 9:
|
|
{
|
|
obj* x_15; uint8 x_16;
|
|
x_15 = lean::cnstr_get(x_0, 2);
|
|
x_16 = l_lean_ir_alts_is__pure___main(x_15);
|
|
return x_16;
|
|
}
|
|
case 10:
|
|
{
|
|
uint8 x_17;
|
|
x_17 = 1;
|
|
return x_17;
|
|
}
|
|
case 11:
|
|
{
|
|
uint8 x_18;
|
|
x_18 = 1;
|
|
return x_18;
|
|
}
|
|
case 12:
|
|
{
|
|
uint8 x_19;
|
|
x_19 = 1;
|
|
return x_19;
|
|
}
|
|
default:
|
|
{
|
|
uint8 x_20;
|
|
x_20 = 0;
|
|
return x_20;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
uint8 l_lean_ir_alts_is__pure___main(obj* x_0) {
|
|
_start:
|
|
{
|
|
if (lean::obj_tag(x_0) == 0)
|
|
{
|
|
uint8 x_1;
|
|
x_1 = 1;
|
|
return x_1;
|
|
}
|
|
else
|
|
{
|
|
obj* x_2; obj* x_3; uint8 x_4;
|
|
x_2 = lean::cnstr_get(x_0, 0);
|
|
x_3 = lean::cnstr_get(x_0, 1);
|
|
x_4 = l_lean_ir_alt_is__pure___main(x_2);
|
|
if (x_4 == 0)
|
|
{
|
|
return x_4;
|
|
}
|
|
else
|
|
{
|
|
x_0 = x_3;
|
|
goto _start;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
uint8 l_lean_ir_alt_is__pure___main(obj* x_0) {
|
|
_start:
|
|
{
|
|
if (lean::obj_tag(x_0) == 0)
|
|
{
|
|
obj* x_1; uint8 x_2;
|
|
x_1 = lean::cnstr_get(x_0, 1);
|
|
x_2 = l_lean_ir_fnbody_is__pure___main(x_1);
|
|
return x_2;
|
|
}
|
|
else
|
|
{
|
|
uint8 x_3;
|
|
x_3 = 0;
|
|
return x_3;
|
|
}
|
|
}
|
|
}
|
|
obj* l_lean_ir_fnbody_is__pure___main___boxed(obj* x_0) {
|
|
_start:
|
|
{
|
|
uint8 x_1; obj* x_2;
|
|
x_1 = l_lean_ir_fnbody_is__pure___main(x_0);
|
|
x_2 = lean::box(x_1);
|
|
lean::dec(x_0);
|
|
return x_2;
|
|
}
|
|
}
|
|
obj* l_lean_ir_alts_is__pure___main___boxed(obj* x_0) {
|
|
_start:
|
|
{
|
|
uint8 x_1; obj* x_2;
|
|
x_1 = l_lean_ir_alts_is__pure___main(x_0);
|
|
x_2 = lean::box(x_1);
|
|
lean::dec(x_0);
|
|
return x_2;
|
|
}
|
|
}
|
|
obj* l_lean_ir_alt_is__pure___main___boxed(obj* x_0) {
|
|
_start:
|
|
{
|
|
uint8 x_1; obj* x_2;
|
|
x_1 = l_lean_ir_alt_is__pure___main(x_0);
|
|
x_2 = lean::box(x_1);
|
|
lean::dec(x_0);
|
|
return x_2;
|
|
}
|
|
}
|
|
uint8 l_lean_ir_fnbody_is__pure(obj* x_0) {
|
|
_start:
|
|
{
|
|
uint8 x_1;
|
|
x_1 = l_lean_ir_fnbody_is__pure___main(x_0);
|
|
return x_1;
|
|
}
|
|
}
|
|
obj* l_lean_ir_fnbody_is__pure___boxed(obj* x_0) {
|
|
_start:
|
|
{
|
|
uint8 x_1; obj* x_2;
|
|
x_1 = l_lean_ir_fnbody_is__pure(x_0);
|
|
x_2 = lean::box(x_1);
|
|
lean::dec(x_0);
|
|
return x_2;
|
|
}
|
|
}
|
|
uint8 l_lean_ir_alts_is__pure(obj* x_0) {
|
|
_start:
|
|
{
|
|
uint8 x_1;
|
|
x_1 = l_lean_ir_alts_is__pure___main(x_0);
|
|
return x_1;
|
|
}
|
|
}
|
|
obj* l_lean_ir_alts_is__pure___boxed(obj* x_0) {
|
|
_start:
|
|
{
|
|
uint8 x_1; obj* x_2;
|
|
x_1 = l_lean_ir_alts_is__pure(x_0);
|
|
x_2 = lean::box(x_1);
|
|
lean::dec(x_0);
|
|
return x_2;
|
|
}
|
|
}
|
|
uint8 l_lean_ir_alt_is__pure(obj* x_0) {
|
|
_start:
|
|
{
|
|
uint8 x_1;
|
|
x_1 = l_lean_ir_alt_is__pure___main(x_0);
|
|
return x_1;
|
|
}
|
|
}
|
|
obj* l_lean_ir_alt_is__pure___boxed(obj* x_0) {
|
|
_start:
|
|
{
|
|
uint8 x_1; obj* x_2;
|
|
x_1 = l_lean_ir_alt_is__pure(x_0);
|
|
x_2 = lean::box(x_1);
|
|
lean::dec(x_0);
|
|
return x_2;
|
|
}
|
|
}
|
|
obj* l_rbmap_find___main___at_lean_ir_varid_alpha__eqv___spec__1(obj* x_0, obj* x_1) {
|
|
_start:
|
|
{
|
|
obj* x_2; obj* x_3;
|
|
x_2 = lean::box(0);
|
|
x_3 = l_rbnode_find___main___at_lean_name__map_contains___spec__2(x_2, lean::box(0), x_0, x_1);
|
|
return x_3;
|
|
}
|
|
}
|
|
uint8 l_lean_ir_varid_alpha__eqv(obj* x_0, obj* x_1, obj* x_2) {
|
|
_start:
|
|
{
|
|
obj* x_3;
|
|
x_3 = l_rbmap_find___main___at_lean_ir_varid_alpha__eqv___spec__1(x_0, x_1);
|
|
if (lean::obj_tag(x_3) == 0)
|
|
{
|
|
uint8 x_4;
|
|
x_4 = lean_name_dec_eq(x_1, x_2);
|
|
if (x_4 == 0)
|
|
{
|
|
uint8 x_5;
|
|
x_5 = 0;
|
|
return x_5;
|
|
}
|
|
else
|
|
{
|
|
uint8 x_6;
|
|
x_6 = 1;
|
|
return x_6;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
obj* x_7; uint8 x_10;
|
|
x_7 = lean::cnstr_get(x_3, 0);
|
|
lean::inc(x_7);
|
|
lean::dec(x_3);
|
|
x_10 = lean_name_dec_eq(x_7, x_2);
|
|
lean::dec(x_7);
|
|
if (x_10 == 0)
|
|
{
|
|
uint8 x_12;
|
|
x_12 = 0;
|
|
return x_12;
|
|
}
|
|
else
|
|
{
|
|
uint8 x_13;
|
|
x_13 = 1;
|
|
return x_13;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
obj* l_rbmap_find___main___at_lean_ir_varid_alpha__eqv___spec__1___boxed(obj* x_0, obj* x_1) {
|
|
_start:
|
|
{
|
|
obj* x_2;
|
|
x_2 = l_rbmap_find___main___at_lean_ir_varid_alpha__eqv___spec__1(x_0, x_1);
|
|
lean::dec(x_1);
|
|
return x_2;
|
|
}
|
|
}
|
|
obj* l_lean_ir_varid_alpha__eqv___boxed(obj* x_0, obj* x_1, obj* x_2) {
|
|
_start:
|
|
{
|
|
uint8 x_3; obj* x_4;
|
|
x_3 = l_lean_ir_varid_alpha__eqv(x_0, x_1, x_2);
|
|
x_4 = lean::box(x_3);
|
|
lean::dec(x_1);
|
|
lean::dec(x_2);
|
|
return x_4;
|
|
}
|
|
}
|
|
obj* _init_l_lean_ir_varid_has__aeqv() {
|
|
_start:
|
|
{
|
|
obj* x_0;
|
|
x_0 = lean::alloc_closure(reinterpret_cast<void*>(l_lean_ir_varid_alpha__eqv___boxed), 3, 0);
|
|
return x_0;
|
|
}
|
|
}
|
|
uint8 l_lean_ir_arg_alpha__eqv___main(obj* x_0, obj* x_1, obj* x_2) {
|
|
_start:
|
|
{
|
|
if (lean::obj_tag(x_1) == 0)
|
|
{
|
|
if (lean::obj_tag(x_2) == 0)
|
|
{
|
|
obj* x_3; obj* x_4; uint8 x_5;
|
|
x_3 = lean::cnstr_get(x_1, 0);
|
|
x_4 = lean::cnstr_get(x_2, 0);
|
|
x_5 = l_lean_ir_varid_alpha__eqv(x_0, x_3, x_4);
|
|
return x_5;
|
|
}
|
|
else
|
|
{
|
|
uint8 x_7;
|
|
lean::dec(x_0);
|
|
x_7 = 0;
|
|
return x_7;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
lean::dec(x_0);
|
|
if (lean::obj_tag(x_2) == 0)
|
|
{
|
|
uint8 x_9;
|
|
x_9 = 0;
|
|
return x_9;
|
|
}
|
|
else
|
|
{
|
|
uint8 x_10;
|
|
x_10 = 1;
|
|
return x_10;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
obj* l_lean_ir_arg_alpha__eqv___main___boxed(obj* x_0, obj* x_1, obj* x_2) {
|
|
_start:
|
|
{
|
|
uint8 x_3; obj* x_4;
|
|
x_3 = l_lean_ir_arg_alpha__eqv___main(x_0, x_1, x_2);
|
|
x_4 = lean::box(x_3);
|
|
lean::dec(x_1);
|
|
lean::dec(x_2);
|
|
return x_4;
|
|
}
|
|
}
|
|
uint8 l_lean_ir_arg_alpha__eqv(obj* x_0, obj* x_1, obj* x_2) {
|
|
_start:
|
|
{
|
|
uint8 x_3;
|
|
x_3 = l_lean_ir_arg_alpha__eqv___main(x_0, x_1, x_2);
|
|
return x_3;
|
|
}
|
|
}
|
|
obj* l_lean_ir_arg_alpha__eqv___boxed(obj* x_0, obj* x_1, obj* x_2) {
|
|
_start:
|
|
{
|
|
uint8 x_3; obj* x_4;
|
|
x_3 = l_lean_ir_arg_alpha__eqv(x_0, x_1, x_2);
|
|
x_4 = lean::box(x_3);
|
|
lean::dec(x_1);
|
|
lean::dec(x_2);
|
|
return x_4;
|
|
}
|
|
}
|
|
obj* _init_l_lean_ir_arg_has__aeqv() {
|
|
_start:
|
|
{
|
|
obj* x_0;
|
|
x_0 = lean::alloc_closure(reinterpret_cast<void*>(l_lean_ir_arg_alpha__eqv___boxed), 3, 0);
|
|
return x_0;
|
|
}
|
|
}
|
|
uint8 l_lean_ir_args_alpha__eqv___main(obj* x_0, obj* x_1, obj* x_2) {
|
|
_start:
|
|
{
|
|
if (lean::obj_tag(x_1) == 0)
|
|
{
|
|
lean::dec(x_0);
|
|
if (lean::obj_tag(x_2) == 0)
|
|
{
|
|
uint8 x_4;
|
|
x_4 = 1;
|
|
return x_4;
|
|
}
|
|
else
|
|
{
|
|
uint8 x_5;
|
|
x_5 = 0;
|
|
return x_5;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
if (lean::obj_tag(x_2) == 0)
|
|
{
|
|
uint8 x_7;
|
|
lean::dec(x_0);
|
|
x_7 = 0;
|
|
return x_7;
|
|
}
|
|
else
|
|
{
|
|
obj* x_8; obj* x_9; obj* x_10; obj* x_11; uint8 x_13;
|
|
x_8 = lean::cnstr_get(x_1, 0);
|
|
x_9 = lean::cnstr_get(x_1, 1);
|
|
x_10 = lean::cnstr_get(x_2, 0);
|
|
x_11 = lean::cnstr_get(x_2, 1);
|
|
lean::inc(x_0);
|
|
x_13 = l_lean_ir_arg_alpha__eqv___main(x_0, x_8, x_10);
|
|
if (x_13 == 0)
|
|
{
|
|
lean::dec(x_0);
|
|
return x_13;
|
|
}
|
|
else
|
|
{
|
|
x_1 = x_9;
|
|
x_2 = x_11;
|
|
goto _start;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
obj* l_lean_ir_args_alpha__eqv___main___boxed(obj* x_0, obj* x_1, obj* x_2) {
|
|
_start:
|
|
{
|
|
uint8 x_3; obj* x_4;
|
|
x_3 = l_lean_ir_args_alpha__eqv___main(x_0, x_1, x_2);
|
|
x_4 = lean::box(x_3);
|
|
lean::dec(x_1);
|
|
lean::dec(x_2);
|
|
return x_4;
|
|
}
|
|
}
|
|
uint8 l_lean_ir_args_alpha__eqv(obj* x_0, obj* x_1, obj* x_2) {
|
|
_start:
|
|
{
|
|
uint8 x_3;
|
|
x_3 = l_lean_ir_args_alpha__eqv___main(x_0, x_1, x_2);
|
|
return x_3;
|
|
}
|
|
}
|
|
obj* l_lean_ir_args_alpha__eqv___boxed(obj* x_0, obj* x_1, obj* x_2) {
|
|
_start:
|
|
{
|
|
uint8 x_3; obj* x_4;
|
|
x_3 = l_lean_ir_args_alpha__eqv(x_0, x_1, x_2);
|
|
x_4 = lean::box(x_3);
|
|
lean::dec(x_1);
|
|
lean::dec(x_2);
|
|
return x_4;
|
|
}
|
|
}
|
|
obj* _init_l_lean_ir_args_has__aeqv() {
|
|
_start:
|
|
{
|
|
obj* x_0;
|
|
x_0 = lean::alloc_closure(reinterpret_cast<void*>(l_lean_ir_args_alpha__eqv___boxed), 3, 0);
|
|
return x_0;
|
|
}
|
|
}
|
|
uint8 l_lean_ir_expr_alpha__eqv___main(obj* x_0, obj* x_1, obj* x_2) {
|
|
_start:
|
|
{
|
|
switch (lean::obj_tag(x_1)) {
|
|
case 0:
|
|
{
|
|
switch (lean::obj_tag(x_2)) {
|
|
case 0:
|
|
{
|
|
obj* x_3; obj* x_4; obj* x_5; obj* x_6; uint8 x_7;
|
|
x_3 = lean::cnstr_get(x_1, 0);
|
|
x_4 = lean::cnstr_get(x_1, 1);
|
|
x_5 = lean::cnstr_get(x_2, 0);
|
|
x_6 = lean::cnstr_get(x_2, 1);
|
|
x_7 = l_lean_ir_ctor__info_beq___main(x_3, x_5);
|
|
if (x_7 == 0)
|
|
{
|
|
lean::dec(x_0);
|
|
return x_7;
|
|
}
|
|
else
|
|
{
|
|
uint8 x_9;
|
|
x_9 = l_lean_ir_args_alpha__eqv___main(x_0, x_4, x_6);
|
|
return x_9;
|
|
}
|
|
}
|
|
default:
|
|
{
|
|
uint8 x_11;
|
|
lean::dec(x_0);
|
|
x_11 = 0;
|
|
return x_11;
|
|
}
|
|
}
|
|
}
|
|
case 1:
|
|
{
|
|
switch (lean::obj_tag(x_2)) {
|
|
case 1:
|
|
{
|
|
obj* x_12; obj* x_13; uint8 x_14;
|
|
x_12 = lean::cnstr_get(x_1, 0);
|
|
x_13 = lean::cnstr_get(x_2, 0);
|
|
x_14 = l_lean_ir_varid_alpha__eqv(x_0, x_12, x_13);
|
|
return x_14;
|
|
}
|
|
default:
|
|
{
|
|
uint8 x_16;
|
|
lean::dec(x_0);
|
|
x_16 = 0;
|
|
return x_16;
|
|
}
|
|
}
|
|
}
|
|
case 2:
|
|
{
|
|
switch (lean::obj_tag(x_2)) {
|
|
case 2:
|
|
{
|
|
obj* x_17; obj* x_18; obj* x_19; obj* x_20; obj* x_21; obj* x_22; uint8 x_24;
|
|
x_17 = lean::cnstr_get(x_1, 0);
|
|
x_18 = lean::cnstr_get(x_1, 1);
|
|
x_19 = lean::cnstr_get(x_1, 2);
|
|
x_20 = lean::cnstr_get(x_2, 0);
|
|
x_21 = lean::cnstr_get(x_2, 1);
|
|
x_22 = lean::cnstr_get(x_2, 2);
|
|
lean::inc(x_0);
|
|
x_24 = l_lean_ir_varid_alpha__eqv(x_0, x_17, x_20);
|
|
if (x_24 == 0)
|
|
{
|
|
if (x_24 == 0)
|
|
{
|
|
lean::dec(x_0);
|
|
return x_24;
|
|
}
|
|
else
|
|
{
|
|
uint8 x_26;
|
|
x_26 = l_lean_ir_args_alpha__eqv___main(x_0, x_19, x_22);
|
|
return x_26;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
uint8 x_27;
|
|
x_27 = l_lean_ir_ctor__info_beq___main(x_18, x_21);
|
|
if (x_27 == 0)
|
|
{
|
|
lean::dec(x_0);
|
|
return x_27;
|
|
}
|
|
else
|
|
{
|
|
uint8 x_29;
|
|
x_29 = l_lean_ir_args_alpha__eqv___main(x_0, x_19, x_22);
|
|
return x_29;
|
|
}
|
|
}
|
|
}
|
|
default:
|
|
{
|
|
uint8 x_31;
|
|
lean::dec(x_0);
|
|
x_31 = 0;
|
|
return x_31;
|
|
}
|
|
}
|
|
}
|
|
case 3:
|
|
{
|
|
switch (lean::obj_tag(x_2)) {
|
|
case 3:
|
|
{
|
|
obj* x_32; obj* x_33; obj* x_34; obj* x_35; uint8 x_36;
|
|
x_32 = lean::cnstr_get(x_1, 0);
|
|
x_33 = lean::cnstr_get(x_1, 1);
|
|
x_34 = lean::cnstr_get(x_2, 0);
|
|
x_35 = lean::cnstr_get(x_2, 1);
|
|
x_36 = lean::nat_dec_eq(x_32, x_34);
|
|
if (x_36 == 0)
|
|
{
|
|
uint8 x_38;
|
|
lean::dec(x_0);
|
|
x_38 = 0;
|
|
return x_38;
|
|
}
|
|
else
|
|
{
|
|
uint8 x_39;
|
|
x_39 = l_lean_ir_varid_alpha__eqv(x_0, x_33, x_35);
|
|
return x_39;
|
|
}
|
|
}
|
|
default:
|
|
{
|
|
uint8 x_41;
|
|
lean::dec(x_0);
|
|
x_41 = 0;
|
|
return x_41;
|
|
}
|
|
}
|
|
}
|
|
case 4:
|
|
{
|
|
switch (lean::obj_tag(x_2)) {
|
|
case 4:
|
|
{
|
|
obj* x_42; obj* x_43; obj* x_44; obj* x_45; uint8 x_46;
|
|
x_42 = lean::cnstr_get(x_1, 0);
|
|
x_43 = lean::cnstr_get(x_1, 1);
|
|
x_44 = lean::cnstr_get(x_2, 0);
|
|
x_45 = lean::cnstr_get(x_2, 1);
|
|
x_46 = lean::nat_dec_eq(x_42, x_44);
|
|
if (x_46 == 0)
|
|
{
|
|
uint8 x_48;
|
|
lean::dec(x_0);
|
|
x_48 = 0;
|
|
return x_48;
|
|
}
|
|
else
|
|
{
|
|
uint8 x_49;
|
|
x_49 = l_lean_ir_varid_alpha__eqv(x_0, x_43, x_45);
|
|
return x_49;
|
|
}
|
|
}
|
|
default:
|
|
{
|
|
uint8 x_51;
|
|
lean::dec(x_0);
|
|
x_51 = 0;
|
|
return x_51;
|
|
}
|
|
}
|
|
}
|
|
case 5:
|
|
{
|
|
switch (lean::obj_tag(x_2)) {
|
|
case 5:
|
|
{
|
|
obj* x_52; obj* x_53; obj* x_54; obj* x_55; uint8 x_56;
|
|
x_52 = lean::cnstr_get(x_1, 0);
|
|
x_53 = lean::cnstr_get(x_1, 1);
|
|
x_54 = lean::cnstr_get(x_2, 0);
|
|
x_55 = lean::cnstr_get(x_2, 1);
|
|
x_56 = lean::nat_dec_eq(x_52, x_54);
|
|
if (x_56 == 0)
|
|
{
|
|
uint8 x_58;
|
|
lean::dec(x_0);
|
|
x_58 = 0;
|
|
return x_58;
|
|
}
|
|
else
|
|
{
|
|
uint8 x_59;
|
|
x_59 = l_lean_ir_varid_alpha__eqv(x_0, x_53, x_55);
|
|
return x_59;
|
|
}
|
|
}
|
|
default:
|
|
{
|
|
uint8 x_61;
|
|
lean::dec(x_0);
|
|
x_61 = 0;
|
|
return x_61;
|
|
}
|
|
}
|
|
}
|
|
case 6:
|
|
{
|
|
switch (lean::obj_tag(x_2)) {
|
|
case 6:
|
|
{
|
|
obj* x_62; obj* x_63; obj* x_64; obj* x_65; uint8 x_66;
|
|
x_62 = lean::cnstr_get(x_1, 0);
|
|
x_63 = lean::cnstr_get(x_1, 1);
|
|
x_64 = lean::cnstr_get(x_2, 0);
|
|
x_65 = lean::cnstr_get(x_2, 1);
|
|
x_66 = lean_name_dec_eq(x_62, x_64);
|
|
if (x_66 == 0)
|
|
{
|
|
uint8 x_68;
|
|
lean::dec(x_0);
|
|
x_68 = 0;
|
|
return x_68;
|
|
}
|
|
else
|
|
{
|
|
uint8 x_69;
|
|
x_69 = l_lean_ir_args_alpha__eqv___main(x_0, x_63, x_65);
|
|
return x_69;
|
|
}
|
|
}
|
|
default:
|
|
{
|
|
uint8 x_71;
|
|
lean::dec(x_0);
|
|
x_71 = 0;
|
|
return x_71;
|
|
}
|
|
}
|
|
}
|
|
case 7:
|
|
{
|
|
switch (lean::obj_tag(x_2)) {
|
|
case 7:
|
|
{
|
|
obj* x_72; obj* x_73; obj* x_74; uint8 x_75;
|
|
x_72 = lean::cnstr_get(x_1, 0);
|
|
x_73 = lean::cnstr_get(x_2, 0);
|
|
x_74 = lean::cnstr_get(x_2, 1);
|
|
x_75 = lean_name_dec_eq(x_72, x_73);
|
|
if (x_75 == 0)
|
|
{
|
|
uint8 x_77;
|
|
lean::dec(x_0);
|
|
x_77 = 0;
|
|
return x_77;
|
|
}
|
|
else
|
|
{
|
|
uint8 x_78;
|
|
x_78 = l_lean_ir_args_alpha__eqv___main(x_0, x_74, x_74);
|
|
return x_78;
|
|
}
|
|
}
|
|
default:
|
|
{
|
|
uint8 x_80;
|
|
lean::dec(x_0);
|
|
x_80 = 0;
|
|
return x_80;
|
|
}
|
|
}
|
|
}
|
|
case 8:
|
|
{
|
|
switch (lean::obj_tag(x_2)) {
|
|
case 8:
|
|
{
|
|
obj* x_81; obj* x_82; obj* x_83; obj* x_84; uint8 x_86;
|
|
x_81 = lean::cnstr_get(x_1, 0);
|
|
x_82 = lean::cnstr_get(x_1, 1);
|
|
x_83 = lean::cnstr_get(x_2, 0);
|
|
x_84 = lean::cnstr_get(x_2, 1);
|
|
lean::inc(x_0);
|
|
x_86 = l_lean_ir_varid_alpha__eqv(x_0, x_81, x_83);
|
|
if (x_86 == 0)
|
|
{
|
|
lean::dec(x_0);
|
|
return x_86;
|
|
}
|
|
else
|
|
{
|
|
uint8 x_88;
|
|
x_88 = l_lean_ir_args_alpha__eqv___main(x_0, x_82, x_84);
|
|
return x_88;
|
|
}
|
|
}
|
|
default:
|
|
{
|
|
uint8 x_90;
|
|
lean::dec(x_0);
|
|
x_90 = 0;
|
|
return x_90;
|
|
}
|
|
}
|
|
}
|
|
case 9:
|
|
{
|
|
uint8 x_91;
|
|
x_91 = lean::cnstr_get_scalar<uint8>(x_1, sizeof(void*)*1);
|
|
switch (lean::obj_tag(x_2)) {
|
|
case 9:
|
|
{
|
|
obj* x_92; uint8 x_93; obj* x_94; uint8 x_95;
|
|
x_92 = lean::cnstr_get(x_1, 0);
|
|
x_93 = lean::cnstr_get_scalar<uint8>(x_2, sizeof(void*)*1);
|
|
x_94 = lean::cnstr_get(x_2, 0);
|
|
x_95 = l_lean_ir_type_beq___main(x_91, x_93);
|
|
if (x_95 == 0)
|
|
{
|
|
lean::dec(x_0);
|
|
return x_95;
|
|
}
|
|
else
|
|
{
|
|
uint8 x_97;
|
|
x_97 = l_lean_ir_varid_alpha__eqv(x_0, x_92, x_94);
|
|
return x_97;
|
|
}
|
|
}
|
|
default:
|
|
{
|
|
uint8 x_99;
|
|
lean::dec(x_0);
|
|
x_99 = 0;
|
|
return x_99;
|
|
}
|
|
}
|
|
}
|
|
case 10:
|
|
{
|
|
switch (lean::obj_tag(x_2)) {
|
|
case 10:
|
|
{
|
|
obj* x_100; obj* x_101; uint8 x_102;
|
|
x_100 = lean::cnstr_get(x_1, 0);
|
|
x_101 = lean::cnstr_get(x_2, 0);
|
|
x_102 = l_lean_ir_varid_alpha__eqv(x_0, x_100, x_101);
|
|
return x_102;
|
|
}
|
|
default:
|
|
{
|
|
uint8 x_104;
|
|
lean::dec(x_0);
|
|
x_104 = 0;
|
|
return x_104;
|
|
}
|
|
}
|
|
}
|
|
case 11:
|
|
{
|
|
lean::dec(x_0);
|
|
switch (lean::obj_tag(x_2)) {
|
|
case 11:
|
|
{
|
|
obj* x_106; obj* x_107; uint8 x_108;
|
|
x_106 = lean::cnstr_get(x_1, 0);
|
|
x_107 = lean::cnstr_get(x_2, 0);
|
|
x_108 = l_lean_ir_litval_beq___main(x_106, x_107);
|
|
return x_108;
|
|
}
|
|
default:
|
|
{
|
|
uint8 x_109;
|
|
x_109 = 0;
|
|
return x_109;
|
|
}
|
|
}
|
|
}
|
|
case 12:
|
|
{
|
|
switch (lean::obj_tag(x_2)) {
|
|
case 12:
|
|
{
|
|
obj* x_110; obj* x_111; uint8 x_112;
|
|
x_110 = lean::cnstr_get(x_1, 0);
|
|
x_111 = lean::cnstr_get(x_2, 0);
|
|
x_112 = l_lean_ir_varid_alpha__eqv(x_0, x_110, x_111);
|
|
return x_112;
|
|
}
|
|
default:
|
|
{
|
|
uint8 x_114;
|
|
lean::dec(x_0);
|
|
x_114 = 0;
|
|
return x_114;
|
|
}
|
|
}
|
|
}
|
|
default:
|
|
{
|
|
switch (lean::obj_tag(x_2)) {
|
|
case 13:
|
|
{
|
|
obj* x_115; obj* x_116; uint8 x_117;
|
|
x_115 = lean::cnstr_get(x_1, 0);
|
|
x_116 = lean::cnstr_get(x_2, 0);
|
|
x_117 = l_lean_ir_varid_alpha__eqv(x_0, x_115, x_116);
|
|
return x_117;
|
|
}
|
|
default:
|
|
{
|
|
uint8 x_119;
|
|
lean::dec(x_0);
|
|
x_119 = 0;
|
|
return x_119;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
obj* l_lean_ir_expr_alpha__eqv___main___boxed(obj* x_0, obj* x_1, obj* x_2) {
|
|
_start:
|
|
{
|
|
uint8 x_3; obj* x_4;
|
|
x_3 = l_lean_ir_expr_alpha__eqv___main(x_0, x_1, x_2);
|
|
x_4 = lean::box(x_3);
|
|
lean::dec(x_1);
|
|
lean::dec(x_2);
|
|
return x_4;
|
|
}
|
|
}
|
|
uint8 l_lean_ir_expr_alpha__eqv(obj* x_0, obj* x_1, obj* x_2) {
|
|
_start:
|
|
{
|
|
uint8 x_3;
|
|
x_3 = l_lean_ir_expr_alpha__eqv___main(x_0, x_1, x_2);
|
|
return x_3;
|
|
}
|
|
}
|
|
obj* l_lean_ir_expr_alpha__eqv___boxed(obj* x_0, obj* x_1, obj* x_2) {
|
|
_start:
|
|
{
|
|
uint8 x_3; obj* x_4;
|
|
x_3 = l_lean_ir_expr_alpha__eqv(x_0, x_1, x_2);
|
|
x_4 = lean::box(x_3);
|
|
lean::dec(x_1);
|
|
lean::dec(x_2);
|
|
return x_4;
|
|
}
|
|
}
|
|
obj* _init_l_lean_ir_expr_has__aeqv() {
|
|
_start:
|
|
{
|
|
obj* x_0;
|
|
x_0 = lean::alloc_closure(reinterpret_cast<void*>(l_lean_ir_expr_alpha__eqv___boxed), 3, 0);
|
|
return x_0;
|
|
}
|
|
}
|
|
obj* l_lean_ir_add__var__rename(obj* x_0, obj* x_1, obj* x_2) {
|
|
_start:
|
|
{
|
|
uint8 x_3;
|
|
x_3 = lean_name_dec_eq(x_1, x_2);
|
|
if (x_3 == 0)
|
|
{
|
|
obj* x_4;
|
|
x_4 = l_rbmap_insert___main___at_lean_name__map_insert___spec__1___rarg(x_0, x_1, x_2);
|
|
return x_4;
|
|
}
|
|
else
|
|
{
|
|
lean::dec(x_1);
|
|
lean::dec(x_2);
|
|
return x_0;
|
|
}
|
|
}
|
|
}
|
|
obj* l_lean_ir_add__param__rename(obj* x_0, obj* x_1, obj* x_2) {
|
|
_start:
|
|
{
|
|
uint8 x_3; uint8 x_4; uint8 x_5;
|
|
x_3 = lean::cnstr_get_scalar<uint8>(x_1, sizeof(void*)*1 + 1);
|
|
x_4 = lean::cnstr_get_scalar<uint8>(x_2, sizeof(void*)*1 + 1);
|
|
x_5 = l_lean_ir_type_beq___main(x_3, x_4);
|
|
if (x_5 == 0)
|
|
{
|
|
if (x_5 == 0)
|
|
{
|
|
obj* x_9;
|
|
lean::dec(x_1);
|
|
lean::dec(x_0);
|
|
lean::dec(x_2);
|
|
x_9 = lean::box(0);
|
|
return x_9;
|
|
}
|
|
else
|
|
{
|
|
obj* x_10; obj* x_13; obj* x_16; obj* x_17;
|
|
x_10 = lean::cnstr_get(x_1, 0);
|
|
lean::inc(x_10);
|
|
lean::dec(x_1);
|
|
x_13 = lean::cnstr_get(x_2, 0);
|
|
lean::inc(x_13);
|
|
lean::dec(x_2);
|
|
x_16 = l_lean_ir_add__var__rename(x_0, x_10, x_13);
|
|
x_17 = lean::alloc_cnstr(1, 1, 0);
|
|
lean::cnstr_set(x_17, 0, x_16);
|
|
return x_17;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
uint8 x_18; uint8 x_19;
|
|
x_18 = lean::cnstr_get_scalar<uint8>(x_1, sizeof(void*)*1);
|
|
x_19 = lean::cnstr_get_scalar<uint8>(x_2, sizeof(void*)*1);
|
|
if (x_18 == 0)
|
|
{
|
|
if (x_19 == 0)
|
|
{
|
|
if (x_5 == 0)
|
|
{
|
|
obj* x_23;
|
|
lean::dec(x_1);
|
|
lean::dec(x_0);
|
|
lean::dec(x_2);
|
|
x_23 = lean::box(0);
|
|
return x_23;
|
|
}
|
|
else
|
|
{
|
|
obj* x_24; obj* x_27; obj* x_30; obj* x_31;
|
|
x_24 = lean::cnstr_get(x_1, 0);
|
|
lean::inc(x_24);
|
|
lean::dec(x_1);
|
|
x_27 = lean::cnstr_get(x_2, 0);
|
|
lean::inc(x_27);
|
|
lean::dec(x_2);
|
|
x_30 = l_lean_ir_add__var__rename(x_0, x_24, x_27);
|
|
x_31 = lean::alloc_cnstr(1, 1, 0);
|
|
lean::cnstr_set(x_31, 0, x_30);
|
|
return x_31;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
obj* x_35;
|
|
lean::dec(x_1);
|
|
lean::dec(x_0);
|
|
lean::dec(x_2);
|
|
x_35 = lean::box(0);
|
|
return x_35;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
if (x_19 == 0)
|
|
{
|
|
obj* x_39;
|
|
lean::dec(x_1);
|
|
lean::dec(x_0);
|
|
lean::dec(x_2);
|
|
x_39 = lean::box(0);
|
|
return x_39;
|
|
}
|
|
else
|
|
{
|
|
if (x_5 == 0)
|
|
{
|
|
obj* x_43;
|
|
lean::dec(x_1);
|
|
lean::dec(x_0);
|
|
lean::dec(x_2);
|
|
x_43 = lean::box(0);
|
|
return x_43;
|
|
}
|
|
else
|
|
{
|
|
obj* x_44; obj* x_47; obj* x_50; obj* x_51;
|
|
x_44 = lean::cnstr_get(x_1, 0);
|
|
lean::inc(x_44);
|
|
lean::dec(x_1);
|
|
x_47 = lean::cnstr_get(x_2, 0);
|
|
lean::inc(x_47);
|
|
lean::dec(x_2);
|
|
x_50 = l_lean_ir_add__var__rename(x_0, x_44, x_47);
|
|
x_51 = lean::alloc_cnstr(1, 1, 0);
|
|
lean::cnstr_set(x_51, 0, x_50);
|
|
return x_51;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
obj* l_lean_ir_add__params__rename___main(obj* x_0, obj* x_1, obj* x_2) {
|
|
_start:
|
|
{
|
|
if (lean::obj_tag(x_1) == 0)
|
|
{
|
|
if (lean::obj_tag(x_2) == 0)
|
|
{
|
|
obj* x_3;
|
|
x_3 = lean::alloc_cnstr(1, 1, 0);
|
|
lean::cnstr_set(x_3, 0, x_0);
|
|
return x_3;
|
|
}
|
|
else
|
|
{
|
|
obj* x_6;
|
|
lean::dec(x_0);
|
|
lean::dec(x_2);
|
|
x_6 = lean::box(0);
|
|
return x_6;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
if (lean::obj_tag(x_2) == 0)
|
|
{
|
|
obj* x_9;
|
|
lean::dec(x_1);
|
|
lean::dec(x_0);
|
|
x_9 = lean::box(0);
|
|
return x_9;
|
|
}
|
|
else
|
|
{
|
|
obj* x_10; obj* x_12; obj* x_15; obj* x_17; obj* x_20;
|
|
x_10 = lean::cnstr_get(x_1, 0);
|
|
lean::inc(x_10);
|
|
x_12 = lean::cnstr_get(x_1, 1);
|
|
lean::inc(x_12);
|
|
lean::dec(x_1);
|
|
x_15 = lean::cnstr_get(x_2, 0);
|
|
lean::inc(x_15);
|
|
x_17 = lean::cnstr_get(x_2, 1);
|
|
lean::inc(x_17);
|
|
lean::dec(x_2);
|
|
x_20 = l_lean_ir_add__param__rename(x_0, x_10, x_15);
|
|
if (lean::obj_tag(x_20) == 0)
|
|
{
|
|
obj* x_23;
|
|
lean::dec(x_17);
|
|
lean::dec(x_12);
|
|
x_23 = lean::box(0);
|
|
return x_23;
|
|
}
|
|
else
|
|
{
|
|
obj* x_24;
|
|
x_24 = lean::cnstr_get(x_20, 0);
|
|
lean::inc(x_24);
|
|
lean::dec(x_20);
|
|
x_0 = x_24;
|
|
x_1 = x_12;
|
|
x_2 = x_17;
|
|
goto _start;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
obj* l_lean_ir_add__params__rename(obj* x_0, obj* x_1, obj* x_2) {
|
|
_start:
|
|
{
|
|
obj* x_3;
|
|
x_3 = l_lean_ir_add__params__rename___main(x_0, x_1, x_2);
|
|
return x_3;
|
|
}
|
|
}
|
|
uint8 l_lean_ir_fnbody_alpha__eqv___main(obj* x_0, obj* x_1, obj* x_2) {
|
|
_start:
|
|
{
|
|
switch (lean::obj_tag(x_1)) {
|
|
case 0:
|
|
{
|
|
uint8 x_3;
|
|
x_3 = lean::cnstr_get_scalar<uint8>(x_1, sizeof(void*)*3);
|
|
switch (lean::obj_tag(x_2)) {
|
|
case 0:
|
|
{
|
|
obj* x_4; obj* x_6; obj* x_8; obj* x_11; uint8 x_13; obj* x_14; obj* x_16; uint8 x_19;
|
|
x_4 = lean::cnstr_get(x_1, 0);
|
|
lean::inc(x_4);
|
|
x_6 = lean::cnstr_get(x_1, 1);
|
|
lean::inc(x_6);
|
|
x_8 = lean::cnstr_get(x_1, 2);
|
|
lean::inc(x_8);
|
|
lean::dec(x_1);
|
|
x_11 = lean::cnstr_get(x_2, 0);
|
|
lean::inc(x_11);
|
|
x_13 = lean::cnstr_get_scalar<uint8>(x_2, sizeof(void*)*3);
|
|
x_14 = lean::cnstr_get(x_2, 1);
|
|
lean::inc(x_14);
|
|
x_16 = lean::cnstr_get(x_2, 2);
|
|
lean::inc(x_16);
|
|
lean::dec(x_2);
|
|
x_19 = l_lean_ir_type_beq___main(x_3, x_13);
|
|
if (x_19 == 0)
|
|
{
|
|
lean::dec(x_6);
|
|
lean::dec(x_14);
|
|
if (x_19 == 0)
|
|
{
|
|
lean::dec(x_8);
|
|
lean::dec(x_11);
|
|
lean::dec(x_0);
|
|
lean::dec(x_4);
|
|
lean::dec(x_16);
|
|
return x_19;
|
|
}
|
|
else
|
|
{
|
|
obj* x_27;
|
|
x_27 = l_lean_ir_add__var__rename(x_0, x_4, x_11);
|
|
x_0 = x_27;
|
|
x_1 = x_8;
|
|
x_2 = x_16;
|
|
goto _start;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
uint8 x_30;
|
|
lean::inc(x_0);
|
|
x_30 = l_lean_ir_expr_alpha__eqv___main(x_0, x_6, x_14);
|
|
lean::dec(x_14);
|
|
lean::dec(x_6);
|
|
if (x_30 == 0)
|
|
{
|
|
lean::dec(x_8);
|
|
lean::dec(x_11);
|
|
lean::dec(x_0);
|
|
lean::dec(x_4);
|
|
lean::dec(x_16);
|
|
return x_30;
|
|
}
|
|
else
|
|
{
|
|
obj* x_38;
|
|
x_38 = l_lean_ir_add__var__rename(x_0, x_4, x_11);
|
|
x_0 = x_38;
|
|
x_1 = x_8;
|
|
x_2 = x_16;
|
|
goto _start;
|
|
}
|
|
}
|
|
}
|
|
case 12:
|
|
{
|
|
uint8 x_42;
|
|
lean::dec(x_1);
|
|
lean::dec(x_0);
|
|
x_42 = 0;
|
|
return x_42;
|
|
}
|
|
default:
|
|
{
|
|
uint8 x_46;
|
|
lean::dec(x_1);
|
|
lean::dec(x_0);
|
|
lean::dec(x_2);
|
|
x_46 = 0;
|
|
return x_46;
|
|
}
|
|
}
|
|
}
|
|
case 1:
|
|
{
|
|
uint8 x_47;
|
|
x_47 = lean::cnstr_get_scalar<uint8>(x_1, sizeof(void*)*4);
|
|
switch (lean::obj_tag(x_2)) {
|
|
case 1:
|
|
{
|
|
obj* x_48; obj* x_50; obj* x_52; obj* x_54; obj* x_57; obj* x_59; uint8 x_61; obj* x_62; obj* x_64; obj* x_68;
|
|
x_48 = lean::cnstr_get(x_1, 0);
|
|
lean::inc(x_48);
|
|
x_50 = lean::cnstr_get(x_1, 1);
|
|
lean::inc(x_50);
|
|
x_52 = lean::cnstr_get(x_1, 2);
|
|
lean::inc(x_52);
|
|
x_54 = lean::cnstr_get(x_1, 3);
|
|
lean::inc(x_54);
|
|
lean::dec(x_1);
|
|
x_57 = lean::cnstr_get(x_2, 0);
|
|
lean::inc(x_57);
|
|
x_59 = lean::cnstr_get(x_2, 1);
|
|
lean::inc(x_59);
|
|
x_61 = lean::cnstr_get_scalar<uint8>(x_2, sizeof(void*)*4);
|
|
x_62 = lean::cnstr_get(x_2, 2);
|
|
lean::inc(x_62);
|
|
x_64 = lean::cnstr_get(x_2, 3);
|
|
lean::inc(x_64);
|
|
lean::dec(x_2);
|
|
lean::inc(x_0);
|
|
x_68 = l_lean_ir_add__params__rename___main(x_0, x_50, x_59);
|
|
if (lean::obj_tag(x_68) == 0)
|
|
{
|
|
uint8 x_76;
|
|
lean::dec(x_0);
|
|
lean::dec(x_52);
|
|
lean::dec(x_54);
|
|
lean::dec(x_64);
|
|
lean::dec(x_62);
|
|
lean::dec(x_48);
|
|
lean::dec(x_57);
|
|
x_76 = 0;
|
|
return x_76;
|
|
}
|
|
else
|
|
{
|
|
obj* x_77; uint8 x_80;
|
|
x_77 = lean::cnstr_get(x_68, 0);
|
|
lean::inc(x_77);
|
|
lean::dec(x_68);
|
|
x_80 = l_lean_ir_type_beq___main(x_47, x_61);
|
|
if (x_80 == 0)
|
|
{
|
|
lean::dec(x_77);
|
|
lean::dec(x_52);
|
|
lean::dec(x_62);
|
|
if (x_80 == 0)
|
|
{
|
|
lean::dec(x_0);
|
|
lean::dec(x_54);
|
|
lean::dec(x_64);
|
|
lean::dec(x_48);
|
|
lean::dec(x_57);
|
|
return x_80;
|
|
}
|
|
else
|
|
{
|
|
obj* x_89;
|
|
x_89 = l_lean_ir_add__var__rename(x_0, x_48, x_57);
|
|
x_0 = x_89;
|
|
x_1 = x_54;
|
|
x_2 = x_64;
|
|
goto _start;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
uint8 x_91;
|
|
x_91 = l_lean_ir_fnbody_alpha__eqv___main(x_77, x_52, x_62);
|
|
if (x_91 == 0)
|
|
{
|
|
lean::dec(x_0);
|
|
lean::dec(x_54);
|
|
lean::dec(x_64);
|
|
lean::dec(x_48);
|
|
lean::dec(x_57);
|
|
return x_91;
|
|
}
|
|
else
|
|
{
|
|
obj* x_97;
|
|
x_97 = l_lean_ir_add__var__rename(x_0, x_48, x_57);
|
|
x_0 = x_97;
|
|
x_1 = x_54;
|
|
x_2 = x_64;
|
|
goto _start;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
case 12:
|
|
{
|
|
uint8 x_101;
|
|
lean::dec(x_1);
|
|
lean::dec(x_0);
|
|
x_101 = 0;
|
|
return x_101;
|
|
}
|
|
default:
|
|
{
|
|
uint8 x_105;
|
|
lean::dec(x_1);
|
|
lean::dec(x_0);
|
|
lean::dec(x_2);
|
|
x_105 = 0;
|
|
return x_105;
|
|
}
|
|
}
|
|
}
|
|
case 2:
|
|
{
|
|
switch (lean::obj_tag(x_2)) {
|
|
case 2:
|
|
{
|
|
obj* x_106; obj* x_108; obj* x_110; obj* x_112; obj* x_115; obj* x_117; obj* x_119; obj* x_121; uint8 x_125;
|
|
x_106 = lean::cnstr_get(x_1, 0);
|
|
lean::inc(x_106);
|
|
x_108 = lean::cnstr_get(x_1, 1);
|
|
lean::inc(x_108);
|
|
x_110 = lean::cnstr_get(x_1, 2);
|
|
lean::inc(x_110);
|
|
x_112 = lean::cnstr_get(x_1, 3);
|
|
lean::inc(x_112);
|
|
lean::dec(x_1);
|
|
x_115 = lean::cnstr_get(x_2, 0);
|
|
lean::inc(x_115);
|
|
x_117 = lean::cnstr_get(x_2, 1);
|
|
lean::inc(x_117);
|
|
x_119 = lean::cnstr_get(x_2, 2);
|
|
lean::inc(x_119);
|
|
x_121 = lean::cnstr_get(x_2, 3);
|
|
lean::inc(x_121);
|
|
lean::dec(x_2);
|
|
lean::inc(x_0);
|
|
x_125 = l_lean_ir_varid_alpha__eqv(x_0, x_106, x_115);
|
|
lean::dec(x_115);
|
|
lean::dec(x_106);
|
|
if (x_125 == 0)
|
|
{
|
|
lean::dec(x_108);
|
|
lean::dec(x_117);
|
|
if (x_125 == 0)
|
|
{
|
|
lean::dec(x_119);
|
|
lean::dec(x_110);
|
|
if (x_125 == 0)
|
|
{
|
|
lean::dec(x_121);
|
|
lean::dec(x_112);
|
|
lean::dec(x_0);
|
|
return x_125;
|
|
}
|
|
else
|
|
{
|
|
x_1 = x_112;
|
|
x_2 = x_121;
|
|
goto _start;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
uint8 x_137;
|
|
lean::inc(x_0);
|
|
x_137 = l_lean_ir_varid_alpha__eqv(x_0, x_110, x_119);
|
|
lean::dec(x_119);
|
|
lean::dec(x_110);
|
|
if (x_137 == 0)
|
|
{
|
|
lean::dec(x_121);
|
|
lean::dec(x_112);
|
|
lean::dec(x_0);
|
|
return x_137;
|
|
}
|
|
else
|
|
{
|
|
x_1 = x_112;
|
|
x_2 = x_121;
|
|
goto _start;
|
|
}
|
|
}
|
|
}
|
|
else
|
|
{
|
|
uint8 x_144;
|
|
x_144 = lean::nat_dec_eq(x_108, x_117);
|
|
lean::dec(x_117);
|
|
lean::dec(x_108);
|
|
if (x_144 == 0)
|
|
{
|
|
uint8 x_152;
|
|
lean::dec(x_119);
|
|
lean::dec(x_121);
|
|
lean::dec(x_110);
|
|
lean::dec(x_112);
|
|
lean::dec(x_0);
|
|
x_152 = 0;
|
|
return x_152;
|
|
}
|
|
else
|
|
{
|
|
if (x_125 == 0)
|
|
{
|
|
lean::dec(x_119);
|
|
lean::dec(x_110);
|
|
if (x_125 == 0)
|
|
{
|
|
lean::dec(x_121);
|
|
lean::dec(x_112);
|
|
lean::dec(x_0);
|
|
return x_125;
|
|
}
|
|
else
|
|
{
|
|
x_1 = x_112;
|
|
x_2 = x_121;
|
|
goto _start;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
uint8 x_160;
|
|
lean::inc(x_0);
|
|
x_160 = l_lean_ir_varid_alpha__eqv(x_0, x_110, x_119);
|
|
lean::dec(x_119);
|
|
lean::dec(x_110);
|
|
if (x_160 == 0)
|
|
{
|
|
lean::dec(x_121);
|
|
lean::dec(x_112);
|
|
lean::dec(x_0);
|
|
return x_160;
|
|
}
|
|
else
|
|
{
|
|
x_1 = x_112;
|
|
x_2 = x_121;
|
|
goto _start;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
case 12:
|
|
{
|
|
uint8 x_169;
|
|
lean::dec(x_1);
|
|
lean::dec(x_0);
|
|
x_169 = 0;
|
|
return x_169;
|
|
}
|
|
default:
|
|
{
|
|
uint8 x_173;
|
|
lean::dec(x_1);
|
|
lean::dec(x_0);
|
|
lean::dec(x_2);
|
|
x_173 = 0;
|
|
return x_173;
|
|
}
|
|
}
|
|
}
|
|
case 3:
|
|
{
|
|
switch (lean::obj_tag(x_2)) {
|
|
case 3:
|
|
{
|
|
obj* x_174; obj* x_176; obj* x_178; obj* x_180; obj* x_183; obj* x_185; obj* x_187; obj* x_189; uint8 x_193;
|
|
x_174 = lean::cnstr_get(x_1, 0);
|
|
lean::inc(x_174);
|
|
x_176 = lean::cnstr_get(x_1, 1);
|
|
lean::inc(x_176);
|
|
x_178 = lean::cnstr_get(x_1, 2);
|
|
lean::inc(x_178);
|
|
x_180 = lean::cnstr_get(x_1, 3);
|
|
lean::inc(x_180);
|
|
lean::dec(x_1);
|
|
x_183 = lean::cnstr_get(x_2, 0);
|
|
lean::inc(x_183);
|
|
x_185 = lean::cnstr_get(x_2, 1);
|
|
lean::inc(x_185);
|
|
x_187 = lean::cnstr_get(x_2, 2);
|
|
lean::inc(x_187);
|
|
x_189 = lean::cnstr_get(x_2, 3);
|
|
lean::inc(x_189);
|
|
lean::dec(x_2);
|
|
lean::inc(x_0);
|
|
x_193 = l_lean_ir_varid_alpha__eqv(x_0, x_174, x_183);
|
|
lean::dec(x_183);
|
|
lean::dec(x_174);
|
|
if (x_193 == 0)
|
|
{
|
|
lean::dec(x_185);
|
|
lean::dec(x_176);
|
|
if (x_193 == 0)
|
|
{
|
|
lean::dec(x_178);
|
|
lean::dec(x_187);
|
|
if (x_193 == 0)
|
|
{
|
|
lean::dec(x_180);
|
|
lean::dec(x_0);
|
|
lean::dec(x_189);
|
|
return x_193;
|
|
}
|
|
else
|
|
{
|
|
x_1 = x_180;
|
|
x_2 = x_189;
|
|
goto _start;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
uint8 x_205;
|
|
lean::inc(x_0);
|
|
x_205 = l_lean_ir_varid_alpha__eqv(x_0, x_178, x_187);
|
|
lean::dec(x_187);
|
|
lean::dec(x_178);
|
|
if (x_205 == 0)
|
|
{
|
|
lean::dec(x_180);
|
|
lean::dec(x_0);
|
|
lean::dec(x_189);
|
|
return x_205;
|
|
}
|
|
else
|
|
{
|
|
x_1 = x_180;
|
|
x_2 = x_189;
|
|
goto _start;
|
|
}
|
|
}
|
|
}
|
|
else
|
|
{
|
|
uint8 x_212;
|
|
x_212 = lean::nat_dec_eq(x_176, x_185);
|
|
lean::dec(x_185);
|
|
lean::dec(x_176);
|
|
if (x_212 == 0)
|
|
{
|
|
uint8 x_220;
|
|
lean::dec(x_180);
|
|
lean::dec(x_178);
|
|
lean::dec(x_0);
|
|
lean::dec(x_189);
|
|
lean::dec(x_187);
|
|
x_220 = 0;
|
|
return x_220;
|
|
}
|
|
else
|
|
{
|
|
if (x_193 == 0)
|
|
{
|
|
lean::dec(x_178);
|
|
lean::dec(x_187);
|
|
if (x_193 == 0)
|
|
{
|
|
lean::dec(x_180);
|
|
lean::dec(x_0);
|
|
lean::dec(x_189);
|
|
return x_193;
|
|
}
|
|
else
|
|
{
|
|
x_1 = x_180;
|
|
x_2 = x_189;
|
|
goto _start;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
uint8 x_228;
|
|
lean::inc(x_0);
|
|
x_228 = l_lean_ir_varid_alpha__eqv(x_0, x_178, x_187);
|
|
lean::dec(x_187);
|
|
lean::dec(x_178);
|
|
if (x_228 == 0)
|
|
{
|
|
lean::dec(x_180);
|
|
lean::dec(x_0);
|
|
lean::dec(x_189);
|
|
return x_228;
|
|
}
|
|
else
|
|
{
|
|
x_1 = x_180;
|
|
x_2 = x_189;
|
|
goto _start;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
case 12:
|
|
{
|
|
uint8 x_237;
|
|
lean::dec(x_1);
|
|
lean::dec(x_0);
|
|
x_237 = 0;
|
|
return x_237;
|
|
}
|
|
default:
|
|
{
|
|
uint8 x_241;
|
|
lean::dec(x_1);
|
|
lean::dec(x_0);
|
|
lean::dec(x_2);
|
|
x_241 = 0;
|
|
return x_241;
|
|
}
|
|
}
|
|
}
|
|
case 4:
|
|
{
|
|
uint8 x_242;
|
|
x_242 = lean::cnstr_get_scalar<uint8>(x_1, sizeof(void*)*5);
|
|
switch (lean::obj_tag(x_2)) {
|
|
case 4:
|
|
{
|
|
obj* x_243; obj* x_245; obj* x_247; obj* x_249; obj* x_251; obj* x_254; obj* x_256; obj* x_258; obj* x_260; uint8 x_262; obj* x_263; uint8 x_266; uint8 x_268; uint8 x_271;
|
|
x_243 = lean::cnstr_get(x_1, 0);
|
|
lean::inc(x_243);
|
|
x_245 = lean::cnstr_get(x_1, 1);
|
|
lean::inc(x_245);
|
|
x_247 = lean::cnstr_get(x_1, 2);
|
|
lean::inc(x_247);
|
|
x_249 = lean::cnstr_get(x_1, 3);
|
|
lean::inc(x_249);
|
|
x_251 = lean::cnstr_get(x_1, 4);
|
|
lean::inc(x_251);
|
|
lean::dec(x_1);
|
|
x_254 = lean::cnstr_get(x_2, 0);
|
|
lean::inc(x_254);
|
|
x_256 = lean::cnstr_get(x_2, 1);
|
|
lean::inc(x_256);
|
|
x_258 = lean::cnstr_get(x_2, 2);
|
|
lean::inc(x_258);
|
|
x_260 = lean::cnstr_get(x_2, 3);
|
|
lean::inc(x_260);
|
|
x_262 = lean::cnstr_get_scalar<uint8>(x_2, sizeof(void*)*5);
|
|
x_263 = lean::cnstr_get(x_2, 4);
|
|
lean::inc(x_263);
|
|
lean::dec(x_2);
|
|
lean::inc(x_0);
|
|
x_271 = l_lean_ir_varid_alpha__eqv(x_0, x_243, x_254);
|
|
lean::dec(x_254);
|
|
lean::dec(x_243);
|
|
if (x_271 == 0)
|
|
{
|
|
lean::dec(x_245);
|
|
lean::dec(x_256);
|
|
if (x_271 == 0)
|
|
{
|
|
lean::dec(x_247);
|
|
lean::dec(x_258);
|
|
x_266 = x_271;
|
|
goto lbl_267;
|
|
}
|
|
else
|
|
{
|
|
x_268 = x_271;
|
|
goto lbl_269;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
uint8 x_278;
|
|
x_278 = lean::nat_dec_eq(x_245, x_256);
|
|
lean::dec(x_256);
|
|
lean::dec(x_245);
|
|
if (x_278 == 0)
|
|
{
|
|
uint8 x_283;
|
|
lean::dec(x_247);
|
|
lean::dec(x_258);
|
|
x_283 = 0;
|
|
x_266 = x_283;
|
|
goto lbl_267;
|
|
}
|
|
else
|
|
{
|
|
if (x_271 == 0)
|
|
{
|
|
lean::dec(x_247);
|
|
lean::dec(x_258);
|
|
x_266 = x_271;
|
|
goto lbl_267;
|
|
}
|
|
else
|
|
{
|
|
x_268 = x_271;
|
|
goto lbl_269;
|
|
}
|
|
}
|
|
}
|
|
lbl_267:
|
|
{
|
|
if (x_266 == 0)
|
|
{
|
|
lean::dec(x_260);
|
|
lean::dec(x_249);
|
|
if (x_266 == 0)
|
|
{
|
|
if (x_266 == 0)
|
|
{
|
|
lean::dec(x_251);
|
|
lean::dec(x_263);
|
|
lean::dec(x_0);
|
|
return x_266;
|
|
}
|
|
else
|
|
{
|
|
x_1 = x_251;
|
|
x_2 = x_263;
|
|
goto _start;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
uint8 x_292;
|
|
x_292 = l_lean_ir_type_beq___main(x_242, x_262);
|
|
if (x_292 == 0)
|
|
{
|
|
lean::dec(x_251);
|
|
lean::dec(x_263);
|
|
lean::dec(x_0);
|
|
return x_292;
|
|
}
|
|
else
|
|
{
|
|
x_1 = x_251;
|
|
x_2 = x_263;
|
|
goto _start;
|
|
}
|
|
}
|
|
}
|
|
else
|
|
{
|
|
uint8 x_298;
|
|
lean::inc(x_0);
|
|
x_298 = l_lean_ir_varid_alpha__eqv(x_0, x_249, x_260);
|
|
lean::dec(x_260);
|
|
lean::dec(x_249);
|
|
if (x_298 == 0)
|
|
{
|
|
if (x_298 == 0)
|
|
{
|
|
lean::dec(x_251);
|
|
lean::dec(x_263);
|
|
lean::dec(x_0);
|
|
return x_298;
|
|
}
|
|
else
|
|
{
|
|
x_1 = x_251;
|
|
x_2 = x_263;
|
|
goto _start;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
uint8 x_305;
|
|
x_305 = l_lean_ir_type_beq___main(x_242, x_262);
|
|
if (x_305 == 0)
|
|
{
|
|
lean::dec(x_251);
|
|
lean::dec(x_263);
|
|
lean::dec(x_0);
|
|
return x_305;
|
|
}
|
|
else
|
|
{
|
|
x_1 = x_251;
|
|
x_2 = x_263;
|
|
goto _start;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
lbl_269:
|
|
{
|
|
uint8 x_310;
|
|
x_310 = lean::nat_dec_eq(x_247, x_258);
|
|
lean::dec(x_258);
|
|
lean::dec(x_247);
|
|
if (x_310 == 0)
|
|
{
|
|
uint8 x_318;
|
|
lean::dec(x_251);
|
|
lean::dec(x_263);
|
|
lean::dec(x_260);
|
|
lean::dec(x_249);
|
|
lean::dec(x_0);
|
|
x_318 = 0;
|
|
return x_318;
|
|
}
|
|
else
|
|
{
|
|
if (x_268 == 0)
|
|
{
|
|
lean::dec(x_260);
|
|
lean::dec(x_249);
|
|
if (x_268 == 0)
|
|
{
|
|
if (x_268 == 0)
|
|
{
|
|
lean::dec(x_251);
|
|
lean::dec(x_263);
|
|
lean::dec(x_0);
|
|
return x_268;
|
|
}
|
|
else
|
|
{
|
|
x_1 = x_251;
|
|
x_2 = x_263;
|
|
goto _start;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
uint8 x_325;
|
|
x_325 = l_lean_ir_type_beq___main(x_242, x_262);
|
|
if (x_325 == 0)
|
|
{
|
|
lean::dec(x_251);
|
|
lean::dec(x_263);
|
|
lean::dec(x_0);
|
|
return x_325;
|
|
}
|
|
else
|
|
{
|
|
x_1 = x_251;
|
|
x_2 = x_263;
|
|
goto _start;
|
|
}
|
|
}
|
|
}
|
|
else
|
|
{
|
|
uint8 x_331;
|
|
lean::inc(x_0);
|
|
x_331 = l_lean_ir_varid_alpha__eqv(x_0, x_249, x_260);
|
|
lean::dec(x_260);
|
|
lean::dec(x_249);
|
|
if (x_331 == 0)
|
|
{
|
|
if (x_331 == 0)
|
|
{
|
|
lean::dec(x_251);
|
|
lean::dec(x_263);
|
|
lean::dec(x_0);
|
|
return x_331;
|
|
}
|
|
else
|
|
{
|
|
x_1 = x_251;
|
|
x_2 = x_263;
|
|
goto _start;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
uint8 x_338;
|
|
x_338 = l_lean_ir_type_beq___main(x_242, x_262);
|
|
if (x_338 == 0)
|
|
{
|
|
lean::dec(x_251);
|
|
lean::dec(x_263);
|
|
lean::dec(x_0);
|
|
return x_338;
|
|
}
|
|
else
|
|
{
|
|
x_1 = x_251;
|
|
x_2 = x_263;
|
|
goto _start;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
case 12:
|
|
{
|
|
uint8 x_345;
|
|
lean::dec(x_1);
|
|
lean::dec(x_0);
|
|
x_345 = 0;
|
|
return x_345;
|
|
}
|
|
default:
|
|
{
|
|
uint8 x_349;
|
|
lean::dec(x_1);
|
|
lean::dec(x_0);
|
|
lean::dec(x_2);
|
|
x_349 = 0;
|
|
return x_349;
|
|
}
|
|
}
|
|
}
|
|
case 5:
|
|
{
|
|
switch (lean::obj_tag(x_2)) {
|
|
case 5:
|
|
{
|
|
obj* x_350; obj* x_352; obj* x_354; obj* x_357; obj* x_359; obj* x_361; uint8 x_365;
|
|
x_350 = lean::cnstr_get(x_1, 0);
|
|
lean::inc(x_350);
|
|
x_352 = lean::cnstr_get(x_1, 1);
|
|
lean::inc(x_352);
|
|
x_354 = lean::cnstr_get(x_1, 2);
|
|
lean::inc(x_354);
|
|
lean::dec(x_1);
|
|
x_357 = lean::cnstr_get(x_2, 0);
|
|
lean::inc(x_357);
|
|
x_359 = lean::cnstr_get(x_2, 1);
|
|
lean::inc(x_359);
|
|
x_361 = lean::cnstr_get(x_2, 2);
|
|
lean::inc(x_361);
|
|
lean::dec(x_2);
|
|
lean::inc(x_0);
|
|
x_365 = l_lean_ir_varid_alpha__eqv(x_0, x_350, x_357);
|
|
lean::dec(x_357);
|
|
lean::dec(x_350);
|
|
if (x_365 == 0)
|
|
{
|
|
lean::dec(x_359);
|
|
lean::dec(x_352);
|
|
if (x_365 == 0)
|
|
{
|
|
lean::dec(x_0);
|
|
lean::dec(x_361);
|
|
lean::dec(x_354);
|
|
return x_365;
|
|
}
|
|
else
|
|
{
|
|
x_1 = x_354;
|
|
x_2 = x_361;
|
|
goto _start;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
uint8 x_374;
|
|
x_374 = lean::nat_dec_eq(x_352, x_359);
|
|
lean::dec(x_359);
|
|
lean::dec(x_352);
|
|
if (x_374 == 0)
|
|
{
|
|
uint8 x_380;
|
|
lean::dec(x_0);
|
|
lean::dec(x_361);
|
|
lean::dec(x_354);
|
|
x_380 = 0;
|
|
return x_380;
|
|
}
|
|
else
|
|
{
|
|
if (x_365 == 0)
|
|
{
|
|
lean::dec(x_0);
|
|
lean::dec(x_361);
|
|
lean::dec(x_354);
|
|
return x_365;
|
|
}
|
|
else
|
|
{
|
|
x_1 = x_354;
|
|
x_2 = x_361;
|
|
goto _start;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
case 12:
|
|
{
|
|
uint8 x_387;
|
|
lean::dec(x_1);
|
|
lean::dec(x_0);
|
|
x_387 = 0;
|
|
return x_387;
|
|
}
|
|
default:
|
|
{
|
|
uint8 x_391;
|
|
lean::dec(x_1);
|
|
lean::dec(x_0);
|
|
lean::dec(x_2);
|
|
x_391 = 0;
|
|
return x_391;
|
|
}
|
|
}
|
|
}
|
|
case 6:
|
|
{
|
|
uint8 x_392;
|
|
x_392 = lean::cnstr_get_scalar<uint8>(x_1, sizeof(void*)*3);
|
|
switch (lean::obj_tag(x_2)) {
|
|
case 6:
|
|
{
|
|
obj* x_393; obj* x_395; obj* x_397; obj* x_400; obj* x_402; uint8 x_404; obj* x_405; uint8 x_408; uint8 x_411;
|
|
x_393 = lean::cnstr_get(x_1, 0);
|
|
lean::inc(x_393);
|
|
x_395 = lean::cnstr_get(x_1, 1);
|
|
lean::inc(x_395);
|
|
x_397 = lean::cnstr_get(x_1, 2);
|
|
lean::inc(x_397);
|
|
lean::dec(x_1);
|
|
x_400 = lean::cnstr_get(x_2, 0);
|
|
lean::inc(x_400);
|
|
x_402 = lean::cnstr_get(x_2, 1);
|
|
lean::inc(x_402);
|
|
x_404 = lean::cnstr_get_scalar<uint8>(x_2, sizeof(void*)*3);
|
|
x_405 = lean::cnstr_get(x_2, 2);
|
|
lean::inc(x_405);
|
|
lean::dec(x_2);
|
|
lean::inc(x_0);
|
|
x_411 = l_lean_ir_varid_alpha__eqv(x_0, x_393, x_400);
|
|
lean::dec(x_400);
|
|
lean::dec(x_393);
|
|
if (x_411 == 0)
|
|
{
|
|
lean::dec(x_395);
|
|
lean::dec(x_402);
|
|
if (x_411 == 0)
|
|
{
|
|
if (x_411 == 0)
|
|
{
|
|
lean::dec(x_405);
|
|
lean::dec(x_0);
|
|
lean::dec(x_397);
|
|
return x_411;
|
|
}
|
|
else
|
|
{
|
|
x_1 = x_397;
|
|
x_2 = x_405;
|
|
goto _start;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
x_408 = x_411;
|
|
goto lbl_409;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
uint8 x_420;
|
|
x_420 = lean::nat_dec_eq(x_395, x_402);
|
|
lean::dec(x_402);
|
|
lean::dec(x_395);
|
|
if (x_420 == 0)
|
|
{
|
|
uint8 x_426;
|
|
lean::dec(x_405);
|
|
lean::dec(x_0);
|
|
lean::dec(x_397);
|
|
x_426 = 0;
|
|
return x_426;
|
|
}
|
|
else
|
|
{
|
|
if (x_411 == 0)
|
|
{
|
|
if (x_411 == 0)
|
|
{
|
|
lean::dec(x_405);
|
|
lean::dec(x_0);
|
|
lean::dec(x_397);
|
|
return x_411;
|
|
}
|
|
else
|
|
{
|
|
x_1 = x_397;
|
|
x_2 = x_405;
|
|
goto _start;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
x_408 = x_411;
|
|
goto lbl_409;
|
|
}
|
|
}
|
|
}
|
|
lbl_409:
|
|
{
|
|
if (x_392 == 0)
|
|
{
|
|
if (x_404 == 0)
|
|
{
|
|
if (x_408 == 0)
|
|
{
|
|
lean::dec(x_405);
|
|
lean::dec(x_0);
|
|
lean::dec(x_397);
|
|
return x_408;
|
|
}
|
|
else
|
|
{
|
|
x_1 = x_397;
|
|
x_2 = x_405;
|
|
goto _start;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
uint8 x_438;
|
|
lean::dec(x_405);
|
|
lean::dec(x_0);
|
|
lean::dec(x_397);
|
|
x_438 = 0;
|
|
return x_438;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
if (x_404 == 0)
|
|
{
|
|
uint8 x_442;
|
|
lean::dec(x_405);
|
|
lean::dec(x_0);
|
|
lean::dec(x_397);
|
|
x_442 = 0;
|
|
return x_442;
|
|
}
|
|
else
|
|
{
|
|
if (x_408 == 0)
|
|
{
|
|
lean::dec(x_405);
|
|
lean::dec(x_0);
|
|
lean::dec(x_397);
|
|
return x_408;
|
|
}
|
|
else
|
|
{
|
|
x_1 = x_397;
|
|
x_2 = x_405;
|
|
goto _start;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
case 12:
|
|
{
|
|
uint8 x_449;
|
|
lean::dec(x_1);
|
|
lean::dec(x_0);
|
|
x_449 = 0;
|
|
return x_449;
|
|
}
|
|
default:
|
|
{
|
|
uint8 x_453;
|
|
lean::dec(x_1);
|
|
lean::dec(x_0);
|
|
lean::dec(x_2);
|
|
x_453 = 0;
|
|
return x_453;
|
|
}
|
|
}
|
|
}
|
|
case 7:
|
|
{
|
|
uint8 x_454;
|
|
x_454 = lean::cnstr_get_scalar<uint8>(x_1, sizeof(void*)*3);
|
|
switch (lean::obj_tag(x_2)) {
|
|
case 7:
|
|
{
|
|
obj* x_455; obj* x_457; obj* x_459; obj* x_462; obj* x_464; uint8 x_466; obj* x_467; uint8 x_470; uint8 x_473;
|
|
x_455 = lean::cnstr_get(x_1, 0);
|
|
lean::inc(x_455);
|
|
x_457 = lean::cnstr_get(x_1, 1);
|
|
lean::inc(x_457);
|
|
x_459 = lean::cnstr_get(x_1, 2);
|
|
lean::inc(x_459);
|
|
lean::dec(x_1);
|
|
x_462 = lean::cnstr_get(x_2, 0);
|
|
lean::inc(x_462);
|
|
x_464 = lean::cnstr_get(x_2, 1);
|
|
lean::inc(x_464);
|
|
x_466 = lean::cnstr_get_scalar<uint8>(x_2, sizeof(void*)*3);
|
|
x_467 = lean::cnstr_get(x_2, 2);
|
|
lean::inc(x_467);
|
|
lean::dec(x_2);
|
|
lean::inc(x_0);
|
|
x_473 = l_lean_ir_varid_alpha__eqv(x_0, x_455, x_462);
|
|
lean::dec(x_462);
|
|
lean::dec(x_455);
|
|
if (x_473 == 0)
|
|
{
|
|
lean::dec(x_464);
|
|
lean::dec(x_457);
|
|
if (x_473 == 0)
|
|
{
|
|
if (x_473 == 0)
|
|
{
|
|
lean::dec(x_467);
|
|
lean::dec(x_0);
|
|
lean::dec(x_459);
|
|
return x_473;
|
|
}
|
|
else
|
|
{
|
|
x_1 = x_459;
|
|
x_2 = x_467;
|
|
goto _start;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
x_470 = x_473;
|
|
goto lbl_471;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
uint8 x_482;
|
|
x_482 = lean::nat_dec_eq(x_457, x_464);
|
|
lean::dec(x_464);
|
|
lean::dec(x_457);
|
|
if (x_482 == 0)
|
|
{
|
|
uint8 x_488;
|
|
lean::dec(x_467);
|
|
lean::dec(x_0);
|
|
lean::dec(x_459);
|
|
x_488 = 0;
|
|
return x_488;
|
|
}
|
|
else
|
|
{
|
|
if (x_473 == 0)
|
|
{
|
|
if (x_473 == 0)
|
|
{
|
|
lean::dec(x_467);
|
|
lean::dec(x_0);
|
|
lean::dec(x_459);
|
|
return x_473;
|
|
}
|
|
else
|
|
{
|
|
x_1 = x_459;
|
|
x_2 = x_467;
|
|
goto _start;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
x_470 = x_473;
|
|
goto lbl_471;
|
|
}
|
|
}
|
|
}
|
|
lbl_471:
|
|
{
|
|
if (x_454 == 0)
|
|
{
|
|
if (x_466 == 0)
|
|
{
|
|
if (x_470 == 0)
|
|
{
|
|
lean::dec(x_467);
|
|
lean::dec(x_0);
|
|
lean::dec(x_459);
|
|
return x_470;
|
|
}
|
|
else
|
|
{
|
|
x_1 = x_459;
|
|
x_2 = x_467;
|
|
goto _start;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
uint8 x_500;
|
|
lean::dec(x_467);
|
|
lean::dec(x_0);
|
|
lean::dec(x_459);
|
|
x_500 = 0;
|
|
return x_500;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
if (x_466 == 0)
|
|
{
|
|
uint8 x_504;
|
|
lean::dec(x_467);
|
|
lean::dec(x_0);
|
|
lean::dec(x_459);
|
|
x_504 = 0;
|
|
return x_504;
|
|
}
|
|
else
|
|
{
|
|
if (x_470 == 0)
|
|
{
|
|
lean::dec(x_467);
|
|
lean::dec(x_0);
|
|
lean::dec(x_459);
|
|
return x_470;
|
|
}
|
|
else
|
|
{
|
|
x_1 = x_459;
|
|
x_2 = x_467;
|
|
goto _start;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
case 12:
|
|
{
|
|
uint8 x_511;
|
|
lean::dec(x_1);
|
|
lean::dec(x_0);
|
|
x_511 = 0;
|
|
return x_511;
|
|
}
|
|
default:
|
|
{
|
|
uint8 x_515;
|
|
lean::dec(x_1);
|
|
lean::dec(x_0);
|
|
lean::dec(x_2);
|
|
x_515 = 0;
|
|
return x_515;
|
|
}
|
|
}
|
|
}
|
|
case 8:
|
|
{
|
|
switch (lean::obj_tag(x_2)) {
|
|
case 8:
|
|
{
|
|
obj* x_516; obj* x_518; obj* x_521; obj* x_523; uint8 x_526;
|
|
x_516 = lean::cnstr_get(x_1, 0);
|
|
lean::inc(x_516);
|
|
x_518 = lean::cnstr_get(x_1, 1);
|
|
lean::inc(x_518);
|
|
lean::dec(x_1);
|
|
x_521 = lean::cnstr_get(x_2, 0);
|
|
lean::inc(x_521);
|
|
x_523 = lean::cnstr_get(x_2, 1);
|
|
lean::inc(x_523);
|
|
lean::dec(x_2);
|
|
x_526 = l_lean_kvmap_eqv(x_516, x_521);
|
|
if (x_526 == 0)
|
|
{
|
|
lean::dec(x_0);
|
|
lean::dec(x_518);
|
|
lean::dec(x_523);
|
|
return x_526;
|
|
}
|
|
else
|
|
{
|
|
x_1 = x_518;
|
|
x_2 = x_523;
|
|
goto _start;
|
|
}
|
|
}
|
|
case 12:
|
|
{
|
|
uint8 x_533;
|
|
lean::dec(x_1);
|
|
lean::dec(x_0);
|
|
x_533 = 0;
|
|
return x_533;
|
|
}
|
|
default:
|
|
{
|
|
uint8 x_537;
|
|
lean::dec(x_1);
|
|
lean::dec(x_0);
|
|
lean::dec(x_2);
|
|
x_537 = 0;
|
|
return x_537;
|
|
}
|
|
}
|
|
}
|
|
case 9:
|
|
{
|
|
switch (lean::obj_tag(x_2)) {
|
|
case 9:
|
|
{
|
|
obj* x_538; obj* x_540; obj* x_542; obj* x_545; obj* x_547; obj* x_549; uint8 x_552;
|
|
x_538 = lean::cnstr_get(x_1, 0);
|
|
lean::inc(x_538);
|
|
x_540 = lean::cnstr_get(x_1, 1);
|
|
lean::inc(x_540);
|
|
x_542 = lean::cnstr_get(x_1, 2);
|
|
lean::inc(x_542);
|
|
lean::dec(x_1);
|
|
x_545 = lean::cnstr_get(x_2, 0);
|
|
lean::inc(x_545);
|
|
x_547 = lean::cnstr_get(x_2, 1);
|
|
lean::inc(x_547);
|
|
x_549 = lean::cnstr_get(x_2, 2);
|
|
lean::inc(x_549);
|
|
lean::dec(x_2);
|
|
x_552 = lean_name_dec_eq(x_538, x_545);
|
|
lean::dec(x_545);
|
|
lean::dec(x_538);
|
|
if (x_552 == 0)
|
|
{
|
|
uint8 x_560;
|
|
lean::dec(x_0);
|
|
lean::dec(x_549);
|
|
lean::dec(x_547);
|
|
lean::dec(x_540);
|
|
lean::dec(x_542);
|
|
x_560 = 0;
|
|
return x_560;
|
|
}
|
|
else
|
|
{
|
|
uint8 x_562;
|
|
lean::inc(x_0);
|
|
x_562 = l_lean_ir_varid_alpha__eqv(x_0, x_540, x_547);
|
|
lean::dec(x_547);
|
|
lean::dec(x_540);
|
|
if (x_562 == 0)
|
|
{
|
|
lean::dec(x_0);
|
|
lean::dec(x_549);
|
|
lean::dec(x_542);
|
|
return x_562;
|
|
}
|
|
else
|
|
{
|
|
uint8 x_568;
|
|
x_568 = l_lean_ir_alts_alpha__eqv___main(x_0, x_542, x_549);
|
|
return x_568;
|
|
}
|
|
}
|
|
}
|
|
case 12:
|
|
{
|
|
uint8 x_571;
|
|
lean::dec(x_1);
|
|
lean::dec(x_0);
|
|
x_571 = 0;
|
|
return x_571;
|
|
}
|
|
default:
|
|
{
|
|
uint8 x_575;
|
|
lean::dec(x_1);
|
|
lean::dec(x_0);
|
|
lean::dec(x_2);
|
|
x_575 = 0;
|
|
return x_575;
|
|
}
|
|
}
|
|
}
|
|
case 10:
|
|
{
|
|
switch (lean::obj_tag(x_2)) {
|
|
case 10:
|
|
{
|
|
obj* x_576; obj* x_579; uint8 x_582;
|
|
x_576 = lean::cnstr_get(x_1, 0);
|
|
lean::inc(x_576);
|
|
lean::dec(x_1);
|
|
x_579 = lean::cnstr_get(x_2, 0);
|
|
lean::inc(x_579);
|
|
lean::dec(x_2);
|
|
x_582 = l_lean_ir_varid_alpha__eqv(x_0, x_576, x_579);
|
|
lean::dec(x_579);
|
|
lean::dec(x_576);
|
|
return x_582;
|
|
}
|
|
case 12:
|
|
{
|
|
uint8 x_587;
|
|
lean::dec(x_1);
|
|
lean::dec(x_0);
|
|
x_587 = 0;
|
|
return x_587;
|
|
}
|
|
default:
|
|
{
|
|
uint8 x_591;
|
|
lean::dec(x_1);
|
|
lean::dec(x_0);
|
|
lean::dec(x_2);
|
|
x_591 = 0;
|
|
return x_591;
|
|
}
|
|
}
|
|
}
|
|
case 11:
|
|
{
|
|
switch (lean::obj_tag(x_2)) {
|
|
case 11:
|
|
{
|
|
obj* x_592; obj* x_594; obj* x_597; obj* x_599; uint8 x_602;
|
|
x_592 = lean::cnstr_get(x_1, 0);
|
|
lean::inc(x_592);
|
|
x_594 = lean::cnstr_get(x_1, 1);
|
|
lean::inc(x_594);
|
|
lean::dec(x_1);
|
|
x_597 = lean::cnstr_get(x_2, 0);
|
|
lean::inc(x_597);
|
|
x_599 = lean::cnstr_get(x_2, 1);
|
|
lean::inc(x_599);
|
|
lean::dec(x_2);
|
|
x_602 = lean_name_dec_eq(x_592, x_597);
|
|
lean::dec(x_597);
|
|
lean::dec(x_592);
|
|
if (x_602 == 0)
|
|
{
|
|
uint8 x_608;
|
|
lean::dec(x_0);
|
|
lean::dec(x_599);
|
|
lean::dec(x_594);
|
|
x_608 = 0;
|
|
return x_608;
|
|
}
|
|
else
|
|
{
|
|
uint8 x_609;
|
|
x_609 = l_lean_ir_args_alpha__eqv___main(x_0, x_594, x_599);
|
|
lean::dec(x_599);
|
|
lean::dec(x_594);
|
|
return x_609;
|
|
}
|
|
}
|
|
case 12:
|
|
{
|
|
uint8 x_614;
|
|
lean::dec(x_1);
|
|
lean::dec(x_0);
|
|
x_614 = 0;
|
|
return x_614;
|
|
}
|
|
default:
|
|
{
|
|
uint8 x_618;
|
|
lean::dec(x_1);
|
|
lean::dec(x_0);
|
|
lean::dec(x_2);
|
|
x_618 = 0;
|
|
return x_618;
|
|
}
|
|
}
|
|
}
|
|
default:
|
|
{
|
|
lean::dec(x_0);
|
|
switch (lean::obj_tag(x_2)) {
|
|
case 12:
|
|
{
|
|
uint8 x_620;
|
|
x_620 = 1;
|
|
return x_620;
|
|
}
|
|
default:
|
|
{
|
|
uint8 x_622;
|
|
lean::dec(x_2);
|
|
x_622 = 0;
|
|
return x_622;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
uint8 l_lean_ir_alts_alpha__eqv___main(obj* x_0, obj* x_1, obj* x_2) {
|
|
_start:
|
|
{
|
|
if (lean::obj_tag(x_1) == 0)
|
|
{
|
|
lean::dec(x_0);
|
|
if (lean::obj_tag(x_2) == 0)
|
|
{
|
|
uint8 x_4;
|
|
x_4 = 1;
|
|
return x_4;
|
|
}
|
|
else
|
|
{
|
|
uint8 x_6;
|
|
lean::dec(x_2);
|
|
x_6 = 0;
|
|
return x_6;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
if (lean::obj_tag(x_2) == 0)
|
|
{
|
|
uint8 x_9;
|
|
lean::dec(x_1);
|
|
lean::dec(x_0);
|
|
x_9 = 0;
|
|
return x_9;
|
|
}
|
|
else
|
|
{
|
|
obj* x_10; obj* x_12; obj* x_15; obj* x_17; uint8 x_21;
|
|
x_10 = lean::cnstr_get(x_1, 0);
|
|
lean::inc(x_10);
|
|
x_12 = lean::cnstr_get(x_1, 1);
|
|
lean::inc(x_12);
|
|
lean::dec(x_1);
|
|
x_15 = lean::cnstr_get(x_2, 0);
|
|
lean::inc(x_15);
|
|
x_17 = lean::cnstr_get(x_2, 1);
|
|
lean::inc(x_17);
|
|
lean::dec(x_2);
|
|
lean::inc(x_0);
|
|
x_21 = l_lean_ir_alt_alpha__eqv___main(x_0, x_10, x_15);
|
|
if (x_21 == 0)
|
|
{
|
|
lean::dec(x_17);
|
|
lean::dec(x_0);
|
|
lean::dec(x_12);
|
|
return x_21;
|
|
}
|
|
else
|
|
{
|
|
x_1 = x_12;
|
|
x_2 = x_17;
|
|
goto _start;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
uint8 l_lean_ir_alt_alpha__eqv___main(obj* x_0, obj* x_1, obj* x_2) {
|
|
_start:
|
|
{
|
|
if (lean::obj_tag(x_1) == 0)
|
|
{
|
|
if (lean::obj_tag(x_2) == 0)
|
|
{
|
|
obj* x_3; obj* x_5; obj* x_8; obj* x_10; uint8 x_13;
|
|
x_3 = lean::cnstr_get(x_1, 0);
|
|
lean::inc(x_3);
|
|
x_5 = lean::cnstr_get(x_1, 1);
|
|
lean::inc(x_5);
|
|
lean::dec(x_1);
|
|
x_8 = lean::cnstr_get(x_2, 0);
|
|
lean::inc(x_8);
|
|
x_10 = lean::cnstr_get(x_2, 1);
|
|
lean::inc(x_10);
|
|
lean::dec(x_2);
|
|
x_13 = l_lean_ir_ctor__info_beq___main(x_3, x_8);
|
|
lean::dec(x_8);
|
|
lean::dec(x_3);
|
|
if (x_13 == 0)
|
|
{
|
|
lean::dec(x_5);
|
|
lean::dec(x_0);
|
|
lean::dec(x_10);
|
|
return x_13;
|
|
}
|
|
else
|
|
{
|
|
uint8 x_19;
|
|
x_19 = l_lean_ir_fnbody_alpha__eqv___main(x_0, x_5, x_10);
|
|
return x_19;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
uint8 x_23;
|
|
lean::dec(x_1);
|
|
lean::dec(x_0);
|
|
lean::dec(x_2);
|
|
x_23 = 0;
|
|
return x_23;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
if (lean::obj_tag(x_2) == 0)
|
|
{
|
|
uint8 x_27;
|
|
lean::dec(x_1);
|
|
lean::dec(x_0);
|
|
lean::dec(x_2);
|
|
x_27 = 0;
|
|
return x_27;
|
|
}
|
|
else
|
|
{
|
|
obj* x_28; obj* x_31; uint8 x_34;
|
|
x_28 = lean::cnstr_get(x_1, 0);
|
|
lean::inc(x_28);
|
|
lean::dec(x_1);
|
|
x_31 = lean::cnstr_get(x_2, 0);
|
|
lean::inc(x_31);
|
|
lean::dec(x_2);
|
|
x_34 = l_lean_ir_fnbody_alpha__eqv___main(x_0, x_28, x_31);
|
|
return x_34;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
obj* l_lean_ir_fnbody_alpha__eqv___main___boxed(obj* x_0, obj* x_1, obj* x_2) {
|
|
_start:
|
|
{
|
|
uint8 x_3; obj* x_4;
|
|
x_3 = l_lean_ir_fnbody_alpha__eqv___main(x_0, x_1, x_2);
|
|
x_4 = lean::box(x_3);
|
|
return x_4;
|
|
}
|
|
}
|
|
obj* l_lean_ir_alts_alpha__eqv___main___boxed(obj* x_0, obj* x_1, obj* x_2) {
|
|
_start:
|
|
{
|
|
uint8 x_3; obj* x_4;
|
|
x_3 = l_lean_ir_alts_alpha__eqv___main(x_0, x_1, x_2);
|
|
x_4 = lean::box(x_3);
|
|
return x_4;
|
|
}
|
|
}
|
|
obj* l_lean_ir_alt_alpha__eqv___main___boxed(obj* x_0, obj* x_1, obj* x_2) {
|
|
_start:
|
|
{
|
|
uint8 x_3; obj* x_4;
|
|
x_3 = l_lean_ir_alt_alpha__eqv___main(x_0, x_1, x_2);
|
|
x_4 = lean::box(x_3);
|
|
return x_4;
|
|
}
|
|
}
|
|
uint8 l_lean_ir_fnbody_alpha__eqv(obj* x_0, obj* x_1, obj* x_2) {
|
|
_start:
|
|
{
|
|
uint8 x_3;
|
|
x_3 = l_lean_ir_fnbody_alpha__eqv___main(x_0, x_1, x_2);
|
|
return x_3;
|
|
}
|
|
}
|
|
obj* l_lean_ir_fnbody_alpha__eqv___boxed(obj* x_0, obj* x_1, obj* x_2) {
|
|
_start:
|
|
{
|
|
uint8 x_3; obj* x_4;
|
|
x_3 = l_lean_ir_fnbody_alpha__eqv(x_0, x_1, x_2);
|
|
x_4 = lean::box(x_3);
|
|
return x_4;
|
|
}
|
|
}
|
|
uint8 l_lean_ir_alts_alpha__eqv(obj* x_0, obj* x_1, obj* x_2) {
|
|
_start:
|
|
{
|
|
uint8 x_3;
|
|
x_3 = l_lean_ir_alts_alpha__eqv___main(x_0, x_1, x_2);
|
|
return x_3;
|
|
}
|
|
}
|
|
obj* l_lean_ir_alts_alpha__eqv___boxed(obj* x_0, obj* x_1, obj* x_2) {
|
|
_start:
|
|
{
|
|
uint8 x_3; obj* x_4;
|
|
x_3 = l_lean_ir_alts_alpha__eqv(x_0, x_1, x_2);
|
|
x_4 = lean::box(x_3);
|
|
return x_4;
|
|
}
|
|
}
|
|
uint8 l_lean_ir_alt_alpha__eqv(obj* x_0, obj* x_1, obj* x_2) {
|
|
_start:
|
|
{
|
|
uint8 x_3;
|
|
x_3 = l_lean_ir_alt_alpha__eqv___main(x_0, x_1, x_2);
|
|
return x_3;
|
|
}
|
|
}
|
|
obj* l_lean_ir_alt_alpha__eqv___boxed(obj* x_0, obj* x_1, obj* x_2) {
|
|
_start:
|
|
{
|
|
uint8 x_3; obj* x_4;
|
|
x_3 = l_lean_ir_alt_alpha__eqv(x_0, x_1, x_2);
|
|
x_4 = lean::box(x_3);
|
|
return x_4;
|
|
}
|
|
}
|
|
uint8 l_lean_ir_fnbody_beq(obj* x_0, obj* x_1) {
|
|
_start:
|
|
{
|
|
obj* x_2; uint8 x_3;
|
|
x_2 = lean::box(0);
|
|
x_3 = l_lean_ir_fnbody_alpha__eqv___main(x_2, x_0, x_1);
|
|
return x_3;
|
|
}
|
|
}
|
|
obj* l_lean_ir_fnbody_beq___boxed(obj* x_0, obj* x_1) {
|
|
_start:
|
|
{
|
|
uint8 x_2; obj* x_3;
|
|
x_2 = l_lean_ir_fnbody_beq(x_0, x_1);
|
|
x_3 = lean::box(x_2);
|
|
return x_3;
|
|
}
|
|
}
|
|
obj* _init_l_lean_ir_fnbody_has__beq() {
|
|
_start:
|
|
{
|
|
obj* x_0;
|
|
x_0 = lean::alloc_closure(reinterpret_cast<void*>(l_lean_ir_fnbody_beq___boxed), 2, 0);
|
|
return x_0;
|
|
}
|
|
}
|
|
obj* l___private_init_lean_compiler_ir_1__skip___rarg(obj* x_0) {
|
|
_start:
|
|
{
|
|
lean::inc(x_0);
|
|
return x_0;
|
|
}
|
|
}
|
|
obj* l___private_init_lean_compiler_ir_1__skip(obj* x_0) {
|
|
_start:
|
|
{
|
|
obj* x_1;
|
|
x_1 = lean::alloc_closure(reinterpret_cast<void*>(l___private_init_lean_compiler_ir_1__skip___rarg___boxed), 1, 0);
|
|
return x_1;
|
|
}
|
|
}
|
|
obj* l___private_init_lean_compiler_ir_1__skip___rarg___boxed(obj* x_0) {
|
|
_start:
|
|
{
|
|
obj* x_1;
|
|
x_1 = l___private_init_lean_compiler_ir_1__skip___rarg(x_0);
|
|
lean::dec(x_0);
|
|
return x_1;
|
|
}
|
|
}
|
|
obj* l___private_init_lean_compiler_ir_1__skip___boxed(obj* x_0) {
|
|
_start:
|
|
{
|
|
obj* x_1;
|
|
x_1 = l___private_init_lean_compiler_ir_1__skip(x_0);
|
|
lean::dec(x_0);
|
|
return x_1;
|
|
}
|
|
}
|
|
obj* l___private_init_lean_compiler_ir_2__var_collect(obj* x_0, obj* x_1, obj* x_2) {
|
|
_start:
|
|
{
|
|
uint8 x_3;
|
|
x_3 = l_lean_name__set_contains(x_1, x_0);
|
|
if (x_3 == 0)
|
|
{
|
|
obj* x_4; obj* x_5;
|
|
x_4 = lean::box(0);
|
|
x_5 = l_rbmap_insert___main___at_lean_name__set_insert___spec__1(x_2, x_0, x_4);
|
|
return x_5;
|
|
}
|
|
else
|
|
{
|
|
lean::dec(x_0);
|
|
return x_2;
|
|
}
|
|
}
|
|
}
|
|
obj* l___private_init_lean_compiler_ir_3__with__bv(obj* x_0, obj* x_1, obj* x_2, obj* x_3) {
|
|
_start:
|
|
{
|
|
obj* x_4; obj* x_5; obj* x_6;
|
|
x_4 = lean::box(0);
|
|
x_5 = l_rbmap_insert___main___at_lean_name__set_insert___spec__1(x_2, x_0, x_4);
|
|
x_6 = lean::apply_2(x_1, x_5, x_3);
|
|
return x_6;
|
|
}
|
|
}
|
|
obj* l_list_foldl___main___at_lean_ir_insert__params___spec__1(obj* x_0, obj* x_1) {
|
|
_start:
|
|
{
|
|
if (lean::obj_tag(x_1) == 0)
|
|
{
|
|
return x_0;
|
|
}
|
|
else
|
|
{
|
|
obj* x_2; obj* x_4; obj* x_7; obj* x_10; obj* x_11;
|
|
x_2 = lean::cnstr_get(x_1, 0);
|
|
lean::inc(x_2);
|
|
x_4 = lean::cnstr_get(x_1, 1);
|
|
lean::inc(x_4);
|
|
lean::dec(x_1);
|
|
x_7 = lean::cnstr_get(x_2, 0);
|
|
lean::inc(x_7);
|
|
lean::dec(x_2);
|
|
x_10 = lean::box(0);
|
|
x_11 = l_rbmap_insert___main___at_lean_name__set_insert___spec__1(x_0, x_7, x_10);
|
|
x_0 = x_11;
|
|
x_1 = x_4;
|
|
goto _start;
|
|
}
|
|
}
|
|
}
|
|
obj* l_lean_ir_insert__params(obj* x_0, obj* x_1) {
|
|
_start:
|
|
{
|
|
obj* x_2;
|
|
x_2 = l_list_foldl___main___at_lean_ir_insert__params___spec__1(x_0, x_1);
|
|
return x_2;
|
|
}
|
|
}
|
|
obj* l___private_init_lean_compiler_ir_4__with__params(obj* x_0, obj* x_1, obj* x_2, obj* x_3) {
|
|
_start:
|
|
{
|
|
obj* x_4; obj* x_5;
|
|
x_4 = l_list_foldl___main___at_lean_ir_insert__params___spec__1(x_2, x_0);
|
|
x_5 = lean::apply_2(x_1, x_4, x_3);
|
|
return x_5;
|
|
}
|
|
}
|
|
obj* l___private_init_lean_compiler_ir_5__seq(obj* x_0, obj* x_1, obj* x_2, obj* x_3) {
|
|
_start:
|
|
{
|
|
obj* x_5; obj* x_6;
|
|
lean::inc(x_2);
|
|
x_5 = lean::apply_2(x_0, x_2, x_3);
|
|
x_6 = lean::apply_2(x_1, x_2, x_5);
|
|
return x_6;
|
|
}
|
|
}
|
|
obj* l___private_init_lean_compiler_ir_6__arg_collect___main(obj* x_0, obj* x_1, obj* x_2) {
|
|
_start:
|
|
{
|
|
if (lean::obj_tag(x_0) == 0)
|
|
{
|
|
obj* x_3; uint8 x_6;
|
|
x_3 = lean::cnstr_get(x_0, 0);
|
|
lean::inc(x_3);
|
|
lean::dec(x_0);
|
|
x_6 = l_lean_name__set_contains(x_1, x_3);
|
|
if (x_6 == 0)
|
|
{
|
|
obj* x_7; obj* x_8;
|
|
x_7 = lean::box(0);
|
|
x_8 = l_rbmap_insert___main___at_lean_name__set_insert___spec__1(x_2, x_3, x_7);
|
|
return x_8;
|
|
}
|
|
else
|
|
{
|
|
lean::dec(x_3);
|
|
return x_2;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
lean::dec(x_1);
|
|
return x_2;
|
|
}
|
|
}
|
|
}
|
|
obj* l___private_init_lean_compiler_ir_6__arg_collect(obj* x_0, obj* x_1, obj* x_2) {
|
|
_start:
|
|
{
|
|
obj* x_3;
|
|
x_3 = l___private_init_lean_compiler_ir_6__arg_collect___main(x_0, x_1, x_2);
|
|
return x_3;
|
|
}
|
|
}
|
|
obj* l___private_init_lean_compiler_ir_7__args_collect___main(obj* x_0, obj* x_1, obj* x_2) {
|
|
_start:
|
|
{
|
|
if (lean::obj_tag(x_0) == 0)
|
|
{
|
|
lean::dec(x_1);
|
|
return x_2;
|
|
}
|
|
else
|
|
{
|
|
obj* x_4; obj* x_6; obj* x_10;
|
|
x_4 = lean::cnstr_get(x_0, 0);
|
|
lean::inc(x_4);
|
|
x_6 = lean::cnstr_get(x_0, 1);
|
|
lean::inc(x_6);
|
|
lean::dec(x_0);
|
|
lean::inc(x_1);
|
|
x_10 = l___private_init_lean_compiler_ir_6__arg_collect___main(x_4, x_1, x_2);
|
|
x_0 = x_6;
|
|
x_2 = x_10;
|
|
goto _start;
|
|
}
|
|
}
|
|
}
|
|
obj* l___private_init_lean_compiler_ir_7__args_collect(obj* x_0, obj* x_1, obj* x_2) {
|
|
_start:
|
|
{
|
|
obj* x_3;
|
|
x_3 = l___private_init_lean_compiler_ir_7__args_collect___main(x_0, x_1, x_2);
|
|
return x_3;
|
|
}
|
|
}
|
|
obj* l___private_init_lean_compiler_ir_8__expr_collect___main(obj* x_0, obj* x_1, obj* x_2) {
|
|
_start:
|
|
{
|
|
switch (lean::obj_tag(x_0)) {
|
|
case 0:
|
|
{
|
|
obj* x_3; obj* x_6;
|
|
x_3 = lean::cnstr_get(x_0, 1);
|
|
lean::inc(x_3);
|
|
lean::dec(x_0);
|
|
x_6 = l___private_init_lean_compiler_ir_7__args_collect___main(x_3, x_1, x_2);
|
|
return x_6;
|
|
}
|
|
case 2:
|
|
{
|
|
obj* x_7; obj* x_9; uint8 x_13;
|
|
x_7 = lean::cnstr_get(x_0, 0);
|
|
lean::inc(x_7);
|
|
x_9 = lean::cnstr_get(x_0, 2);
|
|
lean::inc(x_9);
|
|
lean::dec(x_0);
|
|
lean::inc(x_1);
|
|
x_13 = l_lean_name__set_contains(x_1, x_7);
|
|
if (x_13 == 0)
|
|
{
|
|
obj* x_14; obj* x_15; obj* x_16;
|
|
x_14 = lean::box(0);
|
|
x_15 = l_rbmap_insert___main___at_lean_name__set_insert___spec__1(x_2, x_7, x_14);
|
|
x_16 = l___private_init_lean_compiler_ir_7__args_collect___main(x_9, x_1, x_15);
|
|
return x_16;
|
|
}
|
|
else
|
|
{
|
|
obj* x_18;
|
|
lean::dec(x_7);
|
|
x_18 = l___private_init_lean_compiler_ir_7__args_collect___main(x_9, x_1, x_2);
|
|
return x_18;
|
|
}
|
|
}
|
|
case 3:
|
|
{
|
|
obj* x_19; uint8 x_22;
|
|
x_19 = lean::cnstr_get(x_0, 1);
|
|
lean::inc(x_19);
|
|
lean::dec(x_0);
|
|
x_22 = l_lean_name__set_contains(x_1, x_19);
|
|
if (x_22 == 0)
|
|
{
|
|
obj* x_23; obj* x_24;
|
|
x_23 = lean::box(0);
|
|
x_24 = l_rbmap_insert___main___at_lean_name__set_insert___spec__1(x_2, x_19, x_23);
|
|
return x_24;
|
|
}
|
|
else
|
|
{
|
|
lean::dec(x_19);
|
|
return x_2;
|
|
}
|
|
}
|
|
case 4:
|
|
{
|
|
obj* x_26; uint8 x_29;
|
|
x_26 = lean::cnstr_get(x_0, 1);
|
|
lean::inc(x_26);
|
|
lean::dec(x_0);
|
|
x_29 = l_lean_name__set_contains(x_1, x_26);
|
|
if (x_29 == 0)
|
|
{
|
|
obj* x_30; obj* x_31;
|
|
x_30 = lean::box(0);
|
|
x_31 = l_rbmap_insert___main___at_lean_name__set_insert___spec__1(x_2, x_26, x_30);
|
|
return x_31;
|
|
}
|
|
else
|
|
{
|
|
lean::dec(x_26);
|
|
return x_2;
|
|
}
|
|
}
|
|
case 5:
|
|
{
|
|
obj* x_33; uint8 x_36;
|
|
x_33 = lean::cnstr_get(x_0, 1);
|
|
lean::inc(x_33);
|
|
lean::dec(x_0);
|
|
x_36 = l_lean_name__set_contains(x_1, x_33);
|
|
if (x_36 == 0)
|
|
{
|
|
obj* x_37; obj* x_38;
|
|
x_37 = lean::box(0);
|
|
x_38 = l_rbmap_insert___main___at_lean_name__set_insert___spec__1(x_2, x_33, x_37);
|
|
return x_38;
|
|
}
|
|
else
|
|
{
|
|
lean::dec(x_33);
|
|
return x_2;
|
|
}
|
|
}
|
|
case 6:
|
|
{
|
|
obj* x_40; obj* x_43;
|
|
x_40 = lean::cnstr_get(x_0, 1);
|
|
lean::inc(x_40);
|
|
lean::dec(x_0);
|
|
x_43 = l___private_init_lean_compiler_ir_7__args_collect___main(x_40, x_1, x_2);
|
|
return x_43;
|
|
}
|
|
case 7:
|
|
{
|
|
obj* x_44; obj* x_47;
|
|
x_44 = lean::cnstr_get(x_0, 1);
|
|
lean::inc(x_44);
|
|
lean::dec(x_0);
|
|
x_47 = l___private_init_lean_compiler_ir_7__args_collect___main(x_44, x_1, x_2);
|
|
return x_47;
|
|
}
|
|
case 8:
|
|
{
|
|
obj* x_48; obj* x_50; uint8 x_54;
|
|
x_48 = lean::cnstr_get(x_0, 0);
|
|
lean::inc(x_48);
|
|
x_50 = lean::cnstr_get(x_0, 1);
|
|
lean::inc(x_50);
|
|
lean::dec(x_0);
|
|
lean::inc(x_1);
|
|
x_54 = l_lean_name__set_contains(x_1, x_48);
|
|
if (x_54 == 0)
|
|
{
|
|
obj* x_55; obj* x_56; obj* x_57;
|
|
x_55 = lean::box(0);
|
|
x_56 = l_rbmap_insert___main___at_lean_name__set_insert___spec__1(x_2, x_48, x_55);
|
|
x_57 = l___private_init_lean_compiler_ir_7__args_collect___main(x_50, x_1, x_56);
|
|
return x_57;
|
|
}
|
|
else
|
|
{
|
|
obj* x_59;
|
|
lean::dec(x_48);
|
|
x_59 = l___private_init_lean_compiler_ir_7__args_collect___main(x_50, x_1, x_2);
|
|
return x_59;
|
|
}
|
|
}
|
|
case 11:
|
|
{
|
|
lean::dec(x_1);
|
|
lean::dec(x_0);
|
|
return x_2;
|
|
}
|
|
default:
|
|
{
|
|
obj* x_62; uint8 x_65;
|
|
x_62 = lean::cnstr_get(x_0, 0);
|
|
lean::inc(x_62);
|
|
lean::dec(x_0);
|
|
x_65 = l_lean_name__set_contains(x_1, x_62);
|
|
if (x_65 == 0)
|
|
{
|
|
obj* x_66; obj* x_67;
|
|
x_66 = lean::box(0);
|
|
x_67 = l_rbmap_insert___main___at_lean_name__set_insert___spec__1(x_2, x_62, x_66);
|
|
return x_67;
|
|
}
|
|
else
|
|
{
|
|
lean::dec(x_62);
|
|
return x_2;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
obj* l___private_init_lean_compiler_ir_8__expr_collect(obj* x_0, obj* x_1, obj* x_2) {
|
|
_start:
|
|
{
|
|
obj* x_3;
|
|
x_3 = l___private_init_lean_compiler_ir_8__expr_collect___main(x_0, x_1, x_2);
|
|
return x_3;
|
|
}
|
|
}
|
|
obj* l___private_init_lean_compiler_ir_9__fnbody_collect___main(obj* x_0, obj* x_1, obj* x_2) {
|
|
_start:
|
|
{
|
|
switch (lean::obj_tag(x_0)) {
|
|
case 0:
|
|
{
|
|
obj* x_3; obj* x_5; obj* x_7; obj* x_11; obj* x_12; obj* x_13;
|
|
x_3 = lean::cnstr_get(x_0, 0);
|
|
lean::inc(x_3);
|
|
x_5 = lean::cnstr_get(x_0, 1);
|
|
lean::inc(x_5);
|
|
x_7 = lean::cnstr_get(x_0, 2);
|
|
lean::inc(x_7);
|
|
lean::dec(x_0);
|
|
lean::inc(x_1);
|
|
x_11 = l___private_init_lean_compiler_ir_8__expr_collect___main(x_5, x_1, x_2);
|
|
x_12 = lean::box(0);
|
|
x_13 = l_rbmap_insert___main___at_lean_name__set_insert___spec__1(x_1, x_3, x_12);
|
|
x_0 = x_7;
|
|
x_1 = x_13;
|
|
x_2 = x_11;
|
|
goto _start;
|
|
}
|
|
case 1:
|
|
{
|
|
obj* x_15; obj* x_17; obj* x_19; obj* x_21; obj* x_25; obj* x_26; obj* x_27; obj* x_28;
|
|
x_15 = lean::cnstr_get(x_0, 0);
|
|
lean::inc(x_15);
|
|
x_17 = lean::cnstr_get(x_0, 1);
|
|
lean::inc(x_17);
|
|
x_19 = lean::cnstr_get(x_0, 2);
|
|
lean::inc(x_19);
|
|
x_21 = lean::cnstr_get(x_0, 3);
|
|
lean::inc(x_21);
|
|
lean::dec(x_0);
|
|
lean::inc(x_1);
|
|
x_25 = l_list_foldl___main___at_lean_ir_insert__params___spec__1(x_1, x_17);
|
|
x_26 = l___private_init_lean_compiler_ir_9__fnbody_collect___main(x_19, x_25, x_2);
|
|
x_27 = lean::box(0);
|
|
x_28 = l_rbmap_insert___main___at_lean_name__set_insert___spec__1(x_1, x_15, x_27);
|
|
x_0 = x_21;
|
|
x_1 = x_28;
|
|
x_2 = x_26;
|
|
goto _start;
|
|
}
|
|
case 2:
|
|
{
|
|
obj* x_30; obj* x_32; obj* x_34; uint8 x_38; uint8 x_40;
|
|
x_30 = lean::cnstr_get(x_0, 0);
|
|
lean::inc(x_30);
|
|
x_32 = lean::cnstr_get(x_0, 2);
|
|
lean::inc(x_32);
|
|
x_34 = lean::cnstr_get(x_0, 3);
|
|
lean::inc(x_34);
|
|
lean::dec(x_0);
|
|
lean::inc(x_1);
|
|
x_38 = l_lean_name__set_contains(x_1, x_30);
|
|
lean::inc(x_1);
|
|
x_40 = l_lean_name__set_contains(x_1, x_32);
|
|
if (x_38 == 0)
|
|
{
|
|
obj* x_41; obj* x_42;
|
|
x_41 = lean::box(0);
|
|
x_42 = l_rbmap_insert___main___at_lean_name__set_insert___spec__1(x_2, x_30, x_41);
|
|
if (x_40 == 0)
|
|
{
|
|
obj* x_43;
|
|
x_43 = l_rbmap_insert___main___at_lean_name__set_insert___spec__1(x_42, x_32, x_41);
|
|
x_0 = x_34;
|
|
x_2 = x_43;
|
|
goto _start;
|
|
}
|
|
else
|
|
{
|
|
lean::dec(x_32);
|
|
x_0 = x_34;
|
|
x_2 = x_42;
|
|
goto _start;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
lean::dec(x_30);
|
|
if (x_40 == 0)
|
|
{
|
|
obj* x_48; obj* x_49;
|
|
x_48 = lean::box(0);
|
|
x_49 = l_rbmap_insert___main___at_lean_name__set_insert___spec__1(x_2, x_32, x_48);
|
|
x_0 = x_34;
|
|
x_2 = x_49;
|
|
goto _start;
|
|
}
|
|
else
|
|
{
|
|
lean::dec(x_32);
|
|
x_0 = x_34;
|
|
goto _start;
|
|
}
|
|
}
|
|
}
|
|
case 3:
|
|
{
|
|
obj* x_53; obj* x_55; obj* x_57; uint8 x_61; uint8 x_63;
|
|
x_53 = lean::cnstr_get(x_0, 0);
|
|
lean::inc(x_53);
|
|
x_55 = lean::cnstr_get(x_0, 2);
|
|
lean::inc(x_55);
|
|
x_57 = lean::cnstr_get(x_0, 3);
|
|
lean::inc(x_57);
|
|
lean::dec(x_0);
|
|
lean::inc(x_1);
|
|
x_61 = l_lean_name__set_contains(x_1, x_53);
|
|
lean::inc(x_1);
|
|
x_63 = l_lean_name__set_contains(x_1, x_55);
|
|
if (x_61 == 0)
|
|
{
|
|
obj* x_64; obj* x_65;
|
|
x_64 = lean::box(0);
|
|
x_65 = l_rbmap_insert___main___at_lean_name__set_insert___spec__1(x_2, x_53, x_64);
|
|
if (x_63 == 0)
|
|
{
|
|
obj* x_66;
|
|
x_66 = l_rbmap_insert___main___at_lean_name__set_insert___spec__1(x_65, x_55, x_64);
|
|
x_0 = x_57;
|
|
x_2 = x_66;
|
|
goto _start;
|
|
}
|
|
else
|
|
{
|
|
lean::dec(x_55);
|
|
x_0 = x_57;
|
|
x_2 = x_65;
|
|
goto _start;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
lean::dec(x_53);
|
|
if (x_63 == 0)
|
|
{
|
|
obj* x_71; obj* x_72;
|
|
x_71 = lean::box(0);
|
|
x_72 = l_rbmap_insert___main___at_lean_name__set_insert___spec__1(x_2, x_55, x_71);
|
|
x_0 = x_57;
|
|
x_2 = x_72;
|
|
goto _start;
|
|
}
|
|
else
|
|
{
|
|
lean::dec(x_55);
|
|
x_0 = x_57;
|
|
goto _start;
|
|
}
|
|
}
|
|
}
|
|
case 4:
|
|
{
|
|
obj* x_76; obj* x_78; obj* x_80; uint8 x_84; uint8 x_86;
|
|
x_76 = lean::cnstr_get(x_0, 0);
|
|
lean::inc(x_76);
|
|
x_78 = lean::cnstr_get(x_0, 3);
|
|
lean::inc(x_78);
|
|
x_80 = lean::cnstr_get(x_0, 4);
|
|
lean::inc(x_80);
|
|
lean::dec(x_0);
|
|
lean::inc(x_1);
|
|
x_84 = l_lean_name__set_contains(x_1, x_76);
|
|
lean::inc(x_1);
|
|
x_86 = l_lean_name__set_contains(x_1, x_78);
|
|
if (x_84 == 0)
|
|
{
|
|
obj* x_87; obj* x_88;
|
|
x_87 = lean::box(0);
|
|
x_88 = l_rbmap_insert___main___at_lean_name__set_insert___spec__1(x_2, x_76, x_87);
|
|
if (x_86 == 0)
|
|
{
|
|
obj* x_89;
|
|
x_89 = l_rbmap_insert___main___at_lean_name__set_insert___spec__1(x_88, x_78, x_87);
|
|
x_0 = x_80;
|
|
x_2 = x_89;
|
|
goto _start;
|
|
}
|
|
else
|
|
{
|
|
lean::dec(x_78);
|
|
x_0 = x_80;
|
|
x_2 = x_88;
|
|
goto _start;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
lean::dec(x_76);
|
|
if (x_86 == 0)
|
|
{
|
|
obj* x_94; obj* x_95;
|
|
x_94 = lean::box(0);
|
|
x_95 = l_rbmap_insert___main___at_lean_name__set_insert___spec__1(x_2, x_78, x_94);
|
|
x_0 = x_80;
|
|
x_2 = x_95;
|
|
goto _start;
|
|
}
|
|
else
|
|
{
|
|
lean::dec(x_78);
|
|
x_0 = x_80;
|
|
goto _start;
|
|
}
|
|
}
|
|
}
|
|
case 8:
|
|
{
|
|
obj* x_99;
|
|
x_99 = lean::cnstr_get(x_0, 1);
|
|
lean::inc(x_99);
|
|
lean::dec(x_0);
|
|
x_0 = x_99;
|
|
goto _start;
|
|
}
|
|
case 9:
|
|
{
|
|
obj* x_103; obj* x_105; uint8 x_109;
|
|
x_103 = lean::cnstr_get(x_0, 1);
|
|
lean::inc(x_103);
|
|
x_105 = lean::cnstr_get(x_0, 2);
|
|
lean::inc(x_105);
|
|
lean::dec(x_0);
|
|
lean::inc(x_1);
|
|
x_109 = l_lean_name__set_contains(x_1, x_103);
|
|
if (x_109 == 0)
|
|
{
|
|
obj* x_110; obj* x_111; obj* x_112;
|
|
x_110 = lean::box(0);
|
|
x_111 = l_rbmap_insert___main___at_lean_name__set_insert___spec__1(x_2, x_103, x_110);
|
|
x_112 = l___private_init_lean_compiler_ir_9__alts_collect___main(x_105, x_1, x_111);
|
|
return x_112;
|
|
}
|
|
else
|
|
{
|
|
obj* x_114;
|
|
lean::dec(x_103);
|
|
x_114 = l___private_init_lean_compiler_ir_9__alts_collect___main(x_105, x_1, x_2);
|
|
return x_114;
|
|
}
|
|
}
|
|
case 10:
|
|
{
|
|
obj* x_115; uint8 x_118;
|
|
x_115 = lean::cnstr_get(x_0, 0);
|
|
lean::inc(x_115);
|
|
lean::dec(x_0);
|
|
x_118 = l_lean_name__set_contains(x_1, x_115);
|
|
if (x_118 == 0)
|
|
{
|
|
obj* x_119; obj* x_120;
|
|
x_119 = lean::box(0);
|
|
x_120 = l_rbmap_insert___main___at_lean_name__set_insert___spec__1(x_2, x_115, x_119);
|
|
return x_120;
|
|
}
|
|
else
|
|
{
|
|
lean::dec(x_115);
|
|
return x_2;
|
|
}
|
|
}
|
|
case 11:
|
|
{
|
|
obj* x_122; obj* x_124; uint8 x_128;
|
|
x_122 = lean::cnstr_get(x_0, 0);
|
|
lean::inc(x_122);
|
|
x_124 = lean::cnstr_get(x_0, 1);
|
|
lean::inc(x_124);
|
|
lean::dec(x_0);
|
|
lean::inc(x_1);
|
|
x_128 = l_lean_name__set_contains(x_1, x_122);
|
|
if (x_128 == 0)
|
|
{
|
|
obj* x_129; obj* x_130; obj* x_131;
|
|
x_129 = lean::box(0);
|
|
x_130 = l_rbmap_insert___main___at_lean_name__set_insert___spec__1(x_2, x_122, x_129);
|
|
x_131 = l___private_init_lean_compiler_ir_7__args_collect___main(x_124, x_1, x_130);
|
|
return x_131;
|
|
}
|
|
else
|
|
{
|
|
obj* x_133;
|
|
lean::dec(x_122);
|
|
x_133 = l___private_init_lean_compiler_ir_7__args_collect___main(x_124, x_1, x_2);
|
|
return x_133;
|
|
}
|
|
}
|
|
case 12:
|
|
{
|
|
lean::dec(x_1);
|
|
return x_2;
|
|
}
|
|
default:
|
|
{
|
|
obj* x_135; obj* x_137; uint8 x_141;
|
|
x_135 = lean::cnstr_get(x_0, 0);
|
|
lean::inc(x_135);
|
|
x_137 = lean::cnstr_get(x_0, 2);
|
|
lean::inc(x_137);
|
|
lean::dec(x_0);
|
|
lean::inc(x_1);
|
|
x_141 = l_lean_name__set_contains(x_1, x_135);
|
|
if (x_141 == 0)
|
|
{
|
|
obj* x_142; obj* x_143;
|
|
x_142 = lean::box(0);
|
|
x_143 = l_rbmap_insert___main___at_lean_name__set_insert___spec__1(x_2, x_135, x_142);
|
|
x_0 = x_137;
|
|
x_2 = x_143;
|
|
goto _start;
|
|
}
|
|
else
|
|
{
|
|
lean::dec(x_135);
|
|
x_0 = x_137;
|
|
goto _start;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
obj* l___private_init_lean_compiler_ir_9__alts_collect___main(obj* x_0, obj* x_1, obj* x_2) {
|
|
_start:
|
|
{
|
|
if (lean::obj_tag(x_0) == 0)
|
|
{
|
|
lean::dec(x_1);
|
|
return x_2;
|
|
}
|
|
else
|
|
{
|
|
obj* x_4; obj* x_6; obj* x_10;
|
|
x_4 = lean::cnstr_get(x_0, 0);
|
|
lean::inc(x_4);
|
|
x_6 = lean::cnstr_get(x_0, 1);
|
|
lean::inc(x_6);
|
|
lean::dec(x_0);
|
|
lean::inc(x_1);
|
|
x_10 = l___private_init_lean_compiler_ir_9__alt_collect___main(x_4, x_1, x_2);
|
|
x_0 = x_6;
|
|
x_2 = x_10;
|
|
goto _start;
|
|
}
|
|
}
|
|
}
|
|
obj* l___private_init_lean_compiler_ir_9__alt_collect___main(obj* x_0, obj* x_1, obj* x_2) {
|
|
_start:
|
|
{
|
|
if (lean::obj_tag(x_0) == 0)
|
|
{
|
|
obj* x_3; obj* x_6;
|
|
x_3 = lean::cnstr_get(x_0, 1);
|
|
lean::inc(x_3);
|
|
lean::dec(x_0);
|
|
x_6 = l___private_init_lean_compiler_ir_9__fnbody_collect___main(x_3, x_1, x_2);
|
|
return x_6;
|
|
}
|
|
else
|
|
{
|
|
obj* x_7; obj* x_10;
|
|
x_7 = lean::cnstr_get(x_0, 0);
|
|
lean::inc(x_7);
|
|
lean::dec(x_0);
|
|
x_10 = l___private_init_lean_compiler_ir_9__fnbody_collect___main(x_7, x_1, x_2);
|
|
return x_10;
|
|
}
|
|
}
|
|
}
|
|
obj* l___private_init_lean_compiler_ir_9__fnbody_collect(obj* x_0, obj* x_1, obj* x_2) {
|
|
_start:
|
|
{
|
|
obj* x_3;
|
|
x_3 = l___private_init_lean_compiler_ir_9__fnbody_collect___main(x_0, x_1, x_2);
|
|
return x_3;
|
|
}
|
|
}
|
|
obj* l___private_init_lean_compiler_ir_9__alts_collect(obj* x_0, obj* x_1, obj* x_2) {
|
|
_start:
|
|
{
|
|
obj* x_3;
|
|
x_3 = l___private_init_lean_compiler_ir_9__alts_collect___main(x_0, x_1, x_2);
|
|
return x_3;
|
|
}
|
|
}
|
|
obj* l___private_init_lean_compiler_ir_9__alt_collect(obj* x_0, obj* x_1, obj* x_2) {
|
|
_start:
|
|
{
|
|
obj* x_3;
|
|
x_3 = l___private_init_lean_compiler_ir_9__alt_collect___main(x_0, x_1, x_2);
|
|
return x_3;
|
|
}
|
|
}
|
|
obj* l_lean_ir_free__vars(obj* x_0) {
|
|
_start:
|
|
{
|
|
obj* x_1; obj* x_2;
|
|
x_1 = lean::box(0);
|
|
x_2 = l___private_init_lean_compiler_ir_9__fnbody_collect___main(x_0, x_1, x_1);
|
|
return x_2;
|
|
}
|
|
}
|
|
void initialize_init_default();
|
|
void initialize_init_lean_name();
|
|
void initialize_init_lean_kvmap();
|
|
static bool _G_initialized = false;
|
|
void initialize_init_lean_compiler_ir() {
|
|
if (_G_initialized) return;
|
|
_G_initialized = true;
|
|
initialize_init_default();
|
|
initialize_init_lean_name();
|
|
initialize_init_lean_kvmap();
|
|
l_lean_ir_type_has__beq = _init_l_lean_ir_type_has__beq();
|
|
lean::mark_persistent(l_lean_ir_type_has__beq);
|
|
l_lean_ir_litval_has__beq = _init_l_lean_ir_litval_has__beq();
|
|
lean::mark_persistent(l_lean_ir_litval_has__beq);
|
|
l_lean_ir_ctor__info_has__beq = _init_l_lean_ir_ctor__info_has__beq();
|
|
lean::mark_persistent(l_lean_ir_ctor__info_has__beq);
|
|
l_lean_ir_varid_has__aeqv = _init_l_lean_ir_varid_has__aeqv();
|
|
lean::mark_persistent(l_lean_ir_varid_has__aeqv);
|
|
l_lean_ir_arg_has__aeqv = _init_l_lean_ir_arg_has__aeqv();
|
|
lean::mark_persistent(l_lean_ir_arg_has__aeqv);
|
|
l_lean_ir_args_has__aeqv = _init_l_lean_ir_args_has__aeqv();
|
|
lean::mark_persistent(l_lean_ir_args_has__aeqv);
|
|
l_lean_ir_expr_has__aeqv = _init_l_lean_ir_expr_has__aeqv();
|
|
lean::mark_persistent(l_lean_ir_expr_has__aeqv);
|
|
l_lean_ir_fnbody_has__beq = _init_l_lean_ir_fnbody_has__beq();
|
|
lean::mark_persistent(l_lean_ir_fnbody_has__beq);
|
|
}
|