/* ** ** The C code is generated by ATS/Anairiats ** The compilation time is: 2011-9-10: 22h:13m ** */ /* include some .h files */ #ifndef _ATS_HEADER_NONE #include "ats_config.h" #include "ats_basics.h" #include "ats_types.h" #include "ats_exception.h" #include "ats_memory.h" #endif /* _ATS_HEADER_NONE */ /* include some .cats files */ #ifndef _ATS_PRELUDE_NONE #include "prelude/CATS/basics.cats" #include "prelude/CATS/bool.cats" #include "prelude/CATS/byte.cats" #include "prelude/CATS/char.cats" #include "prelude/CATS/float.cats" #include "prelude/CATS/integer.cats" #include "prelude/CATS/integer_fixed.cats" #include "prelude/CATS/integer_ptr.cats" #include "prelude/CATS/lazy.cats" #include "prelude/CATS/lazy_vt.cats" #include "prelude/CATS/pointer.cats" #include "prelude/CATS/printf.cats" #include "prelude/CATS/reference.cats" #include "prelude/CATS/sizetype.cats" #include "prelude/CATS/string.cats" #include "prelude/CATS/array.cats" #include "prelude/CATS/list.cats" #include "prelude/CATS/matrix.cats" #include "prelude/CATS/option.cats" #endif /* _ATS_PRELUDE_NONE */ /* prologues from statically loaded files */ #include "libc/CATS/stdio.cats" #include "libc/sys/CATS/types.cats" /* external codes at top */ /* type definitions */ typedef struct { ats_ptr_type atslab_3 ; ats_ptr_type atslab_4 ; } anairiats_rec_0 ; typedef struct { ats_ptr_type atslab_2 ; ats_size_type atslab_3 ; } anairiats_rec_1 ; typedef struct { ats_ptr_type atslab_0 ; ats_ptr_type atslab_1 ; } anairiats_sum_2 ; typedef struct { ats_ptr_type atslab_0 ; } anairiats_sum_3 ; typedef struct { ats_ptr_type atslab_token_loc ; ats_ptr_type atslab_token_node ; } anairiats_rec_4 ; typedef struct { int tag ; ats_char_type atslab_0 ; } anairiats_sum_5 ; typedef struct { int tag ; ats_ptr_type atslab_0 ; } anairiats_sum_6 ; typedef struct { ats_ptr_type atslab_exp_loc ; ats_ptr_type atslab_exp_node ; ats_ptr_type atslab_exp_ty ; } anairiats_rec_7 ; typedef struct { int tag ; ats_ptr_type atslab_0 ; ats_int_type atslab_1 ; ats_clo_ref_type atslab_2 ; } anairiats_sum_8 ; typedef struct { int tag ; ats_ptr_type atslab_0 ; ats_int_type atslab_1 ; ats_ptr_type atslab_2 ; ats_clo_ref_type atslab_3 ; } anairiats_sum_9 ; typedef struct { ats_clo_ref_type atslab_0 ; } anairiats_sum_10 ; typedef struct { ats_ptr_type atslab_v1ar_loc ; ats_ptr_type atslab_v1ar_node ; ats_ptr_type atslab_v1ar_ty ; } anairiats_rec_11 ; typedef struct { int tag ; ats_int_type atslab_0 ; } anairiats_sum_12 ; typedef struct { ats_ptr_type atslab_typdec_loc ; ats_ptr_type atslab_typdec_name ; ats_ptr_type atslab_typdec_typ ; } anairiats_rec_13 ; typedef struct { ats_ptr_type atslab_fundec_loc ; ats_ptr_type atslab_fundec_name ; ats_ptr_type atslab_fundec_arglst ; ats_ptr_type atslab_fundec_result ; ats_ptr_type atslab_fundec_body ; } anairiats_rec_14 ; typedef struct { ats_ptr_type atslab_typ_loc ; ats_ptr_type atslab_typ_node ; ats_ptr_type atslab_typ_ty ; } anairiats_rec_15 ; /* external typedefs */ /* external dynamic constructor declarations */ ATSextern_val(ats_sum_type, ATS_2d0_2e2_2e6_2prelude_2basics_sta_2esats__list_cons) ; ATSextern_val(ats_sum_type, ATS_2d0_2e2_2e6_2prelude_2basics_sta_2esats__list_nil) ; ATSextern_val(ats_sum_type, ATS_2d0_2e2_2e6_2prelude_2basics_sta_2esats__None) ; ATSextern_val(ats_sum_type, ATS_2d0_2e2_2e6_2prelude_2basics_sta_2esats__Some) ; ATSextern_val(ats_sum_type, ATS_2d0_2e2_2e6_2prelude_2basics_sta_2esats__None_vt) ; ATSextern_val(ats_sum_type, ATS_2d0_2e2_2e6_2prelude_2basics_sta_2esats__Some_vt) ; ATSextern_val(ats_sum_type, ATS_2d0_2e2_2e6_2prelude_2basics_sta_2esats__stream_nil) ; ATSextern_val(ats_sum_type, ATS_2d0_2e2_2e6_2prelude_2basics_sta_2esats__stream_cons) ; ATSextern_val(ats_sum_type, _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2PARCOMB_2tokenize_2esats__TOKide) ; ATSextern_val(ats_sum_type, _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2PARCOMB_2tokenize_2esats__TOKint) ; ATSextern_val(ats_sum_type, _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2PARCOMB_2tokenize_2esats__TOKsingleton) ; ATSextern_val(ats_sum_type, _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2PARCOMB_2tokenize_2esats__TOKstr) ; ATSextern_val(ats_sum_type, _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2fixity_2esats__LeftAssoc) ; ATSextern_val(ats_sum_type, _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2fixity_2esats__NonAssoc) ; ATSextern_val(ats_sum_type, _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2fixity_2esats__Prefix) ; ATSextern_val(ats_sum_type, _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2fixity_2esats__Infix) ; ATSextern_val(ats_sum_type, _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2fixity_2esats__FIXITMatm) ; ATSextern_val(ats_sum_type, _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2fixity_2esats__FIXITMopr) ; ATSextern_val(ats_sum_type, _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2absyn_2esats__PlusOp) ; ATSextern_val(ats_sum_type, _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2absyn_2esats__MinusOp) ; ATSextern_val(ats_sum_type, _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2absyn_2esats__TimesOp) ; ATSextern_val(ats_sum_type, _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2absyn_2esats__DivideOp) ; ATSextern_val(ats_sum_type, _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2absyn_2esats__EqOp) ; ATSextern_val(ats_sum_type, _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2absyn_2esats__NeqOp) ; ATSextern_val(ats_sum_type, _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2absyn_2esats__GtOp) ; ATSextern_val(ats_sum_type, _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2absyn_2esats__GeOp) ; ATSextern_val(ats_sum_type, _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2absyn_2esats__LtOp) ; ATSextern_val(ats_sum_type, _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2absyn_2esats__LeOp) ; ATSextern_val(ats_sum_type, _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2absyn_2esats__AndOp) ; ATSextern_val(ats_sum_type, _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2absyn_2esats__OrOp) ; /* external dynamic constant declarations */ ATSextern_fun(ats_void_type, atspre_vbox_make_view_ptr) (ats_ptr_type) ; ATSextern_fun(ats_void_type, atspre_prerr_newline) () ; ATSextern_fun(ats_bool_type, atspre_eq_char_char) (ats_char_type, ats_char_type) ; ATSextern_fun(ats_ptr_type, atslib_fopen_exn) (ats_ptr_type, ats_ptr_type) ; ATSextern_fun(ats_ptr_type, ATS_2d0_2e2_2e6_2prelude_2SATS_2filebas_2esats__char_stream_make_file) (ats_ptr_type) ; ATSextern_fun(ats_int_type, atspre_add_int_int) (ats_int_type, ats_int_type) ; ATSextern_fun(ats_int_type, atspre_sub_int_int) (ats_int_type, ats_int_type) ; ATSextern_fun(ats_bool_type, atspre_lte_int_int) (ats_int_type, ats_int_type) ; ATSextern_fun(ats_bool_type, atspre_gt_int_int) (ats_int_type, ats_int_type) ; ATSextern_fun(ats_int_type, atspre_isucc) (ats_int_type) ; ATSextern_fun(ats_int_type, atspre_iadd) (ats_int_type, ats_int_type) ; ATSextern_fun(ats_int_type, atspre_isub) (ats_int_type, ats_int_type) ; ATSextern_fun(ats_bool_type, atspre_igt) (ats_int_type, ats_int_type) ; ATSextern_val(ats_ptr_type, atspre_null_ptr) ; ATSextern_fun(ats_ptr_type, atspre_padd_size) (ats_ptr_type, ats_size_type) ; ATSextern_fun(ats_size_type, atspre_size1_of_int1) (ats_int_type) ; ATSextern_fun(ats_size_type, atspre_add_size1_int1) (ats_size_type, ats_int_type) ; ATSextern_fun(ats_size_type, atspre_sub_size1_int1) (ats_size_type, ats_int_type) ; ATSextern_fun(ats_size_type, atspre_mul2_size1_size1) (ats_size_type, ats_size_type) ; ATSextern_fun(ats_bool_type, atspre_lt_int1_size1) (ats_int_type, ats_size_type) ; ATSextern_fun(ats_bool_type, atspre_lt_size1_size1) (ats_size_type, ats_size_type) ; ATSextern_fun(ats_bool_type, atspre_gt_size1_int1) (ats_size_type, ats_int_type) ; ATSextern_fun(ats_bool_type, atspre_neq_size1_size1) (ats_size_type, ats_size_type) ; ATSextern_fun(ats_bool_type, atspre_eq_string_string) (ats_ptr_type, ats_ptr_type) ; ATSextern_fun(ats_void_type, atspre_prerr_string) (ats_ptr_type) ; ATSextern_fun(ats_ptr_type, atspre_array_ptr_alloc_tsz) (ats_size_type, ats_size_type) ; ATSextern_fun(ats_void_type, atspre_array_ptr_free) (ats_ptr_type) ; ATSextern_fun(ats_void_type, atspre_array_ptr_initialize_funenv_tsz) (ats_ref_type, ats_size_type, ats_ptr_type, ats_size_type, ats_ptr_type) ; ATSextern_fun(ats_void_type, atspre_array_ptr_initialize_cloenv_tsz) (ats_ref_type, ats_size_type, ats_ref_type, ats_size_type, ats_ptr_type) ; ATSextern_fun(ats_ptr_type, atspre_array_ptr_split_tsz) (ats_ptr_type, ats_size_type, ats_size_type) ; ATSextern_fun(ats_ptr_type, atspre_array_ptr_takeout_tsz) (ats_ptr_type, ats_size_type, ats_size_type) ; ATSextern_fun(anairiats_rec_0, atspre_array_ptr_takeout2_tsz) (ats_ptr_type, ats_size_type, ats_size_type, ats_size_type) ; ATSextern_fun(ats_void_type, atspre_array_ptr_foreach_funenv_tsz) (ats_ref_type, ats_ptr_type, ats_size_type, ats_size_type, ats_ptr_type) ; ATSextern_fun(ats_void_type, atspre_array_ptr_iforeach_funenv_tsz) (ats_ref_type, ats_ptr_type, ats_size_type, ats_size_type, ats_ptr_type) ; ATSextern_fun(ats_ptr_type, atspre_array2_ptr_takeout_tsz) (ats_ptr_type, ats_size_type, ats_size_type, ats_size_type) ; ATSextern_fun(ats_ptr_type, ATS_2d0_2e2_2e6_2prelude_2SATS_2array_2esats__array_make_arrsz) (anairiats_rec_1) ; ATSextern_fun(ats_varet_type, _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2error_2esats__abort) (ats_int_type) ; ATSextern_fun(ats_ptr_type, _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2PARCOMB_2posloc_2esats__filename_make_string) (ats_ptr_type) ; ATSextern_val(ats_ptr_type, _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2PARCOMB_2posloc_2esats__filename_stdin) ; ATSextern_fun(ats_void_type, _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2PARCOMB_2posloc_2esats__filename_pop) () ; ATSextern_fun(ats_void_type, _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2PARCOMB_2posloc_2esats__filename_push) (ats_ptr_type) ; ATSextern_fun(ats_void_type, _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2PARCOMB_2posloc_2esats__prerr_location) (ats_ptr_type) ; ATSextern_fun(ats_ptr_type, _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2PARCOMB_2posloc_2esats__location_combine) (ats_ptr_type, ats_ptr_type) ; ATSextern_fun(ats_ptr_type, _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2PARCOMB_2tokenize_2esats__tokenstream_make_charstream) (ats_ptr_type) ; ATSextern_fun(ats_ptr_type, _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2fixity_2esats__fixopr_loc_get) (ats_ptr_type) ; ATSextern_fun(ats_ptr_type, _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2fixity_2esats__fixity_resolve) (ats_ptr_type) ; ATSextern_fun(ats_ptr_type, _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2PARCOMB_2parcomb_2esats__lzeta) (ats_ptr_type) ; ATSextern_fun(ats_ptr_type, _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2symbol_2esats__symbol_make_name) (ats_ptr_type) ; ATSextern_fun(ats_ptr_type, _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2absyn_2esats__SimpleVar_make) (ats_ptr_type, ats_ptr_type) ; ATSextern_fun(ats_ptr_type, _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2absyn_2esats__FieldVar_make) (ats_ptr_type, ats_ptr_type, ats_ptr_type) ; ATSextern_fun(ats_ptr_type, _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2absyn_2esats__SubscriptVar_make) (ats_ptr_type, ats_ptr_type, ats_ptr_type) ; ATSextern_fun(ats_ptr_type, _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2absyn_2esats__fieldexp_make) (ats_ptr_type, ats_ptr_type, ats_ptr_type) ; ATSextern_fun(ats_ptr_type, _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2absyn_2esats__VarExp_make) (ats_ptr_type, ats_ptr_type) ; ATSextern_fun(ats_ptr_type, _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2absyn_2esats__NilExp_make) (ats_ptr_type) ; ATSextern_fun(ats_ptr_type, _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2absyn_2esats__IntExp_make) (ats_ptr_type, ats_int_type) ; ATSextern_fun(ats_ptr_type, _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2absyn_2esats__StringExp_make) (ats_ptr_type, ats_ptr_type) ; ATSextern_fun(ats_ptr_type, _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2absyn_2esats__CallExp_make) (ats_ptr_type, ats_ptr_type, ats_ptr_type) ; ATSextern_fun(ats_ptr_type, _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2absyn_2esats__OpExp_make) (ats_ptr_type, ats_ptr_type, ats_ptr_type, ats_ptr_type) ; ATSextern_fun(ats_ptr_type, _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2absyn_2esats__RecordExp_make) (ats_ptr_type, ats_ptr_type, ats_ptr_type) ; ATSextern_fun(ats_ptr_type, _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2absyn_2esats__SeqExp_make) (ats_ptr_type, ats_ptr_type) ; ATSextern_fun(ats_ptr_type, _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2absyn_2esats__AssignExp_make) (ats_ptr_type, ats_ptr_type, ats_ptr_type) ; ATSextern_fun(ats_ptr_type, _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2absyn_2esats__IfExp_make) (ats_ptr_type, ats_ptr_type, ats_ptr_type, ats_ptr_type) ; ATSextern_fun(ats_ptr_type, _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2absyn_2esats__WhileExp_make) (ats_ptr_type, ats_ptr_type, ats_ptr_type) ; ATSextern_fun(ats_ptr_type, _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2absyn_2esats__ForExp_make) (ats_ptr_type, ats_ptr_type, ats_ptr_type, ats_ptr_type, ats_ptr_type) ; ATSextern_fun(ats_ptr_type, _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2absyn_2esats__BreakExp_make) (ats_ptr_type) ; ATSextern_fun(ats_ptr_type, _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2absyn_2esats__ContinueExp_make) (ats_ptr_type) ; ATSextern_fun(ats_ptr_type, _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2absyn_2esats__LetExp_make) (ats_ptr_type, ats_ptr_type, ats_ptr_type) ; ATSextern_fun(ats_ptr_type, _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2absyn_2esats__ArrayExp_make) (ats_ptr_type, ats_ptr_type, ats_ptr_type, ats_ptr_type) ; ATSextern_fun(ats_ptr_type, _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2absyn_2esats__fieldtyp_make) (ats_ptr_type, ats_ptr_type, ats_ptr_type) ; ATSextern_fun(ats_ptr_type, _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2absyn_2esats__fundec_make) (ats_ptr_type, ats_ptr_type, ats_ptr_type, ats_ptr_type, ats_ptr_type) ; ATSextern_fun(ats_ptr_type, _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2absyn_2esats__typdec_make) (ats_ptr_type, ats_ptr_type, ats_ptr_type) ; ATSextern_fun(ats_ptr_type, _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2absyn_2esats__FunctionDec_make) (ats_ptr_type, ats_ptr_type) ; ATSextern_fun(ats_ptr_type, _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2absyn_2esats__VarDec_make) (ats_ptr_type, ats_ptr_type, ats_ptr_type, ats_ptr_type) ; ATSextern_fun(ats_ptr_type, _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2absyn_2esats__TypeDec_make) (ats_ptr_type, ats_ptr_type) ; ATSextern_fun(ats_ptr_type, _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2absyn_2esats__NameTyp_make) (ats_ptr_type, ats_ptr_type) ; ATSextern_fun(ats_ptr_type, _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2absyn_2esats__RecordTyp_make) (ats_ptr_type, ats_ptr_type) ; ATSextern_fun(ats_ptr_type, _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2absyn_2esats__ArrayTyp_make) (ats_ptr_type, ats_ptr_type) ; ATSextern_fun(ats_void_type, _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2parser_2edats__parse_failure) (ats_ptr_type, ats_int_type, ats_int_type) ; /* external dynamic terminating constant declarations */ #ifdef _ATS_PROOFCHECK extern ats_void_type ATS_2d0_2e2_2e6_2prelude_2SATS_2array_2esats__array_v_takeout2_prfck () ; extern ats_void_type ATS_2d0_2e2_2e6_2prelude_2SATS_2list_2esats__list_length_is_nonnegative_prfck () ; extern ats_void_type ATS_2d0_2e2_2e6_2prelude_2DATS_2array_2edats____copy_prfck () ; extern ats_void_type ATS_2d0_2e2_2e6_2prelude_2DATS_2array_2edats____free_prfck () ; extern ats_void_type ATS_2d0_2e2_2e6_2prelude_2DATS_2array_2edats____assert_prfck () ; extern ats_void_type ATS_2d0_2e2_2e6_2prelude_2DATS_2array_2edats____assert_prfck () ; extern ats_void_type ATS_2d0_2e2_2e6_2prelude_2DATS_2list_2edats____assert_prfck () ; extern ats_void_type ATS_2d0_2e2_2e6_2prelude_2DATS_2list_2edats____assert_prfck () ; extern ats_void_type ATS_2d0_2e2_2e6_2prelude_2DATS_2list_2edats____assert_prfck () ; extern ats_void_type ATS_2d0_2e2_2e6_2prelude_2DATS_2list_2edats____assert_prfck () ; extern ats_void_type ATS_2d0_2e2_2e6_2prelude_2DATS_2list_2edats____assert_prfck () ; extern ats_void_type ATS_2d0_2e2_2e6_2prelude_2DATS_2list_2edats____assert_prfck () ; extern ats_void_type ATS_2d0_2e2_2e6_2prelude_2DATS_2list_2edats____assert_prfck () ; extern ats_void_type ATS_2d0_2e2_2e6_2prelude_2DATS_2list_2edats____assert_prfck () ; extern ats_void_type ATS_2d0_2e2_2e6_2prelude_2DATS_2list_2edats____assert_prfck () ; extern ats_void_type ATS_2d0_2e2_2e6_2prelude_2DATS_2list_2edats____assert_prfck () ; extern ats_void_type ATS_2d0_2e2_2e6_2prelude_2DATS_2list_2edats____assert_prfck () ; extern ats_void_type ATS_2d0_2e2_2e6_2prelude_2DATS_2list_2edats____assert_prfck () ; extern ats_void_type ATS_2d0_2e2_2e6_2prelude_2DATS_2list_2edats____assert_prfck () ; extern ats_void_type ATS_2d0_2e2_2e6_2prelude_2DATS_2list_2edats____assert_prfck () ; extern ats_void_type ATS_2d0_2e2_2e6_2prelude_2DATS_2list_2edats____assert_prfck () ; extern ats_void_type ATS_2d0_2e2_2e6_2prelude_2DATS_2list_2edats____assert_prfck () ; extern ats_void_type ATS_2d0_2e2_2e6_2prelude_2DATS_2list_2edats____assert_prfck () ; extern ats_void_type ATS_2d0_2e2_2e6_2prelude_2DATS_2list_2edats____assert_prfck () ; extern ats_void_type ATS_2d0_2e2_2e6_2prelude_2DATS_2list_2edats____assert_prfck () ; extern ats_void_type ATS_2d0_2e2_2e6_2prelude_2DATS_2list_2edats____assert_prfck () ; extern ats_void_type ATS_2d0_2e2_2e6_2prelude_2DATS_2list_2edats____assert_prfck () ; extern ats_void_type ATS_2d0_2e2_2e6_2prelude_2DATS_2list_2edats____assert_prfck () ; extern ats_void_type ATS_2d0_2e2_2e6_2prelude_2DATS_2list_2edats____assert_prfck () ; extern ats_void_type ATS_2d0_2e2_2e6_2prelude_2DATS_2list_2edats____assert_prfck () ; extern ats_void_type ATS_2d0_2e2_2e6_2prelude_2DATS_2list_2edats____assert_prfck () ; extern ats_void_type ATS_2d0_2e2_2e6_2prelude_2DATS_2list_2edats____assert_prfck () ; extern ats_void_type ATS_2d0_2e2_2e6_2prelude_2DATS_2list_2edats____assert_prfck () ; extern ats_void_type ATS_2d0_2e2_2e6_2prelude_2DATS_2list_2edats____assert_prfck () ; extern ats_void_type ATS_2d0_2e2_2e6_2prelude_2DATS_2list_2edats____assert_prfck () ; extern ats_void_type ATS_2d0_2e2_2e6_2prelude_2DATS_2list_2edats____assert_prfck () ; extern ats_void_type ATS_2d0_2e2_2e6_2prelude_2DATS_2list_2edats____assert_prfck () ; extern ats_void_type ATS_2d0_2e2_2e6_2prelude_2DATS_2list_2edats____assert_prfck () ; extern ats_void_type ATS_2d0_2e2_2e6_2prelude_2DATS_2list_2edats____assert_prfck () ; extern ats_void_type ATS_2d0_2e2_2e6_2prelude_2DATS_2list_2edats____assert_prfck () ; #endif /* _ATS_PROOFCHECK */ /* sum constructor declarations */ /* exn constructor declarations */ /* global dynamic (non-functional) constant declarations */ /* internal function declarations */ static ats_ptr_type stream_item_get_01664_ats_ptr_type (ats_ref_type arg0) ; static ats_ptr_type __ats_fun_1 (ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2) ; static ats_clo_ptr_type __ats_fun_1_closure_make () ; static ats_ptr_type __ats_fun_1_clofun (ats_clo_ptr_type cloptr, ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2) ; static ats_ptr_type any_parser_01666_ats_ptr_type () ; static ats_ptr_type __ats_fun_4 (ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2) ; static ats_clo_ptr_type __ats_fun_4_closure_make () ; static ats_ptr_type __ats_fun_4_clofun (ats_clo_ptr_type cloptr, ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2) ; static ats_ptr_type anyopt_parser_01667_ats_ptr_type () ; static ats_ptr_type __ats_fun_7 (ats_clo_ref_type env0, ats_clo_ref_type env1, ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2) ; static ats_clo_ptr_type __ats_fun_7_closure_make (ats_clo_ref_type env0, ats_clo_ref_type env1) ; static ats_ptr_type __ats_fun_7_clofun (ats_clo_ptr_type cloptr, ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2) ; static ats_ptr_type sat_parser_cloref_01692_ats_ptr_type_ats_ptr_type (ats_ptr_type arg0, ats_clo_ref_type arg1) ; static ats_bool_type __ats_fun_8 (ats_char_type env0, ats_ptr_type arg0) ; static ats_clo_ptr_type __ats_fun_8_closure_make (ats_char_type env0) ; static ats_bool_type __ats_fun_8_clofun (ats_clo_ptr_type cloptr, ats_ptr_type arg0) ; static ats_ptr_type litchar_5 (ats_char_type arg0) ; static ats_bool_type __ats_fun_10 (ats_ptr_type env0, ats_ptr_type arg0) ; static ats_clo_ptr_type __ats_fun_10_closure_make (ats_ptr_type env0) ; static ats_bool_type __ats_fun_10_clofun (ats_clo_ptr_type cloptr, ats_ptr_type arg0) ; static ats_ptr_type litident_9 (ats_ptr_type arg0) ; static ats_ptr_type array_get_elt_at__intsz_01339_ats_ptr_type (ats_ptr_type arg0, ats_int_type arg1) ; static ats_bool_type isKeyword_11 (ats_ptr_type arg0) ; static ats_ptr_type __ats_fun_14 (ats_clo_ref_type env0, ats_ptr_type env1, ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2) ; static ats_clo_ptr_type __ats_fun_14_closure_make (ats_clo_ref_type env0, ats_ptr_type env1) ; static ats_ptr_type __ats_fun_14_clofun (ats_clo_ptr_type cloptr, ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2) ; static ats_ptr_type sat_parser_fun_01691_ats_ptr_type_ats_ptr_type (ats_ptr_type arg0, ats_ptr_type arg1) ; static ats_bool_type __ats_fun_15 (ats_ptr_type arg0) ; static ats_bool_type __ats_fun_16 (ats_ptr_type arg0) ; static ats_bool_type __ats_fun_17 (ats_ptr_type arg0) ; static ats_ptr_type __ats_fun_19 (ats_ptr_type env0, ats_ptr_type arg0) ; static ats_clo_ptr_type __ats_fun_19_closure_make (ats_ptr_type env0) ; static ats_ptr_type __ats_fun_19_clofun (ats_clo_ptr_type cloptr, ats_ptr_type arg0) ; static ats_ptr_type f_uminus_18 (ats_ptr_type arg0, ats_int_type arg1) ; static ats_ptr_type __ats_fun_21 (ats_ptr_type env0, ats_ptr_type arg0, ats_ptr_type arg1) ; static ats_clo_ptr_type __ats_fun_21_closure_make (ats_ptr_type env0) ; static ats_ptr_type __ats_fun_21_clofun (ats_clo_ptr_type cloptr, ats_ptr_type arg0, ats_ptr_type arg1) ; static ats_ptr_type f_infix_20 (ats_ptr_type arg0, ats_ptr_type arg1, ats_int_type arg2, ats_ptr_type arg3) ; static ats_ptr_type __ats_fun_23 (ats_clo_ref_type env0, ats_clo_ref_type env1, ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2) ; static ats_clo_ptr_type __ats_fun_23_closure_make (ats_clo_ref_type env0, ats_clo_ref_type env1) ; static ats_ptr_type __ats_fun_23_clofun (ats_clo_ptr_type cloptr, ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2) ; static ats_ptr_type alt_parser_parser_01671_ats_ptr_type_ats_ptr_type (ats_ptr_type arg0, ats_ptr_type arg1) ; static ats_ptr_type __ats_fun_25 (ats_clo_ref_type env0, ats_ptr_type env1, ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2) ; static ats_clo_ptr_type __ats_fun_25_closure_make (ats_clo_ref_type env0, ats_ptr_type env1) ; static ats_ptr_type __ats_fun_25_clofun (ats_clo_ptr_type cloptr, ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2) ; static ats_ptr_type seq1wth_parser_fun_01673_ats_ptr_type_2cats_ptr_type_ats_ptr_type (ats_ptr_type arg0, ats_ptr_type arg1) ; static ats_ptr_type __ats_fun_26 (ats_ptr_type arg0) ; static ats_ptr_type __ats_fun_27 (ats_ptr_type arg0) ; static ats_ptr_type __ats_fun_28 (ats_ptr_type arg0) ; static ats_ptr_type __ats_fun_29 (ats_ptr_type arg0) ; static ats_ptr_type __ats_fun_30 (ats_ptr_type arg0) ; static ats_ptr_type __ats_fun_31 (ats_ptr_type arg0) ; static ats_ptr_type __ats_fun_32 (ats_ptr_type arg0) ; static ats_ptr_type __ats_fun_33 (ats_ptr_type arg0) ; static ats_ptr_type __ats_fun_34 (ats_ptr_type arg0) ; static ats_ptr_type __ats_fun_35 (ats_ptr_type arg0) ; static ats_ptr_type __ats_fun_36 (ats_ptr_type arg0) ; static ats_ptr_type __ats_fun_37 (ats_ptr_type arg0) ; static ats_ptr_type __ats_fun_38 (ats_ptr_type arg0) ; static ats_ptr_type symbol_make_token_39 (ats_ptr_type arg0) ; static ats_ptr_type __ats_fun_40 (ats_ptr_type arg0) ; static ats_ptr_type f_break_41 (ats_ptr_type arg0) ; static ats_ptr_type f_continue_42 (ats_ptr_type arg0) ; static ats_ptr_type f_43 (ats_ptr_type arg0, ats_ptr_type arg1) ; static ats_ptr_type __ats_fun_45 (ats_clo_ref_type env0, ats_clo_ref_type env1, ats_ptr_type env2, ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2) ; static ats_clo_ptr_type __ats_fun_45_closure_make (ats_clo_ref_type env0, ats_clo_ref_type env1, ats_ptr_type env2) ; static ats_ptr_type __ats_fun_45_clofun (ats_clo_ptr_type cloptr, ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2) ; static ats_ptr_type seq2wth_parser_fun_01675_ats_ptr_type_2cats_ptr_type_2cats_ptr_type_ats_ptr_type (ats_ptr_type arg0, ats_ptr_type arg1, ats_ptr_type arg2) ; static ats_ptr_type __ats_fun_47 (ats_clo_ref_type env0, ats_clo_ref_type env1, ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2) ; static ats_clo_ptr_type __ats_fun_47_closure_make (ats_clo_ref_type env0, ats_clo_ref_type env1) ; static ats_ptr_type __ats_fun_47_clofun (ats_clo_ptr_type cloptr, ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2) ; static ats_ptr_type proj2_parser_parser_01690_ats_ptr_type_2cats_ptr_type_ats_ptr_type (ats_ptr_type arg0, ats_ptr_type arg1) ; static ats_void_type loop_52 (ats_clo_ref_type env0, ats_clo_ref_type env1, ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2, ats_ref_type arg3) ; static ats_clo_ptr_type loop_52_closure_make (ats_clo_ref_type env0, ats_clo_ref_type env1) ; static ats_void_type loop_52_clofun (ats_clo_ptr_type cloptr, ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2, ats_ref_type arg3) ; static ats_ptr_type __ats_fun_51 (ats_clo_ref_type env0, ats_clo_ref_type env1, ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2) ; static ats_clo_ptr_type __ats_fun_51_closure_make (ats_clo_ref_type env0, ats_clo_ref_type env1) ; static ats_ptr_type __ats_fun_51_clofun (ats_clo_ptr_type cloptr, ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2) ; static ats_ptr_type repeat1_sep_parser_01699_ats_ptr_type_2cats_ptr_type_ats_ptr_type (ats_ptr_type arg0, ats_ptr_type arg1) ; static ats_ptr_type __ats_fun_49 (ats_clo_ref_type env0, ats_clo_ref_type env1, ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2) ; static ats_clo_ptr_type __ats_fun_49_closure_make (ats_clo_ref_type env0, ats_clo_ref_type env1) ; static ats_ptr_type __ats_fun_49_clofun (ats_clo_ptr_type cloptr, ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2) ; static ats_ptr_type repeat0_sep_parser_01698_ats_ptr_type_2cats_ptr_type_ats_ptr_type (ats_ptr_type arg0, ats_ptr_type arg1) ; static ats_ptr_type __ats_fun_53 () ; static ats_clo_ptr_type __ats_fun_53_closure_make () ; static ats_ptr_type __ats_fun_53_clofun (ats_clo_ptr_type cloptr) ; static ats_ptr_type __ats_fun_54 () ; static ats_clo_ptr_type __ats_fun_54_closure_make () ; static ats_ptr_type __ats_fun_54_clofun (ats_clo_ptr_type cloptr) ; static ats_ptr_type __ats_fun_55 () ; static ats_clo_ptr_type __ats_fun_55_closure_make () ; static ats_ptr_type __ats_fun_55_clofun (ats_clo_ptr_type cloptr) ; static ats_ptr_type __ats_fun_57 (ats_ptr_type arg0, ats_clo_ref_type arg1) ; static ats_ptr_type __ats_fun_59 (ats_clo_ref_type env0, ats_clo_ref_type env1, ats_ptr_type env2, ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2) ; static ats_clo_ptr_type __ats_fun_59_closure_make (ats_clo_ref_type env0, ats_clo_ref_type env1, ats_ptr_type env2) ; static ats_ptr_type __ats_fun_59_clofun (ats_clo_ptr_type cloptr, ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2) ; static ats_ptr_type seq2wth_parser_fun_01675_ats_ptr_type_2cats_clo_ref_type_2cats_ptr_type_ats_ptr_type (ats_ptr_type arg0, ats_ptr_type arg1, ats_ptr_type arg2) ; static ats_ptr_type __ats_fun_56 () ; static ats_clo_ptr_type __ats_fun_56_closure_make () ; static ats_ptr_type __ats_fun_56_clofun (ats_clo_ptr_type cloptr) ; static ats_ptr_type __ats_fun_61 (ats_ptr_type env0, ats_clo_ref_type env1, ats_ptr_type arg0) ; static ats_clo_ptr_type __ats_fun_61_closure_make (ats_ptr_type env0, ats_clo_ref_type env1) ; static ats_ptr_type __ats_fun_61_clofun (ats_clo_ptr_type cloptr, ats_ptr_type arg0) ; static ats_clo_ref_type f_field_60 (ats_ptr_type arg0, ats_clo_ref_type arg1) ; static ats_ptr_type __ats_fun_63 (ats_ptr_type env0, ats_ptr_type env1, ats_clo_ref_type env2, ats_ptr_type arg0) ; static ats_clo_ptr_type __ats_fun_63_closure_make (ats_ptr_type env0, ats_ptr_type env1, ats_clo_ref_type env2) ; static ats_ptr_type __ats_fun_63_clofun (ats_clo_ptr_type cloptr, ats_ptr_type arg0) ; static ats_clo_ref_type f_subscript_62 (ats_ptr_type arg0, ats_ptr_type arg1, ats_clo_ref_type arg2) ; static ats_ptr_type __ats_fun_66 (ats_clo_ref_type env0, ats_clo_ref_type env1, ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2) ; static ats_clo_ptr_type __ats_fun_66_closure_make (ats_clo_ref_type env0, ats_clo_ref_type env1) ; static ats_ptr_type __ats_fun_66_clofun (ats_clo_ptr_type cloptr, ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2) ; static ats_ptr_type alt_parser_parser_01671_ats_clo_ref_type_ats_ptr_type (ats_ptr_type arg0, ats_ptr_type arg1) ; static ats_ptr_type __ats_fun_68 (ats_clo_ref_type env0, ats_clo_ref_type env1, ats_ptr_type env2, ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2) ; static ats_clo_ptr_type __ats_fun_68_closure_make (ats_clo_ref_type env0, ats_clo_ref_type env1, ats_ptr_type env2) ; static ats_ptr_type __ats_fun_68_clofun (ats_clo_ptr_type cloptr, ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2) ; static ats_ptr_type seq2wth_parser_fun_01675_ats_ptr_type_2cats_clo_ref_type_2cats_clo_ref_type_ats_ptr_type (ats_ptr_type arg0, ats_ptr_type arg1, ats_ptr_type arg2) ; static ats_ptr_type __ats_fun_70 (ats_clo_ref_type env0, ats_clo_ref_type env1, ats_clo_ref_type env2, ats_ptr_type env3, ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2) ; static ats_clo_ptr_type __ats_fun_70_closure_make (ats_clo_ref_type env0, ats_clo_ref_type env1, ats_clo_ref_type env2, ats_ptr_type env3) ; static ats_ptr_type __ats_fun_70_clofun (ats_clo_ptr_type cloptr, ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2) ; static ats_ptr_type seq3wth_parser_fun_01677_ats_ptr_type_2cats_ptr_type_2cats_clo_ref_type_2cats_clo_ref_type_ats_ptr_type (ats_ptr_type arg0, ats_ptr_type arg1, ats_ptr_type arg2, ats_ptr_type arg3) ; static ats_ptr_type __ats_fun_72 (ats_clo_ref_type env0, ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2) ; static ats_clo_ptr_type __ats_fun_72_closure_make (ats_clo_ref_type env0) ; static ats_ptr_type __ats_fun_72_clofun (ats_clo_ptr_type cloptr, ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2) ; static ats_ptr_type return_parser_01670_ats_clo_ref_type_ats_ptr_type (ats_clo_ref_type arg0) ; static ats_ptr_type __ats_fun_73 (ats_ptr_type arg0) ; static ats_clo_ptr_type __ats_fun_73_closure_make () ; static ats_ptr_type __ats_fun_73_clofun (ats_clo_ptr_type cloptr, ats_ptr_type arg0) ; static ats_ptr_type __ats_fun_64 () ; static ats_clo_ptr_type __ats_fun_64_closure_make () ; static ats_ptr_type __ats_fun_64_clofun (ats_clo_ptr_type cloptr) ; static ats_ptr_type f_nil_74 (ats_ptr_type arg0) ; static ats_ptr_type f_number_75 (ats_ptr_type arg0) ; static ats_ptr_type f_string_76 (ats_ptr_type arg0) ; static ats_ptr_type f_varexp_77 (ats_ptr_type arg0) ; static ats_ptr_type f_callexp_78 (ats_ptr_type arg0, ats_ptr_type arg1, ats_ptr_type arg2, ats_ptr_type arg3) ; static ats_ptr_type f_seq_79 (ats_ptr_type arg0, ats_ptr_type arg1, ats_ptr_type arg2) ; static ats_ptr_type f_seq0_80 (ats_ptr_type arg0, ats_ptr_type arg1) ; static ats_ptr_type __ats_fun_83 (ats_clo_ref_type env0, ats_clo_ref_type env1, ats_clo_ref_type env2, ats_clo_ref_type env3, ats_ptr_type env4, ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2) ; static ats_clo_ptr_type __ats_fun_83_closure_make (ats_clo_ref_type env0, ats_clo_ref_type env1, ats_clo_ref_type env2, ats_clo_ref_type env3, ats_ptr_type env4) ; static ats_ptr_type __ats_fun_83_clofun (ats_clo_ptr_type cloptr, ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2) ; static ats_ptr_type seq4wth_parser_fun_01679_ats_ptr_type_2cats_ptr_type_2cats_ptr_type_2cats_ptr_type_2cats_ptr_type_ats_ptr_type (ats_ptr_type arg0, ats_ptr_type arg1, ats_ptr_type arg2, ats_ptr_type arg3, ats_ptr_type arg4) ; static ats_ptr_type __ats_fun_85 (ats_clo_ref_type env0, ats_clo_ref_type env1, ats_clo_ref_type env2, ats_ptr_type env3, ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2) ; static ats_clo_ptr_type __ats_fun_85_closure_make (ats_clo_ref_type env0, ats_clo_ref_type env1, ats_clo_ref_type env2, ats_ptr_type env3) ; static ats_ptr_type __ats_fun_85_clofun (ats_clo_ptr_type cloptr, ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2) ; static ats_ptr_type seq3wth_parser_fun_01677_ats_ptr_type_2cats_ptr_type_2cats_ptr_type_2cats_ptr_type_ats_ptr_type (ats_ptr_type arg0, ats_ptr_type arg1, ats_ptr_type arg2, ats_ptr_type arg3) ; static ats_ptr_type __ats_fun_81 () ; static ats_clo_ptr_type __ats_fun_81_closure_make () ; static ats_ptr_type __ats_fun_81_clofun (ats_clo_ptr_type cloptr) ; static ats_ptr_type f_oper_86 (ats_ptr_type arg0) ; static ats_ptr_type f_exp0_87 (ats_ptr_type arg0) ; static ats_ptr_type __ats_fun_88 () ; static ats_clo_ptr_type __ats_fun_88_closure_make () ; static ats_ptr_type __ats_fun_88_clofun (ats_clo_ptr_type cloptr) ; static ats_ptr_type err_89 (ats_ptr_type arg0) ; static ats_ptr_type fixitm_loc_get_90 (ats_ptr_type arg0) ; static ats_ptr_type loop_93 (ats_ptr_type arg0, ats_ptr_type arg1) ; static ats_ptr_type list_last_01475_ats_ptr_type (ats_ptr_type arg0) ; static ats_ptr_type f_91 (ats_ptr_type arg0) ; static ats_void_type loop_99 (ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2, ats_ptr_type arg3, ats_ref_type arg4) ; static ats_ptr_type __ats_fun_98 (ats_clo_ref_type env0, ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2) ; static ats_clo_ptr_type __ats_fun_98_closure_make (ats_clo_ref_type env0) ; static ats_ptr_type __ats_fun_98_clofun (ats_clo_ptr_type cloptr, ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2) ; static ats_ptr_type repeat0_parser_01696_ats_ptr_type_ats_ptr_type (ats_ptr_type arg0) ; static ats_ptr_type __ats_fun_96 (ats_clo_ref_type env0, ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2) ; static ats_clo_ptr_type __ats_fun_96_closure_make (ats_clo_ref_type env0) ; static ats_ptr_type __ats_fun_96_clofun (ats_clo_ptr_type cloptr, ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2) ; static ats_ptr_type repeat1_parser_01697_ats_ptr_type_ats_ptr_type (ats_ptr_type arg0) ; static ats_ptr_type __ats_fun_94 () ; static ats_clo_ptr_type __ats_fun_94_closure_make () ; static ats_ptr_type __ats_fun_94_clofun (ats_clo_ptr_type cloptr) ; static ats_ptr_type f_100 (ats_ptr_type arg0, ats_ptr_type arg1) ; static ats_ptr_type __ats_fun_101 () ; static ats_clo_ptr_type __ats_fun_101_closure_make () ; static ats_ptr_type __ats_fun_101_clofun (ats_clo_ptr_type cloptr) ; static ats_ptr_type __ats_fun_102 () ; static ats_clo_ptr_type __ats_fun_102_closure_make () ; static ats_ptr_type __ats_fun_102_clofun (ats_clo_ptr_type cloptr) ; static ats_ptr_type f_RecordExp_103 (ats_ptr_type arg0, ats_ptr_type arg1, ats_ptr_type arg2) ; static ats_ptr_type __ats_fun_104 () ; static ats_clo_ptr_type __ats_fun_104_closure_make () ; static ats_ptr_type __ats_fun_104_clofun (ats_clo_ptr_type cloptr) ; static ats_ptr_type f_106 (ats_ptr_type arg0, ats_ptr_type arg1) ; static ats_ptr_type __ats_fun_105 () ; static ats_clo_ptr_type __ats_fun_105_closure_make () ; static ats_ptr_type __ats_fun_105_clofun (ats_clo_ptr_type cloptr) ; static ats_ptr_type f_ArrayExp_107 (ats_ptr_type arg0, ats_ptr_type arg1, ats_ptr_type arg2) ; static ats_ptr_type __ats_fun_110 (ats_clo_ref_type env0, ats_clo_ref_type env1, ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2) ; static ats_clo_ptr_type __ats_fun_110_closure_make (ats_clo_ref_type env0, ats_clo_ref_type env1) ; static ats_ptr_type __ats_fun_110_clofun (ats_clo_ptr_type cloptr, ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2) ; static ats_ptr_type proj1_parser_parser_01689_ats_ptr_type_2cats_ptr_type_ats_ptr_type (ats_ptr_type arg0, ats_ptr_type arg1) ; static ats_ptr_type __ats_fun_108 () ; static ats_clo_ptr_type __ats_fun_108_closure_make () ; static ats_ptr_type __ats_fun_108_clofun (ats_clo_ptr_type cloptr) ; static ats_ptr_type f_IfExp_111 (ats_ptr_type arg0, ats_ptr_type arg1, ats_ptr_type arg2, ats_ptr_type arg3) ; static ats_ptr_type __ats_fun_114 (ats_clo_ref_type env0, ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2) ; static ats_clo_ptr_type __ats_fun_114_closure_make (ats_clo_ref_type env0) ; static ats_ptr_type __ats_fun_114_clofun (ats_clo_ptr_type cloptr, ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2) ; static ats_ptr_type optional_parser_01695_ats_ptr_type_ats_ptr_type (ats_ptr_type arg0) ; static ats_ptr_type __ats_fun_112 () ; static ats_clo_ptr_type __ats_fun_112_closure_make () ; static ats_ptr_type __ats_fun_112_clofun (ats_clo_ptr_type cloptr) ; static ats_ptr_type f_WhileExp_115 (ats_ptr_type arg0, ats_ptr_type arg1, ats_ptr_type arg2) ; static ats_ptr_type __ats_fun_116 () ; static ats_clo_ptr_type __ats_fun_116_closure_make () ; static ats_ptr_type __ats_fun_116_clofun (ats_clo_ptr_type cloptr) ; static ats_ptr_type f_ForExp_117 (ats_ptr_type arg0, ats_ptr_type arg1, ats_ptr_type arg2, ats_ptr_type arg3, ats_ptr_type arg4) ; static ats_ptr_type __ats_fun_120 (ats_clo_ref_type env0, ats_clo_ref_type env1, ats_clo_ref_type env2, ats_clo_ref_type env3, ats_clo_ref_type env4, ats_ptr_type env5, ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2) ; static ats_clo_ptr_type __ats_fun_120_closure_make (ats_clo_ref_type env0, ats_clo_ref_type env1, ats_clo_ref_type env2, ats_clo_ref_type env3, ats_clo_ref_type env4, ats_ptr_type env5) ; static ats_ptr_type __ats_fun_120_clofun (ats_clo_ptr_type cloptr, ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2) ; static ats_ptr_type seq5wth_parser_fun_01681_ats_ptr_type_2cats_ptr_type_2cats_ptr_type_2cats_ptr_type_2cats_ptr_type_2cats_ptr_type_ats_ptr_type (ats_ptr_type arg0, ats_ptr_type arg1, ats_ptr_type arg2, ats_ptr_type arg3, ats_ptr_type arg4, ats_ptr_type arg5) ; static ats_ptr_type __ats_fun_118 () ; static ats_clo_ptr_type __ats_fun_118_closure_make () ; static ats_ptr_type __ats_fun_118_clofun (ats_clo_ptr_type cloptr) ; static ats_ptr_type f_LetExp_121 (ats_ptr_type arg0, ats_ptr_type arg1, ats_ptr_type arg2, ats_ptr_type arg3, ats_ptr_type arg4) ; static ats_ptr_type __ats_fun_122 () ; static ats_clo_ptr_type __ats_fun_122_closure_make () ; static ats_ptr_type __ats_fun_122_clofun (ats_clo_ptr_type cloptr) ; static ats_ptr_type f_typdeclst_123 (ats_ptr_type arg0) ; static ats_ptr_type f_fundeclst_124 (ats_ptr_type arg0) ; static ats_ptr_type __ats_fun_125 () ; static ats_clo_ptr_type __ats_fun_125_closure_make () ; static ats_ptr_type __ats_fun_125_clofun (ats_clo_ptr_type cloptr) ; static ats_ptr_type __ats_fun_126 () ; static ats_clo_ptr_type __ats_fun_126_closure_make () ; static ats_ptr_type __ats_fun_126_clofun (ats_clo_ptr_type cloptr) ; static ats_ptr_type f_VarDec_127 (ats_ptr_type arg0, ats_ptr_type arg1, ats_ptr_type arg2, ats_ptr_type arg3) ; static ats_ptr_type __ats_fun_128 () ; static ats_clo_ptr_type __ats_fun_128_closure_make () ; static ats_ptr_type __ats_fun_128_clofun (ats_clo_ptr_type cloptr) ; static ats_ptr_type f_ident_129 (ats_ptr_type arg0) ; static ats_ptr_type f_record_130 (ats_ptr_type arg0, ats_ptr_type arg1, ats_ptr_type arg2) ; static ats_ptr_type f_array_131 (ats_ptr_type arg0, ats_ptr_type arg1, ats_ptr_type arg2) ; static ats_ptr_type __ats_fun_132 () ; static ats_clo_ptr_type __ats_fun_132_closure_make () ; static ats_ptr_type __ats_fun_132_clofun (ats_clo_ptr_type cloptr) ; static ats_ptr_type f_typdec_133 (ats_ptr_type arg0, ats_ptr_type arg1, ats_ptr_type arg2) ; static ats_ptr_type __ats_fun_134 () ; static ats_clo_ptr_type __ats_fun_134_closure_make () ; static ats_ptr_type __ats_fun_134_clofun (ats_clo_ptr_type cloptr) ; static ats_ptr_type __ats_fun_135 () ; static ats_clo_ptr_type __ats_fun_135_closure_make () ; static ats_ptr_type __ats_fun_135_clofun (ats_clo_ptr_type cloptr) ; static ats_ptr_type f_fundec_136 (ats_ptr_type arg0, ats_ptr_type arg1, ats_ptr_type arg2, ats_ptr_type arg3, ats_ptr_type arg4) ; static ats_ptr_type __ats_fun_137 () ; static ats_clo_ptr_type __ats_fun_137_closure_make () ; static ats_ptr_type __ats_fun_137_clofun (ats_clo_ptr_type cloptr) ; static ats_ptr_type __ats_fun_138 () ; static ats_clo_ptr_type __ats_fun_138_closure_make () ; static ats_ptr_type __ats_fun_138_clofun (ats_clo_ptr_type cloptr) ; static ats_ptr_type loop_140 (ats_ptr_type arg0, ats_int_type arg1) ; static ats_ptr_type apply_parser_01700_ats_ptr_type_ats_ptr_type (ats_ptr_type arg0, ats_ref_type arg1, ats_ref_type arg2, ats_ref_type arg3) ; static ats_ptr_type parse_from_charstream_141 (ats_ptr_type arg0) ; /* partial value template declarations */ /* static temporary variable declarations */ ATSstatic (ats_ptr_type, statmp0) ; ATSstatic (ats_ptr_type, statmp12) ; ATSstatic (ats_ptr_type, statmp33) ; ATSstatic (ats_ptr_type, statmp34) ; ATSstatic (ats_ptr_type, statmp35) ; ATSstatic (ats_ptr_type, statmp36) ; ATSstatic (ats_ptr_type, statmp37) ; ATSstatic (ats_ptr_type, statmp38) ; ATSstatic (ats_ptr_type, statmp39) ; ATSstatic (ats_ptr_type, statmp40) ; ATSstatic (ats_ptr_type, statmp45) ; ATSstatic (ats_ptr_type, statmp46) ; ATSstatic (ats_ptr_type, statmp47) ; ATSstatic (ats_ptr_type, statmp48) ; ATSstatic (ats_ptr_type, statmp49) ; ATSstatic (ats_ptr_type, statmp50) ; ATSstatic (ats_ptr_type, statmp51) ; ATSstatic (ats_ptr_type, statmp52) ; ATSstatic (ats_ptr_type, statmp53) ; ATSstatic (ats_ptr_type, statmp54) ; ATSstatic (ats_ptr_type, statmp55) ; ATSstatic (ats_ptr_type, statmp56) ; ATSstatic (ats_ptr_type, statmp57) ; ATSstatic (ats_ptr_type, statmp58) ; ATSstatic (ats_ptr_type, statmp59) ; ATSstatic (ats_ptr_type, statmp60) ; ATSstatic (ats_ptr_type, statmp61) ; ATSstatic (ats_ptr_type, statmp62) ; ATSstatic (ats_ptr_type, statmp63) ; ATSstatic (ats_ptr_type, statmp64) ; ATSstatic (ats_ptr_type, statmp65) ; ATSstatic (ats_ptr_type, statmp66) ; ATSstatic (ats_ptr_type, statmp67) ; ATSstatic (ats_ptr_type, statmp68) ; ATSstatic (ats_ptr_type, statmp69) ; ATSstatic (ats_ptr_type, statmp70) ; ATSstatic (ats_ptr_type, statmp71) ; ATSstatic (ats_ptr_type, statmp72) ; ATSstatic (ats_ptr_type, statmp73) ; ATSstatic (ats_ptr_type, statmp74) ; ATSstatic (ats_ptr_type, statmp75) ; ATSstatic (ats_ptr_type, statmp76) ; ATSstatic (ats_ptr_type, statmp77) ; ATSstatic (ats_ptr_type, statmp78) ; ATSstatic (anairiats_rec_1, statmp79) ; ATSstatic (ats_ptr_type, statmp80) ; ATSstatic (ats_size_type, statmp81) ; ATSstatic (ats_ptr_type, statmp82) ; ATSstatic (ats_ptr_type, statmp94) ; ATSstatic (ats_ptr_type, statmp106) ; ATSstatic (ats_ptr_type, statmp109) ; ATSstatic (ats_ptr_type, statmp128) ; ATSstatic (ats_ptr_type, statmp134) ; ATSstatic (ats_ptr_type, statmp135) ; ATSstatic (ats_ptr_type, statmp136) ; ATSstatic (ats_ptr_type, statmp137) ; ATSstatic (ats_ptr_type, statmp138) ; ATSstatic (ats_ptr_type, statmp139) ; ATSstatic (ats_ptr_type, statmp140) ; ATSstatic (ats_ptr_type, statmp141) ; ATSstatic (ats_ptr_type, statmp142) ; ATSstatic (ats_ptr_type, statmp143) ; ATSstatic (ats_ptr_type, statmp144) ; ATSstatic (ats_ptr_type, statmp145) ; ATSstatic (ats_ptr_type, statmp152) ; ATSstatic (ats_ptr_type, statmp156) ; ATSstatic (ats_ptr_type, statmp160) ; ATSstatic (ats_ptr_type, statmp164) ; ATSstatic (ats_ptr_type, statmp168) ; ATSstatic (ats_ptr_type, statmp172) ; ATSstatic (ats_ptr_type, statmp176) ; ATSstatic (ats_ptr_type, statmp180) ; ATSstatic (ats_ptr_type, statmp184) ; ATSstatic (ats_ptr_type, statmp188) ; ATSstatic (ats_ptr_type, statmp192) ; ATSstatic (ats_ptr_type, statmp196) ; ATSstatic (ats_ptr_type, statmp203) ; ATSstatic (ats_ptr_type, statmp209) ; ATSstatic (ats_ptr_type, statmp212) ; ATSstatic (ats_ptr_type, statmp223) ; ATSstatic (ats_ptr_type, statmp231) ; ATSstatic (ats_ptr_type, statmp235) ; ATSstatic (ats_ptr_type, statmp260) ; ATSstatic (ats_ptr_type, statmp261) ; ATSstatic (ats_ptr_type, statmp262) ; ATSstatic (ats_ptr_type, statmp263) ; ATSstatic (ats_ptr_type, statmp264) ; ATSstatic (ats_ptr_type, statmp265) ; ATSstatic (ats_ptr_type, statmp266) ; ATSstatic (ats_ptr_type, statmp267) ; ATSstatic (ats_ptr_type, statmp268) ; ATSstatic (ats_ptr_type, statmp269) ; ATSstatic (ats_ptr_type, statmp270) ; ATSstatic (ats_ptr_type, statmp271) ; ATSstatic (ats_ptr_type, statmp272) ; ATSstatic (ats_ptr_type, statmp273) ; ATSstatic (ats_ptr_type, statmp274) ; ATSstatic (ats_ptr_type, statmp275) ; ATSstatic (ats_ptr_type, statmp276) ; ATSstatic (ats_ptr_type, statmp277) ; ATSstatic (ats_ptr_type, statmp278) ; ATSstatic (ats_ptr_type, statmp279) ; ATSstatic (ats_ptr_type, statmp280) ; ATSstatic (ats_ptr_type, statmp281) ; ATSstatic (ats_ptr_type, statmp282) ; ATSstatic (ats_ptr_type, statmp283) ; ATSstatic (ats_ptr_type, statmp284) ; /* external value variable declarations */ /* function implementations */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/PARCOMB/parcomb.dats: 1631(line=48, offs=30) -- 1742(line=50, offs=32) */ ATSstaticdec() ats_ptr_type stream_item_get_01664_ats_ptr_type (ats_ref_type arg0) { /* local vardec */ ATSlocal (ats_ptr_type, tmp4) ; ATSlocal (ats_ptr_type, tmp5) ; ATSlocal (ats_ptr_type, tmp6) ; ATSlocal (ats_ptr_type, tmp7) ; __ats_lab_stream_item_get_01664_ats_ptr_type: #line 48 "parcomb.dats" ats_instr_move_lazy_force_mac (tmp5, ats_ptr_type, ats_ptrget_mac(ats_ptr_type, arg0)) ; #line 48 "parcomb.dats" do { /* branch: __ats_lab_0 */ #line 49 "parcomb.dats" __ats_lab_0_0: #line 49 "parcomb.dats" if (tmp5 == (ats_sum_ptr_type)0) { goto __ats_lab_1_0 ; } #line 49 "parcomb.dats" __ats_lab_0_1: #line 49 "parcomb.dats" tmp6 = ats_caselptr_mac(anairiats_sum_2, tmp5, atslab_0) ; #line 49 "parcomb.dats" tmp7 = ats_caselptr_mac(anairiats_sum_2, tmp5, atslab_1) ; #line 49 "parcomb.dats" ats_ptrget_mac(ats_ptr_type, arg0) = tmp7 ; #line 49 "parcomb.dats" tmp4 = ATS_MALLOC(sizeof(anairiats_sum_3)) ; ats_selptrset_mac(anairiats_sum_3, tmp4, atslab_0, tmp6) ; break ; /* branch: __ats_lab_1 */ #line 50 "parcomb.dats" __ats_lab_1_0: #line 50 "parcomb.dats" // if (tmp5 != (ats_sum_ptr_type)0) { ats_deadcode_failure_handle () ; } #line 50 "parcomb.dats" __ats_lab_1_1: #line 50 "parcomb.dats" tmp4 = (ats_sum_ptr_type)0 ; break ; } while (0) ; return (tmp4) ; } /* end of [stream_item_get_01664_ats_ptr_type] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/PARCOMB/parcomb.dats: 16261(line=434, offs=30) -- 16510(line=441, offs=4) */ ATSstaticdec() ats_ptr_type __ats_fun_1 (ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2) { /* local vardec */ ATSlocal (ats_ptr_type, tmp2) ; ATSlocal (ats_ptr_type, tmp3) ; ATSlocal (ats_ptr_type, tmp8) ; ATSlocal (ats_int_type, tmp9) ; ATSlocal (ats_bool_type, tmp11) ; __ats_lab___ats_fun_1: #line 435 "parcomb.dats" tmp3 = stream_item_get_01664_ats_ptr_type (arg0) ; #line 435 "parcomb.dats" do { /* branch: __ats_lab_2 */ #line 436 "parcomb.dats" __ats_lab_2_0: #line 436 "parcomb.dats" if (tmp3 == (ats_sum_ptr_type)0) { goto __ats_lab_3_0 ; } #line 436 "parcomb.dats" __ats_lab_2_1: #line 436 "parcomb.dats" tmp8 = ats_caselptr_mac(anairiats_sum_3, tmp3, atslab_0) ; #line 436 "parcomb.dats" ATS_FREE(tmp3) ; #line 437 "parcomb.dats" tmp9 = atspre_add_int_int (ats_ptrget_mac(ats_int_type, arg1), 1) ; #line 437 "parcomb.dats" ats_ptrget_mac(ats_int_type, arg1) = tmp9 ; #line 438 "parcomb.dats" tmp11 = atspre_gt_int_int (ats_ptrget_mac(ats_int_type, arg1), ats_ptrget_mac(ats_int_type, arg2)) ; #line 438 "parcomb.dats" if (tmp11) { #line 438 "parcomb.dats" ats_ptrget_mac(ats_int_type, arg2) = ats_ptrget_mac(ats_int_type, arg1) ; } else { /* empty */ } /* end of [if] */ #line 436 "parcomb.dats" tmp2 = ATS_MALLOC(sizeof(anairiats_sum_3)) ; ats_selptrset_mac(anairiats_sum_3, tmp2, atslab_0, tmp8) ; break ; /* branch: __ats_lab_3 */ #line 440 "parcomb.dats" __ats_lab_3_0: #line 440 "parcomb.dats" // if (tmp3 != (ats_sum_ptr_type)0) { ats_deadcode_failure_handle () ; } #line 440 "parcomb.dats" __ats_lab_3_1: #line 440 "parcomb.dats" tmp2 = (ats_sum_ptr_type)0 ; break ; } while (0) ; return (tmp2) ; } /* end of [__ats_fun_1] */ typedef struct { ats_fun_ptr_type closure_fun ; } __ats_fun_1_closure_type ; ats_ptr_type __ats_fun_1_clofun (ats_clo_ptr_type cloptr, ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2) { return __ats_fun_1 (arg0, arg1, arg2) ; } /* end of function */ ATSinline() ats_void_type __ats_fun_1_closure_init (__ats_fun_1_closure_type *p_clo) { p_clo->closure_fun = (ats_fun_ptr_type)&__ats_fun_1_clofun ; return ; } /* end of function */ ats_clo_ptr_type __ats_fun_1_closure_make () { __ats_fun_1_closure_type *p_clo = ATS_MALLOC(sizeof(__ats_fun_1_closure_type)) ; __ats_fun_1_closure_init (p_clo) ; return (ats_clo_ptr_type)p_clo ; } /* end of function */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/PARCOMB/parcomb.dats: 16256(line=434, offs=25) -- 16510(line=441, offs=4) */ ATSstaticdec() ats_ptr_type any_parser_01666_ats_ptr_type () { /* local vardec */ ATSlocal (ats_ptr_type, tmp1) ; __ats_lab_any_parser_01666_ats_ptr_type: #line 434 "parcomb.dats" tmp1 = __ats_fun_1_closure_make () ; return (tmp1) ; } /* end of [any_parser_01666_ats_ptr_type] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/PARCOMB/parcomb.dats: 16567(line=443, offs=33) -- 16827(line=450, offs=4) */ ATSstaticdec() ats_ptr_type __ats_fun_4 (ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2) { /* local vardec */ ATSlocal (ats_ptr_type, tmp14) ; ATSlocal (ats_ptr_type, tmp15) ; ATSlocal (ats_ptr_type, tmp16) ; ATSlocal (ats_int_type, tmp17) ; ATSlocal (ats_bool_type, tmp19) ; ATSlocal (ats_ptr_type, tmp20) ; ATSlocal (ats_ptr_type, tmp21) ; __ats_lab___ats_fun_4: #line 444 "parcomb.dats" tmp15 = stream_item_get_01664_ats_ptr_type (arg0) ; #line 444 "parcomb.dats" do { /* branch: __ats_lab_4 */ #line 445 "parcomb.dats" __ats_lab_4_0: #line 445 "parcomb.dats" if (tmp15 == (ats_sum_ptr_type)0) { goto __ats_lab_5_0 ; } #line 445 "parcomb.dats" __ats_lab_4_1: #line 445 "parcomb.dats" tmp16 = ats_caselptr_mac(anairiats_sum_3, tmp15, atslab_0) ; #line 445 "parcomb.dats" ATS_FREE(tmp15) ; #line 446 "parcomb.dats" tmp17 = atspre_add_int_int (ats_ptrget_mac(ats_int_type, arg1), 1) ; #line 446 "parcomb.dats" ats_ptrget_mac(ats_int_type, arg1) = tmp17 ; #line 447 "parcomb.dats" tmp19 = atspre_gt_int_int (ats_ptrget_mac(ats_int_type, arg1), ats_ptrget_mac(ats_int_type, arg2)) ; #line 447 "parcomb.dats" if (tmp19) { #line 447 "parcomb.dats" ats_ptrget_mac(ats_int_type, arg2) = ats_ptrget_mac(ats_int_type, arg1) ; } else { /* empty */ } /* end of [if] */ #line 445 "parcomb.dats" tmp20 = ATS_MALLOC(sizeof(anairiats_sum_3)) ; ats_selptrset_mac(anairiats_sum_3, tmp20, atslab_0, tmp16) ; #line 445 "parcomb.dats" tmp14 = ATS_MALLOC(sizeof(anairiats_sum_3)) ; ats_selptrset_mac(anairiats_sum_3, tmp14, atslab_0, tmp20) ; break ; /* branch: __ats_lab_5 */ #line 449 "parcomb.dats" __ats_lab_5_0: #line 449 "parcomb.dats" // if (tmp15 != (ats_sum_ptr_type)0) { ats_deadcode_failure_handle () ; } #line 449 "parcomb.dats" __ats_lab_5_1: #line 449 "parcomb.dats" tmp21 = (ats_sum_ptr_type)0 ; #line 449 "parcomb.dats" tmp14 = ATS_MALLOC(sizeof(anairiats_sum_3)) ; ats_selptrset_mac(anairiats_sum_3, tmp14, atslab_0, tmp21) ; break ; } while (0) ; return (tmp14) ; } /* end of [__ats_fun_4] */ typedef struct { ats_fun_ptr_type closure_fun ; } __ats_fun_4_closure_type ; ats_ptr_type __ats_fun_4_clofun (ats_clo_ptr_type cloptr, ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2) { return __ats_fun_4 (arg0, arg1, arg2) ; } /* end of function */ ATSinline() ats_void_type __ats_fun_4_closure_init (__ats_fun_4_closure_type *p_clo) { p_clo->closure_fun = (ats_fun_ptr_type)&__ats_fun_4_clofun ; return ; } /* end of function */ ats_clo_ptr_type __ats_fun_4_closure_make () { __ats_fun_4_closure_type *p_clo = ATS_MALLOC(sizeof(__ats_fun_4_closure_type)) ; __ats_fun_4_closure_init (p_clo) ; return (ats_clo_ptr_type)p_clo ; } /* end of function */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/PARCOMB/parcomb.dats: 16562(line=443, offs=28) -- 16827(line=450, offs=4) */ ATSstaticdec() ats_ptr_type anyopt_parser_01667_ats_ptr_type () { /* local vardec */ ATSlocal (ats_ptr_type, tmp13) ; __ats_lab_anyopt_parser_01667_ats_ptr_type: #line 443 "parcomb.dats" tmp13 = __ats_fun_4_closure_make () ; return (tmp13) ; } /* end of [anyopt_parser_01667_ats_ptr_type] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/PARCOMB/parcomb.dats: 15868(line=421, offs=30) -- 16179(line=430, offs=4) */ ATSstaticdec() ats_ptr_type __ats_fun_7 (ats_clo_ref_type env0, ats_clo_ref_type env1, ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2) { /* local vardec */ ATSlocal (ats_ptr_type, tmp24) ; ATSlocal (ats_ptr_type, tmp25) ; ATSlocal (ats_int_type, tmp26) ; ATSlocal (ats_ptr_type, tmp27) ; ATSlocal (ats_ptr_type, tmp28) ; ATSlocal (ats_bool_type, tmp29) ; __ats_lab___ats_fun_7: #line 422 "parcomb.dats" tmp25 = ats_ptrget_mac(ats_ptr_type, arg0) ; #line 422 "parcomb.dats" tmp26 = ats_ptrget_mac(ats_int_type, arg1) ; #line 423 "parcomb.dats" tmp27 = ((ats_ptr_type(*)(ats_clo_ptr_type, ats_ref_type, ats_ref_type, ats_ref_type))(ats_closure_fun(env0))) (env0, arg0, arg1, arg2) ; #line 423 "parcomb.dats" do { /* branch: __ats_lab_6 */ #line 424 "parcomb.dats" __ats_lab_6_0: #line 424 "parcomb.dats" if (tmp27 == (ats_sum_ptr_type)0) { goto __ats_lab_7_0 ; } #line 424 "parcomb.dats" __ats_lab_6_1: #line 424 "parcomb.dats" tmp28 = ats_caselptr_mac(anairiats_sum_3, tmp27, atslab_0) ; #line 425 "parcomb.dats" tmp29 = ((ats_bool_type(*)(ats_clo_ptr_type, ats_ptr_type))(ats_closure_fun(env1))) (env1, tmp28) ; #line 425 "parcomb.dats" if (tmp29) { #line 425 "parcomb.dats" tmp24 = tmp27 ; } else { #line 426 "parcomb.dats" ats_ptrget_mac(ats_ptr_type, arg0) = tmp25 ; #line 426 "parcomb.dats" ats_ptrget_mac(ats_int_type, arg1) = tmp26 ; #line 426 "parcomb.dats" ATS_FREE(tmp27) ; #line 426 "parcomb.dats" tmp24 = (ats_sum_ptr_type)0 ; } /* end of [if] */ break ; /* branch: __ats_lab_7 */ #line 429 "parcomb.dats" __ats_lab_7_0: #line 429 "parcomb.dats" // if (tmp27 != (ats_sum_ptr_type)0) { ats_deadcode_failure_handle () ; } #line 429 "parcomb.dats" __ats_lab_7_1: #line 429 "parcomb.dats" tmp24 = tmp27 ; break ; } while (0) ; return (tmp24) ; } /* end of [__ats_fun_7] */ typedef struct { ats_fun_ptr_type closure_fun ; ats_clo_ref_type closure_env_0 ; ats_clo_ref_type closure_env_1 ; } __ats_fun_7_closure_type ; ats_ptr_type __ats_fun_7_clofun (ats_clo_ptr_type cloptr, ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2) { return __ats_fun_7 (((__ats_fun_7_closure_type*)cloptr)->closure_env_0, ((__ats_fun_7_closure_type*)cloptr)->closure_env_1, arg0, arg1, arg2) ; } /* end of function */ ATSinline() ats_void_type __ats_fun_7_closure_init (__ats_fun_7_closure_type *p_clo, ats_clo_ref_type env0, ats_clo_ref_type env1) { p_clo->closure_fun = (ats_fun_ptr_type)&__ats_fun_7_clofun ; p_clo->closure_env_0 = env0 ; p_clo->closure_env_1 = env1 ; return ; } /* end of function */ ats_clo_ptr_type __ats_fun_7_closure_make (ats_clo_ref_type env0, ats_clo_ref_type env1) { __ats_fun_7_closure_type *p_clo = ATS_MALLOC(sizeof(__ats_fun_7_closure_type)) ; __ats_fun_7_closure_init (p_clo, env0, env1) ; return (ats_clo_ptr_type)p_clo ; } /* end of function */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/PARCOMB/parcomb.dats: 15859(line=421, offs=21) -- 16179(line=430, offs=4) */ ATSstaticdec() ats_ptr_type sat_parser_cloref_01692_ats_ptr_type_ats_ptr_type (ats_ptr_type arg0, ats_clo_ref_type arg1) { /* local vardec */ ATSlocal (ats_ptr_type, tmp23) ; __ats_lab_sat_parser_cloref_01692_ats_ptr_type_ats_ptr_type: #line 421 "parcomb.dats" tmp23 = __ats_fun_7_closure_make (arg0, arg1) ; return (tmp23) ; } /* end of [sat_parser_cloref_01692_ats_ptr_type_ats_ptr_type] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 1097(line=65, offs=18) -- 1195(line=66, offs=66) */ ATSstaticdec() ats_bool_type __ats_fun_8 (ats_char_type env0, ats_ptr_type arg0) { /* local vardec */ ATSlocal (ats_bool_type, tmp30) ; ATSlocal (ats_ptr_type, tmp31) ; ATSlocal (ats_char_type, tmp32) ; __ats_lab___ats_fun_8: #line 66 "parser.dats" tmp31 = ats_selbox_mac(ats_castptr_mac(anairiats_rec_4, arg0), atslab_token_node) ; #line 66 "parser.dats" do { /* branch: __ats_lab_8 */ #line 66 "parser.dats" __ats_lab_8_0: #line 66 "parser.dats" if (((ats_sum_ptr_type)tmp31)->tag != 3) { goto __ats_lab_9_0 ; } #line 66 "parser.dats" __ats_lab_8_1: #line 66 "parser.dats" tmp32 = ats_caselptr_mac(anairiats_sum_5, tmp31, atslab_0) ; #line 66 "parser.dats" tmp30 = atspre_eq_char_char (env0, tmp32) ; break ; /* branch: __ats_lab_9 */ #line 66 "parser.dats" __ats_lab_9_0: #line 66 "parser.dats" __ats_lab_9_1: #line 66 "parser.dats" tmp30 = ats_false_bool ; break ; } while (0) ; return (tmp30) ; } /* end of [__ats_fun_8] */ typedef struct { ats_fun_ptr_type closure_fun ; ats_char_type closure_env_0 ; } __ats_fun_8_closure_type ; ats_bool_type __ats_fun_8_clofun (ats_clo_ptr_type cloptr, ats_ptr_type arg0) { return __ats_fun_8 (((__ats_fun_8_closure_type*)cloptr)->closure_env_0, arg0) ; } /* end of function */ ATSinline() ats_void_type __ats_fun_8_closure_init (__ats_fun_8_closure_type *p_clo, ats_char_type env0) { p_clo->closure_fun = (ats_fun_ptr_type)&__ats_fun_8_clofun ; p_clo->closure_env_0 = env0 ; return ; } /* end of function */ ats_clo_ptr_type __ats_fun_8_closure_make (ats_char_type env0) { __ats_fun_8_closure_type *p_clo = ATS_MALLOC(sizeof(__ats_fun_8_closure_type)) ; __ats_fun_8_closure_init (p_clo, env0) ; return (ats_clo_ptr_type)p_clo ; } /* end of function */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 1050(line=64, offs=4) -- 1199(line=67, offs=4) */ ATSstaticdec() ats_ptr_type litchar_5 (ats_char_type arg0) { /* local vardec */ ATSlocal (ats_ptr_type, tmp22) ; __ats_lab_litchar_5: #line 65 "parser.dats" tmp22 = sat_parser_cloref_01692_ats_ptr_type_ats_ptr_type (statmp0, __ats_fun_8_closure_make (arg0)) ; return (tmp22) ; } /* end of [litchar_5] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 1472(line=82, offs=18) -- 1573(line=83, offs=69) */ ATSstaticdec() ats_bool_type __ats_fun_10 (ats_ptr_type env0, ats_ptr_type arg0) { /* local vardec */ ATSlocal (ats_bool_type, tmp42) ; ATSlocal (ats_ptr_type, tmp43) ; ATSlocal (ats_ptr_type, tmp44) ; __ats_lab___ats_fun_10: #line 83 "parser.dats" tmp43 = ats_selbox_mac(ats_castptr_mac(anairiats_rec_4, arg0), atslab_token_node) ; #line 83 "parser.dats" do { /* branch: __ats_lab_10 */ #line 83 "parser.dats" __ats_lab_10_0: #line 83 "parser.dats" if (((ats_sum_ptr_type)tmp43)->tag != 1) { goto __ats_lab_11_0 ; } #line 83 "parser.dats" __ats_lab_10_1: #line 83 "parser.dats" tmp44 = ats_caselptr_mac(anairiats_sum_6, tmp43, atslab_0) ; #line 83 "parser.dats" tmp42 = atspre_eq_string_string (env0, tmp44) ; break ; /* branch: __ats_lab_11 */ #line 83 "parser.dats" __ats_lab_11_0: #line 83 "parser.dats" __ats_lab_11_1: #line 83 "parser.dats" tmp42 = ats_false_bool ; break ; } while (0) ; return (tmp42) ; } /* end of [__ats_fun_10] */ typedef struct { ats_fun_ptr_type closure_fun ; ats_ptr_type closure_env_0 ; } __ats_fun_10_closure_type ; ats_bool_type __ats_fun_10_clofun (ats_clo_ptr_type cloptr, ats_ptr_type arg0) { return __ats_fun_10 (((__ats_fun_10_closure_type*)cloptr)->closure_env_0, arg0) ; } /* end of function */ ATSinline() ats_void_type __ats_fun_10_closure_init (__ats_fun_10_closure_type *p_clo, ats_ptr_type env0) { p_clo->closure_fun = (ats_fun_ptr_type)&__ats_fun_10_clofun ; p_clo->closure_env_0 = env0 ; return ; } /* end of function */ ats_clo_ptr_type __ats_fun_10_closure_make (ats_ptr_type env0) { __ats_fun_10_closure_type *p_clo = ATS_MALLOC(sizeof(__ats_fun_10_closure_type)) ; __ats_fun_10_closure_init (p_clo, env0) ; return (ats_clo_ptr_type)p_clo ; } /* end of function */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 1419(line=81, offs=4) -- 1577(line=84, offs=4) */ ATSstaticdec() ats_ptr_type litident_9 (ats_ptr_type arg0) { /* local vardec */ ATSlocal (ats_ptr_type, tmp41) ; __ats_lab_litident_9: #line 82 "parser.dats" tmp41 = sat_parser_cloref_01692_ats_ptr_type_ats_ptr_type (statmp0, __ats_fun_10_closure_make (arg0)) ; return (tmp41) ; } /* end of [litident_9] */ /* // /home/fac2/hwxi/research/ATS/IMPLEMENT/Geizella/Anairiats/svn/ats-lang/prelude/DATS/array.dats: 14089(line=496, offs=25) -- 14184(line=500, offs=4) */ ATSstaticdec() ats_ptr_type array_get_elt_at__intsz_01339_ats_ptr_type (ats_ptr_type arg0, ats_int_type arg1) { /* local vardec */ ATSlocal (ats_ptr_type, tmp88) ; ATSlocal (ats_size_type, tmp89) ; ATSlocal (ats_ptr_type, tmp90) ; __ats_lab_array_get_elt_at__intsz_01339_ats_ptr_type: #line 497 "array.dats" tmp89 = atspre_size1_of_int1 (arg1) ; #line 497 "array.dats" tmp90 = ats_selsin_mac(arg0, atslab_data) ; #line 499 "array.dats" tmp88 = ats_caselind_mac(ats_ptr_type, tmp90, [tmp89]) ; return (tmp88) ; } /* end of [array_get_elt_at__intsz_01339_ats_ptr_type] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 2934(line=166, offs=4) -- 3229(line=175, offs=2) */ ATSstaticdec() ats_bool_type isKeyword_11 (ats_ptr_type arg0) { /* local vardec */ ATSlocal (ats_bool_type, tmp83) ; ATSlocal (ats_int_type, tmp84) ; ATSlocal (ats_bool_type, tmp85) ; ATSlocal (ats_bool_type, tmp86) ; ATSlocal (ats_ptr_type, tmp87) ; ATSlocal (ats_bool_type, tmp92) ; ATSlocal (ats_int_type, tmp93) ; __ats_lab_isKeyword_11: #line 168 "parser.dats" /* ats_int_type tmp84 ; */ #line 168 "parser.dats" tmp84 = 0 ; #line 168 "parser.dats" /* ats_bool_type tmp85 ; */ #line 168 "parser.dats" tmp85 = ats_false_bool ; #line 170 "parser.dats" /* loop initialization */ /* empty */ ats_loop_beg_mac(__ats_lab_12) #line 170 "parser.dats" tmp86 = atspre_lt_int1_size1 (tmp84, statmp81) ; if (!tmp86) break ; #line 171 "parser.dats" tmp87 = array_get_elt_at__intsz_01339_ats_ptr_type (statmp82, tmp84) ; #line 172 "parser.dats" tmp92 = atspre_eq_string_string (arg0, tmp87) ; #line 172 "parser.dats" if (tmp92) { #line 172 "parser.dats" tmp85 = ats_true_bool ; #line 172 "parser.dats" goto __ats_lab_13 ; } else { /* empty */ } /* end of [if] */ #line 172 "parser.dats" tmp93 = atspre_iadd (tmp84, 1) ; #line 172 "parser.dats" tmp84 = tmp93 ; ats_loop_end_mac(__ats_lab_12, __ats_lab_13) #line 167 "parser.dats" tmp83 = tmp85 ; return (tmp83) ; } /* end of [isKeyword_11] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/PARCOMB/parcomb.dats: 15483(line=409, offs=27) -- 15794(line=418, offs=4) */ ATSstaticdec() ats_ptr_type __ats_fun_14 (ats_clo_ref_type env0, ats_ptr_type env1, ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2) { /* local vardec */ ATSlocal (ats_ptr_type, tmp96) ; ATSlocal (ats_ptr_type, tmp97) ; ATSlocal (ats_int_type, tmp98) ; ATSlocal (ats_ptr_type, tmp99) ; ATSlocal (ats_ptr_type, tmp100) ; ATSlocal (ats_bool_type, tmp101) ; __ats_lab___ats_fun_14: #line 410 "parcomb.dats" tmp97 = ats_ptrget_mac(ats_ptr_type, arg0) ; #line 410 "parcomb.dats" tmp98 = ats_ptrget_mac(ats_int_type, arg1) ; #line 411 "parcomb.dats" tmp99 = ((ats_ptr_type(*)(ats_clo_ptr_type, ats_ref_type, ats_ref_type, ats_ref_type))(ats_closure_fun(env0))) (env0, arg0, arg1, arg2) ; #line 411 "parcomb.dats" do { /* branch: __ats_lab_14 */ #line 412 "parcomb.dats" __ats_lab_14_0: #line 412 "parcomb.dats" if (tmp99 == (ats_sum_ptr_type)0) { goto __ats_lab_15_0 ; } #line 412 "parcomb.dats" __ats_lab_14_1: #line 412 "parcomb.dats" tmp100 = ats_caselptr_mac(anairiats_sum_3, tmp99, atslab_0) ; #line 413 "parcomb.dats" tmp101 = ((ats_bool_type(*)(ats_ptr_type))env1) (tmp100) ; #line 413 "parcomb.dats" if (tmp101) { #line 413 "parcomb.dats" tmp96 = tmp99 ; } else { #line 414 "parcomb.dats" ats_ptrget_mac(ats_ptr_type, arg0) = tmp97 ; #line 414 "parcomb.dats" ats_ptrget_mac(ats_int_type, arg1) = tmp98 ; #line 414 "parcomb.dats" ATS_FREE(tmp99) ; #line 414 "parcomb.dats" tmp96 = (ats_sum_ptr_type)0 ; } /* end of [if] */ break ; /* branch: __ats_lab_15 */ #line 417 "parcomb.dats" __ats_lab_15_0: #line 417 "parcomb.dats" // if (tmp99 != (ats_sum_ptr_type)0) { ats_deadcode_failure_handle () ; } #line 417 "parcomb.dats" __ats_lab_15_1: #line 417 "parcomb.dats" tmp96 = tmp99 ; break ; } while (0) ; return (tmp96) ; } /* end of [__ats_fun_14] */ typedef struct { ats_fun_ptr_type closure_fun ; ats_clo_ref_type closure_env_0 ; ats_ptr_type closure_env_1 ; } __ats_fun_14_closure_type ; ats_ptr_type __ats_fun_14_clofun (ats_clo_ptr_type cloptr, ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2) { return __ats_fun_14 (((__ats_fun_14_closure_type*)cloptr)->closure_env_0, ((__ats_fun_14_closure_type*)cloptr)->closure_env_1, arg0, arg1, arg2) ; } /* end of function */ ATSinline() ats_void_type __ats_fun_14_closure_init (__ats_fun_14_closure_type *p_clo, ats_clo_ref_type env0, ats_ptr_type env1) { p_clo->closure_fun = (ats_fun_ptr_type)&__ats_fun_14_clofun ; p_clo->closure_env_0 = env0 ; p_clo->closure_env_1 = env1 ; return ; } /* end of function */ ats_clo_ptr_type __ats_fun_14_closure_make (ats_clo_ref_type env0, ats_ptr_type env1) { __ats_fun_14_closure_type *p_clo = ATS_MALLOC(sizeof(__ats_fun_14_closure_type)) ; __ats_fun_14_closure_init (p_clo, env0, env1) ; return (ats_clo_ptr_type)p_clo ; } /* end of function */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/PARCOMB/parcomb.dats: 15474(line=409, offs=18) -- 15794(line=418, offs=4) */ ATSstaticdec() ats_ptr_type sat_parser_fun_01691_ats_ptr_type_ats_ptr_type (ats_ptr_type arg0, ats_ptr_type arg1) { /* local vardec */ ATSlocal (ats_ptr_type, tmp95) ; __ats_lab_sat_parser_fun_01691_ats_ptr_type_ats_ptr_type: #line 409 "parcomb.dats" tmp95 = __ats_fun_14_closure_make (arg0, arg1) ; return (tmp95) ; } /* end of [sat_parser_fun_01691_ats_ptr_type_ats_ptr_type] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 3317(line=180, offs=18) -- 3443(line=181, offs=73) */ ATSstaticdec() ats_bool_type __ats_fun_15 (ats_ptr_type arg0) { /* local vardec */ ATSlocal (ats_bool_type, tmp102) ; ATSlocal (ats_ptr_type, tmp103) ; ATSlocal (ats_ptr_type, tmp104) ; ATSlocal (ats_bool_type, tmp105) ; __ats_lab___ats_fun_15: #line 180 "parser.dats" tmp103 = ats_selbox_mac(ats_castptr_mac(anairiats_rec_4, arg0), atslab_token_node) ; #line 180 "parser.dats" do { /* branch: __ats_lab_16 */ #line 181 "parser.dats" __ats_lab_16_0: #line 181 "parser.dats" if (((ats_sum_ptr_type)tmp103)->tag != 1) { goto __ats_lab_17_0 ; } #line 181 "parser.dats" __ats_lab_16_1: #line 181 "parser.dats" tmp104 = ats_caselptr_mac(anairiats_sum_6, tmp103, atslab_0) ; #line 181 "parser.dats" tmp105 = isKeyword_11 (tmp104) ; #line 181 "parser.dats" if (tmp105) { #line 181 "parser.dats" tmp102 = ats_false_bool ; } else { #line 181 "parser.dats" tmp102 = ats_true_bool ; } /* end of [if] */ break ; /* branch: __ats_lab_17 */ #line 181 "parser.dats" __ats_lab_17_0: #line 181 "parser.dats" __ats_lab_17_1: #line 181 "parser.dats" tmp102 = ats_false_bool ; break ; } while (0) ; return (tmp102) ; } /* end of [__ats_fun_15] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 3510(line=186, offs=18) -- 3597(line=187, offs=58) */ ATSstaticdec() ats_bool_type __ats_fun_16 (ats_ptr_type arg0) { /* local vardec */ ATSlocal (ats_bool_type, tmp107) ; ATSlocal (ats_ptr_type, tmp108) ; __ats_lab___ats_fun_16: #line 187 "parser.dats" tmp108 = ats_selbox_mac(ats_castptr_mac(anairiats_rec_4, arg0), atslab_token_node) ; #line 187 "parser.dats" do { /* branch: __ats_lab_18 */ #line 187 "parser.dats" __ats_lab_18_0: #line 187 "parser.dats" if (((ats_sum_ptr_type)tmp108)->tag != 2) { goto __ats_lab_19_0 ; } #line 187 "parser.dats" __ats_lab_18_1: #line 187 "parser.dats" tmp107 = ats_true_bool ; break ; /* branch: __ats_lab_19 */ #line 187 "parser.dats" __ats_lab_19_0: #line 187 "parser.dats" __ats_lab_19_1: #line 187 "parser.dats" tmp107 = ats_false_bool ; break ; } while (0) ; return (tmp107) ; } /* end of [__ats_fun_16] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 3665(line=192, offs=18) -- 3752(line=193, offs=58) */ ATSstaticdec() ats_bool_type __ats_fun_17 (ats_ptr_type arg0) { /* local vardec */ ATSlocal (ats_bool_type, tmp110) ; ATSlocal (ats_ptr_type, tmp111) ; __ats_lab___ats_fun_17: #line 193 "parser.dats" tmp111 = ats_selbox_mac(ats_castptr_mac(anairiats_rec_4, arg0), atslab_token_node) ; #line 193 "parser.dats" do { /* branch: __ats_lab_20 */ #line 193 "parser.dats" __ats_lab_20_0: #line 193 "parser.dats" if (((ats_sum_ptr_type)tmp111)->tag != 4) { goto __ats_lab_21_0 ; } #line 193 "parser.dats" __ats_lab_20_1: #line 193 "parser.dats" tmp110 = ats_true_bool ; break ; /* branch: __ats_lab_21 */ #line 193 "parser.dats" __ats_lab_21_0: #line 193 "parser.dats" __ats_lab_21_1: #line 193 "parser.dats" tmp110 = ats_false_bool ; break ; } while (0) ; return (tmp110) ; } /* end of [__ats_fun_17] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 5533(line=267, offs=13) -- 5714(line=272, offs=8) */ ATSstaticdec() ats_ptr_type __ats_fun_19 (ats_ptr_type env0, ats_ptr_type arg0) { /* local vardec */ ATSlocal (ats_ptr_type, tmp114) ; ATSlocal (ats_ptr_type, tmp115) ; ATSlocal (ats_ptr_type, tmp116) ; ATSlocal (ats_ptr_type, tmp117) ; ATSlocal (ats_ptr_type, tmp118) ; __ats_lab___ats_fun_19: #line 268 "parser.dats" tmp115 = _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2absyn_2esats__IntExp_make (env0, 0) ; #line 269 "parser.dats" tmp117 = ats_selbox_mac(ats_castptr_mac(anairiats_rec_7, arg0), atslab_exp_loc) ; #line 269 "parser.dats" tmp116 = _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2PARCOMB_2posloc_2esats__location_combine (env0, tmp117) ; #line 271 "parser.dats" tmp118 = (ats_sum_ptr_type)(&_2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2absyn_2esats__MinusOp) ; #line 271 "parser.dats" tmp114 = _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2absyn_2esats__OpExp_make (tmp116, tmp115, tmp118, arg0) ; return (tmp114) ; } /* end of [__ats_fun_19] */ typedef struct { ats_fun_ptr_type closure_fun ; ats_ptr_type closure_env_0 ; } __ats_fun_19_closure_type ; ats_ptr_type __ats_fun_19_clofun (ats_clo_ptr_type cloptr, ats_ptr_type arg0) { return __ats_fun_19 (((__ats_fun_19_closure_type*)cloptr)->closure_env_0, arg0) ; } /* end of function */ ATSinline() ats_void_type __ats_fun_19_closure_init (__ats_fun_19_closure_type *p_clo, ats_ptr_type env0) { p_clo->closure_fun = (ats_fun_ptr_type)&__ats_fun_19_clofun ; p_clo->closure_env_0 = env0 ; return ; } /* end of function */ ats_clo_ptr_type __ats_fun_19_closure_make (ats_ptr_type env0) { __ats_fun_19_closure_type *p_clo = ATS_MALLOC(sizeof(__ats_fun_19_closure_type)) ; __ats_fun_19_closure_init (p_clo, env0) ; return (ats_clo_ptr_type)p_clo ; } /* end of function */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 5436(line=265, offs=6) -- 5775(line=275, offs=6) */ ATSstaticdec() ats_ptr_type f_uminus_18 (ats_ptr_type arg0, ats_int_type arg1) { /* local vardec */ ATSlocal (ats_ptr_type, tmp112) ; ATSlocal (ats_ptr_type, tmp113) ; ATSlocal (ats_ptr_type, tmp119) ; ATSlocal (ats_ptr_type, tmp120) ; __ats_lab_f_uminus_18: #line 266 "parser.dats" tmp113 = ats_selbox_mac(ats_castptr_mac(anairiats_rec_4, arg0), atslab_token_loc) ; #line 267 "parser.dats" tmp119 = __ats_fun_19_closure_make (tmp113) ; #line 274 "parser.dats" tmp120 = ats_selbox_mac(ats_castptr_mac(anairiats_rec_4, arg0), atslab_token_loc) ; #line 274 "parser.dats" tmp112 = ATS_MALLOC(sizeof(anairiats_sum_8)) ; ((ats_sum_ptr_type)tmp112)->tag = 0 ; ats_selptrset_mac(anairiats_sum_8, tmp112, atslab_0, tmp120) ; ats_selptrset_mac(anairiats_sum_8, tmp112, atslab_1, arg1) ; ats_selptrset_mac(anairiats_sum_8, tmp112, atslab_2, tmp119) ; return (tmp112) ; } /* end of [f_uminus_18] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 5900(line=279, offs=13) -- 6047(line=282, offs=8) */ ATSstaticdec() ats_ptr_type __ats_fun_21 (ats_ptr_type env0, ats_ptr_type arg0, ats_ptr_type arg1) { /* local vardec */ ATSlocal (ats_ptr_type, tmp122) ; ATSlocal (ats_ptr_type, tmp123) ; ATSlocal (ats_ptr_type, tmp124) ; ATSlocal (ats_ptr_type, tmp125) ; __ats_lab___ats_fun_21: #line 280 "parser.dats" tmp124 = ats_selbox_mac(ats_castptr_mac(anairiats_rec_7, arg0), atslab_exp_loc) ; #line 280 "parser.dats" tmp125 = ats_selbox_mac(ats_castptr_mac(anairiats_rec_7, arg1), atslab_exp_loc) ; #line 280 "parser.dats" tmp123 = _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2PARCOMB_2posloc_2esats__location_combine (tmp124, tmp125) ; #line 281 "parser.dats" tmp122 = _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2absyn_2esats__OpExp_make (tmp123, arg0, env0, arg1) ; return (tmp122) ; } /* end of [__ats_fun_21] */ typedef struct { ats_fun_ptr_type closure_fun ; ats_ptr_type closure_env_0 ; } __ats_fun_21_closure_type ; ats_ptr_type __ats_fun_21_clofun (ats_clo_ptr_type cloptr, ats_ptr_type arg0, ats_ptr_type arg1) { return __ats_fun_21 (((__ats_fun_21_closure_type*)cloptr)->closure_env_0, arg0, arg1) ; } /* end of function */ ATSinline() ats_void_type __ats_fun_21_closure_init (__ats_fun_21_closure_type *p_clo, ats_ptr_type env0) { p_clo->closure_fun = (ats_fun_ptr_type)&__ats_fun_21_clofun ; p_clo->closure_env_0 = env0 ; return ; } /* end of function */ ats_clo_ptr_type __ats_fun_21_closure_make (ats_ptr_type env0) { __ats_fun_21_closure_type *p_clo = ATS_MALLOC(sizeof(__ats_fun_21_closure_type)) ; __ats_fun_21_closure_init (p_clo, env0) ; return (ats_clo_ptr_type)p_clo ; } /* end of function */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 5801(line=276, offs=6) -- 6114(line=285, offs=6) */ ATSstaticdec() ats_ptr_type f_infix_20 (ats_ptr_type arg0, ats_ptr_type arg1, ats_int_type arg2, ats_ptr_type arg3) { /* local vardec */ ATSlocal (ats_ptr_type, tmp121) ; ATSlocal (ats_ptr_type, tmp126) ; ATSlocal (ats_ptr_type, tmp127) ; __ats_lab_f_infix_20: #line 279 "parser.dats" tmp126 = __ats_fun_21_closure_make (arg3) ; #line 284 "parser.dats" tmp127 = ats_selbox_mac(ats_castptr_mac(anairiats_rec_4, arg0), atslab_token_loc) ; #line 284 "parser.dats" tmp121 = ATS_MALLOC(sizeof(anairiats_sum_9)) ; ((ats_sum_ptr_type)tmp121)->tag = 1 ; ats_selptrset_mac(anairiats_sum_9, tmp121, atslab_0, tmp127) ; ats_selptrset_mac(anairiats_sum_9, tmp121, atslab_1, arg2) ; ats_selptrset_mac(anairiats_sum_9, tmp121, atslab_2, arg1) ; ats_selptrset_mac(anairiats_sum_9, tmp121, atslab_3, tmp126) ; return (tmp121) ; } /* end of [f_infix_20] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/PARCOMB/parcomb.dats: 2261(line=74, offs=32) -- 2536(line=85, offs=4) */ ATSstaticdec() ats_ptr_type __ats_fun_23 (ats_clo_ref_type env0, ats_clo_ref_type env1, ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2) { /* local vardec */ ATSlocal (ats_ptr_type, tmp130) ; ATSlocal (ats_ptr_type, tmp131) ; ATSlocal (ats_int_type, tmp132) ; ATSlocal (ats_ptr_type, tmp133) ; __ats_lab___ats_fun_23: #line 75 "parcomb.dats" tmp131 = ats_ptrget_mac(ats_ptr_type, arg0) ; #line 76 "parcomb.dats" tmp132 = ats_ptrget_mac(ats_int_type, arg1) ; #line 77 "parcomb.dats" tmp133 = ((ats_ptr_type(*)(ats_clo_ptr_type, ats_ref_type, ats_ref_type, ats_ref_type))(ats_closure_fun(env0))) (env0, arg0, arg1, arg2) ; #line 79 "parcomb.dats" do { /* branch: __ats_lab_22 */ #line 80 "parcomb.dats" __ats_lab_22_0: #line 80 "parcomb.dats" if (tmp133 == (ats_sum_ptr_type)0) { goto __ats_lab_23_0 ; } #line 80 "parcomb.dats" __ats_lab_22_1: #line 80 "parcomb.dats" tmp130 = tmp133 ; break ; /* branch: __ats_lab_23 */ #line 80 "parcomb.dats" __ats_lab_23_0: #line 80 "parcomb.dats" // if (tmp133 != (ats_sum_ptr_type)0) { ats_deadcode_failure_handle () ; } #line 80 "parcomb.dats" __ats_lab_23_1: #line 81 "parcomb.dats" ats_ptrget_mac(ats_ptr_type, arg0) = tmp131 ; #line 81 "parcomb.dats" ats_ptrget_mac(ats_int_type, arg1) = tmp132 ; #line 83 "parcomb.dats" tmp130 = ((ats_ptr_type(*)(ats_clo_ptr_type, ats_ref_type, ats_ref_type, ats_ref_type))(ats_closure_fun(env1))) (env1, arg0, arg1, arg2) ; break ; } while (0) ; return (tmp130) ; } /* end of [__ats_fun_23] */ typedef struct { ats_fun_ptr_type closure_fun ; ats_clo_ref_type closure_env_0 ; ats_clo_ref_type closure_env_1 ; } __ats_fun_23_closure_type ; ats_ptr_type __ats_fun_23_clofun (ats_clo_ptr_type cloptr, ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2) { return __ats_fun_23 (((__ats_fun_23_closure_type*)cloptr)->closure_env_0, ((__ats_fun_23_closure_type*)cloptr)->closure_env_1, arg0, arg1, arg2) ; } /* end of function */ ATSinline() ats_void_type __ats_fun_23_closure_init (__ats_fun_23_closure_type *p_clo, ats_clo_ref_type env0, ats_clo_ref_type env1) { p_clo->closure_fun = (ats_fun_ptr_type)&__ats_fun_23_clofun ; p_clo->closure_env_0 = env0 ; p_clo->closure_env_1 = env1 ; return ; } /* end of function */ ats_clo_ptr_type __ats_fun_23_closure_make (ats_clo_ref_type env0, ats_clo_ref_type env1) { __ats_fun_23_closure_type *p_clo = ATS_MALLOC(sizeof(__ats_fun_23_closure_type)) ; __ats_fun_23_closure_init (p_clo, env0, env1) ; return (ats_clo_ptr_type)p_clo ; } /* end of function */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/PARCOMB/parcomb.dats: 2250(line=74, offs=21) -- 2536(line=85, offs=4) */ ATSstaticdec() ats_ptr_type alt_parser_parser_01671_ats_ptr_type_ats_ptr_type (ats_ptr_type arg0, ats_ptr_type arg1) { /* local vardec */ ATSlocal (ats_ptr_type, tmp129) ; __ats_lab_alt_parser_parser_01671_ats_ptr_type_ats_ptr_type: #line 74 "parcomb.dats" tmp129 = __ats_fun_23_closure_make (arg0, arg1) ; return (tmp129) ; } /* end of [alt_parser_parser_01671_ats_ptr_type_ats_ptr_type] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/PARCOMB/parcomb.dats: 3007(line=102, offs=31) -- 3134(line=105, offs=4) */ ATSstaticdec() ats_ptr_type __ats_fun_25 (ats_clo_ref_type env0, ats_ptr_type env1, ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2) { /* local vardec */ ATSlocal (ats_ptr_type, tmp147) ; ATSlocal (ats_ptr_type, tmp148) ; ATSlocal (ats_ptr_type, tmp149) ; ATSlocal (ats_ptr_type, tmp150) ; __ats_lab___ats_fun_25: #line 103 "parcomb.dats" tmp148 = ((ats_ptr_type(*)(ats_clo_ptr_type, ats_ref_type, ats_ref_type, ats_ref_type))(ats_closure_fun(env0))) (env0, arg0, arg1, arg2) ; #line 103 "parcomb.dats" do { /* branch: __ats_lab_24 */ #line 104 "parcomb.dats" __ats_lab_24_0: #line 104 "parcomb.dats" if (tmp148 == (ats_sum_ptr_type)0) { goto __ats_lab_25_0 ; } #line 104 "parcomb.dats" __ats_lab_24_1: #line 104 "parcomb.dats" tmp149 = ats_caselptr_mac(anairiats_sum_3, tmp148, atslab_0) ; #line 104 "parcomb.dats" ATS_FREE(tmp148) ; #line 104 "parcomb.dats" tmp150 = ((ats_ptr_type(*)(ats_ptr_type))env1) (tmp149) ; #line 104 "parcomb.dats" tmp147 = ATS_MALLOC(sizeof(anairiats_sum_3)) ; ats_selptrset_mac(anairiats_sum_3, tmp147, atslab_0, tmp150) ; break ; /* branch: __ats_lab_25 */ #line 104 "parcomb.dats" __ats_lab_25_0: #line 104 "parcomb.dats" // if (tmp148 != (ats_sum_ptr_type)0) { ats_deadcode_failure_handle () ; } #line 104 "parcomb.dats" __ats_lab_25_1: #line 104 "parcomb.dats" tmp147 = tmp148 ; break ; } while (0) ; return (tmp147) ; } /* end of [__ats_fun_25] */ typedef struct { ats_fun_ptr_type closure_fun ; ats_clo_ref_type closure_env_0 ; ats_ptr_type closure_env_1 ; } __ats_fun_25_closure_type ; ats_ptr_type __ats_fun_25_clofun (ats_clo_ptr_type cloptr, ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2) { return __ats_fun_25 (((__ats_fun_25_closure_type*)cloptr)->closure_env_0, ((__ats_fun_25_closure_type*)cloptr)->closure_env_1, arg0, arg1, arg2) ; } /* end of function */ ATSinline() ats_void_type __ats_fun_25_closure_init (__ats_fun_25_closure_type *p_clo, ats_clo_ref_type env0, ats_ptr_type env1) { p_clo->closure_fun = (ats_fun_ptr_type)&__ats_fun_25_clofun ; p_clo->closure_env_0 = env0 ; p_clo->closure_env_1 = env1 ; return ; } /* end of function */ ats_clo_ptr_type __ats_fun_25_closure_make (ats_clo_ref_type env0, ats_ptr_type env1) { __ats_fun_25_closure_type *p_clo = ATS_MALLOC(sizeof(__ats_fun_25_closure_type)) ; __ats_fun_25_closure_init (p_clo, env0, env1) ; return (ats_clo_ptr_type)p_clo ; } /* end of function */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/PARCOMB/parcomb.dats: 2998(line=102, offs=22) -- 3134(line=105, offs=4) */ ATSstaticdec() ats_ptr_type seq1wth_parser_fun_01673_ats_ptr_type_2cats_ptr_type_ats_ptr_type (ats_ptr_type arg0, ats_ptr_type arg1) { /* local vardec */ ATSlocal (ats_ptr_type, tmp146) ; __ats_lab_seq1wth_parser_fun_01673_ats_ptr_type_2cats_ptr_type_ats_ptr_type: #line 102 "parcomb.dats" tmp146 = __ats_fun_25_closure_make (arg0, arg1) ; return (tmp146) ; } /* end of [seq1wth_parser_fun_01673_ats_ptr_type_2cats_ptr_type_ats_ptr_type] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 4297(line=226, offs=5) -- 4354(line=226, offs=62) */ ATSstaticdec() ats_ptr_type __ats_fun_26 (ats_ptr_type arg0) { /* local vardec */ ATSlocal (ats_ptr_type, tmp151) ; __ats_lab___ats_fun_26: #line 226 "parser.dats" tmp151 = f_uminus_18 (arg0, 80) ; return (tmp151) ; } /* end of [__ats_fun_26] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 4379(line=229, offs=5) -- 4444(line=229, offs=70) */ ATSstaticdec() ats_ptr_type __ats_fun_27 (ats_ptr_type arg0) { /* local vardec */ ATSlocal (ats_ptr_type, tmp153) ; ATSlocal (ats_ptr_type, tmp154) ; ATSlocal (ats_ptr_type, tmp155) ; __ats_lab___ats_fun_27: #line 229 "parser.dats" tmp154 = (ats_sum_ptr_type)(&_2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2fixity_2esats__LeftAssoc) ; #line 229 "parser.dats" tmp155 = (ats_sum_ptr_type)(&_2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2absyn_2esats__PlusOp) ; #line 229 "parser.dats" tmp153 = f_infix_20 (arg0, tmp154, 40, tmp155) ; return (tmp153) ; } /* end of [__ats_fun_27] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 4470(line=232, offs=5) -- 4537(line=232, offs=72) */ ATSstaticdec() ats_ptr_type __ats_fun_28 (ats_ptr_type arg0) { /* local vardec */ ATSlocal (ats_ptr_type, tmp157) ; ATSlocal (ats_ptr_type, tmp158) ; ATSlocal (ats_ptr_type, tmp159) ; __ats_lab___ats_fun_28: #line 232 "parser.dats" tmp158 = (ats_sum_ptr_type)(&_2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2fixity_2esats__LeftAssoc) ; #line 232 "parser.dats" tmp159 = (ats_sum_ptr_type)(&_2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2absyn_2esats__MinusOp) ; #line 232 "parser.dats" tmp157 = f_infix_20 (arg0, tmp158, 40, tmp159) ; return (tmp157) ; } /* end of [__ats_fun_28] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 4563(line=235, offs=5) -- 4630(line=235, offs=72) */ ATSstaticdec() ats_ptr_type __ats_fun_29 (ats_ptr_type arg0) { /* local vardec */ ATSlocal (ats_ptr_type, tmp161) ; ATSlocal (ats_ptr_type, tmp162) ; ATSlocal (ats_ptr_type, tmp163) ; __ats_lab___ats_fun_29: #line 235 "parser.dats" tmp162 = (ats_sum_ptr_type)(&_2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2fixity_2esats__LeftAssoc) ; #line 235 "parser.dats" tmp163 = (ats_sum_ptr_type)(&_2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2absyn_2esats__TimesOp) ; #line 235 "parser.dats" tmp161 = f_infix_20 (arg0, tmp162, 60, tmp163) ; return (tmp161) ; } /* end of [__ats_fun_29] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 4657(line=238, offs=5) -- 4726(line=238, offs=74) */ ATSstaticdec() ats_ptr_type __ats_fun_30 (ats_ptr_type arg0) { /* local vardec */ ATSlocal (ats_ptr_type, tmp165) ; ATSlocal (ats_ptr_type, tmp166) ; ATSlocal (ats_ptr_type, tmp167) ; __ats_lab___ats_fun_30: #line 238 "parser.dats" tmp166 = (ats_sum_ptr_type)(&_2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2fixity_2esats__LeftAssoc) ; #line 238 "parser.dats" tmp167 = (ats_sum_ptr_type)(&_2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2absyn_2esats__DivideOp) ; #line 238 "parser.dats" tmp165 = f_infix_20 (arg0, tmp166, 60, tmp167) ; return (tmp165) ; } /* end of [__ats_fun_30] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 4751(line=241, offs=5) -- 4814(line=241, offs=68) */ ATSstaticdec() ats_ptr_type __ats_fun_31 (ats_ptr_type arg0) { /* local vardec */ ATSlocal (ats_ptr_type, tmp169) ; ATSlocal (ats_ptr_type, tmp170) ; ATSlocal (ats_ptr_type, tmp171) ; __ats_lab___ats_fun_31: #line 241 "parser.dats" tmp170 = (ats_sum_ptr_type)(&_2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2fixity_2esats__NonAssoc) ; #line 241 "parser.dats" tmp171 = (ats_sum_ptr_type)(&_2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2absyn_2esats__GeOp) ; #line 241 "parser.dats" tmp169 = f_infix_20 (arg0, tmp170, 20, tmp171) ; return (tmp169) ; } /* end of [__ats_fun_31] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 4837(line=244, offs=5) -- 4898(line=244, offs=66) */ ATSstaticdec() ats_ptr_type __ats_fun_32 (ats_ptr_type arg0) { /* local vardec */ ATSlocal (ats_ptr_type, tmp173) ; ATSlocal (ats_ptr_type, tmp174) ; ATSlocal (ats_ptr_type, tmp175) ; __ats_lab___ats_fun_32: #line 244 "parser.dats" tmp174 = (ats_sum_ptr_type)(&_2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2fixity_2esats__NonAssoc) ; #line 244 "parser.dats" tmp175 = (ats_sum_ptr_type)(&_2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2absyn_2esats__GtOp) ; #line 244 "parser.dats" tmp173 = f_infix_20 (arg0, tmp174, 20, tmp175) ; return (tmp173) ; } /* end of [__ats_fun_32] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 4923(line=247, offs=5) -- 4986(line=247, offs=68) */ ATSstaticdec() ats_ptr_type __ats_fun_33 (ats_ptr_type arg0) { /* local vardec */ ATSlocal (ats_ptr_type, tmp177) ; ATSlocal (ats_ptr_type, tmp178) ; ATSlocal (ats_ptr_type, tmp179) ; __ats_lab___ats_fun_33: #line 247 "parser.dats" tmp178 = (ats_sum_ptr_type)(&_2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2fixity_2esats__NonAssoc) ; #line 247 "parser.dats" tmp179 = (ats_sum_ptr_type)(&_2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2absyn_2esats__LeOp) ; #line 247 "parser.dats" tmp177 = f_infix_20 (arg0, tmp178, 20, tmp179) ; return (tmp177) ; } /* end of [__ats_fun_33] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 5009(line=250, offs=5) -- 5070(line=250, offs=66) */ ATSstaticdec() ats_ptr_type __ats_fun_34 (ats_ptr_type arg0) { /* local vardec */ ATSlocal (ats_ptr_type, tmp181) ; ATSlocal (ats_ptr_type, tmp182) ; ATSlocal (ats_ptr_type, tmp183) ; __ats_lab___ats_fun_34: #line 250 "parser.dats" tmp182 = (ats_sum_ptr_type)(&_2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2fixity_2esats__NonAssoc) ; #line 250 "parser.dats" tmp183 = (ats_sum_ptr_type)(&_2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2absyn_2esats__LtOp) ; #line 250 "parser.dats" tmp181 = f_infix_20 (arg0, tmp182, 20, tmp183) ; return (tmp181) ; } /* end of [__ats_fun_34] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 5093(line=253, offs=5) -- 5154(line=253, offs=66) */ ATSstaticdec() ats_ptr_type __ats_fun_35 (ats_ptr_type arg0) { /* local vardec */ ATSlocal (ats_ptr_type, tmp185) ; ATSlocal (ats_ptr_type, tmp186) ; ATSlocal (ats_ptr_type, tmp187) ; __ats_lab___ats_fun_35: #line 253 "parser.dats" tmp186 = (ats_sum_ptr_type)(&_2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2fixity_2esats__NonAssoc) ; #line 253 "parser.dats" tmp187 = (ats_sum_ptr_type)(&_2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2absyn_2esats__EqOp) ; #line 253 "parser.dats" tmp185 = f_infix_20 (arg0, tmp186, 20, tmp187) ; return (tmp185) ; } /* end of [__ats_fun_35] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 5178(line=256, offs=5) -- 5241(line=256, offs=68) */ ATSstaticdec() ats_ptr_type __ats_fun_36 (ats_ptr_type arg0) { /* local vardec */ ATSlocal (ats_ptr_type, tmp189) ; ATSlocal (ats_ptr_type, tmp190) ; ATSlocal (ats_ptr_type, tmp191) ; __ats_lab___ats_fun_36: #line 256 "parser.dats" tmp190 = (ats_sum_ptr_type)(&_2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2fixity_2esats__NonAssoc) ; #line 256 "parser.dats" tmp191 = (ats_sum_ptr_type)(&_2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2absyn_2esats__NeqOp) ; #line 256 "parser.dats" tmp189 = f_infix_20 (arg0, tmp190, 20, tmp191) ; return (tmp189) ; } /* end of [__ats_fun_36] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 5265(line=259, offs=5) -- 5328(line=259, offs=68) */ ATSstaticdec() ats_ptr_type __ats_fun_37 (ats_ptr_type arg0) { /* local vardec */ ATSlocal (ats_ptr_type, tmp193) ; ATSlocal (ats_ptr_type, tmp194) ; ATSlocal (ats_ptr_type, tmp195) ; __ats_lab___ats_fun_37: #line 259 "parser.dats" tmp194 = (ats_sum_ptr_type)(&_2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2fixity_2esats__LeftAssoc) ; #line 259 "parser.dats" tmp195 = (ats_sum_ptr_type)(&_2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2absyn_2esats__AndOp) ; #line 259 "parser.dats" tmp193 = f_infix_20 (arg0, tmp194, 9, tmp195) ; return (tmp193) ; } /* end of [__ats_fun_37] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 5352(line=262, offs=5) -- 5414(line=262, offs=67) */ ATSstaticdec() ats_ptr_type __ats_fun_38 (ats_ptr_type arg0) { /* local vardec */ ATSlocal (ats_ptr_type, tmp197) ; ATSlocal (ats_ptr_type, tmp198) ; ATSlocal (ats_ptr_type, tmp199) ; __ats_lab___ats_fun_38: #line 262 "parser.dats" tmp198 = (ats_sum_ptr_type)(&_2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2fixity_2esats__LeftAssoc) ; #line 262 "parser.dats" tmp199 = (ats_sum_ptr_type)(&_2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2absyn_2esats__OrOp) ; #line 262 "parser.dats" tmp197 = f_infix_20 (arg0, tmp198, 8, tmp199) ; return (tmp197) ; } /* end of [__ats_fun_38] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 6187(line=292, offs=4) -- 6314(line=297, offs=4) */ ATSstaticdec() ats_ptr_type symbol_make_token_39 (ats_ptr_type arg0) { /* local vardec */ ATSlocal (ats_ptr_type, tmp200) ; ATSlocal (ats_ptr_type, tmp201) ; ATSlocal (ats_ptr_type, tmp202) ; __ats_lab_symbol_make_token_39: #line 294 "parser.dats" tmp201 = ats_selbox_mac(ats_castptr_mac(anairiats_rec_4, arg0), atslab_token_node) ; #line 294 "parser.dats" if (((ats_sum_ptr_type)tmp201)->tag != 1) { ats_caseof_failure_handle ("/cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 6240(line=294, offs=8) -- 6268(line=294, offs=36)") ; } #line 294 "parser.dats" tmp202 = ats_caselptr_mac(anairiats_sum_6, tmp201, atslab_0) ; #line 296 "parser.dats" tmp200 = _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2symbol_2esats__symbol_make_name (tmp202) ; return (tmp200) ; } /* end of [symbol_make_token_39] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 6409(line=302, offs=16) -- 6542(line=305, offs=6) */ ATSstaticdec() ats_ptr_type __ats_fun_40 (ats_ptr_type arg0) { /* local vardec */ ATSlocal (ats_ptr_type, tmp204) ; ATSlocal (ats_ptr_type, tmp205) ; ATSlocal (ats_ptr_type, tmp206) ; __ats_lab___ats_fun_40: #line 303 "parser.dats" tmp205 = ats_selbox_mac(ats_castptr_mac(anairiats_rec_4, arg0), atslab_token_loc) ; #line 303 "parser.dats" tmp206 = symbol_make_token_39 (arg0) ; #line 304 "parser.dats" tmp204 = _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2absyn_2esats__SimpleVar_make (tmp205, tmp206) ; return (tmp204) ; } /* end of [__ats_fun_40] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 6638(line=311, offs=6) -- 6697(line=311, offs=65) */ ATSstaticdec() ats_ptr_type f_break_41 (ats_ptr_type arg0) { /* local vardec */ ATSlocal (ats_ptr_type, tmp207) ; ATSlocal (ats_ptr_type, tmp208) ; __ats_lab_f_break_41: #line 311 "parser.dats" tmp208 = ats_selbox_mac(ats_castptr_mac(anairiats_rec_4, arg0), atslab_token_loc) ; #line 311 "parser.dats" tmp207 = _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2absyn_2esats__BreakExp_make (tmp208) ; return (tmp207) ; } /* end of [f_break_41] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 6781(line=315, offs=6) -- 6846(line=315, offs=71) */ ATSstaticdec() ats_ptr_type f_continue_42 (ats_ptr_type arg0) { /* local vardec */ ATSlocal (ats_ptr_type, tmp210) ; ATSlocal (ats_ptr_type, tmp211) ; __ats_lab_f_continue_42: #line 315 "parser.dats" tmp211 = ats_selbox_mac(ats_castptr_mac(anairiats_rec_4, arg0), atslab_token_loc) ; #line 315 "parser.dats" tmp210 = _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2absyn_2esats__ContinueExp_make (tmp211) ; return (tmp210) ; } /* end of [f_continue_42] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 7002(line=323, offs=6) -- 7385(line=332, offs=6) */ ATSstaticdec() ats_ptr_type f_43 (ats_ptr_type arg0, ats_ptr_type arg1) { /* local vardec */ ATSlocal (ats_ptr_type, tmp213) ; ATSlocal (ats_ptr_type, tmp214) ; ATSlocal (ats_ptr_type, tmp215) ; ATSlocal (ats_ptr_type, tmp216) ; ATSlocal (ats_ptr_type, tmp217) ; ATSlocal (ats_ptr_type, tmp218) ; ATSlocal (ats_ptr_type, tmp219) ; ATSlocal (ats_ptr_type, tmp220) ; ATSlocal (ats_ptr_type, tmp221) ; ATSlocal (ats_ptr_type, tmp222) ; __ats_lab_f_43: #line 324 "parser.dats" tmp214 = ats_selbox_mac(ats_castptr_mac(anairiats_rec_4, arg0), atslab_token_loc) ; #line 324 "parser.dats" tmp215 = ats_selbox_mac(ats_castptr_mac(anairiats_rec_4, arg1), atslab_token_loc) ; #line 325 "parser.dats" tmp216 = _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2PARCOMB_2posloc_2esats__location_combine (tmp214, tmp215) ; #line 326 "parser.dats" tmp217 = ats_selbox_mac(ats_castptr_mac(anairiats_rec_4, arg0), atslab_token_node) ; #line 326 "parser.dats" if (((ats_sum_ptr_type)tmp217)->tag != 1) { ats_caseof_failure_handle ("/cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 7160(line=326, offs=10) -- 7190(line=326, offs=40)") ; } #line 326 "parser.dats" tmp218 = ats_caselptr_mac(anairiats_sum_6, tmp217, atslab_0) ; #line 327 "parser.dats" tmp219 = ats_selbox_mac(ats_castptr_mac(anairiats_rec_4, arg1), atslab_token_node) ; #line 327 "parser.dats" if (((ats_sum_ptr_type)tmp219)->tag != 1) { ats_caseof_failure_handle ("/cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 7200(line=327, offs=10) -- 7230(line=327, offs=40)") ; } #line 327 "parser.dats" tmp220 = ats_caselptr_mac(anairiats_sum_6, tmp219, atslab_0) ; #line 328 "parser.dats" tmp221 = _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2symbol_2esats__symbol_make_name (tmp218) ; #line 329 "parser.dats" tmp222 = _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2symbol_2esats__symbol_make_name (tmp220) ; #line 331 "parser.dats" tmp213 = _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2absyn_2esats__fieldtyp_make (tmp216, tmp221, tmp222) ; return (tmp213) ; } /* end of [f_43] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/PARCOMB/parcomb.dats: 3459(line=116, offs=36) -- 3726(line=123, offs=4) */ ATSstaticdec() ats_ptr_type __ats_fun_45 (ats_clo_ref_type env0, ats_clo_ref_type env1, ats_ptr_type env2, ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2) { /* local vardec */ ATSlocal (ats_ptr_type, tmp225) ; ATSlocal (ats_ptr_type, tmp226) ; ATSlocal (ats_ptr_type, tmp227) ; ATSlocal (ats_ptr_type, tmp228) ; ATSlocal (ats_ptr_type, tmp229) ; ATSlocal (ats_ptr_type, tmp230) ; __ats_lab___ats_fun_45: #line 117 "parcomb.dats" tmp226 = ((ats_ptr_type(*)(ats_clo_ptr_type, ats_ref_type, ats_ref_type, ats_ref_type))(ats_closure_fun(env0))) (env0, arg0, arg1, arg2) ; #line 117 "parcomb.dats" do { /* branch: __ats_lab_26 */ #line 118 "parcomb.dats" __ats_lab_26_0: #line 118 "parcomb.dats" if (tmp226 == (ats_sum_ptr_type)0) { goto __ats_lab_29_0 ; } #line 118 "parcomb.dats" __ats_lab_26_1: #line 118 "parcomb.dats" tmp227 = ats_caselptr_mac(anairiats_sum_3, tmp226, atslab_0) ; #line 118 "parcomb.dats" ATS_FREE(tmp226) ; #line 119 "parcomb.dats" tmp228 = ((ats_ptr_type(*)(ats_clo_ptr_type, ats_ref_type, ats_ref_type, ats_ref_type))(ats_closure_fun(env1))) (env1, arg0, arg1, arg2) ; #line 119 "parcomb.dats" do { /* branch: __ats_lab_27 */ #line 120 "parcomb.dats" __ats_lab_27_0: #line 120 "parcomb.dats" if (tmp228 == (ats_sum_ptr_type)0) { goto __ats_lab_28_0 ; } #line 120 "parcomb.dats" __ats_lab_27_1: #line 120 "parcomb.dats" tmp229 = ats_caselptr_mac(anairiats_sum_3, tmp228, atslab_0) ; #line 120 "parcomb.dats" ATS_FREE(tmp228) ; #line 120 "parcomb.dats" tmp230 = ((ats_ptr_type(*)(ats_ptr_type, ats_ptr_type))env2) (tmp227, tmp229) ; #line 120 "parcomb.dats" tmp225 = ATS_MALLOC(sizeof(anairiats_sum_3)) ; ats_selptrset_mac(anairiats_sum_3, tmp225, atslab_0, tmp230) ; break ; /* branch: __ats_lab_28 */ #line 120 "parcomb.dats" __ats_lab_28_0: #line 120 "parcomb.dats" // if (tmp228 != (ats_sum_ptr_type)0) { ats_deadcode_failure_handle () ; } #line 120 "parcomb.dats" __ats_lab_28_1: #line 120 "parcomb.dats" tmp225 = tmp228 ; break ; } while (0) ; break ; /* branch: __ats_lab_29 */ #line 122 "parcomb.dats" __ats_lab_29_0: #line 122 "parcomb.dats" // if (tmp226 != (ats_sum_ptr_type)0) { ats_deadcode_failure_handle () ; } #line 122 "parcomb.dats" __ats_lab_29_1: #line 122 "parcomb.dats" tmp225 = tmp226 ; break ; } while (0) ; return (tmp225) ; } /* end of [__ats_fun_45] */ typedef struct { ats_fun_ptr_type closure_fun ; ats_clo_ref_type closure_env_0 ; ats_clo_ref_type closure_env_1 ; ats_ptr_type closure_env_2 ; } __ats_fun_45_closure_type ; ats_ptr_type __ats_fun_45_clofun (ats_clo_ptr_type cloptr, ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2) { return __ats_fun_45 (((__ats_fun_45_closure_type*)cloptr)->closure_env_0, ((__ats_fun_45_closure_type*)cloptr)->closure_env_1, ((__ats_fun_45_closure_type*)cloptr)->closure_env_2, arg0, arg1, arg2) ; } /* end of function */ ATSinline() ats_void_type __ats_fun_45_closure_init (__ats_fun_45_closure_type *p_clo, ats_clo_ref_type env0, ats_clo_ref_type env1, ats_ptr_type env2) { p_clo->closure_fun = (ats_fun_ptr_type)&__ats_fun_45_clofun ; p_clo->closure_env_0 = env0 ; p_clo->closure_env_1 = env1 ; p_clo->closure_env_2 = env2 ; return ; } /* end of function */ ats_clo_ptr_type __ats_fun_45_closure_make (ats_clo_ref_type env0, ats_clo_ref_type env1, ats_ptr_type env2) { __ats_fun_45_closure_type *p_clo = ATS_MALLOC(sizeof(__ats_fun_45_closure_type)) ; __ats_fun_45_closure_init (p_clo, env0, env1, env2) ; return (ats_clo_ptr_type)p_clo ; } /* end of function */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/PARCOMB/parcomb.dats: 3445(line=116, offs=22) -- 3726(line=123, offs=4) */ ATSstaticdec() ats_ptr_type seq2wth_parser_fun_01675_ats_ptr_type_2cats_ptr_type_2cats_ptr_type_ats_ptr_type (ats_ptr_type arg0, ats_ptr_type arg1, ats_ptr_type arg2) { /* local vardec */ ATSlocal (ats_ptr_type, tmp224) ; __ats_lab_seq2wth_parser_fun_01675_ats_ptr_type_2cats_ptr_type_2cats_ptr_type_ats_ptr_type: #line 116 "parcomb.dats" tmp224 = __ats_fun_45_closure_make (arg0, arg1, arg2) ; return (tmp224) ; } /* end of [seq2wth_parser_fun_01675_ats_ptr_type_2cats_ptr_type_2cats_ptr_type_ats_ptr_type] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/PARCOMB/parcomb.dats: 15238(line=401, offs=34) -- 15386(line=404, offs=4) */ ATSstaticdec() ats_ptr_type __ats_fun_47 (ats_clo_ref_type env0, ats_clo_ref_type env1, ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2) { /* local vardec */ ATSlocal (ats_ptr_type, tmp233) ; ATSlocal (ats_ptr_type, tmp234) ; __ats_lab___ats_fun_47: #line 402 "parcomb.dats" tmp234 = ((ats_ptr_type(*)(ats_clo_ptr_type, ats_ref_type, ats_ref_type, ats_ref_type))(ats_closure_fun(env0))) (env0, arg0, arg1, arg2) ; #line 402 "parcomb.dats" do { /* branch: __ats_lab_30 */ #line 403 "parcomb.dats" __ats_lab_30_0: #line 403 "parcomb.dats" if (tmp234 == (ats_sum_ptr_type)0) { goto __ats_lab_31_0 ; } #line 403 "parcomb.dats" __ats_lab_30_1: #line 403 "parcomb.dats" ATS_FREE(tmp234) ; #line 403 "parcomb.dats" tmp233 = ((ats_ptr_type(*)(ats_clo_ptr_type, ats_ref_type, ats_ref_type, ats_ref_type))(ats_closure_fun(env1))) (env1, arg0, arg1, arg2) ; break ; /* branch: __ats_lab_31 */ #line 403 "parcomb.dats" __ats_lab_31_0: #line 403 "parcomb.dats" // if (tmp234 != (ats_sum_ptr_type)0) { ats_deadcode_failure_handle () ; } #line 403 "parcomb.dats" __ats_lab_31_1: #line 403 "parcomb.dats" tmp233 = tmp234 ; break ; } while (0) ; return (tmp233) ; } /* end of [__ats_fun_47] */ typedef struct { ats_fun_ptr_type closure_fun ; ats_clo_ref_type closure_env_0 ; ats_clo_ref_type closure_env_1 ; } __ats_fun_47_closure_type ; ats_ptr_type __ats_fun_47_clofun (ats_clo_ptr_type cloptr, ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2) { return __ats_fun_47 (((__ats_fun_47_closure_type*)cloptr)->closure_env_0, ((__ats_fun_47_closure_type*)cloptr)->closure_env_1, arg0, arg1, arg2) ; } /* end of function */ ATSinline() ats_void_type __ats_fun_47_closure_init (__ats_fun_47_closure_type *p_clo, ats_clo_ref_type env0, ats_clo_ref_type env1) { p_clo->closure_fun = (ats_fun_ptr_type)&__ats_fun_47_clofun ; p_clo->closure_env_0 = env0 ; p_clo->closure_env_1 = env1 ; return ; } /* end of function */ ats_clo_ptr_type __ats_fun_47_closure_make (ats_clo_ref_type env0, ats_clo_ref_type env1) { __ats_fun_47_closure_type *p_clo = ATS_MALLOC(sizeof(__ats_fun_47_closure_type)) ; __ats_fun_47_closure_init (p_clo, env0, env1) ; return (ats_clo_ptr_type)p_clo ; } /* end of function */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/PARCOMB/parcomb.dats: 15227(line=401, offs=23) -- 15386(line=404, offs=4) */ ATSstaticdec() ats_ptr_type proj2_parser_parser_01690_ats_ptr_type_2cats_ptr_type_ats_ptr_type (ats_ptr_type arg0, ats_ptr_type arg1) { /* local vardec */ ATSlocal (ats_ptr_type, tmp232) ; __ats_lab_proj2_parser_parser_01690_ats_ptr_type_2cats_ptr_type_ats_ptr_type: #line 401 "parcomb.dats" tmp232 = __ats_fun_47_closure_make (arg0, arg1) ; return (tmp232) ; } /* end of [proj2_parser_parser_01690_ats_ptr_type_2cats_ptr_type_ats_ptr_type] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/PARCOMB/parcomb.dats: 19394(line=537, offs=13) -- 20296(line=559, offs=12) */ ATSstaticdec() ats_void_type loop_52 (ats_clo_ref_type env0, ats_clo_ref_type env1, ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2, ats_ref_type arg3) { /* local vardec */ // ATSlocal_void (tmp247) ; ATSlocal (ats_ptr_type, tmp248) ; ATSlocal (ats_int_type, tmp249) ; ATSlocal (ats_ptr_type, tmp250) ; ATSlocal (ats_ptr_type, tmp251) ; ATSlocal (ats_ptr_type, tmp252) ; ATSlocal (ats_ptr_type, tmp253) ; ATSlocal (ats_ptr_type, tmp254) ; ATSlocal (ats_ptr_type, tmp255) ; ATSlocal (ats_ptr_type, tmp256) ; __ats_lab_loop_52: #line 541 "parcomb.dats" tmp248 = ats_ptrget_mac(ats_ptr_type, arg0) ; #line 541 "parcomb.dats" tmp249 = ats_ptrget_mac(ats_int_type, arg1) ; #line 542 "parcomb.dats" tmp250 = ((ats_ptr_type(*)(ats_clo_ptr_type, ats_ref_type, ats_ref_type, ats_ref_type))(ats_closure_fun(env1))) (env1, arg0, arg1, arg2) ; #line 542 "parcomb.dats" do { /* branch: __ats_lab_33 */ #line 543 "parcomb.dats" __ats_lab_33_0: #line 543 "parcomb.dats" if (tmp250 == (ats_sum_ptr_type)0) { goto __ats_lab_36_0 ; } #line 543 "parcomb.dats" __ats_lab_33_1: #line 543 "parcomb.dats" ATS_FREE(tmp250) ; #line 544 "parcomb.dats" tmp251 = ((ats_ptr_type(*)(ats_clo_ptr_type, ats_ref_type, ats_ref_type, ats_ref_type))(ats_closure_fun(env0))) (env0, arg0, arg1, arg2) ; #line 544 "parcomb.dats" do { /* branch: __ats_lab_34 */ #line 545 "parcomb.dats" __ats_lab_34_0: #line 545 "parcomb.dats" if (tmp251 == (ats_sum_ptr_type)0) { goto __ats_lab_35_0 ; } #line 545 "parcomb.dats" __ats_lab_34_1: #line 545 "parcomb.dats" tmp252 = ats_caselptr_mac(anairiats_sum_3, tmp251, atslab_0) ; #line 545 "parcomb.dats" ATS_FREE(tmp251) ; #line 546 "parcomb.dats" tmp253 = ATS_MALLOC(sizeof(anairiats_sum_2)) ; ats_selptrset_mac(anairiats_sum_2, tmp253, atslab_0, tmp252) ; #line 546 "parcomb.dats" ats_ptrget_mac(ats_ptr_type, arg3) = tmp253 ; #line 547 "parcomb.dats" if (ats_ptrget_mac(ats_ptr_type, arg3) == (ats_sum_ptr_type)0) { ats_caseof_failure_handle ("/cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/PARCOMB/parcomb.dats: 19814(line=547, offs=23) -- 19846(line=547, offs=55)") ; } #line 547 "parcomb.dats" tmp254 = &ats_caselptr_mac(anairiats_sum_2, ats_ptrget_mac(ats_ptr_type, arg3), atslab_1) ; #line 548 "parcomb.dats" arg0 = arg0 ; #line 548 "parcomb.dats" arg1 = arg1 ; #line 548 "parcomb.dats" arg2 = arg2 ; #line 548 "parcomb.dats" arg3 = tmp254 ; #line 548 "parcomb.dats" goto __ats_lab_loop_52 ; // tail call break ; /* branch: __ats_lab_35 */ #line 552 "parcomb.dats" __ats_lab_35_0: #line 552 "parcomb.dats" // if (tmp251 != (ats_sum_ptr_type)0) { ats_deadcode_failure_handle () ; } #line 552 "parcomb.dats" __ats_lab_35_1: #line 553 "parcomb.dats" ats_ptrget_mac(ats_ptr_type, arg0) = tmp248 ; #line 553 "parcomb.dats" ats_ptrget_mac(ats_int_type, arg1) = tmp249 ; #line 553 "parcomb.dats" tmp255 = (ats_sum_ptr_type)0 ; #line 553 "parcomb.dats" ats_ptrget_mac(ats_ptr_type, arg3) = tmp255 ; break ; } while (0) ; break ; /* branch: __ats_lab_36 */ #line 556 "parcomb.dats" __ats_lab_36_0: #line 556 "parcomb.dats" // if (tmp250 != (ats_sum_ptr_type)0) { ats_deadcode_failure_handle () ; } #line 556 "parcomb.dats" __ats_lab_36_1: #line 557 "parcomb.dats" ats_ptrget_mac(ats_ptr_type, arg0) = tmp248 ; #line 557 "parcomb.dats" ats_ptrget_mac(ats_int_type, arg1) = tmp249 ; #line 557 "parcomb.dats" tmp256 = (ats_sum_ptr_type)0 ; #line 557 "parcomb.dats" ats_ptrget_mac(ats_ptr_type, arg3) = tmp256 ; break ; } while (0) ; return /* (tmp247) */ ; } /* end of [loop_52] */ typedef struct { ats_fun_ptr_type closure_fun ; ats_clo_ref_type closure_env_0 ; ats_clo_ref_type closure_env_1 ; } loop_52_closure_type ; ats_void_type loop_52_clofun (ats_clo_ptr_type cloptr, ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2, ats_ref_type arg3) { loop_52 (((loop_52_closure_type*)cloptr)->closure_env_0, ((loop_52_closure_type*)cloptr)->closure_env_1, arg0, arg1, arg2, arg3) ; return ; } /* end of function */ ATSinline() ats_void_type loop_52_closure_init (loop_52_closure_type *p_clo, ats_clo_ref_type env0, ats_clo_ref_type env1) { p_clo->closure_fun = (ats_fun_ptr_type)&loop_52_clofun ; p_clo->closure_env_0 = env0 ; p_clo->closure_env_1 = env1 ; return ; } /* end of function */ ats_clo_ptr_type loop_52_closure_make (ats_clo_ref_type env0, ats_clo_ref_type env1) { loop_52_closure_type *p_clo = ATS_MALLOC(sizeof(loop_52_closure_type)) ; loop_52_closure_init (p_clo, env0, env1) ; return (ats_clo_ptr_type)p_clo ; } /* end of function */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/PARCOMB/parcomb.dats: 19199(line=532, offs=33) -- 20433(line=565, offs=4) */ ATSstaticdec() ats_ptr_type __ats_fun_51 (ats_clo_ref_type env0, ats_clo_ref_type env1, ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2) { /* local vardec */ ATSlocal (ats_ptr_type, tmp243) ; ATSlocal (ats_ptr_type, tmp244) ; ATSlocal (ats_ptr_type, tmp245) ; ATSlocal (ats_ptr_type, tmp246) ; // ATSlocal_void (tmp257) ; ATSlocal (ats_ptr_type, tmp258) ; __ats_lab___ats_fun_51: #line 533 "parcomb.dats" tmp244 = ((ats_ptr_type(*)(ats_clo_ptr_type, ats_ref_type, ats_ref_type, ats_ref_type))(ats_closure_fun(env0))) (env0, arg0, arg1, arg2) ; #line 533 "parcomb.dats" do { /* branch: __ats_lab_32 */ #line 534 "parcomb.dats" __ats_lab_32_0: #line 534 "parcomb.dats" if (tmp244 == (ats_sum_ptr_type)0) { goto __ats_lab_37_0 ; } #line 534 "parcomb.dats" __ats_lab_32_1: #line 534 "parcomb.dats" tmp245 = ats_caselptr_mac(anairiats_sum_3, tmp244, atslab_0) ; #line 534 "parcomb.dats" ATS_FREE(tmp244) ; #line 535 "parcomb.dats" /* ats_ptr_type tmp246 ; */ #line 536 "parcomb.dats" /* tmp257 = */ loop_52 (env0, env1, arg0, arg1, arg2, (&tmp246)) ; #line 562 "parcomb.dats" tmp258 = ATS_MALLOC(sizeof(anairiats_sum_2)) ; ats_selptrset_mac(anairiats_sum_2, tmp258, atslab_0, tmp245) ; ats_selptrset_mac(anairiats_sum_2, tmp258, atslab_1, tmp246) ; #line 562 "parcomb.dats" tmp243 = ATS_MALLOC(sizeof(anairiats_sum_3)) ; ats_selptrset_mac(anairiats_sum_3, tmp243, atslab_0, tmp258) ; break ; /* branch: __ats_lab_37 */ #line 564 "parcomb.dats" __ats_lab_37_0: #line 564 "parcomb.dats" // if (tmp244 != (ats_sum_ptr_type)0) { ats_deadcode_failure_handle () ; } #line 564 "parcomb.dats" __ats_lab_37_1: #line 564 "parcomb.dats" tmp243 = tmp244 ; break ; } while (0) ; return (tmp243) ; } /* end of [__ats_fun_51] */ typedef struct { ats_fun_ptr_type closure_fun ; ats_clo_ref_type closure_env_0 ; ats_clo_ref_type closure_env_1 ; } __ats_fun_51_closure_type ; ats_ptr_type __ats_fun_51_clofun (ats_clo_ptr_type cloptr, ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2) { return __ats_fun_51 (((__ats_fun_51_closure_type*)cloptr)->closure_env_0, ((__ats_fun_51_closure_type*)cloptr)->closure_env_1, arg0, arg1, arg2) ; } /* end of function */ ATSinline() ats_void_type __ats_fun_51_closure_init (__ats_fun_51_closure_type *p_clo, ats_clo_ref_type env0, ats_clo_ref_type env1) { p_clo->closure_fun = (ats_fun_ptr_type)&__ats_fun_51_clofun ; p_clo->closure_env_0 = env0 ; p_clo->closure_env_1 = env1 ; return ; } /* end of function */ ats_clo_ptr_type __ats_fun_51_closure_make (ats_clo_ref_type env0, ats_clo_ref_type env1) { __ats_fun_51_closure_type *p_clo = ATS_MALLOC(sizeof(__ats_fun_51_closure_type)) ; __ats_fun_51_closure_init (p_clo, env0, env1) ; return (ats_clo_ptr_type)p_clo ; } /* end of function */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/PARCOMB/parcomb.dats: 19188(line=532, offs=22) -- 20433(line=565, offs=4) */ ATSstaticdec() ats_ptr_type repeat1_sep_parser_01699_ats_ptr_type_2cats_ptr_type_ats_ptr_type (ats_ptr_type arg0, ats_ptr_type arg1) { /* local vardec */ ATSlocal (ats_ptr_type, tmp242) ; __ats_lab_repeat1_sep_parser_01699_ats_ptr_type_2cats_ptr_type_ats_ptr_type: #line 532 "parcomb.dats" tmp242 = __ats_fun_51_closure_make (arg0, arg1) ; return (tmp242) ; } /* end of [repeat1_sep_parser_01699_ats_ptr_type_2cats_ptr_type_ats_ptr_type] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/PARCOMB/parcomb.dats: 18835(line=522, offs=33) -- 19116(line=529, offs=4) */ ATSstaticdec() ats_ptr_type __ats_fun_49 (ats_clo_ref_type env0, ats_clo_ref_type env1, ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2) { /* local vardec */ ATSlocal (ats_ptr_type, tmp237) ; ATSlocal (ats_ptr_type, tmp238) ; ATSlocal (ats_int_type, tmp239) ; ATSlocal (ats_ptr_type, tmp240) ; ATSlocal (ats_clo_ref_type, tmp241) ; ATSlocal (ats_ptr_type, tmp259) ; __ats_lab___ats_fun_49: #line 523 "parcomb.dats" tmp238 = ats_ptrget_mac(ats_ptr_type, arg0) ; #line 523 "parcomb.dats" tmp239 = ats_ptrget_mac(ats_int_type, arg1) ; #line 524 "parcomb.dats" tmp241 = repeat1_sep_parser_01699_ats_ptr_type_2cats_ptr_type_ats_ptr_type (env0, env1) ; #line 524 "parcomb.dats" tmp240 = ((ats_ptr_type(*)(ats_clo_ptr_type, ats_ref_type, ats_ref_type, ats_ref_type))(ats_closure_fun(tmp241))) (tmp241, arg0, arg1, arg2) ; #line 525 "parcomb.dats" do { /* branch: __ats_lab_38 */ #line 526 "parcomb.dats" __ats_lab_38_0: #line 526 "parcomb.dats" if (tmp240 == (ats_sum_ptr_type)0) { goto __ats_lab_39_0 ; } #line 526 "parcomb.dats" __ats_lab_38_1: #line 526 "parcomb.dats" tmp237 = tmp240 ; break ; /* branch: __ats_lab_39 */ #line 526 "parcomb.dats" __ats_lab_39_0: #line 526 "parcomb.dats" // if (tmp240 != (ats_sum_ptr_type)0) { ats_deadcode_failure_handle () ; } #line 526 "parcomb.dats" __ats_lab_39_1: #line 527 "parcomb.dats" ats_ptrget_mac(ats_ptr_type, arg0) = tmp238 ; #line 527 "parcomb.dats" ats_ptrget_mac(ats_int_type, arg1) = tmp239 ; #line 527 "parcomb.dats" tmp259 = (ats_sum_ptr_type)0 ; #line 527 "parcomb.dats" tmp237 = ATS_MALLOC(sizeof(anairiats_sum_3)) ; ats_selptrset_mac(anairiats_sum_3, tmp237, atslab_0, tmp259) ; break ; } while (0) ; return (tmp237) ; } /* end of [__ats_fun_49] */ typedef struct { ats_fun_ptr_type closure_fun ; ats_clo_ref_type closure_env_0 ; ats_clo_ref_type closure_env_1 ; } __ats_fun_49_closure_type ; ats_ptr_type __ats_fun_49_clofun (ats_clo_ptr_type cloptr, ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2) { return __ats_fun_49 (((__ats_fun_49_closure_type*)cloptr)->closure_env_0, ((__ats_fun_49_closure_type*)cloptr)->closure_env_1, arg0, arg1, arg2) ; } /* end of function */ ATSinline() ats_void_type __ats_fun_49_closure_init (__ats_fun_49_closure_type *p_clo, ats_clo_ref_type env0, ats_clo_ref_type env1) { p_clo->closure_fun = (ats_fun_ptr_type)&__ats_fun_49_clofun ; p_clo->closure_env_0 = env0 ; p_clo->closure_env_1 = env1 ; return ; } /* end of function */ ats_clo_ptr_type __ats_fun_49_closure_make (ats_clo_ref_type env0, ats_clo_ref_type env1) { __ats_fun_49_closure_type *p_clo = ATS_MALLOC(sizeof(__ats_fun_49_closure_type)) ; __ats_fun_49_closure_init (p_clo, env0, env1) ; return (ats_clo_ptr_type)p_clo ; } /* end of function */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/PARCOMB/parcomb.dats: 18824(line=522, offs=22) -- 19116(line=529, offs=4) */ ATSstaticdec() ats_ptr_type repeat0_sep_parser_01698_ats_ptr_type_2cats_ptr_type_ats_ptr_type (ats_ptr_type arg0, ats_ptr_type arg1) { /* local vardec */ ATSlocal (ats_ptr_type, tmp236) ; __ats_lab_repeat0_sep_parser_01698_ats_ptr_type_2cats_ptr_type_ats_ptr_type: #line 522 "parcomb.dats" tmp236 = __ats_fun_49_closure_make (arg0, arg1) ; return (tmp236) ; } /* end of [repeat0_sep_parser_01698_ats_ptr_type_2cats_ptr_type_ats_ptr_type] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 7671(line=347, offs=22) -- 7912(line=356, offs=16) */ ATSstaticdec() ats_ptr_type __ats_fun_53 () { /* local vardec */ ATSlocal (ats_ptr_type, tmp285) ; ATSlocal (ats_ptr_type, tmp286) ; ATSlocal (ats_ptr_type, tmp287) ; ATSlocal (ats_ptr_type, tmp288) ; ATSlocal (ats_ptr_type, tmp289) ; ATSlocal (ats_ptr_type, tmp290) ; ATSlocal (ats_ptr_type, tmp291) ; ATSlocal (ats_ptr_type, tmp292) ; ATSlocal (ats_ptr_type, tmp293) ; ATSlocal (ats_ptr_type, tmp294) ; ATSlocal (ats_ptr_type, tmp295) ; ATSlocal (ats_ptr_type, tmp296) ; ATSlocal (ats_ptr_type, tmp297) ; ATSlocal (ats_ptr_type, tmp298) ; ATSlocal (ats_ptr_type, tmp299) ; ATSlocal (ats_ptr_type, tmp300) ; ATSlocal (ats_ptr_type, tmp301) ; __ats_lab___ats_fun_53: #line 348 "parser.dats" tmp294 = _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2PARCOMB_2parcomb_2esats__lzeta (statmp271) ; #line 349 "parser.dats" tmp295 = _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2PARCOMB_2parcomb_2esats__lzeta (statmp272) ; #line 348 "parser.dats" tmp293 = alt_parser_parser_01671_ats_ptr_type_ats_ptr_type (tmp294, tmp295) ; #line 350 "parser.dats" tmp296 = _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2PARCOMB_2parcomb_2esats__lzeta (statmp270) ; #line 348 "parser.dats" tmp292 = alt_parser_parser_01671_ats_ptr_type_ats_ptr_type (tmp293, tmp296) ; #line 351 "parser.dats" tmp297 = _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2PARCOMB_2parcomb_2esats__lzeta (statmp273) ; #line 348 "parser.dats" tmp291 = alt_parser_parser_01671_ats_ptr_type_ats_ptr_type (tmp292, tmp297) ; #line 352 "parser.dats" tmp298 = _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2PARCOMB_2parcomb_2esats__lzeta (statmp274) ; #line 348 "parser.dats" tmp290 = alt_parser_parser_01671_ats_ptr_type_ats_ptr_type (tmp291, tmp298) ; #line 353 "parser.dats" tmp299 = _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2PARCOMB_2parcomb_2esats__lzeta (statmp275) ; #line 348 "parser.dats" tmp289 = alt_parser_parser_01671_ats_ptr_type_ats_ptr_type (tmp290, tmp299) ; #line 348 "parser.dats" tmp288 = alt_parser_parser_01671_ats_ptr_type_ats_ptr_type (tmp289, statmp209) ; #line 348 "parser.dats" tmp287 = alt_parser_parser_01671_ats_ptr_type_ats_ptr_type (tmp288, statmp212) ; #line 355 "parser.dats" tmp300 = _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2PARCOMB_2parcomb_2esats__lzeta (statmp276) ; #line 348 "parser.dats" tmp286 = alt_parser_parser_01671_ats_ptr_type_ats_ptr_type (tmp287, tmp300) ; #line 356 "parser.dats" tmp301 = _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2PARCOMB_2parcomb_2esats__lzeta (statmp267) ; #line 348 "parser.dats" tmp285 = alt_parser_parser_01671_ats_ptr_type_ats_ptr_type (tmp286, tmp301) ; return (tmp285) ; } /* end of [__ats_fun_53] */ typedef struct { ats_fun_ptr_type closure_fun ; } __ats_fun_53_closure_type ; ats_ptr_type __ats_fun_53_clofun (ats_clo_ptr_type cloptr) { return __ats_fun_53 () ; } /* end of function */ ATSinline() ats_void_type __ats_fun_53_closure_init (__ats_fun_53_closure_type *p_clo) { p_clo->closure_fun = (ats_fun_ptr_type)&__ats_fun_53_clofun ; return ; } /* end of function */ ats_clo_ptr_type __ats_fun_53_closure_make () { __ats_fun_53_closure_type *p_clo = ATS_MALLOC(sizeof(__ats_fun_53_closure_type)) ; __ats_fun_53_closure_init (p_clo) ; return (ats_clo_ptr_type)p_clo ; } /* end of function */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 7983(line=361, offs=28) -- 8040(line=362, offs=49) */ ATSstaticdec() ats_ptr_type __ats_fun_54 () { /* local vardec */ ATSlocal (ats_ptr_type, tmp302) ; ATSlocal (ats_ptr_type, tmp303) ; __ats_lab___ats_fun_54: #line 362 "parser.dats" ats_instr_move_lazy_force_mac (tmp303, ats_ptr_type, statmp260) ; #line 362 "parser.dats" tmp302 = repeat0_sep_parser_01698_ats_ptr_type_2cats_ptr_type_ats_ptr_type (tmp303, statmp39) ; return (tmp302) ; } /* end of [__ats_fun_54] */ typedef struct { ats_fun_ptr_type closure_fun ; } __ats_fun_54_closure_type ; ats_ptr_type __ats_fun_54_clofun (ats_clo_ptr_type cloptr) { return __ats_fun_54 () ; } /* end of function */ ATSinline() ats_void_type __ats_fun_54_closure_init (__ats_fun_54_closure_type *p_clo) { p_clo->closure_fun = (ats_fun_ptr_type)&__ats_fun_54_clofun ; return ; } /* end of function */ ats_clo_ptr_type __ats_fun_54_closure_make () { __ats_fun_54_closure_type *p_clo = ATS_MALLOC(sizeof(__ats_fun_54_closure_type)) ; __ats_fun_54_closure_init (p_clo) ; return (ats_clo_ptr_type)p_clo ; } /* end of function */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 8093(line=365, offs=28) -- 8154(line=366, offs=53) */ ATSstaticdec() ats_ptr_type __ats_fun_55 () { /* local vardec */ ATSlocal (ats_ptr_type, tmp304) ; ATSlocal (ats_ptr_type, tmp305) ; __ats_lab___ats_fun_55: #line 366 "parser.dats" ats_instr_move_lazy_force_mac (tmp305, ats_ptr_type, statmp260) ; #line 366 "parser.dats" tmp304 = repeat0_sep_parser_01698_ats_ptr_type_2cats_ptr_type_ats_ptr_type (tmp305, statmp40) ; return (tmp304) ; } /* end of [__ats_fun_55] */ typedef struct { ats_fun_ptr_type closure_fun ; } __ats_fun_55_closure_type ; ats_ptr_type __ats_fun_55_clofun (ats_clo_ptr_type cloptr) { return __ats_fun_55 () ; } /* end of function */ ATSinline() ats_void_type __ats_fun_55_closure_init (__ats_fun_55_closure_type *p_clo) { p_clo->closure_fun = (ats_fun_ptr_type)&__ats_fun_55_clofun ; return ; } /* end of function */ ats_clo_ptr_type __ats_fun_55_closure_make () { __ats_fun_55_closure_type *p_clo = ATS_MALLOC(sizeof(__ats_fun_55_closure_type)) ; __ats_fun_55_closure_init (p_clo) ; return (ats_clo_ptr_type)p_clo ; } /* end of function */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 8309(line=374, offs=13) -- 8347(line=374, offs=51) */ ATSstaticdec() ats_ptr_type __ats_fun_57 (ats_ptr_type arg0, ats_clo_ref_type arg1) { /* local vardec */ ATSlocal (ats_ptr_type, tmp307) ; __ats_lab___ats_fun_57: #line 374 "parser.dats" tmp307 = ((ats_ptr_type(*)(ats_clo_ptr_type, ats_ptr_type))(ats_closure_fun(arg1))) (arg1, arg0) ; return (tmp307) ; } /* end of [__ats_fun_57] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/PARCOMB/parcomb.dats: 3459(line=116, offs=36) -- 3726(line=123, offs=4) */ ATSstaticdec() ats_ptr_type __ats_fun_59 (ats_clo_ref_type env0, ats_clo_ref_type env1, ats_ptr_type env2, ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2) { /* local vardec */ ATSlocal (ats_ptr_type, tmp309) ; ATSlocal (ats_ptr_type, tmp310) ; ATSlocal (ats_ptr_type, tmp311) ; ATSlocal (ats_ptr_type, tmp312) ; ATSlocal (ats_clo_ref_type, tmp313) ; ATSlocal (ats_ptr_type, tmp314) ; __ats_lab___ats_fun_59: #line 117 "parcomb.dats" tmp310 = ((ats_ptr_type(*)(ats_clo_ptr_type, ats_ref_type, ats_ref_type, ats_ref_type))(ats_closure_fun(env0))) (env0, arg0, arg1, arg2) ; #line 117 "parcomb.dats" do { /* branch: __ats_lab_40 */ #line 118 "parcomb.dats" __ats_lab_40_0: #line 118 "parcomb.dats" if (tmp310 == (ats_sum_ptr_type)0) { goto __ats_lab_43_0 ; } #line 118 "parcomb.dats" __ats_lab_40_1: #line 118 "parcomb.dats" tmp311 = ats_caselptr_mac(anairiats_sum_3, tmp310, atslab_0) ; #line 118 "parcomb.dats" ATS_FREE(tmp310) ; #line 119 "parcomb.dats" tmp312 = ((ats_ptr_type(*)(ats_clo_ptr_type, ats_ref_type, ats_ref_type, ats_ref_type))(ats_closure_fun(env1))) (env1, arg0, arg1, arg2) ; #line 119 "parcomb.dats" do { /* branch: __ats_lab_41 */ #line 120 "parcomb.dats" __ats_lab_41_0: #line 120 "parcomb.dats" if (tmp312 == (ats_sum_ptr_type)0) { goto __ats_lab_42_0 ; } #line 120 "parcomb.dats" __ats_lab_41_1: #line 120 "parcomb.dats" tmp313 = ats_caselptr_mac(anairiats_sum_10, tmp312, atslab_0) ; #line 120 "parcomb.dats" ATS_FREE(tmp312) ; #line 120 "parcomb.dats" tmp314 = ((ats_ptr_type(*)(ats_ptr_type, ats_clo_ref_type))env2) (tmp311, tmp313) ; #line 120 "parcomb.dats" tmp309 = ATS_MALLOC(sizeof(anairiats_sum_3)) ; ats_selptrset_mac(anairiats_sum_3, tmp309, atslab_0, tmp314) ; break ; /* branch: __ats_lab_42 */ #line 120 "parcomb.dats" __ats_lab_42_0: #line 120 "parcomb.dats" // if (tmp312 != (ats_sum_ptr_type)0) { ats_deadcode_failure_handle () ; } #line 120 "parcomb.dats" __ats_lab_42_1: #line 120 "parcomb.dats" tmp309 = tmp312 ; break ; } while (0) ; break ; /* branch: __ats_lab_43 */ #line 122 "parcomb.dats" __ats_lab_43_0: #line 122 "parcomb.dats" // if (tmp310 != (ats_sum_ptr_type)0) { ats_deadcode_failure_handle () ; } #line 122 "parcomb.dats" __ats_lab_43_1: #line 122 "parcomb.dats" tmp309 = tmp310 ; break ; } while (0) ; return (tmp309) ; } /* end of [__ats_fun_59] */ typedef struct { ats_fun_ptr_type closure_fun ; ats_clo_ref_type closure_env_0 ; ats_clo_ref_type closure_env_1 ; ats_ptr_type closure_env_2 ; } __ats_fun_59_closure_type ; ats_ptr_type __ats_fun_59_clofun (ats_clo_ptr_type cloptr, ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2) { return __ats_fun_59 (((__ats_fun_59_closure_type*)cloptr)->closure_env_0, ((__ats_fun_59_closure_type*)cloptr)->closure_env_1, ((__ats_fun_59_closure_type*)cloptr)->closure_env_2, arg0, arg1, arg2) ; } /* end of function */ ATSinline() ats_void_type __ats_fun_59_closure_init (__ats_fun_59_closure_type *p_clo, ats_clo_ref_type env0, ats_clo_ref_type env1, ats_ptr_type env2) { p_clo->closure_fun = (ats_fun_ptr_type)&__ats_fun_59_clofun ; p_clo->closure_env_0 = env0 ; p_clo->closure_env_1 = env1 ; p_clo->closure_env_2 = env2 ; return ; } /* end of function */ ats_clo_ptr_type __ats_fun_59_closure_make (ats_clo_ref_type env0, ats_clo_ref_type env1, ats_ptr_type env2) { __ats_fun_59_closure_type *p_clo = ATS_MALLOC(sizeof(__ats_fun_59_closure_type)) ; __ats_fun_59_closure_init (p_clo, env0, env1, env2) ; return (ats_clo_ptr_type)p_clo ; } /* end of function */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/PARCOMB/parcomb.dats: 3445(line=116, offs=22) -- 3726(line=123, offs=4) */ ATSstaticdec() ats_ptr_type seq2wth_parser_fun_01675_ats_ptr_type_2cats_clo_ref_type_2cats_ptr_type_ats_ptr_type (ats_ptr_type arg0, ats_ptr_type arg1, ats_ptr_type arg2) { /* local vardec */ ATSlocal (ats_ptr_type, tmp308) ; __ats_lab_seq2wth_parser_fun_01675_ats_ptr_type_2cats_clo_ref_type_2cats_ptr_type_ats_ptr_type: #line 116 "parcomb.dats" tmp308 = __ats_fun_59_closure_make (arg0, arg1, arg2) ; return (tmp308) ; } /* end of [seq2wth_parser_fun_01675_ats_ptr_type_2cats_clo_ref_type_2cats_ptr_type_ats_ptr_type] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 8223(line=371, offs=23) -- 8351(line=375, offs=4) */ ATSstaticdec() ats_ptr_type __ats_fun_56 () { /* local vardec */ ATSlocal (ats_ptr_type, tmp306) ; ATSlocal (ats_ptr_type, tmp315) ; __ats_lab___ats_fun_56: #line 373 "parser.dats" tmp315 = _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2PARCOMB_2parcomb_2esats__lzeta (statmp264) ; #line 372 "parser.dats" tmp306 = seq2wth_parser_fun_01675_ats_ptr_type_2cats_clo_ref_type_2cats_ptr_type_ats_ptr_type (statmp203, tmp315, &__ats_fun_57) ; return (tmp306) ; } /* end of [__ats_fun_56] */ typedef struct { ats_fun_ptr_type closure_fun ; } __ats_fun_56_closure_type ; ats_ptr_type __ats_fun_56_clofun (ats_clo_ptr_type cloptr) { return __ats_fun_56 () ; } /* end of function */ ATSinline() ats_void_type __ats_fun_56_closure_init (__ats_fun_56_closure_type *p_clo) { p_clo->closure_fun = (ats_fun_ptr_type)&__ats_fun_56_clofun ; return ; } /* end of function */ ats_clo_ptr_type __ats_fun_56_closure_make () { __ats_fun_56_closure_type *p_clo = ATS_MALLOC(sizeof(__ats_fun_56_closure_type)) ; __ats_fun_56_closure_init (p_clo) ; return (ats_clo_ptr_type)p_clo ; } /* end of function */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 8665(line=386, offs=42) -- 8851(line=392, offs=6) */ ATSstaticdec() ats_ptr_type __ats_fun_61 (ats_ptr_type env0, ats_clo_ref_type env1, ats_ptr_type arg0) { /* local vardec */ ATSlocal (ats_ptr_type, tmp317) ; ATSlocal (ats_ptr_type, tmp318) ; ATSlocal (ats_ptr_type, tmp319) ; ATSlocal (ats_ptr_type, tmp320) ; ATSlocal (ats_ptr_type, tmp321) ; ATSlocal (ats_ptr_type, tmp322) ; __ats_lab___ats_fun_61: #line 387 "parser.dats" tmp319 = ats_selbox_mac(ats_castptr_mac(anairiats_rec_11, arg0), atslab_v1ar_loc) ; #line 387 "parser.dats" tmp320 = ats_selbox_mac(ats_castptr_mac(anairiats_rec_4, env0), atslab_token_loc) ; #line 387 "parser.dats" tmp318 = _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2PARCOMB_2posloc_2esats__location_combine (tmp319, tmp320) ; #line 388 "parser.dats" tmp321 = symbol_make_token_39 (env0) ; #line 389 "parser.dats" tmp322 = _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2absyn_2esats__FieldVar_make (tmp318, arg0, tmp321) ; #line 391 "parser.dats" tmp317 = ((ats_ptr_type(*)(ats_clo_ptr_type, ats_ptr_type))(ats_closure_fun(env1))) (env1, tmp322) ; return (tmp317) ; } /* end of [__ats_fun_61] */ typedef struct { ats_fun_ptr_type closure_fun ; ats_ptr_type closure_env_0 ; ats_clo_ref_type closure_env_1 ; } __ats_fun_61_closure_type ; ats_ptr_type __ats_fun_61_clofun (ats_clo_ptr_type cloptr, ats_ptr_type arg0) { return __ats_fun_61 (((__ats_fun_61_closure_type*)cloptr)->closure_env_0, ((__ats_fun_61_closure_type*)cloptr)->closure_env_1, arg0) ; } /* end of function */ ATSinline() ats_void_type __ats_fun_61_closure_init (__ats_fun_61_closure_type *p_clo, ats_ptr_type env0, ats_clo_ref_type env1) { p_clo->closure_fun = (ats_fun_ptr_type)&__ats_fun_61_clofun ; p_clo->closure_env_0 = env0 ; p_clo->closure_env_1 = env1 ; return ; } /* end of function */ ats_clo_ptr_type __ats_fun_61_closure_make (ats_ptr_type env0, ats_clo_ref_type env1) { __ats_fun_61_closure_type *p_clo = ATS_MALLOC(sizeof(__ats_fun_61_closure_type)) ; __ats_fun_61_closure_init (p_clo, env0, env1) ; return (ats_clo_ptr_type)p_clo ; } /* end of function */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 8616(line=385, offs=6) -- 8851(line=392, offs=6) */ ATSstaticdec() ats_clo_ref_type f_field_60 (ats_ptr_type arg0, ats_clo_ref_type arg1) { /* local vardec */ ATSlocal (ats_ptr_type, tmp316) ; __ats_lab_f_field_60: #line 386 "parser.dats" tmp316 = __ats_fun_61_closure_make (arg0, arg1) ; return (tmp316) ; } /* end of [f_field_60] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 8940(line=394, offs=52) -- 9086(line=399, offs=6) */ ATSstaticdec() ats_ptr_type __ats_fun_63 (ats_ptr_type env0, ats_ptr_type env1, ats_clo_ref_type env2, ats_ptr_type arg0) { /* local vardec */ ATSlocal (ats_ptr_type, tmp324) ; ATSlocal (ats_ptr_type, tmp325) ; ATSlocal (ats_ptr_type, tmp326) ; ATSlocal (ats_ptr_type, tmp327) ; ATSlocal (ats_ptr_type, tmp328) ; __ats_lab___ats_fun_63: #line 395 "parser.dats" tmp326 = ats_selbox_mac(ats_castptr_mac(anairiats_rec_11, arg0), atslab_v1ar_loc) ; #line 395 "parser.dats" tmp327 = ats_selbox_mac(ats_castptr_mac(anairiats_rec_4, env1), atslab_token_loc) ; #line 395 "parser.dats" tmp325 = _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2PARCOMB_2posloc_2esats__location_combine (tmp326, tmp327) ; #line 396 "parser.dats" tmp328 = _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2absyn_2esats__SubscriptVar_make (tmp325, arg0, env0) ; #line 398 "parser.dats" tmp324 = ((ats_ptr_type(*)(ats_clo_ptr_type, ats_ptr_type))(ats_closure_fun(env2))) (env2, tmp328) ; return (tmp324) ; } /* end of [__ats_fun_63] */ typedef struct { ats_fun_ptr_type closure_fun ; ats_ptr_type closure_env_0 ; ats_ptr_type closure_env_1 ; ats_clo_ref_type closure_env_2 ; } __ats_fun_63_closure_type ; ats_ptr_type __ats_fun_63_clofun (ats_clo_ptr_type cloptr, ats_ptr_type arg0) { return __ats_fun_63 (((__ats_fun_63_closure_type*)cloptr)->closure_env_0, ((__ats_fun_63_closure_type*)cloptr)->closure_env_1, ((__ats_fun_63_closure_type*)cloptr)->closure_env_2, arg0) ; } /* end of function */ ATSinline() ats_void_type __ats_fun_63_closure_init (__ats_fun_63_closure_type *p_clo, ats_ptr_type env0, ats_ptr_type env1, ats_clo_ref_type env2) { p_clo->closure_fun = (ats_fun_ptr_type)&__ats_fun_63_clofun ; p_clo->closure_env_0 = env0 ; p_clo->closure_env_1 = env1 ; p_clo->closure_env_2 = env2 ; return ; } /* end of function */ ats_clo_ptr_type __ats_fun_63_closure_make (ats_ptr_type env0, ats_ptr_type env1, ats_clo_ref_type env2) { __ats_fun_63_closure_type *p_clo = ATS_MALLOC(sizeof(__ats_fun_63_closure_type)) ; __ats_fun_63_closure_init (p_clo, env0, env1, env2) ; return (ats_clo_ptr_type)p_clo ; } /* end of function */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 8877(line=393, offs=6) -- 9086(line=399, offs=6) */ ATSstaticdec() ats_clo_ref_type f_subscript_62 (ats_ptr_type arg0, ats_ptr_type arg1, ats_clo_ref_type arg2) { /* local vardec */ ATSlocal (ats_ptr_type, tmp323) ; __ats_lab_f_subscript_62: #line 394 "parser.dats" tmp323 = __ats_fun_63_closure_make (arg0, arg1, arg2) ; return (tmp323) ; } /* end of [f_subscript_62] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/PARCOMB/parcomb.dats: 2261(line=74, offs=32) -- 2536(line=85, offs=4) */ ATSstaticdec() ats_ptr_type __ats_fun_66 (ats_clo_ref_type env0, ats_clo_ref_type env1, ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2) { /* local vardec */ ATSlocal (ats_ptr_type, tmp331) ; ATSlocal (ats_ptr_type, tmp332) ; ATSlocal (ats_int_type, tmp333) ; ATSlocal (ats_ptr_type, tmp334) ; __ats_lab___ats_fun_66: #line 75 "parcomb.dats" tmp332 = ats_ptrget_mac(ats_ptr_type, arg0) ; #line 76 "parcomb.dats" tmp333 = ats_ptrget_mac(ats_int_type, arg1) ; #line 77 "parcomb.dats" tmp334 = ((ats_ptr_type(*)(ats_clo_ptr_type, ats_ref_type, ats_ref_type, ats_ref_type))(ats_closure_fun(env0))) (env0, arg0, arg1, arg2) ; #line 79 "parcomb.dats" do { /* branch: __ats_lab_44 */ #line 80 "parcomb.dats" __ats_lab_44_0: #line 80 "parcomb.dats" if (tmp334 == (ats_sum_ptr_type)0) { goto __ats_lab_45_0 ; } #line 80 "parcomb.dats" __ats_lab_44_1: #line 80 "parcomb.dats" tmp331 = tmp334 ; break ; /* branch: __ats_lab_45 */ #line 80 "parcomb.dats" __ats_lab_45_0: #line 80 "parcomb.dats" // if (tmp334 != (ats_sum_ptr_type)0) { ats_deadcode_failure_handle () ; } #line 80 "parcomb.dats" __ats_lab_45_1: #line 81 "parcomb.dats" ats_ptrget_mac(ats_ptr_type, arg0) = tmp332 ; #line 81 "parcomb.dats" ats_ptrget_mac(ats_int_type, arg1) = tmp333 ; #line 83 "parcomb.dats" tmp331 = ((ats_ptr_type(*)(ats_clo_ptr_type, ats_ref_type, ats_ref_type, ats_ref_type))(ats_closure_fun(env1))) (env1, arg0, arg1, arg2) ; break ; } while (0) ; return (tmp331) ; } /* end of [__ats_fun_66] */ typedef struct { ats_fun_ptr_type closure_fun ; ats_clo_ref_type closure_env_0 ; ats_clo_ref_type closure_env_1 ; } __ats_fun_66_closure_type ; ats_ptr_type __ats_fun_66_clofun (ats_clo_ptr_type cloptr, ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2) { return __ats_fun_66 (((__ats_fun_66_closure_type*)cloptr)->closure_env_0, ((__ats_fun_66_closure_type*)cloptr)->closure_env_1, arg0, arg1, arg2) ; } /* end of function */ ATSinline() ats_void_type __ats_fun_66_closure_init (__ats_fun_66_closure_type *p_clo, ats_clo_ref_type env0, ats_clo_ref_type env1) { p_clo->closure_fun = (ats_fun_ptr_type)&__ats_fun_66_clofun ; p_clo->closure_env_0 = env0 ; p_clo->closure_env_1 = env1 ; return ; } /* end of function */ ats_clo_ptr_type __ats_fun_66_closure_make (ats_clo_ref_type env0, ats_clo_ref_type env1) { __ats_fun_66_closure_type *p_clo = ATS_MALLOC(sizeof(__ats_fun_66_closure_type)) ; __ats_fun_66_closure_init (p_clo, env0, env1) ; return (ats_clo_ptr_type)p_clo ; } /* end of function */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/PARCOMB/parcomb.dats: 2250(line=74, offs=21) -- 2536(line=85, offs=4) */ ATSstaticdec() ats_ptr_type alt_parser_parser_01671_ats_clo_ref_type_ats_ptr_type (ats_ptr_type arg0, ats_ptr_type arg1) { /* local vardec */ ATSlocal (ats_ptr_type, tmp330) ; __ats_lab_alt_parser_parser_01671_ats_clo_ref_type_ats_ptr_type: #line 74 "parcomb.dats" tmp330 = __ats_fun_66_closure_make (arg0, arg1) ; return (tmp330) ; } /* end of [alt_parser_parser_01671_ats_clo_ref_type_ats_ptr_type] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/PARCOMB/parcomb.dats: 3459(line=116, offs=36) -- 3726(line=123, offs=4) */ ATSstaticdec() ats_ptr_type __ats_fun_68 (ats_clo_ref_type env0, ats_clo_ref_type env1, ats_ptr_type env2, ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2) { /* local vardec */ ATSlocal (ats_ptr_type, tmp338) ; ATSlocal (ats_ptr_type, tmp339) ; ATSlocal (ats_ptr_type, tmp340) ; ATSlocal (ats_ptr_type, tmp341) ; ATSlocal (ats_clo_ref_type, tmp342) ; ATSlocal (ats_clo_ref_type, tmp343) ; __ats_lab___ats_fun_68: #line 117 "parcomb.dats" tmp339 = ((ats_ptr_type(*)(ats_clo_ptr_type, ats_ref_type, ats_ref_type, ats_ref_type))(ats_closure_fun(env0))) (env0, arg0, arg1, arg2) ; #line 117 "parcomb.dats" do { /* branch: __ats_lab_46 */ #line 118 "parcomb.dats" __ats_lab_46_0: #line 118 "parcomb.dats" if (tmp339 == (ats_sum_ptr_type)0) { goto __ats_lab_49_0 ; } #line 118 "parcomb.dats" __ats_lab_46_1: #line 118 "parcomb.dats" tmp340 = ats_caselptr_mac(anairiats_sum_3, tmp339, atslab_0) ; #line 118 "parcomb.dats" ATS_FREE(tmp339) ; #line 119 "parcomb.dats" tmp341 = ((ats_ptr_type(*)(ats_clo_ptr_type, ats_ref_type, ats_ref_type, ats_ref_type))(ats_closure_fun(env1))) (env1, arg0, arg1, arg2) ; #line 119 "parcomb.dats" do { /* branch: __ats_lab_47 */ #line 120 "parcomb.dats" __ats_lab_47_0: #line 120 "parcomb.dats" if (tmp341 == (ats_sum_ptr_type)0) { goto __ats_lab_48_0 ; } #line 120 "parcomb.dats" __ats_lab_47_1: #line 120 "parcomb.dats" tmp342 = ats_caselptr_mac(anairiats_sum_10, tmp341, atslab_0) ; #line 120 "parcomb.dats" ATS_FREE(tmp341) ; #line 120 "parcomb.dats" tmp343 = ((ats_clo_ref_type(*)(ats_ptr_type, ats_clo_ref_type))env2) (tmp340, tmp342) ; #line 120 "parcomb.dats" tmp338 = ATS_MALLOC(sizeof(anairiats_sum_10)) ; ats_selptrset_mac(anairiats_sum_10, tmp338, atslab_0, tmp343) ; break ; /* branch: __ats_lab_48 */ #line 120 "parcomb.dats" __ats_lab_48_0: #line 120 "parcomb.dats" // if (tmp341 != (ats_sum_ptr_type)0) { ats_deadcode_failure_handle () ; } #line 120 "parcomb.dats" __ats_lab_48_1: #line 120 "parcomb.dats" tmp338 = tmp341 ; break ; } while (0) ; break ; /* branch: __ats_lab_49 */ #line 122 "parcomb.dats" __ats_lab_49_0: #line 122 "parcomb.dats" // if (tmp339 != (ats_sum_ptr_type)0) { ats_deadcode_failure_handle () ; } #line 122 "parcomb.dats" __ats_lab_49_1: #line 122 "parcomb.dats" tmp338 = tmp339 ; break ; } while (0) ; return (tmp338) ; } /* end of [__ats_fun_68] */ typedef struct { ats_fun_ptr_type closure_fun ; ats_clo_ref_type closure_env_0 ; ats_clo_ref_type closure_env_1 ; ats_ptr_type closure_env_2 ; } __ats_fun_68_closure_type ; ats_ptr_type __ats_fun_68_clofun (ats_clo_ptr_type cloptr, ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2) { return __ats_fun_68 (((__ats_fun_68_closure_type*)cloptr)->closure_env_0, ((__ats_fun_68_closure_type*)cloptr)->closure_env_1, ((__ats_fun_68_closure_type*)cloptr)->closure_env_2, arg0, arg1, arg2) ; } /* end of function */ ATSinline() ats_void_type __ats_fun_68_closure_init (__ats_fun_68_closure_type *p_clo, ats_clo_ref_type env0, ats_clo_ref_type env1, ats_ptr_type env2) { p_clo->closure_fun = (ats_fun_ptr_type)&__ats_fun_68_clofun ; p_clo->closure_env_0 = env0 ; p_clo->closure_env_1 = env1 ; p_clo->closure_env_2 = env2 ; return ; } /* end of function */ ats_clo_ptr_type __ats_fun_68_closure_make (ats_clo_ref_type env0, ats_clo_ref_type env1, ats_ptr_type env2) { __ats_fun_68_closure_type *p_clo = ATS_MALLOC(sizeof(__ats_fun_68_closure_type)) ; __ats_fun_68_closure_init (p_clo, env0, env1, env2) ; return (ats_clo_ptr_type)p_clo ; } /* end of function */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/PARCOMB/parcomb.dats: 3445(line=116, offs=22) -- 3726(line=123, offs=4) */ ATSstaticdec() ats_ptr_type seq2wth_parser_fun_01675_ats_ptr_type_2cats_clo_ref_type_2cats_clo_ref_type_ats_ptr_type (ats_ptr_type arg0, ats_ptr_type arg1, ats_ptr_type arg2) { /* local vardec */ ATSlocal (ats_ptr_type, tmp337) ; __ats_lab_seq2wth_parser_fun_01675_ats_ptr_type_2cats_clo_ref_type_2cats_clo_ref_type_ats_ptr_type: #line 116 "parcomb.dats" tmp337 = __ats_fun_68_closure_make (arg0, arg1, arg2) ; return (tmp337) ; } /* end of [seq2wth_parser_fun_01675_ats_ptr_type_2cats_clo_ref_type_2cats_clo_ref_type_ats_ptr_type] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/PARCOMB/parcomb.dats: 4207(line=138, offs=40) -- 4625(line=149, offs=4) */ ATSstaticdec() ats_ptr_type __ats_fun_70 (ats_clo_ref_type env0, ats_clo_ref_type env1, ats_clo_ref_type env2, ats_ptr_type env3, ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2) { /* local vardec */ ATSlocal (ats_ptr_type, tmp348) ; ATSlocal (ats_ptr_type, tmp349) ; ATSlocal (ats_ptr_type, tmp350) ; ATSlocal (ats_ptr_type, tmp351) ; ATSlocal (ats_ptr_type, tmp352) ; ATSlocal (ats_ptr_type, tmp353) ; ATSlocal (ats_clo_ref_type, tmp354) ; ATSlocal (ats_clo_ref_type, tmp355) ; __ats_lab___ats_fun_70: #line 139 "parcomb.dats" tmp349 = ((ats_ptr_type(*)(ats_clo_ptr_type, ats_ref_type, ats_ref_type, ats_ref_type))(ats_closure_fun(env0))) (env0, arg0, arg1, arg2) ; #line 139 "parcomb.dats" do { /* branch: __ats_lab_50 */ #line 140 "parcomb.dats" __ats_lab_50_0: #line 140 "parcomb.dats" if (tmp349 == (ats_sum_ptr_type)0) { goto __ats_lab_55_0 ; } #line 140 "parcomb.dats" __ats_lab_50_1: #line 140 "parcomb.dats" tmp350 = ats_caselptr_mac(anairiats_sum_3, tmp349, atslab_0) ; #line 140 "parcomb.dats" ATS_FREE(tmp349) ; #line 141 "parcomb.dats" tmp351 = ((ats_ptr_type(*)(ats_clo_ptr_type, ats_ref_type, ats_ref_type, ats_ref_type))(ats_closure_fun(env1))) (env1, arg0, arg1, arg2) ; #line 141 "parcomb.dats" do { /* branch: __ats_lab_51 */ #line 142 "parcomb.dats" __ats_lab_51_0: #line 142 "parcomb.dats" if (tmp351 == (ats_sum_ptr_type)0) { goto __ats_lab_54_0 ; } #line 142 "parcomb.dats" __ats_lab_51_1: #line 142 "parcomb.dats" tmp352 = ats_caselptr_mac(anairiats_sum_3, tmp351, atslab_0) ; #line 142 "parcomb.dats" ATS_FREE(tmp351) ; #line 143 "parcomb.dats" tmp353 = ((ats_ptr_type(*)(ats_clo_ptr_type, ats_ref_type, ats_ref_type, ats_ref_type))(ats_closure_fun(env2))) (env2, arg0, arg1, arg2) ; #line 143 "parcomb.dats" do { /* branch: __ats_lab_52 */ #line 144 "parcomb.dats" __ats_lab_52_0: #line 144 "parcomb.dats" if (tmp353 == (ats_sum_ptr_type)0) { goto __ats_lab_53_0 ; } #line 144 "parcomb.dats" __ats_lab_52_1: #line 144 "parcomb.dats" tmp354 = ats_caselptr_mac(anairiats_sum_10, tmp353, atslab_0) ; #line 144 "parcomb.dats" ATS_FREE(tmp353) ; #line 144 "parcomb.dats" tmp355 = ((ats_clo_ref_type(*)(ats_ptr_type, ats_ptr_type, ats_clo_ref_type))env3) (tmp350, tmp352, tmp354) ; #line 144 "parcomb.dats" tmp348 = ATS_MALLOC(sizeof(anairiats_sum_10)) ; ats_selptrset_mac(anairiats_sum_10, tmp348, atslab_0, tmp355) ; break ; /* branch: __ats_lab_53 */ #line 144 "parcomb.dats" __ats_lab_53_0: #line 144 "parcomb.dats" // if (tmp353 != (ats_sum_ptr_type)0) { ats_deadcode_failure_handle () ; } #line 144 "parcomb.dats" __ats_lab_53_1: #line 144 "parcomb.dats" tmp348 = tmp353 ; break ; } while (0) ; break ; /* branch: __ats_lab_54 */ #line 146 "parcomb.dats" __ats_lab_54_0: #line 146 "parcomb.dats" // if (tmp351 != (ats_sum_ptr_type)0) { ats_deadcode_failure_handle () ; } #line 146 "parcomb.dats" __ats_lab_54_1: #line 146 "parcomb.dats" tmp348 = tmp351 ; break ; } while (0) ; break ; /* branch: __ats_lab_55 */ #line 148 "parcomb.dats" __ats_lab_55_0: #line 148 "parcomb.dats" // if (tmp349 != (ats_sum_ptr_type)0) { ats_deadcode_failure_handle () ; } #line 148 "parcomb.dats" __ats_lab_55_1: #line 148 "parcomb.dats" tmp348 = tmp349 ; break ; } while (0) ; return (tmp348) ; } /* end of [__ats_fun_70] */ typedef struct { ats_fun_ptr_type closure_fun ; ats_clo_ref_type closure_env_0 ; ats_clo_ref_type closure_env_1 ; ats_clo_ref_type closure_env_2 ; ats_ptr_type closure_env_3 ; } __ats_fun_70_closure_type ; ats_ptr_type __ats_fun_70_clofun (ats_clo_ptr_type cloptr, ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2) { return __ats_fun_70 (((__ats_fun_70_closure_type*)cloptr)->closure_env_0, ((__ats_fun_70_closure_type*)cloptr)->closure_env_1, ((__ats_fun_70_closure_type*)cloptr)->closure_env_2, ((__ats_fun_70_closure_type*)cloptr)->closure_env_3, arg0, arg1, arg2) ; } /* end of function */ ATSinline() ats_void_type __ats_fun_70_closure_init (__ats_fun_70_closure_type *p_clo, ats_clo_ref_type env0, ats_clo_ref_type env1, ats_clo_ref_type env2, ats_ptr_type env3) { p_clo->closure_fun = (ats_fun_ptr_type)&__ats_fun_70_clofun ; p_clo->closure_env_0 = env0 ; p_clo->closure_env_1 = env1 ; p_clo->closure_env_2 = env2 ; p_clo->closure_env_3 = env3 ; return ; } /* end of function */ ats_clo_ptr_type __ats_fun_70_closure_make (ats_clo_ref_type env0, ats_clo_ref_type env1, ats_clo_ref_type env2, ats_ptr_type env3) { __ats_fun_70_closure_type *p_clo = ATS_MALLOC(sizeof(__ats_fun_70_closure_type)) ; __ats_fun_70_closure_init (p_clo, env0, env1, env2, env3) ; return (ats_clo_ptr_type)p_clo ; } /* end of function */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/PARCOMB/parcomb.dats: 4189(line=138, offs=22) -- 4625(line=149, offs=4) */ ATSstaticdec() ats_ptr_type seq3wth_parser_fun_01677_ats_ptr_type_2cats_ptr_type_2cats_clo_ref_type_2cats_clo_ref_type_ats_ptr_type (ats_ptr_type arg0, ats_ptr_type arg1, ats_ptr_type arg2, ats_ptr_type arg3) { /* local vardec */ ATSlocal (ats_ptr_type, tmp347) ; __ats_lab_seq3wth_parser_fun_01677_ats_ptr_type_2cats_ptr_type_2cats_clo_ref_type_2cats_clo_ref_type_ats_ptr_type: #line 138 "parcomb.dats" tmp347 = __ats_fun_70_closure_make (arg0, arg1, arg2, arg3) ; return (tmp347) ; } /* end of [seq3wth_parser_fun_01677_ats_ptr_type_2cats_ptr_type_2cats_clo_ref_type_2cats_clo_ref_type_ats_ptr_type] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/PARCOMB/parcomb.dats: 2158(line=69, offs=37) -- 2191(line=69, offs=70) */ ATSstaticdec() ats_ptr_type __ats_fun_72 (ats_clo_ref_type env0, ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2) { /* local vardec */ ATSlocal (ats_ptr_type, tmp361) ; __ats_lab___ats_fun_72: #line 69 "parcomb.dats" tmp361 = ATS_MALLOC(sizeof(anairiats_sum_10)) ; ats_selptrset_mac(anairiats_sum_10, tmp361, atslab_0, env0) ; return (tmp361) ; } /* end of [__ats_fun_72] */ typedef struct { ats_fun_ptr_type closure_fun ; ats_clo_ref_type closure_env_0 ; } __ats_fun_72_closure_type ; ats_ptr_type __ats_fun_72_clofun (ats_clo_ptr_type cloptr, ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2) { return __ats_fun_72 (((__ats_fun_72_closure_type*)cloptr)->closure_env_0, arg0, arg1, arg2) ; } /* end of function */ ATSinline() ats_void_type __ats_fun_72_closure_init (__ats_fun_72_closure_type *p_clo, ats_clo_ref_type env0) { p_clo->closure_fun = (ats_fun_ptr_type)&__ats_fun_72_clofun ; p_clo->closure_env_0 = env0 ; return ; } /* end of function */ ats_clo_ptr_type __ats_fun_72_closure_make (ats_clo_ref_type env0) { __ats_fun_72_closure_type *p_clo = ATS_MALLOC(sizeof(__ats_fun_72_closure_type)) ; __ats_fun_72_closure_init (p_clo, env0) ; return (ats_clo_ptr_type)p_clo ; } /* end of function */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/PARCOMB/parcomb.dats: 2152(line=69, offs=31) -- 2191(line=69, offs=70) */ ATSstaticdec() ats_ptr_type return_parser_01670_ats_clo_ref_type_ats_ptr_type (ats_clo_ref_type arg0) { /* local vardec */ ATSlocal (ats_ptr_type, tmp360) ; __ats_lab_return_parser_01670_ats_clo_ref_type_ats_ptr_type: #line 69 "parcomb.dats" tmp360 = __ats_fun_72_closure_make (arg0) ; return (tmp360) ; } /* end of [return_parser_01670_ats_clo_ref_type_ats_ptr_type] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 8574(line=383, offs=11) -- 8599(line=383, offs=36) */ ATSstaticdec() ats_ptr_type __ats_fun_73 (ats_ptr_type arg0) { /* local vardec */ ATSlocal (ats_ptr_type, tmp362) ; __ats_lab___ats_fun_73: #line 383 "parser.dats" tmp362 = arg0 ; return (tmp362) ; } /* end of [__ats_fun_73] */ typedef struct { ats_fun_ptr_type closure_fun ; } __ats_fun_73_closure_type ; ats_ptr_type __ats_fun_73_clofun (ats_clo_ptr_type cloptr, ats_ptr_type arg0) { return __ats_fun_73 (arg0) ; } /* end of function */ ATSinline() ats_void_type __ats_fun_73_closure_init (__ats_fun_73_closure_type *p_clo) { p_clo->closure_fun = (ats_fun_ptr_type)&__ats_fun_73_clofun ; return ; } /* end of function */ ats_clo_ptr_type __ats_fun_73_closure_make () { __ats_fun_73_closure_type *p_clo = ATS_MALLOC(sizeof(__ats_fun_73_closure_type)) ; __ats_fun_73_closure_init (p_clo) ; return (ats_clo_ptr_type)p_clo ; } /* end of function */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 8398(line=378, offs=25) -- 8599(line=383, offs=36) */ ATSstaticdec() ats_ptr_type __ats_fun_64 () { /* local vardec */ ATSlocal (ats_ptr_type, tmp329) ; ATSlocal (ats_ptr_type, tmp335) ; ATSlocal (ats_ptr_type, tmp336) ; ATSlocal (ats_ptr_type, tmp344) ; ATSlocal (ats_ptr_type, tmp345) ; ATSlocal (ats_ptr_type, tmp346) ; ATSlocal (ats_ptr_type, tmp356) ; ATSlocal (ats_ptr_type, tmp357) ; ATSlocal (ats_ptr_type, tmp358) ; ATSlocal (ats_ptr_type, tmp359) ; __ats_lab___ats_fun_64: #line 380 "parser.dats" tmp344 = proj2_parser_parser_01690_ats_ptr_type_2cats_ptr_type_ats_ptr_type (statmp64, statmp94) ; #line 380 "parser.dats" tmp345 = _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2PARCOMB_2parcomb_2esats__lzeta (statmp264) ; #line 379 "parser.dats" tmp336 = seq2wth_parser_fun_01675_ats_ptr_type_2cats_clo_ref_type_2cats_clo_ref_type_ats_ptr_type (tmp344, tmp345, &f_field_60) ; #line 382 "parser.dats" ats_instr_move_lazy_force_mac (tmp357, ats_ptr_type, statmp260) ; #line 382 "parser.dats" tmp356 = proj2_parser_parser_01690_ats_ptr_type_2cats_ptr_type_ats_ptr_type (statmp35, tmp357) ; #line 382 "parser.dats" tmp358 = _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2PARCOMB_2parcomb_2esats__lzeta (statmp264) ; #line 381 "parser.dats" tmp346 = seq3wth_parser_fun_01677_ats_ptr_type_2cats_ptr_type_2cats_clo_ref_type_2cats_clo_ref_type_ats_ptr_type (tmp356, statmp36, tmp358, &f_subscript_62) ; #line 379 "parser.dats" tmp335 = alt_parser_parser_01671_ats_clo_ref_type_ats_ptr_type (tmp336, tmp346) ; #line 383 "parser.dats" tmp359 = return_parser_01670_ats_clo_ref_type_ats_ptr_type (__ats_fun_73_closure_make ()) ; #line 379 "parser.dats" tmp329 = alt_parser_parser_01671_ats_clo_ref_type_ats_ptr_type (tmp335, tmp359) ; return (tmp329) ; } /* end of [__ats_fun_64] */ typedef struct { ats_fun_ptr_type closure_fun ; } __ats_fun_64_closure_type ; ats_ptr_type __ats_fun_64_clofun (ats_clo_ptr_type cloptr) { return __ats_fun_64 () ; } /* end of function */ ATSinline() ats_void_type __ats_fun_64_closure_init (__ats_fun_64_closure_type *p_clo) { p_clo->closure_fun = (ats_fun_ptr_type)&__ats_fun_64_clofun ; return ; } /* end of function */ ats_clo_ptr_type __ats_fun_64_closure_make () { __ats_fun_64_closure_type *p_clo = ATS_MALLOC(sizeof(__ats_fun_64_closure_type)) ; __ats_fun_64_closure_init (p_clo) ; return (ats_clo_ptr_type)p_clo ; } /* end of function */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 9462(line=413, offs=6) -- 9517(line=413, offs=61) */ ATSstaticdec() ats_ptr_type f_nil_74 (ats_ptr_type arg0) { /* local vardec */ ATSlocal (ats_ptr_type, tmp363) ; ATSlocal (ats_ptr_type, tmp364) ; __ats_lab_f_nil_74: #line 413 "parser.dats" tmp364 = ats_selbox_mac(ats_castptr_mac(anairiats_rec_4, arg0), atslab_token_loc) ; #line 413 "parser.dats" tmp363 = _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2absyn_2esats__NilExp_make (tmp364) ; return (tmp363) ; } /* end of [f_nil_74] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 9523(line=414, offs=6) -- 9657(line=418, offs=6) */ ATSstaticdec() ats_ptr_type f_number_75 (ats_ptr_type arg0) { /* local vardec */ ATSlocal (ats_ptr_type, tmp365) ; ATSlocal (ats_ptr_type, tmp366) ; ATSlocal (ats_ptr_type, tmp367) ; ATSlocal (ats_int_type, tmp368) ; __ats_lab_f_number_75: #line 415 "parser.dats" tmp366 = ats_selbox_mac(ats_castptr_mac(anairiats_rec_4, arg0), atslab_token_loc) ; #line 415 "parser.dats" tmp367 = ats_selbox_mac(ats_castptr_mac(anairiats_rec_4, arg0), atslab_token_node) ; #line 415 "parser.dats" if (((ats_sum_ptr_type)tmp367)->tag != 2) { ats_caseof_failure_handle ("/cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 9592(line=415, offs=35) -- 9619(line=415, offs=62)") ; } #line 415 "parser.dats" tmp368 = ats_caselptr_mac(anairiats_sum_12, tmp367, atslab_0) ; #line 417 "parser.dats" tmp365 = _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2absyn_2esats__IntExp_make (tmp366, tmp368) ; return (tmp365) ; } /* end of [f_number_75] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 9684(line=419, offs=6) -- 9821(line=423, offs=6) */ ATSstaticdec() ats_ptr_type f_string_76 (ats_ptr_type arg0) { /* local vardec */ ATSlocal (ats_ptr_type, tmp369) ; ATSlocal (ats_ptr_type, tmp370) ; ATSlocal (ats_ptr_type, tmp371) ; ATSlocal (ats_ptr_type, tmp372) ; __ats_lab_f_string_76: #line 420 "parser.dats" tmp370 = ats_selbox_mac(ats_castptr_mac(anairiats_rec_4, arg0), atslab_token_loc) ; #line 420 "parser.dats" tmp371 = ats_selbox_mac(ats_castptr_mac(anairiats_rec_4, arg0), atslab_token_node) ; #line 420 "parser.dats" if (((ats_sum_ptr_type)tmp371)->tag != 4) { ats_caseof_failure_handle ("/cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 9753(line=420, offs=35) -- 9780(line=420, offs=62)") ; } #line 420 "parser.dats" tmp372 = ats_caselptr_mac(anairiats_sum_6, tmp371, atslab_0) ; #line 422 "parser.dats" tmp369 = _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2absyn_2esats__StringExp_make (tmp370, tmp372) ; return (tmp369) ; } /* end of [f_string_76] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 9848(line=424, offs=6) -- 9903(line=424, offs=61) */ ATSstaticdec() ats_ptr_type f_varexp_77 (ats_ptr_type arg0) { /* local vardec */ ATSlocal (ats_ptr_type, tmp373) ; ATSlocal (ats_ptr_type, tmp374) ; __ats_lab_f_varexp_77: #line 424 "parser.dats" tmp374 = ats_selbox_mac(ats_castptr_mac(anairiats_rec_11, arg0), atslab_v1ar_loc) ; #line 424 "parser.dats" tmp373 = _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2absyn_2esats__VarExp_make (tmp374, arg0) ; return (tmp373) ; } /* end of [f_varexp_77] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 9909(line=425, offs=6) -- 10162(line=433, offs=6) */ ATSstaticdec() ats_ptr_type f_callexp_78 (ats_ptr_type arg0, ats_ptr_type arg1, ats_ptr_type arg2, ats_ptr_type arg3) { /* local vardec */ ATSlocal (ats_ptr_type, tmp375) ; ATSlocal (ats_ptr_type, tmp376) ; ATSlocal (ats_ptr_type, tmp377) ; ATSlocal (ats_ptr_type, tmp378) ; ATSlocal (ats_ptr_type, tmp379) ; __ats_lab_f_callexp_78: #line 429 "parser.dats" tmp377 = ats_selbox_mac(ats_castptr_mac(anairiats_rec_4, arg0), atslab_token_loc) ; #line 429 "parser.dats" tmp378 = ats_selbox_mac(ats_castptr_mac(anairiats_rec_4, arg3), atslab_token_loc) ; #line 429 "parser.dats" tmp376 = _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2PARCOMB_2posloc_2esats__location_combine (tmp377, tmp378) ; #line 430 "parser.dats" tmp379 = symbol_make_token_39 (arg0) ; #line 432 "parser.dats" tmp375 = _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2absyn_2esats__CallExp_make (tmp376, tmp379, arg2) ; return (tmp375) ; } /* end of [f_callexp_78] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 10190(line=434, offs=6) -- 10459(line=441, offs=6) */ ATSstaticdec() ats_ptr_type f_seq_79 (ats_ptr_type arg0, ats_ptr_type arg1, ats_ptr_type arg2) { /* local vardec */ ATSlocal (ats_ptr_type, tmp380) ; ATSlocal (ats_ptr_type, tmp381) ; ATSlocal (ats_ptr_type, tmp382) ; ATSlocal (ats_ptr_type, tmp383) ; ATSlocal (ats_ptr_type, tmp384) ; ATSlocal (ats_ptr_type, tmp385) ; __ats_lab_f_seq_79: #line 435 "parser.dats" do { /* branch: __ats_lab_56 */ #line 436 "parser.dats" __ats_lab_56_0: #line 436 "parser.dats" if (arg1 == (ats_sum_ptr_type)0) { goto __ats_lab_57_0 ; } #line 436 "parser.dats" tmp381 = ats_caselptr_mac(anairiats_sum_2, arg1, atslab_1) ; #line 436 "parser.dats" if (tmp381 != (ats_sum_ptr_type)0) { goto __ats_lab_57_0 ; } #line 436 "parser.dats" __ats_lab_56_1: #line 436 "parser.dats" tmp382 = ats_caselptr_mac(anairiats_sum_2, arg1, atslab_0) ; #line 436 "parser.dats" tmp380 = tmp382 ; break ; /* branch: __ats_lab_57 */ #line 436 "parser.dats" __ats_lab_57_0: #line 436 "parser.dats" __ats_lab_57_1: #line 437 "parser.dats" tmp384 = ats_selbox_mac(ats_castptr_mac(anairiats_rec_4, arg0), atslab_token_loc) ; #line 437 "parser.dats" tmp385 = ats_selbox_mac(ats_castptr_mac(anairiats_rec_4, arg2), atslab_token_loc) ; #line 437 "parser.dats" tmp383 = _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2PARCOMB_2posloc_2esats__location_combine (tmp384, tmp385) ; #line 439 "parser.dats" tmp380 = _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2absyn_2esats__SeqExp_make (tmp383, arg1) ; break ; } while (0) ; return (tmp380) ; } /* end of [f_seq_79] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 10483(line=442, offs=6) -- 10569(line=443, offs=40) */ ATSstaticdec() ats_ptr_type f_seq0_80 (ats_ptr_type arg0, ats_ptr_type arg1) { /* local vardec */ ATSlocal (ats_ptr_type, tmp386) ; ATSlocal (ats_ptr_type, tmp387) ; __ats_lab_f_seq0_80: #line 443 "parser.dats" tmp387 = (ats_sum_ptr_type)0 ; #line 443 "parser.dats" tmp386 = f_seq_79 (arg0, tmp387, arg1) ; return (tmp386) ; } /* end of [f_seq0_80] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/PARCOMB/parcomb.dats: 5271(line=168, offs=44) -- 5800(line=180, offs=4) */ ATSstaticdec() ats_ptr_type __ats_fun_83 (ats_clo_ref_type env0, ats_clo_ref_type env1, ats_clo_ref_type env2, ats_clo_ref_type env3, ats_ptr_type env4, ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2) { /* local vardec */ ATSlocal (ats_ptr_type, tmp398) ; ATSlocal (ats_ptr_type, tmp399) ; ATSlocal (ats_ptr_type, tmp400) ; ATSlocal (ats_ptr_type, tmp401) ; ATSlocal (ats_ptr_type, tmp402) ; ATSlocal (ats_ptr_type, tmp403) ; ATSlocal (ats_ptr_type, tmp404) ; ATSlocal (ats_ptr_type, tmp405) ; ATSlocal (ats_ptr_type, tmp406) ; ATSlocal (ats_ptr_type, tmp407) ; __ats_lab___ats_fun_83: #line 169 "parcomb.dats" tmp399 = ((ats_ptr_type(*)(ats_clo_ptr_type, ats_ref_type, ats_ref_type, ats_ref_type))(ats_closure_fun(env0))) (env0, arg0, arg1, arg2) ; #line 169 "parcomb.dats" do { /* branch: __ats_lab_58 */ #line 170 "parcomb.dats" __ats_lab_58_0: #line 170 "parcomb.dats" if (tmp399 == (ats_sum_ptr_type)0) { goto __ats_lab_65_0 ; } #line 170 "parcomb.dats" __ats_lab_58_1: #line 170 "parcomb.dats" tmp400 = ats_caselptr_mac(anairiats_sum_3, tmp399, atslab_0) ; #line 170 "parcomb.dats" ATS_FREE(tmp399) ; #line 170 "parcomb.dats" tmp401 = ((ats_ptr_type(*)(ats_clo_ptr_type, ats_ref_type, ats_ref_type, ats_ref_type))(ats_closure_fun(env1))) (env1, arg0, arg1, arg2) ; #line 170 "parcomb.dats" do { /* branch: __ats_lab_59 */ #line 171 "parcomb.dats" __ats_lab_59_0: #line 171 "parcomb.dats" if (tmp401 == (ats_sum_ptr_type)0) { goto __ats_lab_64_0 ; } #line 171 "parcomb.dats" __ats_lab_59_1: #line 171 "parcomb.dats" tmp402 = ats_caselptr_mac(anairiats_sum_3, tmp401, atslab_0) ; #line 171 "parcomb.dats" ATS_FREE(tmp401) ; #line 171 "parcomb.dats" tmp403 = ((ats_ptr_type(*)(ats_clo_ptr_type, ats_ref_type, ats_ref_type, ats_ref_type))(ats_closure_fun(env2))) (env2, arg0, arg1, arg2) ; #line 171 "parcomb.dats" do { /* branch: __ats_lab_60 */ #line 172 "parcomb.dats" __ats_lab_60_0: #line 172 "parcomb.dats" if (tmp403 == (ats_sum_ptr_type)0) { goto __ats_lab_63_0 ; } #line 172 "parcomb.dats" __ats_lab_60_1: #line 172 "parcomb.dats" tmp404 = ats_caselptr_mac(anairiats_sum_3, tmp403, atslab_0) ; #line 172 "parcomb.dats" ATS_FREE(tmp403) ; #line 172 "parcomb.dats" tmp405 = ((ats_ptr_type(*)(ats_clo_ptr_type, ats_ref_type, ats_ref_type, ats_ref_type))(ats_closure_fun(env3))) (env3, arg0, arg1, arg2) ; #line 172 "parcomb.dats" do { /* branch: __ats_lab_61 */ #line 173 "parcomb.dats" __ats_lab_61_0: #line 173 "parcomb.dats" if (tmp405 == (ats_sum_ptr_type)0) { goto __ats_lab_62_0 ; } #line 173 "parcomb.dats" __ats_lab_61_1: #line 173 "parcomb.dats" tmp406 = ats_caselptr_mac(anairiats_sum_3, tmp405, atslab_0) ; #line 173 "parcomb.dats" ATS_FREE(tmp405) ; #line 173 "parcomb.dats" tmp407 = ((ats_ptr_type(*)(ats_ptr_type, ats_ptr_type, ats_ptr_type, ats_ptr_type))env4) (tmp400, tmp402, tmp404, tmp406) ; #line 173 "parcomb.dats" tmp398 = ATS_MALLOC(sizeof(anairiats_sum_3)) ; ats_selptrset_mac(anairiats_sum_3, tmp398, atslab_0, tmp407) ; break ; /* branch: __ats_lab_62 */ #line 173 "parcomb.dats" __ats_lab_62_0: #line 173 "parcomb.dats" // if (tmp405 != (ats_sum_ptr_type)0) { ats_deadcode_failure_handle () ; } #line 173 "parcomb.dats" __ats_lab_62_1: #line 173 "parcomb.dats" tmp398 = tmp405 ; break ; } while (0) ; break ; /* branch: __ats_lab_63 */ #line 175 "parcomb.dats" __ats_lab_63_0: #line 175 "parcomb.dats" // if (tmp403 != (ats_sum_ptr_type)0) { ats_deadcode_failure_handle () ; } #line 175 "parcomb.dats" __ats_lab_63_1: #line 175 "parcomb.dats" tmp398 = tmp403 ; break ; } while (0) ; break ; /* branch: __ats_lab_64 */ #line 177 "parcomb.dats" __ats_lab_64_0: #line 177 "parcomb.dats" // if (tmp401 != (ats_sum_ptr_type)0) { ats_deadcode_failure_handle () ; } #line 177 "parcomb.dats" __ats_lab_64_1: #line 177 "parcomb.dats" tmp398 = tmp401 ; break ; } while (0) ; break ; /* branch: __ats_lab_65 */ #line 179 "parcomb.dats" __ats_lab_65_0: #line 179 "parcomb.dats" // if (tmp399 != (ats_sum_ptr_type)0) { ats_deadcode_failure_handle () ; } #line 179 "parcomb.dats" __ats_lab_65_1: #line 179 "parcomb.dats" tmp398 = tmp399 ; break ; } while (0) ; return (tmp398) ; } /* end of [__ats_fun_83] */ typedef struct { ats_fun_ptr_type closure_fun ; ats_clo_ref_type closure_env_0 ; ats_clo_ref_type closure_env_1 ; ats_clo_ref_type closure_env_2 ; ats_clo_ref_type closure_env_3 ; ats_ptr_type closure_env_4 ; } __ats_fun_83_closure_type ; ats_ptr_type __ats_fun_83_clofun (ats_clo_ptr_type cloptr, ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2) { return __ats_fun_83 (((__ats_fun_83_closure_type*)cloptr)->closure_env_0, ((__ats_fun_83_closure_type*)cloptr)->closure_env_1, ((__ats_fun_83_closure_type*)cloptr)->closure_env_2, ((__ats_fun_83_closure_type*)cloptr)->closure_env_3, ((__ats_fun_83_closure_type*)cloptr)->closure_env_4, arg0, arg1, arg2) ; } /* end of function */ ATSinline() ats_void_type __ats_fun_83_closure_init (__ats_fun_83_closure_type *p_clo, ats_clo_ref_type env0, ats_clo_ref_type env1, ats_clo_ref_type env2, ats_clo_ref_type env3, ats_ptr_type env4) { p_clo->closure_fun = (ats_fun_ptr_type)&__ats_fun_83_clofun ; p_clo->closure_env_0 = env0 ; p_clo->closure_env_1 = env1 ; p_clo->closure_env_2 = env2 ; p_clo->closure_env_3 = env3 ; p_clo->closure_env_4 = env4 ; return ; } /* end of function */ ats_clo_ptr_type __ats_fun_83_closure_make (ats_clo_ref_type env0, ats_clo_ref_type env1, ats_clo_ref_type env2, ats_clo_ref_type env3, ats_ptr_type env4) { __ats_fun_83_closure_type *p_clo = ATS_MALLOC(sizeof(__ats_fun_83_closure_type)) ; __ats_fun_83_closure_init (p_clo, env0, env1, env2, env3, env4) ; return (ats_clo_ptr_type)p_clo ; } /* end of function */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/PARCOMB/parcomb.dats: 5249(line=168, offs=22) -- 5800(line=180, offs=4) */ ATSstaticdec() ats_ptr_type seq4wth_parser_fun_01679_ats_ptr_type_2cats_ptr_type_2cats_ptr_type_2cats_ptr_type_2cats_ptr_type_ats_ptr_type (ats_ptr_type arg0, ats_ptr_type arg1, ats_ptr_type arg2, ats_ptr_type arg3, ats_ptr_type arg4) { /* local vardec */ ATSlocal (ats_ptr_type, tmp397) ; __ats_lab_seq4wth_parser_fun_01679_ats_ptr_type_2cats_ptr_type_2cats_ptr_type_2cats_ptr_type_2cats_ptr_type_ats_ptr_type: #line 168 "parcomb.dats" tmp397 = __ats_fun_83_closure_make (arg0, arg1, arg2, arg3, arg4) ; return (tmp397) ; } /* end of [seq4wth_parser_fun_01679_ats_ptr_type_2cats_ptr_type_2cats_ptr_type_2cats_ptr_type_2cats_ptr_type_ats_ptr_type] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/PARCOMB/parcomb.dats: 4207(line=138, offs=40) -- 4625(line=149, offs=4) */ ATSstaticdec() ats_ptr_type __ats_fun_85 (ats_clo_ref_type env0, ats_clo_ref_type env1, ats_clo_ref_type env2, ats_ptr_type env3, ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2) { /* local vardec */ ATSlocal (ats_ptr_type, tmp413) ; ATSlocal (ats_ptr_type, tmp414) ; ATSlocal (ats_ptr_type, tmp415) ; ATSlocal (ats_ptr_type, tmp416) ; ATSlocal (ats_ptr_type, tmp417) ; ATSlocal (ats_ptr_type, tmp418) ; ATSlocal (ats_ptr_type, tmp419) ; ATSlocal (ats_ptr_type, tmp420) ; __ats_lab___ats_fun_85: #line 139 "parcomb.dats" tmp414 = ((ats_ptr_type(*)(ats_clo_ptr_type, ats_ref_type, ats_ref_type, ats_ref_type))(ats_closure_fun(env0))) (env0, arg0, arg1, arg2) ; #line 139 "parcomb.dats" do { /* branch: __ats_lab_66 */ #line 140 "parcomb.dats" __ats_lab_66_0: #line 140 "parcomb.dats" if (tmp414 == (ats_sum_ptr_type)0) { goto __ats_lab_71_0 ; } #line 140 "parcomb.dats" __ats_lab_66_1: #line 140 "parcomb.dats" tmp415 = ats_caselptr_mac(anairiats_sum_3, tmp414, atslab_0) ; #line 140 "parcomb.dats" ATS_FREE(tmp414) ; #line 141 "parcomb.dats" tmp416 = ((ats_ptr_type(*)(ats_clo_ptr_type, ats_ref_type, ats_ref_type, ats_ref_type))(ats_closure_fun(env1))) (env1, arg0, arg1, arg2) ; #line 141 "parcomb.dats" do { /* branch: __ats_lab_67 */ #line 142 "parcomb.dats" __ats_lab_67_0: #line 142 "parcomb.dats" if (tmp416 == (ats_sum_ptr_type)0) { goto __ats_lab_70_0 ; } #line 142 "parcomb.dats" __ats_lab_67_1: #line 142 "parcomb.dats" tmp417 = ats_caselptr_mac(anairiats_sum_3, tmp416, atslab_0) ; #line 142 "parcomb.dats" ATS_FREE(tmp416) ; #line 143 "parcomb.dats" tmp418 = ((ats_ptr_type(*)(ats_clo_ptr_type, ats_ref_type, ats_ref_type, ats_ref_type))(ats_closure_fun(env2))) (env2, arg0, arg1, arg2) ; #line 143 "parcomb.dats" do { /* branch: __ats_lab_68 */ #line 144 "parcomb.dats" __ats_lab_68_0: #line 144 "parcomb.dats" if (tmp418 == (ats_sum_ptr_type)0) { goto __ats_lab_69_0 ; } #line 144 "parcomb.dats" __ats_lab_68_1: #line 144 "parcomb.dats" tmp419 = ats_caselptr_mac(anairiats_sum_3, tmp418, atslab_0) ; #line 144 "parcomb.dats" ATS_FREE(tmp418) ; #line 144 "parcomb.dats" tmp420 = ((ats_ptr_type(*)(ats_ptr_type, ats_ptr_type, ats_ptr_type))env3) (tmp415, tmp417, tmp419) ; #line 144 "parcomb.dats" tmp413 = ATS_MALLOC(sizeof(anairiats_sum_3)) ; ats_selptrset_mac(anairiats_sum_3, tmp413, atslab_0, tmp420) ; break ; /* branch: __ats_lab_69 */ #line 144 "parcomb.dats" __ats_lab_69_0: #line 144 "parcomb.dats" // if (tmp418 != (ats_sum_ptr_type)0) { ats_deadcode_failure_handle () ; } #line 144 "parcomb.dats" __ats_lab_69_1: #line 144 "parcomb.dats" tmp413 = tmp418 ; break ; } while (0) ; break ; /* branch: __ats_lab_70 */ #line 146 "parcomb.dats" __ats_lab_70_0: #line 146 "parcomb.dats" // if (tmp416 != (ats_sum_ptr_type)0) { ats_deadcode_failure_handle () ; } #line 146 "parcomb.dats" __ats_lab_70_1: #line 146 "parcomb.dats" tmp413 = tmp416 ; break ; } while (0) ; break ; /* branch: __ats_lab_71 */ #line 148 "parcomb.dats" __ats_lab_71_0: #line 148 "parcomb.dats" // if (tmp414 != (ats_sum_ptr_type)0) { ats_deadcode_failure_handle () ; } #line 148 "parcomb.dats" __ats_lab_71_1: #line 148 "parcomb.dats" tmp413 = tmp414 ; break ; } while (0) ; return (tmp413) ; } /* end of [__ats_fun_85] */ typedef struct { ats_fun_ptr_type closure_fun ; ats_clo_ref_type closure_env_0 ; ats_clo_ref_type closure_env_1 ; ats_clo_ref_type closure_env_2 ; ats_ptr_type closure_env_3 ; } __ats_fun_85_closure_type ; ats_ptr_type __ats_fun_85_clofun (ats_clo_ptr_type cloptr, ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2) { return __ats_fun_85 (((__ats_fun_85_closure_type*)cloptr)->closure_env_0, ((__ats_fun_85_closure_type*)cloptr)->closure_env_1, ((__ats_fun_85_closure_type*)cloptr)->closure_env_2, ((__ats_fun_85_closure_type*)cloptr)->closure_env_3, arg0, arg1, arg2) ; } /* end of function */ ATSinline() ats_void_type __ats_fun_85_closure_init (__ats_fun_85_closure_type *p_clo, ats_clo_ref_type env0, ats_clo_ref_type env1, ats_clo_ref_type env2, ats_ptr_type env3) { p_clo->closure_fun = (ats_fun_ptr_type)&__ats_fun_85_clofun ; p_clo->closure_env_0 = env0 ; p_clo->closure_env_1 = env1 ; p_clo->closure_env_2 = env2 ; p_clo->closure_env_3 = env3 ; return ; } /* end of function */ ats_clo_ptr_type __ats_fun_85_closure_make (ats_clo_ref_type env0, ats_clo_ref_type env1, ats_clo_ref_type env2, ats_ptr_type env3) { __ats_fun_85_closure_type *p_clo = ATS_MALLOC(sizeof(__ats_fun_85_closure_type)) ; __ats_fun_85_closure_init (p_clo, env0, env1, env2, env3) ; return (ats_clo_ptr_type)p_clo ; } /* end of function */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/PARCOMB/parcomb.dats: 4189(line=138, offs=22) -- 4625(line=149, offs=4) */ ATSstaticdec() ats_ptr_type seq3wth_parser_fun_01677_ats_ptr_type_2cats_ptr_type_2cats_ptr_type_2cats_ptr_type_ats_ptr_type (ats_ptr_type arg0, ats_ptr_type arg1, ats_ptr_type arg2, ats_ptr_type arg3) { /* local vardec */ ATSlocal (ats_ptr_type, tmp412) ; __ats_lab_seq3wth_parser_fun_01677_ats_ptr_type_2cats_ptr_type_2cats_ptr_type_2cats_ptr_type_ats_ptr_type: #line 138 "parcomb.dats" tmp412 = __ats_fun_85_closure_make (arg0, arg1, arg2, arg3) ; return (tmp412) ; } /* end of [seq3wth_parser_fun_01677_ats_ptr_type_2cats_ptr_type_2cats_ptr_type_2cats_ptr_type_ats_ptr_type] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 9177(line=404, offs=23) -- 9446(line=411, offs=57) */ ATSstaticdec() ats_ptr_type __ats_fun_81 () { /* local vardec */ ATSlocal (ats_ptr_type, tmp388) ; ATSlocal (ats_ptr_type, tmp389) ; ATSlocal (ats_ptr_type, tmp390) ; ATSlocal (ats_ptr_type, tmp391) ; ATSlocal (ats_ptr_type, tmp392) ; ATSlocal (ats_ptr_type, tmp393) ; ATSlocal (ats_ptr_type, tmp394) ; ATSlocal (ats_ptr_type, tmp395) ; ATSlocal (ats_ptr_type, tmp396) ; ATSlocal (ats_ptr_type, tmp408) ; ATSlocal (ats_ptr_type, tmp409) ; ATSlocal (ats_ptr_type, tmp410) ; ATSlocal (ats_ptr_type, tmp411) ; ATSlocal (ats_ptr_type, tmp421) ; __ats_lab___ats_fun_81: #line 405 "parser.dats" tmp393 = seq1wth_parser_fun_01673_ats_ptr_type_2cats_ptr_type_ats_ptr_type (statmp56, &f_nil_74) ; #line 406 "parser.dats" tmp394 = seq1wth_parser_fun_01673_ats_ptr_type_2cats_ptr_type_ats_ptr_type (statmp106, &f_number_75) ; #line 405 "parser.dats" tmp392 = alt_parser_parser_01671_ats_ptr_type_ats_ptr_type (tmp393, tmp394) ; #line 407 "parser.dats" tmp395 = seq1wth_parser_fun_01673_ats_ptr_type_2cats_ptr_type_ats_ptr_type (statmp109, &f_string_76) ; #line 405 "parser.dats" tmp391 = alt_parser_parser_01671_ats_ptr_type_ats_ptr_type (tmp392, tmp395) ; #line 409 "parser.dats" ats_instr_move_lazy_force_mac (tmp408, ats_ptr_type, statmp261) ; #line 408 "parser.dats" tmp396 = seq4wth_parser_fun_01679_ats_ptr_type_2cats_ptr_type_2cats_ptr_type_2cats_ptr_type_2cats_ptr_type_ats_ptr_type (statmp94, statmp33, tmp408, statmp34, &f_callexp_78) ; #line 405 "parser.dats" tmp390 = alt_parser_parser_01671_ats_ptr_type_ats_ptr_type (tmp391, tmp396) ; #line 410 "parser.dats" ats_instr_move_lazy_force_mac (tmp410, ats_ptr_type, statmp263) ; #line 410 "parser.dats" tmp409 = seq1wth_parser_fun_01673_ats_ptr_type_2cats_ptr_type_ats_ptr_type (tmp410, &f_varexp_77) ; #line 405 "parser.dats" tmp389 = alt_parser_parser_01671_ats_ptr_type_ats_ptr_type (tmp390, tmp409) ; #line 411 "parser.dats" ats_instr_move_lazy_force_mac (tmp421, ats_ptr_type, statmp262) ; #line 411 "parser.dats" tmp411 = seq3wth_parser_fun_01677_ats_ptr_type_2cats_ptr_type_2cats_ptr_type_2cats_ptr_type_ats_ptr_type (statmp33, tmp421, statmp34, &f_seq_79) ; #line 405 "parser.dats" tmp388 = alt_parser_parser_01671_ats_ptr_type_ats_ptr_type (tmp389, tmp411) ; return (tmp388) ; } /* end of [__ats_fun_81] */ typedef struct { ats_fun_ptr_type closure_fun ; } __ats_fun_81_closure_type ; ats_ptr_type __ats_fun_81_clofun (ats_clo_ptr_type cloptr) { return __ats_fun_81 () ; } /* end of function */ ATSinline() ats_void_type __ats_fun_81_closure_init (__ats_fun_81_closure_type *p_clo) { p_clo->closure_fun = (ats_fun_ptr_type)&__ats_fun_81_clofun ; return ; } /* end of function */ ats_clo_ptr_type __ats_fun_81_closure_make () { __ats_fun_81_closure_type *p_clo = ATS_MALLOC(sizeof(__ats_fun_81_closure_type)) ; __ats_fun_81_closure_init (p_clo) ; return (ats_clo_ptr_type)p_clo ; } /* end of function */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 10716(line=451, offs=6) -- 10774(line=452, offs=18) */ ATSstaticdec() ats_ptr_type f_oper_86 (ats_ptr_type arg0) { /* local vardec */ ATSlocal (ats_ptr_type, tmp422) ; __ats_lab_f_oper_86: #line 452 "parser.dats" tmp422 = ATS_MALLOC(sizeof(anairiats_sum_6)) ; ((ats_sum_ptr_type)tmp422)->tag = 1 ; ats_selptrset_mac(anairiats_sum_6, tmp422, atslab_0, arg0) ; return (tmp422) ; } /* end of [f_oper_86] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 10780(line=453, offs=6) -- 10827(line=453, offs=53) */ ATSstaticdec() ats_ptr_type f_exp0_87 (ats_ptr_type arg0) { /* local vardec */ ATSlocal (ats_ptr_type, tmp423) ; __ats_lab_f_exp0_87: #line 453 "parser.dats" tmp423 = ATS_MALLOC(sizeof(anairiats_sum_6)) ; ((ats_sum_ptr_type)tmp423)->tag = 0 ; ats_selptrset_mac(anairiats_sum_6, tmp423, atslab_0, arg0) ; return (tmp423) ; } /* end of [f_exp0_87] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 10649(line=448, offs=36) -- 10700(line=449, offs=43) */ ATSstaticdec() ats_ptr_type __ats_fun_88 () { /* local vardec */ ATSlocal (ats_ptr_type, tmp424) ; ATSlocal (ats_ptr_type, tmp425) ; ATSlocal (ats_ptr_type, tmp426) ; ATSlocal (ats_ptr_type, tmp427) ; __ats_lab___ats_fun_88: #line 449 "parser.dats" tmp425 = seq1wth_parser_fun_01673_ats_ptr_type_2cats_ptr_type_ats_ptr_type (statmp128, &f_oper_86) ; #line 449 "parser.dats" ats_instr_move_lazy_force_mac (tmp427, ats_ptr_type, statmp265) ; #line 449 "parser.dats" tmp426 = seq1wth_parser_fun_01673_ats_ptr_type_2cats_ptr_type_ats_ptr_type (tmp427, &f_exp0_87) ; #line 449 "parser.dats" tmp424 = alt_parser_parser_01671_ats_ptr_type_ats_ptr_type (tmp425, tmp426) ; return (tmp424) ; } /* end of [__ats_fun_88] */ typedef struct { ats_fun_ptr_type closure_fun ; } __ats_fun_88_closure_type ; ats_ptr_type __ats_fun_88_clofun (ats_clo_ptr_type cloptr) { return __ats_fun_88 () ; } /* end of function */ ATSinline() ats_void_type __ats_fun_88_closure_init (__ats_fun_88_closure_type *p_clo) { p_clo->closure_fun = (ats_fun_ptr_type)&__ats_fun_88_clofun ; return ; } /* end of function */ ats_clo_ptr_type __ats_fun_88_closure_make () { __ats_fun_88_closure_type *p_clo = ATS_MALLOC(sizeof(__ats_fun_88_closure_type)) ; __ats_fun_88_closure_init (p_clo) ; return (ats_clo_ptr_type)p_clo ; } /* end of function */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 10987(line=462, offs=6) -- 11163(line=468, offs=6) */ ATSstaticdec() ats_ptr_type err_89 (ats_ptr_type arg0) { /* local vardec */ ATSlocal (ats_ptr_type, tmp428) ; // ATSlocal_void (tmp429) ; // ATSlocal_void (tmp430) ; // ATSlocal_void (tmp431) ; // ATSlocal_void (tmp432) ; __ats_lab_err_89: #line 463 "parser.dats" /* tmp429 = */ _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2PARCOMB_2posloc_2esats__prerr_location (arg0) ; #line 464 "parser.dats" /* tmp430 = */ atspre_prerr_string (ATSstrcst(": exit(TIGER)")) ; #line 465 "parser.dats" /* tmp431 = */ atspre_prerr_string (ATSstrcst(": parsing failure: unresolved fixity")) ; #line 466 "parser.dats" /* tmp432 = */ atspre_prerr_newline () ; #line 467 "parser.dats" /* tmp428 = */ _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2error_2esats__abort (1) ; return (tmp428) ; } /* end of [err_89] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 11183(line=470, offs=6) -- 11318(line=473, offs=42) */ ATSstaticdec() ats_ptr_type fixitm_loc_get_90 (ats_ptr_type arg0) { /* local vardec */ ATSlocal (ats_ptr_type, tmp433) ; ATSlocal (ats_ptr_type, tmp434) ; ATSlocal (ats_ptr_type, tmp435) ; __ats_lab_fixitm_loc_get_90: #line 471 "parser.dats" do { /* branch: __ats_lab_72 */ #line 472 "parser.dats" __ats_lab_72_0: #line 472 "parser.dats" if (((ats_sum_ptr_type)arg0)->tag != 0) { goto __ats_lab_73_0 ; } #line 472 "parser.dats" __ats_lab_72_1: #line 472 "parser.dats" tmp434 = ats_caselptr_mac(anairiats_sum_6, arg0, atslab_0) ; #line 472 "parser.dats" tmp433 = ats_selbox_mac(ats_castptr_mac(anairiats_rec_7, tmp434), atslab_exp_loc) ; break ; /* branch: __ats_lab_73 */ #line 473 "parser.dats" __ats_lab_73_0: #line 473 "parser.dats" // if (((ats_sum_ptr_type)arg0)->tag != 1) { ats_deadcode_failure_handle () ; } #line 473 "parser.dats" __ats_lab_73_1: #line 473 "parser.dats" tmp435 = ats_caselptr_mac(anairiats_sum_6, arg0, atslab_0) ; #line 473 "parser.dats" tmp433 = _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2fixity_2esats__fixopr_loc_get (tmp435) ; break ; } while (0) ; return (tmp433) ; } /* end of [fixitm_loc_get_90] */ /* // /home/fac2/hwxi/research/ATS/IMPLEMENT/Geizella/Anairiats/svn/ats-lang/prelude/DATS/list.dats: 49564(line=1707, offs=7) -- 49690(line=1709, offs=60) */ ATSstaticdec() ats_ptr_type loop_93 (ats_ptr_type arg0, ats_ptr_type arg1) { /* local vardec */ ATSlocal (ats_ptr_type, tmp445) ; ATSlocal (ats_ptr_type, tmp446) ; ATSlocal (ats_ptr_type, tmp447) ; __ats_lab_loop_93: #line 1708 "list.dats" do { /* branch: __ats_lab_77 */ #line 1709 "list.dats" __ats_lab_77_0: #line 1709 "list.dats" if (arg1 == (ats_sum_ptr_type)0) { goto __ats_lab_78_0 ; } #line 1709 "list.dats" __ats_lab_77_1: #line 1709 "list.dats" tmp446 = ats_caselptr_mac(anairiats_sum_2, arg1, atslab_0) ; #line 1709 "list.dats" tmp447 = ats_caselptr_mac(anairiats_sum_2, arg1, atslab_1) ; #line 1709 "list.dats" arg0 = tmp446 ; #line 1709 "list.dats" arg1 = tmp447 ; #line 1709 "list.dats" goto __ats_lab_loop_93 ; // tail call break ; /* branch: __ats_lab_78 */ #line 1709 "list.dats" __ats_lab_78_0: #line 1709 "list.dats" // if (arg1 != (ats_sum_ptr_type)0) { ats_deadcode_failure_handle () ; } #line 1709 "list.dats" __ats_lab_78_1: #line 1709 "list.dats" tmp445 = arg0 ; break ; } while (0) ; return (tmp445) ; } /* end of [loop_93] */ /* // /home/fac2/hwxi/research/ATS/IMPLEMENT/Geizella/Anairiats/svn/ats-lang/prelude/DATS/list.dats: 49527(line=1705, offs=11) -- 49742(line=1712, offs=2) */ ATSstaticdec() ats_ptr_type list_last_01475_ats_ptr_type (ats_ptr_type arg0) { /* local vardec */ ATSlocal (ats_ptr_type, tmp444) ; ATSlocal (ats_ptr_type, tmp448) ; ATSlocal (ats_ptr_type, tmp449) ; __ats_lab_list_last_01475_ats_ptr_type: #line 1711 "list.dats" // if (arg0 == (ats_sum_ptr_type)0) { ats_deadcode_failure_handle () ; } #line 1711 "list.dats" tmp448 = ats_caselptr_mac(anairiats_sum_2, arg0, atslab_0) ; #line 1711 "list.dats" tmp449 = ats_caselptr_mac(anairiats_sum_2, arg0, atslab_1) ; #line 1706 "list.dats" tmp444 = loop_93 (tmp448, tmp449) ; return (tmp444) ; } /* end of [list_last_01475_ats_ptr_type] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 11354(line=476, offs=6) -- 12000(line=495, offs=6) */ ATSstaticdec() ats_ptr_type f_91 (ats_ptr_type arg0) { /* local vardec */ ATSlocal (ats_ptr_type, tmp436) ; ATSlocal (ats_ptr_type, tmp437) ; ATSlocal (ats_ptr_type, tmp438) ; ATSlocal (ats_ptr_type, tmp439) ; ATSlocal (ats_ptr_type, tmp440) ; ATSlocal (ats_ptr_type, tmp441) ; ATSlocal (ats_ptr_type, tmp442) ; ATSlocal (ats_ptr_type, tmp443) ; ATSlocal (ats_ptr_type, tmp450) ; __ats_lab_f_91: #line 477 "parser.dats" tmp437 = _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2fixity_2esats__fixity_resolve (arg0) ; #line 479 "parser.dats" do { /* branch: __ats_lab_74 */ #line 480 "parser.dats" __ats_lab_74_0: #line 480 "parser.dats" if (tmp437 == (ats_sum_ptr_type)0) { goto __ats_lab_75_0 ; } #line 480 "parser.dats" __ats_lab_74_1: #line 480 "parser.dats" tmp438 = ats_caselptr_mac(anairiats_sum_3, tmp437, atslab_0) ; #line 480 "parser.dats" ATS_FREE(tmp437) ; #line 480 "parser.dats" tmp436 = tmp438 ; break ; /* branch: __ats_lab_75 */ #line 480 "parser.dats" __ats_lab_75_0: #line 480 "parser.dats" // if (tmp437 != (ats_sum_ptr_type)0) { ats_deadcode_failure_handle () ; } #line 480 "parser.dats" __ats_lab_75_1: #line 481 "parser.dats" // if (arg0 == (ats_sum_ptr_type)0) { ats_deadcode_failure_handle () ; } #line 481 "parser.dats" tmp439 = ats_caselptr_mac(anairiats_sum_2, arg0, atslab_0) ; #line 481 "parser.dats" tmp440 = ats_caselptr_mac(anairiats_sum_2, arg0, atslab_1) ; #line 482 "parser.dats" tmp441 = fixitm_loc_get_90 (tmp439) ; #line 483 "parser.dats" do { /* branch: __ats_lab_76 */ #line 484 "parser.dats" __ats_lab_76_0: #line 484 "parser.dats" if (tmp440 == (ats_sum_ptr_type)0) { goto __ats_lab_79_0 ; } #line 484 "parser.dats" __ats_lab_76_1: #line 485 "parser.dats" tmp443 = list_last_01475_ats_ptr_type (tmp440) ; #line 486 "parser.dats" tmp450 = fixitm_loc_get_90 (tmp443) ; #line 488 "parser.dats" tmp442 = _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2PARCOMB_2posloc_2esats__location_combine (tmp441, tmp450) ; break ; /* branch: __ats_lab_79 */ #line 490 "parser.dats" __ats_lab_79_0: #line 490 "parser.dats" // if (tmp440 != (ats_sum_ptr_type)0) { ats_deadcode_failure_handle () ; } #line 490 "parser.dats" __ats_lab_79_1: #line 490 "parser.dats" tmp442 = tmp441 ; break ; } while (0) ; #line 493 "parser.dats" tmp436 = err_89 (tmp442) ; break ; } while (0) ; return (tmp436) ; } /* end of [f_91] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/PARCOMB/parcomb.dats: 17737(line=483, offs=7) -- 18264(line=499, offs=6) */ ATSstaticdec() ats_void_type loop_99 (ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2, ats_ptr_type arg3, ats_ref_type arg4) { /* local vardec */ // ATSlocal_void (tmp461) ; ATSlocal (ats_ptr_type, tmp462) ; ATSlocal (ats_int_type, tmp463) ; ATSlocal (ats_ptr_type, tmp464) ; ATSlocal (ats_ptr_type, tmp465) ; ATSlocal (ats_ptr_type, tmp466) ; ATSlocal (ats_ptr_type, tmp467) ; ATSlocal (ats_ptr_type, tmp468) ; __ats_lab_loop_99: #line 486 "parcomb.dats" tmp462 = ats_ptrget_mac(ats_ptr_type, arg0) ; #line 486 "parcomb.dats" tmp463 = ats_ptrget_mac(ats_int_type, arg1) ; #line 486 "parcomb.dats" tmp464 = ((ats_ptr_type(*)(ats_clo_ptr_type, ats_ref_type, ats_ref_type, ats_ref_type))(ats_closure_fun(arg3))) (arg3, arg0, arg1, arg2) ; #line 488 "parcomb.dats" do { /* branch: __ats_lab_81 */ #line 489 "parcomb.dats" __ats_lab_81_0: #line 489 "parcomb.dats" if (tmp464 == (ats_sum_ptr_type)0) { goto __ats_lab_82_0 ; } #line 489 "parcomb.dats" __ats_lab_81_1: #line 489 "parcomb.dats" tmp465 = ats_caselptr_mac(anairiats_sum_3, tmp464, atslab_0) ; #line 489 "parcomb.dats" ATS_FREE(tmp464) ; #line 490 "parcomb.dats" tmp466 = ATS_MALLOC(sizeof(anairiats_sum_2)) ; ats_selptrset_mac(anairiats_sum_2, tmp466, atslab_0, tmp465) ; #line 490 "parcomb.dats" ats_ptrget_mac(ats_ptr_type, arg4) = tmp466 ; #line 491 "parcomb.dats" if (ats_ptrget_mac(ats_ptr_type, arg4) == (ats_sum_ptr_type)0) { ats_caseof_failure_handle ("/cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/PARCOMB/parcomb.dats: 18014(line=491, offs=13) -- 18045(line=491, offs=44)") ; } #line 491 "parcomb.dats" tmp467 = &ats_caselptr_mac(anairiats_sum_2, ats_ptrget_mac(ats_ptr_type, arg4), atslab_1) ; #line 492 "parcomb.dats" arg0 = arg0 ; #line 492 "parcomb.dats" arg1 = arg1 ; #line 492 "parcomb.dats" arg2 = arg2 ; #line 492 "parcomb.dats" arg3 = arg3 ; #line 492 "parcomb.dats" arg4 = tmp467 ; #line 492 "parcomb.dats" goto __ats_lab_loop_99 ; // tail call break ; /* branch: __ats_lab_82 */ #line 496 "parcomb.dats" __ats_lab_82_0: #line 496 "parcomb.dats" // if (tmp464 != (ats_sum_ptr_type)0) { ats_deadcode_failure_handle () ; } #line 496 "parcomb.dats" __ats_lab_82_1: #line 497 "parcomb.dats" ats_ptrget_mac(ats_ptr_type, arg0) = tmp462 ; #line 497 "parcomb.dats" ats_ptrget_mac(ats_int_type, arg1) = tmp463 ; #line 497 "parcomb.dats" tmp468 = (ats_sum_ptr_type)0 ; #line 497 "parcomb.dats" ats_ptrget_mac(ats_ptr_type, arg4) = tmp468 ; break ; } while (0) ; return /* (tmp461) */ ; } /* end of [loop_99] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/PARCOMB/parcomb.dats: 17681(line=481, offs=38) -- 18400(line=504, offs=4) */ ATSstaticdec() ats_ptr_type __ats_fun_98 (ats_clo_ref_type env0, ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2) { /* local vardec */ ATSlocal (ats_ptr_type, tmp460) ; ATSlocal (ats_ptr_type, tmp469) ; // ATSlocal_void (tmp470) ; __ats_lab___ats_fun_98: #line 500 "parcomb.dats" /* ats_ptr_type tmp469 ; */ #line 501 "parcomb.dats" /* tmp470 = */ loop_99 (arg0, arg1, arg2, env0, (&tmp469)) ; #line 503 "parcomb.dats" tmp460 = ATS_MALLOC(sizeof(anairiats_sum_3)) ; ats_selptrset_mac(anairiats_sum_3, tmp460, atslab_0, tmp469) ; return (tmp460) ; } /* end of [__ats_fun_98] */ typedef struct { ats_fun_ptr_type closure_fun ; ats_clo_ref_type closure_env_0 ; } __ats_fun_98_closure_type ; ats_ptr_type __ats_fun_98_clofun (ats_clo_ptr_type cloptr, ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2) { return __ats_fun_98 (((__ats_fun_98_closure_type*)cloptr)->closure_env_0, arg0, arg1, arg2) ; } /* end of function */ ATSinline() ats_void_type __ats_fun_98_closure_init (__ats_fun_98_closure_type *p_clo, ats_clo_ref_type env0) { p_clo->closure_fun = (ats_fun_ptr_type)&__ats_fun_98_clofun ; p_clo->closure_env_0 = env0 ; return ; } /* end of function */ ats_clo_ptr_type __ats_fun_98_closure_make (ats_clo_ref_type env0) { __ats_fun_98_closure_type *p_clo = ATS_MALLOC(sizeof(__ats_fun_98_closure_type)) ; __ats_fun_98_closure_init (p_clo, env0) ; return (ats_clo_ptr_type)p_clo ; } /* end of function */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/PARCOMB/parcomb.dats: 17675(line=481, offs=32) -- 18400(line=504, offs=4) */ ATSstaticdec() ats_ptr_type repeat0_parser_01696_ats_ptr_type_ats_ptr_type (ats_ptr_type arg0) { /* local vardec */ ATSlocal (ats_ptr_type, tmp459) ; __ats_lab_repeat0_parser_01696_ats_ptr_type_ats_ptr_type: #line 481 "parcomb.dats" tmp459 = __ats_fun_98_closure_make (arg0) ; return (tmp459) ; } /* end of [repeat0_parser_01696_ats_ptr_type_ats_ptr_type] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/PARCOMB/parcomb.dats: 18489(line=509, offs=24) -- 18735(line=517, offs=4) */ ATSstaticdec() ats_ptr_type __ats_fun_96 (ats_clo_ref_type env0, ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2) { /* local vardec */ ATSlocal (ats_ptr_type, tmp454) ; ATSlocal (ats_ptr_type, tmp455) ; ATSlocal (ats_ptr_type, tmp456) ; ATSlocal (ats_ptr_type, tmp457) ; ATSlocal (ats_clo_ref_type, tmp458) ; ATSlocal (ats_ptr_type, tmp471) ; ATSlocal (ats_ptr_type, tmp472) ; __ats_lab___ats_fun_96: #line 510 "parcomb.dats" tmp455 = ((ats_ptr_type(*)(ats_clo_ptr_type, ats_ref_type, ats_ref_type, ats_ref_type))(ats_closure_fun(env0))) (env0, arg0, arg1, arg2) ; #line 510 "parcomb.dats" do { /* branch: __ats_lab_80 */ #line 511 "parcomb.dats" __ats_lab_80_0: #line 511 "parcomb.dats" if (tmp455 == (ats_sum_ptr_type)0) { goto __ats_lab_83_0 ; } #line 511 "parcomb.dats" __ats_lab_80_1: #line 511 "parcomb.dats" tmp456 = ats_caselptr_mac(anairiats_sum_3, tmp455, atslab_0) ; #line 511 "parcomb.dats" ATS_FREE(tmp455) ; #line 512 "parcomb.dats" tmp458 = repeat0_parser_01696_ats_ptr_type_ats_ptr_type (env0) ; #line 512 "parcomb.dats" tmp457 = ((ats_ptr_type(*)(ats_clo_ptr_type, ats_ref_type, ats_ref_type, ats_ref_type))(ats_closure_fun(tmp458))) (tmp458, arg0, arg1, arg2) ; #line 512 "parcomb.dats" if (tmp457 == (ats_sum_ptr_type)0) { ats_caseof_failure_handle ("/cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/PARCOMB/parcomb.dats: 18592(line=512, offs=12) -- 18641(line=512, offs=61)") ; } #line 512 "parcomb.dats" tmp471 = ats_caselptr_mac(anairiats_sum_3, tmp457, atslab_0) ; #line 512 "parcomb.dats" ATS_FREE(tmp457) ; #line 514 "parcomb.dats" tmp472 = ATS_MALLOC(sizeof(anairiats_sum_2)) ; ats_selptrset_mac(anairiats_sum_2, tmp472, atslab_0, tmp456) ; ats_selptrset_mac(anairiats_sum_2, tmp472, atslab_1, tmp471) ; #line 514 "parcomb.dats" tmp454 = ATS_MALLOC(sizeof(anairiats_sum_3)) ; ats_selptrset_mac(anairiats_sum_3, tmp454, atslab_0, tmp472) ; break ; /* branch: __ats_lab_83 */ #line 516 "parcomb.dats" __ats_lab_83_0: #line 516 "parcomb.dats" // if (tmp455 != (ats_sum_ptr_type)0) { ats_deadcode_failure_handle () ; } #line 516 "parcomb.dats" __ats_lab_83_1: #line 516 "parcomb.dats" tmp454 = tmp455 ; break ; } while (0) ; return (tmp454) ; } /* end of [__ats_fun_96] */ typedef struct { ats_fun_ptr_type closure_fun ; ats_clo_ref_type closure_env_0 ; } __ats_fun_96_closure_type ; ats_ptr_type __ats_fun_96_clofun (ats_clo_ptr_type cloptr, ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2) { return __ats_fun_96 (((__ats_fun_96_closure_type*)cloptr)->closure_env_0, arg0, arg1, arg2) ; } /* end of function */ ATSinline() ats_void_type __ats_fun_96_closure_init (__ats_fun_96_closure_type *p_clo, ats_clo_ref_type env0) { p_clo->closure_fun = (ats_fun_ptr_type)&__ats_fun_96_clofun ; p_clo->closure_env_0 = env0 ; return ; } /* end of function */ ats_clo_ptr_type __ats_fun_96_closure_make (ats_clo_ref_type env0) { __ats_fun_96_closure_type *p_clo = ATS_MALLOC(sizeof(__ats_fun_96_closure_type)) ; __ats_fun_96_closure_init (p_clo, env0) ; return (ats_clo_ptr_type)p_clo ; } /* end of function */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/PARCOMB/parcomb.dats: 18483(line=509, offs=18) -- 18735(line=517, offs=4) */ ATSstaticdec() ats_ptr_type repeat1_parser_01697_ats_ptr_type_ats_ptr_type (ats_ptr_type arg0) { /* local vardec */ ATSlocal (ats_ptr_type, tmp453) ; __ats_lab_repeat1_parser_01697_ats_ptr_type_ats_ptr_type: #line 509 "parcomb.dats" tmp453 = __ats_fun_96_closure_make (arg0) ; return (tmp453) ; } /* end of [repeat1_parser_01697_ats_ptr_type_ats_ptr_type] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 10900(line=458, offs=25) -- 10946(line=459, offs=38) */ ATSstaticdec() ats_ptr_type __ats_fun_94 () { /* local vardec */ ATSlocal (ats_ptr_type, tmp451) ; ATSlocal (ats_ptr_type, tmp452) ; ATSlocal (ats_ptr_type, tmp473) ; __ats_lab___ats_fun_94: #line 459 "parser.dats" ats_instr_move_lazy_force_mac (tmp473, ats_ptr_type, statmp266) ; #line 459 "parser.dats" tmp452 = repeat1_parser_01697_ats_ptr_type_ats_ptr_type (tmp473) ; #line 459 "parser.dats" tmp451 = seq1wth_parser_fun_01673_ats_ptr_type_2cats_ptr_type_ats_ptr_type (tmp452, &f_91) ; return (tmp451) ; } /* end of [__ats_fun_94] */ typedef struct { ats_fun_ptr_type closure_fun ; } __ats_fun_94_closure_type ; ats_ptr_type __ats_fun_94_clofun (ats_clo_ptr_type cloptr) { return __ats_fun_94 () ; } /* end of function */ ATSinline() ats_void_type __ats_fun_94_closure_init (__ats_fun_94_closure_type *p_clo) { p_clo->closure_fun = (ats_fun_ptr_type)&__ats_fun_94_clofun ; return ; } /* end of function */ ats_clo_ptr_type __ats_fun_94_closure_make () { __ats_fun_94_closure_type *p_clo = ATS_MALLOC(sizeof(__ats_fun_94_closure_type)) ; __ats_fun_94_closure_init (p_clo) ; return (ats_clo_ptr_type)p_clo ; } /* end of function */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 12163(line=503, offs=6) -- 12354(line=508, offs=6) */ ATSstaticdec() ats_ptr_type f_100 (ats_ptr_type arg0, ats_ptr_type arg1) { /* local vardec */ ATSlocal (ats_ptr_type, tmp474) ; ATSlocal (ats_ptr_type, tmp475) ; ATSlocal (ats_ptr_type, tmp476) ; ATSlocal (ats_ptr_type, tmp477) ; ATSlocal (ats_ptr_type, tmp478) ; __ats_lab_f_100: #line 504 "parser.dats" tmp476 = ats_selbox_mac(ats_castptr_mac(anairiats_rec_4, arg0), atslab_token_loc) ; #line 504 "parser.dats" tmp477 = ats_selbox_mac(ats_castptr_mac(anairiats_rec_7, arg1), atslab_exp_loc) ; #line 504 "parser.dats" tmp475 = _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2PARCOMB_2posloc_2esats__location_combine (tmp476, tmp477) ; #line 505 "parser.dats" tmp478 = symbol_make_token_39 (arg0) ; #line 507 "parser.dats" tmp474 = _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2absyn_2esats__fieldexp_make (tmp475, tmp478, arg1) ; return (tmp474) ; } /* end of [f_100] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 12090(line=500, offs=32) -- 12147(line=501, offs=49) */ ATSstaticdec() ats_ptr_type __ats_fun_101 () { /* local vardec */ ATSlocal (ats_ptr_type, tmp479) ; ATSlocal (ats_ptr_type, tmp480) ; ATSlocal (ats_ptr_type, tmp481) ; __ats_lab___ats_fun_101: #line 501 "parser.dats" ats_instr_move_lazy_force_mac (tmp481, ats_ptr_type, statmp260) ; #line 501 "parser.dats" tmp480 = proj2_parser_parser_01690_ats_ptr_type_2cats_ptr_type_ats_ptr_type (statmp70, tmp481) ; #line 501 "parser.dats" tmp479 = seq2wth_parser_fun_01675_ats_ptr_type_2cats_ptr_type_2cats_ptr_type_ats_ptr_type (statmp94, tmp480, &f_100) ; return (tmp479) ; } /* end of [__ats_fun_101] */ typedef struct { ats_fun_ptr_type closure_fun ; } __ats_fun_101_closure_type ; ats_ptr_type __ats_fun_101_clofun (ats_clo_ptr_type cloptr) { return __ats_fun_101 () ; } /* end of function */ ATSinline() ats_void_type __ats_fun_101_closure_init (__ats_fun_101_closure_type *p_clo) { p_clo->closure_fun = (ats_fun_ptr_type)&__ats_fun_101_clofun ; return ; } /* end of function */ ats_clo_ptr_type __ats_fun_101_closure_make () { __ats_fun_101_closure_type *p_clo = ATS_MALLOC(sizeof(__ats_fun_101_closure_type)) ; __ats_fun_101_closure_init (p_clo) ; return (ats_clo_ptr_type)p_clo ; } /* end of function */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 12435(line=512, offs=3) -- 12483(line=512, offs=51) */ ATSstaticdec() ats_ptr_type __ats_fun_102 () { /* local vardec */ ATSlocal (ats_ptr_type, tmp482) ; ATSlocal (ats_ptr_type, tmp483) ; __ats_lab___ats_fun_102: #line 512 "parser.dats" ats_instr_move_lazy_force_mac (tmp483, ats_ptr_type, statmp268) ; #line 512 "parser.dats" tmp482 = repeat0_sep_parser_01698_ats_ptr_type_2cats_ptr_type_ats_ptr_type (tmp483, statmp39) ; return (tmp482) ; } /* end of [__ats_fun_102] */ typedef struct { ats_fun_ptr_type closure_fun ; } __ats_fun_102_closure_type ; ats_ptr_type __ats_fun_102_clofun (ats_clo_ptr_type cloptr) { return __ats_fun_102 () ; } /* end of function */ ATSinline() ats_void_type __ats_fun_102_closure_init (__ats_fun_102_closure_type *p_clo) { p_clo->closure_fun = (ats_fun_ptr_type)&__ats_fun_102_clofun ; return ; } /* end of function */ ats_clo_ptr_type __ats_fun_102_closure_make () { __ats_fun_102_closure_type *p_clo = ATS_MALLOC(sizeof(__ats_fun_102_closure_type)) ; __ats_fun_102_closure_init (p_clo) ; return (ats_clo_ptr_type)p_clo ; } /* end of function */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 12615(line=517, offs=6) -- 12919(line=525, offs=6) */ ATSstaticdec() ats_ptr_type f_RecordExp_103 (ats_ptr_type arg0, ats_ptr_type arg1, ats_ptr_type arg2) { /* local vardec */ ATSlocal (ats_ptr_type, tmp484) ; ATSlocal (ats_ptr_type, tmp485) ; ATSlocal (ats_ptr_type, tmp486) ; ATSlocal (ats_ptr_type, tmp487) ; ATSlocal (ats_ptr_type, tmp488) ; ATSlocal (ats_ptr_type, tmp489) ; __ats_lab_f_RecordExp_103: #line 519 "parser.dats" tmp485 = ats_selbox_mac(ats_castptr_mac(anairiats_rec_4, arg0), atslab_token_loc) ; #line 520 "parser.dats" tmp487 = ats_selbox_mac(ats_castptr_mac(anairiats_rec_4, arg2), atslab_token_loc) ; #line 520 "parser.dats" tmp486 = _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2PARCOMB_2posloc_2esats__location_combine (tmp485, tmp487) ; #line 521 "parser.dats" tmp488 = symbol_make_token_39 (arg0) ; #line 522 "parser.dats" tmp489 = _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2absyn_2esats__NameTyp_make (tmp485, tmp488) ; #line 524 "parser.dats" tmp484 = _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2absyn_2esats__RecordExp_make (tmp486, arg1, tmp489) ; return (tmp484) ; } /* end of [f_RecordExp_103] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 12513(line=514, offs=28) -- 12599(line=515, offs=60) */ ATSstaticdec() ats_ptr_type __ats_fun_104 () { /* local vardec */ ATSlocal (ats_ptr_type, tmp490) ; ATSlocal (ats_ptr_type, tmp491) ; ATSlocal (ats_ptr_type, tmp492) ; __ats_lab___ats_fun_104: #line 515 "parser.dats" ats_instr_move_lazy_force_mac (tmp492, ats_ptr_type, statmp269) ; #line 515 "parser.dats" tmp491 = proj2_parser_parser_01690_ats_ptr_type_2cats_ptr_type_ats_ptr_type (statmp37, tmp492) ; #line 514 "parser.dats" tmp490 = seq3wth_parser_fun_01677_ats_ptr_type_2cats_ptr_type_2cats_ptr_type_2cats_ptr_type_ats_ptr_type (statmp94, tmp491, statmp38, &f_RecordExp_103) ; return (tmp490) ; } /* end of [__ats_fun_104] */ typedef struct { ats_fun_ptr_type closure_fun ; } __ats_fun_104_closure_type ; ats_ptr_type __ats_fun_104_clofun (ats_clo_ptr_type cloptr) { return __ats_fun_104 () ; } /* end of function */ ATSinline() ats_void_type __ats_fun_104_closure_init (__ats_fun_104_closure_type *p_clo) { p_clo->closure_fun = (ats_fun_ptr_type)&__ats_fun_104_clofun ; return ; } /* end of function */ ats_clo_ptr_type __ats_fun_104_closure_make () { __ats_fun_104_closure_type *p_clo = ATS_MALLOC(sizeof(__ats_fun_104_closure_type)) ; __ats_fun_104_closure_init (p_clo) ; return (ats_clo_ptr_type)p_clo ; } /* end of function */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 13092(line=533, offs=8) -- 13229(line=537, offs=8) */ ATSstaticdec() ats_ptr_type f_106 (ats_ptr_type arg0, ats_ptr_type arg1) { /* local vardec */ ATSlocal (ats_ptr_type, tmp494) ; ATSlocal (ats_ptr_type, tmp495) ; ATSlocal (ats_ptr_type, tmp496) ; ATSlocal (ats_ptr_type, tmp497) ; __ats_lab_f_106: #line 534 "parser.dats" tmp496 = ats_selbox_mac(ats_castptr_mac(anairiats_rec_11, arg0), atslab_v1ar_loc) ; #line 534 "parser.dats" tmp497 = ats_selbox_mac(ats_castptr_mac(anairiats_rec_7, arg1), atslab_exp_loc) ; #line 534 "parser.dats" tmp495 = _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2PARCOMB_2posloc_2esats__location_combine (tmp496, tmp497) ; #line 536 "parser.dats" tmp494 = _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2absyn_2esats__AssignExp_make (tmp495, arg0, arg1) ; return (tmp494) ; } /* end of [f_106] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 13010(line=530, offs=28) -- 13247(line=538, offs=4) */ ATSstaticdec() ats_ptr_type __ats_fun_105 () { /* local vardec */ ATSlocal (ats_ptr_type, tmp493) ; ATSlocal (ats_ptr_type, tmp498) ; ATSlocal (ats_ptr_type, tmp499) ; ATSlocal (ats_ptr_type, tmp500) ; __ats_lab___ats_fun_105: #line 532 "parser.dats" ats_instr_move_lazy_force_mac (tmp498, ats_ptr_type, statmp263) ; #line 532 "parser.dats" ats_instr_move_lazy_force_mac (tmp500, ats_ptr_type, statmp260) ; #line 532 "parser.dats" tmp499 = proj2_parser_parser_01690_ats_ptr_type_2cats_ptr_type_ats_ptr_type (statmp72, tmp500) ; #line 531 "parser.dats" tmp493 = seq2wth_parser_fun_01675_ats_ptr_type_2cats_ptr_type_2cats_ptr_type_ats_ptr_type (tmp498, tmp499, &f_106) ; return (tmp493) ; } /* end of [__ats_fun_105] */ typedef struct { ats_fun_ptr_type closure_fun ; } __ats_fun_105_closure_type ; ats_ptr_type __ats_fun_105_clofun (ats_clo_ptr_type cloptr) { return __ats_fun_105 () ; } /* end of function */ ATSinline() ats_void_type __ats_fun_105_closure_init (__ats_fun_105_closure_type *p_clo) { p_clo->closure_fun = (ats_fun_ptr_type)&__ats_fun_105_clofun ; return ; } /* end of function */ ats_clo_ptr_type __ats_fun_105_closure_make () { __ats_fun_105_closure_type *p_clo = ATS_MALLOC(sizeof(__ats_fun_105_closure_type)) ; __ats_fun_105_closure_init (p_clo) ; return (ats_clo_ptr_type)p_clo ; } /* end of function */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 13437(line=546, offs=6) -- 13741(line=554, offs=6) */ ATSstaticdec() ats_ptr_type f_ArrayExp_107 (ats_ptr_type arg0, ats_ptr_type arg1, ats_ptr_type arg2) { /* local vardec */ ATSlocal (ats_ptr_type, tmp501) ; ATSlocal (ats_ptr_type, tmp502) ; ATSlocal (ats_ptr_type, tmp503) ; ATSlocal (ats_ptr_type, tmp504) ; ATSlocal (ats_ptr_type, tmp505) ; ATSlocal (ats_ptr_type, tmp506) ; __ats_lab_f_ArrayExp_107: #line 548 "parser.dats" tmp502 = ats_selbox_mac(ats_castptr_mac(anairiats_rec_4, arg0), atslab_token_loc) ; #line 549 "parser.dats" tmp504 = ats_selbox_mac(ats_castptr_mac(anairiats_rec_7, arg2), atslab_exp_loc) ; #line 549 "parser.dats" tmp503 = _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2PARCOMB_2posloc_2esats__location_combine (tmp502, tmp504) ; #line 550 "parser.dats" tmp505 = symbol_make_token_39 (arg0) ; #line 551 "parser.dats" tmp506 = _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2absyn_2esats__NameTyp_make (tmp502, tmp505) ; #line 553 "parser.dats" tmp501 = _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2absyn_2esats__ArrayExp_make (tmp503, tmp506, arg1, arg2) ; return (tmp501) ; } /* end of [f_ArrayExp_107] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/PARCOMB/parcomb.dats: 14852(line=388, offs=34) -- 15151(line=398, offs=4) */ ATSstaticdec() ats_ptr_type __ats_fun_110 (ats_clo_ref_type env0, ats_clo_ref_type env1, ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2) { /* local vardec */ ATSlocal (ats_ptr_type, tmp511) ; ATSlocal (ats_ptr_type, tmp512) ; ATSlocal (ats_ptr_type, tmp513) ; __ats_lab___ats_fun_110: #line 389 "parcomb.dats" tmp512 = ((ats_ptr_type(*)(ats_clo_ptr_type, ats_ref_type, ats_ref_type, ats_ref_type))(ats_closure_fun(env0))) (env0, arg0, arg1, arg2) ; #line 391 "parcomb.dats" do { /* branch: __ats_lab_84 */ #line 392 "parcomb.dats" __ats_lab_84_0: #line 392 "parcomb.dats" if (tmp512 == (ats_sum_ptr_type)0) { goto __ats_lab_87_0 ; } #line 392 "parcomb.dats" __ats_lab_84_1: #line 393 "parcomb.dats" tmp513 = ((ats_ptr_type(*)(ats_clo_ptr_type, ats_ref_type, ats_ref_type, ats_ref_type))(ats_closure_fun(env1))) (env1, arg0, arg1, arg2) ; #line 393 "parcomb.dats" do { /* branch: __ats_lab_85 */ #line 394 "parcomb.dats" __ats_lab_85_0: #line 394 "parcomb.dats" if (tmp513 == (ats_sum_ptr_type)0) { goto __ats_lab_86_0 ; } #line 394 "parcomb.dats" __ats_lab_85_1: #line 394 "parcomb.dats" ATS_FREE(tmp513) ; #line 394 "parcomb.dats" tmp511 = tmp512 ; break ; /* branch: __ats_lab_86 */ #line 395 "parcomb.dats" __ats_lab_86_0: #line 395 "parcomb.dats" // if (tmp513 != (ats_sum_ptr_type)0) { ats_deadcode_failure_handle () ; } #line 395 "parcomb.dats" __ats_lab_86_1: #line 395 "parcomb.dats" ATS_FREE(tmp512) ; #line 395 "parcomb.dats" tmp511 = tmp513 ; break ; } while (0) ; break ; /* branch: __ats_lab_87 */ #line 397 "parcomb.dats" __ats_lab_87_0: #line 397 "parcomb.dats" // if (tmp512 != (ats_sum_ptr_type)0) { ats_deadcode_failure_handle () ; } #line 397 "parcomb.dats" __ats_lab_87_1: #line 397 "parcomb.dats" tmp511 = tmp512 ; break ; } while (0) ; return (tmp511) ; } /* end of [__ats_fun_110] */ typedef struct { ats_fun_ptr_type closure_fun ; ats_clo_ref_type closure_env_0 ; ats_clo_ref_type closure_env_1 ; } __ats_fun_110_closure_type ; ats_ptr_type __ats_fun_110_clofun (ats_clo_ptr_type cloptr, ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2) { return __ats_fun_110 (((__ats_fun_110_closure_type*)cloptr)->closure_env_0, ((__ats_fun_110_closure_type*)cloptr)->closure_env_1, arg0, arg1, arg2) ; } /* end of function */ ATSinline() ats_void_type __ats_fun_110_closure_init (__ats_fun_110_closure_type *p_clo, ats_clo_ref_type env0, ats_clo_ref_type env1) { p_clo->closure_fun = (ats_fun_ptr_type)&__ats_fun_110_clofun ; p_clo->closure_env_0 = env0 ; p_clo->closure_env_1 = env1 ; return ; } /* end of function */ ats_clo_ptr_type __ats_fun_110_closure_make (ats_clo_ref_type env0, ats_clo_ref_type env1) { __ats_fun_110_closure_type *p_clo = ATS_MALLOC(sizeof(__ats_fun_110_closure_type)) ; __ats_fun_110_closure_init (p_clo, env0, env1) ; return (ats_clo_ptr_type)p_clo ; } /* end of function */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/PARCOMB/parcomb.dats: 14841(line=388, offs=23) -- 15151(line=398, offs=4) */ ATSstaticdec() ats_ptr_type proj1_parser_parser_01689_ats_ptr_type_2cats_ptr_type_ats_ptr_type (ats_ptr_type arg0, ats_ptr_type arg1) { /* local vardec */ ATSlocal (ats_ptr_type, tmp510) ; __ats_lab_proj1_parser_parser_01689_ats_ptr_type_2cats_ptr_type_ats_ptr_type: #line 388 "parcomb.dats" tmp510 = __ats_fun_110_closure_make (arg0, arg1) ; return (tmp510) ; } /* end of [proj1_parser_parser_01689_ats_ptr_type_2cats_ptr_type_ats_ptr_type] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 13323(line=543, offs=27) -- 13421(line=544, offs=72) */ ATSstaticdec() ats_ptr_type __ats_fun_108 () { /* local vardec */ ATSlocal (ats_ptr_type, tmp507) ; ATSlocal (ats_ptr_type, tmp508) ; ATSlocal (ats_ptr_type, tmp509) ; ATSlocal (ats_ptr_type, tmp514) ; ATSlocal (ats_ptr_type, tmp515) ; ATSlocal (ats_ptr_type, tmp516) ; __ats_lab___ats_fun_108: #line 544 "parser.dats" ats_instr_move_lazy_force_mac (tmp514, ats_ptr_type, statmp260) ; #line 544 "parser.dats" tmp509 = proj1_parser_parser_01689_ats_ptr_type_2cats_ptr_type_ats_ptr_type (tmp514, statmp36) ; #line 544 "parser.dats" tmp508 = proj2_parser_parser_01690_ats_ptr_type_2cats_ptr_type_ats_ptr_type (statmp35, tmp509) ; #line 544 "parser.dats" ats_instr_move_lazy_force_mac (tmp516, ats_ptr_type, statmp260) ; #line 544 "parser.dats" tmp515 = proj2_parser_parser_01690_ats_ptr_type_2cats_ptr_type_ats_ptr_type (statmp57, tmp516) ; #line 543 "parser.dats" tmp507 = seq3wth_parser_fun_01677_ats_ptr_type_2cats_ptr_type_2cats_ptr_type_2cats_ptr_type_ats_ptr_type (statmp94, tmp508, tmp515, &f_ArrayExp_107) ; return (tmp507) ; } /* end of [__ats_fun_108] */ typedef struct { ats_fun_ptr_type closure_fun ; } __ats_fun_108_closure_type ; ats_ptr_type __ats_fun_108_clofun (ats_clo_ptr_type cloptr) { return __ats_fun_108 () ; } /* end of function */ ATSinline() ats_void_type __ats_fun_108_closure_init (__ats_fun_108_closure_type *p_clo) { p_clo->closure_fun = (ats_fun_ptr_type)&__ats_fun_108_clofun ; return ; } /* end of function */ ats_clo_ptr_type __ats_fun_108_closure_make () { __ats_fun_108_closure_type *p_clo = ATS_MALLOC(sizeof(__ats_fun_108_closure_type)) ; __ats_fun_108_closure_init (p_clo) ; return (ats_clo_ptr_type)p_clo ; } /* end of function */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 13944(line=562, offs=6) -- 14214(line=569, offs=6) */ ATSstaticdec() ats_ptr_type f_IfExp_111 (ats_ptr_type arg0, ats_ptr_type arg1, ats_ptr_type arg2, ats_ptr_type arg3) { /* local vardec */ ATSlocal (ats_ptr_type, tmp517) ; ATSlocal (ats_ptr_type, tmp518) ; ATSlocal (ats_ptr_type, tmp519) ; ATSlocal (ats_ptr_type, tmp520) ; ATSlocal (ats_ptr_type, tmp521) ; ATSlocal (ats_ptr_type, tmp522) ; ATSlocal (ats_ptr_type, tmp523) ; __ats_lab_f_IfExp_111: #line 564 "parser.dats" do { /* branch: __ats_lab_88 */ #line 565 "parser.dats" __ats_lab_88_0: #line 565 "parser.dats" if (arg3 == (ats_sum_ptr_type)0) { goto __ats_lab_89_0 ; } #line 565 "parser.dats" __ats_lab_88_1: #line 565 "parser.dats" tmp519 = ats_caselptr_mac(anairiats_sum_3, arg3, atslab_0) ; #line 565 "parser.dats" tmp520 = ats_selbox_mac(ats_castptr_mac(anairiats_rec_4, arg0), atslab_token_loc) ; #line 565 "parser.dats" tmp521 = ats_selbox_mac(ats_castptr_mac(anairiats_rec_7, tmp519), atslab_exp_loc) ; #line 565 "parser.dats" tmp518 = _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2PARCOMB_2posloc_2esats__location_combine (tmp520, tmp521) ; break ; /* branch: __ats_lab_89 */ #line 566 "parser.dats" __ats_lab_89_0: #line 566 "parser.dats" // if (arg3 != (ats_sum_ptr_type)0) { ats_deadcode_failure_handle () ; } #line 566 "parser.dats" __ats_lab_89_1: #line 566 "parser.dats" tmp522 = ats_selbox_mac(ats_castptr_mac(anairiats_rec_4, arg0), atslab_token_loc) ; #line 566 "parser.dats" tmp523 = ats_selbox_mac(ats_castptr_mac(anairiats_rec_7, arg2), atslab_exp_loc) ; #line 566 "parser.dats" tmp518 = _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2PARCOMB_2posloc_2esats__location_combine (tmp522, tmp523) ; break ; } while (0) ; #line 568 "parser.dats" tmp517 = _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2absyn_2esats__IfExp_make (tmp518, arg1, arg2, arg3) ; return (tmp517) ; } /* end of [f_IfExp_111] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/PARCOMB/parcomb.dats: 17334(line=469, offs=25) -- 17593(line=477, offs=4) */ ATSstaticdec() ats_ptr_type __ats_fun_114 (ats_clo_ref_type env0, ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2) { /* local vardec */ ATSlocal (ats_ptr_type, tmp530) ; ATSlocal (ats_ptr_type, tmp531) ; ATSlocal (ats_int_type, tmp532) ; ATSlocal (ats_ptr_type, tmp533) ; ATSlocal (ats_ptr_type, tmp534) ; ATSlocal (ats_ptr_type, tmp535) ; ATSlocal (ats_ptr_type, tmp536) ; __ats_lab___ats_fun_114: #line 470 "parcomb.dats" tmp531 = ats_ptrget_mac(ats_ptr_type, arg0) ; #line 470 "parcomb.dats" tmp532 = ats_ptrget_mac(ats_int_type, arg1) ; #line 470 "parcomb.dats" tmp533 = ((ats_ptr_type(*)(ats_clo_ptr_type, ats_ref_type, ats_ref_type, ats_ref_type))(ats_closure_fun(env0))) (env0, arg0, arg1, arg2) ; #line 472 "parcomb.dats" do { /* branch: __ats_lab_90 */ #line 473 "parcomb.dats" __ats_lab_90_0: #line 473 "parcomb.dats" if (tmp533 == (ats_sum_ptr_type)0) { goto __ats_lab_91_0 ; } #line 473 "parcomb.dats" __ats_lab_90_1: #line 473 "parcomb.dats" tmp534 = ats_caselptr_mac(anairiats_sum_3, tmp533, atslab_0) ; #line 473 "parcomb.dats" ATS_FREE(tmp533) ; #line 473 "parcomb.dats" tmp535 = ATS_MALLOC(sizeof(anairiats_sum_3)) ; ats_selptrset_mac(anairiats_sum_3, tmp535, atslab_0, tmp534) ; #line 473 "parcomb.dats" tmp530 = ATS_MALLOC(sizeof(anairiats_sum_3)) ; ats_selptrset_mac(anairiats_sum_3, tmp530, atslab_0, tmp535) ; break ; /* branch: __ats_lab_91 */ #line 474 "parcomb.dats" __ats_lab_91_0: #line 474 "parcomb.dats" // if (tmp533 != (ats_sum_ptr_type)0) { ats_deadcode_failure_handle () ; } #line 474 "parcomb.dats" __ats_lab_91_1: #line 475 "parcomb.dats" ats_ptrget_mac(ats_ptr_type, arg0) = tmp531 ; #line 475 "parcomb.dats" ats_ptrget_mac(ats_int_type, arg1) = tmp532 ; #line 475 "parcomb.dats" tmp536 = (ats_sum_ptr_type)0 ; #line 475 "parcomb.dats" tmp530 = ATS_MALLOC(sizeof(anairiats_sum_3)) ; ats_selptrset_mac(anairiats_sum_3, tmp530, atslab_0, tmp536) ; break ; } while (0) ; return (tmp530) ; } /* end of [__ats_fun_114] */ typedef struct { ats_fun_ptr_type closure_fun ; ats_clo_ref_type closure_env_0 ; } __ats_fun_114_closure_type ; ats_ptr_type __ats_fun_114_clofun (ats_clo_ptr_type cloptr, ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2) { return __ats_fun_114 (((__ats_fun_114_closure_type*)cloptr)->closure_env_0, arg0, arg1, arg2) ; } /* end of function */ ATSinline() ats_void_type __ats_fun_114_closure_init (__ats_fun_114_closure_type *p_clo, ats_clo_ref_type env0) { p_clo->closure_fun = (ats_fun_ptr_type)&__ats_fun_114_clofun ; p_clo->closure_env_0 = env0 ; return ; } /* end of function */ ats_clo_ptr_type __ats_fun_114_closure_make (ats_clo_ref_type env0) { __ats_fun_114_closure_type *p_clo = ATS_MALLOC(sizeof(__ats_fun_114_closure_type)) ; __ats_fun_114_closure_init (p_clo, env0) ; return (ats_clo_ptr_type)p_clo ; } /* end of function */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/PARCOMB/parcomb.dats: 17328(line=469, offs=19) -- 17593(line=477, offs=4) */ ATSstaticdec() ats_ptr_type optional_parser_01695_ats_ptr_type_ats_ptr_type (ats_ptr_type arg0) { /* local vardec */ ATSlocal (ats_ptr_type, tmp529) ; __ats_lab_optional_parser_01695_ats_ptr_type_ats_ptr_type: #line 469 "parcomb.dats" tmp529 = __ats_fun_114_closure_make (arg0) ; return (tmp529) ; } /* end of [optional_parser_01695_ats_ptr_type_ats_ptr_type] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 13839(line=559, offs=24) -- 13928(line=560, offs=63) */ ATSstaticdec() ats_ptr_type __ats_fun_112 () { /* local vardec */ ATSlocal (ats_ptr_type, tmp524) ; ATSlocal (ats_ptr_type, tmp525) ; ATSlocal (ats_ptr_type, tmp526) ; ATSlocal (ats_ptr_type, tmp527) ; ATSlocal (ats_ptr_type, tmp528) ; ATSlocal (ats_ptr_type, tmp537) ; ATSlocal (ats_ptr_type, tmp538) ; __ats_lab___ats_fun_112: #line 560 "parser.dats" ats_instr_move_lazy_force_mac (tmp525, ats_ptr_type, statmp260) ; #line 560 "parser.dats" ats_instr_move_lazy_force_mac (tmp527, ats_ptr_type, statmp260) ; #line 560 "parser.dats" tmp526 = proj2_parser_parser_01690_ats_ptr_type_2cats_ptr_type_ats_ptr_type (statmp60, tmp527) ; #line 560 "parser.dats" ats_instr_move_lazy_force_mac (tmp538, ats_ptr_type, statmp260) ; #line 560 "parser.dats" tmp537 = proj2_parser_parser_01690_ats_ptr_type_2cats_ptr_type_ats_ptr_type (statmp49, tmp538) ; #line 560 "parser.dats" tmp528 = optional_parser_01695_ats_ptr_type_ats_ptr_type (tmp537) ; #line 559 "parser.dats" tmp524 = seq4wth_parser_fun_01679_ats_ptr_type_2cats_ptr_type_2cats_ptr_type_2cats_ptr_type_2cats_ptr_type_ats_ptr_type (statmp53, tmp525, tmp526, tmp528, &f_IfExp_111) ; return (tmp524) ; } /* end of [__ats_fun_112] */ typedef struct { ats_fun_ptr_type closure_fun ; } __ats_fun_112_closure_type ; ats_ptr_type __ats_fun_112_clofun (ats_clo_ptr_type cloptr) { return __ats_fun_112 () ; } /* end of function */ ATSinline() ats_void_type __ats_fun_112_closure_init (__ats_fun_112_closure_type *p_clo) { p_clo->closure_fun = (ats_fun_ptr_type)&__ats_fun_112_clofun ; return ; } /* end of function */ ats_clo_ptr_type __ats_fun_112_closure_make () { __ats_fun_112_closure_type *p_clo = ATS_MALLOC(sizeof(__ats_fun_112_closure_type)) ; __ats_fun_112_closure_init (p_clo) ; return (ats_clo_ptr_type)p_clo ; } /* end of function */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 14399(line=578, offs=6) -- 14589(line=583, offs=6) */ ATSstaticdec() ats_ptr_type f_WhileExp_115 (ats_ptr_type arg0, ats_ptr_type arg1, ats_ptr_type arg2) { /* local vardec */ ATSlocal (ats_ptr_type, tmp539) ; ATSlocal (ats_ptr_type, tmp540) ; ATSlocal (ats_ptr_type, tmp541) ; ATSlocal (ats_ptr_type, tmp542) ; __ats_lab_f_WhileExp_115: #line 580 "parser.dats" tmp541 = ats_selbox_mac(ats_castptr_mac(anairiats_rec_4, arg0), atslab_token_loc) ; #line 580 "parser.dats" tmp542 = ats_selbox_mac(ats_castptr_mac(anairiats_rec_7, arg2), atslab_exp_loc) ; #line 580 "parser.dats" tmp540 = _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2PARCOMB_2posloc_2esats__location_combine (tmp541, tmp542) ; #line 582 "parser.dats" tmp539 = _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2absyn_2esats__WhileExp_make (tmp540, arg1, arg2) ; return (tmp539) ; } /* end of [f_WhileExp_115] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 14306(line=574, offs=27) -- 14383(line=576, offs=48) */ ATSstaticdec() ats_ptr_type __ats_fun_116 () { /* local vardec */ ATSlocal (ats_ptr_type, tmp543) ; ATSlocal (ats_ptr_type, tmp544) ; ATSlocal (ats_ptr_type, tmp545) ; ATSlocal (ats_ptr_type, tmp546) ; __ats_lab___ats_fun_116: #line 576 "parser.dats" ats_instr_move_lazy_force_mac (tmp544, ats_ptr_type, statmp260) ; #line 576 "parser.dats" ats_instr_move_lazy_force_mac (tmp546, ats_ptr_type, statmp260) ; #line 576 "parser.dats" tmp545 = proj2_parser_parser_01690_ats_ptr_type_2cats_ptr_type_ats_ptr_type (statmp48, tmp546) ; #line 575 "parser.dats" tmp543 = seq3wth_parser_fun_01677_ats_ptr_type_2cats_ptr_type_2cats_ptr_type_2cats_ptr_type_ats_ptr_type (statmp62, tmp544, tmp545, &f_WhileExp_115) ; return (tmp543) ; } /* end of [__ats_fun_116] */ typedef struct { ats_fun_ptr_type closure_fun ; } __ats_fun_116_closure_type ; ats_ptr_type __ats_fun_116_clofun (ats_clo_ptr_type cloptr) { return __ats_fun_116 () ; } /* end of function */ ATSinline() ats_void_type __ats_fun_116_closure_init (__ats_fun_116_closure_type *p_clo) { p_clo->closure_fun = (ats_fun_ptr_type)&__ats_fun_116_clofun ; return ; } /* end of function */ ats_clo_ptr_type __ats_fun_116_closure_make () { __ats_fun_116_closure_type *p_clo = ATS_MALLOC(sizeof(__ats_fun_116_closure_type)) ; __ats_fun_116_closure_init (p_clo) ; return (ats_clo_ptr_type)p_clo ; } /* end of function */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 14822(line=596, offs=6) -- 15094(line=604, offs=6) */ ATSstaticdec() ats_ptr_type f_ForExp_117 (ats_ptr_type arg0, ats_ptr_type arg1, ats_ptr_type arg2, ats_ptr_type arg3, ats_ptr_type arg4) { /* local vardec */ ATSlocal (ats_ptr_type, tmp547) ; ATSlocal (ats_ptr_type, tmp548) ; ATSlocal (ats_ptr_type, tmp549) ; ATSlocal (ats_ptr_type, tmp550) ; ATSlocal (ats_ptr_type, tmp551) ; __ats_lab_f_ForExp_117: #line 600 "parser.dats" tmp549 = ats_selbox_mac(ats_castptr_mac(anairiats_rec_4, arg0), atslab_token_loc) ; #line 600 "parser.dats" tmp550 = ats_selbox_mac(ats_castptr_mac(anairiats_rec_7, arg4), atslab_exp_loc) ; #line 600 "parser.dats" tmp548 = _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2PARCOMB_2posloc_2esats__location_combine (tmp549, tmp550) ; #line 601 "parser.dats" tmp551 = symbol_make_token_39 (arg1) ; #line 603 "parser.dats" tmp547 = _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2absyn_2esats__ForExp_make (tmp548, tmp551, arg2, arg3, arg4) ; return (tmp547) ; } /* end of [f_ForExp_117] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/PARCOMB/parcomb.dats: 6571(line=200, offs=48) -- 7243(line=215, offs=4) */ ATSstaticdec() ats_ptr_type __ats_fun_120 (ats_clo_ref_type env0, ats_clo_ref_type env1, ats_clo_ref_type env2, ats_clo_ref_type env3, ats_clo_ref_type env4, ats_ptr_type env5, ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2) { /* local vardec */ ATSlocal (ats_ptr_type, tmp554) ; ATSlocal (ats_ptr_type, tmp555) ; ATSlocal (ats_ptr_type, tmp556) ; ATSlocal (ats_ptr_type, tmp557) ; ATSlocal (ats_ptr_type, tmp558) ; ATSlocal (ats_ptr_type, tmp559) ; ATSlocal (ats_ptr_type, tmp560) ; ATSlocal (ats_ptr_type, tmp561) ; ATSlocal (ats_ptr_type, tmp562) ; ATSlocal (ats_ptr_type, tmp563) ; ATSlocal (ats_ptr_type, tmp564) ; ATSlocal (ats_ptr_type, tmp565) ; __ats_lab___ats_fun_120: #line 201 "parcomb.dats" tmp555 = ((ats_ptr_type(*)(ats_clo_ptr_type, ats_ref_type, ats_ref_type, ats_ref_type))(ats_closure_fun(env0))) (env0, arg0, arg1, arg2) ; #line 201 "parcomb.dats" do { /* branch: __ats_lab_92 */ #line 202 "parcomb.dats" __ats_lab_92_0: #line 202 "parcomb.dats" if (tmp555 == (ats_sum_ptr_type)0) { goto __ats_lab_101_0 ; } #line 202 "parcomb.dats" __ats_lab_92_1: #line 202 "parcomb.dats" tmp556 = ats_caselptr_mac(anairiats_sum_3, tmp555, atslab_0) ; #line 202 "parcomb.dats" ATS_FREE(tmp555) ; #line 202 "parcomb.dats" tmp557 = ((ats_ptr_type(*)(ats_clo_ptr_type, ats_ref_type, ats_ref_type, ats_ref_type))(ats_closure_fun(env1))) (env1, arg0, arg1, arg2) ; #line 202 "parcomb.dats" do { /* branch: __ats_lab_93 */ #line 203 "parcomb.dats" __ats_lab_93_0: #line 203 "parcomb.dats" if (tmp557 == (ats_sum_ptr_type)0) { goto __ats_lab_100_0 ; } #line 203 "parcomb.dats" __ats_lab_93_1: #line 203 "parcomb.dats" tmp558 = ats_caselptr_mac(anairiats_sum_3, tmp557, atslab_0) ; #line 203 "parcomb.dats" ATS_FREE(tmp557) ; #line 203 "parcomb.dats" tmp559 = ((ats_ptr_type(*)(ats_clo_ptr_type, ats_ref_type, ats_ref_type, ats_ref_type))(ats_closure_fun(env2))) (env2, arg0, arg1, arg2) ; #line 203 "parcomb.dats" do { /* branch: __ats_lab_94 */ #line 204 "parcomb.dats" __ats_lab_94_0: #line 204 "parcomb.dats" if (tmp559 == (ats_sum_ptr_type)0) { goto __ats_lab_99_0 ; } #line 204 "parcomb.dats" __ats_lab_94_1: #line 204 "parcomb.dats" tmp560 = ats_caselptr_mac(anairiats_sum_3, tmp559, atslab_0) ; #line 204 "parcomb.dats" ATS_FREE(tmp559) ; #line 204 "parcomb.dats" tmp561 = ((ats_ptr_type(*)(ats_clo_ptr_type, ats_ref_type, ats_ref_type, ats_ref_type))(ats_closure_fun(env3))) (env3, arg0, arg1, arg2) ; #line 204 "parcomb.dats" do { /* branch: __ats_lab_95 */ #line 205 "parcomb.dats" __ats_lab_95_0: #line 205 "parcomb.dats" if (tmp561 == (ats_sum_ptr_type)0) { goto __ats_lab_98_0 ; } #line 205 "parcomb.dats" __ats_lab_95_1: #line 205 "parcomb.dats" tmp562 = ats_caselptr_mac(anairiats_sum_3, tmp561, atslab_0) ; #line 205 "parcomb.dats" ATS_FREE(tmp561) ; #line 205 "parcomb.dats" tmp563 = ((ats_ptr_type(*)(ats_clo_ptr_type, ats_ref_type, ats_ref_type, ats_ref_type))(ats_closure_fun(env4))) (env4, arg0, arg1, arg2) ; #line 205 "parcomb.dats" do { /* branch: __ats_lab_96 */ #line 206 "parcomb.dats" __ats_lab_96_0: #line 206 "parcomb.dats" if (tmp563 == (ats_sum_ptr_type)0) { goto __ats_lab_97_0 ; } #line 206 "parcomb.dats" __ats_lab_96_1: #line 206 "parcomb.dats" tmp564 = ats_caselptr_mac(anairiats_sum_3, tmp563, atslab_0) ; #line 206 "parcomb.dats" ATS_FREE(tmp563) ; #line 206 "parcomb.dats" tmp565 = ((ats_ptr_type(*)(ats_ptr_type, ats_ptr_type, ats_ptr_type, ats_ptr_type, ats_ptr_type))env5) (tmp556, tmp558, tmp560, tmp562, tmp564) ; #line 206 "parcomb.dats" tmp554 = ATS_MALLOC(sizeof(anairiats_sum_3)) ; ats_selptrset_mac(anairiats_sum_3, tmp554, atslab_0, tmp565) ; break ; /* branch: __ats_lab_97 */ #line 206 "parcomb.dats" __ats_lab_97_0: #line 206 "parcomb.dats" // if (tmp563 != (ats_sum_ptr_type)0) { ats_deadcode_failure_handle () ; } #line 206 "parcomb.dats" __ats_lab_97_1: #line 206 "parcomb.dats" tmp554 = tmp563 ; break ; } while (0) ; break ; /* branch: __ats_lab_98 */ #line 208 "parcomb.dats" __ats_lab_98_0: #line 208 "parcomb.dats" // if (tmp561 != (ats_sum_ptr_type)0) { ats_deadcode_failure_handle () ; } #line 208 "parcomb.dats" __ats_lab_98_1: #line 208 "parcomb.dats" tmp554 = tmp561 ; break ; } while (0) ; break ; /* branch: __ats_lab_99 */ #line 210 "parcomb.dats" __ats_lab_99_0: #line 210 "parcomb.dats" // if (tmp559 != (ats_sum_ptr_type)0) { ats_deadcode_failure_handle () ; } #line 210 "parcomb.dats" __ats_lab_99_1: #line 210 "parcomb.dats" tmp554 = tmp559 ; break ; } while (0) ; break ; /* branch: __ats_lab_100 */ #line 212 "parcomb.dats" __ats_lab_100_0: #line 212 "parcomb.dats" // if (tmp557 != (ats_sum_ptr_type)0) { ats_deadcode_failure_handle () ; } #line 212 "parcomb.dats" __ats_lab_100_1: #line 212 "parcomb.dats" tmp554 = tmp557 ; break ; } while (0) ; break ; /* branch: __ats_lab_101 */ #line 214 "parcomb.dats" __ats_lab_101_0: #line 214 "parcomb.dats" // if (tmp555 != (ats_sum_ptr_type)0) { ats_deadcode_failure_handle () ; } #line 214 "parcomb.dats" __ats_lab_101_1: #line 214 "parcomb.dats" tmp554 = tmp555 ; break ; } while (0) ; return (tmp554) ; } /* end of [__ats_fun_120] */ typedef struct { ats_fun_ptr_type closure_fun ; ats_clo_ref_type closure_env_0 ; ats_clo_ref_type closure_env_1 ; ats_clo_ref_type closure_env_2 ; ats_clo_ref_type closure_env_3 ; ats_clo_ref_type closure_env_4 ; ats_ptr_type closure_env_5 ; } __ats_fun_120_closure_type ; ats_ptr_type __ats_fun_120_clofun (ats_clo_ptr_type cloptr, ats_ref_type arg0, ats_ref_type arg1, ats_ref_type arg2) { return __ats_fun_120 (((__ats_fun_120_closure_type*)cloptr)->closure_env_0, ((__ats_fun_120_closure_type*)cloptr)->closure_env_1, ((__ats_fun_120_closure_type*)cloptr)->closure_env_2, ((__ats_fun_120_closure_type*)cloptr)->closure_env_3, ((__ats_fun_120_closure_type*)cloptr)->closure_env_4, ((__ats_fun_120_closure_type*)cloptr)->closure_env_5, arg0, arg1, arg2) ; } /* end of function */ ATSinline() ats_void_type __ats_fun_120_closure_init (__ats_fun_120_closure_type *p_clo, ats_clo_ref_type env0, ats_clo_ref_type env1, ats_clo_ref_type env2, ats_clo_ref_type env3, ats_clo_ref_type env4, ats_ptr_type env5) { p_clo->closure_fun = (ats_fun_ptr_type)&__ats_fun_120_clofun ; p_clo->closure_env_0 = env0 ; p_clo->closure_env_1 = env1 ; p_clo->closure_env_2 = env2 ; p_clo->closure_env_3 = env3 ; p_clo->closure_env_4 = env4 ; p_clo->closure_env_5 = env5 ; return ; } /* end of function */ ats_clo_ptr_type __ats_fun_120_closure_make (ats_clo_ref_type env0, ats_clo_ref_type env1, ats_clo_ref_type env2, ats_clo_ref_type env3, ats_clo_ref_type env4, ats_ptr_type env5) { __ats_fun_120_closure_type *p_clo = ATS_MALLOC(sizeof(__ats_fun_120_closure_type)) ; __ats_fun_120_closure_init (p_clo, env0, env1, env2, env3, env4, env5) ; return (ats_clo_ptr_type)p_clo ; } /* end of function */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/PARCOMB/parcomb.dats: 6545(line=200, offs=22) -- 7243(line=215, offs=4) */ ATSstaticdec() ats_ptr_type seq5wth_parser_fun_01681_ats_ptr_type_2cats_ptr_type_2cats_ptr_type_2cats_ptr_type_2cats_ptr_type_2cats_ptr_type_ats_ptr_type (ats_ptr_type arg0, ats_ptr_type arg1, ats_ptr_type arg2, ats_ptr_type arg3, ats_ptr_type arg4, ats_ptr_type arg5) { /* local vardec */ ATSlocal (ats_ptr_type, tmp553) ; __ats_lab_seq5wth_parser_fun_01681_ats_ptr_type_2cats_ptr_type_2cats_ptr_type_2cats_ptr_type_2cats_ptr_type_2cats_ptr_type_ats_ptr_type: #line 200 "parcomb.dats" tmp553 = __ats_fun_120_closure_make (arg0, arg1, arg2, arg3, arg4, arg5) ; return (tmp553) ; } /* end of [seq5wth_parser_fun_01681_ats_ptr_type_2cats_ptr_type_2cats_ptr_type_2cats_ptr_type_2cats_ptr_type_2cats_ptr_type_ats_ptr_type] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 14685(line=588, offs=25) -- 14806(line=594, offs=4) */ ATSstaticdec() ats_ptr_type __ats_fun_118 () { /* local vardec */ ATSlocal (ats_ptr_type, tmp552) ; ATSlocal (ats_ptr_type, tmp566) ; ATSlocal (ats_ptr_type, tmp567) ; ATSlocal (ats_ptr_type, tmp568) ; ATSlocal (ats_ptr_type, tmp569) ; ATSlocal (ats_ptr_type, tmp570) ; ATSlocal (ats_ptr_type, tmp571) ; __ats_lab___ats_fun_118: #line 591 "parser.dats" ats_instr_move_lazy_force_mac (tmp567, ats_ptr_type, statmp260) ; #line 591 "parser.dats" tmp566 = proj2_parser_parser_01690_ats_ptr_type_2cats_ptr_type_ats_ptr_type (statmp72, tmp567) ; #line 592 "parser.dats" ats_instr_move_lazy_force_mac (tmp569, ats_ptr_type, statmp260) ; #line 592 "parser.dats" tmp568 = proj2_parser_parser_01690_ats_ptr_type_2cats_ptr_type_ats_ptr_type (statmp58, tmp569) ; #line 593 "parser.dats" ats_instr_move_lazy_force_mac (tmp571, ats_ptr_type, statmp260) ; #line 593 "parser.dats" tmp570 = proj2_parser_parser_01690_ats_ptr_type_2cats_ptr_type_ats_ptr_type (statmp48, tmp571) ; #line 588 "parser.dats" tmp552 = seq5wth_parser_fun_01681_ats_ptr_type_2cats_ptr_type_2cats_ptr_type_2cats_ptr_type_2cats_ptr_type_2cats_ptr_type_ats_ptr_type (statmp51, statmp94, tmp566, tmp568, tmp570, &f_ForExp_117) ; return (tmp552) ; } /* end of [__ats_fun_118] */ typedef struct { ats_fun_ptr_type closure_fun ; } __ats_fun_118_closure_type ; ats_ptr_type __ats_fun_118_clofun (ats_clo_ptr_type cloptr) { return __ats_fun_118 () ; } /* end of function */ ATSinline() ats_void_type __ats_fun_118_closure_init (__ats_fun_118_closure_type *p_clo) { p_clo->closure_fun = (ats_fun_ptr_type)&__ats_fun_118_clofun ; return ; } /* end of function */ ats_clo_ptr_type __ats_fun_118_closure_make () { __ats_fun_118_closure_type *p_clo = ATS_MALLOC(sizeof(__ats_fun_118_closure_type)) ; __ats_fun_118_closure_init (p_clo) ; return (ats_clo_ptr_type)p_clo ; } /* end of function */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 15282(line=612, offs=6) -- 15743(line=627, offs=6) */ ATSstaticdec() ats_ptr_type f_LetExp_121 (ats_ptr_type arg0, ats_ptr_type arg1, ats_ptr_type arg2, ats_ptr_type arg3, ats_ptr_type arg4) { /* local vardec */ ATSlocal (ats_ptr_type, tmp572) ; ATSlocal (ats_ptr_type, tmp573) ; ATSlocal (ats_ptr_type, tmp574) ; ATSlocal (ats_ptr_type, tmp575) ; ATSlocal (ats_ptr_type, tmp576) ; ATSlocal (ats_ptr_type, tmp577) ; ATSlocal (ats_ptr_type, tmp578) ; ATSlocal (ats_ptr_type, tmp579) ; ATSlocal (ats_ptr_type, tmp580) ; ATSlocal (ats_ptr_type, tmp581) ; __ats_lab_f_LetExp_121: #line 617 "parser.dats" tmp574 = ats_selbox_mac(ats_castptr_mac(anairiats_rec_4, arg0), atslab_token_loc) ; #line 617 "parser.dats" tmp575 = ats_selbox_mac(ats_castptr_mac(anairiats_rec_4, arg4), atslab_token_loc) ; #line 617 "parser.dats" tmp573 = _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2PARCOMB_2posloc_2esats__location_combine (tmp574, tmp575) ; #line 618 "parser.dats" do { /* branch: __ats_lab_102 */ #line 619 "parser.dats" __ats_lab_102_0: #line 619 "parser.dats" if (arg3 == (ats_sum_ptr_type)0) { goto __ats_lab_103_0 ; } #line 619 "parser.dats" tmp577 = ats_caselptr_mac(anairiats_sum_2, arg3, atslab_1) ; #line 619 "parser.dats" if (tmp577 != (ats_sum_ptr_type)0) { goto __ats_lab_103_0 ; } #line 619 "parser.dats" __ats_lab_102_1: #line 619 "parser.dats" tmp578 = ats_caselptr_mac(anairiats_sum_2, arg3, atslab_0) ; #line 619 "parser.dats" tmp576 = tmp578 ; break ; /* branch: __ats_lab_103 */ #line 619 "parser.dats" __ats_lab_103_0: #line 619 "parser.dats" __ats_lab_103_1: #line 620 "parser.dats" tmp580 = ats_selbox_mac(ats_castptr_mac(anairiats_rec_4, arg2), atslab_token_loc) ; #line 620 "parser.dats" tmp581 = ats_selbox_mac(ats_castptr_mac(anairiats_rec_4, arg4), atslab_token_loc) ; #line 620 "parser.dats" tmp579 = _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2PARCOMB_2posloc_2esats__location_combine (tmp580, tmp581) ; #line 622 "parser.dats" tmp576 = _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2absyn_2esats__SeqExp_make (tmp579, arg3) ; break ; } while (0) ; #line 626 "parser.dats" tmp572 = _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2absyn_2esats__LetExp_make (tmp573, arg1, tmp576) ; return (tmp572) ; } /* end of [f_LetExp_121] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 15188(line=609, offs=25) -- 15266(line=610, offs=70) */ ATSstaticdec() ats_ptr_type __ats_fun_122 () { /* local vardec */ ATSlocal (ats_ptr_type, tmp582) ; ATSlocal (ats_ptr_type, tmp583) ; ATSlocal (ats_ptr_type, tmp584) ; __ats_lab___ats_fun_122: #line 610 "parser.dats" ats_instr_move_lazy_force_mac (tmp583, ats_ptr_type, statmp278) ; #line 610 "parser.dats" ats_instr_move_lazy_force_mac (tmp584, ats_ptr_type, statmp262) ; #line 610 "parser.dats" tmp582 = seq5wth_parser_fun_01681_ats_ptr_type_2cats_ptr_type_2cats_ptr_type_2cats_ptr_type_2cats_ptr_type_2cats_ptr_type_ats_ptr_type (statmp55, tmp583, statmp54, tmp584, statmp50, &f_LetExp_121) ; return (tmp582) ; } /* end of [__ats_fun_122] */ typedef struct { ats_fun_ptr_type closure_fun ; } __ats_fun_122_closure_type ; ats_ptr_type __ats_fun_122_clofun (ats_clo_ptr_type cloptr) { return __ats_fun_122 () ; } /* end of function */ ATSinline() ats_void_type __ats_fun_122_closure_init (__ats_fun_122_closure_type *p_clo) { p_clo->closure_fun = (ats_fun_ptr_type)&__ats_fun_122_clofun ; return ; } /* end of function */ ats_clo_ptr_type __ats_fun_122_closure_make () { __ats_fun_122_closure_type *p_clo = ATS_MALLOC(sizeof(__ats_fun_122_closure_type)) ; __ats_fun_122_closure_init (p_clo) ; return (ats_clo_ptr_type)p_clo ; } /* end of function */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 15956(line=637, offs=6) -- 16345(line=650, offs=6) */ ATSstaticdec() ats_ptr_type f_typdeclst_123 (ats_ptr_type arg0) { /* local vardec */ ATSlocal (ats_ptr_type, tmp585) ; ATSlocal (ats_ptr_type, tmp586) ; ATSlocal (ats_ptr_type, tmp587) ; ATSlocal (ats_ptr_type, tmp588) ; ATSlocal (ats_ptr_type, tmp589) ; ATSlocal (ats_ptr_type, tmp590) ; ATSlocal (ats_ptr_type, tmp591) ; __ats_lab_f_typdeclst_123: #line 638 "parser.dats" // if (arg0 == (ats_sum_ptr_type)0) { ats_deadcode_failure_handle () ; } #line 638 "parser.dats" tmp586 = ats_caselptr_mac(anairiats_sum_2, arg0, atslab_0) ; #line 638 "parser.dats" tmp587 = ats_caselptr_mac(anairiats_sum_2, arg0, atslab_1) ; #line 639 "parser.dats" tmp588 = ats_selbox_mac(ats_castptr_mac(anairiats_rec_13, tmp586), atslab_typdec_loc) ; #line 640 "parser.dats" do { /* branch: __ats_lab_104 */ #line 641 "parser.dats" __ats_lab_104_0: #line 641 "parser.dats" if (tmp587 == (ats_sum_ptr_type)0) { goto __ats_lab_105_0 ; } #line 641 "parser.dats" __ats_lab_104_1: #line 642 "parser.dats" tmp590 = list_last_01475_ats_ptr_type (tmp587) ; #line 644 "parser.dats" tmp591 = ats_selbox_mac(ats_castptr_mac(anairiats_rec_13, tmp590), atslab_typdec_loc) ; #line 644 "parser.dats" tmp589 = _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2PARCOMB_2posloc_2esats__location_combine (tmp588, tmp591) ; break ; /* branch: __ats_lab_105 */ #line 646 "parser.dats" __ats_lab_105_0: #line 646 "parser.dats" // if (tmp587 != (ats_sum_ptr_type)0) { ats_deadcode_failure_handle () ; } #line 646 "parser.dats" __ats_lab_105_1: #line 646 "parser.dats" tmp589 = tmp588 ; break ; } while (0) ; #line 649 "parser.dats" tmp585 = _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2absyn_2esats__TypeDec_make (tmp589, arg0) ; return (tmp585) ; } /* end of [f_typdeclst_123] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 16375(line=651, offs=6) -- 16768(line=664, offs=6) */ ATSstaticdec() ats_ptr_type f_fundeclst_124 (ats_ptr_type arg0) { /* local vardec */ ATSlocal (ats_ptr_type, tmp592) ; ATSlocal (ats_ptr_type, tmp593) ; ATSlocal (ats_ptr_type, tmp594) ; ATSlocal (ats_ptr_type, tmp595) ; ATSlocal (ats_ptr_type, tmp596) ; ATSlocal (ats_ptr_type, tmp597) ; ATSlocal (ats_ptr_type, tmp598) ; __ats_lab_f_fundeclst_124: #line 652 "parser.dats" // if (arg0 == (ats_sum_ptr_type)0) { ats_deadcode_failure_handle () ; } #line 652 "parser.dats" tmp593 = ats_caselptr_mac(anairiats_sum_2, arg0, atslab_0) ; #line 652 "parser.dats" tmp594 = ats_caselptr_mac(anairiats_sum_2, arg0, atslab_1) ; #line 653 "parser.dats" tmp595 = ats_selbox_mac(ats_castptr_mac(anairiats_rec_14, tmp593), atslab_fundec_loc) ; #line 654 "parser.dats" do { /* branch: __ats_lab_106 */ #line 655 "parser.dats" __ats_lab_106_0: #line 655 "parser.dats" if (tmp594 == (ats_sum_ptr_type)0) { goto __ats_lab_107_0 ; } #line 655 "parser.dats" __ats_lab_106_1: #line 656 "parser.dats" tmp597 = list_last_01475_ats_ptr_type (tmp594) ; #line 658 "parser.dats" tmp598 = ats_selbox_mac(ats_castptr_mac(anairiats_rec_14, tmp597), atslab_fundec_loc) ; #line 658 "parser.dats" tmp596 = _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2PARCOMB_2posloc_2esats__location_combine (tmp595, tmp598) ; break ; /* branch: __ats_lab_107 */ #line 660 "parser.dats" __ats_lab_107_0: #line 660 "parser.dats" // if (tmp594 != (ats_sum_ptr_type)0) { ats_deadcode_failure_handle () ; } #line 660 "parser.dats" __ats_lab_107_1: #line 660 "parser.dats" tmp596 = tmp595 ; break ; } while (0) ; #line 663 "parser.dats" tmp592 = _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2absyn_2esats__FunctionDec_make (tmp596, arg0) ; return (tmp592) ; } /* end of [f_fundeclst_124] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 15832(line=632, offs=22) -- 15940(line=635, offs=38) */ ATSstaticdec() ats_ptr_type __ats_fun_125 () { /* local vardec */ ATSlocal (ats_ptr_type, tmp599) ; ATSlocal (ats_ptr_type, tmp600) ; ATSlocal (ats_ptr_type, tmp601) ; ATSlocal (ats_ptr_type, tmp602) ; ATSlocal (ats_ptr_type, tmp603) ; ATSlocal (ats_ptr_type, tmp604) ; ATSlocal (ats_ptr_type, tmp605) ; __ats_lab___ats_fun_125: #line 633 "parser.dats" tmp601 = _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2PARCOMB_2parcomb_2esats__lzeta (statmp279) ; #line 634 "parser.dats" tmp603 = _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2PARCOMB_2parcomb_2esats__lzeta (statmp282) ; #line 634 "parser.dats" tmp602 = seq1wth_parser_fun_01673_ats_ptr_type_2cats_ptr_type_ats_ptr_type (tmp603, &f_typdeclst_123) ; #line 633 "parser.dats" tmp600 = alt_parser_parser_01671_ats_ptr_type_ats_ptr_type (tmp601, tmp602) ; #line 635 "parser.dats" tmp605 = _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2PARCOMB_2parcomb_2esats__lzeta (statmp284) ; #line 635 "parser.dats" tmp604 = seq1wth_parser_fun_01673_ats_ptr_type_2cats_ptr_type_ats_ptr_type (tmp605, &f_fundeclst_124) ; #line 633 "parser.dats" tmp599 = alt_parser_parser_01671_ats_ptr_type_ats_ptr_type (tmp600, tmp604) ; return (tmp599) ; } /* end of [__ats_fun_125] */ typedef struct { ats_fun_ptr_type closure_fun ; } __ats_fun_125_closure_type ; ats_ptr_type __ats_fun_125_clofun (ats_clo_ptr_type cloptr) { return __ats_fun_125 () ; } /* end of function */ ATSinline() ats_void_type __ats_fun_125_closure_init (__ats_fun_125_closure_type *p_clo) { p_clo->closure_fun = (ats_fun_ptr_type)&__ats_fun_125_clofun ; return ; } /* end of function */ ats_clo_ptr_type __ats_fun_125_closure_make () { __ats_fun_125_closure_type *p_clo = ATS_MALLOC(sizeof(__ats_fun_125_closure_type)) ; __ats_fun_125_closure_init (p_clo) ; return (ats_clo_ptr_type)p_clo ; } /* end of function */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 16842(line=667, offs=28) -- 16872(line=667, offs=58) */ ATSstaticdec() ats_ptr_type __ats_fun_126 () { /* local vardec */ ATSlocal (ats_ptr_type, tmp606) ; ATSlocal (ats_ptr_type, tmp607) ; __ats_lab___ats_fun_126: #line 667 "parser.dats" ats_instr_move_lazy_force_mac (tmp607, ats_ptr_type, statmp277) ; #line 667 "parser.dats" tmp606 = repeat0_parser_01696_ats_ptr_type_ats_ptr_type (tmp607) ; return (tmp606) ; } /* end of [__ats_fun_126] */ typedef struct { ats_fun_ptr_type closure_fun ; } __ats_fun_126_closure_type ; ats_ptr_type __ats_fun_126_clofun (ats_clo_ptr_type cloptr) { return __ats_fun_126 () ; } /* end of function */ ATSinline() ats_void_type __ats_fun_126_closure_init (__ats_fun_126_closure_type *p_clo) { p_clo->closure_fun = (ats_fun_ptr_type)&__ats_fun_126_clofun ; return ; } /* end of function */ ats_clo_ptr_type __ats_fun_126_closure_make () { __ats_fun_126_closure_type *p_clo = ATS_MALLOC(sizeof(__ats_fun_126_closure_type)) ; __ats_fun_126_closure_init (p_clo) ; return (ats_clo_ptr_type)p_clo ; } /* end of function */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 17031(line=674, offs=6) -- 17629(line=694, offs=6) */ ATSstaticdec() ats_ptr_type f_VarDec_127 (ats_ptr_type arg0, ats_ptr_type arg1, ats_ptr_type arg2, ats_ptr_type arg3) { /* local vardec */ ATSlocal (ats_ptr_type, tmp608) ; ATSlocal (ats_ptr_type, tmp609) ; ATSlocal (ats_ptr_type, tmp610) ; ATSlocal (ats_ptr_type, tmp611) ; ATSlocal (ats_ptr_type, tmp612) ; ATSlocal (ats_ptr_type, tmp613) ; ATSlocal (ats_ptr_type, tmp614) ; ATSlocal (ats_ptr_type, tmp615) ; ATSlocal (ats_ptr_type, tmp616) ; ATSlocal (ats_ptr_type, tmp617) ; ATSlocal (ats_ptr_type, tmp618) ; ATSlocal (ats_ptr_type, tmp619) ; __ats_lab_f_VarDec_127: #line 680 "parser.dats" tmp610 = ats_selbox_mac(ats_castptr_mac(anairiats_rec_4, arg0), atslab_token_loc) ; #line 680 "parser.dats" tmp611 = ats_selbox_mac(ats_castptr_mac(anairiats_rec_7, arg3), atslab_exp_loc) ; #line 680 "parser.dats" tmp609 = _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2PARCOMB_2posloc_2esats__location_combine (tmp610, tmp611) ; #line 681 "parser.dats" tmp612 = symbol_make_token_39 (arg1) ; #line 682 "parser.dats" do { /* branch: __ats_lab_108 */ #line 683 "parser.dats" __ats_lab_108_0: #line 683 "parser.dats" if (arg2 == (ats_sum_ptr_type)0) { goto __ats_lab_109_0 ; } #line 683 "parser.dats" __ats_lab_108_1: #line 683 "parser.dats" tmp614 = ats_caselptr_mac(anairiats_sum_3, arg2, atslab_0) ; #line 684 "parser.dats" tmp615 = ats_selbox_mac(ats_castptr_mac(anairiats_rec_4, tmp614), atslab_token_loc) ; #line 685 "parser.dats" tmp616 = ats_selbox_mac(ats_castptr_mac(anairiats_rec_4, tmp614), atslab_token_node) ; #line 685 "parser.dats" if (((ats_sum_ptr_type)tmp616)->tag != 1) { ats_caseof_failure_handle ("/cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 17364(line=685, offs=16) -- 17394(line=685, offs=46)") ; } #line 685 "parser.dats" tmp617 = ats_caselptr_mac(anairiats_sum_6, tmp616, atslab_0) ; #line 686 "parser.dats" tmp618 = _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2symbol_2esats__symbol_make_name (tmp617) ; #line 688 "parser.dats" tmp619 = _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2absyn_2esats__NameTyp_make (tmp615, tmp618) ; #line 688 "parser.dats" tmp613 = ATS_MALLOC(sizeof(anairiats_sum_3)) ; ats_selptrset_mac(anairiats_sum_3, tmp613, atslab_0, tmp619) ; break ; /* branch: __ats_lab_109 */ #line 690 "parser.dats" __ats_lab_109_0: #line 690 "parser.dats" // if (arg2 != (ats_sum_ptr_type)0) { ats_deadcode_failure_handle () ; } #line 690 "parser.dats" __ats_lab_109_1: #line 690 "parser.dats" tmp613 = (ats_sum_ptr_type)0 ; break ; } while (0) ; #line 693 "parser.dats" tmp608 = _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2absyn_2esats__VarDec_make (tmp609, tmp612, tmp613, arg3) ; return (tmp608) ; } /* end of [f_VarDec_127] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 16920(line=671, offs=25) -- 17015(line=672, offs=69) */ ATSstaticdec() ats_ptr_type __ats_fun_128 () { /* local vardec */ ATSlocal (ats_ptr_type, tmp620) ; ATSlocal (ats_ptr_type, tmp621) ; ATSlocal (ats_ptr_type, tmp622) ; ATSlocal (ats_ptr_type, tmp623) ; ATSlocal (ats_ptr_type, tmp624) ; __ats_lab___ats_fun_128: #line 672 "parser.dats" tmp622 = proj2_parser_parser_01690_ats_ptr_type_2cats_ptr_type_ats_ptr_type (statmp63, statmp94) ; #line 672 "parser.dats" tmp621 = optional_parser_01695_ats_ptr_type_ats_ptr_type (tmp622) ; #line 672 "parser.dats" ats_instr_move_lazy_force_mac (tmp624, ats_ptr_type, statmp260) ; #line 672 "parser.dats" tmp623 = proj2_parser_parser_01690_ats_ptr_type_2cats_ptr_type_ats_ptr_type (statmp72, tmp624) ; #line 671 "parser.dats" tmp620 = seq4wth_parser_fun_01679_ats_ptr_type_2cats_ptr_type_2cats_ptr_type_2cats_ptr_type_2cats_ptr_type_ats_ptr_type (statmp59, statmp94, tmp621, tmp623, &f_VarDec_127) ; return (tmp620) ; } /* end of [__ats_fun_128] */ typedef struct { ats_fun_ptr_type closure_fun ; } __ats_fun_128_closure_type ; ats_ptr_type __ats_fun_128_clofun (ats_clo_ptr_type cloptr) { return __ats_fun_128 () ; } /* end of function */ ATSinline() ats_void_type __ats_fun_128_closure_init (__ats_fun_128_closure_type *p_clo) { p_clo->closure_fun = (ats_fun_ptr_type)&__ats_fun_128_clofun ; return ; } /* end of function */ ats_clo_ptr_type __ats_fun_128_closure_make () { __ats_fun_128_closure_type *p_clo = ATS_MALLOC(sizeof(__ats_fun_128_closure_type)) ; __ats_fun_128_closure_init (p_clo) ; return (ats_clo_ptr_type)p_clo ; } /* end of function */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 17884(line=704, offs=6) -- 18032(line=709, offs=6) */ ATSstaticdec() ats_ptr_type f_ident_129 (ats_ptr_type arg0) { /* local vardec */ ATSlocal (ats_ptr_type, tmp625) ; ATSlocal (ats_ptr_type, tmp626) ; ATSlocal (ats_ptr_type, tmp627) ; __ats_lab_f_ident_129: #line 705 "parser.dats" tmp626 = ats_selbox_mac(ats_castptr_mac(anairiats_rec_4, arg0), atslab_token_loc) ; #line 706 "parser.dats" tmp627 = symbol_make_token_39 (arg0) ; #line 708 "parser.dats" tmp625 = _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2absyn_2esats__NameTyp_make (tmp626, tmp627) ; return (tmp625) ; } /* end of [f_ident_129] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 18059(line=711, offs=6) -- 18242(line=716, offs=6) */ ATSstaticdec() ats_ptr_type f_record_130 (ats_ptr_type arg0, ats_ptr_type arg1, ats_ptr_type arg2) { /* local vardec */ ATSlocal (ats_ptr_type, tmp628) ; ATSlocal (ats_ptr_type, tmp629) ; ATSlocal (ats_ptr_type, tmp630) ; ATSlocal (ats_ptr_type, tmp631) ; __ats_lab_f_record_130: #line 713 "parser.dats" tmp630 = ats_selbox_mac(ats_castptr_mac(anairiats_rec_4, arg0), atslab_token_loc) ; #line 713 "parser.dats" tmp631 = ats_selbox_mac(ats_castptr_mac(anairiats_rec_4, arg2), atslab_token_loc) ; #line 713 "parser.dats" tmp629 = _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2PARCOMB_2posloc_2esats__location_combine (tmp630, tmp631) ; #line 715 "parser.dats" tmp628 = _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2absyn_2esats__RecordTyp_make (tmp629, arg1) ; return (tmp628) ; } /* end of [f_record_130] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 18269(line=717, offs=6) -- 18453(line=723, offs=6) */ ATSstaticdec() ats_ptr_type f_array_131 (ats_ptr_type arg0, ats_ptr_type arg1, ats_ptr_type arg2) { /* local vardec */ ATSlocal (ats_ptr_type, tmp632) ; ATSlocal (ats_ptr_type, tmp633) ; ATSlocal (ats_ptr_type, tmp634) ; __ats_lab_f_array_131: #line 719 "parser.dats" tmp633 = ats_selbox_mac(ats_castptr_mac(anairiats_rec_4, arg2), atslab_token_loc) ; #line 720 "parser.dats" tmp634 = symbol_make_token_39 (arg2) ; #line 722 "parser.dats" tmp632 = _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2absyn_2esats__ArrayTyp_make (tmp633, tmp634) ; return (tmp632) ; } /* end of [f_array_131] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 17718(line=699, offs=22) -- 17868(line=702, offs=51) */ ATSstaticdec() ats_ptr_type __ats_fun_132 () { /* local vardec */ ATSlocal (ats_ptr_type, tmp635) ; ATSlocal (ats_ptr_type, tmp636) ; ATSlocal (ats_ptr_type, tmp637) ; ATSlocal (ats_ptr_type, tmp638) ; ATSlocal (ats_ptr_type, tmp639) ; __ats_lab___ats_fun_132: #line 700 "parser.dats" tmp637 = seq1wth_parser_fun_01673_ats_ptr_type_2cats_ptr_type_ats_ptr_type (statmp94, &f_ident_129) ; #line 701 "parser.dats" tmp638 = seq3wth_parser_fun_01677_ats_ptr_type_2cats_ptr_type_2cats_ptr_type_2cats_ptr_type_ats_ptr_type (statmp37, statmp235, statmp38, &f_record_130) ; #line 700 "parser.dats" tmp636 = alt_parser_parser_01671_ats_ptr_type_ats_ptr_type (tmp637, tmp638) ; #line 702 "parser.dats" tmp639 = seq3wth_parser_fun_01677_ats_ptr_type_2cats_ptr_type_2cats_ptr_type_2cats_ptr_type_ats_ptr_type (statmp45, statmp57, statmp94, &f_array_131) ; #line 700 "parser.dats" tmp635 = alt_parser_parser_01671_ats_ptr_type_ats_ptr_type (tmp636, tmp639) ; return (tmp635) ; } /* end of [__ats_fun_132] */ typedef struct { ats_fun_ptr_type closure_fun ; } __ats_fun_132_closure_type ; ats_ptr_type __ats_fun_132_clofun (ats_clo_ptr_type cloptr) { return __ats_fun_132 () ; } /* end of function */ ATSinline() ats_void_type __ats_fun_132_closure_init (__ats_fun_132_closure_type *p_clo) { p_clo->closure_fun = (ats_fun_ptr_type)&__ats_fun_132_clofun ; return ; } /* end of function */ ats_clo_ptr_type __ats_fun_132_closure_make () { __ats_fun_132_closure_type *p_clo = ATS_MALLOC(sizeof(__ats_fun_132_closure_type)) ; __ats_fun_132_closure_init (p_clo) ; return (ats_clo_ptr_type)p_clo ; } /* end of function */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 18609(line=729, offs=6) -- 18870(line=736, offs=6) */ ATSstaticdec() ats_ptr_type f_typdec_133 (ats_ptr_type arg0, ats_ptr_type arg1, ats_ptr_type arg2) { /* local vardec */ ATSlocal (ats_ptr_type, tmp640) ; ATSlocal (ats_ptr_type, tmp641) ; ATSlocal (ats_ptr_type, tmp642) ; ATSlocal (ats_ptr_type, tmp643) ; ATSlocal (ats_ptr_type, tmp644) ; ATSlocal (ats_ptr_type, tmp645) ; ATSlocal (ats_ptr_type, tmp646) ; __ats_lab_f_typdec_133: #line 731 "parser.dats" tmp642 = ats_selbox_mac(ats_castptr_mac(anairiats_rec_4, arg0), atslab_token_loc) ; #line 731 "parser.dats" tmp643 = ats_selbox_mac(ats_castptr_mac(anairiats_rec_15, arg2), atslab_typ_loc) ; #line 731 "parser.dats" tmp641 = _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2PARCOMB_2posloc_2esats__location_combine (tmp642, tmp643) ; #line 732 "parser.dats" tmp644 = ats_selbox_mac(ats_castptr_mac(anairiats_rec_4, arg1), atslab_token_node) ; #line 732 "parser.dats" if (((ats_sum_ptr_type)tmp644)->tag != 1) { ats_caseof_failure_handle ("/cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 18748(line=732, offs=10) -- 18778(line=732, offs=40)") ; } #line 732 "parser.dats" tmp645 = ats_caselptr_mac(anairiats_sum_6, tmp644, atslab_0) ; #line 733 "parser.dats" tmp646 = _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2symbol_2esats__symbol_make_name (tmp645) ; #line 735 "parser.dats" tmp640 = _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2absyn_2esats__typdec_make (tmp641, tmp646, arg2) ; return (tmp640) ; } /* end of [f_typdec_133] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 18523(line=726, offs=28) -- 18593(line=727, offs=62) */ ATSstaticdec() ats_ptr_type __ats_fun_134 () { /* local vardec */ ATSlocal (ats_ptr_type, tmp647) ; ATSlocal (ats_ptr_type, tmp648) ; ATSlocal (ats_ptr_type, tmp649) ; __ats_lab___ats_fun_134: #line 727 "parser.dats" ats_instr_move_lazy_force_mac (tmp649, ats_ptr_type, statmp280) ; #line 727 "parser.dats" tmp648 = proj2_parser_parser_01690_ats_ptr_type_2cats_ptr_type_ats_ptr_type (statmp70, tmp649) ; #line 727 "parser.dats" tmp647 = seq3wth_parser_fun_01677_ats_ptr_type_2cats_ptr_type_2cats_ptr_type_2cats_ptr_type_ats_ptr_type (statmp61, statmp94, tmp648, &f_typdec_133) ; return (tmp647) ; } /* end of [__ats_fun_134] */ typedef struct { ats_fun_ptr_type closure_fun ; } __ats_fun_134_closure_type ; ats_ptr_type __ats_fun_134_clofun (ats_clo_ptr_type cloptr) { return __ats_fun_134 () ; } /* end of function */ ATSinline() ats_void_type __ats_fun_134_closure_init (__ats_fun_134_closure_type *p_clo) { p_clo->closure_fun = (ats_fun_ptr_type)&__ats_fun_134_clofun ; return ; } /* end of function */ ats_clo_ptr_type __ats_fun_134_closure_make () { __ats_fun_134_closure_type *p_clo = ATS_MALLOC(sizeof(__ats_fun_134_closure_type)) ; __ats_fun_134_closure_init (p_clo) ; return (ats_clo_ptr_type)p_clo ; } /* end of function */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 18955(line=739, offs=36) -- 18988(line=739, offs=69) */ ATSstaticdec() ats_ptr_type __ats_fun_135 () { /* local vardec */ ATSlocal (ats_ptr_type, tmp650) ; ATSlocal (ats_ptr_type, tmp651) ; __ats_lab___ats_fun_135: #line 739 "parser.dats" ats_instr_move_lazy_force_mac (tmp651, ats_ptr_type, statmp281) ; #line 739 "parser.dats" tmp650 = repeat1_parser_01697_ats_ptr_type_ats_ptr_type (tmp651) ; return (tmp650) ; } /* end of [__ats_fun_135] */ typedef struct { ats_fun_ptr_type closure_fun ; } __ats_fun_135_closure_type ; ats_ptr_type __ats_fun_135_clofun (ats_clo_ptr_type cloptr) { return __ats_fun_135 () ; } /* end of function */ ATSinline() ats_void_type __ats_fun_135_closure_init (__ats_fun_135_closure_type *p_clo) { p_clo->closure_fun = (ats_fun_ptr_type)&__ats_fun_135_clofun ; return ; } /* end of function */ ats_clo_ptr_type __ats_fun_135_closure_make () { __ats_fun_135_closure_type *p_clo = ATS_MALLOC(sizeof(__ats_fun_135_closure_type)) ; __ats_fun_135_closure_init (p_clo) ; return (ats_clo_ptr_type)p_clo ; } /* end of function */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 19197(line=749, offs=6) -- 19512(line=760, offs=6) */ ATSstaticdec() ats_ptr_type f_fundec_136 (ats_ptr_type arg0, ats_ptr_type arg1, ats_ptr_type arg2, ats_ptr_type arg3, ats_ptr_type arg4) { /* local vardec */ ATSlocal (ats_ptr_type, tmp652) ; ATSlocal (ats_ptr_type, tmp653) ; ATSlocal (ats_ptr_type, tmp654) ; ATSlocal (ats_ptr_type, tmp655) ; ATSlocal (ats_ptr_type, tmp656) ; __ats_lab_f_fundec_136: #line 756 "parser.dats" tmp654 = ats_selbox_mac(ats_castptr_mac(anairiats_rec_4, arg0), atslab_token_loc) ; #line 756 "parser.dats" tmp655 = ats_selbox_mac(ats_castptr_mac(anairiats_rec_7, arg4), atslab_exp_loc) ; #line 756 "parser.dats" tmp653 = _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2PARCOMB_2posloc_2esats__location_combine (tmp654, tmp655) ; #line 757 "parser.dats" tmp656 = symbol_make_token_39 (arg1) ; #line 759 "parser.dats" tmp652 = _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2absyn_2esats__fundec_make (tmp653, tmp656, arg2, arg3, arg4) ; return (tmp652) ; } /* end of [f_fundec_136] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 19039(line=743, offs=28) -- 19181(line=747, offs=4) */ ATSstaticdec() ats_ptr_type __ats_fun_137 () { /* local vardec */ ATSlocal (ats_ptr_type, tmp657) ; ATSlocal (ats_ptr_type, tmp658) ; ATSlocal (ats_ptr_type, tmp659) ; ATSlocal (ats_ptr_type, tmp660) ; ATSlocal (ats_ptr_type, tmp661) ; ATSlocal (ats_ptr_type, tmp662) ; ATSlocal (ats_ptr_type, tmp663) ; ATSlocal (ats_ptr_type, tmp664) ; __ats_lab___ats_fun_137: #line 745 "parser.dats" tmp659 = proj1_parser_parser_01689_ats_ptr_type_2cats_ptr_type_ats_ptr_type (statmp235, statmp34) ; #line 745 "parser.dats" tmp658 = proj2_parser_parser_01690_ats_ptr_type_2cats_ptr_type_ats_ptr_type (statmp33, tmp659) ; #line 745 "parser.dats" ats_instr_move_lazy_force_mac (tmp662, ats_ptr_type, statmp280) ; #line 745 "parser.dats" tmp661 = proj2_parser_parser_01690_ats_ptr_type_2cats_ptr_type_ats_ptr_type (statmp63, tmp662) ; #line 745 "parser.dats" tmp660 = optional_parser_01695_ats_ptr_type_ats_ptr_type (tmp661) ; #line 745 "parser.dats" ats_instr_move_lazy_force_mac (tmp664, ats_ptr_type, statmp260) ; #line 745 "parser.dats" tmp663 = proj2_parser_parser_01690_ats_ptr_type_2cats_ptr_type_ats_ptr_type (statmp70, tmp664) ; #line 743 "parser.dats" tmp657 = seq5wth_parser_fun_01681_ats_ptr_type_2cats_ptr_type_2cats_ptr_type_2cats_ptr_type_2cats_ptr_type_2cats_ptr_type_ats_ptr_type (statmp52, statmp94, tmp658, tmp660, tmp663, &f_fundec_136) ; return (tmp657) ; } /* end of [__ats_fun_137] */ typedef struct { ats_fun_ptr_type closure_fun ; } __ats_fun_137_closure_type ; ats_ptr_type __ats_fun_137_clofun (ats_clo_ptr_type cloptr) { return __ats_fun_137 () ; } /* end of function */ ATSinline() ats_void_type __ats_fun_137_closure_init (__ats_fun_137_closure_type *p_clo) { p_clo->closure_fun = (ats_fun_ptr_type)&__ats_fun_137_clofun ; return ; } /* end of function */ ats_clo_ptr_type __ats_fun_137_closure_make () { __ats_fun_137_closure_type *p_clo = ATS_MALLOC(sizeof(__ats_fun_137_closure_type)) ; __ats_fun_137_closure_init (p_clo) ; return (ats_clo_ptr_type)p_clo ; } /* end of function */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 19594(line=763, offs=36) -- 19627(line=763, offs=69) */ ATSstaticdec() ats_ptr_type __ats_fun_138 () { /* local vardec */ ATSlocal (ats_ptr_type, tmp665) ; ATSlocal (ats_ptr_type, tmp666) ; __ats_lab___ats_fun_138: #line 763 "parser.dats" ats_instr_move_lazy_force_mac (tmp666, ats_ptr_type, statmp283) ; #line 763 "parser.dats" tmp665 = repeat1_parser_01697_ats_ptr_type_ats_ptr_type (tmp666) ; return (tmp665) ; } /* end of [__ats_fun_138] */ typedef struct { ats_fun_ptr_type closure_fun ; } __ats_fun_138_closure_type ; ats_ptr_type __ats_fun_138_clofun (ats_clo_ptr_type cloptr) { return __ats_fun_138 () ; } /* end of function */ ATSinline() ats_void_type __ats_fun_138_closure_init (__ats_fun_138_closure_type *p_clo) { p_clo->closure_fun = (ats_fun_ptr_type)&__ats_fun_138_clofun ; return ; } /* end of function */ ats_clo_ptr_type __ats_fun_138_closure_make () { __ats_fun_138_closure_type *p_clo = ATS_MALLOC(sizeof(__ats_fun_138_closure_type)) ; __ats_fun_138_closure_init (p_clo) ; return (ats_clo_ptr_type)p_clo ; } /* end of function */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 19781(line=771, offs=7) -- 19977(line=776, offs=34) */ ATSstaticdec() ats_ptr_type loop_140 (ats_ptr_type arg0, ats_int_type arg1) { /* local vardec */ ATSlocal (ats_ptr_type, tmp668) ; ATSlocal (ats_ptr_type, tmp669) ; ATSlocal (ats_ptr_type, tmp670) ; ATSlocal (ats_ptr_type, tmp671) ; ATSlocal (ats_bool_type, tmp672) ; ATSlocal (ats_int_type, tmp673) ; __ats_lab_loop_140: #line 773 "parser.dats" ats_instr_move_lazy_force_mac (tmp669, ats_ptr_type, arg0) ; #line 773 "parser.dats" do { /* branch: __ats_lab_110 */ #line 774 "parser.dats" __ats_lab_110_0: #line 774 "parser.dats" if (tmp669 == (ats_sum_ptr_type)0) { goto __ats_lab_111_0 ; } #line 774 "parser.dats" __ats_lab_110_1: #line 774 "parser.dats" tmp670 = ats_caselptr_mac(anairiats_sum_2, tmp669, atslab_0) ; #line 774 "parser.dats" tmp671 = ats_caselptr_mac(anairiats_sum_2, tmp669, atslab_1) ; #line 775 "parser.dats" tmp672 = atspre_gt_int_int (arg1, 0) ; #line 775 "parser.dats" if (tmp672) { #line 775 "parser.dats" tmp673 = atspre_sub_int_int (arg1, 1) ; #line 775 "parser.dats" arg0 = tmp671 ; #line 775 "parser.dats" arg1 = tmp673 ; #line 775 "parser.dats" goto __ats_lab_loop_140 ; // tail call } else { #line 775 "parser.dats" tmp668 = ATS_MALLOC(sizeof(anairiats_sum_3)) ; ats_selptrset_mac(anairiats_sum_3, tmp668, atslab_0, tmp670) ; } /* end of [if] */ break ; /* branch: __ats_lab_111 */ #line 776 "parser.dats" __ats_lab_111_0: #line 776 "parser.dats" // if (tmp669 != (ats_sum_ptr_type)0) { ats_deadcode_failure_handle () ; } #line 776 "parser.dats" __ats_lab_111_1: #line 776 "parser.dats" tmp668 = (ats_sum_ptr_type)0 ; break ; } while (0) ; return (tmp668) ; } /* end of [loop_140] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 19751(line=770, offs=25) -- 20397(line=792, offs=4) */ ATSglobaldec() ats_void_type _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2parser_2edats__parse_failure (ats_ptr_type arg0, ats_int_type arg1, ats_int_type arg2) { /* local vardec */ // ATSlocal_void (tmp667) ; ATSlocal (ats_ptr_type, tmp674) ; ATSlocal (ats_int_type, tmp675) ; ATSlocal (ats_ptr_type, tmp676) ; // ATSlocal_void (tmp677) ; ATSlocal (ats_ptr_type, tmp678) ; // ATSlocal_void (tmp679) ; // ATSlocal_void (tmp680) ; // ATSlocal_void (tmp681) ; // ATSlocal_void (tmp682) ; __ats_lab__2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2parser_2edats__parse_failure: #line 778 "parser.dats" tmp675 = atspre_sub_int_int (arg2, arg1) ; #line 778 "parser.dats" tmp674 = loop_140 (arg0, tmp675) ; #line 780 "parser.dats" do { /* branch: __ats_lab_112 */ #line 781 "parser.dats" __ats_lab_112_0: #line 781 "parser.dats" if (tmp674 == (ats_sum_ptr_type)0) { goto __ats_lab_113_0 ; } #line 781 "parser.dats" __ats_lab_112_1: #line 781 "parser.dats" tmp676 = ats_caselptr_mac(anairiats_sum_3, tmp674, atslab_0) ; #line 781 "parser.dats" ATS_FREE(tmp674) ; #line 782 "parser.dats" tmp678 = ats_selbox_mac(ats_castptr_mac(anairiats_rec_4, tmp676), atslab_token_loc) ; #line 782 "parser.dats" /* tmp677 = */ _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2PARCOMB_2posloc_2esats__prerr_location (tmp678) ; #line 783 "parser.dats" /* tmp679 = */ atspre_prerr_string (ATSstrcst(": exit(TIGER)")) ; #line 784 "parser.dats" /* tmp680 = */ atspre_prerr_string (ATSstrcst(": parsing failure")) ; #line 785 "parser.dats" /* tmp667 = */ atspre_prerr_newline () ; break ; /* branch: __ats_lab_113 */ #line 787 "parser.dats" __ats_lab_113_0: #line 787 "parser.dats" // if (tmp674 != (ats_sum_ptr_type)0) { ats_deadcode_failure_handle () ; } #line 787 "parser.dats" __ats_lab_113_1: #line 788 "parser.dats" /* tmp681 = */ atspre_prerr_string (ATSstrcst(": exit(TIGER)")) ; #line 789 "parser.dats" /* tmp682 = */ atspre_prerr_string (ATSstrcst(": parsing failure at the end of the token stream.")) ; #line 790 "parser.dats" /* tmp667 = */ atspre_prerr_newline () ; break ; } while (0) ; return /* (tmp667) */ ; } /* end of [_2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2parser_2edats__parse_failure] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/PARCOMB/parcomb.dats: 1967(line=61, offs=30) -- 2009(line=61, offs=72) */ ATSstaticdec() ats_ptr_type apply_parser_01700_ats_ptr_type_ats_ptr_type (ats_ptr_type arg0, ats_ref_type arg1, ats_ref_type arg2, ats_ref_type arg3) { /* local vardec */ ATSlocal (ats_ptr_type, tmp689) ; __ats_lab_apply_parser_01700_ats_ptr_type_ats_ptr_type: #line 61 "parcomb.dats" tmp689 = ((ats_ptr_type(*)(ats_clo_ptr_type, ats_ref_type, ats_ref_type, ats_ref_type))(ats_closure_fun(arg0))) (arg0, arg1, arg2, arg3) ; return (tmp689) ; } /* end of [apply_parser_01700_ats_ptr_type_ats_ptr_type] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 20449(line=796, offs=4) -- 21251(line=821, offs=4) */ ATSstaticdec() ats_ptr_type parse_from_charstream_141 (ats_ptr_type arg0) { /* local vardec */ ATSlocal (ats_ptr_type, tmp683) ; ATSlocal (ats_ptr_type, tmp684) ; ATSlocal (ats_ptr_type, tmp685) ; ATSlocal (ats_int_type, tmp686) ; ATSlocal (ats_int_type, tmp687) ; ATSlocal (ats_ptr_type, tmp688) ; ATSlocal (ats_ptr_type, tmp690) ; ATSlocal (ats_ptr_type, tmp691) ; ATSlocal (ats_ptr_type, tmp692) ; // ATSlocal_void (tmp693) ; ATSlocal (ats_ptr_type, tmp694) ; // ATSlocal_void (tmp695) ; ATSlocal (ats_ptr_type, tmp696) ; // ATSlocal_void (tmp697) ; ATSlocal (ats_ptr_type, tmp698) ; // ATSlocal_void (tmp699) ; // ATSlocal_void (tmp700) ; // ATSlocal_void (tmp701) ; __ats_lab_parse_from_charstream_141: #line 797 "parser.dats" tmp684 = _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2PARCOMB_2tokenize_2esats__tokenstream_make_charstream (arg0) ; #line 798 "parser.dats" /* ats_ptr_type tmp685 ; */ #line 798 "parser.dats" tmp685 = tmp684 ; #line 799 "parser.dats" /* ats_int_type tmp686 ; */ #line 799 "parser.dats" tmp686 = 0 ; #line 799 "parser.dats" /* ats_int_type tmp687 ; */ #line 799 "parser.dats" tmp687 = 0 ; #line 800 "parser.dats" ats_instr_move_lazy_force_mac (tmp690, ats_ptr_type, statmp260) ; #line 800 "parser.dats" tmp688 = apply_parser_01700_ats_ptr_type_ats_ptr_type (tmp690, (&tmp685), (&tmp686), (&tmp687)) ; #line 801 "parser.dats" do { /* branch: __ats_lab_114 */ #line 802 "parser.dats" __ats_lab_114_0: #line 802 "parser.dats" if (tmp688 == (ats_sum_ptr_type)0) { goto __ats_lab_115_0 ; } #line 802 "parser.dats" __ats_lab_114_1: #line 802 "parser.dats" tmp692 = ats_caselptr_mac(anairiats_sum_3, tmp688, atslab_0) ; #line 802 "parser.dats" ATS_FREE(tmp688) ; #line 802 "parser.dats" tmp691 = tmp692 ; break ; /* branch: __ats_lab_115 */ #line 803 "parser.dats" __ats_lab_115_0: #line 803 "parser.dats" // if (tmp688 != (ats_sum_ptr_type)0) { ats_deadcode_failure_handle () ; } #line 803 "parser.dats" __ats_lab_115_1: #line 804 "parser.dats" /* tmp693 = */ _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2parser_2edats__parse_failure (tmp685, tmp686, tmp687) ; #line 804 "parser.dats" /* tmp691 = */ _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2error_2esats__abort (1) ; break ; } while (0) ; #line 807 "parser.dats" tmp694 = stream_item_get_01664_ats_ptr_type ((&tmp685)) ; #line 808 "parser.dats" do { /* branch: __ats_lab_116 */ #line 809 "parser.dats" __ats_lab_116_0: #line 809 "parser.dats" if (tmp694 == (ats_sum_ptr_type)0) { goto __ats_lab_117_0 ; } #line 809 "parser.dats" __ats_lab_116_1: #line 809 "parser.dats" tmp696 = ats_caselptr_mac(anairiats_sum_3, tmp694, atslab_0) ; #line 809 "parser.dats" ATS_FREE(tmp694) ; #line 810 "parser.dats" tmp698 = ats_selbox_mac(ats_castptr_mac(anairiats_rec_4, tmp696), atslab_token_loc) ; #line 810 "parser.dats" /* tmp697 = */ _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2PARCOMB_2posloc_2esats__prerr_location (tmp698) ; #line 811 "parser.dats" /* tmp699 = */ atspre_prerr_string (ATSstrcst(": exit(TIGER)")) ; #line 812 "parser.dats" /* tmp700 = */ atspre_prerr_string (ATSstrcst(": parsing failure: unconsumed token")) ; #line 813 "parser.dats" /* tmp701 = */ atspre_prerr_newline () ; #line 814 "parser.dats" /* tmp695 = */ _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2error_2esats__abort (1) ; break ; /* branch: __ats_lab_117 */ #line 817 "parser.dats" __ats_lab_117_0: #line 817 "parser.dats" // if (tmp694 != (ats_sum_ptr_type)0) { ats_deadcode_failure_handle () ; } #line 817 "parser.dats" __ats_lab_117_1: break ; } while (0) ; #line 820 "parser.dats" tmp683 = tmp691 ; return (tmp683) ; } /* end of [parse_from_charstream_141] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 21335(line=825, offs=28) -- 21507(line=832, offs=4) */ ATSglobaldec() ats_ptr_type _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2parser_2esats__parse_from_stdin () { /* local vardec */ ATSlocal (ats_ptr_type, tmp702) ; // ATSlocal_void (tmp703) ; ATSlocal (ats_ptr_type, tmp704) ; ATSlocal (ats_ptr_type, tmp705) ; // ATSlocal_void (tmp706) ; __ats_lab__2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2parser_2esats__parse_from_stdin: #line 826 "parser.dats" /* tmp703 = */ _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2PARCOMB_2posloc_2esats__filename_push (_2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2PARCOMB_2posloc_2esats__filename_stdin) ; #line 827 "parser.dats" tmp704 = ATS_2d0_2e2_2e6_2prelude_2SATS_2filebas_2esats__char_stream_make_file (stdin) ; #line 828 "parser.dats" tmp705 = parse_from_charstream_141 (tmp704) ; #line 829 "parser.dats" /* tmp706 = */ _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2PARCOMB_2posloc_2esats__filename_pop () ; #line 831 "parser.dats" tmp702 = tmp705 ; return (tmp702) ; } /* end of [_2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2parser_2esats__parse_from_stdin] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/parser.dats: 21564(line=834, offs=27) -- 21995(line=846, offs=4) */ ATSglobaldec() ats_ptr_type _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2parser_2esats__parse_from_file (ats_ptr_type arg0) { /* local vardec */ ATSlocal (ats_ptr_type, tmp707) ; ATSlocal (ats_ptr_type, tmp708) ; ATSlocal (ats_ptr_type, tmp709) ; // ATSlocal_void (tmp710) ; ATSlocal (ats_ptr_type, tmp711) ; ATSlocal (ats_ptr_type, tmp712) ; // ATSlocal_void (tmp713) ; __ats_lab__2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2parser_2esats__parse_from_file: #line 835 "parser.dats" tmp708 = atslib_fopen_exn (arg0, "r") ; #line 837 "parser.dats" tmp709 = _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2PARCOMB_2posloc_2esats__filename_make_string (arg0) ; #line 836 "parser.dats" /* tmp710 = */ _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2PARCOMB_2posloc_2esats__filename_push (tmp709) ; #line 839 "parser.dats" tmp711 = ATS_2d0_2e2_2e6_2prelude_2SATS_2filebas_2esats__char_stream_make_file (tmp708) ; #line 840 "parser.dats" tmp712 = parse_from_charstream_141 (tmp711) ; #line 841 "parser.dats" /* tmp713 = */ _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2PARCOMB_2posloc_2esats__filename_pop () ; #line 845 "parser.dats" tmp707 = tmp712 ; return (tmp707) ; } /* end of [_2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2parser_2esats__parse_from_file] */ /* static load function */ extern ats_void_type _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2error_2esats__staload (void) ; extern ats_void_type _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2PARCOMB_2posloc_2esats__staload (void) ; extern ats_void_type _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2PARCOMB_2tokenize_2esats__staload (void) ; extern ats_void_type _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2fixity_2esats__staload (void) ; extern ats_void_type _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2PARCOMB_2parcomb_2esats__staload (void) ; extern ats_void_type _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2PARCOMB_2parcomb_2edats__staload (void) ; extern ats_void_type ATS_2d0_2e2_2e6_2libc_2SATS_2stdio_2esats__staload (void) ; // extern ats_void_type ATS_2d0_2e2_2e6_2prelude_2DATS_2array_2edats__staload (void) ; extern ats_void_type ATS_2d0_2e2_2e6_2prelude_2DATS_2list_2edats__staload (void) ; extern ats_void_type _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2absyn_2esats__staload (void) ; extern ats_void_type _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2symbol_2esats__staload (void) ; extern ats_void_type _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2parser_2esats__staload (void) ; ats_void_type _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2parser_2edats__staload () { static int _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2parser_2edats__staload_flag = 0 ; if (_2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2parser_2edats__staload_flag) return ; _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2parser_2edats__staload_flag = 1 ; _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2error_2esats__staload () ; _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2PARCOMB_2posloc_2esats__staload () ; _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2PARCOMB_2tokenize_2esats__staload () ; _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2fixity_2esats__staload () ; _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2PARCOMB_2parcomb_2esats__staload () ; _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2PARCOMB_2parcomb_2edats__staload () ; ATS_2d0_2e2_2e6_2libc_2SATS_2stdio_2esats__staload () ; // ATS_2d0_2e2_2e6_2prelude_2DATS_2array_2edats__staload () ; ATS_2d0_2e2_2e6_2prelude_2DATS_2list_2edats__staload () ; _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2absyn_2esats__staload () ; _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2symbol_2esats__staload () ; _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2parser_2esats__staload () ; return ; } /* staload function */ /* dynamic load function */ // dynload flag declaration extern ats_int_type _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2parser_2edats__dynload_flag ; ats_void_type _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2parser_2edats__dynload () { _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2parser_2edats__dynload_flag = 1 ; _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2parser_2edats__staload () ; #ifdef _ATS_PROOFCHECK ATS_2d0_2e2_2e6_2prelude_2SATS_2array_2esats__array_v_takeout2_prfck () ; ATS_2d0_2e2_2e6_2prelude_2SATS_2list_2esats__list_length_is_nonnegative_prfck () ; ATS_2d0_2e2_2e6_2prelude_2DATS_2array_2edats____copy_prfck () ; ATS_2d0_2e2_2e6_2prelude_2DATS_2array_2edats____free_prfck () ; ATS_2d0_2e2_2e6_2prelude_2DATS_2array_2edats____assert_prfck () ; ATS_2d0_2e2_2e6_2prelude_2DATS_2array_2edats____assert_prfck () ; ATS_2d0_2e2_2e6_2prelude_2DATS_2list_2edats____assert_prfck () ; ATS_2d0_2e2_2e6_2prelude_2DATS_2list_2edats____assert_prfck () ; ATS_2d0_2e2_2e6_2prelude_2DATS_2list_2edats____assert_prfck () ; ATS_2d0_2e2_2e6_2prelude_2DATS_2list_2edats____assert_prfck () ; ATS_2d0_2e2_2e6_2prelude_2DATS_2list_2edats____assert_prfck () ; ATS_2d0_2e2_2e6_2prelude_2DATS_2list_2edats____assert_prfck () ; ATS_2d0_2e2_2e6_2prelude_2DATS_2list_2edats____assert_prfck () ; ATS_2d0_2e2_2e6_2prelude_2DATS_2list_2edats____assert_prfck () ; ATS_2d0_2e2_2e6_2prelude_2DATS_2list_2edats____assert_prfck () ; ATS_2d0_2e2_2e6_2prelude_2DATS_2list_2edats____assert_prfck () ; ATS_2d0_2e2_2e6_2prelude_2DATS_2list_2edats____assert_prfck () ; ATS_2d0_2e2_2e6_2prelude_2DATS_2list_2edats____assert_prfck () ; ATS_2d0_2e2_2e6_2prelude_2DATS_2list_2edats____assert_prfck () ; ATS_2d0_2e2_2e6_2prelude_2DATS_2list_2edats____assert_prfck () ; ATS_2d0_2e2_2e6_2prelude_2DATS_2list_2edats____assert_prfck () ; ATS_2d0_2e2_2e6_2prelude_2DATS_2list_2edats____assert_prfck () ; ATS_2d0_2e2_2e6_2prelude_2DATS_2list_2edats____assert_prfck () ; ATS_2d0_2e2_2e6_2prelude_2DATS_2list_2edats____assert_prfck () ; ATS_2d0_2e2_2e6_2prelude_2DATS_2list_2edats____assert_prfck () ; ATS_2d0_2e2_2e6_2prelude_2DATS_2list_2edats____assert_prfck () ; ATS_2d0_2e2_2e6_2prelude_2DATS_2list_2edats____assert_prfck () ; ATS_2d0_2e2_2e6_2prelude_2DATS_2list_2edats____assert_prfck () ; ATS_2d0_2e2_2e6_2prelude_2DATS_2list_2edats____assert_prfck () ; ATS_2d0_2e2_2e6_2prelude_2DATS_2list_2edats____assert_prfck () ; ATS_2d0_2e2_2e6_2prelude_2DATS_2list_2edats____assert_prfck () ; ATS_2d0_2e2_2e6_2prelude_2DATS_2list_2edats____assert_prfck () ; ATS_2d0_2e2_2e6_2prelude_2DATS_2list_2edats____assert_prfck () ; ATS_2d0_2e2_2e6_2prelude_2DATS_2list_2edats____assert_prfck () ; ATS_2d0_2e2_2e6_2prelude_2DATS_2list_2edats____assert_prfck () ; ATS_2d0_2e2_2e6_2prelude_2DATS_2list_2edats____assert_prfck () ; ATS_2d0_2e2_2e6_2prelude_2DATS_2list_2edats____assert_prfck () ; ATS_2d0_2e2_2e6_2prelude_2DATS_2list_2edats____assert_prfck () ; ATS_2d0_2e2_2e6_2prelude_2DATS_2list_2edats____assert_prfck () ; ATS_2d0_2e2_2e6_2prelude_2DATS_2list_2edats____assert_prfck () ; #endif /* _ATS_PROOFCHECK */ /* marking static variables for GC */ ATS_GC_MARKROOT(&statmp0, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp12, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp33, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp34, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp35, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp36, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp37, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp38, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp39, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp40, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp45, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp46, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp47, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp48, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp49, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp50, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp51, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp52, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp53, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp54, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp55, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp56, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp57, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp58, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp59, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp60, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp61, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp62, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp63, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp64, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp65, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp66, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp67, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp68, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp69, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp70, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp71, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp72, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp73, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp74, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp75, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp76, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp77, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp78, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp79, sizeof(anairiats_rec_1)) ; ATS_GC_MARKROOT(&statmp80, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp81, sizeof(ats_size_type)) ; ATS_GC_MARKROOT(&statmp82, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp94, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp106, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp109, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp128, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp134, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp135, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp136, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp137, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp138, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp139, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp140, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp141, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp142, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp143, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp144, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp145, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp152, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp156, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp160, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp164, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp168, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp172, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp176, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp180, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp184, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp188, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp192, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp196, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp203, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp209, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp212, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp223, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp231, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp235, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp260, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp261, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp262, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp263, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp264, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp265, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp266, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp267, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp268, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp269, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp270, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp271, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp272, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp273, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp274, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp275, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp276, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp277, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp278, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp279, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp280, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp281, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp282, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp283, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp284, sizeof(ats_ptr_type)) ; /* marking external values for GC */ /* code for dynamic loading */ #line 59 "parser.dats" statmp0 = any_parser_01666_ats_ptr_type () ; #line 60 "parser.dats" statmp12 = anyopt_parser_01667_ats_ptr_type () ; #line 69 "parser.dats" statmp33 = litchar_5 ('(') ; #line 70 "parser.dats" statmp34 = litchar_5 (')') ; #line 71 "parser.dats" statmp35 = litchar_5 ('[') ; #line 72 "parser.dats" statmp36 = litchar_5 (']') ; #line 73 "parser.dats" statmp37 = litchar_5 ('{') ; #line 74 "parser.dats" statmp38 = litchar_5 ('}') ; #line 76 "parser.dats" statmp39 = litchar_5 (',') ; #line 77 "parser.dats" statmp40 = litchar_5 (';') ; #line 87 "parser.dats" statmp45 = litident_9 (ATSstrcst("array")) ; #line 88 "parser.dats" statmp46 = litident_9 (ATSstrcst("break")) ; #line 89 "parser.dats" statmp47 = litident_9 (ATSstrcst("continue")) ; #line 90 "parser.dats" statmp48 = litident_9 (ATSstrcst("do")) ; #line 91 "parser.dats" statmp49 = litident_9 (ATSstrcst("else")) ; #line 92 "parser.dats" statmp50 = litident_9 (ATSstrcst("end")) ; #line 93 "parser.dats" statmp51 = litident_9 (ATSstrcst("for")) ; #line 94 "parser.dats" statmp52 = litident_9 (ATSstrcst("function")) ; #line 95 "parser.dats" statmp53 = litident_9 (ATSstrcst("if")) ; #line 96 "parser.dats" statmp54 = litident_9 (ATSstrcst("in")) ; #line 97 "parser.dats" statmp55 = litident_9 (ATSstrcst("let")) ; #line 98 "parser.dats" statmp56 = litident_9 (ATSstrcst("nil")) ; #line 99 "parser.dats" statmp57 = litident_9 (ATSstrcst("of")) ; #line 100 "parser.dats" statmp58 = litident_9 (ATSstrcst("to")) ; #line 101 "parser.dats" statmp59 = litident_9 (ATSstrcst("var")) ; #line 102 "parser.dats" statmp60 = litident_9 (ATSstrcst("then")) ; #line 103 "parser.dats" statmp61 = litident_9 (ATSstrcst("type")) ; #line 104 "parser.dats" statmp62 = litident_9 (ATSstrcst("while")) ; #line 106 "parser.dats" statmp63 = litident_9 (ATSstrcst(":")) ; #line 107 "parser.dats" statmp64 = litident_9 (ATSstrcst(".")) ; #line 109 "parser.dats" statmp65 = litident_9 (ATSstrcst("~")) ; #line 111 "parser.dats" statmp66 = litident_9 (ATSstrcst("+")) ; #line 112 "parser.dats" statmp67 = litident_9 (ATSstrcst("-")) ; #line 113 "parser.dats" statmp68 = litident_9 (ATSstrcst("*")) ; #line 114 "parser.dats" statmp69 = litident_9 (ATSstrcst("/")) ; #line 116 "parser.dats" statmp70 = litident_9 (ATSstrcst("=")) ; #line 117 "parser.dats" statmp71 = litident_9 (ATSstrcst("<>")) ; #line 118 "parser.dats" statmp72 = litident_9 (ATSstrcst(":=")) ; #line 120 "parser.dats" statmp73 = litident_9 (ATSstrcst(">=")) ; #line 121 "parser.dats" statmp74 = litident_9 (ATSstrcst(">")) ; #line 122 "parser.dats" statmp75 = litident_9 (ATSstrcst("<=")) ; #line 123 "parser.dats" statmp76 = litident_9 (ATSstrcst("<")) ; #line 125 "parser.dats" statmp77 = litident_9 (ATSstrcst("&")) ; #line 126 "parser.dats" statmp78 = litident_9 (ATSstrcst("|")) ; #line 132 "parser.dats" /* array allocation on heap */ statmp79.atslab_2 = atspre_array_ptr_alloc_tsz (32, sizeof(ats_ptr_type)) ; statmp79.atslab_3 = 32 ; #line 132 "parser.dats" statmp80 = ats_select_mac(statmp79, atslab_2) ; #line 133 "parser.dats" ats_caselind_mac(ats_ptr_type, statmp80, [0]) = ATSstrcst("array") ; #line 134 "parser.dats" ats_caselind_mac(ats_ptr_type, statmp80, [1]) = ATSstrcst("break") ; #line 135 "parser.dats" ats_caselind_mac(ats_ptr_type, statmp80, [2]) = ATSstrcst("do") ; #line 136 "parser.dats" ats_caselind_mac(ats_ptr_type, statmp80, [3]) = ATSstrcst("else") ; #line 137 "parser.dats" ats_caselind_mac(ats_ptr_type, statmp80, [4]) = ATSstrcst("end") ; #line 138 "parser.dats" ats_caselind_mac(ats_ptr_type, statmp80, [5]) = ATSstrcst("for") ; #line 139 "parser.dats" ats_caselind_mac(ats_ptr_type, statmp80, [6]) = ATSstrcst("function") ; #line 140 "parser.dats" ats_caselind_mac(ats_ptr_type, statmp80, [7]) = ATSstrcst("if") ; #line 141 "parser.dats" ats_caselind_mac(ats_ptr_type, statmp80, [8]) = ATSstrcst("in") ; #line 142 "parser.dats" ats_caselind_mac(ats_ptr_type, statmp80, [9]) = ATSstrcst("let") ; #line 143 "parser.dats" ats_caselind_mac(ats_ptr_type, statmp80, [10]) = ATSstrcst("nil") ; #line 144 "parser.dats" ats_caselind_mac(ats_ptr_type, statmp80, [11]) = ATSstrcst("of") ; #line 145 "parser.dats" ats_caselind_mac(ats_ptr_type, statmp80, [12]) = ATSstrcst("then") ; #line 146 "parser.dats" ats_caselind_mac(ats_ptr_type, statmp80, [13]) = ATSstrcst("to") ; #line 147 "parser.dats" ats_caselind_mac(ats_ptr_type, statmp80, [14]) = ATSstrcst("type") ; #line 148 "parser.dats" ats_caselind_mac(ats_ptr_type, statmp80, [15]) = ATSstrcst("var") ; #line 149 "parser.dats" ats_caselind_mac(ats_ptr_type, statmp80, [16]) = ATSstrcst("while") ; #line 150 "parser.dats" ats_caselind_mac(ats_ptr_type, statmp80, [17]) = ATSstrcst("|") ; #line 150 "parser.dats" ats_caselind_mac(ats_ptr_type, statmp80, [18]) = ATSstrcst("&") ; #line 151 "parser.dats" ats_caselind_mac(ats_ptr_type, statmp80, [19]) = ATSstrcst(".") ; #line 151 "parser.dats" ats_caselind_mac(ats_ptr_type, statmp80, [20]) = ATSstrcst(":") ; #line 152 "parser.dats" ats_caselind_mac(ats_ptr_type, statmp80, [21]) = ATSstrcst("+") ; #line 152 "parser.dats" ats_caselind_mac(ats_ptr_type, statmp80, [22]) = ATSstrcst("-") ; #line 152 "parser.dats" ats_caselind_mac(ats_ptr_type, statmp80, [23]) = ATSstrcst("/") ; #line 152 "parser.dats" ats_caselind_mac(ats_ptr_type, statmp80, [24]) = ATSstrcst("*") ; #line 153 "parser.dats" ats_caselind_mac(ats_ptr_type, statmp80, [25]) = ATSstrcst("=") ; #line 153 "parser.dats" ats_caselind_mac(ats_ptr_type, statmp80, [26]) = ATSstrcst(":=") ; #line 154 "parser.dats" ats_caselind_mac(ats_ptr_type, statmp80, [27]) = ATSstrcst(">=") ; #line 154 "parser.dats" ats_caselind_mac(ats_ptr_type, statmp80, [28]) = ATSstrcst(">") ; #line 154 "parser.dats" ats_caselind_mac(ats_ptr_type, statmp80, [29]) = ATSstrcst("<=") ; #line 154 "parser.dats" ats_caselind_mac(ats_ptr_type, statmp80, [30]) = ATSstrcst("<") ; #line 154 "parser.dats" ats_caselind_mac(ats_ptr_type, statmp80, [31]) = ATSstrcst("<>") ; #line 159 "parser.dats" statmp81 = ats_select_mac(statmp79, atslab_3) ; #line 160 "parser.dats" statmp82 = ATS_2d0_2e2_2e6_2prelude_2SATS_2array_2esats__array_make_arrsz (statmp79) ; #line 180 "parser.dats" statmp94 = sat_parser_fun_01691_ats_ptr_type_ats_ptr_type (statmp0, &__ats_fun_15) ; #line 186 "parser.dats" statmp106 = sat_parser_fun_01691_ats_ptr_type_ats_ptr_type (statmp0, &__ats_fun_16) ; #line 192 "parser.dats" statmp109 = sat_parser_fun_01691_ats_ptr_type_ats_ptr_type (statmp0, &__ats_fun_17) ; #line 225 "parser.dats" statmp145 = seq1wth_parser_fun_01673_ats_ptr_type_2cats_ptr_type_ats_ptr_type (statmp65, &__ats_fun_26) ; #line 228 "parser.dats" statmp152 = seq1wth_parser_fun_01673_ats_ptr_type_2cats_ptr_type_ats_ptr_type (statmp66, &__ats_fun_27) ; #line 225 "parser.dats" statmp144 = alt_parser_parser_01671_ats_ptr_type_ats_ptr_type (statmp145, statmp152) ; #line 231 "parser.dats" statmp156 = seq1wth_parser_fun_01673_ats_ptr_type_2cats_ptr_type_ats_ptr_type (statmp67, &__ats_fun_28) ; #line 225 "parser.dats" statmp143 = alt_parser_parser_01671_ats_ptr_type_ats_ptr_type (statmp144, statmp156) ; #line 234 "parser.dats" statmp160 = seq1wth_parser_fun_01673_ats_ptr_type_2cats_ptr_type_ats_ptr_type (statmp68, &__ats_fun_29) ; #line 225 "parser.dats" statmp142 = alt_parser_parser_01671_ats_ptr_type_ats_ptr_type (statmp143, statmp160) ; #line 237 "parser.dats" statmp164 = seq1wth_parser_fun_01673_ats_ptr_type_2cats_ptr_type_ats_ptr_type (statmp69, &__ats_fun_30) ; #line 225 "parser.dats" statmp141 = alt_parser_parser_01671_ats_ptr_type_ats_ptr_type (statmp142, statmp164) ; #line 240 "parser.dats" statmp168 = seq1wth_parser_fun_01673_ats_ptr_type_2cats_ptr_type_ats_ptr_type (statmp73, &__ats_fun_31) ; #line 225 "parser.dats" statmp140 = alt_parser_parser_01671_ats_ptr_type_ats_ptr_type (statmp141, statmp168) ; #line 243 "parser.dats" statmp172 = seq1wth_parser_fun_01673_ats_ptr_type_2cats_ptr_type_ats_ptr_type (statmp74, &__ats_fun_32) ; #line 225 "parser.dats" statmp139 = alt_parser_parser_01671_ats_ptr_type_ats_ptr_type (statmp140, statmp172) ; #line 246 "parser.dats" statmp176 = seq1wth_parser_fun_01673_ats_ptr_type_2cats_ptr_type_ats_ptr_type (statmp75, &__ats_fun_33) ; #line 225 "parser.dats" statmp138 = alt_parser_parser_01671_ats_ptr_type_ats_ptr_type (statmp139, statmp176) ; #line 249 "parser.dats" statmp180 = seq1wth_parser_fun_01673_ats_ptr_type_2cats_ptr_type_ats_ptr_type (statmp76, &__ats_fun_34) ; #line 225 "parser.dats" statmp137 = alt_parser_parser_01671_ats_ptr_type_ats_ptr_type (statmp138, statmp180) ; #line 252 "parser.dats" statmp184 = seq1wth_parser_fun_01673_ats_ptr_type_2cats_ptr_type_ats_ptr_type (statmp70, &__ats_fun_35) ; #line 225 "parser.dats" statmp136 = alt_parser_parser_01671_ats_ptr_type_ats_ptr_type (statmp137, statmp184) ; #line 255 "parser.dats" statmp188 = seq1wth_parser_fun_01673_ats_ptr_type_2cats_ptr_type_ats_ptr_type (statmp71, &__ats_fun_36) ; #line 225 "parser.dats" statmp135 = alt_parser_parser_01671_ats_ptr_type_ats_ptr_type (statmp136, statmp188) ; #line 258 "parser.dats" statmp192 = seq1wth_parser_fun_01673_ats_ptr_type_2cats_ptr_type_ats_ptr_type (statmp77, &__ats_fun_37) ; #line 225 "parser.dats" statmp134 = alt_parser_parser_01671_ats_ptr_type_ats_ptr_type (statmp135, statmp192) ; #line 261 "parser.dats" statmp196 = seq1wth_parser_fun_01673_ats_ptr_type_2cats_ptr_type_ats_ptr_type (statmp78, &__ats_fun_38) ; #line 225 "parser.dats" statmp128 = alt_parser_parser_01671_ats_ptr_type_ats_ptr_type (statmp134, statmp196) ; #line 302 "parser.dats" statmp203 = seq1wth_parser_fun_01673_ats_ptr_type_2cats_ptr_type_ats_ptr_type (statmp94, &__ats_fun_40) ; #line 310 "parser.dats" statmp209 = seq1wth_parser_fun_01673_ats_ptr_type_2cats_ptr_type_ats_ptr_type (statmp46, &f_break_41) ; #line 314 "parser.dats" statmp212 = seq1wth_parser_fun_01673_ats_ptr_type_2cats_ptr_type_ats_ptr_type (statmp47, &f_continue_42) ; #line 321 "parser.dats" statmp231 = proj2_parser_parser_01690_ats_ptr_type_2cats_ptr_type_ats_ptr_type (statmp63, statmp94) ; #line 321 "parser.dats" statmp223 = seq2wth_parser_fun_01675_ats_ptr_type_2cats_ptr_type_2cats_ptr_type_ats_ptr_type (statmp94, statmp231, &f_43) ; #line 335 "parser.dats" statmp235 = repeat0_sep_parser_01698_ats_ptr_type_2cats_ptr_type_ats_ptr_type (statmp223, statmp39) ; #line 347 "parser.dats" ats_instr_move_lazy_delay_mac (statmp260, ats_ptr_type, __ats_fun_53_closure_make ()) ; #line 361 "parser.dats" ats_instr_move_lazy_delay_mac (statmp261, ats_ptr_type, __ats_fun_54_closure_make ()) ; #line 365 "parser.dats" ats_instr_move_lazy_delay_mac (statmp262, ats_ptr_type, __ats_fun_55_closure_make ()) ; #line 371 "parser.dats" ats_instr_move_lazy_delay_mac (statmp263, ats_ptr_type, __ats_fun_56_closure_make ()) ; #line 378 "parser.dats" ats_instr_move_lazy_delay_mac (statmp264, ats_ptr_type, __ats_fun_64_closure_make ()) ; #line 404 "parser.dats" ats_instr_move_lazy_delay_mac (statmp265, ats_ptr_type, __ats_fun_81_closure_make ()) ; #line 448 "parser.dats" ats_instr_move_lazy_delay_mac (statmp266, ats_ptr_type, __ats_fun_88_closure_make ()) ; #line 458 "parser.dats" ats_instr_move_lazy_delay_mac (statmp267, ats_ptr_type, __ats_fun_94_closure_make ()) ; #line 500 "parser.dats" ats_instr_move_lazy_delay_mac (statmp268, ats_ptr_type, __ats_fun_101_closure_make ()) ; #line 512 "parser.dats" ats_instr_move_lazy_delay_mac (statmp269, ats_ptr_type, __ats_fun_102_closure_make ()) ; #line 514 "parser.dats" ats_instr_move_lazy_delay_mac (statmp270, ats_ptr_type, __ats_fun_104_closure_make ()) ; #line 530 "parser.dats" ats_instr_move_lazy_delay_mac (statmp271, ats_ptr_type, __ats_fun_105_closure_make ()) ; #line 543 "parser.dats" ats_instr_move_lazy_delay_mac (statmp272, ats_ptr_type, __ats_fun_108_closure_make ()) ; #line 559 "parser.dats" ats_instr_move_lazy_delay_mac (statmp273, ats_ptr_type, __ats_fun_112_closure_make ()) ; #line 574 "parser.dats" ats_instr_move_lazy_delay_mac (statmp274, ats_ptr_type, __ats_fun_116_closure_make ()) ; #line 588 "parser.dats" ats_instr_move_lazy_delay_mac (statmp275, ats_ptr_type, __ats_fun_118_closure_make ()) ; #line 609 "parser.dats" ats_instr_move_lazy_delay_mac (statmp276, ats_ptr_type, __ats_fun_122_closure_make ()) ; #line 632 "parser.dats" ats_instr_move_lazy_delay_mac (statmp277, ats_ptr_type, __ats_fun_125_closure_make ()) ; #line 667 "parser.dats" ats_instr_move_lazy_delay_mac (statmp278, ats_ptr_type, __ats_fun_126_closure_make ()) ; #line 671 "parser.dats" ats_instr_move_lazy_delay_mac (statmp279, ats_ptr_type, __ats_fun_128_closure_make ()) ; #line 699 "parser.dats" ats_instr_move_lazy_delay_mac (statmp280, ats_ptr_type, __ats_fun_132_closure_make ()) ; #line 726 "parser.dats" ats_instr_move_lazy_delay_mac (statmp281, ats_ptr_type, __ats_fun_134_closure_make ()) ; #line 739 "parser.dats" ats_instr_move_lazy_delay_mac (statmp282, ats_ptr_type, __ats_fun_135_closure_make ()) ; #line 743 "parser.dats" ats_instr_move_lazy_delay_mac (statmp283, ats_ptr_type, __ats_fun_137_closure_make ()) ; #line 763 "parser.dats" ats_instr_move_lazy_delay_mac (statmp284, ats_ptr_type, __ats_fun_138_closure_make ()) ; return ; } /* end of [dynload function] */ /* external codes at mid */ /* external codes at bot */ /* ****** ****** */ /* end of [parser_dats.c] */