/* Generated by CIL v. 1.2.4 */ /* print_CIL_Input is false */ #define CCURED_SPLIT_ARGUMENTS // #define CCURED_ALLOW_PARTIAL_ELEMENTS_IN_SEQUENCE // #define CCURED_LOG_NON_POINTERS // #define CCURED_USE_STRINGS // #define CCURED_FAIL_IS_TERSE // #define CCURED_ALWAYS_STOP_ON_ERROR // Include the definition of the checkers #define CCURED #define CCURED_POST #include "ccuredcheck.h" extern unsigned int ___stack_threshhold ; extern unsigned int ___compute_stack_threshhold(void) ; extern void ___stack_overflow(void) ; #line 452 "d:/home/db/postdoc/Blast/ccured/include/ccured.h" struct printf_arguments { int i ; double d ; char * __ROSTRING s ; long long ll ; }; #line 13 "/usr/include/sys/_types.h" typedef long long _off64_t; #line 16 "/usr/include/sys/_types.h" typedef int _ssize_t; #line 361 "C:/cygwin/lib/gcc-lib/i686-pc-cygwin/3.3.1/include/stddef.h" typedef unsigned int wint_t; #line 25 "/usr/include/sys/_types.h" union __anonunion___value_2 { wint_t __wch ; unsigned char ( __wchb)[4] ; }; #line 25 "/usr/include/sys/_types.h" struct __anonstruct__mbstate_t_1 { int __count ; union __anonunion___value_2 __value ; }; #line 25 "/usr/include/sys/_types.h" typedef struct __anonstruct__mbstate_t_1 _mbstate_t; #line 35 "/usr/include/sys/_types.h" typedef int _flock_t; #line 19 "d:/home/db/postdoc/Blast/ccured/include/gcc_3.3.1/sys/reent.h" typedef unsigned long __ULong; #line 40 "d:/home/db/postdoc/Blast/ccured/include/gcc_3.3.1/sys/reent.h" struct _Bigint { struct _Bigint * _next ; int _k ; int _maxwds ; int _sign ; int _wds ; __ULong ( _x)[1] ; }; #line 48 "d:/home/db/postdoc/Blast/ccured/include/gcc_3.3.1/sys/reent.h" struct __tm { int __tm_sec ; int __tm_min ; int __tm_hour ; int __tm_mday ; int __tm_mon ; int __tm_year ; int __tm_wday ; int __tm_yday ; int __tm_isdst ; }; #line 67 "d:/home/db/postdoc/Blast/ccured/include/gcc_3.3.1/sys/reent.h" struct _on_exit_args { void * ( _fnargs)[32] ; __ULong _fntypes ; }; #line 80 "d:/home/db/postdoc/Blast/ccured/include/gcc_3.3.1/sys/reent.h" struct _atexit { struct _atexit * _next ; int _ind ; void (* ( _fns)[32])(void) ; struct _on_exit_args _on_exit_args ; }; #line 95 "d:/home/db/postdoc/Blast/ccured/include/gcc_3.3.1/sys/reent.h" struct __sbuf { unsigned char * _base ; int _size ; }; #line 105 "d:/home/db/postdoc/Blast/ccured/include/gcc_3.3.1/sys/reent.h" typedef long _fpos_t; #line 109 "d:/home/db/postdoc/Blast/ccured/include/gcc_3.3.1/sys/reent.h" typedef _off64_t _fpos64_t; #line 160 struct _reent; #line 208 "d:/home/db/postdoc/Blast/ccured/include/gcc_3.3.1/sys/reent.h" struct __sFILE64 { unsigned char * _p ; int _r ; int _w ; short _flags ; short _file ; struct __sbuf _bf ; int _lbfsize ; struct _reent * _data ; void * _cookie ; _ssize_t ( __attribute__((__cdecl__)) (* _read))(void * _cookie , char * _buf , int _n ) ; _ssize_t ( __attribute__((__cdecl__)) (* _write))(void * _cookie , char * _buf , int _n ) ; _fpos_t ( __attribute__((__cdecl__)) (* _seek))(void * _cookie , _fpos_t _offset , int _whence ) ; int ( __attribute__((__cdecl__)) (* _close))(void * _cookie ) ; struct __sbuf _ub ; unsigned char * _up ; int _ur ; unsigned char ( _ubuf)[3] ; unsigned char ( _nbuf)[1] ; struct __sbuf _lb ; int _blksize ; int _flags2 ; _off64_t _offset ; _fpos64_t ( __attribute__((__cdecl__)) (* _seek64))(void * _cookie , _fpos64_t _offset , int _whence ) ; _flock_t _lock ; }; #line 251 "d:/home/db/postdoc/Blast/ccured/include/gcc_3.3.1/sys/reent.h" typedef struct __sFILE64 __FILE; #line 256 "d:/home/db/postdoc/Blast/ccured/include/gcc_3.3.1/sys/reent.h" struct _glue { struct _glue * _next ; int _niobs ; __FILE * _iobs ; }; #line 284 "d:/home/db/postdoc/Blast/ccured/include/gcc_3.3.1/sys/reent.h" struct _rand48 { unsigned short ( _seed)[3] ; unsigned short ( _mult)[3] ; unsigned short _add ; }; #line 533 "d:/home/db/postdoc/Blast/ccured/include/gcc_3.3.1/sys/reent.h" struct _new_reent { unsigned int _unused_rand ; char * _strtok_last ; char ( _asctime_buf)[26] ; struct __tm _localtime_buf ; int _gamma_signgam ; unsigned long long _rand_next ; struct _rand48 _r48 ; _mbstate_t _mblen_state ; _mbstate_t _mbtowc_state ; _mbstate_t _wctomb_state ; char ( _l64a_buf)[8] ; char ( _signal_buf)[24] ; int _getdate_err ; _mbstate_t _mbrlen_state ; _mbstate_t _mbrtowc_state ; _mbstate_t _mbsrtowcs_state ; _mbstate_t _wcrtomb_state ; _mbstate_t _wcsrtombs_state ; }; #line 533 "d:/home/db/postdoc/Blast/ccured/include/gcc_3.3.1/sys/reent.h" struct __anonstruct__new_3 { struct _new_reent _reent ; char ( _unused)[(int )((2U * sizeof(int )) * 30U - sizeof(struct _new_reent ))] ; }; #line 533 "d:/home/db/postdoc/Blast/ccured/include/gcc_3.3.1/sys/reent.h" struct _reent { int _errno ; __FILE * _stdin ; __FILE * _stdout ; __FILE * _stderr ; int _inc ; char ( _emergency)[25] ; int _current_category ; char * _current_locale ; int __sdidinit ; void ( __attribute__((__cdecl__)) (* __cleanup))(struct _reent * ) ; struct _Bigint * _result ; int _result_k ; struct _Bigint * _p5s ; struct _Bigint * * _freelist ; int _cvtlen ; char * _cvtbuf ; struct __anonstruct__new_3 _new ; struct _atexit * _atexit ; struct _atexit _atexit0 ; void (* * _sig_func)(int ) ; struct _glue __sglue ; __FILE ( __sf)[3] ; }; #line 220 "C:/cygwin/lib/gcc-lib/i686-pc-cygwin/3.3.1/include/stddef.h" typedef unsigned int size_t; #line 50 "d:/home/db/postdoc/Blast/ccured/include/gcc_3.3.1/stdio.h" typedef __FILE FILE; #line 105 "d:/home/db/postdoc/Blast/ccured/include/stdio_wrappers.h" struct scanf_format { int * p_int ; double * p_double ; long * p_long ; unsigned int * p_uint ; unsigned long * p_ulong ; char * p_char ; short * p_short ; }; #line 204 "/usr/include/machine/setjmp.h" typedef int ( __FSEQ jmp_buf)[52]; #line 195 "xlisp.h" struct xsym { struct node * xsy_plist ; struct node * xsy_value ; }; #line 195 "xlisp.h" struct xlist { struct node * xl_car ; struct node * xl_cdr ; }; #line 195 "xlisp.h" union __anonunion____missing_field_name_8 { struct xsym n_xsym ; struct xlist n_xlist ; }; #line 195 "xlisp.h" struct xsubr { struct node * (* xsu_subr)(struct node * ) ; }; #line 195 "xlisp.h" struct xint { long xi_int ; }; #line 195 "xlisp.h" struct xfloat { float xf_float ; }; #line 195 "xlisp.h" struct meta_seq_char { void *_b ; void *_e ; } ; #line 195 "xlisp.h" struct seq_char { char * __SEQ _p ; struct meta_seq_char _ms ; } ; #line 195 "xlisp.h" typedef struct seq_char seq_char; #line 195 "xlisp.h" struct xstr { int xst_type ; seq_char xst_str ; }; #line 195 "xlisp.h" struct xfptr { FILE * xf_fp ; int xf_savech ; }; #line 195 "xlisp.h" struct meta_fseqp_p_s_node { void *_e ; } ; #line 195 "xlisp.h" struct fseqp_p_s_node { struct node * * __FSEQ _p ; struct meta_fseqp_p_s_node _ms ; } ; #line 195 "xlisp.h" typedef struct fseqp_p_s_node fseqp_p_s_node; #line 195 "xlisp.h" struct xvect { int xv_size ; fseqp_p_s_node xv_data ; }; #line 195 "xlisp.h" struct __anonstruct_n_info_7 { union __anonunion____missing_field_name_8 __annonCompField1 ; struct xsubr n_xsubr ; struct xint n_xint ; struct xfloat n_xfloat ; struct xstr n_xstr ; struct xfptr n_xfptr ; struct xvect n_xvect ; }; #line 195 "xlisp.h" struct node { char n_type ; char n_flags ; struct __anonstruct_n_info_7 n_info ; }; #line 195 "xlisp.h" typedef struct node NODE; #line 289 "xlisp.h" struct meta_seq_p_p_s_node { void *_b ; void *_e ; } ; #line 289 "xlisp.h" struct seq_p_p_s_node { struct node * * * __SEQ _p ; struct meta_seq_p_p_s_node _ms ; } ; #line 289 "xlisp.h" typedef struct seq_p_p_s_node seq_p_p_s_node; #line 289 "xlisp.h" struct context { int c_flags ; struct node * c_expr ; jmp_buf c_jmpbuf ; struct context * c_xlcontext ; seq_p_p_s_node c_xlstack ; struct node * c_xlenv ; int c_xltrace ; }; #line 289 "xlisp.h" typedef struct context CONTEXT; #line 300 "xlisp.h" struct fdef { struct seq_char f_name ; int f_type ; struct node * (* f_fcn)(struct node * ) ; }; #line 308 "xlisp.h" struct _sized_a_s_node { unsigned int _size ; struct node ( __SIZED _array)[0] __attribute__((__packed__)) ; }; #line 308 "xlisp.h" typedef struct _sized_a_s_node _sized_a_s_node; #line 308 "xlisp.h" struct segment { int sg_size ; struct segment * sg_next ; _sized_a_s_node __SIZED sg_nodes ; }; #line 129 "d:/home/db/postdoc/Blast/ccured/include/ccuredannot.h" extern void __ccuredInit(void) ; #line 328 "d:/home/db/postdoc/Blast/ccured/include/ccured.h" extern __attribute__((__noreturn__)) void abort_deepcopy(char * errmsg ) ; #line 739 "D:/home/db/Software/cygwin/usr/include/sys/reent.h" extern struct _reent * ( __attribute__((__cdecl__)) __getreent)(void) ; #line 36 "/usr/include/math.h" extern double cos(double ) ; #line 37 extern double sin(double ) ; #line 38 extern double tan(double ) ; #line 56 extern double exp(double ) ; #line 60 extern double pow(double , double ) ; #line 61 extern double sqrt(double ) ; #line 194 "d:/home/db/postdoc/Blast/ccured/include/gcc_3.3.1/stdio.h" struct __sFILE64_COMPAT; #line 194 "d:/home/db/postdoc/Blast/ccured/include/gcc_3.3.1/stdio.h" typedef struct __sFILE64_COMPAT __FILE_COMPAT; #line 194 "d:/home/db/postdoc/Blast/ccured/include/gcc_3.3.1/stdio.h" typedef __FILE_COMPAT FILE_COMPAT; #line 194 "d:/home/db/postdoc/Blast/ccured/include/gcc_3.3.1/stdio.h" struct __sbuf_COMPAT { unsigned char * _base ; int _size ; }; #line 194 struct _reent_COMPAT; #line 194 "d:/home/db/postdoc/Blast/ccured/include/gcc_3.3.1/stdio.h" struct __sFILE64_COMPAT { unsigned char * _p ; int _r ; int _w ; short _flags ; short _file ; struct __sbuf_COMPAT _bf ; int _lbfsize ; struct _reent_COMPAT * _data ; void * _cookie ; _ssize_t ( __attribute__((__cdecl__)) (* _read))(void * _cookie , char * _buf , int _n ) ; _ssize_t ( __attribute__((__cdecl__)) (* _write))(void * _cookie , char * _buf , int _n ) ; _fpos_t ( __attribute__((__cdecl__)) (* _seek))(void * _cookie , _fpos_t _offset , int _whence ) ; int ( __attribute__((__cdecl__)) (* _close))(void * _cookie ) ; struct __sbuf_COMPAT _ub ; unsigned char * _up ; int _ur ; unsigned char ( _ubuf)[3] ; unsigned char ( _nbuf)[1] ; struct __sbuf_COMPAT _lb ; int _blksize ; int _flags2 ; _off64_t _offset ; _fpos64_t ( __attribute__((__cdecl__)) (* _seek64))(void * _cookie , _fpos64_t _offset , int _whence ) ; _flock_t _lock ; }; #line 194 extern int ( __attribute__((__cdecl__)) fclose)(FILE_COMPAT * ) ; #line 195 struct _Bigint_COMPAT; #line 195 "d:/home/db/postdoc/Blast/ccured/include/gcc_3.3.1/stdio.h" struct _new_reent_COMPAT { unsigned int _unused_rand ; char * _strtok_last ; char ( _asctime_buf)[26] ; struct __tm _localtime_buf ; int _gamma_signgam ; unsigned long long _rand_next ; struct _rand48 _r48 ; _mbstate_t _mblen_state ; _mbstate_t _mbtowc_state ; _mbstate_t _wctomb_state ; char ( _l64a_buf)[8] ; char ( _signal_buf)[24] ; int _getdate_err ; _mbstate_t _mbrlen_state ; _mbstate_t _mbrtowc_state ; _mbstate_t _mbsrtowcs_state ; _mbstate_t _wcrtomb_state ; _mbstate_t _wcsrtombs_state ; }; #line 195 "d:/home/db/postdoc/Blast/ccured/include/gcc_3.3.1/stdio.h" struct __anonstruct__new_3_COMPAT { struct _new_reent_COMPAT _reent ; char ( _unused)[(int )((2U * sizeof(int )) * 30U - sizeof(struct _new_reent ))] ; }; #line 195 struct _atexit_COMPAT; #line 195 "d:/home/db/postdoc/Blast/ccured/include/gcc_3.3.1/stdio.h" struct _on_exit_args_COMPAT { void * ( _fnargs)[32] ; __ULong _fntypes ; }; #line 195 "d:/home/db/postdoc/Blast/ccured/include/gcc_3.3.1/stdio.h" struct _atexit_COMPAT { struct _atexit_COMPAT * _next ; int _ind ; void (* ( _fns)[32])(void) ; struct _on_exit_args_COMPAT _on_exit_args ; }; #line 195 "d:/home/db/postdoc/Blast/ccured/include/gcc_3.3.1/stdio.h" struct _glue_COMPAT { struct _glue_COMPAT * _next ; int _niobs ; __FILE_COMPAT * _iobs ; }; #line 195 "d:/home/db/postdoc/Blast/ccured/include/gcc_3.3.1/stdio.h" struct _reent_COMPAT { int _errno ; __FILE_COMPAT * _stdin ; __FILE_COMPAT * _stdout ; __FILE_COMPAT * _stderr ; int _inc ; char ( _emergency)[25] ; int _current_category ; char * _current_locale ; int __sdidinit ; void ( __attribute__((__cdecl__)) (* __cleanup))(struct _reent_COMPAT * ) ; struct _Bigint_COMPAT * _result ; int _result_k ; struct _Bigint_COMPAT * _p5s ; struct _Bigint_COMPAT * * _freelist ; int _cvtlen ; char * _cvtbuf ; struct __anonstruct__new_3_COMPAT _new ; struct _atexit_COMPAT * _atexit ; struct _atexit_COMPAT _atexit0 ; void (* * _sig_func)(int ) ; struct _glue_COMPAT __sglue ; __FILE_COMPAT ( __sf)[3] ; }; #line 201 extern int ( __CCUREDFORMAT(1) __CCUREDVARARG(struct printf_arguments ) __attribute__((__cdecl__)) printf)(char * , ...) ; #line 207 "d:/home/db/postdoc/Blast/ccured/include/gcc_3.3.1/stdio.h" struct _Bigint_COMPAT { struct _Bigint_COMPAT * _next ; int _k ; int _maxwds ; int _sign ; int _wds ; __ULong ( _x)[1] ; }; #line 211 extern int ( __attribute__((__cdecl__)) getc)(FILE_COMPAT * ) ; #line 214 extern int ( __attribute__((__cdecl__)) putc)(int , FILE_COMPAT * ) ; #line 238 extern FILE_COMPAT * ( __attribute__((__cdecl__)) fopen)(char * _name , char * _type ) ; #line 52 "d:/home/db/postdoc/Blast/ccured/include/gcc_3.3.1/stdlib.h" extern double ( __attribute__((__cdecl__)) atof)(char * __nptr ) ; #line 57 extern long ( __attribute__((__cdecl__)) atol)(char * __nptr ) ; #line 65 extern __attribute__((__noreturn__)) void ( __attribute__((__cdecl__)) exit)(int __status ) ; #line 66 extern void ( __attribute__((__cdecl__)) free)(void * ) ; #line 91 extern int ( __attribute__((__cdecl__)) rand)(void) ; #line 47 "d:/home/db/postdoc/Blast/ccured/include/ccured_GNUCC.patch" extern int _get_ctype_p1(unsigned int ) ; #line 14 "d:/home/db/postdoc/Blast/ccured/include/gcc_3.3.1/setjmp.h" extern void ( __attribute__((__cdecl__)) longjmp)(int * __jmpb , int __retval ) ; #line 15 extern int ( __attribute__((__cdecl__)) setjmp)(int * __jmpb ) ; #line 29 "d:/home/db/postdoc/Blast/ccured/include/gcc_3.3.1/string.h" extern int ( __attribute__((__cdecl__)) strcmp)(char * , char * ) ; #line 31 extern char * ( __attribute__((__cdecl__)) strcpy)(char * , char * ) ; #line 1 "proto.h" NODE * xeval(NODE * __cil_tmp6 ) ; #line 2 NODE * xapply(NODE * __cil_tmp7 ) ; #line 3 NODE * xfuncall(NODE * __cil_tmp7 ) ; #line 4 NODE * xquote(NODE * __cil_tmp4 ) ; #line 5 NODE * xfunction(NODE * __cil_tmp4 ) ; #line 6 NODE * xlambda(NODE * __cil_tmp6 ) ; #line 7 NODE * xbquote(NODE * __cil_tmp6 ) ; #line 8 static NODE * bquote1(NODE * expr ) ; #line 9 NODE * xset(NODE * __cil_tmp5 ) ; #line 10 NODE * xsetq(NODE * args ) ; #line 11 NODE * xsetf(NODE * args ) ; #line 12 static int placeform(NODE * __cil_tmp9 , NODE * value ) ; #line 13 NODE * xdefun(NODE * args ) ; #line 14 NODE * xdefmacro(NODE * args ) ; #line 15 static NODE * defun(NODE * __cil_tmp8 , NODE * type ) ; #line 16 NODE * xgensym(NODE * __cil_tmp8 ) ; #line 17 NODE * xmakesymbol(NODE * args ) ; #line 18 NODE * xintern(NODE * args ) ; #line 19 static NODE * makesymbol(NODE * __cil_tmp10 , int iflag ) ; #line 20 NODE * xsymname(NODE * __cil_tmp4 ) ; #line 21 NODE * xsymvalue(NODE * __cil_tmp5 ) ; #line 22 NODE * xsymplist(NODE * __cil_tmp4 ) ; #line 23 NODE * xget(NODE * __cil_tmp6 ) ; #line 24 NODE * xputprop(NODE * __cil_tmp6 ) ; #line 25 NODE * xremprop(NODE * __cil_tmp5 ) ; #line 26 NODE * xhash(NODE * __cil_tmp9 ) ; #line 27 NODE * xaref(NODE * __cil_tmp6 ) ; #line 28 NODE * xmkarray(NODE * __cil_tmp6 ) ; #line 29 NODE * xcond(NODE * args ) ; #line 30 NODE * xcase(NODE * args ) ; #line 32 NODE * xand(NODE * args ) ; #line 33 NODE * xor(NODE * args ) ; #line 34 NODE * xif(NODE * __cil_tmp12 ) ; #line 35 NODE * xlet(NODE * args ) ; #line 36 NODE * xletstar(NODE * args ) ; #line 38 NODE * xprog(NODE * args ) ; #line 39 NODE * xprogstar(NODE * args ) ; #line 41 NODE * xgo(NODE * __cil_tmp4 ) ; #line 42 NODE * xreturn(NODE * __cil_tmp5 ) ; #line 43 NODE * xprog1(NODE * args ) ; #line 44 NODE * xprog2(NODE * args ) ; #line 46 NODE * xprogn(NODE * args ) ; #line 47 NODE * xdo(NODE * args ) ; #line 48 NODE * xdostar(NODE * args ) ; #line 50 NODE * xdolist(NODE * args ) ; #line 51 NODE * xdotimes(NODE * args ) ; #line 52 NODE * xcatch(NODE * __cil_tmp9 ) ; #line 53 NODE * xthrow(NODE * __cil_tmp6 ) ; #line 54 NODE * xerror(NODE * __cil_tmp7 ) ; #line 55 NODE * xcerror(NODE * __cil_tmp9 ) ; #line 56 NODE * xbreak(NODE * __cil_tmp8 ) ; #line 57 NODE * xcleanup(NODE * args ) ; #line 58 NODE * xcontinue(NODE * args ) ; #line 59 NODE * xerrset(NODE * __cil_tmp10 ) ; #line 60 NODE * xevalhook(NODE * __cil_tmp13 ) ; #line 62 void doupdates(NODE * blist , int pflag ) ; #line 63 int tagblock(NODE * code , NODE * * pval ) ; #line 64 "proto.h" struct meta_fseqp_char { void *_e ; } ; #line 64 "proto.h" struct fseqp_char { char * __FSEQ _p ; struct meta_fseqp_char _ms ; } ; #line 64 void xlbreak_fs(char * __FSEQ emsg , void *emsg_e , NODE * arg ) ; #line 65 void xlerror_fs(char * __FSEQ emsg , void *emsg_e , NODE * arg ) ; #line 66 void xlcerror_ffs(char * __FSEQ cmsg , void *cmsg_e , char * __FSEQ emsg , void *emsg_e , NODE * arg ) ; #line 67 void xlerrprint_fffs(char * __FSEQ hdr , void *hdr_e , char * __FSEQ cmsg , void *cmsg_e , char * __FSEQ emsg , void *emsg_e , NODE * arg ) ; #line 71 void xlbaktrace(int n ) ; #line 72 void xldinit(void) ; #line 73 NODE * cons(NODE * x , NODE * y ) ; #line 74 NODE * consa(NODE * x ) ; #line 75 NODE * consd(NODE * x ) ; #line 76 NODE * cvstring_sf(char * __FSEQ str , void *str_e ) ; #line 77 NODE * cvcstring_sq(char * __SEQ str , void *str_b , void *str_e ) ; #line 78 NODE * cvsymbol_sf(char * __FSEQ pname___21 , void *pname___21_e ) ; #line 79 NODE * cvcsymbol_sq(char * __SEQ pname___21 , void *pname___21_b , void *pname___21_e ) ; #line 81 NODE * cvsubr(struct node * (* fcn)(struct node * ) , int type ) ; #line 82 NODE * cvfile(FILE * fp ) ; #line 83 NODE * cvfixnum(long n ) ; #line 84 NODE * cvflonum(float n ) ; #line 85 NODE * newstring(int size ) ; #line 86 NODE * newobject(NODE * cls , int size ) ; #line 87 NODE * newvector(int size ) ; #line 91 void findmem(void) ; #line 92 void gc(void) ; #line 93 void mark(NODE * ptr ) ; #line 94 void vmark(NODE * n ) ; #line 96 int addseg(void) ; #line 99 void stats(void) ; #line 100 void xlminit(void) ; #line 101 NODE * xleval(NODE * expr ) ; #line 102 NODE * xlxeval(NODE * expr ) ; #line 103 NODE * xlapply(NODE * fun , NODE * args ) ; #line 106 NODE * xlevlist(NODE * args ) ; #line 107 void xlunbound(NODE * sym ) ; #line 109 void xlabind(NODE * fargs , NODE * aargs , NODE * env ) ; #line 111 NODE * xread(NODE * __cil_tmp12 ) ; #line 112 NODE * xprint(NODE * args ) ; #line 113 NODE * xprin1(NODE * args ) ; #line 114 NODE * xprinc(NODE * args ) ; #line 115 NODE * xterpri(NODE * __cil_tmp5 ) ; #line 117 NODE * xflatsize(NODE * args ) ; #line 118 NODE * xflatc(NODE * args ) ; #line 120 NODE * xopeni(NODE * args ) ; #line 121 NODE * xopeno(NODE * args ) ; #line 123 NODE * xclose(NODE * __cil_tmp4 ) ; #line 124 NODE * xrdchar(NODE * __cil_tmp8 ) ; #line 125 NODE * xpkchar(NODE * __cil_tmp11 ) ; #line 126 NODE * xwrchar(NODE * __cil_tmp6 ) ; #line 127 NODE * xreadline(NODE * __cil_tmp14 ) ; #line 128 void xlinit(void) ; #line 129 int xlgetc(NODE * fptr ) ; #line 131 int xlpeek(NODE * fptr ) ; #line 132 void xlputc(NODE * fptr , int ch ) ; #line 133 void xlflush(void) ; #line 134 int main(int argc , char * __ROSTRING * __argv_input ) ; #line 135 void stdprint(NODE * expr ) ; #line 136 void stdputstr_f(char * __FSEQ str , void *str_e ) ; #line 137 void xlbegin(CONTEXT * cptr , int flags , NODE * expr ) ; #line 138 void xlend(CONTEXT * cptr ) ; #line 139 void xljump(CONTEXT * cptr , int type , NODE * val ) ; #line 140 void xltoplevel(void) ; #line 141 void xlcleanup(void) ; #line 142 void xlcontinue(void) ; #line 143 void xlgo(NODE * label ) ; #line 144 void xlreturn(NODE * val ) ; #line 145 void xlthrow(NODE * tag , NODE * val ) ; #line 146 void xlsignal_fs(char * __FSEQ emsg , void *emsg_e , NODE * arg ) ; #line 148 NODE * xcar(NODE * args ) ; #line 149 NODE * xcdr(NODE * args ) ; #line 150 NODE * xcaar(NODE * args ) ; #line 151 NODE * xcadr(NODE * args ) ; #line 152 NODE * xcdar(NODE * args ) ; #line 153 NODE * xcddr(NODE * args ) ; #line 154 NODE * xcaaar(NODE * args ) ; #line 155 NODE * xcaadr(NODE * args ) ; #line 156 NODE * xcadar(NODE * args ) ; #line 157 NODE * xcaddr(NODE * args ) ; #line 158 NODE * xcdaar(NODE * args ) ; #line 159 NODE * xcdadr(NODE * args ) ; #line 160 NODE * xcddar(NODE * args ) ; #line 161 NODE * xcdddr(NODE * args ) ; #line 162 NODE * xcaaaar(NODE * args ) ; #line 163 NODE * xcaaadr(NODE * args ) ; #line 164 NODE * xcaadar(NODE * args ) ; #line 165 NODE * xcaaddr(NODE * args ) ; #line 166 NODE * xcadaar(NODE * args ) ; #line 167 NODE * xcadadr(NODE * args ) ; #line 168 NODE * xcaddar(NODE * args ) ; #line 169 NODE * xcadddr(NODE * args ) ; #line 170 NODE * xcdaaar(NODE * args ) ; #line 171 NODE * xcdaadr(NODE * args ) ; #line 172 NODE * xcdadar(NODE * args ) ; #line 173 NODE * xcdaddr(NODE * args ) ; #line 174 NODE * xcddaar(NODE * args ) ; #line 175 NODE * xcddadr(NODE * args ) ; #line 176 NODE * xcdddar(NODE * args ) ; #line 177 NODE * xcddddr(NODE * args ) ; #line 179 NODE * xcons(NODE * __cil_tmp6 ) ; #line 180 NODE * xlist(NODE * args ) ; #line 181 NODE * xappend(NODE * args ) ; #line 182 NODE * xreverse(NODE * __cil_tmp6 ) ; #line 183 NODE * xlast(NODE * __cil_tmp4 ) ; #line 184 NODE * xmember(NODE * __cil_tmp10 ) ; #line 185 NODE * xassoc(NODE * __cil_tmp11 ) ; #line 186 NODE * xsubst(NODE * __cil_tmp10 ) ; #line 188 NODE * xsublis(NODE * __cil_tmp9 ) ; #line 191 NODE * xremove(NODE * __cil_tmp12 ) ; #line 192 int dotest(NODE * arg1 , NODE * arg2 , NODE * fcn ) ; #line 193 NODE * xnth(NODE * args ) ; #line 194 NODE * xnthcdr(NODE * args ) ; #line 196 NODE * xlength(NODE * __cil_tmp6 ) ; #line 197 NODE * xmapc(NODE * args ) ; #line 198 NODE * xmapcar(NODE * args ) ; #line 199 NODE * xmapl(NODE * args ) ; #line 200 NODE * xmaplist(NODE * args ) ; #line 202 NODE * xrplca(NODE * __cil_tmp5 ) ; #line 203 NODE * xrplcd(NODE * __cil_tmp5 ) ; #line 204 NODE * xnconc(NODE * __cil_tmp6 ) ; #line 205 NODE * xdelete(NODE * __cil_tmp12 ) ; #line 206 NODE * xatom(NODE * __cil_tmp5 ) ; #line 207 NODE * xsymbolp(NODE * __cil_tmp5 ) ; #line 208 NODE * xnumberp(NODE * __cil_tmp5 ) ; #line 209 NODE * xboundp(NODE * __cil_tmp5 ) ; #line 210 NODE * xnull(NODE * __cil_tmp5 ) ; #line 211 NODE * xlistp(NODE * __cil_tmp5 ) ; #line 212 NODE * xconsp(NODE * __cil_tmp5 ) ; #line 213 NODE * xeq(NODE * args ) ; #line 214 NODE * xeql(NODE * args ) ; #line 215 NODE * xequal(NODE * args ) ; #line 218 NODE * xadd(NODE * args ) ; #line 219 NODE * xsub(NODE * args ) ; #line 220 NODE * xmul(NODE * args ) ; #line 221 NODE * xdiv(NODE * args ) ; #line 222 NODE * xrem(NODE * args ) ; #line 223 NODE * xmin(NODE * args ) ; #line 224 NODE * xmax(NODE * args ) ; #line 225 NODE * xexpt(NODE * args ) ; #line 226 NODE * xbitand(NODE * args ) ; #line 227 NODE * xbitior(NODE * args ) ; #line 228 NODE * xbitxor(NODE * args ) ; #line 230 void checkizero(long iarg ) ; #line 231 void checkfzero(float farg ) ; #line 232 void checkfneg(float farg ) ; #line 233 NODE * xbitnot(NODE * args ) ; #line 234 NODE * xabs(NODE * args ) ; #line 235 NODE * xadd1(NODE * args ) ; #line 236 NODE * xsub1(NODE * args ) ; #line 237 NODE * xsin(NODE * args ) ; #line 238 NODE * xcos(NODE * args ) ; #line 239 NODE * xtan(NODE * args ) ; #line 240 NODE * xexp(NODE * args ) ; #line 241 NODE * xsqrt(NODE * args ) ; #line 242 NODE * xfix(NODE * args ) ; #line 243 NODE * xfloat(NODE * args ) ; #line 244 NODE * xrand(NODE * args ) ; #line 246 NODE * xminusp(NODE * args ) ; #line 247 NODE * xzerop(NODE * args ) ; #line 248 NODE * xplusp(NODE * args ) ; #line 249 NODE * xevenp(NODE * args ) ; #line 250 NODE * xoddp(NODE * args ) ; #line 252 NODE * xlss(NODE * args ) ; #line 253 NODE * xleq(NODE * args ) ; #line 254 NODE * xequ(NODE * args ) ; #line 255 NODE * xneq(NODE * args ) ; #line 256 NODE * xgeq(NODE * args ) ; #line 257 NODE * xgtr(NODE * args ) ; #line 261 NODE * xlclass_sq(char * __SEQ name , void *name_b , void *name_e , int vcnt ) ; #line 262 void xladdivar_sq(NODE * cls , char * __SEQ var , void *var_b , void *var_e ) ; #line 264 void xladdmsg_sqsss(NODE * cls , char * __SEQ msg , void *msg_b , void *msg_e , struct node * (* code)(struct node * ) ) ; #line 265 NODE * xlsend(NODE * obj , NODE * __cil_tmp9 ) ; #line 266 int xlobgetvalue(NODE * sym , NODE * * pval ) ; #line 267 int xlobsetvalue(NODE * sym , NODE * val ) ; #line 281 void xloinit(void) ; #line 282 void xlprint(NODE * fptr , NODE * vptr , int flag ) ; #line 283 void xlterpri(NODE * fptr ) ; #line 284 void xlputstr_sf(NODE * fptr , char * __FSEQ str , void *str_e ) ; #line 290 int xlload_f(char * __FSEQ fname , void *fname_e , int vflag , int pflag ) ; #line 291 int xlread(NODE * fptr , NODE * * pval , int rflag ) ; #line 292 int readone(NODE * fptr , NODE * * pval ) ; #line 293 NODE * rmhash(NODE * __cil_tmp10 ) ; #line 294 NODE * rmquote(NODE * __cil_tmp7 ) ; #line 295 NODE * rmdquote(NODE * __cil_tmp14 ) ; #line 296 NODE * rmbquote(NODE * __cil_tmp7 ) ; #line 297 NODE * rmcomma(NODE * __cil_tmp9 ) ; #line 298 NODE * rmlpar(NODE * __cil_tmp7 ) ; #line 299 NODE * rmrpar(NODE * args ) ; #line 300 NODE * rmsemi(NODE * __cil_tmp7 ) ; #line 310 int isnumber_fss(char * __FSEQ str , void *str_e , NODE * * pval ) ; #line 312 void defmacro(int ch , NODE * type , struct node * (* fun)(struct node * ) ) ; #line 313 NODE * callmacro(NODE * fptr , int ch ) ; #line 314 int needsextension_f(char * __FSEQ name , void *name_e ) ; #line 315 void xlrinit(void) ; #line 316 NODE * xstrcat(NODE * __cil_tmp11 ) ; #line 317 NODE * xsubstr(NODE * args ) ; #line 318 NODE * xstring(NODE * __cil_tmp5 ) ; #line 319 NODE * xchar(NODE * __cil_tmp10 ) ; #line 321 void xlsubr_qsss(char * __SEQ sname , void *sname_b , void *sname_e , int type , struct node * (* subr)(struct node * ) ) ; #line 322 NODE * xlarg(NODE * * pargs ) ; #line 323 NODE * xlmatch(int type , NODE * * pargs ) ; #line 324 NODE * xlevarg(NODE * * pargs ) ; #line 325 NODE * xlevmatch(int type , NODE * * pargs ) ; #line 326 void xltest(NODE * * pfcn , int * ptresult , NODE * * pargs ) ; #line 327 NODE * xlgetfile(NODE * * pargs ) ; #line 328 void xllastarg(NODE * args ) ; #line 329 int eq(NODE * arg1 , NODE * arg2 ) ; #line 330 int eql(NODE * arg1 , NODE * arg2 ) ; #line 331 int equal(NODE * arg1 , NODE * arg2 ) ; #line 332 NODE * xlenter_sq(char * __SEQ name , void *name_b , void *name_e , int type ) ; #line 333 NODE * xlsenter_sq(char * __SEQ name , void *name_b , void *name_e ) ; #line 334 NODE * xlmakesym_sq(char * __SEQ name , void *name_b , void *name_e , int type ) ; #line 335 NODE * xlframe(NODE * env ) ; #line 336 void xlbind(NODE * sym , NODE * val , NODE * env ) ; #line 337 NODE * xlgetvalue(NODE * sym ) ; #line 338 NODE * xlxgetvalue(NODE * sym ) ; #line 339 NODE * xlygetvalue(NODE * sym ) ; #line 340 void xlsetvalue(NODE * sym , NODE * val ) ; #line 341 NODE * xlgetprop(NODE * sym , NODE * prp ) ; #line 342 void xlputprop(NODE * sym , NODE * val , NODE * prp ) ; #line 343 void xlremprop(NODE * sym , NODE * prp ) ; #line 345 int hash_f(char * __FSEQ str , void *str_e , int len ) ; #line 346 void xlsinit(void) ; #line 347 NODE * xload(NODE * __cil_tmp15 ) ; #line 348 NODE * xgc(NODE * args ) ; #line 349 NODE * xexpand(NODE * __cil_tmp9 ) ; #line 350 NODE * xalloc(NODE * __cil_tmp7 ) ; #line 351 NODE * xmem(NODE * args ) ; #line 352 NODE * xtype(NODE * __cil_tmp4 ) ; #line 353 NODE * xbaktrace(NODE * __cil_tmp6 ) ; #line 354 NODE * xexit(NODE * args ) ; #line 355 void osinit_f(char * __FSEQ banner , void *banner_e ) ; #line 356 int osrand(int n ) ; #line 357 int osgetc(FILE * fp ) ; #line 358 void osputc(int ch , FILE * fp ) ; #line 359 void oscheck(void) ; #line 360 void osfinit(void) ; #line 361 void osfinish(void) ; #line 363 void xlfail_f(char * __FSEQ emsg , void *emsg_e ) ; #line 364 void xlabort_f(char * __FSEQ emsg , void *emsg_e ) ; #line 370 struct seq_p_p_s_node xlsave1_qssss(NODE * * nptr1 ) ; #line 371 struct seq_p_p_s_node xlsave2_qssssss(NODE * * nptr1 , NODE * * nptr2 ) ; #line 372 struct seq_p_p_s_node xlsave3_qssssssss(NODE * * nptr1 , NODE * * nptr2 , NODE * * nptr3 ) ; #line 373 struct seq_p_p_s_node xlsave4_qssssssssss(NODE * * nptr1 , NODE * * nptr2 , NODE * * nptr3 , NODE * * nptr4 ) ; #line 374 struct seq_p_p_s_node xlsave5_qssssssssssss(NODE * * nptr1 , NODE * * nptr2 , NODE * * nptr3 , NODE * * nptr4 , NODE * * nptr5 ) ; #line 375 NODE * * * xlsave6(NODE * * nptr1 , NODE * * nptr2 , NODE * * nptr3 , NODE * * nptr4 , NODE * * nptr5 , NODE * * nptr6 ) ; #line 376 struct seq_p_p_s_node xlsave7_qssssssssssssssss(NODE * * nptr1 , NODE * * nptr2 , NODE * * nptr3 , NODE * * nptr4 , NODE * * nptr5 , NODE * * nptr6 , NODE * * nptr7 ) ; #line 8 "xtrnl.h" NODE * true ; #line 8 NODE * s_dot ; #line 9 NODE * s_quote ; #line 9 NODE * s_function ; #line 10 NODE * s_bquote ; #line 10 NODE * s_comma ; #line 10 NODE * s_comat ; #line 11 NODE * s_evalhook ; #line 11 NODE * s_applyhook ; #line 12 NODE * s_lambda ; #line 12 NODE * s_macro ; #line 13 NODE * s_stdin ; #line 13 NODE * s_stdout ; #line 13 NODE * s_rtable ; #line 14 NODE * s_tracenable ; #line 14 NODE * s_tlimit ; #line 14 NODE * s_breakenable ; #line 15 NODE * s_car ; #line 15 NODE * s_cdr ; #line 15 NODE * s_nth ; #line 16 NODE * s_get ; #line 16 NODE * s_svalue ; #line 16 NODE * s_splist ; #line 16 NODE * s_aref ; #line 17 NODE * s_eql ; #line 17 NODE * k_test ; #line 17 NODE * k_tnot ; #line 18 NODE * k_wspace ; #line 18 NODE * k_const ; #line 18 NODE * k_nmacro ; #line 18 NODE * k_tmacro ; #line 19 NODE * k_optional ; #line 19 NODE * k_rest ; #line 19 NODE * k_aux ; #line 20 NODE * a_subr ; #line 20 NODE * a_fsubr ; #line 21 NODE * a_list ; #line 21 NODE * a_sym ; #line 21 NODE * a_int ; #line 21 NODE * a_float ; #line 22 NODE * a_str ; #line 22 NODE * a_obj ; #line 22 NODE * a_fptr ; #line 22 NODE * a_vect ; #line 23 NODE * obarray ; #line 23 NODE * s_unbound ; #line 26 struct seq_p_p_s_node xlstack_qss ; #line 26 struct seq_p_p_s_node xlstkbase_qss ; #line 26 struct seq_p_p_s_node xlstktop_qss ; #line 27 NODE * xlenv ; #line 30 CONTEXT * xlcontext ; #line 31 NODE * xlvalue ; #line 34 int xldebug ; #line 35 int xltrace ; #line 36 struct fseqp_p_s_node trace_stack_fs ; #line 37 int xlsample ; #line 40 char ( __FSEQ gsprefix)[101] ; #line 41 int gsnumber ; #line 44 int prompt ; #line 45 int xlplevel ; #line 46 int xlfsize ; #line 49 long total ; #line 50 int anodes ; #line 51 int nnodes ; #line 52 int nsegs ; #line 53 int nfree ; #line 54 int gccalls ; #line 55 struct segment * segs ; #line 56 NODE * fnodes ; #line 59 NODE * self ; #line 59 NODE * Class ; #line 59 NODE * object ; #line 60 NODE * new ; #line 60 NODE * isnew ; #line 60 NODE * msgcls ; #line 60 NODE * msgclass ; #line 63 char ( __SEQ buf)[101] ; #line 66 struct fdef ( __FSEQ ftab)[174] ; #line 32 "xlbfun.c" struct heapified { NODE * expr __HEAPIFY ; }; #line 14 NODE * xeval(NODE * __cil_tmp6 ) ; #line 14 "xlbfun.c" NODE * xeval(NODE * __cil_tmp6 ) { int volatile ___first_local ; NODE * args ; struct node * * * __SEQ oldstk ; NODE * val ; NODE * __retres ; struct heapified * __heapified ; struct heapified * __cil_tmp8 ; struct heapified * __cil_tmp9 ; struct seq_p_p_s_node __cil_tmp10 ; struct node * * * __SEQ __cil_tmp11 ; NODE * __cil_tmp12 ; NODE * __cil_tmp14 ; struct node * * * __SEQ __cil_tmp15 ; void *oldstk_b19 ; void *oldstk_e20 ; void *__cil_tmp11_b21 ; void *__cil_tmp11_e22 ; void *__cil_tmp15_b23 ; void *__cil_tmp15_e24 ; { #line 32 __heapified = (struct heapified */* */)0; #line 32 __retres = (NODE */* */)0; #line 32 val = (NODE */* */)0; #line 32 oldstk_e20 = (void *)0; #line 32 oldstk_b19 = (void *)0; #line 32 oldstk = (struct node * * */* __SEQ */)0; #line 32 args = (NODE */* */)0; #line 32 __cil_tmp9 = (struct heapified */* */)wrapperAlloc(((sizeof((*__heapified)) + 3U) >> 2) << 2); #line 32 if (__cil_tmp9) { #line 32 __cil_tmp8 = __cil_tmp9; #line 32 CHECK_POSITIVE((int )(((sizeof((*__heapified)) + 3U) >> 2) << 2) - (int )sizeof(struct heapified )); #line 32 __cil_tmp9->expr = (NODE */* */)0; } else { #line 32 __cil_tmp8 = 0; } #line 32 __heapified = __cil_tmp8; #line 32 args = __cil_tmp6; #line 19 __cil_tmp10 = xlsave1_qssss((NODE * */* */)(& __heapified->expr)); #line 19 __cil_tmp11 = __cil_tmp10._p; #line 19 __cil_tmp11_b21 = __cil_tmp10._ms._b; #line 19 __cil_tmp11_e22 = __cil_tmp10._ms._e; #line 19 oldstk_e20 = __cil_tmp11_e22; #line 19 oldstk_b19 = __cil_tmp11_b21; #line 19 oldstk = __cil_tmp11; #line 22 __cil_tmp12 = xlarg((NODE * */* */)(& args)); #line 22 CHECK_NULL((void *)__heapified); #line 22 CHECK_STOREPTR((void *)(& __heapified->expr), (void *)((NODE */* */)__cil_tmp12), (void *)(& ___first_local)); #line 22 __heapified->expr = (NODE */* */)__cil_tmp12; #line 23 xllastarg((NODE */* */)args); #line 26 CHECK_NULL((void *)__heapified); #line 26 __cil_tmp14 = xleval((NODE */* */)__heapified->expr); #line 26 val = (NODE */* */)__cil_tmp14; #line 29 __cil_tmp15 = oldstk; #line 29 __cil_tmp15_b23 = oldstk_b19; #line 29 __cil_tmp15_e24 = oldstk_e20; #line 29 CHECK_STOREPTR((void *)(& xlstack_qss), __cil_tmp15_b23, (void *)(& ___first_local)); #line 29 xlstack_qss._ms._e = __cil_tmp15_e24; #line 29 xlstack_qss._ms._b = __cil_tmp15_b23; #line 29 xlstack_qss._p = __cil_tmp15; #line 32 __retres = (NODE */* */)val; #line 14 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 32 wrapperFree((void *)__heapified); #line 14 return (__retres); } } #line 59 "xlbfun.c" struct heapified___0 { NODE * fun __HEAPIFY ; NODE * arglist __HEAPIFY ; }; #line 36 NODE * xapply(NODE * __cil_tmp7 ) ; #line 36 "xlbfun.c" NODE * xapply(NODE * __cil_tmp7 ) { int volatile ___first_local ; NODE * args ; struct node * * * __SEQ oldstk ; NODE * val ; NODE * __retres ; struct heapified___0 * __heapified ; struct heapified___0 * __cil_tmp9 ; struct heapified___0 * __cil_tmp10 ; struct seq_p_p_s_node __cil_tmp11 ; struct node * * * __SEQ __cil_tmp12 ; NODE * __cil_tmp13 ; NODE * __cil_tmp15 ; NODE * __cil_tmp16 ; NODE * __cil_tmp17 ; struct node * * * __SEQ __cil_tmp18 ; void *oldstk_b22 ; void *oldstk_e23 ; void *__cil_tmp12_b24 ; void *__cil_tmp12_e25 ; void *__cil_tmp18_b26 ; void *__cil_tmp18_e27 ; { #line 59 __heapified = (struct heapified___0 */* */)0; #line 59 __retres = (NODE */* */)0; #line 59 val = (NODE */* */)0; #line 59 oldstk_e23 = (void *)0; #line 59 oldstk_b22 = (void *)0; #line 59 oldstk = (struct node * * */* __SEQ */)0; #line 59 args = (NODE */* */)0; #line 59 __cil_tmp10 = (struct heapified___0 */* */)wrapperAlloc(((sizeof((*__heapified)) + 3U) >> 2) << 2); #line 59 if (__cil_tmp10) { #line 59 __cil_tmp9 = __cil_tmp10; #line 59 CHECK_POSITIVE((int )(((sizeof((*__heapified)) + 3U) >> 2) << 2) - (int )sizeof(struct heapified___0 )); #line 59 __cil_tmp10->arglist = (NODE */* */)0; #line 59 __cil_tmp10->fun = (NODE */* */)0; } else { #line 59 __cil_tmp9 = 0; } #line 59 __heapified = __cil_tmp9; #line 59 args = __cil_tmp7; #line 41 CHECK_NULL((void *)__heapified); #line 41 __cil_tmp11 = xlsave2_qssssss((NODE * */* */)(& __heapified->fun), (NODE * */* */)(& __heapified->arglist)); #line 41 __cil_tmp12 = __cil_tmp11._p; #line 41 __cil_tmp12_b24 = __cil_tmp11._ms._b; #line 41 __cil_tmp12_e25 = __cil_tmp11._ms._e; #line 41 oldstk_e23 = __cil_tmp12_e25; #line 41 oldstk_b22 = __cil_tmp12_b24; #line 41 oldstk = __cil_tmp12; #line 44 __cil_tmp13 = xlarg((NODE * */* */)(& args)); #line 44 CHECK_NULL((void *)__heapified); #line 44 CHECK_STOREPTR((void *)(& __heapified->fun), (void *)((NODE */* */)__cil_tmp13), (void *)(& ___first_local)); #line 44 __heapified->fun = (NODE */* */)__cil_tmp13; #line 45 __cil_tmp15 = xlmatch(3, (NODE * */* */)(& args)); #line 45 CHECK_NULL((void *)__heapified); #line 45 CHECK_STOREPTR((void *)(& __heapified->arglist), (void *)((NODE */* */)__cil_tmp15), (void *)(& ___first_local)); #line 45 __heapified->arglist = (NODE */* */)__cil_tmp15; #line 46 xllastarg((NODE */* */)args); #line 49 CHECK_NULL((void *)__heapified); #line 49 if ((int )__heapified->fun) { #line 49 CHECK_NULL((void *)__heapified); #line 49 CHECK_NULL((void *)__heapified->fun); #line 49 if ((int )(__heapified->fun)->n_type == 4) { #line 50 CHECK_NULL((void *)__heapified); #line 50 __cil_tmp16 = xleval((NODE */* */)__heapified->fun); #line 50 CHECK_NULL((void *)__heapified); #line 50 CHECK_STOREPTR((void *)(& __heapified->fun), (void *)((NODE */* */)__cil_tmp16), (void *)(& ___first_local)); #line 50 __heapified->fun = (NODE */* */)__cil_tmp16; } } #line 53 CHECK_NULL((void *)__heapified); #line 53 CHECK_NULL((void *)__heapified); #line 53 __cil_tmp17 = xlapply((NODE */* */)__heapified->fun, (NODE */* */)__heapified->arglist); #line 53 val = (NODE */* */)__cil_tmp17; #line 56 __cil_tmp18 = oldstk; #line 56 __cil_tmp18_b26 = oldstk_b22; #line 56 __cil_tmp18_e27 = oldstk_e23; #line 56 CHECK_STOREPTR((void *)(& xlstack_qss), __cil_tmp18_b26, (void *)(& ___first_local)); #line 56 xlstack_qss._ms._e = __cil_tmp18_e27; #line 56 xlstack_qss._ms._b = __cil_tmp18_b26; #line 56 xlstack_qss._p = __cil_tmp18; #line 59 __retres = (NODE */* */)val; #line 36 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 59 wrapperFree((void *)__heapified); #line 36 return (__retres); } } #line 85 "xlbfun.c" struct heapified___1 { NODE * fun __HEAPIFY ; NODE * arglist __HEAPIFY ; }; #line 63 NODE * xfuncall(NODE * __cil_tmp7 ) ; #line 63 "xlbfun.c" NODE * xfuncall(NODE * __cil_tmp7 ) { int volatile ___first_local ; NODE * args ; struct node * * * __SEQ oldstk ; NODE * val ; NODE * __retres ; struct heapified___1 * __heapified ; struct heapified___1 * __cil_tmp9 ; struct heapified___1 * __cil_tmp10 ; struct seq_p_p_s_node __cil_tmp11 ; struct node * * * __SEQ __cil_tmp12 ; NODE * __cil_tmp13 ; NODE * __cil_tmp15 ; NODE * __cil_tmp16 ; struct node * * * __SEQ __cil_tmp17 ; void *oldstk_b21 ; void *oldstk_e22 ; void *__cil_tmp12_b23 ; void *__cil_tmp12_e24 ; void *__cil_tmp17_b25 ; void *__cil_tmp17_e26 ; { #line 85 __heapified = (struct heapified___1 */* */)0; #line 85 __retres = (NODE */* */)0; #line 85 val = (NODE */* */)0; #line 85 oldstk_e22 = (void *)0; #line 85 oldstk_b21 = (void *)0; #line 85 oldstk = (struct node * * */* __SEQ */)0; #line 85 args = (NODE */* */)0; #line 85 __cil_tmp10 = (struct heapified___1 */* */)wrapperAlloc(((sizeof((*__heapified)) + 3U) >> 2) << 2); #line 85 if (__cil_tmp10) { #line 85 __cil_tmp9 = __cil_tmp10; #line 85 CHECK_POSITIVE((int )(((sizeof((*__heapified)) + 3U) >> 2) << 2) - (int )sizeof(struct heapified___1 )); #line 85 __cil_tmp10->arglist = (NODE */* */)0; #line 85 __cil_tmp10->fun = (NODE */* */)0; } else { #line 85 __cil_tmp9 = 0; } #line 85 __heapified = __cil_tmp9; #line 85 args = __cil_tmp7; #line 68 CHECK_NULL((void *)__heapified); #line 68 __cil_tmp11 = xlsave2_qssssss((NODE * */* */)(& __heapified->fun), (NODE * */* */)(& __heapified->arglist)); #line 68 __cil_tmp12 = __cil_tmp11._p; #line 68 __cil_tmp12_b23 = __cil_tmp11._ms._b; #line 68 __cil_tmp12_e24 = __cil_tmp11._ms._e; #line 68 oldstk_e22 = __cil_tmp12_e24; #line 68 oldstk_b21 = __cil_tmp12_b23; #line 68 oldstk = __cil_tmp12; #line 71 __cil_tmp13 = xlarg((NODE * */* */)(& args)); #line 71 CHECK_NULL((void *)__heapified); #line 71 CHECK_STOREPTR((void *)(& __heapified->fun), (void *)((NODE */* */)__cil_tmp13), (void *)(& ___first_local)); #line 71 __heapified->fun = (NODE */* */)__cil_tmp13; #line 72 CHECK_NULL((void *)__heapified); #line 72 CHECK_STOREPTR((void *)(& __heapified->arglist), (void *)((NODE */* */)args), (void *)(& ___first_local)); #line 72 __heapified->arglist = (NODE */* */)args; #line 75 CHECK_NULL((void *)__heapified); #line 75 if ((int )__heapified->fun) { #line 75 CHECK_NULL((void *)__heapified); #line 75 CHECK_NULL((void *)__heapified->fun); #line 75 if ((int )(__heapified->fun)->n_type == 4) { #line 76 CHECK_NULL((void *)__heapified); #line 76 __cil_tmp15 = xleval((NODE */* */)__heapified->fun); #line 76 CHECK_NULL((void *)__heapified); #line 76 CHECK_STOREPTR((void *)(& __heapified->fun), (void *)((NODE */* */)__cil_tmp15), (void *)(& ___first_local)); #line 76 __heapified->fun = (NODE */* */)__cil_tmp15; } } #line 79 CHECK_NULL((void *)__heapified); #line 79 CHECK_NULL((void *)__heapified); #line 79 __cil_tmp16 = xlapply((NODE */* */)__heapified->fun, (NODE */* */)__heapified->arglist); #line 79 val = (NODE */* */)__cil_tmp16; #line 82 __cil_tmp17 = oldstk; #line 82 __cil_tmp17_b25 = oldstk_b21; #line 82 __cil_tmp17_e26 = oldstk_e22; #line 82 CHECK_STOREPTR((void *)(& xlstack_qss), __cil_tmp17_b25, (void *)(& ___first_local)); #line 82 xlstack_qss._ms._e = __cil_tmp17_e26; #line 82 xlstack_qss._ms._b = __cil_tmp17_b25; #line 82 xlstack_qss._p = __cil_tmp17; #line 85 __retres = (NODE */* */)val; #line 63 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 85 wrapperFree((void *)__heapified); #line 63 return (__retres); } } #line 89 NODE * xquote(NODE * __cil_tmp4 ) ; #line 89 "xlbfun.c" NODE * xquote(NODE * __cil_tmp4 ) { int volatile ___first_local ; NODE * args ; NODE * val ; NODE * __retres ; NODE * __cil_tmp5 ; { #line 98 __retres = (NODE */* */)0; #line 98 val = (NODE */* */)0; #line 98 args = (NODE */* */)0; #line 98 args = __cil_tmp4; #line 94 __cil_tmp5 = xlarg((NODE * */* */)(& args)); #line 94 val = (NODE */* */)__cil_tmp5; #line 95 xllastarg((NODE */* */)args); #line 98 __retres = (NODE */* */)val; #line 89 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 89 return (__retres); } } #line 120 "xlbfun.c" static char __string1[15] = #line 120 { 'n', 'o', 't', ' ', 'a', ' ', 'f', 'u', 'n', 'c', 't', 'i', 'o', 'n', '\000'}; #line 120 "xlbfun.c" static char __string2[15] = #line 120 { 'n', 'o', 't', ' ', 'a', ' ', 'f', 'u', 'n', 'c', 't', 'i', 'o', 'n', '\000'}; #line 102 NODE * xfunction(NODE * __cil_tmp4 ) ; #line 102 "xlbfun.c" NODE * xfunction(NODE * __cil_tmp4 ) { int volatile ___first_local ; NODE * args ; NODE * val ; NODE * __retres ; NODE * __cil_tmp5 ; char * __FSEQ __cil_tmp6 ; char * __FSEQ __cil_tmp7 ; NODE * __cil_tmp8 ; NODE * __cil_tmp9 ; void *__cil_tmp6_e13 ; void *__cil_tmp7_e14 ; { #line 123 __retres = (NODE */* */)0; #line 123 val = (NODE */* */)0; #line 123 args = (NODE */* */)0; #line 123 args = __cil_tmp4; #line 107 __cil_tmp5 = xlarg((NODE * */* */)(& args)); #line 107 val = (NODE */* */)__cil_tmp5; #line 108 xllastarg((NODE */* */)args); #line 111 if ((int )val) { #line 111 CHECK_NULL((void *)val); #line 111 if ((int )val->n_type == 3) { #line 111 CHECK_NULL((void *)val); #line 111 if ((unsigned int )val->n_info.__annonCompField1.n_xlist.xl_car == (unsigned int )s_lambda) { #line 112 __cil_tmp9 = cons((NODE */* */)val, (NODE */* */)xlenv); #line 112 val = (NODE */* */)__cil_tmp9; } else { goto _L___0; } } else { goto _L___0; } } else { _L___0: /* CIL Label */ ; #line 115 if ((int )val) { #line 115 CHECK_NULL((void *)val); #line 115 if ((int )val->n_type == 4) { #line 116 __cil_tmp8 = xlgetvalue((NODE */* */)val); #line 116 val = (NODE */* */)__cil_tmp8; } else { #line 120 __cil_tmp7 = (char */* __FSEQ */)(& __string2[0]); #line 120 __cil_tmp7_e14 = & __string2[0] + 15; #line 120 xlerror_fs(__cil_tmp7, __cil_tmp7_e14, (NODE */* */)val); } } else { #line 120 __cil_tmp6 = (char */* __FSEQ */)(& __string1[0]); #line 120 __cil_tmp6_e13 = & __string1[0] + 15; #line 120 xlerror_fs(__cil_tmp6, __cil_tmp6_e13, (NODE */* */)val); } } #line 123 __retres = (NODE */* */)val; #line 102 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 102 return (__retres); } } #line 146 "xlbfun.c" struct heapified___2 { NODE * fargs __HEAPIFY ; NODE * closure __HEAPIFY ; }; #line 127 NODE * xlambda(NODE * __cil_tmp6 ) ; #line 127 "xlbfun.c" NODE * xlambda(NODE * __cil_tmp6 ) { int volatile ___first_local ; NODE * args ; struct node * * * __SEQ oldstk ; NODE * __retres ; struct heapified___2 * __heapified ; struct heapified___2 * __cil_tmp8 ; struct heapified___2 * __cil_tmp9 ; struct seq_p_p_s_node __cil_tmp10 ; struct node * * * __SEQ __cil_tmp11 ; NODE * __cil_tmp12 ; NODE * __cil_tmp14 ; NODE * __cil_tmp15 ; NODE * __cil_tmp16 ; struct node * * * __SEQ __cil_tmp17 ; void *oldstk_b21 ; void *oldstk_e22 ; void *__cil_tmp11_b23 ; void *__cil_tmp11_e24 ; void *__cil_tmp17_b25 ; void *__cil_tmp17_e26 ; { #line 146 __heapified = (struct heapified___2 */* */)0; #line 146 __retres = (NODE */* */)0; #line 146 oldstk_e22 = (void *)0; #line 146 oldstk_b21 = (void *)0; #line 146 oldstk = (struct node * * */* __SEQ */)0; #line 146 args = (NODE */* */)0; #line 146 __cil_tmp9 = (struct heapified___2 */* */)wrapperAlloc(((sizeof((*__heapified)) + 3U) >> 2) << 2); #line 146 if (__cil_tmp9) { #line 146 __cil_tmp8 = __cil_tmp9; #line 146 CHECK_POSITIVE((int )(((sizeof((*__heapified)) + 3U) >> 2) << 2) - (int )sizeof(struct heapified___2 )); #line 146 __cil_tmp9->closure = (NODE */* */)0; #line 146 __cil_tmp9->fargs = (NODE */* */)0; } else { #line 146 __cil_tmp8 = 0; } #line 146 __heapified = __cil_tmp8; #line 146 args = __cil_tmp6; #line 132 CHECK_NULL((void *)__heapified); #line 132 __cil_tmp10 = xlsave2_qssssss((NODE * */* */)(& __heapified->fargs), (NODE * */* */)(& __heapified->closure)); #line 132 __cil_tmp11 = __cil_tmp10._p; #line 132 __cil_tmp11_b23 = __cil_tmp10._ms._b; #line 132 __cil_tmp11_e24 = __cil_tmp10._ms._e; #line 132 oldstk_e22 = __cil_tmp11_e24; #line 132 oldstk_b21 = __cil_tmp11_b23; #line 132 oldstk = __cil_tmp11; #line 135 __cil_tmp12 = xlmatch(3, (NODE * */* */)(& args)); #line 135 CHECK_NULL((void *)__heapified); #line 135 CHECK_STOREPTR((void *)(& __heapified->fargs), (void *)((NODE */* */)__cil_tmp12), (void *)(& ___first_local)); #line 135 __heapified->fargs = (NODE */* */)__cil_tmp12; #line 138 CHECK_NULL((void *)__heapified); #line 138 __cil_tmp14 = cons((NODE */* */)__heapified->fargs, (NODE */* */)args); #line 138 CHECK_NULL((void *)__heapified); #line 138 CHECK_STOREPTR((void *)(& __heapified->closure), (void *)((NODE */* */)__cil_tmp14), (void *)(& ___first_local)); #line 138 __heapified->closure = (NODE */* */)__cil_tmp14; #line 139 CHECK_NULL((void *)__heapified); #line 139 __cil_tmp15 = cons((NODE */* */)s_lambda, (NODE */* */)__heapified->closure); #line 139 CHECK_NULL((void *)__heapified); #line 139 CHECK_STOREPTR((void *)(& __heapified->closure), (void *)((NODE */* */)__cil_tmp15), (void *)(& ___first_local)); #line 139 __heapified->closure = (NODE */* */)__cil_tmp15; #line 140 CHECK_NULL((void *)__heapified); #line 140 __cil_tmp16 = cons((NODE */* */)__heapified->closure, (NODE */* */)xlenv); #line 140 CHECK_NULL((void *)__heapified); #line 140 CHECK_STOREPTR((void *)(& __heapified->closure), (void *)((NODE */* */)__cil_tmp16), (void *)(& ___first_local)); #line 140 __heapified->closure = (NODE */* */)__cil_tmp16; #line 143 __cil_tmp17 = oldstk; #line 143 __cil_tmp17_b25 = oldstk_b21; #line 143 __cil_tmp17_e26 = oldstk_e22; #line 143 CHECK_STOREPTR((void *)(& xlstack_qss), __cil_tmp17_b25, (void *)(& ___first_local)); #line 143 xlstack_qss._ms._e = __cil_tmp17_e26; #line 143 xlstack_qss._ms._b = __cil_tmp17_b25; #line 143 xlstack_qss._p = __cil_tmp17; #line 146 CHECK_NULL((void *)__heapified); #line 146 __retres = (NODE */* */)__heapified->closure; #line 127 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 146 wrapperFree((void *)__heapified); #line 127 return (__retres); } } #line 168 "xlbfun.c" struct heapified___3 { NODE * expr __HEAPIFY ; }; #line 150 NODE * xbquote(NODE * __cil_tmp6 ) ; #line 150 "xlbfun.c" NODE * xbquote(NODE * __cil_tmp6 ) { int volatile ___first_local ; NODE * args ; struct node * * * __SEQ oldstk ; NODE * val ; NODE * __retres ; struct heapified___3 * __heapified ; struct heapified___3 * __cil_tmp8 ; struct heapified___3 * __cil_tmp9 ; struct seq_p_p_s_node __cil_tmp10 ; struct node * * * __SEQ __cil_tmp11 ; NODE * __cil_tmp12 ; NODE * __cil_tmp14 ; struct node * * * __SEQ __cil_tmp15 ; void *oldstk_b19 ; void *oldstk_e20 ; void *__cil_tmp11_b21 ; void *__cil_tmp11_e22 ; void *__cil_tmp15_b23 ; void *__cil_tmp15_e24 ; { #line 168 __heapified = (struct heapified___3 */* */)0; #line 168 __retres = (NODE */* */)0; #line 168 val = (NODE */* */)0; #line 168 oldstk_e20 = (void *)0; #line 168 oldstk_b19 = (void *)0; #line 168 oldstk = (struct node * * */* __SEQ */)0; #line 168 args = (NODE */* */)0; #line 168 __cil_tmp9 = (struct heapified___3 */* */)wrapperAlloc(((sizeof((*__heapified)) + 3U) >> 2) << 2); #line 168 if (__cil_tmp9) { #line 168 __cil_tmp8 = __cil_tmp9; #line 168 CHECK_POSITIVE((int )(((sizeof((*__heapified)) + 3U) >> 2) << 2) - (int )sizeof(struct heapified___3 )); #line 168 __cil_tmp9->expr = (NODE */* */)0; } else { #line 168 __cil_tmp8 = 0; } #line 168 __heapified = __cil_tmp8; #line 168 args = __cil_tmp6; #line 155 __cil_tmp10 = xlsave1_qssss((NODE * */* */)(& __heapified->expr)); #line 155 __cil_tmp11 = __cil_tmp10._p; #line 155 __cil_tmp11_b21 = __cil_tmp10._ms._b; #line 155 __cil_tmp11_e22 = __cil_tmp10._ms._e; #line 155 oldstk_e20 = __cil_tmp11_e22; #line 155 oldstk_b19 = __cil_tmp11_b21; #line 155 oldstk = __cil_tmp11; #line 158 __cil_tmp12 = xlarg((NODE * */* */)(& args)); #line 158 CHECK_NULL((void *)__heapified); #line 158 CHECK_STOREPTR((void *)(& __heapified->expr), (void *)((NODE */* */)__cil_tmp12), (void *)(& ___first_local)); #line 158 __heapified->expr = (NODE */* */)__cil_tmp12; #line 159 xllastarg((NODE */* */)args); #line 162 CHECK_NULL((void *)__heapified); #line 162 __cil_tmp14 = bquote1((NODE */* */)__heapified->expr); #line 162 val = (NODE */* */)__cil_tmp14; #line 165 __cil_tmp15 = oldstk; #line 165 __cil_tmp15_b23 = oldstk_b19; #line 165 __cil_tmp15_e24 = oldstk_e20; #line 165 CHECK_STOREPTR((void *)(& xlstack_qss), __cil_tmp15_b23, (void *)(& ___first_local)); #line 165 xlstack_qss._ms._e = __cil_tmp15_e24; #line 165 xlstack_qss._ms._b = __cil_tmp15_b23; #line 165 xlstack_qss._p = __cil_tmp15; #line 168 __retres = (NODE */* */)val; #line 150 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 168 wrapperFree((void *)__heapified); #line 150 return (__retres); } } #line 172 "xlbfun.c" struct heapified___4 { NODE * val __HEAPIFY ; NODE * list __HEAPIFY ; }; #line 191 "xlbfun.c" static char __string3[24] = #line 191 { 'b', 'a', 'd', ' ', 'c', 'o', 'm', 'm', 'a', '-', 'a', 't', ' ', 'e', 'x', 'p', 'r', 'e', 's', 's', 'i', 'o', 'n', '\000'}; #line 191 "xlbfun.c" static char __string4[24] = #line 191 { 'b', 'a', 'd', ' ', 'c', 'o', 'm', 'm', 'a', '-', 'a', 't', ' ', 'e', 'x', 'p', 'r', 'e', 's', 's', 'i', 'o', 'n', '\000'}; #line 183 "xlbfun.c" static char __string5[21] = #line 183 { 'b', 'a', 'd', ' ', 'c', 'o', 'm', 'm', 'a', ' ', 'e', 'x', 'p', 'r', 'e', 's', 's', 'i', 'o', 'n', '\000'}; #line 183 "xlbfun.c" static char __string6[21] = #line 183 { 'b', 'a', 'd', ' ', 'c', 'o', 'm', 'm', 'a', ' ', 'e', 'x', 'p', 'r', 'e', 's', 's', 'i', 'o', 'n', '\000'}; #line 172 static NODE * bquote1(NODE * expr ) ; #line 172 "xlbfun.c" static NODE * bquote1(NODE * expr ) { int volatile ___first_local ; struct node * * * __SEQ oldstk ; NODE * last ; NODE * new___0 ; int __a_local ; NODE * __retres ; struct heapified___4 * __heapified ; struct heapified___4 * __cil_tmp10 ; struct heapified___4 * __cil_tmp11 ; struct seq_p_p_s_node __cil_tmp12 ; struct node * * * __SEQ __cil_tmp13 ; NODE * __cil_tmp14 ; NODE * __cil_tmp16 ; NODE * __cil_tmp17 ; struct node * * * __SEQ __cil_tmp18 ; struct seq_p_p_s_node __cil_tmp19 ; struct node * * * __SEQ __cil_tmp20 ; NODE * __cil_tmp21 ; NODE * __cil_tmp22 ; NODE * __cil_tmp23 ; struct node * * * __SEQ __cil_tmp24 ; struct seq_p_p_s_node __cil_tmp25 ; struct node * * * __SEQ __cil_tmp26 ; NODE * __cil_tmp27 ; NODE * __cil_tmp28 ; NODE * __cil_tmp29 ; struct node * * * __SEQ __cil_tmp30 ; struct seq_p_p_s_node __cil_tmp31 ; struct node * * * __SEQ __cil_tmp32 ; char * __FSEQ __cil_tmp33 ; char * __FSEQ __cil_tmp34 ; NODE * __cil_tmp35 ; NODE * __cil_tmp36 ; NODE * __cil_tmp37 ; NODE * __cil_tmp38 ; struct node * * * __SEQ __cil_tmp39 ; char * __FSEQ __cil_tmp40 ; char * __FSEQ __cil_tmp41 ; NODE * __cil_tmp42 ; void *oldstk_b56 ; void *oldstk_e57 ; void *__cil_tmp13_b58 ; void *__cil_tmp13_e59 ; void *__cil_tmp18_b60 ; void *__cil_tmp18_e61 ; void *__cil_tmp20_b62 ; void *__cil_tmp20_e63 ; void *__cil_tmp24_b64 ; void *__cil_tmp24_e65 ; void *__cil_tmp26_b66 ; void *__cil_tmp26_e67 ; void *__cil_tmp30_b68 ; void *__cil_tmp30_e69 ; void *__cil_tmp32_b70 ; void *__cil_tmp32_e71 ; void *__cil_tmp33_e72 ; void *__cil_tmp34_e73 ; void *__cil_tmp39_b74 ; void *__cil_tmp39_e75 ; void *__cil_tmp40_e76 ; void *__cil_tmp41_e77 ; { #line 172 __heapified = (struct heapified___4 */* */)0; #line 172 __retres = (NODE */* */)0; #line 172 new___0 = (NODE */* */)0; #line 172 last = (NODE */* */)0; #line 172 oldstk_e57 = (void *)0; #line 172 oldstk_b56 = (void *)0; #line 172 oldstk = (struct node * * */* __SEQ */)0; #line 172 __cil_tmp11 = (struct heapified___4 */* */)wrapperAlloc(((sizeof((*__heapified)) + 3U) >> 2) << 2); #line 172 if (__cil_tmp11) { #line 172 __cil_tmp10 = __cil_tmp11; #line 172 CHECK_POSITIVE((int )(((sizeof((*__heapified)) + 3U) >> 2) << 2) - (int )sizeof(struct heapified___4 )); #line 172 __cil_tmp11->list = (NODE */* */)0; #line 172 __cil_tmp11->val = (NODE */* */)0; } else { #line 172 __cil_tmp10 = 0; } #line 172 __heapified = __cil_tmp10; #line 172 if ((unsigned int )(& __a_local) <= ___stack_threshhold) { #line 172 ___stack_overflow(); } { #line 177 if ((unsigned int )expr == 0) { #line 178 CHECK_NULL((void *)__heapified); #line 178 CHECK_STOREPTR((void *)(& __heapified->val), (void *)((NODE */* */)expr), (void *)(& ___first_local)); #line 178 __heapified->val = (NODE */* */)expr; } else { #line 177 CHECK_NULL((void *)expr); #line 177 if ((int )expr->n_type != 3) { #line 178 CHECK_NULL((void *)__heapified); #line 178 CHECK_STOREPTR((void *)(& __heapified->val), (void *)((NODE */* */)expr), (void *)(& ___first_local)); #line 178 __heapified->val = (NODE */* */)expr; } else { #line 181 CHECK_NULL((void *)expr); #line 181 if ((unsigned int )expr->n_info.__annonCompField1.n_xlist.xl_car == (unsigned int )s_comma) { #line 182 CHECK_NULL((void *)expr); #line 182 if ((unsigned int )expr->n_info.__annonCompField1.n_xlist.xl_cdr == 0) { #line 183 __cil_tmp41 = (char */* __FSEQ */)(& __string6[0]); #line 183 __cil_tmp41_e77 = & __string6[0] + 21; #line 183 xlfail_f(__cil_tmp41, __cil_tmp41_e77); } else { #line 182 CHECK_NULL((void *)expr); #line 182 CHECK_NULL((void *)expr->n_info.__annonCompField1.n_xlist.xl_cdr); #line 182 if ((int )(expr->n_info.__annonCompField1.n_xlist.xl_cdr)->n_type != 3) { #line 183 __cil_tmp40 = (char */* __FSEQ */)(& __string5[0]); #line 183 __cil_tmp40_e76 = & __string5[0] + 21; #line 183 xlfail_f(__cil_tmp40, __cil_tmp40_e76); } } #line 184 CHECK_NULL((void *)expr); #line 184 CHECK_NULL((void *)expr->n_info.__annonCompField1.n_xlist.xl_cdr); #line 184 __cil_tmp42 = xleval((NODE */* */)(expr->n_info.__annonCompField1.n_xlist.xl_cdr)->n_info.__annonCompField1.n_xlist.xl_car); #line 184 CHECK_NULL((void *)__heapified); #line 184 CHECK_STOREPTR((void *)(& __heapified->val), (void *)((NODE */* */)__cil_tmp42), (void *)(& ___first_local)); #line 184 __heapified->val = (NODE */* */)__cil_tmp42; } else { #line 188 CHECK_NULL((void *)expr); #line 188 if ((int )expr->n_info.__annonCompField1.n_xlist.xl_car) { #line 188 CHECK_NULL((void *)expr); #line 188 CHECK_NULL((void *)expr->n_info.__annonCompField1.n_xlist.xl_car); #line 188 if ((int )(expr->n_info.__annonCompField1.n_xlist.xl_car)->n_type == 3) { #line 188 CHECK_NULL((void *)expr); #line 188 CHECK_NULL((void *)expr->n_info.__annonCompField1.n_xlist.xl_car); #line 188 if ((unsigned int )(expr->n_info.__annonCompField1.n_xlist.xl_car)->n_info.__annonCompField1.n_xlist.xl_car == (unsigned int )s_comat) { #line 189 CHECK_NULL((void *)__heapified); #line 189 __cil_tmp31 = xlsave2_qssssss((NODE * */* */)(& __heapified->list), (NODE * */* */)(& __heapified->val)); #line 189 __cil_tmp32 = __cil_tmp31._p; #line 189 __cil_tmp32_b70 = __cil_tmp31._ms._b; #line 189 __cil_tmp32_e71 = __cil_tmp31._ms._e; #line 189 oldstk_e57 = __cil_tmp32_e71; #line 189 oldstk_b56 = __cil_tmp32_b70; #line 189 oldstk = __cil_tmp32; #line 190 CHECK_NULL((void *)expr); #line 190 CHECK_NULL((void *)expr->n_info.__annonCompField1.n_xlist.xl_car); #line 190 if ((unsigned int )(expr->n_info.__annonCompField1.n_xlist.xl_car)->n_info.__annonCompField1.n_xlist.xl_cdr == 0) { #line 191 __cil_tmp34 = (char */* __FSEQ */)(& __string4[0]); #line 191 __cil_tmp34_e73 = & __string4[0] + 24; #line 191 xlfail_f(__cil_tmp34, __cil_tmp34_e73); } else { #line 190 CHECK_NULL((void *)expr); #line 190 CHECK_NULL((void *)expr->n_info.__annonCompField1.n_xlist.xl_car); #line 190 CHECK_NULL((void *)(expr->n_info.__annonCompField1.n_xlist.xl_car)->n_info.__annonCompField1.n_xlist.xl_cdr); #line 190 if ((int )((expr->n_info.__annonCompField1.n_xlist.xl_car)->n_info.__annonCompField1.n_xlist.xl_cdr)->n_type != 3) { #line 191 __cil_tmp33 = (char */* __FSEQ */)(& __string3[0]); #line 191 __cil_tmp33_e72 = & __string3[0] + 24; #line 191 xlfail_f(__cil_tmp33, __cil_tmp33_e72); } } #line 192 CHECK_NULL((void *)expr); #line 192 CHECK_NULL((void *)expr->n_info.__annonCompField1.n_xlist.xl_car); #line 192 CHECK_NULL((void *)(expr->n_info.__annonCompField1.n_xlist.xl_car)->n_info.__annonCompField1.n_xlist.xl_cdr); #line 192 __cil_tmp35 = xleval((NODE */* */)((expr->n_info.__annonCompField1.n_xlist.xl_car)->n_info.__annonCompField1.n_xlist.xl_cdr)->n_info.__annonCompField1.n_xlist.xl_car); #line 192 CHECK_NULL((void *)__heapified); #line 192 CHECK_STOREPTR((void *)(& __heapified->list), (void *)((NODE */* */)__cil_tmp35), (void *)(& ___first_local)); #line 192 __heapified->list = (NODE */* */)__cil_tmp35; #line 193 last = (NODE */* */)0; #line 193 while (1) { #line 193 CHECK_NULL((void *)__heapified); #line 193 if ((int )__heapified->list) { #line 193 CHECK_NULL((void *)__heapified); #line 193 CHECK_NULL((void *)__heapified->list); #line 193 if (! ((int )(__heapified->list)->n_type == 3)) { #line 193 break; } } else { #line 193 break; } #line 194 CHECK_NULL((void *)__heapified); #line 194 CHECK_NULL((void *)__heapified->list); #line 194 __cil_tmp36 = consa((NODE */* */)(__heapified->list)->n_info.__annonCompField1.n_xlist.xl_car); #line 194 new___0 = (NODE */* */)__cil_tmp36; #line 195 if ((int )last) { #line 196 CHECK_NULL((void *)last); #line 196 CHECK_STOREPTR((void *)(& last->n_info.__annonCompField1.n_xlist.xl_cdr), (void *)((struct node */* */)new___0), (void *)(& ___first_local)); #line 196 last->n_info.__annonCompField1.n_xlist.xl_cdr = (struct node */* */)new___0; } else { #line 198 CHECK_NULL((void *)__heapified); #line 198 CHECK_STOREPTR((void *)(& __heapified->val), (void *)((NODE */* */)new___0), (void *)(& ___first_local)); #line 198 __heapified->val = (NODE */* */)new___0; } #line 199 last = (NODE */* */)new___0; #line 193 CHECK_NULL((void *)__heapified); #line 193 CHECK_NULL((void *)__heapified); #line 193 CHECK_NULL((void *)__heapified->list); #line 193 CHECK_STOREPTR((void *)(& __heapified->list), (void *)((NODE */* */)(__heapified->list)->n_info.__annonCompField1.n_xlist.xl_cdr), (void *)(& ___first_local)); #line 193 __heapified->list = (NODE */* */)(__heapified->list)->n_info.__annonCompField1.n_xlist.xl_cdr; } #line 201 if ((int )last) { #line 202 CHECK_NULL((void *)expr); #line 202 __cil_tmp38 = bquote1((NODE */* */)expr->n_info.__annonCompField1.n_xlist.xl_cdr); #line 202 CHECK_NULL((void *)last); #line 202 CHECK_STOREPTR((void *)(& last->n_info.__annonCompField1.n_xlist.xl_cdr), (void *)((struct node */* */)__cil_tmp38), (void *)(& ___first_local)); #line 202 last->n_info.__annonCompField1.n_xlist.xl_cdr = (struct node */* */)__cil_tmp38; } else { #line 204 CHECK_NULL((void *)expr); #line 204 __cil_tmp37 = bquote1((NODE */* */)expr->n_info.__annonCompField1.n_xlist.xl_cdr); #line 204 CHECK_NULL((void *)__heapified); #line 204 CHECK_STOREPTR((void *)(& __heapified->val), (void *)((NODE */* */)__cil_tmp37), (void *)(& ___first_local)); #line 204 __heapified->val = (NODE */* */)__cil_tmp37; } #line 205 __cil_tmp39 = oldstk; #line 205 __cil_tmp39_b74 = oldstk_b56; #line 205 __cil_tmp39_e75 = oldstk_e57; #line 205 CHECK_STOREPTR((void *)(& xlstack_qss), __cil_tmp39_b74, (void *)(& ___first_local)); #line 205 xlstack_qss._ms._e = __cil_tmp39_e75; #line 205 xlstack_qss._ms._b = __cil_tmp39_b74; #line 205 xlstack_qss._p = __cil_tmp39; } else { #line 210 __cil_tmp25 = xlsave1_qssss((NODE * */* */)(& __heapified->val)); #line 210 __cil_tmp26 = __cil_tmp25._p; #line 210 __cil_tmp26_b66 = __cil_tmp25._ms._b; #line 210 __cil_tmp26_e67 = __cil_tmp25._ms._e; #line 210 oldstk_e57 = __cil_tmp26_e67; #line 210 oldstk_b56 = __cil_tmp26_b66; #line 210 oldstk = __cil_tmp26; #line 211 __cil_tmp27 = consa((NODE */* */)0); #line 211 CHECK_NULL((void *)__heapified); #line 211 CHECK_STOREPTR((void *)(& __heapified->val), (void *)((NODE */* */)__cil_tmp27), (void *)(& ___first_local)); #line 211 __heapified->val = (NODE */* */)__cil_tmp27; #line 212 CHECK_NULL((void *)expr); #line 212 __cil_tmp28 = bquote1((NODE */* */)expr->n_info.__annonCompField1.n_xlist.xl_car); #line 212 CHECK_NULL((void *)__heapified); #line 212 CHECK_NULL((void *)__heapified->val); #line 212 CHECK_STOREPTR((void *)(& (__heapified->val)->n_info.__annonCompField1.n_xlist.xl_car), (void *)((struct node */* */)__cil_tmp28), (void *)(& ___first_local)); #line 212 (__heapified->val)->n_info.__annonCompField1.n_xlist.xl_car = (struct node */* */)__cil_tmp28; #line 213 CHECK_NULL((void *)expr); #line 213 __cil_tmp29 = bquote1((NODE */* */)expr->n_info.__annonCompField1.n_xlist.xl_cdr); #line 213 CHECK_NULL((void *)__heapified); #line 213 CHECK_NULL((void *)__heapified->val); #line 213 CHECK_STOREPTR((void *)(& (__heapified->val)->n_info.__annonCompField1.n_xlist.xl_cdr), (void *)((struct node */* */)__cil_tmp29), (void *)(& ___first_local)); #line 213 (__heapified->val)->n_info.__annonCompField1.n_xlist.xl_cdr = (struct node */* */)__cil_tmp29; #line 214 __cil_tmp30 = oldstk; #line 214 __cil_tmp30_b68 = oldstk_b56; #line 214 __cil_tmp30_e69 = oldstk_e57; #line 214 CHECK_STOREPTR((void *)(& xlstack_qss), __cil_tmp30_b68, (void *)(& ___first_local)); #line 214 xlstack_qss._ms._e = __cil_tmp30_e69; #line 214 xlstack_qss._ms._b = __cil_tmp30_b68; #line 214 xlstack_qss._p = __cil_tmp30; } } else { #line 210 __cil_tmp19 = xlsave1_qssss((NODE * */* */)(& __heapified->val)); #line 210 __cil_tmp20 = __cil_tmp19._p; #line 210 __cil_tmp20_b62 = __cil_tmp19._ms._b; #line 210 __cil_tmp20_e63 = __cil_tmp19._ms._e; #line 210 oldstk_e57 = __cil_tmp20_e63; #line 210 oldstk_b56 = __cil_tmp20_b62; #line 210 oldstk = __cil_tmp20; #line 211 __cil_tmp21 = consa((NODE */* */)0); #line 211 CHECK_NULL((void *)__heapified); #line 211 CHECK_STOREPTR((void *)(& __heapified->val), (void *)((NODE */* */)__cil_tmp21), (void *)(& ___first_local)); #line 211 __heapified->val = (NODE */* */)__cil_tmp21; #line 212 CHECK_NULL((void *)expr); #line 212 __cil_tmp22 = bquote1((NODE */* */)expr->n_info.__annonCompField1.n_xlist.xl_car); #line 212 CHECK_NULL((void *)__heapified); #line 212 CHECK_NULL((void *)__heapified->val); #line 212 CHECK_STOREPTR((void *)(& (__heapified->val)->n_info.__annonCompField1.n_xlist.xl_car), (void *)((struct node */* */)__cil_tmp22), (void *)(& ___first_local)); #line 212 (__heapified->val)->n_info.__annonCompField1.n_xlist.xl_car = (struct node */* */)__cil_tmp22; #line 213 CHECK_NULL((void *)expr); #line 213 __cil_tmp23 = bquote1((NODE */* */)expr->n_info.__annonCompField1.n_xlist.xl_cdr); #line 213 CHECK_NULL((void *)__heapified); #line 213 CHECK_NULL((void *)__heapified->val); #line 213 CHECK_STOREPTR((void *)(& (__heapified->val)->n_info.__annonCompField1.n_xlist.xl_cdr), (void *)((struct node */* */)__cil_tmp23), (void *)(& ___first_local)); #line 213 (__heapified->val)->n_info.__annonCompField1.n_xlist.xl_cdr = (struct node */* */)__cil_tmp23; #line 214 __cil_tmp24 = oldstk; #line 214 __cil_tmp24_b64 = oldstk_b56; #line 214 __cil_tmp24_e65 = oldstk_e57; #line 214 CHECK_STOREPTR((void *)(& xlstack_qss), __cil_tmp24_b64, (void *)(& ___first_local)); #line 214 xlstack_qss._ms._e = __cil_tmp24_e65; #line 214 xlstack_qss._ms._b = __cil_tmp24_b64; #line 214 xlstack_qss._p = __cil_tmp24; } } else { #line 210 __cil_tmp12 = xlsave1_qssss((NODE * */* */)(& __heapified->val)); #line 210 __cil_tmp13 = __cil_tmp12._p; #line 210 __cil_tmp13_b58 = __cil_tmp12._ms._b; #line 210 __cil_tmp13_e59 = __cil_tmp12._ms._e; #line 210 oldstk_e57 = __cil_tmp13_e59; #line 210 oldstk_b56 = __cil_tmp13_b58; #line 210 oldstk = __cil_tmp13; #line 211 __cil_tmp14 = consa((NODE */* */)0); #line 211 CHECK_NULL((void *)__heapified); #line 211 CHECK_STOREPTR((void *)(& __heapified->val), (void *)((NODE */* */)__cil_tmp14), (void *)(& ___first_local)); #line 211 __heapified->val = (NODE */* */)__cil_tmp14; #line 212 CHECK_NULL((void *)expr); #line 212 __cil_tmp16 = bquote1((NODE */* */)expr->n_info.__annonCompField1.n_xlist.xl_car); #line 212 CHECK_NULL((void *)__heapified); #line 212 CHECK_NULL((void *)__heapified->val); #line 212 CHECK_STOREPTR((void *)(& (__heapified->val)->n_info.__annonCompField1.n_xlist.xl_car), (void *)((struct node */* */)__cil_tmp16), (void *)(& ___first_local)); #line 212 (__heapified->val)->n_info.__annonCompField1.n_xlist.xl_car = (struct node */* */)__cil_tmp16; #line 213 CHECK_NULL((void *)expr); #line 213 __cil_tmp17 = bquote1((NODE */* */)expr->n_info.__annonCompField1.n_xlist.xl_cdr); #line 213 CHECK_NULL((void *)__heapified); #line 213 CHECK_NULL((void *)__heapified->val); #line 213 CHECK_STOREPTR((void *)(& (__heapified->val)->n_info.__annonCompField1.n_xlist.xl_cdr), (void *)((struct node */* */)__cil_tmp17), (void *)(& ___first_local)); #line 213 (__heapified->val)->n_info.__annonCompField1.n_xlist.xl_cdr = (struct node */* */)__cil_tmp17; #line 214 __cil_tmp18 = oldstk; #line 214 __cil_tmp18_b60 = oldstk_b56; #line 214 __cil_tmp18_e61 = oldstk_e57; #line 214 CHECK_STOREPTR((void *)(& xlstack_qss), __cil_tmp18_b60, (void *)(& ___first_local)); #line 214 xlstack_qss._ms._e = __cil_tmp18_e61; #line 214 xlstack_qss._ms._b = __cil_tmp18_b60; #line 214 xlstack_qss._p = __cil_tmp18; } } } } #line 218 CHECK_NULL((void *)__heapified); #line 218 CHECK_RETURNPTR((void *)((NODE */* */)__heapified->val), (void *)(& ___first_local)); #line 172 wrapperFree((void *)__heapified); #line 218 return ((NODE */* */)__heapified->val); } #line 172 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 172 wrapperFree((void *)__heapified); #line 172 return (__retres); } } #line 222 NODE * xset(NODE * __cil_tmp5 ) ; #line 222 "xlbfun.c" NODE * xset(NODE * __cil_tmp5 ) { int volatile ___first_local ; NODE * args ; NODE * sym ; NODE * val ; NODE * __retres ; NODE * __cil_tmp6 ; NODE * __cil_tmp7 ; { #line 235 __retres = (NODE */* */)0; #line 235 val = (NODE */* */)0; #line 235 sym = (NODE */* */)0; #line 235 args = (NODE */* */)0; #line 235 args = __cil_tmp5; #line 227 __cil_tmp6 = xlmatch(4, (NODE * */* */)(& args)); #line 227 sym = (NODE */* */)__cil_tmp6; #line 228 __cil_tmp7 = xlarg((NODE * */* */)(& args)); #line 228 val = (NODE */* */)__cil_tmp7; #line 229 xllastarg((NODE */* */)args); #line 232 CHECK_NULL((void *)sym); #line 232 CHECK_STOREPTR((void *)(& sym->n_info.__annonCompField1.n_xsym.xsy_value), (void *)((struct node */* */)val), (void *)(& ___first_local)); #line 232 sym->n_info.__annonCompField1.n_xsym.xsy_value = (struct node */* */)val; #line 235 __retres = (NODE */* */)val; #line 222 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 222 return (__retres); } } #line 260 "xlbfun.c" struct heapified___5 { NODE * arg __HEAPIFY ; NODE * sym __HEAPIFY ; NODE * val __HEAPIFY ; }; #line 239 NODE * xsetq(NODE * args ) ; #line 239 "xlbfun.c" NODE * xsetq(NODE * args ) { int volatile ___first_local ; struct node * * * __SEQ oldstk ; NODE * __retres ; struct heapified___5 * __heapified ; struct heapified___5 * __cil_tmp8 ; struct heapified___5 * __cil_tmp9 ; struct seq_p_p_s_node __cil_tmp10 ; struct node * * * __SEQ __cil_tmp11 ; NODE * __cil_tmp13 ; NODE * __cil_tmp14 ; struct node * * * __SEQ __cil_tmp15 ; void *oldstk_b19 ; void *oldstk_e20 ; void *__cil_tmp11_b21 ; void *__cil_tmp11_e22 ; void *__cil_tmp15_b23 ; void *__cil_tmp15_e24 ; { #line 260 __heapified = (struct heapified___5 */* */)0; #line 260 __retres = (NODE */* */)0; #line 260 oldstk_e20 = (void *)0; #line 260 oldstk_b19 = (void *)0; #line 260 oldstk = (struct node * * */* __SEQ */)0; #line 260 __cil_tmp9 = (struct heapified___5 */* */)wrapperAlloc(((sizeof((*__heapified)) + 3U) >> 2) << 2); #line 260 if (__cil_tmp9) { #line 260 __cil_tmp8 = __cil_tmp9; #line 260 CHECK_POSITIVE((int )(((sizeof((*__heapified)) + 3U) >> 2) << 2) - (int )sizeof(struct heapified___5 )); #line 260 __cil_tmp9->val = (NODE */* */)0; #line 260 __cil_tmp9->sym = (NODE */* */)0; #line 260 __cil_tmp9->arg = (NODE */* */)0; } else { #line 260 __cil_tmp8 = 0; } #line 260 __heapified = __cil_tmp8; #line 244 CHECK_NULL((void *)__heapified); #line 244 CHECK_NULL((void *)__heapified); #line 244 __cil_tmp10 = xlsave3_qssssssss((NODE * */* */)(& __heapified->arg), (NODE * */* */)(& __heapified->sym), (NODE * */* */)(& __heapified->val)); #line 244 __cil_tmp11 = __cil_tmp10._p; #line 244 __cil_tmp11_b21 = __cil_tmp10._ms._b; #line 244 __cil_tmp11_e22 = __cil_tmp10._ms._e; #line 244 oldstk_e20 = __cil_tmp11_e22; #line 244 oldstk_b19 = __cil_tmp11_b21; #line 244 oldstk = __cil_tmp11; #line 247 CHECK_NULL((void *)__heapified); #line 247 CHECK_STOREPTR((void *)(& __heapified->arg), (void *)((NODE */* */)args), (void *)(& ___first_local)); #line 247 __heapified->arg = (NODE */* */)args; #line 250 while (1) { #line 250 CHECK_NULL((void *)__heapified); #line 250 if (! ((int )__heapified->arg)) { #line 250 break; } #line 251 __cil_tmp13 = xlmatch(4, (NODE * */* */)(& __heapified->arg)); #line 251 CHECK_NULL((void *)__heapified); #line 251 CHECK_STOREPTR((void *)(& __heapified->sym), (void *)((NODE */* */)__cil_tmp13), (void *)(& ___first_local)); #line 251 __heapified->sym = (NODE */* */)__cil_tmp13; #line 252 __cil_tmp14 = xlevarg((NODE * */* */)(& __heapified->arg)); #line 252 CHECK_NULL((void *)__heapified); #line 252 CHECK_STOREPTR((void *)(& __heapified->val), (void *)((NODE */* */)__cil_tmp14), (void *)(& ___first_local)); #line 252 __heapified->val = (NODE */* */)__cil_tmp14; #line 253 CHECK_NULL((void *)__heapified); #line 253 CHECK_NULL((void *)__heapified); #line 253 xlsetvalue((NODE */* */)__heapified->sym, (NODE */* */)__heapified->val); } #line 257 __cil_tmp15 = oldstk; #line 257 __cil_tmp15_b23 = oldstk_b19; #line 257 __cil_tmp15_e24 = oldstk_e20; #line 257 CHECK_STOREPTR((void *)(& xlstack_qss), __cil_tmp15_b23, (void *)(& ___first_local)); #line 257 xlstack_qss._ms._e = __cil_tmp15_e24; #line 257 xlstack_qss._ms._b = __cil_tmp15_b23; #line 257 xlstack_qss._p = __cil_tmp15; #line 260 CHECK_NULL((void *)__heapified); #line 260 __retres = (NODE */* */)__heapified->val; #line 239 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 260 wrapperFree((void *)__heapified); #line 239 return (__retres); } } #line 294 "xlbfun.c" struct heapified___6 { NODE * arg __HEAPIFY ; NODE * place __HEAPIFY ; NODE * value __HEAPIFY ; }; #line 287 "xlbfun.c" static char __string7[15] = #line 287 { 'b', 'a', 'd', ' ', 'p', 'l', 'a', 'c', 'e', ' ', 'f', 'o', 'r', 'm', '\000'}; #line 287 "xlbfun.c" static char __string8[15] = #line 287 { 'b', 'a', 'd', ' ', 'p', 'l', 'a', 'c', 'e', ' ', 'f', 'o', 'r', 'm', '\000'}; #line 264 NODE * xsetf(NODE * args ) ; #line 264 "xlbfun.c" NODE * xsetf(NODE * args ) { int volatile ___first_local ; struct node * * * __SEQ oldstk ; NODE * __retres ; struct heapified___6 * __heapified ; struct heapified___6 * __cil_tmp8 ; struct heapified___6 * __cil_tmp9 ; struct seq_p_p_s_node __cil_tmp10 ; struct node * * * __SEQ __cil_tmp11 ; NODE * __cil_tmp13 ; NODE * __cil_tmp14 ; char * __FSEQ __cil_tmp15 ; char * __FSEQ __cil_tmp16 ; struct node * * * __SEQ __cil_tmp17 ; void *oldstk_b23 ; void *oldstk_e24 ; void *__cil_tmp11_b25 ; void *__cil_tmp11_e26 ; void *__cil_tmp15_e27 ; void *__cil_tmp16_e28 ; void *__cil_tmp17_b29 ; void *__cil_tmp17_e30 ; { #line 294 __heapified = (struct heapified___6 */* */)0; #line 294 __retres = (NODE */* */)0; #line 294 oldstk_e24 = (void *)0; #line 294 oldstk_b23 = (void *)0; #line 294 oldstk = (struct node * * */* __SEQ */)0; #line 294 __cil_tmp9 = (struct heapified___6 */* */)wrapperAlloc(((sizeof((*__heapified)) + 3U) >> 2) << 2); #line 294 if (__cil_tmp9) { #line 294 __cil_tmp8 = __cil_tmp9; #line 294 CHECK_POSITIVE((int )(((sizeof((*__heapified)) + 3U) >> 2) << 2) - (int )sizeof(struct heapified___6 )); #line 294 __cil_tmp9->value = (NODE */* */)0; #line 294 __cil_tmp9->place = (NODE */* */)0; #line 294 __cil_tmp9->arg = (NODE */* */)0; } else { #line 294 __cil_tmp8 = 0; } #line 294 __heapified = __cil_tmp8; #line 269 CHECK_NULL((void *)__heapified); #line 269 CHECK_NULL((void *)__heapified); #line 269 __cil_tmp10 = xlsave3_qssssssss((NODE * */* */)(& __heapified->arg), (NODE * */* */)(& __heapified->place), (NODE * */* */)(& __heapified->value)); #line 269 __cil_tmp11 = __cil_tmp10._p; #line 269 __cil_tmp11_b25 = __cil_tmp10._ms._b; #line 269 __cil_tmp11_e26 = __cil_tmp10._ms._e; #line 269 oldstk_e24 = __cil_tmp11_e26; #line 269 oldstk_b23 = __cil_tmp11_b25; #line 269 oldstk = __cil_tmp11; #line 272 CHECK_NULL((void *)__heapified); #line 272 CHECK_STOREPTR((void *)(& __heapified->arg), (void *)((NODE */* */)args), (void *)(& ___first_local)); #line 272 __heapified->arg = (NODE */* */)args; #line 275 while (1) { #line 275 CHECK_NULL((void *)__heapified); #line 275 if (! ((int )__heapified->arg)) { #line 275 break; } #line 278 __cil_tmp13 = xlarg((NODE * */* */)(& __heapified->arg)); #line 278 CHECK_NULL((void *)__heapified); #line 278 CHECK_STOREPTR((void *)(& __heapified->place), (void *)((NODE */* */)__cil_tmp13), (void *)(& ___first_local)); #line 278 __heapified->place = (NODE */* */)__cil_tmp13; #line 279 __cil_tmp14 = xlevarg((NODE * */* */)(& __heapified->arg)); #line 279 CHECK_NULL((void *)__heapified); #line 279 CHECK_STOREPTR((void *)(& __heapified->value), (void *)((NODE */* */)__cil_tmp14), (void *)(& ___first_local)); #line 279 __heapified->value = (NODE */* */)__cil_tmp14; #line 282 CHECK_NULL((void *)__heapified); #line 282 if ((int )__heapified->place) { #line 282 CHECK_NULL((void *)__heapified); #line 282 CHECK_NULL((void *)__heapified->place); #line 282 if ((int )(__heapified->place)->n_type == 4) { #line 283 CHECK_NULL((void *)__heapified); #line 283 CHECK_NULL((void *)__heapified); #line 283 xlsetvalue((NODE */* */)__heapified->place, (NODE */* */)__heapified->value); } else { goto _L; } } else { _L: /* CIL Label */ #line 284 CHECK_NULL((void *)__heapified); #line 284 if ((int )__heapified->place) { #line 284 CHECK_NULL((void *)__heapified); #line 284 CHECK_NULL((void *)__heapified->place); #line 284 if ((int )(__heapified->place)->n_type == 3) { #line 285 CHECK_NULL((void *)__heapified); #line 285 CHECK_NULL((void *)__heapified); #line 285 placeform((NODE */* */)__heapified->place, (NODE */* */)__heapified->value); } else { #line 287 __cil_tmp16 = (char */* __FSEQ */)(& __string8[0]); #line 287 __cil_tmp16_e28 = & __string8[0] + 15; #line 287 xlfail_f(__cil_tmp16, __cil_tmp16_e28); } } else { #line 287 __cil_tmp15 = (char */* __FSEQ */)(& __string7[0]); #line 287 __cil_tmp15_e27 = & __string7[0] + 15; #line 287 xlfail_f(__cil_tmp15, __cil_tmp15_e27); } } } #line 291 __cil_tmp17 = oldstk; #line 291 __cil_tmp17_b29 = oldstk_b23; #line 291 __cil_tmp17_e30 = oldstk_e24; #line 291 CHECK_STOREPTR((void *)(& xlstack_qss), __cil_tmp17_b29, (void *)(& ___first_local)); #line 291 xlstack_qss._ms._e = __cil_tmp17_e30; #line 291 xlstack_qss._ms._b = __cil_tmp17_b29; #line 291 xlstack_qss._p = __cil_tmp17; #line 294 CHECK_NULL((void *)__heapified); #line 294 __retres = (NODE */* */)__heapified->value; #line 264 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 294 wrapperFree((void *)__heapified); #line 264 return (__retres); } } #line 357 "xlbfun.c" struct heapified___7 { NODE * arg1 __HEAPIFY ; NODE * arg2 __HEAPIFY ; }; #line 356 "xlbfun.c" static char __string9[15] = #line 356 { 'b', 'a', 'd', ' ', 'p', 'l', 'a', 'c', 'e', ' ', 'f', 'o', 'r', 'm', '\000'}; #line 351 "xlbfun.c" static char __string10[19] = #line 351 { 'i', 'n', 'd', 'e', 'x', ' ', 'o', 'u', 't', ' ', 'o', 'f', ' ', 'r', 'a', 'n', 'g', 'e', '\000'}; #line 351 "xlbfun.c" static char __string11[19] = #line 351 { 'i', 'n', 'd', 'e', 'x', ' ', 'o', 'u', 't', ' ', 'o', 'f', ' ', 'r', 'a', 'n', 'g', 'e', '\000'}; #line 298 static int placeform(NODE * __cil_tmp9 , NODE * value ) ; #line 298 "xlbfun.c" static int placeform(NODE * __cil_tmp9 , NODE * value ) { int volatile ___first_local ; NODE * place ; struct node * * * __SEQ oldstk ; NODE * fun ; int i ; int __retres ; struct heapified___7 * __heapified ; struct heapified___7 * __cil_tmp11 ; struct heapified___7 * __cil_tmp12 ; NODE * __cil_tmp13 ; char * __FSEQ __cil_tmp14 ; struct seq_p_p_s_node __cil_tmp15 ; struct node * * * __SEQ __cil_tmp16 ; NODE * __cil_tmp17 ; NODE * __cil_tmp19 ; char * __FSEQ __cil_tmp20 ; char * __FSEQ __cil_tmp21 ; struct node * * * __SEQ __cil_tmp22 ; struct seq_p_p_s_node __cil_tmp23 ; struct node * * * __SEQ __cil_tmp24 ; NODE * __cil_tmp25 ; NODE * __cil_tmp26 ; struct node * * * __SEQ __cil_tmp27 ; struct seq_p_p_s_node __cil_tmp28 ; struct node * * * __SEQ __cil_tmp29 ; NODE * __cil_tmp30 ; struct node * * * __SEQ __cil_tmp31 ; struct seq_p_p_s_node __cil_tmp32 ; struct node * * * __SEQ __cil_tmp33 ; NODE * __cil_tmp34 ; struct node * * * __SEQ __cil_tmp35 ; struct seq_p_p_s_node __cil_tmp36 ; struct node * * * __SEQ __cil_tmp37 ; NODE * __cil_tmp38 ; NODE * __cil_tmp39 ; struct node * * * __SEQ __cil_tmp40 ; void *oldstk_b55 ; void *oldstk_e56 ; void *__cil_tmp14_e57 ; void *__cil_tmp16_b58 ; void *__cil_tmp16_e59 ; void *__cil_tmp20_e60 ; void *__cil_tmp21_e61 ; void *__cil_tmp22_b62 ; void *__cil_tmp22_e63 ; void *__cil_tmp24_b64 ; void *__cil_tmp24_e65 ; void *__cil_tmp27_b66 ; void *__cil_tmp27_e67 ; void *__cil_tmp29_b68 ; void *__cil_tmp29_e69 ; void *__cil_tmp31_b70 ; void *__cil_tmp31_e71 ; void *__cil_tmp33_b72 ; void *__cil_tmp33_e73 ; void *__cil_tmp35_b74 ; void *__cil_tmp35_e75 ; void *__cil_tmp37_b76 ; void *__cil_tmp37_e77 ; void *__cil_tmp40_b78 ; void *__cil_tmp40_e79 ; { #line 357 __heapified = (struct heapified___7 */* */)0; #line 357 fun = (NODE */* */)0; #line 357 oldstk_e56 = (void *)0; #line 357 oldstk_b55 = (void *)0; #line 357 oldstk = (struct node * * */* __SEQ */)0; #line 357 place = (NODE */* */)0; #line 357 __cil_tmp12 = (struct heapified___7 */* */)wrapperAlloc(((sizeof((*__heapified)) + 3U) >> 2) << 2); #line 357 if (__cil_tmp12) { #line 357 __cil_tmp11 = __cil_tmp12; #line 357 CHECK_POSITIVE((int )(((sizeof((*__heapified)) + 3U) >> 2) << 2) - (int )sizeof(struct heapified___7 )); #line 357 __cil_tmp12->arg2 = (NODE */* */)0; #line 357 __cil_tmp12->arg1 = (NODE */* */)0; } else { #line 357 __cil_tmp11 = 0; } #line 357 __heapified = __cil_tmp11; #line 357 place = __cil_tmp9; #line 304 __cil_tmp13 = xlmatch(4, (NODE * */* */)(& place)); #line 304 fun = (NODE */* */)__cil_tmp13; #line 304 if ((unsigned int )fun == (unsigned int )s_get) { #line 305 CHECK_NULL((void *)__heapified); #line 305 __cil_tmp36 = xlsave2_qssssss((NODE * */* */)(& __heapified->arg1), (NODE * */* */)(& __heapified->arg2)); #line 305 __cil_tmp37 = __cil_tmp36._p; #line 305 __cil_tmp37_b76 = __cil_tmp36._ms._b; #line 305 __cil_tmp37_e77 = __cil_tmp36._ms._e; #line 305 oldstk_e56 = __cil_tmp37_e77; #line 305 oldstk_b55 = __cil_tmp37_b76; #line 305 oldstk = __cil_tmp37; #line 306 __cil_tmp38 = xlevmatch(4, (NODE * */* */)(& place)); #line 306 CHECK_NULL((void *)__heapified); #line 306 CHECK_STOREPTR((void *)(& __heapified->arg1), (void *)((NODE */* */)__cil_tmp38), (void *)(& ___first_local)); #line 306 __heapified->arg1 = (NODE */* */)__cil_tmp38; #line 307 __cil_tmp39 = xlevmatch(4, (NODE * */* */)(& place)); #line 307 CHECK_NULL((void *)__heapified); #line 307 CHECK_STOREPTR((void *)(& __heapified->arg2), (void *)((NODE */* */)__cil_tmp39), (void *)(& ___first_local)); #line 307 __heapified->arg2 = (NODE */* */)__cil_tmp39; #line 308 xllastarg((NODE */* */)place); #line 309 CHECK_NULL((void *)__heapified); #line 309 CHECK_NULL((void *)__heapified); #line 309 xlputprop((NODE */* */)__heapified->arg1, (NODE */* */)value, (NODE */* */)__heapified->arg2); #line 310 __cil_tmp40 = oldstk; #line 310 __cil_tmp40_b78 = oldstk_b55; #line 310 __cil_tmp40_e79 = oldstk_e56; #line 310 CHECK_STOREPTR((void *)(& xlstack_qss), __cil_tmp40_b78, (void *)(& ___first_local)); #line 310 xlstack_qss._ms._e = __cil_tmp40_e79; #line 310 xlstack_qss._ms._b = __cil_tmp40_b78; #line 310 xlstack_qss._p = __cil_tmp40; } else { #line 312 if ((unsigned int )fun == (unsigned int )s_svalue) { goto _L___0; } else { #line 312 if ((unsigned int )fun == (unsigned int )s_splist) { _L___0: /* CIL Label */ #line 313 __cil_tmp32 = xlsave1_qssss((NODE * */* */)(& __heapified->arg1)); #line 313 __cil_tmp33 = __cil_tmp32._p; #line 313 __cil_tmp33_b72 = __cil_tmp32._ms._b; #line 313 __cil_tmp33_e73 = __cil_tmp32._ms._e; #line 313 oldstk_e56 = __cil_tmp33_e73; #line 313 oldstk_b55 = __cil_tmp33_b72; #line 313 oldstk = __cil_tmp33; #line 314 __cil_tmp34 = xlevmatch(4, (NODE * */* */)(& place)); #line 314 CHECK_NULL((void *)__heapified); #line 314 CHECK_STOREPTR((void *)(& __heapified->arg1), (void *)((NODE */* */)__cil_tmp34), (void *)(& ___first_local)); #line 314 __heapified->arg1 = (NODE */* */)__cil_tmp34; #line 315 xllastarg((NODE */* */)place); #line 316 if ((unsigned int )fun == (unsigned int )s_svalue) { #line 317 CHECK_NULL((void *)__heapified); #line 317 CHECK_NULL((void *)__heapified->arg1); #line 317 CHECK_STOREPTR((void *)(& (__heapified->arg1)->n_info.__annonCompField1.n_xsym.xsy_value), (void *)((struct node */* */)value), (void *)(& ___first_local)); #line 317 (__heapified->arg1)->n_info.__annonCompField1.n_xsym.xsy_value = (struct node */* */)value; } else { #line 319 CHECK_NULL((void *)__heapified); #line 319 CHECK_NULL((void *)__heapified->arg1); #line 319 CHECK_NULL((void *)(__heapified->arg1)->n_info.__annonCompField1.n_xsym.xsy_plist); #line 319 CHECK_STOREPTR((void *)(& ((__heapified->arg1)->n_info.__annonCompField1.n_xsym.xsy_plist)->n_info.__annonCompField1.n_xlist.xl_cdr), (void *)((struct node */* */)value), (void *)(& ___first_local)); #line 319 ((__heapified->arg1)->n_info.__annonCompField1.n_xsym.xsy_plist)->n_info.__annonCompField1.n_xlist.xl_cdr = (struct node */* */)value; } #line 320 __cil_tmp35 = oldstk; #line 320 __cil_tmp35_b74 = oldstk_b55; #line 320 __cil_tmp35_e75 = oldstk_e56; #line 320 CHECK_STOREPTR((void *)(& xlstack_qss), __cil_tmp35_b74, (void *)(& ___first_local)); #line 320 xlstack_qss._ms._e = __cil_tmp35_e75; #line 320 xlstack_qss._ms._b = __cil_tmp35_b74; #line 320 xlstack_qss._p = __cil_tmp35; } else { #line 322 if ((unsigned int )fun == (unsigned int )s_car) { goto _L; } else { #line 322 if ((unsigned int )fun == (unsigned int )s_cdr) { _L: /* CIL Label */ #line 323 __cil_tmp28 = xlsave1_qssss((NODE * */* */)(& __heapified->arg1)); #line 323 __cil_tmp29 = __cil_tmp28._p; #line 323 __cil_tmp29_b68 = __cil_tmp28._ms._b; #line 323 __cil_tmp29_e69 = __cil_tmp28._ms._e; #line 323 oldstk_e56 = __cil_tmp29_e69; #line 323 oldstk_b55 = __cil_tmp29_b68; #line 323 oldstk = __cil_tmp29; #line 324 __cil_tmp30 = xlevmatch(3, (NODE * */* */)(& place)); #line 324 CHECK_NULL((void *)__heapified); #line 324 CHECK_STOREPTR((void *)(& __heapified->arg1), (void *)((NODE */* */)__cil_tmp30), (void *)(& ___first_local)); #line 324 __heapified->arg1 = (NODE */* */)__cil_tmp30; #line 325 xllastarg((NODE */* */)place); #line 326 CHECK_NULL((void *)__heapified); #line 326 if ((int )__heapified->arg1) { #line 326 CHECK_NULL((void *)__heapified); #line 326 CHECK_NULL((void *)__heapified->arg1); #line 326 if ((int )(__heapified->arg1)->n_type == 3) { #line 327 if ((unsigned int )fun == (unsigned int )s_car) { #line 328 CHECK_NULL((void *)__heapified); #line 328 CHECK_NULL((void *)__heapified->arg1); #line 328 CHECK_STOREPTR((void *)(& (__heapified->arg1)->n_info.__annonCompField1.n_xlist.xl_car), (void *)((struct node */* */)value), (void *)(& ___first_local)); #line 328 (__heapified->arg1)->n_info.__annonCompField1.n_xlist.xl_car = (struct node */* */)value; } else { #line 330 CHECK_NULL((void *)__heapified); #line 330 CHECK_NULL((void *)__heapified->arg1); #line 330 CHECK_STOREPTR((void *)(& (__heapified->arg1)->n_info.__annonCompField1.n_xlist.xl_cdr), (void *)((struct node */* */)value), (void *)(& ___first_local)); #line 330 (__heapified->arg1)->n_info.__annonCompField1.n_xlist.xl_cdr = (struct node */* */)value; } } } #line 331 __cil_tmp31 = oldstk; #line 331 __cil_tmp31_b70 = oldstk_b55; #line 331 __cil_tmp31_e71 = oldstk_e56; #line 331 CHECK_STOREPTR((void *)(& xlstack_qss), __cil_tmp31_b70, (void *)(& ___first_local)); #line 331 xlstack_qss._ms._e = __cil_tmp31_e71; #line 331 xlstack_qss._ms._b = __cil_tmp31_b70; #line 331 xlstack_qss._p = __cil_tmp31; } else { #line 333 if ((unsigned int )fun == (unsigned int )s_nth) { #line 334 CHECK_NULL((void *)__heapified); #line 334 __cil_tmp23 = xlsave2_qssssss((NODE * */* */)(& __heapified->arg1), (NODE * */* */)(& __heapified->arg2)); #line 334 __cil_tmp24 = __cil_tmp23._p; #line 334 __cil_tmp24_b64 = __cil_tmp23._ms._b; #line 334 __cil_tmp24_e65 = __cil_tmp23._ms._e; #line 334 oldstk_e56 = __cil_tmp24_e65; #line 334 oldstk_b55 = __cil_tmp24_b64; #line 334 oldstk = __cil_tmp24; #line 335 __cil_tmp25 = xlevmatch(5, (NODE * */* */)(& place)); #line 335 CHECK_NULL((void *)__heapified); #line 335 CHECK_STOREPTR((void *)(& __heapified->arg1), (void *)((NODE */* */)__cil_tmp25), (void *)(& ___first_local)); #line 335 __heapified->arg1 = (NODE */* */)__cil_tmp25; #line 336 __cil_tmp26 = xlevmatch(3, (NODE * */* */)(& place)); #line 336 CHECK_NULL((void *)__heapified); #line 336 CHECK_STOREPTR((void *)(& __heapified->arg2), (void *)((NODE */* */)__cil_tmp26), (void *)(& ___first_local)); #line 336 __heapified->arg2 = (NODE */* */)__cil_tmp26; #line 337 xllastarg((NODE */* */)place); #line 338 CHECK_NULL((void *)__heapified); #line 338 CHECK_NULL((void *)__heapified->arg1); #line 338 i = (int )(__heapified->arg1)->n_info.n_xint.xi_int; #line 338 while (1) { #line 338 if (i > 0) { #line 338 CHECK_NULL((void *)__heapified); #line 338 if ((int )__heapified->arg2) { #line 338 CHECK_NULL((void *)__heapified); #line 338 CHECK_NULL((void *)__heapified->arg2); #line 338 if (! ((int )(__heapified->arg2)->n_type == 3)) { #line 338 break; } } else { #line 338 break; } } else { #line 338 break; } #line 339 CHECK_NULL((void *)__heapified); #line 339 CHECK_NULL((void *)__heapified); #line 339 CHECK_NULL((void *)__heapified->arg2); #line 339 CHECK_STOREPTR((void *)(& __heapified->arg2), (void *)((NODE */* */)(__heapified->arg2)->n_info.__annonCompField1.n_xlist.xl_cdr), (void *)(& ___first_local)); #line 339 __heapified->arg2 = (NODE */* */)(__heapified->arg2)->n_info.__annonCompField1.n_xlist.xl_cdr; #line 338 i = i - 1; } #line 340 CHECK_NULL((void *)__heapified); #line 340 if ((int )__heapified->arg2) { #line 340 CHECK_NULL((void *)__heapified); #line 340 CHECK_NULL((void *)__heapified->arg2); #line 340 if ((int )(__heapified->arg2)->n_type == 3) { #line 341 CHECK_NULL((void *)__heapified); #line 341 CHECK_NULL((void *)__heapified->arg2); #line 341 CHECK_STOREPTR((void *)(& (__heapified->arg2)->n_info.__annonCompField1.n_xlist.xl_car), (void *)((struct node */* */)value), (void *)(& ___first_local)); #line 341 (__heapified->arg2)->n_info.__annonCompField1.n_xlist.xl_car = (struct node */* */)value; } } #line 342 __cil_tmp27 = oldstk; #line 342 __cil_tmp27_b66 = oldstk_b55; #line 342 __cil_tmp27_e67 = oldstk_e56; #line 342 CHECK_STOREPTR((void *)(& xlstack_qss), __cil_tmp27_b66, (void *)(& ___first_local)); #line 342 xlstack_qss._ms._e = __cil_tmp27_e67; #line 342 xlstack_qss._ms._b = __cil_tmp27_b66; #line 342 xlstack_qss._p = __cil_tmp27; } else { #line 345 if ((unsigned int )fun == (unsigned int )s_aref) { #line 346 CHECK_NULL((void *)__heapified); #line 346 __cil_tmp15 = xlsave2_qssssss((NODE * */* */)(& __heapified->arg1), (NODE * */* */)(& __heapified->arg2)); #line 346 __cil_tmp16 = __cil_tmp15._p; #line 346 __cil_tmp16_b58 = __cil_tmp15._ms._b; #line 346 __cil_tmp16_e59 = __cil_tmp15._ms._e; #line 346 oldstk_e56 = __cil_tmp16_e59; #line 346 oldstk_b55 = __cil_tmp16_b58; #line 346 oldstk = __cil_tmp16; #line 347 __cil_tmp17 = xlevmatch(10, (NODE * */* */)(& place)); #line 347 CHECK_NULL((void *)__heapified); #line 347 CHECK_STOREPTR((void *)(& __heapified->arg1), (void *)((NODE */* */)__cil_tmp17), (void *)(& ___first_local)); #line 347 __heapified->arg1 = (NODE */* */)__cil_tmp17; #line 348 __cil_tmp19 = xlevmatch(5, (NODE * */* */)(& place)); #line 348 CHECK_NULL((void *)__heapified); #line 348 CHECK_STOREPTR((void *)(& __heapified->arg2), (void *)((NODE */* */)__cil_tmp19), (void *)(& ___first_local)); #line 348 __heapified->arg2 = (NODE */* */)__cil_tmp19; #line 348 CHECK_NULL((void *)__heapified); #line 348 CHECK_NULL((void *)__heapified->arg2); #line 348 i = (int )(__heapified->arg2)->n_info.n_xint.xi_int; #line 349 xllastarg((NODE */* */)place); #line 350 if (i < 0) { #line 351 __cil_tmp21 = (char */* __FSEQ */)(& __string11[0]); #line 351 __cil_tmp21_e61 = & __string11[0] + 19; #line 351 CHECK_NULL((void *)__heapified); #line 351 xlerror_fs(__cil_tmp21, __cil_tmp21_e61, (NODE */* */)__heapified->arg2); } else { #line 350 CHECK_NULL((void *)__heapified); #line 350 CHECK_NULL((void *)__heapified->arg1); #line 350 if (i >= (__heapified->arg1)->n_info.n_xvect.xv_size) { #line 351 __cil_tmp20 = (char */* __FSEQ */)(& __string10[0]); #line 351 __cil_tmp20_e60 = & __string10[0] + 19; #line 351 CHECK_NULL((void *)__heapified); #line 351 xlerror_fs(__cil_tmp20, __cil_tmp20_e60, (NODE */* */)__heapified->arg2); } } #line 352 CHECK_NULL((void *)__heapified); #line 352 CHECK_NULL((void *)__heapified->arg1); #line 352 CHECK_FSEQARITH((void *)(__heapified->arg1)->n_info.n_xvect.xv_data._p, sizeof(struct node */* */), (void *)((__heapified->arg1)->n_info.n_xvect.xv_data._p + i)); #line 352 CHECK_FSEQ2SAFE((__heapified->arg1)->n_info.n_xvect.xv_data._ms._e, (void *)((__heapified->arg1)->n_info.n_xvect.xv_data._p + i), sizeof(struct node */* */), sizeof(struct node */* */), 1, 0); #line 352 CHECK_STOREPTR((void *)((__heapified->arg1)->n_info.n_xvect.xv_data._p + i), (void *)((struct node */* */)value), (void *)(& ___first_local)); #line 352 (*((__heapified->arg1)->n_info.n_xvect.xv_data._p + i)) = (struct node */* */)value; #line 353 __cil_tmp22 = oldstk; #line 353 __cil_tmp22_b62 = oldstk_b55; #line 353 __cil_tmp22_e63 = oldstk_e56; #line 353 CHECK_STOREPTR((void *)(& xlstack_qss), __cil_tmp22_b62, (void *)(& ___first_local)); #line 353 xlstack_qss._ms._e = __cil_tmp22_e63; #line 353 xlstack_qss._ms._b = __cil_tmp22_b62; #line 353 xlstack_qss._p = __cil_tmp22; } else { #line 356 __cil_tmp14 = (char */* __FSEQ */)(& __string9[0]); #line 356 __cil_tmp14_e57 = & __string9[0] + 15; #line 356 xlfail_f(__cil_tmp14, __cil_tmp14_e57); } } } } } } } #line 357 __retres = 0; #line 357 wrapperFree((void *)__heapified); #line 298 return (__retres); } } #line 360 NODE * xdefun(NODE * args ) ; #line 360 "xlbfun.c" NODE * xdefun(NODE * args ) { int volatile ___first_local ; NODE * tmp ; NODE * __retres ; NODE * __cil_tmp4 ; { #line 362 __retres = (NODE */* */)0; #line 362 tmp = (NODE */* */)0; #line 362 __cil_tmp4 = defun((NODE */* */)args, (NODE */* */)s_lambda); #line 362 tmp = (NODE */* */)__cil_tmp4; #line 362 __retres = (NODE */* */)tmp; #line 360 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 360 return (__retres); } } #line 366 NODE * xdefmacro(NODE * args ) ; #line 366 "xlbfun.c" NODE * xdefmacro(NODE * args ) { int volatile ___first_local ; NODE * tmp ; NODE * __retres ; NODE * __cil_tmp4 ; { #line 368 __retres = (NODE */* */)0; #line 368 tmp = (NODE */* */)0; #line 368 __cil_tmp4 = defun((NODE */* */)args, (NODE */* */)s_macro); #line 368 tmp = (NODE */* */)__cil_tmp4; #line 368 __retres = (NODE */* */)tmp; #line 366 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 366 return (__retres); } } #line 395 "xlbfun.c" struct heapified___8 { NODE * sym __HEAPIFY ; NODE * fargs __HEAPIFY ; NODE * closure __HEAPIFY ; }; #line 372 static NODE * defun(NODE * __cil_tmp8 , NODE * type ) ; #line 372 "xlbfun.c" static NODE * defun(NODE * __cil_tmp8 , NODE * type ) { int volatile ___first_local ; NODE * args ; struct node * * * __SEQ oldstk ; NODE * __retres ; struct heapified___8 * __heapified ; struct heapified___8 * __cil_tmp10 ; struct heapified___8 * __cil_tmp11 ; struct seq_p_p_s_node __cil_tmp12 ; struct node * * * __SEQ __cil_tmp13 ; NODE * __cil_tmp14 ; NODE * __cil_tmp16 ; NODE * __cil_tmp17 ; NODE * __cil_tmp18 ; NODE * __cil_tmp19 ; struct node * * * __SEQ __cil_tmp20 ; void *oldstk_b24 ; void *oldstk_e25 ; void *__cil_tmp13_b26 ; void *__cil_tmp13_e27 ; void *__cil_tmp20_b28 ; void *__cil_tmp20_e29 ; { #line 395 __heapified = (struct heapified___8 */* */)0; #line 395 __retres = (NODE */* */)0; #line 395 oldstk_e25 = (void *)0; #line 395 oldstk_b24 = (void *)0; #line 395 oldstk = (struct node * * */* __SEQ */)0; #line 395 args = (NODE */* */)0; #line 395 __cil_tmp11 = (struct heapified___8 */* */)wrapperAlloc(((sizeof((*__heapified)) + 3U) >> 2) << 2); #line 395 if (__cil_tmp11) { #line 395 __cil_tmp10 = __cil_tmp11; #line 395 CHECK_POSITIVE((int )(((sizeof((*__heapified)) + 3U) >> 2) << 2) - (int )sizeof(struct heapified___8 )); #line 395 __cil_tmp11->closure = (NODE */* */)0; #line 395 __cil_tmp11->fargs = (NODE */* */)0; #line 395 __cil_tmp11->sym = (NODE */* */)0; } else { #line 395 __cil_tmp10 = 0; } #line 395 __heapified = __cil_tmp10; #line 395 args = __cil_tmp8; #line 377 CHECK_NULL((void *)__heapified); #line 377 CHECK_NULL((void *)__heapified); #line 377 __cil_tmp12 = xlsave3_qssssssss((NODE * */* */)(& __heapified->sym), (NODE * */* */)(& __heapified->fargs), (NODE * */* */)(& __heapified->closure)); #line 377 __cil_tmp13 = __cil_tmp12._p; #line 377 __cil_tmp13_b26 = __cil_tmp12._ms._b; #line 377 __cil_tmp13_e27 = __cil_tmp12._ms._e; #line 377 oldstk_e25 = __cil_tmp13_e27; #line 377 oldstk_b24 = __cil_tmp13_b26; #line 377 oldstk = __cil_tmp13; #line 380 __cil_tmp14 = xlmatch(4, (NODE * */* */)(& args)); #line 380 CHECK_NULL((void *)__heapified); #line 380 CHECK_STOREPTR((void *)(& __heapified->sym), (void *)((NODE */* */)__cil_tmp14), (void *)(& ___first_local)); #line 380 __heapified->sym = (NODE */* */)__cil_tmp14; #line 381 __cil_tmp16 = xlmatch(3, (NODE * */* */)(& args)); #line 381 CHECK_NULL((void *)__heapified); #line 381 CHECK_STOREPTR((void *)(& __heapified->fargs), (void *)((NODE */* */)__cil_tmp16), (void *)(& ___first_local)); #line 381 __heapified->fargs = (NODE */* */)__cil_tmp16; #line 384 CHECK_NULL((void *)__heapified); #line 384 __cil_tmp17 = cons((NODE */* */)__heapified->fargs, (NODE */* */)args); #line 384 CHECK_NULL((void *)__heapified); #line 384 CHECK_STOREPTR((void *)(& __heapified->closure), (void *)((NODE */* */)__cil_tmp17), (void *)(& ___first_local)); #line 384 __heapified->closure = (NODE */* */)__cil_tmp17; #line 385 CHECK_NULL((void *)__heapified); #line 385 __cil_tmp18 = cons((NODE */* */)type, (NODE */* */)__heapified->closure); #line 385 CHECK_NULL((void *)__heapified); #line 385 CHECK_STOREPTR((void *)(& __heapified->closure), (void *)((NODE */* */)__cil_tmp18), (void *)(& ___first_local)); #line 385 __heapified->closure = (NODE */* */)__cil_tmp18; #line 386 CHECK_NULL((void *)__heapified); #line 386 __cil_tmp19 = cons((NODE */* */)__heapified->closure, (NODE */* */)xlenv); #line 386 CHECK_NULL((void *)__heapified); #line 386 CHECK_STOREPTR((void *)(& __heapified->closure), (void *)((NODE */* */)__cil_tmp19), (void *)(& ___first_local)); #line 386 __heapified->closure = (NODE */* */)__cil_tmp19; #line 389 CHECK_NULL((void *)__heapified); #line 389 CHECK_NULL((void *)__heapified); #line 389 xlsetvalue((NODE */* */)__heapified->sym, (NODE */* */)__heapified->closure); #line 392 __cil_tmp20 = oldstk; #line 392 __cil_tmp20_b28 = oldstk_b24; #line 392 __cil_tmp20_e29 = oldstk_e25; #line 392 CHECK_STOREPTR((void *)(& xlstack_qss), __cil_tmp20_b28, (void *)(& ___first_local)); #line 392 xlstack_qss._ms._e = __cil_tmp20_e29; #line 392 xlstack_qss._ms._b = __cil_tmp20_b28; #line 392 xlstack_qss._p = __cil_tmp20; #line 395 CHECK_NULL((void *)__heapified); #line 395 __retres = (NODE */* */)__heapified->sym; #line 372 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 395 wrapperFree((void *)__heapified); #line 372 return (__retres); } } __inline static char * /*9*/strcpy_wrapper_sff(char * __FSEQ dest , void *dest_e , char * __FSEQ src , void *src_e ) ; __inline static int ( __CCUREDFORMAT(2) __CCUREDVARARG(struct printf_arguments ) /*10*/sprintf_wrapper)(char * buf___0 , char * format , ...) ; #line 421 extern int __ccured_va_count ; extern char * /*11*/__stringof_ornull_sf(char * __FSEQ ptr_p , void *ptr_ms_e ) ; #line 415 "xlbfun.c" static char __string12[18] = #line 415 { 'b', 'a', 'd', ' ', 'a', 'r', 'g', 'u', 'm', 'e', 'n', 't', ' ', 't', 'y', 'p', 'e', '\000'}; #line 421 "xlbfun.c" static char __string13[5] = { '%', 's', '%', 'd', '\000'}; #line 399 NODE * xgensym(NODE * __cil_tmp8 ) ; #line 399 "xlbfun.c" NODE * xgensym(NODE * __cil_tmp8 ) { int volatile ___first_local ; NODE * args ; char ( __SEQ sym)[101] ; NODE * x ; int tmp ; NODE * tmp___0 ; char * __ROSTRING __cil_tmp6 ; NODE * __retres ; NODE * __cil_tmp10 ; char * __FSEQ __cil_tmp11 ; char * __FSEQ __cil_tmp12 ; char * __FSEQ __cil_tmp13 ; char * __FSEQ __cil_tmp14 ; char * __cil_tmp15 ; char * __SEQ __cil_tmp16 ; NODE * __cil_tmp17 ; void *__cil_tmp11_e24 ; void *__cil_tmp12_e25 ; void *__cil_tmp13_e26 ; void *__cil_tmp14_e27 ; void *__cil_tmp16_b28 ; void *__cil_tmp16_e29 ; { #line 424 __retres = (NODE */* */)0; #line 424 __cil_tmp6 = (char */* __ROSTRING */)0; #line 424 tmp___0 = (NODE */* */)0; #line 424 x = (NODE */* */)0; #line 424 args = (NODE */* */)0; #line 424 args = __cil_tmp8; #line 405 if ((int )args) { #line 406 __cil_tmp10 = xlarg((NODE * */* */)(& args)); #line 406 x = (NODE */* */)__cil_tmp10; #line 407 CHECK_NULL((void *)x); #line 407 switch ((int )x->n_type) { case 6: #line 409 CHECK_SEQ2FSEQ((void *)(gsprefix), (void *)(gsprefix + 101), (void *)(gsprefix)); #line 409 __cil_tmp11 = (char */* __FSEQ */)(gsprefix); #line 409 __cil_tmp11_e24 = gsprefix + 101; #line 409 CHECK_NULL((void *)x); #line 409 CHECK_SEQ2FSEQ(x->n_info.n_xstr.xst_str._ms._b, x->n_info.n_xstr.xst_str._ms._e, (void *)x->n_info.n_xstr.xst_str._p); #line 409 __cil_tmp12 = (char */* __FSEQ */)x->n_info.n_xstr.xst_str._p; #line 409 __cil_tmp12_e25 = x->n_info.n_xstr.xst_str._ms._e; #line 409 /*9*/strcpy_wrapper_sff(__cil_tmp11, __cil_tmp11_e24, __cil_tmp12, __cil_tmp12_e25); #line 410 break; case 5: #line 412 CHECK_NULL((void *)x); #line 412 gsnumber = (int )x->n_info.n_xint.xi_int; #line 413 break; default: #line 415 __cil_tmp13 = (char */* __FSEQ */)(& __string12[0]); #line 415 __cil_tmp13_e26 = & __string12[0] + 18; #line 415 xlerror_fs(__cil_tmp13, __cil_tmp13_e26, (NODE */* */)x); } } #line 418 xllastarg((NODE */* */)args); #line 421 tmp = gsnumber; #line 421 gsnumber = gsnumber + 1; #line 421 CHECK_SEQ2FSEQ((void *)(gsprefix), (void *)(gsprefix + 101), (void *)(gsprefix)); #line 421 __cil_tmp14 = (char */* __FSEQ */)(gsprefix); #line 421 __cil_tmp14_e27 = gsprefix + 101; #line 421 __cil_tmp15 = /*11*/__stringof_ornull_sf(__cil_tmp14, __cil_tmp14_e27); #line 421 __cil_tmp6 = (char */* __ROSTRING */)__cil_tmp15; #line 421 __ccured_va_count = -1; #line 421 /*10*/sprintf_wrapper((char */* */)(sym), (char */* */)(& __string13[0]), __cil_tmp6, tmp); #line 424 __cil_tmp16 = (char */* __SEQ */)(sym); #line 424 __cil_tmp16_b28 = sym; #line 424 __cil_tmp16_e29 = sym + 101; #line 424 __cil_tmp17 = xlmakesym_sq(__cil_tmp16, __cil_tmp16_b28, __cil_tmp16_e29, 0); #line 424 tmp___0 = (NODE */* */)__cil_tmp17; #line 424 __retres = (NODE */* */)tmp___0; #line 399 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 399 return (__retres); } } #line 428 NODE * xmakesymbol(NODE * args ) ; #line 428 "xlbfun.c" NODE * xmakesymbol(NODE * args ) { int volatile ___first_local ; NODE * tmp ; NODE * __retres ; NODE * __cil_tmp4 ; { #line 430 __retres = (NODE */* */)0; #line 430 tmp = (NODE */* */)0; #line 430 __cil_tmp4 = makesymbol((NODE */* */)args, 0); #line 430 tmp = (NODE */* */)__cil_tmp4; #line 430 __retres = (NODE */* */)tmp; #line 428 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 428 return (__retres); } } #line 434 NODE * xintern(NODE * args ) ; #line 434 "xlbfun.c" NODE * xintern(NODE * args ) { int volatile ___first_local ; NODE * tmp ; NODE * __retres ; NODE * __cil_tmp4 ; { #line 436 __retres = (NODE */* */)0; #line 436 tmp = (NODE */* */)0; #line 436 __cil_tmp4 = makesymbol((NODE */* */)args, 1); #line 436 tmp = (NODE */* */)__cil_tmp4; #line 436 __retres = (NODE */* */)tmp; #line 434 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 434 return (__retres); } } #line 460 "xlbfun.c" struct heapified___9 { NODE * pname___21 __HEAPIFY ; }; #line 440 static NODE * makesymbol(NODE * __cil_tmp10 , int iflag ) ; #line 440 "xlbfun.c" static NODE * makesymbol(NODE * __cil_tmp10 , int iflag ) { int volatile ___first_local ; NODE * args ; struct node * * * __SEQ oldstk ; NODE * val ; char * __SEQ str ; NODE * __retres ; struct heapified___9 * __heapified ; struct heapified___9 * __cil_tmp12 ; struct heapified___9 * __cil_tmp13 ; struct seq_p_p_s_node __cil_tmp14 ; struct node * * * __SEQ __cil_tmp15 ; NODE * __cil_tmp16 ; char * __SEQ __cil_tmp18 ; char * __SEQ __cil_tmp19 ; NODE * __cil_tmp20 ; char * __SEQ __cil_tmp21 ; NODE * __cil_tmp22 ; struct node * * * __SEQ __cil_tmp23 ; void *oldstk_b31 ; void *oldstk_e32 ; void *str_b33 ; void *str_e34 ; void *__cil_tmp15_b35 ; void *__cil_tmp15_e36 ; void *__cil_tmp18_b37 ; void *__cil_tmp18_e38 ; void *__cil_tmp19_b39 ; void *__cil_tmp19_e40 ; void *__cil_tmp21_b41 ; void *__cil_tmp21_e42 ; void *__cil_tmp23_b43 ; void *__cil_tmp23_e44 ; { #line 460 __heapified = (struct heapified___9 */* */)0; #line 460 __retres = (NODE */* */)0; #line 460 str_e34 = (void *)0; #line 460 str_b33 = (void *)0; #line 460 str = (char */* __SEQ */)0; #line 460 val = (NODE */* */)0; #line 460 oldstk_e32 = (void *)0; #line 460 oldstk_b31 = (void *)0; #line 460 oldstk = (struct node * * */* __SEQ */)0; #line 460 args = (NODE */* */)0; #line 460 __cil_tmp13 = (struct heapified___9 */* */)wrapperAlloc(((sizeof((*__heapified)) + 3U) >> 2) << 2); #line 460 if (__cil_tmp13) { #line 460 __cil_tmp12 = __cil_tmp13; #line 460 CHECK_POSITIVE((int )(((sizeof((*__heapified)) + 3U) >> 2) << 2) - (int )sizeof(struct heapified___9 )); #line 460 __cil_tmp13->pname___21 = (NODE */* */)0; } else { #line 460 __cil_tmp12 = 0; } #line 460 __heapified = __cil_tmp12; #line 460 args = __cil_tmp10; #line 446 __cil_tmp14 = xlsave1_qssss((NODE * */* */)(& __heapified->pname___21)); #line 446 __cil_tmp15 = __cil_tmp14._p; #line 446 __cil_tmp15_b35 = __cil_tmp14._ms._b; #line 446 __cil_tmp15_e36 = __cil_tmp14._ms._e; #line 446 oldstk_e32 = __cil_tmp15_e36; #line 446 oldstk_b31 = __cil_tmp15_b35; #line 446 oldstk = __cil_tmp15; #line 449 __cil_tmp16 = xlmatch(6, (NODE * */* */)(& args)); #line 449 CHECK_NULL((void *)__heapified); #line 449 CHECK_STOREPTR((void *)(& __heapified->pname___21), (void *)((NODE */* */)__cil_tmp16), (void *)(& ___first_local)); #line 449 __heapified->pname___21 = (NODE */* */)__cil_tmp16; #line 450 xllastarg((NODE */* */)args); #line 453 CHECK_NULL((void *)__heapified); #line 453 CHECK_NULL((void *)__heapified->pname___21); #line 453 __cil_tmp18 = (__heapified->pname___21)->n_info.n_xstr.xst_str._p; #line 453 __cil_tmp18_b37 = (__heapified->pname___21)->n_info.n_xstr.xst_str._ms._b; #line 453 __cil_tmp18_e38 = (__heapified->pname___21)->n_info.n_xstr.xst_str._ms._e; #line 453 str_e34 = __cil_tmp18_e38; #line 453 str_b33 = __cil_tmp18_b37; #line 453 str = __cil_tmp18; #line 454 if (iflag) { #line 454 __cil_tmp21 = str; #line 454 __cil_tmp21_b41 = str_b33; #line 454 __cil_tmp21_e42 = str_e34; #line 454 __cil_tmp22 = xlenter_sq(__cil_tmp21, __cil_tmp21_b41, __cil_tmp21_e42, 0); #line 454 val = (NODE */* */)__cil_tmp22; } else { #line 454 __cil_tmp19 = str; #line 454 __cil_tmp19_b39 = str_b33; #line 454 __cil_tmp19_e40 = str_e34; #line 454 __cil_tmp20 = xlmakesym_sq(__cil_tmp19, __cil_tmp19_b39, __cil_tmp19_e40, 0); #line 454 val = (NODE */* */)__cil_tmp20; } #line 457 __cil_tmp23 = oldstk; #line 457 __cil_tmp23_b43 = oldstk_b31; #line 457 __cil_tmp23_e44 = oldstk_e32; #line 457 CHECK_STOREPTR((void *)(& xlstack_qss), __cil_tmp23_b43, (void *)(& ___first_local)); #line 457 xlstack_qss._ms._e = __cil_tmp23_e44; #line 457 xlstack_qss._ms._b = __cil_tmp23_b43; #line 457 xlstack_qss._p = __cil_tmp23; #line 460 __retres = (NODE */* */)val; #line 440 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 460 wrapperFree((void *)__heapified); #line 440 return (__retres); } } #line 464 NODE * xsymname(NODE * __cil_tmp4 ) ; #line 464 "xlbfun.c" NODE * xsymname(NODE * __cil_tmp4 ) { int volatile ___first_local ; NODE * args ; NODE * sym ; NODE * __retres ; NODE * __cil_tmp5 ; { #line 473 __retres = (NODE */* */)0; #line 473 sym = (NODE */* */)0; #line 473 args = (NODE */* */)0; #line 473 args = __cil_tmp4; #line 469 __cil_tmp5 = xlmatch(4, (NODE * */* */)(& args)); #line 469 sym = (NODE */* */)__cil_tmp5; #line 470 xllastarg((NODE */* */)args); #line 473 CHECK_NULL((void *)sym); #line 473 CHECK_NULL((void *)sym->n_info.__annonCompField1.n_xsym.xsy_plist); #line 473 __retres = (NODE */* */)(sym->n_info.__annonCompField1.n_xsym.xsy_plist)->n_info.__annonCompField1.n_xlist.xl_car; #line 464 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 464 return (__retres); } } #line 487 "xlbfun.c" static char __string14[28] = #line 487 { 't', 'r', 'y', ' ', 'e', 'v', 'a', 'l', 'u', 'a', 't', 'i', 'n', 'g', ' ', 's', 'y', 'm', 'b', 'o', 'l', ' ', 'a', 'g', 'a', 'i', 'n', '\000'}; #line 487 "xlbfun.c" static char __string15[17] = #line 487 { 'u', 'n', 'b', 'o', 'u', 'n', 'd', ' ', 'v', 'a', 'r', 'i', 'a', 'b', 'l', 'e', '\000'}; #line 477 NODE * xsymvalue(NODE * __cil_tmp5 ) ; #line 477 "xlbfun.c" NODE * xsymvalue(NODE * __cil_tmp5 ) { int volatile ___first_local ; NODE * args ; NODE * sym ; NODE * val ; NODE * __retres ; NODE * __cil_tmp6 ; char * __FSEQ __cil_tmp7 ; char * __FSEQ __cil_tmp8 ; void *__cil_tmp7_e12 ; void *__cil_tmp8_e13 ; { #line 490 __retres = (NODE */* */)0; #line 490 val = (NODE */* */)0; #line 490 sym = (NODE */* */)0; #line 490 args = (NODE */* */)0; #line 490 args = __cil_tmp5; #line 482 __cil_tmp6 = xlmatch(4, (NODE * */* */)(& args)); #line 482 sym = (NODE */* */)__cil_tmp6; #line 483 xllastarg((NODE */* */)args); #line 486 while (1) { #line 486 CHECK_NULL((void *)sym); #line 486 val = (NODE */* */)sym->n_info.__annonCompField1.n_xsym.xsy_value; #line 486 if (! ((unsigned int )val == (unsigned int )s_unbound)) { #line 486 break; } #line 487 __cil_tmp7 = (char */* __FSEQ */)(& __string14[0]); #line 487 __cil_tmp7_e12 = & __string14[0] + 28; #line 487 __cil_tmp8 = (char */* __FSEQ */)(& __string15[0]); #line 487 __cil_tmp8_e13 = & __string15[0] + 17; #line 487 xlcerror_ffs(__cil_tmp7, __cil_tmp7_e12, __cil_tmp8, __cil_tmp8_e13, (NODE */* */)sym); } #line 490 __retres = (NODE */* */)val; #line 477 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 477 return (__retres); } } #line 494 NODE * xsymplist(NODE * __cil_tmp4 ) ; #line 494 "xlbfun.c" NODE * xsymplist(NODE * __cil_tmp4 ) { int volatile ___first_local ; NODE * args ; NODE * sym ; NODE * __retres ; NODE * __cil_tmp5 ; { #line 503 __retres = (NODE */* */)0; #line 503 sym = (NODE */* */)0; #line 503 args = (NODE */* */)0; #line 503 args = __cil_tmp4; #line 499 __cil_tmp5 = xlmatch(4, (NODE * */* */)(& args)); #line 499 sym = (NODE */* */)__cil_tmp5; #line 500 xllastarg((NODE */* */)args); #line 503 CHECK_NULL((void *)sym); #line 503 CHECK_NULL((void *)sym->n_info.__annonCompField1.n_xsym.xsy_plist); #line 503 __retres = (NODE */* */)(sym->n_info.__annonCompField1.n_xsym.xsy_plist)->n_info.__annonCompField1.n_xlist.xl_cdr; #line 494 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 494 return (__retres); } } #line 507 NODE * xget(NODE * __cil_tmp6 ) ; #line 507 "xlbfun.c" NODE * xget(NODE * __cil_tmp6 ) { int volatile ___first_local ; NODE * args ; NODE * sym ; NODE * prp ; NODE * tmp ; NODE * __retres ; NODE * __cil_tmp7 ; NODE * __cil_tmp8 ; NODE * __cil_tmp9 ; { #line 517 __retres = (NODE */* */)0; #line 517 tmp = (NODE */* */)0; #line 517 prp = (NODE */* */)0; #line 517 sym = (NODE */* */)0; #line 517 args = (NODE */* */)0; #line 517 args = __cil_tmp6; #line 512 __cil_tmp7 = xlmatch(4, (NODE * */* */)(& args)); #line 512 sym = (NODE */* */)__cil_tmp7; #line 513 __cil_tmp8 = xlmatch(4, (NODE * */* */)(& args)); #line 513 prp = (NODE */* */)__cil_tmp8; #line 514 xllastarg((NODE */* */)args); #line 517 __cil_tmp9 = xlgetprop((NODE */* */)sym, (NODE */* */)prp); #line 517 tmp = (NODE */* */)__cil_tmp9; #line 517 __retres = (NODE */* */)tmp; #line 507 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 507 return (__retres); } } #line 521 NODE * xputprop(NODE * __cil_tmp6 ) ; #line 521 "xlbfun.c" NODE * xputprop(NODE * __cil_tmp6 ) { int volatile ___first_local ; NODE * args ; NODE * sym ; NODE * val ; NODE * prp ; NODE * __retres ; NODE * __cil_tmp7 ; NODE * __cil_tmp8 ; NODE * __cil_tmp9 ; { #line 535 __retres = (NODE */* */)0; #line 535 prp = (NODE */* */)0; #line 535 val = (NODE */* */)0; #line 535 sym = (NODE */* */)0; #line 535 args = (NODE */* */)0; #line 535 args = __cil_tmp6; #line 526 __cil_tmp7 = xlmatch(4, (NODE * */* */)(& args)); #line 526 sym = (NODE */* */)__cil_tmp7; #line 527 __cil_tmp8 = xlarg((NODE * */* */)(& args)); #line 527 val = (NODE */* */)__cil_tmp8; #line 528 __cil_tmp9 = xlmatch(4, (NODE * */* */)(& args)); #line 528 prp = (NODE */* */)__cil_tmp9; #line 529 xllastarg((NODE */* */)args); #line 532 xlputprop((NODE */* */)sym, (NODE */* */)val, (NODE */* */)prp); #line 535 __retres = (NODE */* */)val; #line 521 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 521 return (__retres); } } #line 539 NODE * xremprop(NODE * __cil_tmp5 ) ; #line 539 "xlbfun.c" NODE * xremprop(NODE * __cil_tmp5 ) { int volatile ___first_local ; NODE * args ; NODE * sym ; NODE * prp ; NODE * __retres ; NODE * __cil_tmp6 ; NODE * __cil_tmp7 ; { #line 552 __retres = (NODE */* */)0; #line 552 prp = (NODE */* */)0; #line 552 sym = (NODE */* */)0; #line 552 args = (NODE */* */)0; #line 552 args = __cil_tmp5; #line 544 __cil_tmp6 = xlmatch(4, (NODE * */* */)(& args)); #line 544 sym = (NODE */* */)__cil_tmp6; #line 545 __cil_tmp7 = xlmatch(4, (NODE * */* */)(& args)); #line 545 prp = (NODE */* */)__cil_tmp7; #line 546 xllastarg((NODE */* */)args); #line 549 xlremprop((NODE */* */)sym, (NODE */* */)prp); #line 552 __retres = (NODE */* */)0; #line 539 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 539 return (__retres); } } #line 573 "xlbfun.c" static char __string16[18] = #line 573 { 'b', 'a', 'd', ' ', 'a', 'r', 'g', 'u', 'm', 'e', 'n', 't', ' ', 't', 'y', 'p', 'e', '\000'}; #line 573 "xlbfun.c" static char __string17[18] = #line 573 { 'b', 'a', 'd', ' ', 'a', 'r', 'g', 'u', 'm', 'e', 'n', 't', ' ', 't', 'y', 'p', 'e', '\000'}; #line 556 NODE * xhash(NODE * __cil_tmp9 ) ; #line 556 "xlbfun.c" NODE * xhash(NODE * __cil_tmp9 ) { int volatile ___first_local ; NODE * args ; char * __FSEQ str ; NODE * val ; int len ; NODE * tmp ; long tmp___0 ; NODE * tmp___1 ; NODE * __retres ; NODE * __cil_tmp10 ; NODE * __cil_tmp11 ; char * __FSEQ __cil_tmp12 ; char * __FSEQ __cil_tmp13 ; char * __FSEQ __cil_tmp14 ; char * __FSEQ __cil_tmp15 ; char * __FSEQ __cil_tmp16 ; int __cil_tmp17 ; NODE * __cil_tmp18 ; void *str_e26 ; void *__cil_tmp12_e27 ; void *__cil_tmp13_e28 ; void *__cil_tmp14_e29 ; void *__cil_tmp15_e30 ; void *__cil_tmp16_e31 ; { #line 576 __retres = (NODE */* */)0; #line 576 tmp___1 = (NODE */* */)0; #line 576 tmp = (NODE */* */)0; #line 576 val = (NODE */* */)0; #line 576 str_e26 = (void *)0; #line 576 str = (char */* __FSEQ */)0; #line 576 args = (NODE */* */)0; #line 576 args = __cil_tmp9; #line 563 __cil_tmp10 = xlarg((NODE * */* */)(& args)); #line 563 val = (NODE */* */)__cil_tmp10; #line 564 __cil_tmp11 = xlmatch(5, (NODE * */* */)(& args)); #line 564 tmp = (NODE */* */)__cil_tmp11; #line 564 CHECK_NULL((void *)tmp); #line 564 len = (int )tmp->n_info.n_xint.xi_int; #line 565 xllastarg((NODE */* */)args); #line 568 if ((int )val) { #line 568 CHECK_NULL((void *)val); #line 568 if ((int )val->n_type == 4) { #line 569 CHECK_NULL((void *)val); #line 569 CHECK_NULL((void *)val->n_info.__annonCompField1.n_xsym.xsy_plist); #line 569 CHECK_NULL((void *)(val->n_info.__annonCompField1.n_xsym.xsy_plist)->n_info.__annonCompField1.n_xlist.xl_car); #line 569 CHECK_SEQ2FSEQ(((val->n_info.__annonCompField1.n_xsym.xsy_plist)->n_info.__annonCompField1.n_xlist.xl_car)->n_info.n_xstr.xst_str._ms._b, ((val->n_info.__annonCompField1.n_xsym.xsy_plist)->n_info.__annonCompField1.n_xlist.xl_car)->n_info.n_xstr.xst_str._ms._e, (void *)((val->n_info.__annonCompField1.n_xsym.xsy_plist)->n_info.__annonCompField1.n_xlist.xl_car)->n_info.n_xstr.xst_str._p); #line 569 __cil_tmp15 = (char */* __FSEQ */)((val->n_info.__annonCompField1.n_xsym.xsy_plist)->n_info.__annonCompField1.n_xlist.xl_car)->n_info.n_xstr.xst_str._p; #line 569 __cil_tmp15_e30 = ((val->n_info.__annonCompField1.n_xsym.xsy_plist)->n_info.__annonCompField1.n_xlist.xl_car)->n_info.n_xstr.xst_str._ms._e; #line 569 str_e26 = __cil_tmp15_e30; #line 569 str = __cil_tmp15; } else { goto _L; } } else { _L: /* CIL Label */ ; #line 570 if ((int )val) { #line 570 CHECK_NULL((void *)val); #line 570 if ((int )val->n_type == 6) { #line 571 CHECK_NULL((void *)val); #line 571 CHECK_SEQ2FSEQ(val->n_info.n_xstr.xst_str._ms._b, val->n_info.n_xstr.xst_str._ms._e, (void *)val->n_info.n_xstr.xst_str._p); #line 571 __cil_tmp14 = (char */* __FSEQ */)val->n_info.n_xstr.xst_str._p; #line 571 __cil_tmp14_e29 = val->n_info.n_xstr.xst_str._ms._e; #line 571 str_e26 = __cil_tmp14_e29; #line 571 str = __cil_tmp14; } else { #line 573 __cil_tmp13 = (char */* __FSEQ */)(& __string17[0]); #line 573 __cil_tmp13_e28 = & __string17[0] + 18; #line 573 xlerror_fs(__cil_tmp13, __cil_tmp13_e28, (NODE */* */)val); } } else { #line 573 __cil_tmp12 = (char */* __FSEQ */)(& __string16[0]); #line 573 __cil_tmp12_e27 = & __string16[0] + 18; #line 573 xlerror_fs(__cil_tmp12, __cil_tmp12_e27, (NODE */* */)val); } } #line 576 __cil_tmp16 = str; #line 576 __cil_tmp16_e31 = str_e26; #line 576 __cil_tmp17 = hash_f(__cil_tmp16, __cil_tmp16_e31, len); #line 576 tmp___0 = (long )__cil_tmp17; #line 576 __cil_tmp18 = cvfixnum(tmp___0); #line 576 tmp___1 = (NODE */* */)__cil_tmp18; #line 576 __retres = (NODE */* */)tmp___1; #line 556 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 556 return (__retres); } } #line 592 "xlbfun.c" static char __string18[26] = #line 592 { 'a', 'r', 'r', 'a', 'y', ' ', 'i', 'n', 'd', 'e', 'x', ' ', 'o', 'u', 't', ' ', 'o', 'f', ' ', 'b', 'o', 'u', 'n', 'd', 's', '\000'}; #line 592 "xlbfun.c" static char __string19[26] = #line 592 { 'a', 'r', 'r', 'a', 'y', ' ', 'i', 'n', 'd', 'e', 'x', ' ', 'o', 'u', 't', ' ', 'o', 'f', ' ', 'b', 'o', 'u', 'n', 'd', 's', '\000'}; #line 580 NODE * xaref(NODE * __cil_tmp6 ) ; #line 580 "xlbfun.c" NODE * xaref(NODE * __cil_tmp6 ) { int volatile ___first_local ; NODE * args ; NODE * array ; NODE * index___0 ; int i ; NODE * __retres ; NODE * __cil_tmp7 ; NODE * __cil_tmp8 ; char * __FSEQ __cil_tmp9 ; char * __FSEQ __cil_tmp10 ; void *__cil_tmp9_e14 ; void *__cil_tmp10_e15 ; { #line 595 __retres = (NODE */* */)0; #line 595 index___0 = (NODE */* */)0; #line 595 array = (NODE */* */)0; #line 595 args = (NODE */* */)0; #line 595 args = __cil_tmp6; #line 586 __cil_tmp7 = xlmatch(10, (NODE * */* */)(& args)); #line 586 array = (NODE */* */)__cil_tmp7; #line 587 __cil_tmp8 = xlmatch(5, (NODE * */* */)(& args)); #line 587 index___0 = (NODE */* */)__cil_tmp8; #line 587 CHECK_NULL((void *)index___0); #line 587 i = (int )index___0->n_info.n_xint.xi_int; #line 588 xllastarg((NODE */* */)args); #line 591 if (i < 0) { #line 592 __cil_tmp10 = (char */* __FSEQ */)(& __string19[0]); #line 592 __cil_tmp10_e15 = & __string19[0] + 26; #line 592 xlerror_fs(__cil_tmp10, __cil_tmp10_e15, (NODE */* */)index___0); } else { #line 591 CHECK_NULL((void *)array); #line 591 if (i >= array->n_info.n_xvect.xv_size) { #line 592 __cil_tmp9 = (char */* __FSEQ */)(& __string18[0]); #line 592 __cil_tmp9_e14 = & __string18[0] + 26; #line 592 xlerror_fs(__cil_tmp9, __cil_tmp9_e14, (NODE */* */)index___0); } } #line 595 CHECK_NULL((void *)array); #line 595 CHECK_FSEQARITH2SAFE((void *)array->n_info.n_xvect.xv_data._p, array->n_info.n_xvect.xv_data._ms._e, (void *)(array->n_info.n_xvect.xv_data._p + i), sizeof(struct node */* */), sizeof(struct node */* */), 1, 0); #line 595 __retres = (NODE */* */)(*(array->n_info.n_xvect.xv_data._p + i)); #line 580 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 580 return (__retres); } } #line 599 NODE * xmkarray(NODE * __cil_tmp6 ) ; #line 599 "xlbfun.c" NODE * xmkarray(NODE * __cil_tmp6 ) { int volatile ___first_local ; NODE * args ; int size ; NODE * tmp ; NODE * tmp___0 ; NODE * __retres ; NODE * __cil_tmp7 ; NODE * __cil_tmp8 ; { #line 608 __retres = (NODE */* */)0; #line 608 tmp___0 = (NODE */* */)0; #line 608 tmp = (NODE */* */)0; #line 608 args = (NODE */* */)0; #line 608 args = __cil_tmp6; #line 604 __cil_tmp7 = xlmatch(5, (NODE * */* */)(& args)); #line 604 tmp = (NODE */* */)__cil_tmp7; #line 604 CHECK_NULL((void *)tmp); #line 604 size = (int )tmp->n_info.n_xint.xi_int; #line 605 xllastarg((NODE */* */)args); #line 608 __cil_tmp8 = newvector(size); #line 608 tmp___0 = (NODE */* */)__cil_tmp8; #line 608 __retres = (NODE */* */)tmp___0; #line 599 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 599 return (__retres); } } #line 31 "proto.h" static int keypresent___0(NODE * key , NODE * list ) ; #line 37 static NODE * let___0(NODE * args , int pflag ) ; #line 40 static NODE * prog___0(NODE * args , int pflag ) ; #line 45 static NODE * progx___0(NODE * args , int n ) ; #line 49 static NODE * doloop___0(NODE * args , int pflag ) ; #line 61 static int dobindings___0(NODE * blist , NODE * env ) ; #line 49 "xlcont.c" struct heapified___10 { NODE * arg __HEAPIFY ; NODE * list __HEAPIFY ; }; #line 14 NODE * xcond(NODE * args ) ; #line 14 "xlcont.c" NODE * xcond(NODE * args ) { int volatile ___first_local ; struct node * * * __SEQ oldstk ; NODE * val ; NODE * __retres ; struct heapified___10 * __heapified ; struct heapified___10 * __cil_tmp8 ; struct heapified___10 * __cil_tmp9 ; struct seq_p_p_s_node __cil_tmp10 ; struct node * * * __SEQ __cil_tmp11 ; NODE * __cil_tmp13 ; NODE * __cil_tmp14 ; NODE * __cil_tmp15 ; struct node * * * __SEQ __cil_tmp16 ; void *oldstk_b20 ; void *oldstk_e21 ; void *__cil_tmp11_b22 ; void *__cil_tmp11_e23 ; void *__cil_tmp16_b24 ; void *__cil_tmp16_e25 ; { #line 49 __heapified = (struct heapified___10 */* */)0; #line 49 __retres = (NODE */* */)0; #line 49 val = (NODE */* */)0; #line 49 oldstk_e21 = (void *)0; #line 49 oldstk_b20 = (void *)0; #line 49 oldstk = (struct node * * */* __SEQ */)0; #line 49 __cil_tmp9 = (struct heapified___10 */* */)wrapperAlloc(((sizeof((*__heapified)) + 3U) >> 2) << 2); #line 49 if (__cil_tmp9) { #line 49 __cil_tmp8 = __cil_tmp9; #line 49 CHECK_POSITIVE((int )(((sizeof((*__heapified)) + 3U) >> 2) << 2) - (int )sizeof(struct heapified___10 )); #line 49 __cil_tmp9->list = (NODE */* */)0; #line 49 __cil_tmp9->arg = (NODE */* */)0; } else { #line 49 __cil_tmp8 = 0; } #line 49 __heapified = __cil_tmp8; #line 19 CHECK_NULL((void *)__heapified); #line 19 __cil_tmp10 = xlsave2_qssssss((NODE * */* */)(& __heapified->arg), (NODE * */* */)(& __heapified->list)); #line 19 __cil_tmp11 = __cil_tmp10._p; #line 19 __cil_tmp11_b22 = __cil_tmp10._ms._b; #line 19 __cil_tmp11_e23 = __cil_tmp10._ms._e; #line 19 oldstk_e21 = __cil_tmp11_e23; #line 19 oldstk_b20 = __cil_tmp11_b22; #line 19 oldstk = __cil_tmp11; #line 22 CHECK_NULL((void *)__heapified); #line 22 CHECK_STOREPTR((void *)(& __heapified->arg), (void *)((NODE */* */)args), (void *)(& ___first_local)); #line 22 __heapified->arg = (NODE */* */)args; #line 25 val = (NODE */* */)0; #line 28 while (1) { #line 28 CHECK_NULL((void *)__heapified); #line 28 if (! ((int )__heapified->arg)) { #line 28 break; } #line 31 __cil_tmp13 = xlmatch(3, (NODE * */* */)(& __heapified->arg)); #line 31 CHECK_NULL((void *)__heapified); #line 31 CHECK_STOREPTR((void *)(& __heapified->list), (void *)((NODE */* */)__cil_tmp13), (void *)(& ___first_local)); #line 31 __heapified->list = (NODE */* */)__cil_tmp13; #line 34 CHECK_NULL((void *)__heapified); #line 34 __cil_tmp14 = xlevarg((NODE * */* */)(& __heapified->list)); #line 34 val = (NODE */* */)__cil_tmp14; #line 34 if ((int )val) { #line 37 while (1) { #line 37 CHECK_NULL((void *)__heapified); #line 37 if (! ((int )__heapified->list)) { #line 37 break; } #line 38 CHECK_NULL((void *)__heapified); #line 38 __cil_tmp15 = xlevarg((NODE * */* */)(& __heapified->list)); #line 38 val = (NODE */* */)__cil_tmp15; } #line 41 break; } } #line 46 __cil_tmp16 = oldstk; #line 46 __cil_tmp16_b24 = oldstk_b20; #line 46 __cil_tmp16_e25 = oldstk_e21; #line 46 CHECK_STOREPTR((void *)(& xlstack_qss), __cil_tmp16_b24, (void *)(& ___first_local)); #line 46 xlstack_qss._ms._e = __cil_tmp16_e25; #line 46 xlstack_qss._ms._b = __cil_tmp16_b24; #line 46 xlstack_qss._p = __cil_tmp16; #line 49 __retres = (NODE */* */)val; #line 14 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 49 wrapperFree((void *)__heapified); #line 14 return (__retres); } } #line 93 "xlcont.c" struct heapified___11 { NODE * key __HEAPIFY ; NODE * arg __HEAPIFY ; NODE * clause __HEAPIFY ; }; #line 53 NODE * xcase(NODE * args ) ; #line 53 "xlcont.c" NODE * xcase(NODE * args ) { int volatile ___first_local ; struct node * * * __SEQ oldstk ; NODE * list ; NODE * val ; int tmp ; int tmp___0 ; NODE * __retres ; struct heapified___11 * __heapified ; struct heapified___11 * __cil_tmp12 ; struct heapified___11 * __cil_tmp13 ; struct seq_p_p_s_node __cil_tmp14 ; struct node * * * __SEQ __cil_tmp15 ; NODE * __cil_tmp17 ; NODE * __cil_tmp18 ; NODE * __cil_tmp19 ; int __cil_tmp20 ; NODE * __cil_tmp21 ; int __cil_tmp22 ; struct node * * * __SEQ __cil_tmp23 ; void *oldstk_b27 ; void *oldstk_e28 ; void *__cil_tmp15_b29 ; void *__cil_tmp15_e30 ; void *__cil_tmp23_b31 ; void *__cil_tmp23_e32 ; { #line 93 __heapified = (struct heapified___11 */* */)0; #line 93 __retres = (NODE */* */)0; #line 93 val = (NODE */* */)0; #line 93 list = (NODE */* */)0; #line 93 oldstk_e28 = (void *)0; #line 93 oldstk_b27 = (void *)0; #line 93 oldstk = (struct node * * */* __SEQ */)0; #line 93 __cil_tmp13 = (struct heapified___11 */* */)wrapperAlloc(((sizeof((*__heapified)) + 3U) >> 2) << 2); #line 93 if (__cil_tmp13) { #line 93 __cil_tmp12 = __cil_tmp13; #line 93 CHECK_POSITIVE((int )(((sizeof((*__heapified)) + 3U) >> 2) << 2) - (int )sizeof(struct heapified___11 )); #line 93 __cil_tmp13->clause = (NODE */* */)0; #line 93 __cil_tmp13->arg = (NODE */* */)0; #line 93 __cil_tmp13->key = (NODE */* */)0; } else { #line 93 __cil_tmp12 = 0; } #line 93 __heapified = __cil_tmp12; #line 58 CHECK_NULL((void *)__heapified); #line 58 CHECK_NULL((void *)__heapified); #line 58 __cil_tmp14 = xlsave3_qssssssss((NODE * */* */)(& __heapified->key), (NODE * */* */)(& __heapified->arg), (NODE * */* */)(& __heapified->clause)); #line 58 __cil_tmp15 = __cil_tmp14._p; #line 58 __cil_tmp15_b29 = __cil_tmp14._ms._b; #line 58 __cil_tmp15_e30 = __cil_tmp14._ms._e; #line 58 oldstk_e28 = __cil_tmp15_e30; #line 58 oldstk_b27 = __cil_tmp15_b29; #line 58 oldstk = __cil_tmp15; #line 61 CHECK_NULL((void *)__heapified); #line 61 CHECK_STOREPTR((void *)(& __heapified->arg), (void *)((NODE */* */)args), (void *)(& ___first_local)); #line 61 __heapified->arg = (NODE */* */)args; #line 64 CHECK_NULL((void *)__heapified); #line 64 __cil_tmp17 = xlevarg((NODE * */* */)(& __heapified->arg)); #line 64 CHECK_NULL((void *)__heapified); #line 64 CHECK_STOREPTR((void *)(& __heapified->key), (void *)((NODE */* */)__cil_tmp17), (void *)(& ___first_local)); #line 64 __heapified->key = (NODE */* */)__cil_tmp17; #line 67 val = (NODE */* */)0; #line 70 while (1) { #line 70 CHECK_NULL((void *)__heapified); #line 70 if (! ((int )__heapified->arg)) { #line 70 break; } #line 73 CHECK_NULL((void *)__heapified); #line 73 __cil_tmp18 = xlmatch(3, (NODE * */* */)(& __heapified->arg)); #line 73 CHECK_NULL((void *)__heapified); #line 73 CHECK_STOREPTR((void *)(& __heapified->clause), (void *)((NODE */* */)__cil_tmp18), (void *)(& ___first_local)); #line 73 __heapified->clause = (NODE */* */)__cil_tmp18; #line 76 CHECK_NULL((void *)__heapified); #line 76 __cil_tmp19 = xlarg((NODE * */* */)(& __heapified->clause)); #line 76 list = (NODE */* */)__cil_tmp19; #line 76 if ((unsigned int )list == (unsigned int )true) { goto _L; } else { #line 76 if ((unsigned int )list == 0) { goto _L___1; } else { #line 76 CHECK_NULL((void *)list); #line 76 if ((int )list->n_type == 3) { _L___1: /* CIL Label */ #line 76 CHECK_NULL((void *)__heapified); #line 76 __cil_tmp22 = keypresent___0((NODE */* */)__heapified->key, (NODE */* */)list); #line 76 tmp = __cil_tmp22; #line 76 if (tmp) { goto _L; } else { goto _L___0; } } else { _L___0: /* CIL Label */ #line 76 CHECK_NULL((void *)__heapified); #line 76 __cil_tmp20 = eql((NODE */* */)__heapified->key, (NODE */* */)list); #line 76 tmp___0 = __cil_tmp20; #line 76 if (tmp___0) { _L: /* CIL Label */ #line 81 while (1) { #line 81 CHECK_NULL((void *)__heapified); #line 81 if (! ((int )__heapified->clause)) { #line 81 break; } #line 82 CHECK_NULL((void *)__heapified); #line 82 __cil_tmp21 = xlevarg((NODE * */* */)(& __heapified->clause)); #line 82 val = (NODE */* */)__cil_tmp21; } #line 85 break; } } } } } #line 90 __cil_tmp23 = oldstk; #line 90 __cil_tmp23_b31 = oldstk_b27; #line 90 __cil_tmp23_e32 = oldstk_e28; #line 90 CHECK_STOREPTR((void *)(& xlstack_qss), __cil_tmp23_b31, (void *)(& ___first_local)); #line 90 xlstack_qss._ms._e = __cil_tmp23_e32; #line 90 xlstack_qss._ms._b = __cil_tmp23_b31; #line 90 xlstack_qss._p = __cil_tmp23; #line 93 __retres = (NODE */* */)val; #line 53 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 93 wrapperFree((void *)__heapified); #line 53 return (__retres); } } #line 97 static int keypresent___0(NODE * key , NODE * list ) ; #line 97 "xlcont.c" static int keypresent___0(NODE * key , NODE * list ) { int tmp ; int __retres ; int __cil_tmp5 ; { #line 99 while (1) { #line 99 if ((int )list) { #line 99 CHECK_NULL((void *)list); #line 99 if (! ((int )list->n_type == 3)) { #line 99 break; } } else { #line 99 break; } #line 100 CHECK_NULL((void *)list); #line 100 __cil_tmp5 = eql((NODE */* */)list->n_info.__annonCompField1.n_xlist.xl_car, (NODE */* */)key); #line 100 tmp = __cil_tmp5; #line 100 if (tmp) { #line 101 __retres = 1; goto return_label; } #line 99 CHECK_NULL((void *)list); #line 99 list = (NODE */* */)list->n_info.__annonCompField1.n_xlist.xl_cdr; } #line 102 __retres = 0; return_label: /* CIL Label */ ; #line 97 return (__retres); } } #line 128 "xlcont.c" struct heapified___12 { NODE * arg __HEAPIFY ; }; #line 106 NODE * xand(NODE * args ) ; #line 106 "xlcont.c" NODE * xand(NODE * args ) { int volatile ___first_local ; struct node * * * __SEQ oldstk ; NODE * val ; NODE * __retres ; struct heapified___12 * __heapified ; struct heapified___12 * __cil_tmp7 ; struct heapified___12 * __cil_tmp8 ; struct seq_p_p_s_node __cil_tmp9 ; struct node * * * __SEQ __cil_tmp10 ; NODE * __cil_tmp12 ; struct node * * * __SEQ __cil_tmp13 ; void *oldstk_b17 ; void *oldstk_e18 ; void *__cil_tmp10_b19 ; void *__cil_tmp10_e20 ; void *__cil_tmp13_b21 ; void *__cil_tmp13_e22 ; { #line 128 __heapified = (struct heapified___12 */* */)0; #line 128 __retres = (NODE */* */)0; #line 128 val = (NODE */* */)0; #line 128 oldstk_e18 = (void *)0; #line 128 oldstk_b17 = (void *)0; #line 128 oldstk = (struct node * * */* __SEQ */)0; #line 128 __cil_tmp8 = (struct heapified___12 */* */)wrapperAlloc(((sizeof((*__heapified)) + 3U) >> 2) << 2); #line 128 if (__cil_tmp8) { #line 128 __cil_tmp7 = __cil_tmp8; #line 128 CHECK_POSITIVE((int )(((sizeof((*__heapified)) + 3U) >> 2) << 2) - (int )sizeof(struct heapified___12 )); #line 128 __cil_tmp8->arg = (NODE */* */)0; } else { #line 128 __cil_tmp7 = 0; } #line 128 __heapified = __cil_tmp7; #line 111 __cil_tmp9 = xlsave1_qssss((NODE * */* */)(& __heapified->arg)); #line 111 __cil_tmp10 = __cil_tmp9._p; #line 111 __cil_tmp10_b19 = __cil_tmp9._ms._b; #line 111 __cil_tmp10_e20 = __cil_tmp9._ms._e; #line 111 oldstk_e18 = __cil_tmp10_e20; #line 111 oldstk_b17 = __cil_tmp10_b19; #line 111 oldstk = __cil_tmp10; #line 114 CHECK_NULL((void *)__heapified); #line 114 CHECK_STOREPTR((void *)(& __heapified->arg), (void *)((NODE */* */)args), (void *)(& ___first_local)); #line 114 __heapified->arg = (NODE */* */)args; #line 115 val = (NODE */* */)true; #line 118 while (1) { #line 118 CHECK_NULL((void *)__heapified); #line 118 if (! ((int )__heapified->arg)) { #line 118 break; } #line 121 __cil_tmp12 = xlevarg((NODE * */* */)(& __heapified->arg)); #line 121 val = (NODE */* */)__cil_tmp12; #line 121 if ((unsigned int )val == 0) { #line 122 break; } } #line 125 __cil_tmp13 = oldstk; #line 125 __cil_tmp13_b21 = oldstk_b17; #line 125 __cil_tmp13_e22 = oldstk_e18; #line 125 CHECK_STOREPTR((void *)(& xlstack_qss), __cil_tmp13_b21, (void *)(& ___first_local)); #line 125 xlstack_qss._ms._e = __cil_tmp13_e22; #line 125 xlstack_qss._ms._b = __cil_tmp13_b21; #line 125 xlstack_qss._p = __cil_tmp13; #line 128 __retres = (NODE */* */)val; #line 106 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 128 wrapperFree((void *)__heapified); #line 106 return (__retres); } } #line 152 "xlcont.c" struct heapified___13 { NODE * arg __HEAPIFY ; }; #line 132 NODE * xor(NODE * args ) ; #line 132 "xlcont.c" NODE * xor(NODE * args ) { int volatile ___first_local ; struct node * * * __SEQ oldstk ; NODE * val ; NODE * __retres ; struct heapified___13 * __heapified ; struct heapified___13 * __cil_tmp7 ; struct heapified___13 * __cil_tmp8 ; struct seq_p_p_s_node __cil_tmp9 ; struct node * * * __SEQ __cil_tmp10 ; NODE * __cil_tmp12 ; struct node * * * __SEQ __cil_tmp13 ; void *oldstk_b17 ; void *oldstk_e18 ; void *__cil_tmp10_b19 ; void *__cil_tmp10_e20 ; void *__cil_tmp13_b21 ; void *__cil_tmp13_e22 ; { #line 152 __heapified = (struct heapified___13 */* */)0; #line 152 __retres = (NODE */* */)0; #line 152 val = (NODE */* */)0; #line 152 oldstk_e18 = (void *)0; #line 152 oldstk_b17 = (void *)0; #line 152 oldstk = (struct node * * */* __SEQ */)0; #line 152 __cil_tmp8 = (struct heapified___13 */* */)wrapperAlloc(((sizeof((*__heapified)) + 3U) >> 2) << 2); #line 152 if (__cil_tmp8) { #line 152 __cil_tmp7 = __cil_tmp8; #line 152 CHECK_POSITIVE((int )(((sizeof((*__heapified)) + 3U) >> 2) << 2) - (int )sizeof(struct heapified___13 )); #line 152 __cil_tmp8->arg = (NODE */* */)0; } else { #line 152 __cil_tmp7 = 0; } #line 152 __heapified = __cil_tmp7; #line 137 __cil_tmp9 = xlsave1_qssss((NODE * */* */)(& __heapified->arg)); #line 137 __cil_tmp10 = __cil_tmp9._p; #line 137 __cil_tmp10_b19 = __cil_tmp9._ms._b; #line 137 __cil_tmp10_e20 = __cil_tmp9._ms._e; #line 137 oldstk_e18 = __cil_tmp10_e20; #line 137 oldstk_b17 = __cil_tmp10_b19; #line 137 oldstk = __cil_tmp10; #line 140 CHECK_NULL((void *)__heapified); #line 140 CHECK_STOREPTR((void *)(& __heapified->arg), (void *)((NODE */* */)args), (void *)(& ___first_local)); #line 140 __heapified->arg = (NODE */* */)args; #line 141 val = (NODE */* */)0; #line 144 while (1) { #line 144 CHECK_NULL((void *)__heapified); #line 144 if (! ((int )__heapified->arg)) { #line 144 break; } #line 145 __cil_tmp12 = xlevarg((NODE * */* */)(& __heapified->arg)); #line 145 val = (NODE */* */)__cil_tmp12; #line 145 if ((int )val) { #line 146 break; } } #line 149 __cil_tmp13 = oldstk; #line 149 __cil_tmp13_b21 = oldstk_b17; #line 149 __cil_tmp13_e22 = oldstk_e18; #line 149 CHECK_STOREPTR((void *)(& xlstack_qss), __cil_tmp13_b21, (void *)(& ___first_local)); #line 149 xlstack_qss._ms._e = __cil_tmp13_e22; #line 149 xlstack_qss._ms._b = __cil_tmp13_b21; #line 149 xlstack_qss._p = __cil_tmp13; #line 152 __retres = (NODE */* */)val; #line 132 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 152 wrapperFree((void *)__heapified); #line 132 return (__retres); } } #line 176 "xlcont.c" struct heapified___14 { NODE * testexpr __HEAPIFY ; NODE * thenexpr __HEAPIFY ; NODE * elseexpr __HEAPIFY ; }; #line 156 NODE * xif(NODE * __cil_tmp12 ) ; #line 156 "xlcont.c" NODE * xif(NODE * __cil_tmp12 ) { int volatile ___first_local ; NODE * args ; struct node * * * __SEQ oldstk ; NODE * val ; NODE * tmp___1 ; NODE * tmp___2 ; NODE * __retres ; struct heapified___14 * __heapified ; struct heapified___14 * __cil_tmp14 ; struct heapified___14 * __cil_tmp15 ; struct seq_p_p_s_node __cil_tmp16 ; struct node * * * __SEQ __cil_tmp17 ; NODE * __cil_tmp18 ; NODE * __cil_tmp20 ; NODE * __cil_tmp21 ; NODE * __cil_tmp22 ; NODE * __cil_tmp23 ; struct node * * * __SEQ __cil_tmp24 ; void *oldstk_b28 ; void *oldstk_e29 ; void *__cil_tmp17_b30 ; void *__cil_tmp17_e31 ; void *__cil_tmp24_b32 ; void *__cil_tmp24_e33 ; { #line 176 __heapified = (struct heapified___14 */* */)0; #line 176 __retres = (NODE */* */)0; #line 176 tmp___2 = (NODE */* */)0; #line 176 tmp___1 = (NODE */* */)0; #line 176 val = (NODE */* */)0; #line 176 oldstk_e29 = (void *)0; #line 176 oldstk_b28 = (void *)0; #line 176 oldstk = (struct node * * */* __SEQ */)0; #line 176 args = (NODE */* */)0; #line 176 __cil_tmp15 = (struct heapified___14 */* */)wrapperAlloc(((sizeof((*__heapified)) + 3U) >> 2) << 2); #line 176 if (__cil_tmp15) { #line 176 __cil_tmp14 = __cil_tmp15; #line 176 CHECK_POSITIVE((int )(((sizeof((*__heapified)) + 3U) >> 2) << 2) - (int )sizeof(struct heapified___14 )); #line 176 __cil_tmp15->elseexpr = (NODE */* */)0; #line 176 __cil_tmp15->thenexpr = (NODE */* */)0; #line 176 __cil_tmp15->testexpr = (NODE */* */)0; } else { #line 176 __cil_tmp14 = 0; } #line 176 __heapified = __cil_tmp14; #line 176 args = __cil_tmp12; #line 161 CHECK_NULL((void *)__heapified); #line 161 CHECK_NULL((void *)__heapified); #line 161 __cil_tmp16 = xlsave3_qssssssss((NODE * */* */)(& __heapified->testexpr), (NODE * */* */)(& __heapified->thenexpr), (NODE * */* */)(& __heapified->elseexpr)); #line 161 __cil_tmp17 = __cil_tmp16._p; #line 161 __cil_tmp17_b30 = __cil_tmp16._ms._b; #line 161 __cil_tmp17_e31 = __cil_tmp16._ms._e; #line 161 oldstk_e29 = __cil_tmp17_e31; #line 161 oldstk_b28 = __cil_tmp17_b30; #line 161 oldstk = __cil_tmp17; #line 164 __cil_tmp18 = xlarg((NODE * */* */)(& args)); #line 164 CHECK_NULL((void *)__heapified); #line 164 CHECK_STOREPTR((void *)(& __heapified->testexpr), (void *)((NODE */* */)__cil_tmp18), (void *)(& ___first_local)); #line 164 __heapified->testexpr = (NODE */* */)__cil_tmp18; #line 165 __cil_tmp20 = xlarg((NODE * */* */)(& args)); #line 165 CHECK_NULL((void *)__heapified); #line 165 CHECK_STOREPTR((void *)(& __heapified->thenexpr), (void *)((NODE */* */)__cil_tmp20), (void *)(& ___first_local)); #line 165 __heapified->thenexpr = (NODE */* */)__cil_tmp20; #line 166 if ((int )args) { #line 166 __cil_tmp21 = xlarg((NODE * */* */)(& args)); #line 166 CHECK_NULL((void *)__heapified); #line 166 CHECK_STOREPTR((void *)(& __heapified->elseexpr), (void *)((NODE */* */)__cil_tmp21), (void *)(& ___first_local)); #line 166 __heapified->elseexpr = (NODE */* */)__cil_tmp21; } else { #line 166 CHECK_NULL((void *)__heapified); #line 166 CHECK_STOREPTR((void *)(& __heapified->elseexpr), (void *)((NODE */* */)0), (void *)(& ___first_local)); #line 166 __heapified->elseexpr = (NODE */* */)0; } #line 167 xllastarg((NODE */* */)args); #line 170 CHECK_NULL((void *)__heapified); #line 170 __cil_tmp22 = xleval((NODE */* */)__heapified->testexpr); #line 170 tmp___2 = (NODE */* */)__cil_tmp22; #line 170 if ((int )tmp___2) { #line 170 CHECK_NULL((void *)__heapified); #line 170 tmp___1 = (NODE */* */)__heapified->thenexpr; } else { #line 170 CHECK_NULL((void *)__heapified); #line 170 tmp___1 = (NODE */* */)__heapified->elseexpr; } #line 170 __cil_tmp23 = xleval((NODE */* */)tmp___1); #line 170 val = (NODE */* */)__cil_tmp23; #line 173 __cil_tmp24 = oldstk; #line 173 __cil_tmp24_b32 = oldstk_b28; #line 173 __cil_tmp24_e33 = oldstk_e29; #line 173 CHECK_STOREPTR((void *)(& xlstack_qss), __cil_tmp24_b32, (void *)(& ___first_local)); #line 173 xlstack_qss._ms._e = __cil_tmp24_e33; #line 173 xlstack_qss._ms._b = __cil_tmp24_b32; #line 173 xlstack_qss._p = __cil_tmp24; #line 176 __retres = (NODE */* */)val; #line 156 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 176 wrapperFree((void *)__heapified); #line 156 return (__retres); } } #line 180 NODE * xlet(NODE * args ) ; #line 180 "xlcont.c" NODE * xlet(NODE * args ) { int volatile ___first_local ; NODE * tmp ; NODE * __retres ; NODE * __cil_tmp4 ; { #line 182 __retres = (NODE */* */)0; #line 182 tmp = (NODE */* */)0; #line 182 __cil_tmp4 = let___0((NODE */* */)args, 1); #line 182 tmp = (NODE */* */)__cil_tmp4; #line 182 __retres = (NODE */* */)tmp; #line 180 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 180 return (__retres); } } #line 186 NODE * xletstar(NODE * args ) ; #line 186 "xlcont.c" NODE * xletstar(NODE * args ) { int volatile ___first_local ; NODE * tmp ; NODE * __retres ; NODE * __cil_tmp4 ; { #line 188 __retres = (NODE */* */)0; #line 188 tmp = (NODE */* */)0; #line 188 __cil_tmp4 = let___0((NODE */* */)args, 0); #line 188 tmp = (NODE */* */)__cil_tmp4; #line 188 __retres = (NODE */* */)tmp; #line 186 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 186 return (__retres); } } #line 221 "xlcont.c" struct heapified___15 { NODE * newenv __HEAPIFY ; NODE * arg __HEAPIFY ; }; #line 192 static NODE * let___0(NODE * args , int pflag ) ; #line 192 "xlcont.c" static NODE * let___0(NODE * args , int pflag ) { int volatile ___first_local ; struct node * * * __SEQ oldstk ; NODE * val ; NODE * tmp ; NODE * __retres ; struct heapified___15 * __heapified ; struct heapified___15 * __cil_tmp10 ; struct heapified___15 * __cil_tmp11 ; struct seq_p_p_s_node __cil_tmp12 ; struct node * * * __SEQ __cil_tmp13 ; NODE * __cil_tmp15 ; NODE * __cil_tmp16 ; NODE * __cil_tmp17 ; struct node * * * __SEQ __cil_tmp18 ; void *oldstk_b22 ; void *oldstk_e23 ; void *__cil_tmp13_b24 ; void *__cil_tmp13_e25 ; void *__cil_tmp18_b26 ; void *__cil_tmp18_e27 ; { #line 221 __heapified = (struct heapified___15 */* */)0; #line 221 __retres = (NODE */* */)0; #line 221 tmp = (NODE */* */)0; #line 221 val = (NODE */* */)0; #line 221 oldstk_e23 = (void *)0; #line 221 oldstk_b22 = (void *)0; #line 221 oldstk = (struct node * * */* __SEQ */)0; #line 221 __cil_tmp11 = (struct heapified___15 */* */)wrapperAlloc(((sizeof((*__heapified)) + 3U) >> 2) << 2); #line 221 if (__cil_tmp11) { #line 221 __cil_tmp10 = __cil_tmp11; #line 221 CHECK_POSITIVE((int )(((sizeof((*__heapified)) + 3U) >> 2) << 2) - (int )sizeof(struct heapified___15 )); #line 221 __cil_tmp11->arg = (NODE */* */)0; #line 221 __cil_tmp11->newenv = (NODE */* */)0; } else { #line 221 __cil_tmp10 = 0; } #line 221 __heapified = __cil_tmp10; #line 197 CHECK_NULL((void *)__heapified); #line 197 __cil_tmp12 = xlsave2_qssssss((NODE * */* */)(& __heapified->newenv), (NODE * */* */)(& __heapified->arg)); #line 197 __cil_tmp13 = __cil_tmp12._p; #line 197 __cil_tmp13_b24 = __cil_tmp12._ms._b; #line 197 __cil_tmp13_e25 = __cil_tmp12._ms._e; #line 197 oldstk_e23 = __cil_tmp13_e25; #line 197 oldstk_b22 = __cil_tmp13_b24; #line 197 oldstk = __cil_tmp13; #line 200 CHECK_NULL((void *)__heapified); #line 200 CHECK_STOREPTR((void *)(& __heapified->arg), (void *)((NODE */* */)args), (void *)(& ___first_local)); #line 200 __heapified->arg = (NODE */* */)args; #line 203 __cil_tmp15 = xlframe((NODE */* */)xlenv); #line 203 CHECK_NULL((void *)__heapified); #line 203 CHECK_STOREPTR((void *)(& __heapified->newenv), (void *)((NODE */* */)__cil_tmp15), (void *)(& ___first_local)); #line 203 __heapified->newenv = (NODE */* */)__cil_tmp15; #line 206 if (! pflag) { #line 206 CHECK_NULL((void *)__heapified); #line 206 CHECK_STOREPTR((void *)(& xlenv), (void *)((NODE */* */)__heapified->newenv), (void *)(& ___first_local)); #line 206 xlenv = (NODE */* */)__heapified->newenv; } #line 207 CHECK_NULL((void *)__heapified); #line 207 __cil_tmp16 = xlmatch(3, (NODE * */* */)(& __heapified->arg)); #line 207 tmp = (NODE */* */)__cil_tmp16; #line 207 CHECK_NULL((void *)__heapified); #line 207 dobindings___0((NODE */* */)tmp, (NODE */* */)__heapified->newenv); #line 208 if (pflag) { #line 208 CHECK_NULL((void *)__heapified); #line 208 CHECK_STOREPTR((void *)(& xlenv), (void *)((NODE */* */)__heapified->newenv), (void *)(& ___first_local)); #line 208 xlenv = (NODE */* */)__heapified->newenv; } #line 211 val = (NODE */* */)0; #line 211 while (1) { #line 211 CHECK_NULL((void *)__heapified); #line 211 if (! ((int )__heapified->arg)) { #line 211 break; } #line 212 CHECK_NULL((void *)__heapified); #line 212 __cil_tmp17 = xlevarg((NODE * */* */)(& __heapified->arg)); #line 212 val = (NODE */* */)__cil_tmp17; } #line 215 CHECK_NULL((void *)xlenv); #line 215 CHECK_STOREPTR((void *)(& xlenv), (void *)((NODE */* */)xlenv->n_info.__annonCompField1.n_xlist.xl_cdr), (void *)(& ___first_local)); #line 215 xlenv = (NODE */* */)xlenv->n_info.__annonCompField1.n_xlist.xl_cdr; #line 218 __cil_tmp18 = oldstk; #line 218 __cil_tmp18_b26 = oldstk_b22; #line 218 __cil_tmp18_e27 = oldstk_e23; #line 218 CHECK_STOREPTR((void *)(& xlstack_qss), __cil_tmp18_b26, (void *)(& ___first_local)); #line 218 xlstack_qss._ms._e = __cil_tmp18_e27; #line 218 xlstack_qss._ms._b = __cil_tmp18_b26; #line 218 xlstack_qss._p = __cil_tmp18; #line 221 __retres = (NODE */* */)val; #line 192 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 221 wrapperFree((void *)__heapified); #line 192 return (__retres); } } #line 225 NODE * xprog(NODE * args ) ; #line 225 "xlcont.c" NODE * xprog(NODE * args ) { int volatile ___first_local ; NODE * tmp ; NODE * __retres ; NODE * __cil_tmp4 ; { #line 227 __retres = (NODE */* */)0; #line 227 tmp = (NODE */* */)0; #line 227 __cil_tmp4 = prog___0((NODE */* */)args, 1); #line 227 tmp = (NODE */* */)__cil_tmp4; #line 227 __retres = (NODE */* */)tmp; #line 225 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 225 return (__retres); } } #line 231 NODE * xprogstar(NODE * args ) ; #line 231 "xlcont.c" NODE * xprogstar(NODE * args ) { int volatile ___first_local ; NODE * tmp ; NODE * __retres ; NODE * __cil_tmp4 ; { #line 233 __retres = (NODE */* */)0; #line 233 tmp = (NODE */* */)0; #line 233 __cil_tmp4 = prog___0((NODE */* */)args, 0); #line 233 tmp = (NODE */* */)__cil_tmp4; #line 233 __retres = (NODE */* */)tmp; #line 231 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 231 return (__retres); } } #line 265 "xlcont.c" struct heapified___16 { NODE * newenv __HEAPIFY ; NODE * arg __HEAPIFY ; }; #line 237 static NODE * prog___0(NODE * args , int pflag ) ; #line 237 "xlcont.c" static NODE * prog___0(NODE * args , int pflag ) { int volatile ___first_local ; struct node * * * __SEQ oldstk ; NODE * val ; NODE * tmp ; NODE * __retres ; struct heapified___16 * __heapified ; struct heapified___16 * __cil_tmp10 ; struct heapified___16 * __cil_tmp11 ; struct seq_p_p_s_node __cil_tmp12 ; struct node * * * __SEQ __cil_tmp13 ; NODE * __cil_tmp15 ; NODE * __cil_tmp16 ; struct node * * * __SEQ __cil_tmp17 ; void *oldstk_b21 ; void *oldstk_e22 ; void *__cil_tmp13_b23 ; void *__cil_tmp13_e24 ; void *__cil_tmp17_b25 ; void *__cil_tmp17_e26 ; { #line 265 __heapified = (struct heapified___16 */* */)0; #line 265 __retres = (NODE */* */)0; #line 265 tmp = (NODE */* */)0; #line 265 val = (NODE */* */)0; #line 265 oldstk_e22 = (void *)0; #line 265 oldstk_b21 = (void *)0; #line 265 oldstk = (struct node * * */* __SEQ */)0; #line 265 __cil_tmp11 = (struct heapified___16 */* */)wrapperAlloc(((sizeof((*__heapified)) + 3U) >> 2) << 2); #line 265 if (__cil_tmp11) { #line 265 __cil_tmp10 = __cil_tmp11; #line 265 CHECK_POSITIVE((int )(((sizeof((*__heapified)) + 3U) >> 2) << 2) - (int )sizeof(struct heapified___16 )); #line 265 __cil_tmp11->arg = (NODE */* */)0; #line 265 __cil_tmp11->newenv = (NODE */* */)0; } else { #line 265 __cil_tmp10 = 0; } #line 265 __heapified = __cil_tmp10; #line 242 CHECK_NULL((void *)__heapified); #line 242 __cil_tmp12 = xlsave2_qssssss((NODE * */* */)(& __heapified->newenv), (NODE * */* */)(& __heapified->arg)); #line 242 __cil_tmp13 = __cil_tmp12._p; #line 242 __cil_tmp13_b23 = __cil_tmp12._ms._b; #line 242 __cil_tmp13_e24 = __cil_tmp12._ms._e; #line 242 oldstk_e22 = __cil_tmp13_e24; #line 242 oldstk_b21 = __cil_tmp13_b23; #line 242 oldstk = __cil_tmp13; #line 245 CHECK_NULL((void *)__heapified); #line 245 CHECK_STOREPTR((void *)(& __heapified->arg), (void *)((NODE */* */)args), (void *)(& ___first_local)); #line 245 __heapified->arg = (NODE */* */)args; #line 248 __cil_tmp15 = xlframe((NODE */* */)xlenv); #line 248 CHECK_NULL((void *)__heapified); #line 248 CHECK_STOREPTR((void *)(& __heapified->newenv), (void *)((NODE */* */)__cil_tmp15), (void *)(& ___first_local)); #line 248 __heapified->newenv = (NODE */* */)__cil_tmp15; #line 251 if (! pflag) { #line 251 CHECK_NULL((void *)__heapified); #line 251 CHECK_STOREPTR((void *)(& xlenv), (void *)((NODE */* */)__heapified->newenv), (void *)(& ___first_local)); #line 251 xlenv = (NODE */* */)__heapified->newenv; } #line 252 CHECK_NULL((void *)__heapified); #line 252 __cil_tmp16 = xlmatch(3, (NODE * */* */)(& __heapified->arg)); #line 252 tmp = (NODE */* */)__cil_tmp16; #line 252 CHECK_NULL((void *)__heapified); #line 252 dobindings___0((NODE */* */)tmp, (NODE */* */)__heapified->newenv); #line 253 if (pflag) { #line 253 CHECK_NULL((void *)__heapified); #line 253 CHECK_STOREPTR((void *)(& xlenv), (void *)((NODE */* */)__heapified->newenv), (void *)(& ___first_local)); #line 253 xlenv = (NODE */* */)__heapified->newenv; } #line 256 CHECK_NULL((void *)__heapified); #line 256 tagblock((NODE */* */)__heapified->arg, (NODE * */* */)(& val)); #line 259 CHECK_NULL((void *)xlenv); #line 259 CHECK_STOREPTR((void *)(& xlenv), (void *)((NODE */* */)xlenv->n_info.__annonCompField1.n_xlist.xl_cdr), (void *)(& ___first_local)); #line 259 xlenv = (NODE */* */)xlenv->n_info.__annonCompField1.n_xlist.xl_cdr; #line 262 __cil_tmp17 = oldstk; #line 262 __cil_tmp17_b25 = oldstk_b21; #line 262 __cil_tmp17_e26 = oldstk_e22; #line 262 CHECK_STOREPTR((void *)(& xlstack_qss), __cil_tmp17_b25, (void *)(& ___first_local)); #line 262 xlstack_qss._ms._e = __cil_tmp17_e26; #line 262 xlstack_qss._ms._b = __cil_tmp17_b25; #line 262 xlstack_qss._p = __cil_tmp17; #line 265 __retres = (NODE */* */)val; #line 237 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 265 wrapperFree((void *)__heapified); #line 237 return (__retres); } } #line 269 NODE * xgo(NODE * __cil_tmp4 ) ; #line 269 "xlcont.c" NODE * xgo(NODE * __cil_tmp4 ) { int volatile ___first_local ; NODE * args ; NODE * label ; NODE * __retres ; NODE * __cil_tmp5 ; { #line 281 __retres = (NODE */* */)0; #line 281 label = (NODE */* */)0; #line 281 args = (NODE */* */)0; #line 281 args = __cil_tmp4; #line 274 __cil_tmp5 = xlarg((NODE * */* */)(& args)); #line 274 label = (NODE */* */)__cil_tmp5; #line 275 xllastarg((NODE */* */)args); #line 278 xlgo((NODE */* */)label); #line 281 __retres = (NODE */* */)0; #line 269 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 269 return (__retres); } } #line 285 NODE * xreturn(NODE * __cil_tmp5 ) ; #line 285 "xlcont.c" NODE * xreturn(NODE * __cil_tmp5 ) { int volatile ___first_local ; NODE * args ; NODE * val ; NODE * __retres ; NODE * __cil_tmp6 ; { #line 297 __retres = (NODE */* */)0; #line 297 val = (NODE */* */)0; #line 297 args = (NODE */* */)0; #line 297 args = __cil_tmp5; #line 290 if ((int )args) { #line 290 __cil_tmp6 = xlarg((NODE * */* */)(& args)); #line 290 val = (NODE */* */)__cil_tmp6; } else { #line 290 val = (NODE */* */)0; } #line 291 xllastarg((NODE */* */)args); #line 294 xlreturn((NODE */* */)val); #line 297 __retres = (NODE */* */)0; #line 285 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 285 return (__retres); } } #line 301 NODE * xprog1(NODE * args ) ; #line 301 "xlcont.c" NODE * xprog1(NODE * args ) { int volatile ___first_local ; NODE * tmp ; NODE * __retres ; NODE * __cil_tmp4 ; { #line 303 __retres = (NODE */* */)0; #line 303 tmp = (NODE */* */)0; #line 303 __cil_tmp4 = progx___0((NODE */* */)args, 1); #line 303 tmp = (NODE */* */)__cil_tmp4; #line 303 __retres = (NODE */* */)tmp; #line 301 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 301 return (__retres); } } #line 307 NODE * xprog2(NODE * args ) ; #line 307 "xlcont.c" NODE * xprog2(NODE * args ) { int volatile ___first_local ; NODE * tmp ; NODE * __retres ; NODE * __cil_tmp4 ; { #line 309 __retres = (NODE */* */)0; #line 309 tmp = (NODE */* */)0; #line 309 __cil_tmp4 = progx___0((NODE */* */)args, 2); #line 309 tmp = (NODE */* */)__cil_tmp4; #line 309 __retres = (NODE */* */)tmp; #line 307 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 307 return (__retres); } } #line 335 "xlcont.c" struct heapified___17 { NODE * arg __HEAPIFY ; NODE * val __HEAPIFY ; }; #line 313 static NODE * progx___0(NODE * args , int n ) ; #line 313 "xlcont.c" static NODE * progx___0(NODE * args , int n ) { int volatile ___first_local ; struct node * * * __SEQ oldstk ; int tmp ; NODE * __retres ; struct heapified___17 * __heapified ; struct heapified___17 * __cil_tmp9 ; struct heapified___17 * __cil_tmp10 ; struct seq_p_p_s_node __cil_tmp11 ; struct node * * * __SEQ __cil_tmp12 ; NODE * __cil_tmp14 ; struct node * * * __SEQ __cil_tmp15 ; void *oldstk_b19 ; void *oldstk_e20 ; void *__cil_tmp12_b21 ; void *__cil_tmp12_e22 ; void *__cil_tmp15_b23 ; void *__cil_tmp15_e24 ; { #line 335 __heapified = (struct heapified___17 */* */)0; #line 335 __retres = (NODE */* */)0; #line 335 oldstk_e20 = (void *)0; #line 335 oldstk_b19 = (void *)0; #line 335 oldstk = (struct node * * */* __SEQ */)0; #line 335 __cil_tmp10 = (struct heapified___17 */* */)wrapperAlloc(((sizeof((*__heapified)) + 3U) >> 2) << 2); #line 335 if (__cil_tmp10) { #line 335 __cil_tmp9 = __cil_tmp10; #line 335 CHECK_POSITIVE((int )(((sizeof((*__heapified)) + 3U) >> 2) << 2) - (int )sizeof(struct heapified___17 )); #line 335 __cil_tmp10->val = (NODE */* */)0; #line 335 __cil_tmp10->arg = (NODE */* */)0; } else { #line 335 __cil_tmp9 = 0; } #line 335 __heapified = __cil_tmp9; #line 318 CHECK_NULL((void *)__heapified); #line 318 __cil_tmp11 = xlsave2_qssssss((NODE * */* */)(& __heapified->arg), (NODE * */* */)(& __heapified->val)); #line 318 __cil_tmp12 = __cil_tmp11._p; #line 318 __cil_tmp12_b21 = __cil_tmp11._ms._b; #line 318 __cil_tmp12_e22 = __cil_tmp11._ms._e; #line 318 oldstk_e20 = __cil_tmp12_e22; #line 318 oldstk_b19 = __cil_tmp12_b21; #line 318 oldstk = __cil_tmp12; #line 321 CHECK_NULL((void *)__heapified); #line 321 CHECK_STOREPTR((void *)(& __heapified->arg), (void *)((NODE */* */)args), (void *)(& ___first_local)); #line 321 __heapified->arg = (NODE */* */)args; #line 324 while (1) { #line 324 tmp = n; #line 324 n = n - 1; #line 324 if (! tmp) { #line 324 break; } #line 325 __cil_tmp14 = xlevarg((NODE * */* */)(& __heapified->arg)); #line 325 CHECK_NULL((void *)__heapified); #line 325 CHECK_STOREPTR((void *)(& __heapified->val), (void *)((NODE */* */)__cil_tmp14), (void *)(& ___first_local)); #line 325 __heapified->val = (NODE */* */)__cil_tmp14; } #line 328 while (1) { #line 328 CHECK_NULL((void *)__heapified); #line 328 if (! ((int )__heapified->arg)) { #line 328 break; } #line 329 xlevarg((NODE * */* */)(& __heapified->arg)); } #line 332 __cil_tmp15 = oldstk; #line 332 __cil_tmp15_b23 = oldstk_b19; #line 332 __cil_tmp15_e24 = oldstk_e20; #line 332 CHECK_STOREPTR((void *)(& xlstack_qss), __cil_tmp15_b23, (void *)(& ___first_local)); #line 332 xlstack_qss._ms._e = __cil_tmp15_e24; #line 332 xlstack_qss._ms._b = __cil_tmp15_b23; #line 332 xlstack_qss._p = __cil_tmp15; #line 335 CHECK_NULL((void *)__heapified); #line 335 __retres = (NODE */* */)__heapified->val; #line 313 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 335 wrapperFree((void *)__heapified); #line 313 return (__retres); } } #line 357 "xlcont.c" struct heapified___18 { NODE * arg __HEAPIFY ; }; #line 339 NODE * xprogn(NODE * args ) ; #line 339 "xlcont.c" NODE * xprogn(NODE * args ) { int volatile ___first_local ; struct node * * * __SEQ oldstk ; NODE * val ; NODE * __retres ; struct heapified___18 * __heapified ; struct heapified___18 * __cil_tmp7 ; struct heapified___18 * __cil_tmp8 ; struct seq_p_p_s_node __cil_tmp9 ; struct node * * * __SEQ __cil_tmp10 ; NODE * __cil_tmp12 ; struct node * * * __SEQ __cil_tmp13 ; void *oldstk_b17 ; void *oldstk_e18 ; void *__cil_tmp10_b19 ; void *__cil_tmp10_e20 ; void *__cil_tmp13_b21 ; void *__cil_tmp13_e22 ; { #line 357 __heapified = (struct heapified___18 */* */)0; #line 357 __retres = (NODE */* */)0; #line 357 val = (NODE */* */)0; #line 357 oldstk_e18 = (void *)0; #line 357 oldstk_b17 = (void *)0; #line 357 oldstk = (struct node * * */* __SEQ */)0; #line 357 __cil_tmp8 = (struct heapified___18 */* */)wrapperAlloc(((sizeof((*__heapified)) + 3U) >> 2) << 2); #line 357 if (__cil_tmp8) { #line 357 __cil_tmp7 = __cil_tmp8; #line 357 CHECK_POSITIVE((int )(((sizeof((*__heapified)) + 3U) >> 2) << 2) - (int )sizeof(struct heapified___18 )); #line 357 __cil_tmp8->arg = (NODE */* */)0; } else { #line 357 __cil_tmp7 = 0; } #line 357 __heapified = __cil_tmp7; #line 344 __cil_tmp9 = xlsave1_qssss((NODE * */* */)(& __heapified->arg)); #line 344 __cil_tmp10 = __cil_tmp9._p; #line 344 __cil_tmp10_b19 = __cil_tmp9._ms._b; #line 344 __cil_tmp10_e20 = __cil_tmp9._ms._e; #line 344 oldstk_e18 = __cil_tmp10_e20; #line 344 oldstk_b17 = __cil_tmp10_b19; #line 344 oldstk = __cil_tmp10; #line 347 CHECK_NULL((void *)__heapified); #line 347 CHECK_STOREPTR((void *)(& __heapified->arg), (void *)((NODE */* */)args), (void *)(& ___first_local)); #line 347 __heapified->arg = (NODE */* */)args; #line 350 val = (NODE */* */)0; #line 350 while (1) { #line 350 CHECK_NULL((void *)__heapified); #line 350 if (! ((int )__heapified->arg)) { #line 350 break; } #line 351 __cil_tmp12 = xlevarg((NODE * */* */)(& __heapified->arg)); #line 351 val = (NODE */* */)__cil_tmp12; } #line 354 __cil_tmp13 = oldstk; #line 354 __cil_tmp13_b21 = oldstk_b17; #line 354 __cil_tmp13_e22 = oldstk_e18; #line 354 CHECK_STOREPTR((void *)(& xlstack_qss), __cil_tmp13_b21, (void *)(& ___first_local)); #line 354 xlstack_qss._ms._e = __cil_tmp13_e22; #line 354 xlstack_qss._ms._b = __cil_tmp13_b21; #line 354 xlstack_qss._p = __cil_tmp13; #line 357 __retres = (NODE */* */)val; #line 339 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 357 wrapperFree((void *)__heapified); #line 339 return (__retres); } } #line 361 NODE * xdo(NODE * args ) ; #line 361 "xlcont.c" NODE * xdo(NODE * args ) { int volatile ___first_local ; NODE * tmp ; NODE * __retres ; NODE * __cil_tmp4 ; { #line 363 __retres = (NODE */* */)0; #line 363 tmp = (NODE */* */)0; #line 363 __cil_tmp4 = doloop___0((NODE */* */)args, 1); #line 363 tmp = (NODE */* */)__cil_tmp4; #line 363 __retres = (NODE */* */)tmp; #line 361 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 361 return (__retres); } } #line 367 NODE * xdostar(NODE * args ) ; #line 367 "xlcont.c" NODE * xdostar(NODE * args ) { int volatile ___first_local ; NODE * tmp ; NODE * __retres ; NODE * __cil_tmp4 ; { #line 369 __retres = (NODE */* */)0; #line 369 tmp = (NODE */* */)0; #line 369 __cil_tmp4 = doloop___0((NODE */* */)args, 0); #line 369 tmp = (NODE */* */)__cil_tmp4; #line 369 __retres = (NODE */* */)tmp; #line 367 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 367 return (__retres); } } #line 425 "xlcont.c" struct heapified___19 { NODE * newenv __HEAPIFY ; NODE * arg __HEAPIFY ; NODE * blist __HEAPIFY ; NODE * clist __HEAPIFY ; NODE * test __HEAPIFY ; }; #line 373 static NODE * doloop___0(NODE * args , int pflag ) ; #line 373 "xlcont.c" static NODE * doloop___0(NODE * args , int pflag ) { int volatile ___first_local ; struct node * * * __SEQ oldstk ; NODE * rval ; int rbreak ; int tmp ; NODE * tmp___0 ; NODE * __retres ; struct heapified___19 * __heapified ; struct heapified___19 * __cil_tmp15 ; struct heapified___19 * __cil_tmp16 ; struct seq_p_p_s_node __cil_tmp17 ; struct node * * * __SEQ __cil_tmp18 ; NODE * __cil_tmp20 ; NODE * __cil_tmp21 ; NODE * __cil_tmp22 ; NODE * __cil_tmp23 ; NODE * __cil_tmp24 ; int __cil_tmp25 ; NODE * __cil_tmp26 ; struct node * * * __SEQ __cil_tmp27 ; void *oldstk_b31 ; void *oldstk_e32 ; void *__cil_tmp18_b33 ; void *__cil_tmp18_e34 ; void *__cil_tmp27_b35 ; void *__cil_tmp27_e36 ; { #line 425 __heapified = (struct heapified___19 */* */)0; #line 425 __retres = (NODE */* */)0; #line 425 tmp___0 = (NODE */* */)0; #line 425 rval = (NODE */* */)0; #line 425 oldstk_e32 = (void *)0; #line 425 oldstk_b31 = (void *)0; #line 425 oldstk = (struct node * * */* __SEQ */)0; #line 425 __cil_tmp16 = (struct heapified___19 */* */)wrapperAlloc(((sizeof((*__heapified)) + 3U) >> 2) << 2); #line 425 if (__cil_tmp16) { #line 425 __cil_tmp15 = __cil_tmp16; #line 425 CHECK_POSITIVE((int )(((sizeof((*__heapified)) + 3U) >> 2) << 2) - (int )sizeof(struct heapified___19 )); #line 425 __cil_tmp16->test = (NODE */* */)0; #line 425 __cil_tmp16->clist = (NODE */* */)0; #line 425 __cil_tmp16->blist = (NODE */* */)0; #line 425 __cil_tmp16->arg = (NODE */* */)0; #line 425 __cil_tmp16->newenv = (NODE */* */)0; } else { #line 425 __cil_tmp15 = 0; } #line 425 __heapified = __cil_tmp15; #line 379 CHECK_NULL((void *)__heapified); #line 379 CHECK_NULL((void *)__heapified); #line 379 CHECK_NULL((void *)__heapified); #line 379 CHECK_NULL((void *)__heapified); #line 379 __cil_tmp17 = xlsave5_qssssssssssss((NODE * */* */)(& __heapified->newenv), (NODE * */* */)(& __heapified->arg), (NODE * */* */)(& __heapified->blist), (NODE * */* */)(& __heapified->clist), (NODE * */* */)(& __heapified->test)); #line 379 __cil_tmp18 = __cil_tmp17._p; #line 379 __cil_tmp18_b33 = __cil_tmp17._ms._b; #line 379 __cil_tmp18_e34 = __cil_tmp17._ms._e; #line 379 oldstk_e32 = __cil_tmp18_e34; #line 379 oldstk_b31 = __cil_tmp18_b33; #line 379 oldstk = __cil_tmp18; #line 382 CHECK_NULL((void *)__heapified); #line 382 CHECK_STOREPTR((void *)(& __heapified->arg), (void *)((NODE */* */)args), (void *)(& ___first_local)); #line 382 __heapified->arg = (NODE */* */)args; #line 385 CHECK_NULL((void *)__heapified); #line 385 __cil_tmp20 = xlmatch(3, (NODE * */* */)(& __heapified->arg)); #line 385 CHECK_NULL((void *)__heapified); #line 385 CHECK_STOREPTR((void *)(& __heapified->blist), (void *)((NODE */* */)__cil_tmp20), (void *)(& ___first_local)); #line 385 __heapified->blist = (NODE */* */)__cil_tmp20; #line 388 __cil_tmp21 = xlframe((NODE */* */)xlenv); #line 388 CHECK_NULL((void *)__heapified); #line 388 CHECK_STOREPTR((void *)(& __heapified->newenv), (void *)((NODE */* */)__cil_tmp21), (void *)(& ___first_local)); #line 388 __heapified->newenv = (NODE */* */)__cil_tmp21; #line 391 if (! pflag) { #line 391 CHECK_NULL((void *)__heapified); #line 391 CHECK_STOREPTR((void *)(& xlenv), (void *)((NODE */* */)__heapified->newenv), (void *)(& ___first_local)); #line 391 xlenv = (NODE */* */)__heapified->newenv; } #line 392 CHECK_NULL((void *)__heapified); #line 392 CHECK_NULL((void *)__heapified); #line 392 dobindings___0((NODE */* */)__heapified->blist, (NODE */* */)__heapified->newenv); #line 393 if (pflag) { #line 393 CHECK_NULL((void *)__heapified); #line 393 CHECK_STOREPTR((void *)(& xlenv), (void *)((NODE */* */)__heapified->newenv), (void *)(& ___first_local)); #line 393 xlenv = (NODE */* */)__heapified->newenv; } #line 396 CHECK_NULL((void *)__heapified); #line 396 __cil_tmp22 = xlmatch(3, (NODE * */* */)(& __heapified->arg)); #line 396 CHECK_NULL((void *)__heapified); #line 396 CHECK_STOREPTR((void *)(& __heapified->clist), (void *)((NODE */* */)__cil_tmp22), (void *)(& ___first_local)); #line 396 __heapified->clist = (NODE */* */)__cil_tmp22; #line 397 CHECK_NULL((void *)__heapified); #line 397 __cil_tmp23 = xlarg((NODE * */* */)(& __heapified->clist)); #line 397 CHECK_NULL((void *)__heapified); #line 397 CHECK_STOREPTR((void *)(& __heapified->test), (void *)((NODE */* */)__cil_tmp23), (void *)(& ___first_local)); #line 397 __heapified->test = (NODE */* */)__cil_tmp23; #line 400 rbreak = 0; #line 401 while (1) { #line 401 CHECK_NULL((void *)__heapified); #line 401 __cil_tmp24 = xleval((NODE */* */)__heapified->test); #line 401 tmp___0 = (NODE */* */)__cil_tmp24; #line 401 if (! ((unsigned int )tmp___0 == 0)) { #line 401 break; } #line 404 CHECK_NULL((void *)__heapified); #line 404 __cil_tmp25 = tagblock((NODE */* */)__heapified->arg, (NODE * */* */)(& rval)); #line 404 tmp = __cil_tmp25; #line 404 if (tmp) { #line 405 rbreak = 1; #line 406 break; } #line 410 CHECK_NULL((void *)__heapified); #line 410 doupdates((NODE */* */)__heapified->blist, pflag); } #line 414 if (! rbreak) { #line 415 rval = (NODE */* */)0; #line 415 while (1) { #line 415 CHECK_NULL((void *)__heapified); #line 415 if ((int )__heapified->clist) { #line 415 CHECK_NULL((void *)__heapified); #line 415 CHECK_NULL((void *)__heapified->clist); #line 415 if (! ((int )(__heapified->clist)->n_type == 3)) { #line 415 break; } } else { #line 415 break; } #line 416 CHECK_NULL((void *)__heapified); #line 416 __cil_tmp26 = xlevarg((NODE * */* */)(& __heapified->clist)); #line 416 rval = (NODE */* */)__cil_tmp26; } } #line 419 CHECK_NULL((void *)xlenv); #line 419 CHECK_STOREPTR((void *)(& xlenv), (void *)((NODE */* */)xlenv->n_info.__annonCompField1.n_xlist.xl_cdr), (void *)(& ___first_local)); #line 419 xlenv = (NODE */* */)xlenv->n_info.__annonCompField1.n_xlist.xl_cdr; #line 422 __cil_tmp27 = oldstk; #line 422 __cil_tmp27_b35 = oldstk_b31; #line 422 __cil_tmp27_e36 = oldstk_e32; #line 422 CHECK_STOREPTR((void *)(& xlstack_qss), __cil_tmp27_b35, (void *)(& ___first_local)); #line 422 xlstack_qss._ms._e = __cil_tmp27_e36; #line 422 xlstack_qss._ms._b = __cil_tmp27_b35; #line 422 xlstack_qss._p = __cil_tmp27; #line 425 __retres = (NODE */* */)rval; #line 373 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 425 wrapperFree((void *)__heapified); #line 373 return (__retres); } } #line 477 "xlcont.c" struct heapified___20 { NODE * arg __HEAPIFY ; NODE * clist __HEAPIFY ; NODE * sym __HEAPIFY ; NODE * list __HEAPIFY ; NODE * val __HEAPIFY ; }; #line 429 NODE * xdolist(NODE * args ) ; #line 429 "xlcont.c" NODE * xdolist(NODE * args ) { int volatile ___first_local ; struct node * * * __SEQ oldstk ; NODE * rval ; int rbreak ; int tmp___0 ; NODE * __retres ; struct heapified___20 * __heapified ; struct heapified___20 * __cil_tmp14 ; struct heapified___20 * __cil_tmp15 ; struct seq_p_p_s_node __cil_tmp16 ; struct node * * * __SEQ __cil_tmp17 ; NODE * __cil_tmp19 ; NODE * __cil_tmp20 ; NODE * __cil_tmp21 ; NODE * __cil_tmp22 ; NODE * __cil_tmp23 ; int __cil_tmp24 ; NODE * __cil_tmp25 ; struct node * * * __SEQ __cil_tmp26 ; void *oldstk_b30 ; void *oldstk_e31 ; void *__cil_tmp17_b32 ; void *__cil_tmp17_e33 ; void *__cil_tmp26_b34 ; void *__cil_tmp26_e35 ; { #line 477 __heapified = (struct heapified___20 */* */)0; #line 477 __retres = (NODE */* */)0; #line 477 rval = (NODE */* */)0; #line 477 oldstk_e31 = (void *)0; #line 477 oldstk_b30 = (void *)0; #line 477 oldstk = (struct node * * */* __SEQ */)0; #line 477 __cil_tmp15 = (struct heapified___20 */* */)wrapperAlloc(((sizeof((*__heapified)) + 3U) >> 2) << 2); #line 477 if (__cil_tmp15) { #line 477 __cil_tmp14 = __cil_tmp15; #line 477 CHECK_POSITIVE((int )(((sizeof((*__heapified)) + 3U) >> 2) << 2) - (int )sizeof(struct heapified___20 )); #line 477 __cil_tmp15->val = (NODE */* */)0; #line 477 __cil_tmp15->list = (NODE */* */)0; #line 477 __cil_tmp15->sym = (NODE */* */)0; #line 477 __cil_tmp15->clist = (NODE */* */)0; #line 477 __cil_tmp15->arg = (NODE */* */)0; } else { #line 477 __cil_tmp14 = 0; } #line 477 __heapified = __cil_tmp14; #line 435 CHECK_NULL((void *)__heapified); #line 435 CHECK_NULL((void *)__heapified); #line 435 CHECK_NULL((void *)__heapified); #line 435 CHECK_NULL((void *)__heapified); #line 435 __cil_tmp16 = xlsave5_qssssssssssss((NODE * */* */)(& __heapified->arg), (NODE * */* */)(& __heapified->clist), (NODE * */* */)(& __heapified->sym), (NODE * */* */)(& __heapified->list), (NODE * */* */)(& __heapified->val)); #line 435 __cil_tmp17 = __cil_tmp16._p; #line 435 __cil_tmp17_b32 = __cil_tmp16._ms._b; #line 435 __cil_tmp17_e33 = __cil_tmp16._ms._e; #line 435 oldstk_e31 = __cil_tmp17_e33; #line 435 oldstk_b30 = __cil_tmp17_b32; #line 435 oldstk = __cil_tmp17; #line 438 CHECK_NULL((void *)__heapified); #line 438 CHECK_STOREPTR((void *)(& __heapified->arg), (void *)((NODE */* */)args), (void *)(& ___first_local)); #line 438 __heapified->arg = (NODE */* */)args; #line 441 __cil_tmp19 = xlmatch(3, (NODE * */* */)(& __heapified->arg)); #line 441 CHECK_NULL((void *)__heapified); #line 441 CHECK_STOREPTR((void *)(& __heapified->clist), (void *)((NODE */* */)__cil_tmp19), (void *)(& ___first_local)); #line 441 __heapified->clist = (NODE */* */)__cil_tmp19; #line 442 CHECK_NULL((void *)__heapified); #line 442 __cil_tmp20 = xlmatch(4, (NODE * */* */)(& __heapified->clist)); #line 442 CHECK_NULL((void *)__heapified); #line 442 CHECK_STOREPTR((void *)(& __heapified->sym), (void *)((NODE */* */)__cil_tmp20), (void *)(& ___first_local)); #line 442 __heapified->sym = (NODE */* */)__cil_tmp20; #line 443 CHECK_NULL((void *)__heapified); #line 443 __cil_tmp21 = xlevmatch(3, (NODE * */* */)(& __heapified->clist)); #line 443 CHECK_NULL((void *)__heapified); #line 443 CHECK_STOREPTR((void *)(& __heapified->list), (void *)((NODE */* */)__cil_tmp21), (void *)(& ___first_local)); #line 443 __heapified->list = (NODE */* */)__cil_tmp21; #line 444 CHECK_NULL((void *)__heapified); #line 444 if ((int )__heapified->clist) { #line 444 CHECK_NULL((void *)__heapified); #line 444 __cil_tmp22 = xlarg((NODE * */* */)(& __heapified->clist)); #line 444 CHECK_NULL((void *)__heapified); #line 444 CHECK_STOREPTR((void *)(& __heapified->val), (void *)((NODE */* */)__cil_tmp22), (void *)(& ___first_local)); #line 444 __heapified->val = (NODE */* */)__cil_tmp22; } else { #line 444 CHECK_NULL((void *)__heapified); #line 444 CHECK_STOREPTR((void *)(& __heapified->val), (void *)((NODE */* */)0), (void *)(& ___first_local)); #line 444 __heapified->val = (NODE */* */)0; } #line 447 __cil_tmp23 = xlframe((NODE */* */)xlenv); #line 447 CHECK_STOREPTR((void *)(& xlenv), (void *)((NODE */* */)__cil_tmp23), (void *)(& ___first_local)); #line 447 xlenv = (NODE */* */)__cil_tmp23; #line 448 CHECK_NULL((void *)__heapified); #line 448 xlbind((NODE */* */)__heapified->sym, (NODE */* */)0, (NODE */* */)xlenv); #line 451 rbreak = 0; #line 452 while (1) { #line 452 CHECK_NULL((void *)__heapified); #line 452 if ((int )__heapified->list) { #line 452 CHECK_NULL((void *)__heapified); #line 452 CHECK_NULL((void *)__heapified->list); #line 452 if (! ((int )(__heapified->list)->n_type == 3)) { #line 452 break; } } else { #line 452 break; } #line 455 CHECK_NULL((void *)__heapified); #line 455 CHECK_NULL((void *)__heapified); #line 455 CHECK_NULL((void *)__heapified->list); #line 455 xlsetvalue((NODE */* */)__heapified->sym, (NODE */* */)(__heapified->list)->n_info.__annonCompField1.n_xlist.xl_car); #line 458 CHECK_NULL((void *)__heapified); #line 458 __cil_tmp24 = tagblock((NODE */* */)__heapified->arg, (NODE * */* */)(& rval)); #line 458 tmp___0 = __cil_tmp24; #line 458 if (tmp___0) { #line 459 rbreak = 1; #line 460 break; } #line 452 CHECK_NULL((void *)__heapified); #line 452 CHECK_NULL((void *)__heapified); #line 452 CHECK_NULL((void *)__heapified->list); #line 452 CHECK_STOREPTR((void *)(& __heapified->list), (void *)((NODE */* */)(__heapified->list)->n_info.__annonCompField1.n_xlist.xl_cdr), (void *)(& ___first_local)); #line 452 __heapified->list = (NODE */* */)(__heapified->list)->n_info.__annonCompField1.n_xlist.xl_cdr; } #line 465 if (! rbreak) { #line 466 CHECK_NULL((void *)__heapified); #line 466 xlsetvalue((NODE */* */)__heapified->sym, (NODE */* */)0); #line 467 CHECK_NULL((void *)__heapified); #line 467 __cil_tmp25 = xleval((NODE */* */)__heapified->val); #line 467 rval = (NODE */* */)__cil_tmp25; } #line 471 CHECK_NULL((void *)xlenv); #line 471 CHECK_STOREPTR((void *)(& xlenv), (void *)((NODE */* */)xlenv->n_info.__annonCompField1.n_xlist.xl_cdr), (void *)(& ___first_local)); #line 471 xlenv = (NODE */* */)xlenv->n_info.__annonCompField1.n_xlist.xl_cdr; #line 474 __cil_tmp26 = oldstk; #line 474 __cil_tmp26_b34 = oldstk_b30; #line 474 __cil_tmp26_e35 = oldstk_e31; #line 474 CHECK_STOREPTR((void *)(& xlstack_qss), __cil_tmp26_b34, (void *)(& ___first_local)); #line 474 xlstack_qss._ms._e = __cil_tmp26_e35; #line 474 xlstack_qss._ms._b = __cil_tmp26_b34; #line 474 xlstack_qss._p = __cil_tmp26; #line 477 __retres = (NODE */* */)rval; #line 429 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 477 wrapperFree((void *)__heapified); #line 429 return (__retres); } } #line 529 "xlcont.c" struct heapified___21 { NODE * arg __HEAPIFY ; NODE * clist __HEAPIFY ; NODE * sym __HEAPIFY ; NODE * val __HEAPIFY ; }; #line 481 NODE * xdotimes(NODE * args ) ; #line 481 "xlcont.c" NODE * xdotimes(NODE * args ) { int volatile ___first_local ; struct node * * * __SEQ oldstk ; NODE * rval ; int rbreak ; int cnt ; int i ; NODE * tmp ; NODE * tmp___1 ; int tmp___2 ; NODE * tmp___3 ; NODE * __retres ; struct heapified___21 * __heapified ; struct heapified___21 * __cil_tmp18 ; struct heapified___21 * __cil_tmp19 ; struct seq_p_p_s_node __cil_tmp20 ; struct node * * * __SEQ __cil_tmp21 ; NODE * __cil_tmp23 ; NODE * __cil_tmp24 ; NODE * __cil_tmp25 ; NODE * __cil_tmp26 ; NODE * __cil_tmp27 ; NODE * __cil_tmp28 ; int __cil_tmp29 ; NODE * __cil_tmp30 ; NODE * __cil_tmp31 ; struct node * * * __SEQ __cil_tmp32 ; void *oldstk_b36 ; void *oldstk_e37 ; void *__cil_tmp21_b38 ; void *__cil_tmp21_e39 ; void *__cil_tmp32_b40 ; void *__cil_tmp32_e41 ; { #line 529 __heapified = (struct heapified___21 */* */)0; #line 529 __retres = (NODE */* */)0; #line 529 tmp___3 = (NODE */* */)0; #line 529 tmp___1 = (NODE */* */)0; #line 529 tmp = (NODE */* */)0; #line 529 rval = (NODE */* */)0; #line 529 oldstk_e37 = (void *)0; #line 529 oldstk_b36 = (void *)0; #line 529 oldstk = (struct node * * */* __SEQ */)0; #line 529 __cil_tmp19 = (struct heapified___21 */* */)wrapperAlloc(((sizeof((*__heapified)) + 3U) >> 2) << 2); #line 529 if (__cil_tmp19) { #line 529 __cil_tmp18 = __cil_tmp19; #line 529 CHECK_POSITIVE((int )(((sizeof((*__heapified)) + 3U) >> 2) << 2) - (int )sizeof(struct heapified___21 )); #line 529 __cil_tmp19->val = (NODE */* */)0; #line 529 __cil_tmp19->sym = (NODE */* */)0; #line 529 __cil_tmp19->clist = (NODE */* */)0; #line 529 __cil_tmp19->arg = (NODE */* */)0; } else { #line 529 __cil_tmp18 = 0; } #line 529 __heapified = __cil_tmp18; #line 487 CHECK_NULL((void *)__heapified); #line 487 CHECK_NULL((void *)__heapified); #line 487 CHECK_NULL((void *)__heapified); #line 487 __cil_tmp20 = xlsave4_qssssssssss((NODE * */* */)(& __heapified->arg), (NODE * */* */)(& __heapified->clist), (NODE * */* */)(& __heapified->sym), (NODE * */* */)(& __heapified->val)); #line 487 __cil_tmp21 = __cil_tmp20._p; #line 487 __cil_tmp21_b38 = __cil_tmp20._ms._b; #line 487 __cil_tmp21_e39 = __cil_tmp20._ms._e; #line 487 oldstk_e37 = __cil_tmp21_e39; #line 487 oldstk_b36 = __cil_tmp21_b38; #line 487 oldstk = __cil_tmp21; #line 490 CHECK_NULL((void *)__heapified); #line 490 CHECK_STOREPTR((void *)(& __heapified->arg), (void *)((NODE */* */)args), (void *)(& ___first_local)); #line 490 __heapified->arg = (NODE */* */)args; #line 493 __cil_tmp23 = xlmatch(3, (NODE * */* */)(& __heapified->arg)); #line 493 CHECK_NULL((void *)__heapified); #line 493 CHECK_STOREPTR((void *)(& __heapified->clist), (void *)((NODE */* */)__cil_tmp23), (void *)(& ___first_local)); #line 493 __heapified->clist = (NODE */* */)__cil_tmp23; #line 494 CHECK_NULL((void *)__heapified); #line 494 __cil_tmp24 = xlmatch(4, (NODE * */* */)(& __heapified->clist)); #line 494 CHECK_NULL((void *)__heapified); #line 494 CHECK_STOREPTR((void *)(& __heapified->sym), (void *)((NODE */* */)__cil_tmp24), (void *)(& ___first_local)); #line 494 __heapified->sym = (NODE */* */)__cil_tmp24; #line 495 CHECK_NULL((void *)__heapified); #line 495 __cil_tmp25 = xlevmatch(5, (NODE * */* */)(& __heapified->clist)); #line 495 tmp = (NODE */* */)__cil_tmp25; #line 495 CHECK_NULL((void *)tmp); #line 495 cnt = (int )tmp->n_info.n_xint.xi_int; #line 496 CHECK_NULL((void *)__heapified); #line 496 if ((int )__heapified->clist) { #line 496 CHECK_NULL((void *)__heapified); #line 496 __cil_tmp26 = xlarg((NODE * */* */)(& __heapified->clist)); #line 496 CHECK_NULL((void *)__heapified); #line 496 CHECK_STOREPTR((void *)(& __heapified->val), (void *)((NODE */* */)__cil_tmp26), (void *)(& ___first_local)); #line 496 __heapified->val = (NODE */* */)__cil_tmp26; } else { #line 496 CHECK_NULL((void *)__heapified); #line 496 CHECK_STOREPTR((void *)(& __heapified->val), (void *)((NODE */* */)0), (void *)(& ___first_local)); #line 496 __heapified->val = (NODE */* */)0; } #line 499 __cil_tmp27 = xlframe((NODE */* */)xlenv); #line 499 CHECK_STOREPTR((void *)(& xlenv), (void *)((NODE */* */)__cil_tmp27), (void *)(& ___first_local)); #line 499 xlenv = (NODE */* */)__cil_tmp27; #line 500 CHECK_NULL((void *)__heapified); #line 500 xlbind((NODE */* */)__heapified->sym, (NODE */* */)0, (NODE */* */)xlenv); #line 503 rbreak = 0; #line 504 i = 0; #line 504 while (i < cnt) { #line 507 __cil_tmp28 = cvfixnum((long )i); #line 507 tmp___1 = (NODE */* */)__cil_tmp28; #line 507 CHECK_NULL((void *)__heapified); #line 507 xlsetvalue((NODE */* */)__heapified->sym, (NODE */* */)tmp___1); #line 510 CHECK_NULL((void *)__heapified); #line 510 __cil_tmp29 = tagblock((NODE */* */)__heapified->arg, (NODE * */* */)(& rval)); #line 510 tmp___2 = __cil_tmp29; #line 510 if (tmp___2) { #line 511 rbreak = 1; #line 512 break; } #line 504 i = i + 1; } #line 517 if (! rbreak) { #line 518 __cil_tmp30 = cvfixnum((long )cnt); #line 518 tmp___3 = (NODE */* */)__cil_tmp30; #line 518 CHECK_NULL((void *)__heapified); #line 518 xlsetvalue((NODE */* */)__heapified->sym, (NODE */* */)tmp___3); #line 519 CHECK_NULL((void *)__heapified); #line 519 __cil_tmp31 = xleval((NODE */* */)__heapified->val); #line 519 rval = (NODE */* */)__cil_tmp31; } #line 523 CHECK_NULL((void *)xlenv); #line 523 CHECK_STOREPTR((void *)(& xlenv), (void *)((NODE */* */)xlenv->n_info.__annonCompField1.n_xlist.xl_cdr), (void *)(& ___first_local)); #line 523 xlenv = (NODE */* */)xlenv->n_info.__annonCompField1.n_xlist.xl_cdr; #line 526 __cil_tmp32 = oldstk; #line 526 __cil_tmp32_b40 = oldstk_b36; #line 526 __cil_tmp32_e41 = oldstk_e37; #line 526 CHECK_STOREPTR((void *)(& xlstack_qss), __cil_tmp32_b40, (void *)(& ___first_local)); #line 526 xlstack_qss._ms._e = __cil_tmp32_e41; #line 526 xlstack_qss._ms._b = __cil_tmp32_b40; #line 526 xlstack_qss._p = __cil_tmp32; #line 529 __retres = (NODE */* */)rval; #line 481 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 529 wrapperFree((void *)__heapified); #line 481 return (__retres); } } #line 564 "xlcont.c" struct heapified___22 { NODE * tag __HEAPIFY ; NODE * arg __HEAPIFY ; CONTEXT cntxt___0 __HEAPIFY ; }; #line 533 NODE * xcatch(NODE * __cil_tmp9 ) ; #line 533 "xlcont.c" NODE * xcatch(NODE * __cil_tmp9 ) { int volatile ___first_local ; NODE * args ; struct node * * * __SEQ oldstk ; NODE * val ; int tmp ; NODE * __retres ; struct heapified___22 * __heapified ; struct heapified___22 * __cil_tmp11 ; struct heapified___22 * __cil_tmp12 ; struct seq_p_p_s_node __cil_tmp14 ; struct node * * * __SEQ __cil_tmp15 ; NODE * __cil_tmp16 ; int __cil_tmp18 ; NODE * __cil_tmp19 ; struct node * * * __SEQ __cil_tmp20 ; void *oldstk_b24 ; void *oldstk_e25 ; void *__cil_tmp15_b26 ; void *__cil_tmp15_e27 ; void *__cil_tmp20_b28 ; void *__cil_tmp20_e29 ; { #line 564 __heapified = (struct heapified___22 */* */)0; #line 564 __retres = (NODE */* */)0; #line 564 val = (NODE */* */)0; #line 564 oldstk_e25 = (void *)0; #line 564 oldstk_b24 = (void *)0; #line 564 oldstk = (struct node * * */* __SEQ */)0; #line 564 args = (NODE */* */)0; #line 564 __cil_tmp12 = (struct heapified___22 */* */)wrapperAlloc(((sizeof((*__heapified)) + 3U) >> 2) << 2); #line 564 if (__cil_tmp12) { #line 564 __cil_tmp11 = __cil_tmp12; #line 564 CHECK_POSITIVE((int )(((sizeof((*__heapified)) + 3U) >> 2) << 2) - (int )sizeof(struct heapified___22 )); #line 564 __cil_tmp12->cntxt___0.c_xlenv = (struct node */* */)0; #line 564 __cil_tmp12->cntxt___0.c_xlstack._ms._e = (void *)0; #line 564 __cil_tmp12->cntxt___0.c_xlstack._ms._b = (void *)0; #line 564 __cil_tmp12->cntxt___0.c_xlstack._p = (struct node * * */* __SEQ */)0; #line 564 __cil_tmp12->cntxt___0.c_xlcontext = (struct context */* */)0; #line 564 __cil_tmp12->cntxt___0.c_expr = (struct node */* */)0; #line 564 __cil_tmp12->arg = (NODE */* */)0; #line 564 __cil_tmp12->tag = (NODE */* */)0; } else { #line 564 __cil_tmp11 = 0; } #line 564 __heapified = __cil_tmp11; #line 564 args = __cil_tmp9; #line 539 CHECK_NULL((void *)__heapified); #line 539 __cil_tmp14 = xlsave2_qssssss((NODE * */* */)(& __heapified->tag), (NODE * */* */)(& __heapified->arg)); #line 539 __cil_tmp15 = __cil_tmp14._p; #line 539 __cil_tmp15_b26 = __cil_tmp14._ms._b; #line 539 __cil_tmp15_e27 = __cil_tmp14._ms._e; #line 539 oldstk_e25 = __cil_tmp15_e27; #line 539 oldstk_b24 = __cil_tmp15_b26; #line 539 oldstk = __cil_tmp15; #line 542 __cil_tmp16 = xlevarg((NODE * */* */)(& args)); #line 542 CHECK_NULL((void *)__heapified); #line 542 CHECK_STOREPTR((void *)(& __heapified->tag), (void *)((NODE */* */)__cil_tmp16), (void *)(& ___first_local)); #line 542 __heapified->tag = (NODE */* */)__cil_tmp16; #line 543 CHECK_NULL((void *)__heapified); #line 543 CHECK_STOREPTR((void *)(& __heapified->arg), (void *)((NODE */* */)args), (void *)(& ___first_local)); #line 543 __heapified->arg = (NODE */* */)args; #line 544 val = (NODE */* */)0; #line 547 CHECK_NULL((void *)__heapified); #line 547 CHECK_NULL((void *)__heapified); #line 547 xlbegin((CONTEXT */* */)(& __heapified->cntxt___0), 4, (NODE */* */)__heapified->tag); #line 550 CHECK_NULL((void *)__heapified); #line 550 __cil_tmp18 = setjmp((int */* */)(& __heapified->cntxt___0.c_jmpbuf[0])); #line 550 tmp = __cil_tmp18; #line 550 if (tmp) { #line 551 val = (NODE */* */)xlvalue; } else { #line 555 while (1) { #line 555 CHECK_NULL((void *)__heapified); #line 555 if (! ((int )__heapified->arg)) { #line 555 break; } #line 556 CHECK_NULL((void *)__heapified); #line 556 __cil_tmp19 = xlevarg((NODE * */* */)(& __heapified->arg)); #line 556 val = (NODE */* */)__cil_tmp19; } } #line 558 CHECK_NULL((void *)__heapified); #line 558 xlend((CONTEXT */* */)(& __heapified->cntxt___0)); #line 561 __cil_tmp20 = oldstk; #line 561 __cil_tmp20_b28 = oldstk_b24; #line 561 __cil_tmp20_e29 = oldstk_e25; #line 561 CHECK_STOREPTR((void *)(& xlstack_qss), __cil_tmp20_b28, (void *)(& ___first_local)); #line 561 xlstack_qss._ms._e = __cil_tmp20_e29; #line 561 xlstack_qss._ms._b = __cil_tmp20_b28; #line 561 xlstack_qss._p = __cil_tmp20; #line 564 __retres = (NODE */* */)val; #line 533 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 564 wrapperFree((void *)__heapified); #line 533 return (__retres); } } #line 568 NODE * xthrow(NODE * __cil_tmp6 ) ; #line 568 "xlcont.c" NODE * xthrow(NODE * __cil_tmp6 ) { int volatile ___first_local ; NODE * args ; NODE * tag ; NODE * val ; NODE * __retres ; NODE * __cil_tmp7 ; NODE * __cil_tmp8 ; { #line 581 __retres = (NODE */* */)0; #line 581 val = (NODE */* */)0; #line 581 tag = (NODE */* */)0; #line 581 args = (NODE */* */)0; #line 581 args = __cil_tmp6; #line 573 __cil_tmp7 = xlarg((NODE * */* */)(& args)); #line 573 tag = (NODE */* */)__cil_tmp7; #line 574 if ((int )args) { #line 574 __cil_tmp8 = xlarg((NODE * */* */)(& args)); #line 574 val = (NODE */* */)__cil_tmp8; } else { #line 574 val = (NODE */* */)0; } #line 575 xllastarg((NODE */* */)args); #line 578 xlthrow((NODE */* */)tag, (NODE */* */)val); #line 581 __retres = (NODE */* */)0; #line 568 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 568 return (__retres); } } #line 585 NODE * xerror(NODE * __cil_tmp7 ) ; #line 585 "xlcont.c" NODE * xerror(NODE * __cil_tmp7 ) { int volatile ___first_local ; NODE * args ; char * __FSEQ emsg ; NODE * arg ; NODE * tmp ; NODE * __retres ; NODE * __cil_tmp8 ; char * __FSEQ __cil_tmp9 ; NODE * __cil_tmp10 ; char * __FSEQ __cil_tmp11 ; void *emsg_e16 ; void *__cil_tmp9_e17 ; void *__cil_tmp11_e18 ; { #line 598 __retres = (NODE */* */)0; #line 598 tmp = (NODE */* */)0; #line 598 arg = (NODE */* */)0; #line 598 emsg_e16 = (void *)0; #line 598 emsg = (char */* __FSEQ */)0; #line 598 args = (NODE */* */)0; #line 598 args = __cil_tmp7; #line 590 __cil_tmp8 = xlmatch(6, (NODE * */* */)(& args)); #line 590 tmp = (NODE */* */)__cil_tmp8; #line 590 CHECK_NULL((void *)tmp); #line 590 CHECK_SEQ2FSEQ(tmp->n_info.n_xstr.xst_str._ms._b, tmp->n_info.n_xstr.xst_str._ms._e, (void *)tmp->n_info.n_xstr.xst_str._p); #line 590 __cil_tmp9 = (char */* __FSEQ */)tmp->n_info.n_xstr.xst_str._p; #line 590 __cil_tmp9_e17 = tmp->n_info.n_xstr.xst_str._ms._e; #line 590 emsg_e16 = __cil_tmp9_e17; #line 590 emsg = __cil_tmp9; #line 591 if ((int )args) { #line 591 __cil_tmp10 = xlarg((NODE * */* */)(& args)); #line 591 arg = (NODE */* */)__cil_tmp10; } else { #line 591 arg = (NODE */* */)s_unbound; } #line 592 xllastarg((NODE */* */)args); #line 595 __cil_tmp11 = emsg; #line 595 __cil_tmp11_e18 = emsg_e16; #line 595 xlerror_fs(__cil_tmp11, __cil_tmp11_e18, (NODE */* */)arg); #line 598 __retres = (NODE */* */)0; #line 585 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 585 return (__retres); } } #line 602 NODE * xcerror(NODE * __cil_tmp9 ) ; #line 602 "xlcont.c" NODE * xcerror(NODE * __cil_tmp9 ) { int volatile ___first_local ; NODE * args ; char * __FSEQ cmsg ; char * __FSEQ emsg ; NODE * arg ; NODE * tmp ; NODE * tmp___0 ; NODE * __retres ; NODE * __cil_tmp10 ; char * __FSEQ __cil_tmp11 ; NODE * __cil_tmp12 ; char * __FSEQ __cil_tmp13 ; NODE * __cil_tmp14 ; char * __FSEQ __cil_tmp15 ; char * __FSEQ __cil_tmp16 ; void *cmsg_e24 ; void *emsg_e25 ; void *__cil_tmp11_e26 ; void *__cil_tmp13_e27 ; void *__cil_tmp15_e28 ; void *__cil_tmp16_e29 ; { #line 616 __retres = (NODE */* */)0; #line 616 tmp___0 = (NODE */* */)0; #line 616 tmp = (NODE */* */)0; #line 616 arg = (NODE */* */)0; #line 616 emsg_e25 = (void *)0; #line 616 emsg = (char */* __FSEQ */)0; #line 616 cmsg_e24 = (void *)0; #line 616 cmsg = (char */* __FSEQ */)0; #line 616 args = (NODE */* */)0; #line 616 args = __cil_tmp9; #line 607 __cil_tmp10 = xlmatch(6, (NODE * */* */)(& args)); #line 607 tmp = (NODE */* */)__cil_tmp10; #line 607 CHECK_NULL((void *)tmp); #line 607 CHECK_SEQ2FSEQ(tmp->n_info.n_xstr.xst_str._ms._b, tmp->n_info.n_xstr.xst_str._ms._e, (void *)tmp->n_info.n_xstr.xst_str._p); #line 607 __cil_tmp11 = (char */* __FSEQ */)tmp->n_info.n_xstr.xst_str._p; #line 607 __cil_tmp11_e26 = tmp->n_info.n_xstr.xst_str._ms._e; #line 607 cmsg_e24 = __cil_tmp11_e26; #line 607 cmsg = __cil_tmp11; #line 608 __cil_tmp12 = xlmatch(6, (NODE * */* */)(& args)); #line 608 tmp___0 = (NODE */* */)__cil_tmp12; #line 608 CHECK_NULL((void *)tmp___0); #line 608 CHECK_SEQ2FSEQ(tmp___0->n_info.n_xstr.xst_str._ms._b, tmp___0->n_info.n_xstr.xst_str._ms._e, (void *)tmp___0->n_info.n_xstr.xst_str._p); #line 608 __cil_tmp13 = (char */* __FSEQ */)tmp___0->n_info.n_xstr.xst_str._p; #line 608 __cil_tmp13_e27 = tmp___0->n_info.n_xstr.xst_str._ms._e; #line 608 emsg_e25 = __cil_tmp13_e27; #line 608 emsg = __cil_tmp13; #line 609 if ((int )args) { #line 609 __cil_tmp14 = xlarg((NODE * */* */)(& args)); #line 609 arg = (NODE */* */)__cil_tmp14; } else { #line 609 arg = (NODE */* */)s_unbound; } #line 610 xllastarg((NODE */* */)args); #line 613 __cil_tmp15 = cmsg; #line 613 __cil_tmp15_e28 = cmsg_e24; #line 613 __cil_tmp16 = emsg; #line 613 __cil_tmp16_e29 = emsg_e25; #line 613 xlcerror_ffs(__cil_tmp15, __cil_tmp15_e28, __cil_tmp16, __cil_tmp16_e29, (NODE */* */)arg); #line 616 __retres = (NODE */* */)0; #line 602 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 602 return (__retres); } } #line 625 "xlcont.c" static char __string20[10] = #line 625 { '*', '*', 'B', 'R', 'E', 'A', 'K', '*', '*', '\000'}; #line 620 NODE * xbreak(NODE * __cil_tmp8 ) ; #line 620 "xlcont.c" NODE * xbreak(NODE * __cil_tmp8 ) { int volatile ___first_local ; NODE * args ; char * __FSEQ emsg ; NODE * arg ; NODE * tmp___0 ; NODE * __retres ; char * __FSEQ __cil_tmp9 ; NODE * __cil_tmp10 ; char * __FSEQ __cil_tmp11 ; NODE * __cil_tmp12 ; char * __FSEQ __cil_tmp13 ; void *emsg_e19 ; void *__cil_tmp9_e20 ; void *__cil_tmp11_e21 ; void *__cil_tmp13_e22 ; { #line 633 __retres = (NODE */* */)0; #line 633 tmp___0 = (NODE */* */)0; #line 633 arg = (NODE */* */)0; #line 633 emsg_e19 = (void *)0; #line 633 emsg = (char */* __FSEQ */)0; #line 633 args = (NODE */* */)0; #line 633 args = __cil_tmp8; #line 625 if ((int )args) { #line 625 __cil_tmp10 = xlmatch(6, (NODE * */* */)(& args)); #line 625 tmp___0 = (NODE */* */)__cil_tmp10; #line 625 CHECK_NULL((void *)tmp___0); #line 625 CHECK_SEQ2FSEQ(tmp___0->n_info.n_xstr.xst_str._ms._b, tmp___0->n_info.n_xstr.xst_str._ms._e, (void *)tmp___0->n_info.n_xstr.xst_str._p); #line 625 __cil_tmp11 = (char */* __FSEQ */)tmp___0->n_info.n_xstr.xst_str._p; #line 625 __cil_tmp11_e21 = tmp___0->n_info.n_xstr.xst_str._ms._e; #line 625 emsg_e19 = __cil_tmp11_e21; #line 625 emsg = __cil_tmp11; } else { #line 625 __cil_tmp9 = (char */* __FSEQ */)(& __string20[0]); #line 625 __cil_tmp9_e20 = & __string20[0] + 10; #line 625 emsg_e19 = __cil_tmp9_e20; #line 625 emsg = __cil_tmp9; } #line 626 if ((int )args) { #line 626 __cil_tmp12 = xlarg((NODE * */* */)(& args)); #line 626 arg = (NODE */* */)__cil_tmp12; } else { #line 626 arg = (NODE */* */)s_unbound; } #line 627 xllastarg((NODE */* */)args); #line 630 __cil_tmp13 = emsg; #line 630 __cil_tmp13_e22 = emsg_e19; #line 630 xlbreak_fs(__cil_tmp13, __cil_tmp13_e22, (NODE */* */)arg); #line 633 __retres = (NODE */* */)0; #line 620 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 620 return (__retres); } } #line 637 NODE * xcleanup(NODE * args ) ; #line 637 "xlcont.c" NODE * xcleanup(NODE * args ) { int volatile ___first_local ; NODE * __retres ; { #line 643 __retres = (NODE */* */)0; #line 639 xllastarg((NODE */* */)args); #line 640 xlcleanup(); #line 643 __retres = (NODE */* */)0; #line 637 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 637 return (__retres); } } #line 647 NODE * xcontinue(NODE * args ) ; #line 647 "xlcont.c" NODE * xcontinue(NODE * args ) { int volatile ___first_local ; NODE * __retres ; { #line 653 __retres = (NODE */* */)0; #line 649 xllastarg((NODE */* */)args); #line 650 xlcontinue(); #line 653 __retres = (NODE */* */)0; #line 647 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 647 return (__retres); } } #line 688 "xlcont.c" struct heapified___23 { NODE * expr __HEAPIFY ; NODE * flag __HEAPIFY ; CONTEXT cntxt___0 __HEAPIFY ; }; #line 657 NODE * xerrset(NODE * __cil_tmp10 ) ; #line 657 "xlcont.c" NODE * xerrset(NODE * __cil_tmp10 ) { int volatile ___first_local ; NODE * args ; struct node * * * __SEQ oldstk ; NODE * val ; int tmp___0 ; NODE * __retres ; struct heapified___23 * __heapified ; struct heapified___23 * __cil_tmp12 ; struct heapified___23 * __cil_tmp13 ; struct seq_p_p_s_node __cil_tmp15 ; struct node * * * __SEQ __cil_tmp16 ; NODE * __cil_tmp17 ; NODE * __cil_tmp19 ; int __cil_tmp20 ; NODE * __cil_tmp21 ; NODE * __cil_tmp22 ; struct node * * * __SEQ __cil_tmp23 ; void *oldstk_b27 ; void *oldstk_e28 ; void *__cil_tmp16_b29 ; void *__cil_tmp16_e30 ; void *__cil_tmp23_b31 ; void *__cil_tmp23_e32 ; { #line 688 __heapified = (struct heapified___23 */* */)0; #line 688 __retres = (NODE */* */)0; #line 688 val = (NODE */* */)0; #line 688 oldstk_e28 = (void *)0; #line 688 oldstk_b27 = (void *)0; #line 688 oldstk = (struct node * * */* __SEQ */)0; #line 688 args = (NODE */* */)0; #line 688 __cil_tmp13 = (struct heapified___23 */* */)wrapperAlloc(((sizeof((*__heapified)) + 3U) >> 2) << 2); #line 688 if (__cil_tmp13) { #line 688 __cil_tmp12 = __cil_tmp13; #line 688 CHECK_POSITIVE((int )(((sizeof((*__heapified)) + 3U) >> 2) << 2) - (int )sizeof(struct heapified___23 )); #line 688 __cil_tmp13->cntxt___0.c_xlenv = (struct node */* */)0; #line 688 __cil_tmp13->cntxt___0.c_xlstack._ms._e = (void *)0; #line 688 __cil_tmp13->cntxt___0.c_xlstack._ms._b = (void *)0; #line 688 __cil_tmp13->cntxt___0.c_xlstack._p = (struct node * * */* __SEQ */)0; #line 688 __cil_tmp13->cntxt___0.c_xlcontext = (struct context */* */)0; #line 688 __cil_tmp13->cntxt___0.c_expr = (struct node */* */)0; #line 688 __cil_tmp13->flag = (NODE */* */)0; #line 688 __cil_tmp13->expr = (NODE */* */)0; } else { #line 688 __cil_tmp12 = 0; } #line 688 __heapified = __cil_tmp12; #line 688 args = __cil_tmp10; #line 663 CHECK_NULL((void *)__heapified); #line 663 __cil_tmp15 = xlsave2_qssssss((NODE * */* */)(& __heapified->expr), (NODE * */* */)(& __heapified->flag)); #line 663 __cil_tmp16 = __cil_tmp15._p; #line 663 __cil_tmp16_b29 = __cil_tmp15._ms._b; #line 663 __cil_tmp16_e30 = __cil_tmp15._ms._e; #line 663 oldstk_e28 = __cil_tmp16_e30; #line 663 oldstk_b27 = __cil_tmp16_b29; #line 663 oldstk = __cil_tmp16; #line 666 __cil_tmp17 = xlarg((NODE * */* */)(& args)); #line 666 CHECK_NULL((void *)__heapified); #line 666 CHECK_STOREPTR((void *)(& __heapified->expr), (void *)((NODE */* */)__cil_tmp17), (void *)(& ___first_local)); #line 666 __heapified->expr = (NODE */* */)__cil_tmp17; #line 667 if ((int )args) { #line 667 __cil_tmp19 = xlarg((NODE * */* */)(& args)); #line 667 CHECK_NULL((void *)__heapified); #line 667 CHECK_STOREPTR((void *)(& __heapified->flag), (void *)((NODE */* */)__cil_tmp19), (void *)(& ___first_local)); #line 667 __heapified->flag = (NODE */* */)__cil_tmp19; } else { #line 667 CHECK_NULL((void *)__heapified); #line 667 CHECK_STOREPTR((void *)(& __heapified->flag), (void *)((NODE */* */)true), (void *)(& ___first_local)); #line 667 __heapified->flag = (NODE */* */)true; } #line 668 xllastarg((NODE */* */)args); #line 671 CHECK_NULL((void *)__heapified); #line 671 CHECK_NULL((void *)__heapified); #line 671 xlbegin((CONTEXT */* */)(& __heapified->cntxt___0), 8, (NODE */* */)__heapified->flag); #line 674 CHECK_NULL((void *)__heapified); #line 674 __cil_tmp20 = setjmp((int */* */)(& __heapified->cntxt___0.c_jmpbuf[0])); #line 674 tmp___0 = __cil_tmp20; #line 674 if (tmp___0) { #line 675 val = (NODE */* */)0; } else { #line 679 CHECK_NULL((void *)__heapified); #line 679 __cil_tmp21 = xleval((NODE */* */)__heapified->expr); #line 679 CHECK_NULL((void *)__heapified); #line 679 CHECK_STOREPTR((void *)(& __heapified->expr), (void *)((NODE */* */)__cil_tmp21), (void *)(& ___first_local)); #line 679 __heapified->expr = (NODE */* */)__cil_tmp21; #line 680 CHECK_NULL((void *)__heapified); #line 680 __cil_tmp22 = consa((NODE */* */)__heapified->expr); #line 680 val = (NODE */* */)__cil_tmp22; } #line 682 CHECK_NULL((void *)__heapified); #line 682 xlend((CONTEXT */* */)(& __heapified->cntxt___0)); #line 685 __cil_tmp23 = oldstk; #line 685 __cil_tmp23_b31 = oldstk_b27; #line 685 __cil_tmp23_e32 = oldstk_e28; #line 685 CHECK_STOREPTR((void *)(& xlstack_qss), __cil_tmp23_b31, (void *)(& ___first_local)); #line 685 xlstack_qss._ms._e = __cil_tmp23_e32; #line 685 xlstack_qss._ms._b = __cil_tmp23_b31; #line 685 xlstack_qss._p = __cil_tmp23; #line 688 __retres = (NODE */* */)val; #line 657 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 688 wrapperFree((void *)__heapified); #line 657 return (__retres); } } #line 726 "xlcont.c" struct heapified___24 { NODE * expr __HEAPIFY ; NODE * ehook __HEAPIFY ; NODE * ahook __HEAPIFY ; NODE * env __HEAPIFY ; NODE * newehook __HEAPIFY ; NODE * newahook __HEAPIFY ; NODE * newenv __HEAPIFY ; }; #line 692 NODE * xevalhook(NODE * __cil_tmp13 ) ; #line 692 "xlcont.c" NODE * xevalhook(NODE * __cil_tmp13 ) { int volatile ___first_local ; NODE * args ; struct node * * * __SEQ oldstk ; NODE * val ; NODE * __retres ; struct heapified___24 * __heapified ; struct heapified___24 * __cil_tmp15 ; struct heapified___24 * __cil_tmp16 ; struct seq_p_p_s_node __cil_tmp17 ; struct node * * * __SEQ __cil_tmp18 ; NODE * __cil_tmp19 ; NODE * __cil_tmp21 ; NODE * __cil_tmp22 ; NODE * __cil_tmp23 ; NODE * __cil_tmp24 ; struct node * * * __SEQ __cil_tmp25 ; void *oldstk_b29 ; void *oldstk_e30 ; void *__cil_tmp18_b31 ; void *__cil_tmp18_e32 ; void *__cil_tmp25_b33 ; void *__cil_tmp25_e34 ; { #line 726 __heapified = (struct heapified___24 */* */)0; #line 726 __retres = (NODE */* */)0; #line 726 val = (NODE */* */)0; #line 726 oldstk_e30 = (void *)0; #line 726 oldstk_b29 = (void *)0; #line 726 oldstk = (struct node * * */* __SEQ */)0; #line 726 args = (NODE */* */)0; #line 726 __cil_tmp16 = (struct heapified___24 */* */)wrapperAlloc(((sizeof((*__heapified)) + 3U) >> 2) << 2); #line 726 if (__cil_tmp16) { #line 726 __cil_tmp15 = __cil_tmp16; #line 726 CHECK_POSITIVE((int )(((sizeof((*__heapified)) + 3U) >> 2) << 2) - (int )sizeof(struct heapified___24 )); #line 726 __cil_tmp16->newenv = (NODE */* */)0; #line 726 __cil_tmp16->newahook = (NODE */* */)0; #line 726 __cil_tmp16->newehook = (NODE */* */)0; #line 726 __cil_tmp16->env = (NODE */* */)0; #line 726 __cil_tmp16->ahook = (NODE */* */)0; #line 726 __cil_tmp16->ehook = (NODE */* */)0; #line 726 __cil_tmp16->expr = (NODE */* */)0; } else { #line 726 __cil_tmp15 = 0; } #line 726 __heapified = __cil_tmp15; #line 726 args = __cil_tmp13; #line 697 CHECK_NULL((void *)__heapified); #line 697 CHECK_NULL((void *)__heapified); #line 697 CHECK_NULL((void *)__heapified); #line 697 CHECK_NULL((void *)__heapified); #line 697 CHECK_NULL((void *)__heapified); #line 697 CHECK_NULL((void *)__heapified); #line 697 __cil_tmp17 = xlsave7_qssssssssssssssss((NODE * */* */)(& __heapified->expr), (NODE * */* */)(& __heapified->ehook), (NODE * */* */)(& __heapified->ahook), (NODE * */* */)(& __heapified->env), (NODE * */* */)(& __heapified->newehook), (NODE * */* */)(& __heapified->newahook), (NODE * */* */)(& __heapified->newenv)); #line 697 __cil_tmp18 = __cil_tmp17._p; #line 697 __cil_tmp18_b31 = __cil_tmp17._ms._b; #line 697 __cil_tmp18_e32 = __cil_tmp17._ms._e; #line 697 oldstk_e30 = __cil_tmp18_e32; #line 697 oldstk_b29 = __cil_tmp18_b31; #line 697 oldstk = __cil_tmp18; #line 700 __cil_tmp19 = xlarg((NODE * */* */)(& args)); #line 700 CHECK_NULL((void *)__heapified); #line 700 CHECK_STOREPTR((void *)(& __heapified->expr), (void *)((NODE */* */)__cil_tmp19), (void *)(& ___first_local)); #line 700 __heapified->expr = (NODE */* */)__cil_tmp19; #line 701 __cil_tmp21 = xlarg((NODE * */* */)(& args)); #line 701 CHECK_NULL((void *)__heapified); #line 701 CHECK_STOREPTR((void *)(& __heapified->newehook), (void *)((NODE */* */)__cil_tmp21), (void *)(& ___first_local)); #line 701 __heapified->newehook = (NODE */* */)__cil_tmp21; #line 702 __cil_tmp22 = xlarg((NODE * */* */)(& args)); #line 702 CHECK_NULL((void *)__heapified); #line 702 CHECK_STOREPTR((void *)(& __heapified->newahook), (void *)((NODE */* */)__cil_tmp22), (void *)(& ___first_local)); #line 702 __heapified->newahook = (NODE */* */)__cil_tmp22; #line 703 if ((int )args) { #line 703 __cil_tmp23 = xlarg((NODE * */* */)(& args)); #line 703 CHECK_NULL((void *)__heapified); #line 703 CHECK_STOREPTR((void *)(& __heapified->newenv), (void *)((NODE */* */)__cil_tmp23), (void *)(& ___first_local)); #line 703 __heapified->newenv = (NODE */* */)__cil_tmp23; } else { #line 703 CHECK_NULL((void *)__heapified); #line 703 CHECK_STOREPTR((void *)(& __heapified->newenv), (void *)((NODE */* */)xlenv), (void *)(& ___first_local)); #line 703 __heapified->newenv = (NODE */* */)xlenv; } #line 704 xllastarg((NODE */* */)args); #line 707 CHECK_NULL((void *)__heapified); #line 707 CHECK_NULL((void *)s_evalhook); #line 707 CHECK_STOREPTR((void *)(& __heapified->ehook), (void *)((NODE */* */)s_evalhook->n_info.__annonCompField1.n_xsym.xsy_value), (void *)(& ___first_local)); #line 707 __heapified->ehook = (NODE */* */)s_evalhook->n_info.__annonCompField1.n_xsym.xsy_value; #line 708 CHECK_NULL((void *)s_evalhook); #line 708 CHECK_NULL((void *)__heapified); #line 708 CHECK_STOREPTR((void *)(& s_evalhook->n_info.__annonCompField1.n_xsym.xsy_value), (void *)((struct node */* */)__heapified->newehook), (void *)(& ___first_local)); #line 708 s_evalhook->n_info.__annonCompField1.n_xsym.xsy_value = (struct node */* */)__heapified->newehook; #line 709 CHECK_NULL((void *)__heapified); #line 709 CHECK_NULL((void *)s_applyhook); #line 709 CHECK_STOREPTR((void *)(& __heapified->ahook), (void *)((NODE */* */)s_applyhook->n_info.__annonCompField1.n_xsym.xsy_value), (void *)(& ___first_local)); #line 709 __heapified->ahook = (NODE */* */)s_applyhook->n_info.__annonCompField1.n_xsym.xsy_value; #line 710 CHECK_NULL((void *)s_applyhook); #line 710 CHECK_NULL((void *)__heapified); #line 710 CHECK_STOREPTR((void *)(& s_applyhook->n_info.__annonCompField1.n_xsym.xsy_value), (void *)((struct node */* */)__heapified->newahook), (void *)(& ___first_local)); #line 710 s_applyhook->n_info.__annonCompField1.n_xsym.xsy_value = (struct node */* */)__heapified->newahook; #line 711 CHECK_NULL((void *)__heapified); #line 711 CHECK_STOREPTR((void *)(& __heapified->env), (void *)((NODE */* */)xlenv), (void *)(& ___first_local)); #line 711 __heapified->env = (NODE */* */)xlenv; #line 712 CHECK_NULL((void *)__heapified); #line 712 CHECK_STOREPTR((void *)(& xlenv), (void *)((NODE */* */)__heapified->newenv), (void *)(& ___first_local)); #line 712 xlenv = (NODE */* */)__heapified->newenv; #line 715 CHECK_NULL((void *)__heapified); #line 715 __cil_tmp24 = xlxeval((NODE */* */)__heapified->expr); #line 715 val = (NODE */* */)__cil_tmp24; #line 718 CHECK_NULL((void *)s_evalhook); #line 718 CHECK_NULL((void *)__heapified); #line 718 CHECK_STOREPTR((void *)(& s_evalhook->n_info.__annonCompField1.n_xsym.xsy_value), (void *)((struct node */* */)__heapified->ehook), (void *)(& ___first_local)); #line 718 s_evalhook->n_info.__annonCompField1.n_xsym.xsy_value = (struct node */* */)__heapified->ehook; #line 719 CHECK_NULL((void *)s_applyhook); #line 719 CHECK_NULL((void *)__heapified); #line 719 CHECK_STOREPTR((void *)(& s_applyhook->n_info.__annonCompField1.n_xsym.xsy_value), (void *)((struct node */* */)__heapified->ahook), (void *)(& ___first_local)); #line 719 s_applyhook->n_info.__annonCompField1.n_xsym.xsy_value = (struct node */* */)__heapified->ahook; #line 720 CHECK_NULL((void *)__heapified); #line 720 CHECK_STOREPTR((void *)(& xlenv), (void *)((NODE */* */)__heapified->env), (void *)(& ___first_local)); #line 720 xlenv = (NODE */* */)__heapified->env; #line 723 __cil_tmp25 = oldstk; #line 723 __cil_tmp25_b33 = oldstk_b29; #line 723 __cil_tmp25_e34 = oldstk_e30; #line 723 CHECK_STOREPTR((void *)(& xlstack_qss), __cil_tmp25_b33, (void *)(& ___first_local)); #line 723 xlstack_qss._ms._e = __cil_tmp25_e34; #line 723 xlstack_qss._ms._b = __cil_tmp25_b33; #line 723 xlstack_qss._p = __cil_tmp25; #line 726 __retres = (NODE */* */)val; #line 692 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 726 wrapperFree((void *)__heapified); #line 692 return (__retres); } } #line 763 "xlcont.c" struct heapified___25 { NODE * list __HEAPIFY ; NODE * bnd __HEAPIFY ; NODE * sym __HEAPIFY ; NODE * val __HEAPIFY ; }; #line 755 "xlcont.c" static char __string21[12] = #line 755 { 'b', 'a', 'd', ' ', 'b', 'i', 'n', 'd', 'i', 'n', 'g', '\000'}; #line 755 "xlcont.c" static char __string22[12] = #line 755 { 'b', 'a', 'd', ' ', 'b', 'i', 'n', 'd', 'i', 'n', 'g', '\000'}; #line 730 static int dobindings___0(NODE * blist , NODE * env ) ; #line 730 "xlcont.c" static int dobindings___0(NODE * blist , NODE * env ) { int volatile ___first_local ; struct node * * * __SEQ oldstk ; int __retres ; struct heapified___25 * __heapified ; struct heapified___25 * __cil_tmp10 ; struct heapified___25 * __cil_tmp11 ; struct seq_p_p_s_node __cil_tmp12 ; struct node * * * __SEQ __cil_tmp13 ; char * __FSEQ __cil_tmp15 ; char * __FSEQ __cil_tmp16 ; NODE * __cil_tmp17 ; NODE * __cil_tmp18 ; struct node * * * __SEQ __cil_tmp19 ; void *oldstk_b25 ; void *oldstk_e26 ; void *__cil_tmp13_b27 ; void *__cil_tmp13_e28 ; void *__cil_tmp15_e29 ; void *__cil_tmp16_e30 ; void *__cil_tmp19_b31 ; void *__cil_tmp19_e32 ; { #line 763 __heapified = (struct heapified___25 */* */)0; #line 763 oldstk_e26 = (void *)0; #line 763 oldstk_b25 = (void *)0; #line 763 oldstk = (struct node * * */* __SEQ */)0; #line 763 __cil_tmp11 = (struct heapified___25 */* */)wrapperAlloc(((sizeof((*__heapified)) + 3U) >> 2) << 2); #line 763 if (__cil_tmp11) { #line 763 __cil_tmp10 = __cil_tmp11; #line 763 CHECK_POSITIVE((int )(((sizeof((*__heapified)) + 3U) >> 2) << 2) - (int )sizeof(struct heapified___25 )); #line 763 __cil_tmp11->val = (NODE */* */)0; #line 763 __cil_tmp11->sym = (NODE */* */)0; #line 763 __cil_tmp11->bnd = (NODE */* */)0; #line 763 __cil_tmp11->list = (NODE */* */)0; } else { #line 763 __cil_tmp10 = 0; } #line 763 __heapified = __cil_tmp10; #line 735 CHECK_NULL((void *)__heapified); #line 735 CHECK_NULL((void *)__heapified); #line 735 CHECK_NULL((void *)__heapified); #line 735 __cil_tmp12 = xlsave4_qssssssssss((NODE * */* */)(& __heapified->list), (NODE * */* */)(& __heapified->bnd), (NODE * */* */)(& __heapified->sym), (NODE * */* */)(& __heapified->val)); #line 735 __cil_tmp13 = __cil_tmp12._p; #line 735 __cil_tmp13_b27 = __cil_tmp12._ms._b; #line 735 __cil_tmp13_e28 = __cil_tmp12._ms._e; #line 735 oldstk_e26 = __cil_tmp13_e28; #line 735 oldstk_b25 = __cil_tmp13_b27; #line 735 oldstk = __cil_tmp13; #line 738 CHECK_NULL((void *)__heapified); #line 738 CHECK_STOREPTR((void *)(& __heapified->list), (void *)((NODE */* */)blist), (void *)(& ___first_local)); #line 738 __heapified->list = (NODE */* */)blist; #line 738 while (1) { #line 738 CHECK_NULL((void *)__heapified); #line 738 if ((int )__heapified->list) { #line 738 CHECK_NULL((void *)__heapified); #line 738 CHECK_NULL((void *)__heapified->list); #line 738 if (! ((int )(__heapified->list)->n_type == 3)) { #line 738 break; } } else { #line 738 break; } #line 741 CHECK_NULL((void *)__heapified); #line 741 CHECK_NULL((void *)__heapified); #line 741 CHECK_NULL((void *)__heapified->list); #line 741 CHECK_STOREPTR((void *)(& __heapified->bnd), (void *)((NODE */* */)(__heapified->list)->n_info.__annonCompField1.n_xlist.xl_car), (void *)(& ___first_local)); #line 741 __heapified->bnd = (NODE */* */)(__heapified->list)->n_info.__annonCompField1.n_xlist.xl_car; #line 744 CHECK_NULL((void *)__heapified); #line 744 if ((int )__heapified->bnd) { #line 744 CHECK_NULL((void *)__heapified); #line 744 CHECK_NULL((void *)__heapified->bnd); #line 744 if ((int )(__heapified->bnd)->n_type == 4) { #line 745 CHECK_NULL((void *)__heapified); #line 745 CHECK_NULL((void *)__heapified); #line 745 CHECK_STOREPTR((void *)(& __heapified->sym), (void *)((NODE */* */)__heapified->bnd), (void *)(& ___first_local)); #line 745 __heapified->sym = (NODE */* */)__heapified->bnd; #line 746 CHECK_NULL((void *)__heapified); #line 746 CHECK_STOREPTR((void *)(& __heapified->val), (void *)((NODE */* */)0), (void *)(& ___first_local)); #line 746 __heapified->val = (NODE */* */)0; } else { goto _L; } } else { _L: /* CIL Label */ #line 750 CHECK_NULL((void *)__heapified); #line 750 if ((int )__heapified->bnd) { #line 750 CHECK_NULL((void *)__heapified); #line 750 CHECK_NULL((void *)__heapified->bnd); #line 750 if ((int )(__heapified->bnd)->n_type == 3) { #line 751 CHECK_NULL((void *)__heapified); #line 751 __cil_tmp17 = xlmatch(4, (NODE * */* */)(& __heapified->bnd)); #line 751 CHECK_NULL((void *)__heapified); #line 751 CHECK_STOREPTR((void *)(& __heapified->sym), (void *)((NODE */* */)__cil_tmp17), (void *)(& ___first_local)); #line 751 __heapified->sym = (NODE */* */)__cil_tmp17; #line 752 CHECK_NULL((void *)__heapified); #line 752 __cil_tmp18 = xlevarg((NODE * */* */)(& __heapified->bnd)); #line 752 CHECK_NULL((void *)__heapified); #line 752 CHECK_STOREPTR((void *)(& __heapified->val), (void *)((NODE */* */)__cil_tmp18), (void *)(& ___first_local)); #line 752 __heapified->val = (NODE */* */)__cil_tmp18; } else { #line 755 __cil_tmp16 = (char */* __FSEQ */)(& __string22[0]); #line 755 __cil_tmp16_e30 = & __string22[0] + 12; #line 755 xlfail_f(__cil_tmp16, __cil_tmp16_e30); } } else { #line 755 __cil_tmp15 = (char */* __FSEQ */)(& __string21[0]); #line 755 __cil_tmp15_e29 = & __string21[0] + 12; #line 755 xlfail_f(__cil_tmp15, __cil_tmp15_e29); } } #line 758 CHECK_NULL((void *)__heapified); #line 758 CHECK_NULL((void *)__heapified); #line 758 xlbind((NODE */* */)__heapified->sym, (NODE */* */)__heapified->val, (NODE */* */)env); #line 738 CHECK_NULL((void *)__heapified); #line 738 CHECK_NULL((void *)__heapified); #line 738 CHECK_NULL((void *)__heapified->list); #line 738 CHECK_STOREPTR((void *)(& __heapified->list), (void *)((NODE */* */)(__heapified->list)->n_info.__annonCompField1.n_xlist.xl_cdr), (void *)(& ___first_local)); #line 738 __heapified->list = (NODE */* */)(__heapified->list)->n_info.__annonCompField1.n_xlist.xl_cdr; } #line 762 __cil_tmp19 = oldstk; #line 762 __cil_tmp19_b31 = oldstk_b25; #line 762 __cil_tmp19_e32 = oldstk_e26; #line 762 CHECK_STOREPTR((void *)(& xlstack_qss), __cil_tmp19_b31, (void *)(& ___first_local)); #line 762 xlstack_qss._ms._e = __cil_tmp19_e32; #line 762 xlstack_qss._ms._b = __cil_tmp19_b31; #line 762 xlstack_qss._p = __cil_tmp19; #line 763 __retres = 0; #line 763 wrapperFree((void *)__heapified); #line 730 return (__retres); } } #line 801 "xlcont.c" struct heapified___26 { NODE * plist___21 __HEAPIFY ; NODE * list __HEAPIFY ; NODE * bnd __HEAPIFY ; NODE * sym __HEAPIFY ; NODE * val __HEAPIFY ; }; #line 766 void doupdates(NODE * blist , int pflag ) ; #line 766 "xlcont.c" void doupdates(NODE * blist , int pflag ) { int volatile ___first_local ; struct node * * * __SEQ oldstk ; struct heapified___26 * __heapified ; struct heapified___26 * __cil_tmp10 ; struct heapified___26 * __cil_tmp11 ; struct seq_p_p_s_node __cil_tmp12 ; struct node * * * __SEQ __cil_tmp13 ; NODE * __cil_tmp15 ; NODE * __cil_tmp16 ; NODE * __cil_tmp17 ; NODE * __cil_tmp18 ; struct node * * * __SEQ __cil_tmp19 ; void *oldstk_b23 ; void *oldstk_e24 ; void *__cil_tmp13_b25 ; void *__cil_tmp13_e26 ; void *__cil_tmp19_b27 ; void *__cil_tmp19_e28 ; { #line 801 __heapified = (struct heapified___26 */* */)0; #line 801 oldstk_e24 = (void *)0; #line 801 oldstk_b23 = (void *)0; #line 801 oldstk = (struct node * * */* __SEQ */)0; #line 801 __cil_tmp11 = (struct heapified___26 */* */)wrapperAlloc(((sizeof((*__heapified)) + 3U) >> 2) << 2); #line 801 if (__cil_tmp11) { #line 801 __cil_tmp10 = __cil_tmp11; #line 801 CHECK_POSITIVE((int )(((sizeof((*__heapified)) + 3U) >> 2) << 2) - (int )sizeof(struct heapified___26 )); #line 801 __cil_tmp11->val = (NODE */* */)0; #line 801 __cil_tmp11->sym = (NODE */* */)0; #line 801 __cil_tmp11->bnd = (NODE */* */)0; #line 801 __cil_tmp11->list = (NODE */* */)0; #line 801 __cil_tmp11->plist___21 = (NODE */* */)0; } else { #line 801 __cil_tmp10 = 0; } #line 801 __heapified = __cil_tmp10; #line 771 CHECK_NULL((void *)__heapified); #line 771 CHECK_NULL((void *)__heapified); #line 771 CHECK_NULL((void *)__heapified); #line 771 CHECK_NULL((void *)__heapified); #line 771 __cil_tmp12 = xlsave5_qssssssssssss((NODE * */* */)(& __heapified->plist___21), (NODE * */* */)(& __heapified->list), (NODE * */* */)(& __heapified->bnd), (NODE * */* */)(& __heapified->sym), (NODE * */* */)(& __heapified->val)); #line 771 __cil_tmp13 = __cil_tmp12._p; #line 771 __cil_tmp13_b25 = __cil_tmp12._ms._b; #line 771 __cil_tmp13_e26 = __cil_tmp12._ms._e; #line 771 oldstk_e24 = __cil_tmp13_e26; #line 771 oldstk_b23 = __cil_tmp13_b25; #line 771 oldstk = __cil_tmp13; #line 774 CHECK_NULL((void *)__heapified); #line 774 CHECK_STOREPTR((void *)(& __heapified->list), (void *)((NODE */* */)blist), (void *)(& ___first_local)); #line 774 __heapified->list = (NODE */* */)blist; #line 774 while (1) { #line 774 CHECK_NULL((void *)__heapified); #line 774 if ((int )__heapified->list) { #line 774 CHECK_NULL((void *)__heapified); #line 774 CHECK_NULL((void *)__heapified->list); #line 774 if (! ((int )(__heapified->list)->n_type == 3)) { #line 774 break; } } else { #line 774 break; } #line 777 CHECK_NULL((void *)__heapified); #line 777 CHECK_NULL((void *)__heapified); #line 777 CHECK_NULL((void *)__heapified->list); #line 777 CHECK_STOREPTR((void *)(& __heapified->bnd), (void *)((NODE */* */)(__heapified->list)->n_info.__annonCompField1.n_xlist.xl_car), (void *)(& ___first_local)); #line 777 __heapified->bnd = (NODE */* */)(__heapified->list)->n_info.__annonCompField1.n_xlist.xl_car; #line 780 CHECK_NULL((void *)__heapified); #line 780 if ((int )__heapified->bnd) { #line 780 CHECK_NULL((void *)__heapified); #line 780 CHECK_NULL((void *)__heapified->bnd); #line 780 if ((int )(__heapified->bnd)->n_type == 3) { #line 781 CHECK_NULL((void *)__heapified); #line 781 __cil_tmp15 = xlmatch(4, (NODE * */* */)(& __heapified->bnd)); #line 781 CHECK_NULL((void *)__heapified); #line 781 CHECK_STOREPTR((void *)(& __heapified->sym), (void *)((NODE */* */)__cil_tmp15), (void *)(& ___first_local)); #line 781 __heapified->sym = (NODE */* */)__cil_tmp15; #line 782 CHECK_NULL((void *)__heapified); #line 782 CHECK_NULL((void *)__heapified); #line 782 CHECK_NULL((void *)__heapified->bnd); #line 782 CHECK_STOREPTR((void *)(& __heapified->bnd), (void *)((NODE */* */)(__heapified->bnd)->n_info.__annonCompField1.n_xlist.xl_cdr), (void *)(& ___first_local)); #line 782 __heapified->bnd = (NODE */* */)(__heapified->bnd)->n_info.__annonCompField1.n_xlist.xl_cdr; #line 783 CHECK_NULL((void *)__heapified); #line 783 if ((int )__heapified->bnd) { #line 784 CHECK_NULL((void *)__heapified); #line 784 __cil_tmp16 = xlevarg((NODE * */* */)(& __heapified->bnd)); #line 784 CHECK_NULL((void *)__heapified); #line 784 CHECK_STOREPTR((void *)(& __heapified->val), (void *)((NODE */* */)__cil_tmp16), (void *)(& ___first_local)); #line 784 __heapified->val = (NODE */* */)__cil_tmp16; #line 785 if (pflag) { #line 786 CHECK_NULL((void *)__heapified); #line 786 __cil_tmp17 = consd((NODE */* */)__heapified->plist___21); #line 786 CHECK_NULL((void *)__heapified); #line 786 CHECK_STOREPTR((void *)(& __heapified->plist___21), (void *)((NODE */* */)__cil_tmp17), (void *)(& ___first_local)); #line 786 __heapified->plist___21 = (NODE */* */)__cil_tmp17; #line 787 CHECK_NULL((void *)__heapified); #line 787 CHECK_NULL((void *)__heapified); #line 787 __cil_tmp18 = cons((NODE */* */)__heapified->sym, (NODE */* */)__heapified->val); #line 787 CHECK_NULL((void *)__heapified); #line 787 CHECK_NULL((void *)__heapified->plist___21); #line 787 CHECK_STOREPTR((void *)(& (__heapified->plist___21)->n_info.__annonCompField1.n_xlist.xl_car), (void *)((struct node */* */)__cil_tmp18), (void *)(& ___first_local)); #line 787 (__heapified->plist___21)->n_info.__annonCompField1.n_xlist.xl_car = (struct node */* */)__cil_tmp18; } else { #line 790 CHECK_NULL((void *)__heapified); #line 790 CHECK_NULL((void *)__heapified); #line 790 xlsetvalue((NODE */* */)__heapified->sym, (NODE */* */)__heapified->val); } } } } #line 774 CHECK_NULL((void *)__heapified); #line 774 CHECK_NULL((void *)__heapified); #line 774 CHECK_NULL((void *)__heapified->list); #line 774 CHECK_STOREPTR((void *)(& __heapified->list), (void *)((NODE */* */)(__heapified->list)->n_info.__annonCompField1.n_xlist.xl_cdr), (void *)(& ___first_local)); #line 774 __heapified->list = (NODE */* */)(__heapified->list)->n_info.__annonCompField1.n_xlist.xl_cdr; } #line 796 while (1) { #line 796 CHECK_NULL((void *)__heapified); #line 796 if (! ((int )__heapified->plist___21)) { #line 796 break; } #line 797 CHECK_NULL((void *)__heapified); #line 797 CHECK_NULL((void *)__heapified->plist___21); #line 797 CHECK_NULL((void *)(__heapified->plist___21)->n_info.__annonCompField1.n_xlist.xl_car); #line 797 CHECK_NULL((void *)__heapified); #line 797 CHECK_NULL((void *)__heapified->plist___21); #line 797 CHECK_NULL((void *)(__heapified->plist___21)->n_info.__annonCompField1.n_xlist.xl_car); #line 797 xlsetvalue((NODE */* */)((__heapified->plist___21)->n_info.__annonCompField1.n_xlist.xl_car)->n_info.__annonCompField1.n_xlist.xl_car, (NODE */* */)((__heapified->plist___21)->n_info.__annonCompField1.n_xlist.xl_car)->n_info.__annonCompField1.n_xlist.xl_cdr); #line 796 CHECK_NULL((void *)__heapified); #line 796 CHECK_NULL((void *)__heapified); #line 796 CHECK_NULL((void *)__heapified->plist___21); #line 796 CHECK_STOREPTR((void *)(& __heapified->plist___21), (void *)((NODE */* */)(__heapified->plist___21)->n_info.__annonCompField1.n_xlist.xl_cdr), (void *)(& ___first_local)); #line 796 __heapified->plist___21 = (NODE */* */)(__heapified->plist___21)->n_info.__annonCompField1.n_xlist.xl_cdr; } #line 800 __cil_tmp19 = oldstk; #line 800 __cil_tmp19_b27 = oldstk_b23; #line 800 __cil_tmp19_e28 = oldstk_e24; #line 800 CHECK_STOREPTR((void *)(& xlstack_qss), __cil_tmp19_b27, (void *)(& ___first_local)); #line 800 xlstack_qss._ms._e = __cil_tmp19_e28; #line 800 xlstack_qss._ms._b = __cil_tmp19_b27; #line 800 xlstack_qss._p = __cil_tmp19; #line 801 wrapperFree((void *)__heapified); #line 766 return; } } #line 848 "xlcont.c" struct heapified___27 { NODE * arg __HEAPIFY ; CONTEXT cntxt___0 __HEAPIFY ; }; #line 804 int tagblock(NODE * code , NODE * * pval ) ; #line 804 "xlcont.c" int tagblock(NODE * code , NODE * * pval ) { int volatile ___first_local ; struct node * * * __SEQ oldstk ; int type ; int sts ; int __retres ; struct heapified___27 * __heapified ; struct heapified___27 * __cil_tmp10 ; struct heapified___27 * __cil_tmp11 ; struct seq_p_p_s_node __cil_tmp13 ; struct node * * * __SEQ __cil_tmp14 ; int __cil_tmp16 ; struct node * * * __SEQ __cil_tmp17 ; void *oldstk_b21 ; void *oldstk_e22 ; void *__cil_tmp14_b23 ; void *__cil_tmp14_e24 ; void *__cil_tmp17_b25 ; void *__cil_tmp17_e26 ; { #line 848 __heapified = (struct heapified___27 */* */)0; #line 848 oldstk_e22 = (void *)0; #line 848 oldstk_b21 = (void *)0; #line 848 oldstk = (struct node * * */* __SEQ */)0; #line 848 __cil_tmp11 = (struct heapified___27 */* */)wrapperAlloc(((sizeof((*__heapified)) + 3U) >> 2) << 2); #line 848 if (__cil_tmp11) { #line 848 __cil_tmp10 = __cil_tmp11; #line 848 CHECK_POSITIVE((int )(((sizeof((*__heapified)) + 3U) >> 2) << 2) - (int )sizeof(struct heapified___27 )); #line 848 __cil_tmp11->cntxt___0.c_xlenv = (struct node */* */)0; #line 848 __cil_tmp11->cntxt___0.c_xlstack._ms._e = (void *)0; #line 848 __cil_tmp11->cntxt___0.c_xlstack._ms._b = (void *)0; #line 848 __cil_tmp11->cntxt___0.c_xlstack._p = (struct node * * */* __SEQ */)0; #line 848 __cil_tmp11->cntxt___0.c_xlcontext = (struct context */* */)0; #line 848 __cil_tmp11->cntxt___0.c_expr = (struct node */* */)0; #line 848 __cil_tmp11->arg = (NODE */* */)0; } else { #line 848 __cil_tmp10 = 0; } #line 848 __heapified = __cil_tmp10; #line 811 __cil_tmp13 = xlsave1_qssss((NODE * */* */)(& __heapified->arg)); #line 811 __cil_tmp14 = __cil_tmp13._p; #line 811 __cil_tmp14_b23 = __cil_tmp13._ms._b; #line 811 __cil_tmp14_e24 = __cil_tmp13._ms._e; #line 811 oldstk_e22 = __cil_tmp14_e24; #line 811 oldstk_b21 = __cil_tmp14_b23; #line 811 oldstk = __cil_tmp14; #line 814 CHECK_NULL((void *)__heapified); #line 814 CHECK_STOREPTR((void *)(& __heapified->arg), (void *)((NODE */* */)code), (void *)(& ___first_local)); #line 814 __heapified->arg = (NODE */* */)code; #line 817 CHECK_NULL((void *)__heapified); #line 817 CHECK_NULL((void *)__heapified); #line 817 xlbegin((CONTEXT */* */)(& __heapified->cntxt___0), 3, (NODE */* */)__heapified->arg); #line 820 CHECK_NULL((void *)__heapified); #line 820 __cil_tmp16 = setjmp((int */* */)(& __heapified->cntxt___0.c_jmpbuf[0])); #line 820 type = __cil_tmp16; #line 820 if (type == 2) { #line 821 CHECK_NULL((void *)pval); #line 821 CHECK_STOREPTR((void *)pval, (void *)((NODE */* */)xlvalue), (void *)(& ___first_local)); #line 821 (*pval) = (NODE */* */)xlvalue; #line 822 sts = 1; } else { #line 828 if (type == 1) { #line 829 CHECK_NULL((void *)__heapified); #line 829 CHECK_STOREPTR((void *)(& __heapified->arg), (void *)((NODE */* */)xlvalue), (void *)(& ___first_local)); #line 829 __heapified->arg = (NODE */* */)xlvalue; } #line 832 while (1) { #line 832 CHECK_NULL((void *)__heapified); #line 832 if ((int )__heapified->arg) { #line 832 CHECK_NULL((void *)__heapified); #line 832 CHECK_NULL((void *)__heapified->arg); #line 832 if (! ((int )(__heapified->arg)->n_type == 3)) { #line 832 break; } } else { #line 832 break; } #line 833 CHECK_NULL((void *)__heapified); #line 833 CHECK_NULL((void *)__heapified->arg); #line 833 if ((int )(__heapified->arg)->n_info.__annonCompField1.n_xlist.xl_car) { #line 833 CHECK_NULL((void *)__heapified); #line 833 CHECK_NULL((void *)__heapified->arg); #line 833 CHECK_NULL((void *)(__heapified->arg)->n_info.__annonCompField1.n_xlist.xl_car); #line 833 if ((int )((__heapified->arg)->n_info.__annonCompField1.n_xlist.xl_car)->n_type == 3) { #line 834 xlevarg((NODE * */* */)(& __heapified->arg)); } else { #line 836 CHECK_NULL((void *)__heapified); #line 836 CHECK_NULL((void *)__heapified); #line 836 CHECK_NULL((void *)__heapified->arg); #line 836 CHECK_STOREPTR((void *)(& __heapified->arg), (void *)((NODE */* */)(__heapified->arg)->n_info.__annonCompField1.n_xlist.xl_cdr), (void *)(& ___first_local)); #line 836 __heapified->arg = (NODE */* */)(__heapified->arg)->n_info.__annonCompField1.n_xlist.xl_cdr; } } else { #line 836 CHECK_NULL((void *)__heapified); #line 836 CHECK_NULL((void *)__heapified); #line 836 CHECK_NULL((void *)__heapified->arg); #line 836 CHECK_STOREPTR((void *)(& __heapified->arg), (void *)((NODE */* */)(__heapified->arg)->n_info.__annonCompField1.n_xlist.xl_cdr), (void *)(& ___first_local)); #line 836 __heapified->arg = (NODE */* */)(__heapified->arg)->n_info.__annonCompField1.n_xlist.xl_cdr; } } #line 839 CHECK_NULL((void *)pval); #line 839 CHECK_STOREPTR((void *)pval, (void *)((NODE */* */)0), (void *)(& ___first_local)); #line 839 (*pval) = (NODE */* */)0; #line 840 sts = 0; } #line 842 CHECK_NULL((void *)__heapified); #line 842 xlend((CONTEXT */* */)(& __heapified->cntxt___0)); #line 845 __cil_tmp17 = oldstk; #line 845 __cil_tmp17_b25 = oldstk_b21; #line 845 __cil_tmp17_e26 = oldstk_e22; #line 845 CHECK_STOREPTR((void *)(& xlstack_qss), __cil_tmp17_b25, (void *)(& ___first_local)); #line 845 xlstack_qss._ms._e = __cil_tmp17_e26; #line 845 xlstack_qss._ms._b = __cil_tmp17_b25; #line 845 xlstack_qss._p = __cil_tmp17; #line 848 __retres = sts; #line 848 wrapperFree((void *)__heapified); #line 804 return (__retres); } } #line 68 "proto.h" static int doerror___1_ffs(char * __FSEQ cmsg , void *cmsg_e , char * __FSEQ emsg , void *emsg_e , NODE * arg , int cflag ) ; #line 69 static void breakloop___1_fffs(char * __FSEQ hdr , void *hdr_e , char * __FSEQ cmsg , void *cmsg_e , char * __FSEQ emsg , void *emsg_e , NODE * arg , int cflag ) ; #line 70 static NODE * stacktop___1(void) ; #line 15 "xldbug.c" void xlfail_f(char * __FSEQ emsg , void *emsg_e ) ; #line 15 "xldbug.c" void xlfail_f(char * __FSEQ emsg , void *emsg_e ) { NODE * tmp ; int __a_local ; NODE * __cil_tmp4 ; char * __FSEQ __cil_tmp5 ; void *__cil_tmp5_e9 ; { #line 15 tmp = (NODE */* */)0; #line 15 if ((unsigned int )(& __a_local) <= ___stack_threshhold) { #line 15 ___stack_overflow(); } { #line 17 __cil_tmp4 = stacktop___1(); #line 17 tmp = (NODE */* */)__cil_tmp4; #line 17 __cil_tmp5 = emsg; #line 17 __cil_tmp5_e9 = emsg_e; #line 17 xlerror_fs(__cil_tmp5, __cil_tmp5_e9, (NODE */* */)tmp); #line 18 return; } #line 15 return; } } #line 21 void xlabort_f(char * __FSEQ emsg , void *emsg_e ) ; #line 21 "xldbug.c" void xlabort_f(char * __FSEQ emsg , void *emsg_e ) { char * __FSEQ __cil_tmp2 ; void *__cil_tmp2_e6 ; { #line 23 __cil_tmp2 = emsg; #line 23 __cil_tmp2_e6 = emsg_e; #line 23 xlsignal_fs(__cil_tmp2, __cil_tmp2_e6, (NODE */* */)s_unbound); #line 21 return; } } #line 29 "xldbug.c" static char __string23[6] = { 'b', 'r', 'e', 'a', 'k', '\000'}; #line 27 void xlbreak_fs(char * __FSEQ emsg , void *emsg_e , NODE * arg ) ; #line 27 "xldbug.c" void xlbreak_fs(char * __FSEQ emsg , void *emsg_e , NODE * arg ) { char * __FSEQ __cil_tmp3 ; char * __FSEQ __cil_tmp4 ; char * __FSEQ __cil_tmp5 ; void *__cil_tmp3_e11 ; void *__cil_tmp4_e12 ; void *__cil_tmp5_e13 ; { #line 29 __cil_tmp3 = (char */* __FSEQ */)(& __string23[0]); #line 29 __cil_tmp3_e11 = & __string23[0] + 6; #line 29 __cil_tmp4 = (char */* __FSEQ */)0; #line 29 __cil_tmp4_e12 = (void *)0; #line 29 __cil_tmp5 = emsg; #line 29 __cil_tmp5_e13 = emsg_e; #line 29 breakloop___1_fffs(__cil_tmp3, __cil_tmp3_e11, __cil_tmp4, __cil_tmp4_e12, __cil_tmp5, __cil_tmp5_e13, (NODE */* */)arg, 1); #line 27 return; } } #line 33 void xlerror_fs(char * __FSEQ emsg , void *emsg_e , NODE * arg ) ; #line 33 "xldbug.c" void xlerror_fs(char * __FSEQ emsg , void *emsg_e , NODE * arg ) { char * __FSEQ __cil_tmp3 ; char * __FSEQ __cil_tmp4 ; void *__cil_tmp3_e9 ; void *__cil_tmp4_e10 ; { #line 35 __cil_tmp3 = (char */* __FSEQ */)0; #line 35 __cil_tmp3_e9 = (void *)0; #line 35 __cil_tmp4 = emsg; #line 35 __cil_tmp4_e10 = emsg_e; #line 35 doerror___1_ffs(__cil_tmp3, __cil_tmp3_e9, __cil_tmp4, __cil_tmp4_e10, (NODE */* */)arg, 0); #line 33 return; } } #line 39 void xlcerror_ffs(char * __FSEQ cmsg , void *cmsg_e , char * __FSEQ emsg , void *emsg_e , NODE * arg ) ; #line 39 "xldbug.c" void xlcerror_ffs(char * __FSEQ cmsg , void *cmsg_e , char * __FSEQ emsg , void *emsg_e , NODE * arg ) { char * __FSEQ __cil_tmp4 ; char * __FSEQ __cil_tmp5 ; void *__cil_tmp4_e12 ; void *__cil_tmp5_e13 ; { #line 41 __cil_tmp4 = cmsg; #line 41 __cil_tmp4_e12 = cmsg_e; #line 41 __cil_tmp5 = emsg; #line 41 __cil_tmp5_e13 = emsg_e; #line 41 doerror___1_ffs(__cil_tmp4, __cil_tmp4_e12, __cil_tmp5, __cil_tmp5_e13, (NODE */* */)arg, 1); #line 39 return; } } #line 47 "xldbug.c" static char __string24[7] = { '%', 's', ':', ' ', '%', 's', '\000'}; #line 48 "xldbug.c" static char __string25[4] = { ' ', '-', ' ', '\000'}; #line 50 "xldbug.c" static char __string26[18] = #line 50 { 'i', 'f', ' ', 'c', 'o', 'n', 't', 'i', 'n', 'u', 'e', 'd', ':', ' ', '%', 's', '\n', '\000'}; #line 45 void xlerrprint_fffs(char * __FSEQ hdr , void *hdr_e , char * __FSEQ cmsg , void *cmsg_e , char * __FSEQ emsg , void *emsg_e , NODE * arg ) ; #line 45 "xldbug.c" void xlerrprint_fffs(char * __FSEQ hdr , void *hdr_e , char * __FSEQ cmsg , void *cmsg_e , char * __FSEQ emsg , void *emsg_e , NODE * arg ) { char * __ROSTRING __cil_tmp5 ; char * __ROSTRING __cil_tmp6 ; char * __ROSTRING __cil_tmp7 ; char * __FSEQ __cil_tmp8 ; char * __cil_tmp9 ; char * __FSEQ __cil_tmp10 ; char * __cil_tmp11 ; char * __FSEQ __cil_tmp12 ; char * __FSEQ __cil_tmp13 ; char * __FSEQ __cil_tmp14 ; char * __cil_tmp15 ; char * __FSEQ __cil_tmp16 ; void *__cil_tmp8_e29 ; void *__cil_tmp10_e30 ; void *__cil_tmp12_e31 ; void *__cil_tmp13_e32 ; void *__cil_tmp14_e33 ; void *__cil_tmp16_e34 ; { #line 51 __cil_tmp7 = (char */* __ROSTRING */)0; #line 51 __cil_tmp6 = (char */* __ROSTRING */)0; #line 51 __cil_tmp5 = (char */* __ROSTRING */)0; #line 47 __cil_tmp8 = hdr; #line 47 __cil_tmp8_e29 = hdr_e; #line 47 __cil_tmp9 = /*11*/__stringof_ornull_sf(__cil_tmp8, __cil_tmp8_e29); #line 47 __cil_tmp6 = (char */* __ROSTRING */)__cil_tmp9; #line 47 __cil_tmp10 = emsg; #line 47 __cil_tmp10_e30 = emsg_e; #line 47 __cil_tmp11 = /*11*/__stringof_ornull_sf(__cil_tmp10, __cil_tmp10_e30); #line 47 __cil_tmp5 = (char */* __ROSTRING */)__cil_tmp11; #line 47 __ccured_va_count = -1; #line 47 /*10*/sprintf_wrapper((char */* */)(buf), (char */* */)(& __string24[0]), __cil_tmp6, __cil_tmp5); #line 47 CHECK_SEQ2FSEQ((void *)(buf), (void *)(buf + 101), (void *)(buf)); #line 47 __cil_tmp12 = (char */* __FSEQ */)(buf); #line 47 __cil_tmp12_e31 = buf + 101; #line 47 stdputstr_f(__cil_tmp12, __cil_tmp12_e31); #line 48 if ((unsigned int )arg != (unsigned int )s_unbound) { #line 48 __cil_tmp13 = (char */* __FSEQ */)(& __string25[0]); #line 48 __cil_tmp13_e32 = & __string25[0] + 4; #line 48 stdputstr_f(__cil_tmp13, __cil_tmp13_e32); #line 48 stdprint((NODE */* */)arg); } else { #line 49 CHECK_NULL((void *)s_stdout); #line 49 xlterpri((NODE */* */)s_stdout->n_info.__annonCompField1.n_xsym.xsy_value); } #line 50 if ((int )cmsg) { #line 50 __cil_tmp14 = cmsg; #line 50 __cil_tmp14_e33 = cmsg_e; #line 50 __cil_tmp15 = /*11*/__stringof_ornull_sf(__cil_tmp14, __cil_tmp14_e33); #line 50 __cil_tmp7 = (char */* __ROSTRING */)__cil_tmp15; #line 50 __ccured_va_count = -1; #line 50 /*10*/sprintf_wrapper((char */* */)(buf), (char */* */)(& __string26[0]), __cil_tmp7); #line 50 CHECK_SEQ2FSEQ((void *)(buf), (void *)(buf + 101), (void *)(buf)); #line 50 __cil_tmp16 = (char */* __FSEQ */)(buf); #line 50 __cil_tmp16_e34 = buf + 101; #line 50 stdputstr_f(__cil_tmp16, __cil_tmp16_e34); } #line 45 return; } } #line 61 "xldbug.c" static char __string27[6] = { 'e', 'r', 'r', 'o', 'r', '\000'}; #line 54 static int doerror___1_ffs(char * __FSEQ cmsg , void *cmsg_e , char * __FSEQ emsg , void *emsg_e , NODE * arg , int cflag ) ; #line 54 "xldbug.c" static int doerror___1_ffs(char * __FSEQ cmsg , void *cmsg_e , char * __FSEQ emsg , void *emsg_e , NODE * arg , int cflag ) { int __retres ; char * __FSEQ __cil_tmp6 ; char * __FSEQ __cil_tmp7 ; char * __FSEQ __cil_tmp8 ; char * __FSEQ __cil_tmp9 ; void *__cil_tmp6_e18 ; void *__cil_tmp7_e19 ; void *__cil_tmp8_e20 ; void *__cil_tmp9_e21 ; { #line 57 CHECK_NULL((void *)s_breakenable); #line 57 if ((unsigned int )s_breakenable->n_info.__annonCompField1.n_xsym.xsy_value == 0) { #line 58 __cil_tmp6 = emsg; #line 58 __cil_tmp6_e18 = emsg_e; #line 58 xlsignal_fs(__cil_tmp6, __cil_tmp6_e18, (NODE */* */)arg); } #line 61 __cil_tmp7 = (char */* __FSEQ */)(& __string27[0]); #line 61 __cil_tmp7_e19 = & __string27[0] + 6; #line 61 __cil_tmp8 = cmsg; #line 61 __cil_tmp8_e20 = cmsg_e; #line 61 __cil_tmp9 = emsg; #line 61 __cil_tmp9_e21 = emsg_e; #line 61 breakloop___1_fffs(__cil_tmp7, __cil_tmp7_e19, __cil_tmp8, __cil_tmp8_e20, __cil_tmp9, __cil_tmp9_e21, (NODE */* */)arg, cflag); #line 62 __retres = 0; #line 54 return (__retres); } } #line 136 "xldbug.c" struct heapified___28 { NODE * expr __HEAPIFY ; CONTEXT cntxt___0 __HEAPIFY ; }; #line 107 "xldbug.c" static char __string28[30] = #line 107 { 't', 'h', 'i', 's', ' ', 'e', 'r', 'r', 'o', 'r', ' ', 'c', 'a', 'n', '\'', 't', ' ', 'b', 'e', ' ', 'c', 'o', 'n', 't', 'i', 'n', 'u', 'e', 'd', '\000'}; #line 104 "xldbug.c" static char __string29[30] = #line 104 { '[', ' ', 'c', 'o', 'n', 't', 'i', 'n', 'u', 'e', ' ', 'f', 'r', 'o', 'm', ' ', 'b', 'r', 'e', 'a', 'k', ' ', 'l', 'o', 'o', 'p', ' ', ']', '\n', '\000'}; #line 133 "xldbug.c" static char __string30[29] = #line 133 { '[', ' ', 'a', 'b', 'o', 'r', 't', ' ', 't', 'o', ' ', 'p', 'r', 'e', 'v', 'i', 'o', 'u', 's', ' ', 'l', 'e', 'v', 'e', 'l', ' ', ']', '\n', '\000'}; #line 65 static void breakloop___1_fffs(char * __FSEQ hdr , void *hdr_e , char * __FSEQ cmsg , void *cmsg_e , char * __FSEQ emsg , void *emsg_e , NODE * arg , int cflag ) ; #line 65 "xldbug.c" static void breakloop___1_fffs(char * __FSEQ hdr , void *hdr_e , char * __FSEQ cmsg , void *cmsg_e , char * __FSEQ emsg , void *emsg_e , NODE * arg , int cflag ) { int volatile ___first_local ; struct node * * * __SEQ oldstk ; NODE * val ; int type ; int tmp ; int tmp___0 ; struct heapified___28 * __heapified ; struct heapified___28 * __cil_tmp14 ; struct heapified___28 * __cil_tmp15 ; char * __FSEQ __cil_tmp17 ; char * __FSEQ __cil_tmp18 ; char * __FSEQ __cil_tmp19 ; struct seq_p_p_s_node __cil_tmp20 ; struct node * * * __SEQ __cil_tmp21 ; int __cil_tmp22 ; char * __FSEQ __cil_tmp23 ; char * __FSEQ __cil_tmp24 ; int __cil_tmp25 ; NODE * __cil_tmp26 ; struct node * * * __SEQ __cil_tmp28 ; char * __FSEQ __cil_tmp29 ; char * __FSEQ __cil_tmp30 ; void *oldstk_b47 ; void *oldstk_e48 ; void *__cil_tmp17_e49 ; void *__cil_tmp18_e50 ; void *__cil_tmp19_e51 ; void *__cil_tmp21_b52 ; void *__cil_tmp21_e53 ; void *__cil_tmp23_e54 ; void *__cil_tmp24_e55 ; void *__cil_tmp28_b56 ; void *__cil_tmp28_e57 ; void *__cil_tmp29_e58 ; void *__cil_tmp30_e59 ; { #line 136 __heapified = (struct heapified___28 */* */)0; #line 136 val = (NODE */* */)0; #line 136 oldstk_e48 = (void *)0; #line 136 oldstk_b47 = (void *)0; #line 136 oldstk = (struct node * * */* __SEQ */)0; #line 136 __cil_tmp15 = (struct heapified___28 */* */)wrapperAlloc(((sizeof((*__heapified)) + 3U) >> 2) << 2); #line 136 if (__cil_tmp15) { #line 136 __cil_tmp14 = __cil_tmp15; #line 136 CHECK_POSITIVE((int )(((sizeof((*__heapified)) + 3U) >> 2) << 2) - (int )sizeof(struct heapified___28 )); #line 136 __cil_tmp15->cntxt___0.c_xlenv = (struct node */* */)0; #line 136 __cil_tmp15->cntxt___0.c_xlstack._ms._e = (void *)0; #line 136 __cil_tmp15->cntxt___0.c_xlstack._ms._b = (void *)0; #line 136 __cil_tmp15->cntxt___0.c_xlstack._p = (struct node * * */* __SEQ */)0; #line 136 __cil_tmp15->cntxt___0.c_xlcontext = (struct context */* */)0; #line 136 __cil_tmp15->cntxt___0.c_expr = (struct node */* */)0; #line 136 __cil_tmp15->expr = (NODE */* */)0; } else { #line 136 __cil_tmp14 = 0; } #line 136 __heapified = __cil_tmp14; #line 72 __cil_tmp17 = hdr; #line 72 __cil_tmp17_e49 = hdr_e; #line 72 __cil_tmp18 = cmsg; #line 72 __cil_tmp18_e50 = cmsg_e; #line 72 __cil_tmp19 = emsg; #line 72 __cil_tmp19_e51 = emsg_e; #line 72 xlerrprint_fffs(__cil_tmp17, __cil_tmp17_e49, __cil_tmp18, __cil_tmp18_e50, __cil_tmp19, __cil_tmp19_e51, (NODE */* */)arg); #line 75 xlflush(); #line 78 CHECK_NULL((void *)s_tracenable); #line 78 if ((int )s_tracenable->n_info.__annonCompField1.n_xsym.xsy_value) { #line 79 CHECK_NULL((void *)s_tlimit); #line 79 val = (NODE */* */)s_tlimit->n_info.__annonCompField1.n_xsym.xsy_value; #line 80 if ((int )val) { #line 80 CHECK_NULL((void *)val); #line 80 if ((int )val->n_type == 5) { #line 80 CHECK_NULL((void *)val); #line 80 tmp = (int )val->n_info.n_xint.xi_int; } else { #line 80 tmp = -1; } } else { #line 80 tmp = -1; } #line 80 xlbaktrace(tmp); } #line 84 __cil_tmp20 = xlsave1_qssss((NODE * */* */)(& __heapified->expr)); #line 84 __cil_tmp21 = __cil_tmp20._p; #line 84 __cil_tmp21_b52 = __cil_tmp20._ms._b; #line 84 __cil_tmp21_e53 = __cil_tmp20._ms._e; #line 84 oldstk_e48 = __cil_tmp21_e53; #line 84 oldstk_b47 = __cil_tmp21_b52; #line 84 oldstk = __cil_tmp21; #line 87 xldebug = xldebug + 1; #line 90 CHECK_NULL((void *)__heapified); #line 90 xlbegin((CONTEXT */* */)(& __heapified->cntxt___0), 56, (NODE */* */)true); #line 91 type = 0; #line 91 while (type == 0) { #line 94 CHECK_NULL((void *)__heapified); #line 94 __cil_tmp22 = setjmp((int */* */)(& __heapified->cntxt___0.c_jmpbuf[0])); #line 94 type = __cil_tmp22; #line 94 if (type) { #line 95 switch (type) { case 8: #line 97 xlflush(); #line 98 type = 0; goto __Cont; case 16: ; goto __Cont; case 32: ; #line 103 if (cflag) { #line 104 __cil_tmp24 = (char */* __FSEQ */)(& __string29[0]); #line 104 __cil_tmp24_e55 = & __string29[0] + 30; #line 104 stdputstr_f(__cil_tmp24, __cil_tmp24_e55); goto __Cont; } else { #line 107 __cil_tmp23 = (char */* __FSEQ */)(& __string28[0]); #line 107 __cil_tmp23_e54 = & __string28[0] + 30; #line 107 xlabort_f(__cil_tmp23, __cil_tmp23_e54); } } } #line 111 CHECK_NULL((void *)s_stdin); #line 111 __cil_tmp25 = xlread((NODE */* */)s_stdin->n_info.__annonCompField1.n_xsym.xsy_value, (NODE * */* */)(& __heapified->expr), 0); #line 111 tmp___0 = __cil_tmp25; #line 111 if (! tmp___0) { #line 112 type = 16; #line 113 break; } #line 117 CHECK_NULL((void *)__heapified); #line 117 __cil_tmp26 = xleval((NODE */* */)__heapified->expr); #line 117 CHECK_NULL((void *)__heapified); #line 117 CHECK_STOREPTR((void *)(& __heapified->expr), (void *)((NODE */* */)__cil_tmp26), (void *)(& ___first_local)); #line 117 __heapified->expr = (NODE */* */)__cil_tmp26; #line 120 CHECK_NULL((void *)s_stdout); #line 120 CHECK_NULL((void *)__heapified); #line 120 xlprint((NODE */* */)s_stdout->n_info.__annonCompField1.n_xsym.xsy_value, (NODE */* */)__heapified->expr, 1); #line 121 CHECK_NULL((void *)s_stdout); #line 121 xlterpri((NODE */* */)s_stdout->n_info.__annonCompField1.n_xsym.xsy_value); __Cont: /* CIL Label */ ; } #line 123 CHECK_NULL((void *)__heapified); #line 123 xlend((CONTEXT */* */)(& __heapified->cntxt___0)); #line 126 xldebug = xldebug - 1; #line 129 __cil_tmp28 = oldstk; #line 129 __cil_tmp28_b56 = oldstk_b47; #line 129 __cil_tmp28_e57 = oldstk_e48; #line 129 CHECK_STOREPTR((void *)(& xlstack_qss), __cil_tmp28_b56, (void *)(& ___first_local)); #line 129 xlstack_qss._ms._e = __cil_tmp28_e57; #line 129 xlstack_qss._ms._b = __cil_tmp28_b56; #line 129 xlstack_qss._p = __cil_tmp28; #line 132 if (type == 16) { #line 133 __cil_tmp29 = (char */* __FSEQ */)(& __string30[0]); #line 133 __cil_tmp29_e58 = & __string30[0] + 29; #line 133 stdputstr_f(__cil_tmp29, __cil_tmp29_e58); #line 134 __cil_tmp30 = (char */* __FSEQ */)0; #line 134 __cil_tmp30_e59 = (void *)0; #line 134 xlsignal_fs(__cil_tmp30, __cil_tmp30_e59, (NODE */* */)0); } #line 136 wrapperFree((void *)__heapified); #line 65 return; } } #line 139 static NODE * stacktop___1(void) ; #line 139 "xldbug.c" static NODE * stacktop___1(void) { int volatile ___first_local ; NODE * tmp ; NODE * __retres ; { #line 141 __retres = (NODE */* */)0; #line 141 tmp = (NODE */* */)0; #line 141 if (xltrace >= 0) { #line 141 if (xltrace < 500) { #line 141 CHECK_FSEQARITH2SAFE((void *)trace_stack_fs._p, trace_stack_fs._ms._e, (void *)(trace_stack_fs._p + xltrace), sizeof(struct node */* */), sizeof(struct node */* */), 1, 0); #line 141 tmp = (NODE */* */)(*(trace_stack_fs._p + xltrace)); } else { #line 141 tmp = (NODE */* */)s_unbound; } } else { #line 141 tmp = (NODE */* */)s_unbound; } #line 141 __retres = (NODE */* */)tmp; #line 139 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 139 return (__retres); } } #line 145 void xlbaktrace(int n ) ; #line 145 "xldbug.c" void xlbaktrace(int n ) { int i ; int tmp ; { #line 149 i = xltrace; #line 149 while (1) { #line 149 if (n < 0) { goto _L; } else { #line 149 tmp = n; #line 149 n = n - 1; #line 149 if (tmp) { _L: /* CIL Label */ ; #line 149 if (! (i >= 0)) { #line 149 break; } } else { #line 149 break; } } #line 150 if (i < 500) { #line 151 CHECK_FSEQARITH2SAFE((void *)trace_stack_fs._p, trace_stack_fs._ms._e, (void *)(trace_stack_fs._p + i), sizeof(struct node */* */), sizeof(struct node */* */), 1, 0); #line 151 stdprint((NODE */* */)(*(trace_stack_fs._p + i))); } #line 149 i = i - 1; } #line 145 return; } } extern unsigned int ( __attribute__((__cdecl__)) /*17*/malloc)(size_t __size ) ; #line 159 "xldbug.c" static char __string31[20] = #line 159 { 'i', 'n', 's', 'u', 'f', 'f', 'i', 'c', 'i', 'e', 'n', 't', ' ', 'm', 'e', 'm', 'o', 'r', 'y', '\000'}; #line 155 void xldinit(void) ; #line 155 "xldbug.c" void xldinit(void) { int volatile ___first_local ; struct node * * __FSEQ __cil_tmp2 ; struct node * * __FSEQ __cil_tmp3 ; unsigned int __cil_tmp4 ; struct node * * __FSEQ __cil_tmp5 ; void *__cil_tmp2_e9 ; void *__cil_tmp5_e10 ; { #line 158 __cil_tmp3 = (struct node * */* __FSEQ */)/*17*/malloc(((500U * sizeof((*(trace_stack_fs._p))) + 3U) >> 2) << 2); #line 158 if (__cil_tmp3) { #line 158 __cil_tmp2 = __cil_tmp3; #line 158 __cil_tmp4 = (unsigned int )__cil_tmp3 + (((500U * sizeof((*(trace_stack_fs._p))) + 3U) >> 2) << 2); while ((unsigned int )__cil_tmp3 + sizeof(struct node */* */) <= __cil_tmp4) { #line 158 (*__cil_tmp3) = (struct node */* */)0; #line 158 __cil_tmp3 = __cil_tmp3 + 1; } #line 158 __cil_tmp2_e9 = __cil_tmp3; } else { #line 158 __cil_tmp2 = 0; #line 158 __cil_tmp2_e9 = (void *)0; } #line 158 __cil_tmp5 = __cil_tmp2; #line 158 __cil_tmp5_e10 = __cil_tmp2_e9; #line 158 CHECK_STOREPTR((void *)(& trace_stack_fs), __cil_tmp5_e10, (void *)(& ___first_local)); #line 158 trace_stack_fs._ms._e = __cil_tmp5_e10; #line 158 trace_stack_fs._p = __cil_tmp5; #line 158 if ((unsigned int )trace_stack_fs._p == 0) { #line 159 __ccured_va_count = -1; #line 159 printf((char */* */)(& __string31[0])); #line 160 osfinish(); #line 161 exit(1); } #line 164 total = total + (long )(500U * sizeof((*(trace_stack_fs._p)))); #line 165 xlsample = 0; #line 166 xltrace = -1; #line 167 xldebug = 0; #line 155 return; } } #line 88 "proto.h" static NODE * newnode___2(int type ) ; #line 89 static struct seq_char stralloc___2_q(int size ) ; #line 90 static struct seq_char strsave___2_qf(char * __FSEQ str , void *str_e ) ; #line 95 static void sweep___2(void) ; #line 97 static int livecar___2(NODE * n ) ; #line 98 static int livecdr___2(NODE * n ) ; #line 19 "xldmem.c" NODE * cons(NODE * x , NODE * y ) ; #line 19 "xldmem.c" NODE * cons(NODE * x , NODE * y ) { int volatile ___first_local ; NODE * val ; NODE * __retres ; NODE * __cil_tmp5 ; { #line 25 __retres = (NODE */* */)0; #line 25 val = (NODE */* */)0; #line 22 __cil_tmp5 = newnode___2(3); #line 22 val = (NODE */* */)__cil_tmp5; #line 23 CHECK_NULL((void *)val); #line 23 CHECK_STOREPTR((void *)(& val->n_info.__annonCompField1.n_xlist.xl_car), (void *)((struct node */* */)x), (void *)(& ___first_local)); #line 23 val->n_info.__annonCompField1.n_xlist.xl_car = (struct node */* */)x; #line 24 CHECK_NULL((void *)val); #line 24 CHECK_STOREPTR((void *)(& val->n_info.__annonCompField1.n_xlist.xl_cdr), (void *)((struct node */* */)y), (void *)(& ___first_local)); #line 24 val->n_info.__annonCompField1.n_xlist.xl_cdr = (struct node */* */)y; #line 25 __retres = (NODE */* */)val; #line 19 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 19 return (__retres); } } #line 29 NODE * consa(NODE * x ) ; #line 29 "xldmem.c" NODE * consa(NODE * x ) { int volatile ___first_local ; NODE * val ; NODE * __retres ; NODE * __cil_tmp4 ; { #line 34 __retres = (NODE */* */)0; #line 34 val = (NODE */* */)0; #line 32 __cil_tmp4 = newnode___2(3); #line 32 val = (NODE */* */)__cil_tmp4; #line 33 CHECK_NULL((void *)val); #line 33 CHECK_STOREPTR((void *)(& val->n_info.__annonCompField1.n_xlist.xl_car), (void *)((struct node */* */)x), (void *)(& ___first_local)); #line 33 val->n_info.__annonCompField1.n_xlist.xl_car = (struct node */* */)x; #line 34 __retres = (NODE */* */)val; #line 29 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 29 return (__retres); } } #line 38 NODE * consd(NODE * x ) ; #line 38 "xldmem.c" NODE * consd(NODE * x ) { int volatile ___first_local ; NODE * val ; NODE * __retres ; NODE * __cil_tmp4 ; { #line 43 __retres = (NODE */* */)0; #line 43 val = (NODE */* */)0; #line 41 __cil_tmp4 = newnode___2(3); #line 41 val = (NODE */* */)__cil_tmp4; #line 42 CHECK_NULL((void *)val); #line 42 CHECK_STOREPTR((void *)(& val->n_info.__annonCompField1.n_xlist.xl_cdr), (void *)((struct node */* */)x), (void *)(& ___first_local)); #line 42 val->n_info.__annonCompField1.n_xlist.xl_cdr = (struct node */* */)x; #line 43 __retres = (NODE */* */)val; #line 38 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 38 return (__retres); } } #line 55 "xldmem.c" struct heapified___29 { NODE * val __HEAPIFY ; }; #line 47 NODE * cvstring_sf(char * __FSEQ str , void *str_e ) ; #line 47 "xldmem.c" NODE * cvstring_sf(char * __FSEQ str , void *str_e ) { int volatile ___first_local ; struct node * * * __SEQ oldstk ; NODE * __retres ; struct heapified___29 * __heapified ; struct heapified___29 * __cil_tmp6 ; struct heapified___29 * __cil_tmp7 ; struct seq_p_p_s_node __cil_tmp8 ; struct node * * * __SEQ __cil_tmp9 ; NODE * __cil_tmp10 ; char * __FSEQ __cil_tmp12 ; struct seq_char __cil_tmp13 ; char * __SEQ __cil_tmp14 ; struct node * * * __SEQ __cil_tmp15 ; void *oldstk_b23 ; void *oldstk_e24 ; void *__cil_tmp9_b25 ; void *__cil_tmp9_e26 ; void *__cil_tmp12_e27 ; void *__cil_tmp14_b28 ; void *__cil_tmp14_e29 ; void *__cil_tmp15_b30 ; void *__cil_tmp15_e31 ; { #line 55 __heapified = (struct heapified___29 */* */)0; #line 55 __retres = (NODE */* */)0; #line 55 oldstk_e24 = (void *)0; #line 55 oldstk_b23 = (void *)0; #line 55 oldstk = (struct node * * */* __SEQ */)0; #line 55 __cil_tmp7 = (struct heapified___29 */* */)wrapperAlloc(((sizeof((*__heapified)) + 3U) >> 2) << 2); #line 55 if (__cil_tmp7) { #line 55 __cil_tmp6 = __cil_tmp7; #line 55 CHECK_POSITIVE((int )(((sizeof((*__heapified)) + 3U) >> 2) << 2) - (int )sizeof(struct heapified___29 )); #line 55 __cil_tmp7->val = (NODE */* */)0; } else { #line 55 __cil_tmp6 = 0; } #line 55 __heapified = __cil_tmp6; #line 50 __cil_tmp8 = xlsave1_qssss((NODE * */* */)(& __heapified->val)); #line 50 __cil_tmp9 = __cil_tmp8._p; #line 50 __cil_tmp9_b25 = __cil_tmp8._ms._b; #line 50 __cil_tmp9_e26 = __cil_tmp8._ms._e; #line 50 oldstk_e24 = __cil_tmp9_e26; #line 50 oldstk_b23 = __cil_tmp9_b25; #line 50 oldstk = __cil_tmp9; #line 51 __cil_tmp10 = newnode___2(6); #line 51 CHECK_NULL((void *)__heapified); #line 51 CHECK_STOREPTR((void *)(& __heapified->val), (void *)((NODE */* */)__cil_tmp10), (void *)(& ___first_local)); #line 51 __heapified->val = (NODE */* */)__cil_tmp10; #line 52 __cil_tmp12 = str; #line 52 __cil_tmp12_e27 = str_e; #line 52 __cil_tmp13 = strsave___2_qf(__cil_tmp12, __cil_tmp12_e27); #line 52 CHECK_NULL((void *)__heapified); #line 52 CHECK_NULL((void *)__heapified->val); #line 52 __cil_tmp14 = __cil_tmp13._p; #line 52 __cil_tmp14_b28 = __cil_tmp13._ms._b; #line 52 __cil_tmp14_e29 = __cil_tmp13._ms._e; #line 52 CHECK_STOREPTR((void *)(& (__heapified->val)->n_info.n_xstr.xst_str), __cil_tmp14_b28, (void *)(& ___first_local)); #line 52 (__heapified->val)->n_info.n_xstr.xst_str._ms._e = __cil_tmp14_e29; #line 52 (__heapified->val)->n_info.n_xstr.xst_str._ms._b = __cil_tmp14_b28; #line 52 (__heapified->val)->n_info.n_xstr.xst_str._p = __cil_tmp14; #line 53 CHECK_NULL((void *)__heapified); #line 53 CHECK_NULL((void *)__heapified->val); #line 53 (__heapified->val)->n_info.n_xstr.xst_type = 0; #line 54 __cil_tmp15 = oldstk; #line 54 __cil_tmp15_b30 = oldstk_b23; #line 54 __cil_tmp15_e31 = oldstk_e24; #line 54 CHECK_STOREPTR((void *)(& xlstack_qss), __cil_tmp15_b30, (void *)(& ___first_local)); #line 54 xlstack_qss._ms._e = __cil_tmp15_e31; #line 54 xlstack_qss._ms._b = __cil_tmp15_b30; #line 54 xlstack_qss._p = __cil_tmp15; #line 55 CHECK_NULL((void *)__heapified); #line 55 __retres = (NODE */* */)__heapified->val; #line 47 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 55 wrapperFree((void *)__heapified); #line 47 return (__retres); } } #line 59 NODE * cvcstring_sq(char * __SEQ str , void *str_b , void *str_e ) ; #line 59 "xldmem.c" NODE * cvcstring_sq(char * __SEQ str , void *str_b , void *str_e ) { int volatile ___first_local ; NODE * val ; NODE * __retres ; NODE * __cil_tmp4 ; char * __SEQ __cil_tmp5 ; void *__cil_tmp5_b11 ; void *__cil_tmp5_e12 ; { #line 65 __retres = (NODE */* */)0; #line 65 val = (NODE */* */)0; #line 62 __cil_tmp4 = newnode___2(6); #line 62 val = (NODE */* */)__cil_tmp4; #line 63 CHECK_NULL((void *)val); #line 63 __cil_tmp5 = str; #line 63 __cil_tmp5_b11 = str_b; #line 63 __cil_tmp5_e12 = str_e; #line 63 CHECK_STOREPTR((void *)(& val->n_info.n_xstr.xst_str), __cil_tmp5_b11, (void *)(& ___first_local)); #line 63 val->n_info.n_xstr.xst_str._ms._e = __cil_tmp5_e12; #line 63 val->n_info.n_xstr.xst_str._ms._b = __cil_tmp5_b11; #line 63 val->n_info.n_xstr.xst_str._p = __cil_tmp5; #line 64 CHECK_NULL((void *)val); #line 64 val->n_info.n_xstr.xst_type = 1; #line 65 __retres = (NODE */* */)val; #line 59 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 59 return (__retres); } } #line 77 "xldmem.c" struct heapified___30 { NODE * val __HEAPIFY ; }; #line 69 NODE * cvsymbol_sf(char * __FSEQ pname___21 , void *pname___21_e ) ; #line 69 "xldmem.c" NODE * cvsymbol_sf(char * __FSEQ pname___21 , void *pname___21_e ) { int volatile ___first_local ; struct node * * * __SEQ oldstk ; NODE * __retres ; struct heapified___30 * __heapified ; struct heapified___30 * __cil_tmp6 ; struct heapified___30 * __cil_tmp7 ; struct seq_p_p_s_node __cil_tmp8 ; struct node * * * __SEQ __cil_tmp9 ; NODE * __cil_tmp10 ; NODE * __cil_tmp12 ; char * __FSEQ __cil_tmp13 ; NODE * __cil_tmp14 ; struct node * * * __SEQ __cil_tmp15 ; void *oldstk_b22 ; void *oldstk_e23 ; void *__cil_tmp9_b24 ; void *__cil_tmp9_e25 ; void *__cil_tmp13_e26 ; void *__cil_tmp15_b27 ; void *__cil_tmp15_e28 ; { #line 77 __heapified = (struct heapified___30 */* */)0; #line 77 __retres = (NODE */* */)0; #line 77 oldstk_e23 = (void *)0; #line 77 oldstk_b22 = (void *)0; #line 77 oldstk = (struct node * * */* __SEQ */)0; #line 77 __cil_tmp7 = (struct heapified___30 */* */)wrapperAlloc(((sizeof((*__heapified)) + 3U) >> 2) << 2); #line 77 if (__cil_tmp7) { #line 77 __cil_tmp6 = __cil_tmp7; #line 77 CHECK_POSITIVE((int )(((sizeof((*__heapified)) + 3U) >> 2) << 2) - (int )sizeof(struct heapified___30 )); #line 77 __cil_tmp7->val = (NODE */* */)0; } else { #line 77 __cil_tmp6 = 0; } #line 77 __heapified = __cil_tmp6; #line 72 __cil_tmp8 = xlsave1_qssss((NODE * */* */)(& __heapified->val)); #line 72 __cil_tmp9 = __cil_tmp8._p; #line 72 __cil_tmp9_b24 = __cil_tmp8._ms._b; #line 72 __cil_tmp9_e25 = __cil_tmp8._ms._e; #line 72 oldstk_e23 = __cil_tmp9_e25; #line 72 oldstk_b22 = __cil_tmp9_b24; #line 72 oldstk = __cil_tmp9; #line 73 __cil_tmp10 = newnode___2(4); #line 73 CHECK_NULL((void *)__heapified); #line 73 CHECK_STOREPTR((void *)(& __heapified->val), (void *)((NODE */* */)__cil_tmp10), (void *)(& ___first_local)); #line 73 __heapified->val = (NODE */* */)__cil_tmp10; #line 74 __cil_tmp12 = newnode___2(3); #line 74 CHECK_NULL((void *)__heapified); #line 74 CHECK_NULL((void *)__heapified->val); #line 74 CHECK_STOREPTR((void *)(& (__heapified->val)->n_info.__annonCompField1.n_xsym.xsy_plist), (void *)((struct node */* */)__cil_tmp12), (void *)(& ___first_local)); #line 74 (__heapified->val)->n_info.__annonCompField1.n_xsym.xsy_plist = (struct node */* */)__cil_tmp12; #line 75 __cil_tmp13 = pname___21; #line 75 __cil_tmp13_e26 = pname___21_e; #line 75 __cil_tmp14 = cvstring_sf(__cil_tmp13, __cil_tmp13_e26); #line 75 CHECK_NULL((void *)__heapified); #line 75 CHECK_NULL((void *)__heapified->val); #line 75 CHECK_NULL((void *)(__heapified->val)->n_info.__annonCompField1.n_xsym.xsy_plist); #line 75 CHECK_STOREPTR((void *)(& ((__heapified->val)->n_info.__annonCompField1.n_xsym.xsy_plist)->n_info.__annonCompField1.n_xlist.xl_car), (void *)((struct node */* */)__cil_tmp14), (void *)(& ___first_local)); #line 75 ((__heapified->val)->n_info.__annonCompField1.n_xsym.xsy_plist)->n_info.__annonCompField1.n_xlist.xl_car = (struct node */* */)__cil_tmp14; #line 76 __cil_tmp15 = oldstk; #line 76 __cil_tmp15_b27 = oldstk_b22; #line 76 __cil_tmp15_e28 = oldstk_e23; #line 76 CHECK_STOREPTR((void *)(& xlstack_qss), __cil_tmp15_b27, (void *)(& ___first_local)); #line 76 xlstack_qss._ms._e = __cil_tmp15_e28; #line 76 xlstack_qss._ms._b = __cil_tmp15_b27; #line 76 xlstack_qss._p = __cil_tmp15; #line 77 CHECK_NULL((void *)__heapified); #line 77 __retres = (NODE */* */)__heapified->val; #line 69 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 77 wrapperFree((void *)__heapified); #line 69 return (__retres); } } #line 89 "xldmem.c" struct heapified___31 { NODE * val __HEAPIFY ; }; #line 81 NODE * cvcsymbol_sq(char * __SEQ pname___21 , void *pname___21_b , void *pname___21_e ) ; #line 81 "xldmem.c" NODE * cvcsymbol_sq(char * __SEQ pname___21 , void *pname___21_b , void *pname___21_e ) { int volatile ___first_local ; struct node * * * __SEQ oldstk ; NODE * __retres ; struct heapified___31 * __heapified ; struct heapified___31 * __cil_tmp6 ; struct heapified___31 * __cil_tmp7 ; struct seq_p_p_s_node __cil_tmp8 ; struct node * * * __SEQ __cil_tmp9 ; NODE * __cil_tmp10 ; NODE * __cil_tmp12 ; char * __SEQ __cil_tmp13 ; NODE * __cil_tmp14 ; struct node * * * __SEQ __cil_tmp15 ; void *oldstk_b23 ; void *oldstk_e24 ; void *__cil_tmp9_b25 ; void *__cil_tmp9_e26 ; void *__cil_tmp13_b27 ; void *__cil_tmp13_e28 ; void *__cil_tmp15_b29 ; void *__cil_tmp15_e30 ; { #line 89 __heapified = (struct heapified___31 */* */)0; #line 89 __retres = (NODE */* */)0; #line 89 oldstk_e24 = (void *)0; #line 89 oldstk_b23 = (void *)0; #line 89 oldstk = (struct node * * */* __SEQ */)0; #line 89 __cil_tmp7 = (struct heapified___31 */* */)wrapperAlloc(((sizeof((*__heapified)) + 3U) >> 2) << 2); #line 89 if (__cil_tmp7) { #line 89 __cil_tmp6 = __cil_tmp7; #line 89 CHECK_POSITIVE((int )(((sizeof((*__heapified)) + 3U) >> 2) << 2) - (int )sizeof(struct heapified___31 )); #line 89 __cil_tmp7->val = (NODE */* */)0; } else { #line 89 __cil_tmp6 = 0; } #line 89 __heapified = __cil_tmp6; #line 84 __cil_tmp8 = xlsave1_qssss((NODE * */* */)(& __heapified->val)); #line 84 __cil_tmp9 = __cil_tmp8._p; #line 84 __cil_tmp9_b25 = __cil_tmp8._ms._b; #line 84 __cil_tmp9_e26 = __cil_tmp8._ms._e; #line 84 oldstk_e24 = __cil_tmp9_e26; #line 84 oldstk_b23 = __cil_tmp9_b25; #line 84 oldstk = __cil_tmp9; #line 85 __cil_tmp10 = newnode___2(4); #line 85 CHECK_NULL((void *)__heapified); #line 85 CHECK_STOREPTR((void *)(& __heapified->val), (void *)((NODE */* */)__cil_tmp10), (void *)(& ___first_local)); #line 85 __heapified->val = (NODE */* */)__cil_tmp10; #line 86 __cil_tmp12 = newnode___2(3); #line 86 CHECK_NULL((void *)__heapified); #line 86 CHECK_NULL((void *)__heapified->val); #line 86 CHECK_STOREPTR((void *)(& (__heapified->val)->n_info.__annonCompField1.n_xsym.xsy_plist), (void *)((struct node */* */)__cil_tmp12), (void *)(& ___first_local)); #line 86 (__heapified->val)->n_info.__annonCompField1.n_xsym.xsy_plist = (struct node */* */)__cil_tmp12; #line 87 __cil_tmp13 = pname___21; #line 87 __cil_tmp13_b27 = pname___21_b; #line 87 __cil_tmp13_e28 = pname___21_e; #line 87 __cil_tmp14 = cvcstring_sq(__cil_tmp13, __cil_tmp13_b27, __cil_tmp13_e28); #line 87 CHECK_NULL((void *)__heapified); #line 87 CHECK_NULL((void *)__heapified->val); #line 87 CHECK_NULL((void *)(__heapified->val)->n_info.__annonCompField1.n_xsym.xsy_plist); #line 87 CHECK_STOREPTR((void *)(& ((__heapified->val)->n_info.__annonCompField1.n_xsym.xsy_plist)->n_info.__annonCompField1.n_xlist.xl_car), (void *)((struct node */* */)__cil_tmp14), (void *)(& ___first_local)); #line 87 ((__heapified->val)->n_info.__annonCompField1.n_xsym.xsy_plist)->n_info.__annonCompField1.n_xlist.xl_car = (struct node */* */)__cil_tmp14; #line 88 __cil_tmp15 = oldstk; #line 88 __cil_tmp15_b29 = oldstk_b23; #line 88 __cil_tmp15_e30 = oldstk_e24; #line 88 CHECK_STOREPTR((void *)(& xlstack_qss), __cil_tmp15_b29, (void *)(& ___first_local)); #line 88 xlstack_qss._ms._e = __cil_tmp15_e30; #line 88 xlstack_qss._ms._b = __cil_tmp15_b29; #line 88 xlstack_qss._p = __cil_tmp15; #line 89 CHECK_NULL((void *)__heapified); #line 89 __retres = (NODE */* */)__heapified->val; #line 81 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 89 wrapperFree((void *)__heapified); #line 81 return (__retres); } } #line 94 NODE * cvsubr(struct node * (* fcn)(struct node * ) , int type ) ; #line 94 "xldmem.c" NODE * cvsubr(struct node * (* fcn)(struct node * ) , int type ) { int volatile ___first_local ; NODE * val ; NODE * __retres ; NODE * __cil_tmp5 ; { #line 99 __retres = (NODE */* */)0; #line 99 val = (NODE */* */)0; #line 97 __cil_tmp5 = newnode___2(type); #line 97 val = (NODE */* */)__cil_tmp5; #line 98 CHECK_NULL((void *)val); #line 98 CHECK_STOREPTR((void *)(& val->n_info.n_xsubr.xsu_subr), (void *)((struct node * (*/* */)(struct node * ))fcn), (void *)(& ___first_local)); #line 98 val->n_info.n_xsubr.xsu_subr = (struct node * (*/* */)(struct node * ))fcn; #line 99 __retres = (NODE */* */)val; #line 94 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 94 return (__retres); } } #line 103 NODE * cvfile(FILE * fp ) ; #line 103 "xldmem.c" NODE * cvfile(FILE * fp ) { int volatile ___first_local ; NODE * val ; NODE * __retres ; NODE * __cil_tmp4 ; { #line 109 __retres = (NODE */* */)0; #line 109 val = (NODE */* */)0; #line 106 __cil_tmp4 = newnode___2(8); #line 106 val = (NODE */* */)__cil_tmp4; #line 107 CHECK_NULL((void *)val); #line 107 CHECK_STOREPTR((void *)(& val->n_info.n_xfptr.xf_fp), (void *)((FILE */* */)fp), (void *)(& ___first_local)); #line 107 val->n_info.n_xfptr.xf_fp = (FILE */* */)fp; #line 108 CHECK_NULL((void *)val); #line 108 val->n_info.n_xfptr.xf_savech = 0; #line 109 __retres = (NODE */* */)val; #line 103 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 103 return (__retres); } } #line 113 NODE * cvfixnum(long n ) ; #line 113 "xldmem.c" NODE * cvfixnum(long n ) { int volatile ___first_local ; NODE * val ; NODE * __retres ; NODE * __cil_tmp4 ; { #line 118 __retres = (NODE */* */)0; #line 118 val = (NODE */* */)0; #line 116 __cil_tmp4 = newnode___2(5); #line 116 val = (NODE */* */)__cil_tmp4; #line 117 CHECK_NULL((void *)val); #line 117 val->n_info.n_xint.xi_int = n; #line 118 __retres = (NODE */* */)val; #line 113 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 113 return (__retres); } } #line 122 NODE * cvflonum(float n ) ; #line 122 "xldmem.c" NODE * cvflonum(float n ) { int volatile ___first_local ; NODE * val ; NODE * __retres ; NODE * __cil_tmp4 ; { #line 127 __retres = (NODE */* */)0; #line 127 val = (NODE */* */)0; #line 125 __cil_tmp4 = newnode___2(9); #line 125 val = (NODE */* */)__cil_tmp4; #line 126 CHECK_NULL((void *)val); #line 126 val->n_info.n_xfloat.xf_float = n; #line 127 __retres = (NODE */* */)val; #line 122 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 122 return (__retres); } } #line 140 "xldmem.c" struct heapified___32 { NODE * val __HEAPIFY ; }; #line 131 NODE * newstring(int size ) ; #line 131 "xldmem.c" NODE * newstring(int size ) { int volatile ___first_local ; struct node * * * __SEQ oldstk ; NODE * __retres ; struct heapified___32 * __heapified ; struct heapified___32 * __cil_tmp6 ; struct heapified___32 * __cil_tmp7 ; struct seq_p_p_s_node __cil_tmp8 ; struct node * * * __SEQ __cil_tmp9 ; NODE * __cil_tmp10 ; struct seq_char __cil_tmp12 ; char * __SEQ __cil_tmp13 ; struct node * * * __SEQ __cil_tmp14 ; void *oldstk_b19 ; void *oldstk_e20 ; void *__cil_tmp9_b21 ; void *__cil_tmp9_e22 ; void *__cil_tmp13_b23 ; void *__cil_tmp13_e24 ; void *__cil_tmp14_b25 ; void *__cil_tmp14_e26 ; { #line 140 __heapified = (struct heapified___32 */* */)0; #line 140 __retres = (NODE */* */)0; #line 140 oldstk_e20 = (void *)0; #line 140 oldstk_b19 = (void *)0; #line 140 oldstk = (struct node * * */* __SEQ */)0; #line 140 __cil_tmp7 = (struct heapified___32 */* */)wrapperAlloc(((sizeof((*__heapified)) + 3U) >> 2) << 2); #line 140 if (__cil_tmp7) { #line 140 __cil_tmp6 = __cil_tmp7; #line 140 CHECK_POSITIVE((int )(((sizeof((*__heapified)) + 3U) >> 2) << 2) - (int )sizeof(struct heapified___32 )); #line 140 __cil_tmp7->val = (NODE */* */)0; } else { #line 140 __cil_tmp6 = 0; } #line 140 __heapified = __cil_tmp6; #line 134 __cil_tmp8 = xlsave1_qssss((NODE * */* */)(& __heapified->val)); #line 134 __cil_tmp9 = __cil_tmp8._p; #line 134 __cil_tmp9_b21 = __cil_tmp8._ms._b; #line 134 __cil_tmp9_e22 = __cil_tmp8._ms._e; #line 134 oldstk_e20 = __cil_tmp9_e22; #line 134 oldstk_b19 = __cil_tmp9_b21; #line 134 oldstk = __cil_tmp9; #line 135 __cil_tmp10 = newnode___2(6); #line 135 CHECK_NULL((void *)__heapified); #line 135 CHECK_STOREPTR((void *)(& __heapified->val), (void *)((NODE */* */)__cil_tmp10), (void *)(& ___first_local)); #line 135 __heapified->val = (NODE */* */)__cil_tmp10; #line 136 __cil_tmp12 = stralloc___2_q(size); #line 136 CHECK_NULL((void *)__heapified); #line 136 CHECK_NULL((void *)__heapified->val); #line 136 __cil_tmp13 = __cil_tmp12._p; #line 136 __cil_tmp13_b23 = __cil_tmp12._ms._b; #line 136 __cil_tmp13_e24 = __cil_tmp12._ms._e; #line 136 CHECK_STOREPTR((void *)(& (__heapified->val)->n_info.n_xstr.xst_str), __cil_tmp13_b23, (void *)(& ___first_local)); #line 136 (__heapified->val)->n_info.n_xstr.xst_str._ms._e = __cil_tmp13_e24; #line 136 (__heapified->val)->n_info.n_xstr.xst_str._ms._b = __cil_tmp13_b23; #line 136 (__heapified->val)->n_info.n_xstr.xst_str._p = __cil_tmp13; #line 137 CHECK_NULL((void *)__heapified); #line 137 CHECK_NULL((void *)__heapified->val); #line 137 CHECK_SEQ2SAFE((__heapified->val)->n_info.n_xstr.xst_str._ms._b, (__heapified->val)->n_info.n_xstr.xst_str._ms._e, (void *)(__heapified->val)->n_info.n_xstr.xst_str._p, sizeof(char ), sizeof(char ), 1, 0); #line 137 (*((__heapified->val)->n_info.n_xstr.xst_str._p)) = 0; #line 138 CHECK_NULL((void *)__heapified); #line 138 CHECK_NULL((void *)__heapified->val); #line 138 (__heapified->val)->n_info.n_xstr.xst_type = 0; #line 139 __cil_tmp14 = oldstk; #line 139 __cil_tmp14_b25 = oldstk_b19; #line 139 __cil_tmp14_e26 = oldstk_e20; #line 139 CHECK_STOREPTR((void *)(& xlstack_qss), __cil_tmp14_b25, (void *)(& ___first_local)); #line 139 xlstack_qss._ms._e = __cil_tmp14_e26; #line 139 xlstack_qss._ms._b = __cil_tmp14_b25; #line 139 xlstack_qss._p = __cil_tmp14; #line 140 CHECK_NULL((void *)__heapified); #line 140 __retres = (NODE */* */)__heapified->val; #line 131 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 140 wrapperFree((void *)__heapified); #line 131 return (__retres); } } #line 144 NODE * newobject(NODE * cls , int size ) ; #line 144 "xldmem.c" NODE * newobject(NODE * cls , int size ) { int volatile ___first_local ; NODE * val ; NODE * __retres ; NODE * __cil_tmp5 ; { #line 150 __retres = (NODE */* */)0; #line 150 val = (NODE */* */)0; #line 147 __cil_tmp5 = newvector(size + 1); #line 147 val = (NODE */* */)__cil_tmp5; #line 148 CHECK_NULL((void *)val); #line 148 CHECK_FSEQ2SAFE(val->n_info.n_xvect.xv_data._ms._e, (void *)val->n_info.n_xvect.xv_data._p, sizeof(struct node */* */), sizeof(struct node */* */), 1, 0); #line 148 CHECK_STOREPTR((void *)val->n_info.n_xvect.xv_data._p, (void *)((struct node */* */)cls), (void *)(& ___first_local)); #line 148 (*(val->n_info.n_xvect.xv_data._p)) = (struct node */* */)cls; #line 149 CHECK_NULL((void *)val); #line 149 val->n_type = 7; #line 150 __retres = (NODE */* */)val; #line 144 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 144 return (__retres); } } extern unsigned int ( __attribute__((__cdecl__)) /*18*/calloc)(size_t __nmemb , size_t __size ) ; #line 181 "xldmem.c" struct heapified___33 { NODE * vect __HEAPIFY ; }; #line 172 "xldmem.c" static char __string32[26] = #line 172 { 'i', 'n', 's', 'u', 'f', 'f', 'i', 'c', 'i', 'e', 'n', 't', ' ', 'v', 'e', 'c', 't', 'o', 'r', ' ', 's', 'p', 'a', 'c', 'e', '\000'}; #line 154 NODE * newvector(int size ) ; #line 154 "xldmem.c" NODE * newvector(int size ) { int volatile ___first_local ; struct node * * * __SEQ oldstk ; int bsize ; NODE * __retres ; struct heapified___33 * __heapified ; struct heapified___33 * __cil_tmp9 ; struct heapified___33 * __cil_tmp10 ; struct seq_p_p_s_node __cil_tmp11 ; struct node * * * __SEQ __cil_tmp12 ; NODE * __cil_tmp13 ; struct node * * __FSEQ __cil_tmp15 ; struct node * * __FSEQ __cil_tmp16 ; unsigned int __cil_tmp17 ; struct node * * __FSEQ __cil_tmp18 ; struct node * * __FSEQ __cil_tmp19 ; struct node * * __FSEQ __cil_tmp20 ; unsigned int __cil_tmp21 ; struct node * * __FSEQ __cil_tmp22 ; char * __FSEQ __cil_tmp23 ; struct node * * * __SEQ __cil_tmp24 ; void *oldstk_b33 ; void *oldstk_e34 ; void *__cil_tmp12_b35 ; void *__cil_tmp12_e36 ; void *__cil_tmp15_e37 ; void *__cil_tmp18_e38 ; void *__cil_tmp19_e39 ; void *__cil_tmp22_e40 ; void *__cil_tmp23_e41 ; void *__cil_tmp24_b42 ; void *__cil_tmp24_e43 ; { #line 181 __heapified = (struct heapified___33 */* */)0; #line 181 __retres = (NODE */* */)0; #line 181 oldstk_e34 = (void *)0; #line 181 oldstk_b33 = (void *)0; #line 181 oldstk = (struct node * * */* __SEQ */)0; #line 181 __cil_tmp10 = (struct heapified___33 */* */)wrapperAlloc(((sizeof((*__heapified)) + 3U) >> 2) << 2); #line 181 if (__cil_tmp10) { #line 181 __cil_tmp9 = __cil_tmp10; #line 181 CHECK_POSITIVE((int )(((sizeof((*__heapified)) + 3U) >> 2) << 2) - (int )sizeof(struct heapified___33 )); #line 181 __cil_tmp10->vect = (NODE */* */)0; } else { #line 181 __cil_tmp9 = 0; } #line 181 __heapified = __cil_tmp9; #line 160 __cil_tmp11 = xlsave1_qssss((NODE * */* */)(& __heapified->vect)); #line 160 __cil_tmp12 = __cil_tmp11._p; #line 160 __cil_tmp12_b35 = __cil_tmp11._ms._b; #line 160 __cil_tmp12_e36 = __cil_tmp11._ms._e; #line 160 oldstk_e34 = __cil_tmp12_e36; #line 160 oldstk_b33 = __cil_tmp12_b35; #line 160 oldstk = __cil_tmp12; #line 163 __cil_tmp13 = newnode___2(10); #line 163 CHECK_NULL((void *)__heapified); #line 163 CHECK_STOREPTR((void *)(& __heapified->vect), (void *)((NODE */* */)__cil_tmp13), (void *)(& ___first_local)); #line 163 __heapified->vect = (NODE */* */)__cil_tmp13; #line 164 CHECK_NULL((void *)__heapified); #line 164 CHECK_NULL((void *)__heapified->vect); #line 164 (__heapified->vect)->n_info.n_xvect.xv_size = 0; #line 168 bsize = (int )((unsigned int )size * sizeof((*((__heapified->vect)->n_info.n_xvect.xv_data._p)))); #line 169 __cil_tmp16 = (struct node * */* __FSEQ */)/*18*/calloc(1, (((unsigned int )(1U * (unsigned int )bsize) + 3U) >> 2) << 2); #line 169 if (__cil_tmp16) { #line 169 __cil_tmp15 = __cil_tmp16; #line 169 __cil_tmp17 = (unsigned int )__cil_tmp16 + ((((unsigned int )(1U * (unsigned int )bsize) + 3U) >> 2) << 2); #line 169 __cil_tmp16 = (struct node * */* __FSEQ */)__cil_tmp17; #line 169 __cil_tmp15_e37 = __cil_tmp16; } else { #line 169 __cil_tmp15 = 0; #line 169 __cil_tmp15_e37 = (void *)0; } #line 169 CHECK_NULL((void *)__heapified); #line 169 CHECK_NULL((void *)__heapified->vect); #line 169 __cil_tmp18 = __cil_tmp15; #line 169 __cil_tmp18_e38 = __cil_tmp15_e37; #line 169 CHECK_STOREPTR((void *)(& (__heapified->vect)->n_info.n_xvect.xv_data), __cil_tmp18_e38, (void *)(& ___first_local)); #line 169 (__heapified->vect)->n_info.n_xvect.xv_data._ms._e = __cil_tmp18_e38; #line 169 (__heapified->vect)->n_info.n_xvect.xv_data._p = __cil_tmp18; #line 169 CHECK_NULL((void *)__heapified); #line 169 CHECK_NULL((void *)__heapified->vect); #line 169 if ((unsigned int )(__heapified->vect)->n_info.n_xvect.xv_data._p == 0) { #line 170 findmem(); #line 171 __cil_tmp20 = (struct node * */* __FSEQ */)/*18*/calloc(1, (((unsigned int )(1U * (unsigned int )bsize) + 3U) >> 2) << 2); #line 171 if (__cil_tmp20) { #line 171 __cil_tmp19 = __cil_tmp20; #line 171 __cil_tmp21 = (unsigned int )__cil_tmp20 + ((((unsigned int )(1U * (unsigned int )bsize) + 3U) >> 2) << 2); #line 171 __cil_tmp20 = (struct node * */* __FSEQ */)__cil_tmp21; #line 171 __cil_tmp19_e39 = __cil_tmp20; } else { #line 171 __cil_tmp19 = 0; #line 171 __cil_tmp19_e39 = (void *)0; } #line 171 CHECK_NULL((void *)__heapified); #line 171 CHECK_NULL((void *)__heapified->vect); #line 171 __cil_tmp22 = __cil_tmp19; #line 171 __cil_tmp22_e40 = __cil_tmp19_e39; #line 171 CHECK_STOREPTR((void *)(& (__heapified->vect)->n_info.n_xvect.xv_data), __cil_tmp22_e40, (void *)(& ___first_local)); #line 171 (__heapified->vect)->n_info.n_xvect.xv_data._ms._e = __cil_tmp22_e40; #line 171 (__heapified->vect)->n_info.n_xvect.xv_data._p = __cil_tmp22; #line 171 CHECK_NULL((void *)__heapified); #line 171 CHECK_NULL((void *)__heapified->vect); #line 171 if ((unsigned int )(__heapified->vect)->n_info.n_xvect.xv_data._p == 0) { #line 172 __cil_tmp23 = (char */* __FSEQ */)(& __string32[0]); #line 172 __cil_tmp23_e41 = & __string32[0] + 26; #line 172 xlfail_f(__cil_tmp23, __cil_tmp23_e41); } } #line 174 CHECK_NULL((void *)__heapified); #line 174 CHECK_NULL((void *)__heapified->vect); #line 174 (__heapified->vect)->n_info.n_xvect.xv_size = size; #line 175 total = total + (long )bsize; #line 178 __cil_tmp24 = oldstk; #line 178 __cil_tmp24_b42 = oldstk_b33; #line 178 __cil_tmp24_e43 = oldstk_e34; #line 178 CHECK_STOREPTR((void *)(& xlstack_qss), __cil_tmp24_b42, (void *)(& ___first_local)); #line 178 xlstack_qss._ms._e = __cil_tmp24_e43; #line 178 xlstack_qss._ms._b = __cil_tmp24_b42; #line 178 xlstack_qss._p = __cil_tmp24; #line 181 CHECK_NULL((void *)__heapified); #line 181 __retres = (NODE */* */)__heapified->vect; #line 154 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 181 wrapperFree((void *)__heapified); #line 154 return (__retres); } } #line 193 "xldmem.c" static char __string33[24] = #line 193 { 'i', 'n', 's', 'u', 'f', 'f', 'i', 'c', 'i', 'e', 'n', 't', ' ', 'n', 'o', 'd', 'e', ' ', 's', 'p', 'a', 'c', 'e', '\000'}; #line 185 static NODE * newnode___2(int type ) ; #line 185 "xldmem.c" static NODE * newnode___2(int type ) { int volatile ___first_local ; NODE * nnode ; NODE * __retres ; char * __FSEQ __cil_tmp4 ; void *__cil_tmp4_e7 ; { #line 205 __retres = (NODE */* */)0; #line 205 nnode = (NODE */* */)0; #line 190 nnode = (NODE */* */)fnodes; #line 190 if ((unsigned int )nnode == 0) { #line 191 findmem(); #line 192 nnode = (NODE */* */)fnodes; #line 192 if ((unsigned int )nnode == 0) { #line 193 __cil_tmp4 = (char */* __FSEQ */)(& __string33[0]); #line 193 __cil_tmp4_e7 = & __string33[0] + 24; #line 193 xlabort_f(__cil_tmp4, __cil_tmp4_e7); } } #line 197 CHECK_NULL((void *)nnode); #line 197 CHECK_STOREPTR((void *)(& fnodes), (void *)((NODE */* */)nnode->n_info.__annonCompField1.n_xlist.xl_cdr), (void *)(& ___first_local)); #line 197 fnodes = (NODE */* */)nnode->n_info.__annonCompField1.n_xlist.xl_cdr; #line 198 nfree = nfree - 1; #line 201 CHECK_NULL((void *)nnode); #line 201 nnode->n_type = (char )type; #line 202 CHECK_NULL((void *)nnode); #line 202 CHECK_STOREPTR((void *)(& nnode->n_info.__annonCompField1.n_xlist.xl_cdr), (void *)((struct node */* */)0), (void *)(& ___first_local)); #line 202 nnode->n_info.__annonCompField1.n_xlist.xl_cdr = (struct node */* */)0; #line 205 __retres = (NODE */* */)nnode; #line 185 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 185 return (__retres); } } #line 217 "xldmem.c" static char __string34[26] = #line 217 { 'i', 'n', 's', 'u', 'f', 'f', 'i', 'c', 'i', 'e', 'n', 't', ' ', 's', 't', 'r', 'i', 'n', 'g', ' ', 's', 'p', 'a', 'c', 'e', '\000'}; #line 209 static struct seq_char stralloc___2_q(int size ) ; #line 209 "xldmem.c" static struct seq_char stralloc___2_q(int size ) { int volatile ___first_local ; char * __SEQ sptr ; char * __SEQ __retres ; char * __SEQ __cil_tmp4 ; char * __SEQ __cil_tmp5 ; unsigned int __cil_tmp6 ; char * __SEQ __cil_tmp7 ; char * __SEQ __cil_tmp8 ; char * __SEQ __cil_tmp9 ; unsigned int __cil_tmp10 ; char * __SEQ __cil_tmp11 ; char * __FSEQ __cil_tmp12 ; char * __SEQ __cil_tmp13 ; struct seq_char __cil_tmp14 ; void *sptr_b24 ; void *sptr_e25 ; void *__retres_b26 ; void *__retres_e27 ; void *__cil_tmp4_b28 ; void *__cil_tmp4_e29 ; void *__cil_tmp7_b30 ; void *__cil_tmp7_e31 ; void *__cil_tmp8_b32 ; void *__cil_tmp8_e33 ; void *__cil_tmp11_b34 ; void *__cil_tmp11_e35 ; void *__cil_tmp12_e36 ; void *__cil_tmp13_b37 ; void *__cil_tmp13_e38 ; { #line 222 __retres_e27 = (void *)0; #line 222 __retres_b26 = (void *)0; #line 222 __retres = (char */* __SEQ */)0; #line 222 sptr_e25 = (void *)0; #line 222 sptr_b24 = (void *)0; #line 222 sptr = (char */* __SEQ */)0; #line 214 __cil_tmp5 = (char */* __SEQ */)/*17*/malloc((((unsigned int )(size + 1) + 3U) >> 2) << 2); #line 214 if (__cil_tmp5) { #line 214 __cil_tmp4 = __cil_tmp5; #line 214 __cil_tmp4_b28 = (void *)__cil_tmp5; #line 214 __cil_tmp6 = (unsigned int )__cil_tmp5 + ((((unsigned int )(size + 1) + 3U) >> 2) << 2); #line 214 __cil_tmp5 = (char */* __SEQ */)__cil_tmp6; #line 214 __cil_tmp4_e29 = __cil_tmp5; } else { #line 214 __cil_tmp4 = 0; #line 214 __cil_tmp4_b28 = (void *)0; #line 214 __cil_tmp4_e29 = (void *)0; } #line 214 __cil_tmp7 = __cil_tmp4; #line 214 __cil_tmp7_b30 = __cil_tmp4_b28; #line 214 __cil_tmp7_e31 = __cil_tmp4_e29; #line 214 sptr_e25 = __cil_tmp7_e31; #line 214 sptr_b24 = __cil_tmp7_b30; #line 214 sptr = __cil_tmp7; #line 214 if ((unsigned int )sptr == 0) { #line 215 findmem(); #line 216 __cil_tmp9 = (char */* __SEQ */)/*17*/malloc((((unsigned int )(size + 1) + 3U) >> 2) << 2); #line 216 if (__cil_tmp9) { #line 216 __cil_tmp8 = __cil_tmp9; #line 216 __cil_tmp8_b32 = (void *)__cil_tmp9; #line 216 __cil_tmp10 = (unsigned int )__cil_tmp9 + ((((unsigned int )(size + 1) + 3U) >> 2) << 2); #line 216 __cil_tmp9 = (char */* __SEQ */)__cil_tmp10; #line 216 __cil_tmp8_e33 = __cil_tmp9; } else { #line 216 __cil_tmp8 = 0; #line 216 __cil_tmp8_b32 = (void *)0; #line 216 __cil_tmp8_e33 = (void *)0; } #line 216 __cil_tmp11 = __cil_tmp8; #line 216 __cil_tmp11_b34 = __cil_tmp8_b32; #line 216 __cil_tmp11_e35 = __cil_tmp8_e33; #line 216 sptr_e25 = __cil_tmp11_e35; #line 216 sptr_b24 = __cil_tmp11_b34; #line 216 sptr = __cil_tmp11; #line 216 if ((unsigned int )sptr == 0) { #line 217 __cil_tmp12 = (char */* __FSEQ */)(& __string34[0]); #line 217 __cil_tmp12_e36 = & __string34[0] + 26; #line 217 xlfail_f(__cil_tmp12, __cil_tmp12_e36); } } #line 219 total = total + (long )(size + 1); #line 222 __cil_tmp13 = sptr; #line 222 __cil_tmp13_b37 = sptr_b24; #line 222 __cil_tmp13_e38 = sptr_e25; #line 222 __retres_e27 = __cil_tmp13_e38; #line 222 __retres_b26 = __cil_tmp13_b37; #line 222 __retres = __cil_tmp13; #line 209 __cil_tmp14._p = __retres; #line 209 __cil_tmp14._ms._b = __retres_b26; #line 209 __cil_tmp14._ms._e = __retres_e27; #line 209 CHECK_RETURNPTR(__cil_tmp14._ms._e, (void *)(& ___first_local)); #line 209 return (__cil_tmp14); } } __inline static unsigned int /*22*/strlen_wrapper_f(char * __FSEQ s , void *s_e ) ; #line 226 static struct seq_char strsave___2_qf(char * __FSEQ str , void *str_e ) ; #line 226 "xldmem.c" static struct seq_char strsave___2_qf(char * __FSEQ str , void *str_e ) { int volatile ___first_local ; char * __SEQ sptr ; int tmp ; char * __SEQ __retres ; char * __FSEQ __cil_tmp5 ; unsigned int __cil_tmp6 ; struct seq_char __cil_tmp7 ; char * __SEQ __cil_tmp8 ; char * __FSEQ __cil_tmp9 ; char * __FSEQ __cil_tmp10 ; char * __SEQ __cil_tmp11 ; struct seq_char __cil_tmp12 ; void *sptr_b23 ; void *sptr_e24 ; void *__retres_b25 ; void *__retres_e26 ; void *__cil_tmp5_e27 ; void *__cil_tmp8_b28 ; void *__cil_tmp8_e29 ; void *__cil_tmp9_e30 ; void *__cil_tmp10_e31 ; void *__cil_tmp11_b32 ; void *__cil_tmp11_e33 ; { #line 235 __retres_e26 = (void *)0; #line 235 __retres_b25 = (void *)0; #line 235 __retres = (char */* __SEQ */)0; #line 235 sptr_e24 = (void *)0; #line 235 sptr_b23 = (void *)0; #line 235 sptr = (char */* __SEQ */)0; #line 231 __cil_tmp5 = str; #line 231 __cil_tmp5_e27 = str_e; #line 231 __cil_tmp6 = /*22*/strlen_wrapper_f(__cil_tmp5, __cil_tmp5_e27); #line 231 tmp = (int )__cil_tmp6; #line 231 __cil_tmp7 = stralloc___2_q(tmp); #line 231 __cil_tmp8 = __cil_tmp7._p; #line 231 __cil_tmp8_b28 = __cil_tmp7._ms._b; #line 231 __cil_tmp8_e29 = __cil_tmp7._ms._e; #line 231 sptr_e24 = __cil_tmp8_e29; #line 231 sptr_b23 = __cil_tmp8_b28; #line 231 sptr = __cil_tmp8; #line 232 CHECK_SEQ2FSEQ(sptr_b23, sptr_e24, (void *)sptr); #line 232 __cil_tmp9 = (char */* __FSEQ */)sptr; #line 232 __cil_tmp9_e30 = sptr_e24; #line 232 __cil_tmp10 = str; #line 232 __cil_tmp10_e31 = str_e; #line 232 /*9*/strcpy_wrapper_sff(__cil_tmp9, __cil_tmp9_e30, __cil_tmp10, __cil_tmp10_e31); #line 235 __cil_tmp11 = sptr; #line 235 __cil_tmp11_b32 = sptr_b23; #line 235 __cil_tmp11_e33 = sptr_e24; #line 235 __retres_e26 = __cil_tmp11_e33; #line 235 __retres_b25 = __cil_tmp11_b32; #line 235 __retres = __cil_tmp11; #line 226 __cil_tmp12._p = __retres; #line 226 __cil_tmp12._ms._b = __retres_b25; #line 226 __cil_tmp12._ms._e = __retres_e26; #line 226 CHECK_RETURNPTR(__cil_tmp12._ms._e, (void *)(& ___first_local)); #line 226 return (__cil_tmp12); } } #line 240 void findmem(void) ; #line 240 "xldmem.c" void findmem(void) { { #line 242 gc(); #line 243 if (nfree < anodes) { #line 244 addseg(); } #line 240 return; } } #line 268 "xldmem.c" struct meta_fseqp_p_p_NODE { void *_e ; } ; #line 251 void gc(void) ; #line 251 "xldmem.c" void gc(void) { NODE * * * __FSEQ p ; NODE * * * tmp ; NODE * * * __FSEQ __cil_tmp3 ; NODE * * * __FSEQ __cil_tmp4 ; void *p_e8 ; void *__cil_tmp3_e9 ; void *__cil_tmp4_e10 ; { #line 268 tmp = (NODE * * */* */)0; #line 268 p_e8 = (void *)0; #line 268 p = (NODE * * */* __FSEQ */)0; #line 256 mark((NODE */* */)obarray); #line 257 mark((NODE */* */)xlenv); #line 260 CHECK_SEQ2FSEQ(xlstack_qss._ms._b, xlstack_qss._ms._e, (void *)xlstack_qss._p); #line 260 __cil_tmp3 = (NODE * * */* __FSEQ */)xlstack_qss._p; #line 260 __cil_tmp3_e9 = xlstack_qss._ms._e; #line 260 p_e8 = __cil_tmp3_e9; #line 260 p = __cil_tmp3; #line 260 while ((unsigned int )p < (unsigned int )xlstktop_qss._p) { #line 261 CHECK_FSEQ2SAFE(p_e8, (void *)p, sizeof(NODE * */* */), sizeof(NODE * */* */), 0, 0); #line 261 tmp = (NODE * * */* */)p; #line 261 CHECK_FSEQARITH((void *)p, sizeof(NODE * */* */), (void *)(p + 1)); #line 261 __cil_tmp4 = p + 1; #line 261 __cil_tmp4_e10 = p_e8; #line 261 p_e8 = __cil_tmp4_e10; #line 261 p = __cil_tmp4; #line 261 CHECK_NULL((void *)tmp); #line 261 CHECK_NULL((void *)(*tmp)); #line 261 mark((NODE */* */)(*((*tmp)))); } #line 264 sweep___2(); #line 267 gccalls = gccalls + 1; #line 251 return; } } #line 271 void mark(NODE * ptr ) ; #line 271 "xldmem.c" void mark(NODE * ptr ) { int volatile ___first_local ; NODE * this ; NODE * prev ; NODE * tmp ; int tmp___0 ; int tmp___1 ; int tmp___2 ; int __a_local ; int __cil_tmp9 ; int __cil_tmp10 ; int __cil_tmp12 ; { #line 271 tmp = (NODE */* */)0; #line 271 prev = (NODE */* */)0; #line 271 this = (NODE */* */)0; #line 271 if ((unsigned int )(& __a_local) <= ___stack_threshhold) { #line 271 ___stack_overflow(); } { #line 276 if ((unsigned int )ptr == 0) { #line 277 return; } #line 280 prev = (NODE */* */)0; #line 281 this = (NODE */* */)ptr; #line 284 while (1) { #line 287 while (1) { #line 290 CHECK_NULL((void *)this); #line 290 if ((int )this->n_flags & 1) { #line 291 break; } else { #line 297 CHECK_NULL((void *)this); #line 297 CHECK_NULL((void *)this); #line 297 this->n_flags = (char )((int )this->n_flags | 1); #line 300 __cil_tmp9 = livecar___2((NODE */* */)this); #line 300 tmp___1 = __cil_tmp9; #line 300 if (tmp___1) { #line 301 CHECK_NULL((void *)this); #line 301 CHECK_NULL((void *)this); #line 301 this->n_flags = (char )((int )this->n_flags | 2); #line 302 tmp = (NODE */* */)prev; #line 303 prev = (NODE */* */)this; #line 304 CHECK_NULL((void *)prev); #line 304 this = (NODE */* */)prev->n_info.__annonCompField1.n_xlist.xl_car; #line 305 CHECK_NULL((void *)prev); #line 305 CHECK_STOREPTR((void *)(& prev->n_info.__annonCompField1.n_xlist.xl_car), (void *)((struct node */* */)tmp), (void *)(& ___first_local)); #line 305 prev->n_info.__annonCompField1.n_xlist.xl_car = (struct node */* */)tmp; } else { #line 309 __cil_tmp10 = livecdr___2((NODE */* */)this); #line 309 tmp___0 = __cil_tmp10; #line 309 if (tmp___0) { #line 310 CHECK_NULL((void *)this); #line 310 CHECK_NULL((void *)this); #line 310 this->n_flags = (char )((int )this->n_flags & -3); #line 311 tmp = (NODE */* */)prev; #line 312 prev = (NODE */* */)this; #line 313 CHECK_NULL((void *)prev); #line 313 this = (NODE */* */)prev->n_info.__annonCompField1.n_xlist.xl_cdr; #line 314 CHECK_NULL((void *)prev); #line 314 CHECK_STOREPTR((void *)(& prev->n_info.__annonCompField1.n_xlist.xl_cdr), (void *)((struct node */* */)tmp), (void *)(& ___first_local)); #line 314 prev->n_info.__annonCompField1.n_xlist.xl_cdr = (struct node */* */)tmp; } else { #line 317 break; } } } } #line 322 while (1) { #line 325 if ((unsigned int )prev == 0) { #line 326 return; } #line 329 CHECK_NULL((void *)prev); #line 329 if ((int )prev->n_flags & 2) { #line 330 __cil_tmp12 = livecdr___2((NODE */* */)prev); #line 330 tmp___2 = __cil_tmp12; #line 330 if (tmp___2) { #line 331 CHECK_NULL((void *)prev); #line 331 CHECK_NULL((void *)prev); #line 331 prev->n_flags = (char )((int )prev->n_flags & -3); #line 332 CHECK_NULL((void *)prev); #line 332 tmp = (NODE */* */)prev->n_info.__annonCompField1.n_xlist.xl_car; #line 333 CHECK_NULL((void *)prev); #line 333 CHECK_STOREPTR((void *)(& prev->n_info.__annonCompField1.n_xlist.xl_car), (void *)((struct node */* */)this), (void *)(& ___first_local)); #line 333 prev->n_info.__annonCompField1.n_xlist.xl_car = (struct node */* */)this; #line 334 CHECK_NULL((void *)prev); #line 334 this = (NODE */* */)prev->n_info.__annonCompField1.n_xlist.xl_cdr; #line 335 CHECK_NULL((void *)prev); #line 335 CHECK_STOREPTR((void *)(& prev->n_info.__annonCompField1.n_xlist.xl_cdr), (void *)((struct node */* */)tmp), (void *)(& ___first_local)); #line 335 prev->n_info.__annonCompField1.n_xlist.xl_cdr = (struct node */* */)tmp; #line 336 break; } else { #line 339 tmp = (NODE */* */)prev; #line 340 CHECK_NULL((void *)tmp); #line 340 prev = (NODE */* */)tmp->n_info.__annonCompField1.n_xlist.xl_car; #line 341 CHECK_NULL((void *)tmp); #line 341 CHECK_STOREPTR((void *)(& tmp->n_info.__annonCompField1.n_xlist.xl_car), (void *)((struct node */* */)this), (void *)(& ___first_local)); #line 341 tmp->n_info.__annonCompField1.n_xlist.xl_car = (struct node */* */)this; #line 342 this = (NODE */* */)tmp; } } else { #line 347 tmp = (NODE */* */)prev; #line 348 CHECK_NULL((void *)tmp); #line 348 prev = (NODE */* */)tmp->n_info.__annonCompField1.n_xlist.xl_cdr; #line 349 CHECK_NULL((void *)tmp); #line 349 CHECK_STOREPTR((void *)(& tmp->n_info.__annonCompField1.n_xlist.xl_cdr), (void *)((struct node */* */)this), (void *)(& ___first_local)); #line 349 tmp->n_info.__annonCompField1.n_xlist.xl_cdr = (struct node */* */)this; #line 350 this = (NODE */* */)tmp; } } } #line 354 return; } #line 271 return; } } #line 357 void vmark(NODE * n ) ; #line 357 "xldmem.c" void vmark(NODE * n ) { int i ; { #line 360 i = 0; #line 360 while (1) { #line 360 CHECK_NULL((void *)n); #line 360 if (! (i < n->n_info.n_xvect.xv_size)) { #line 360 break; } #line 361 CHECK_NULL((void *)n); #line 361 CHECK_FSEQARITH2SAFE((void *)n->n_info.n_xvect.xv_data._p, n->n_info.n_xvect.xv_data._ms._e, (void *)(n->n_info.n_xvect.xv_data._p + i), sizeof(struct node */* */), sizeof(struct node */* */), 1, 0); #line 361 mark((NODE */* */)(*(n->n_info.n_xvect.xv_data._p + i))); #line 360 i = i + 1; } #line 357 return; } } struct meta_seq_void { void *_b ; void *_e ; } ; void /*25*/free_wrapper_q(void * __SEQ x , void *x_b , void *x_e ) ; __inline static int /*26*/fclose_wrapper(FILE * f ) ; struct meta_fseqp_void { void *_e ; } ; void /*27*/free_wrapper_f(void * __FSEQ x , void *x_e ) ; #line 409 "xldmem.c" struct meta_fseqp_NODE { void *_e ; } ; #line 365 static void sweep___2(void) ; #line 365 "xldmem.c" static void sweep___2(void) { int volatile ___first_local ; struct segment * seg ; NODE * __FSEQ p ; int n ; size_t tmp ; int tmp___0 ; void *__cil_tmp7 ; NODE * __FSEQ __cil_tmp8 ; char * __FSEQ __cil_tmp9 ; unsigned int __cil_tmp10 ; void * __SEQ __cil_tmp11 ; void * __FSEQ __cil_tmp12 ; NODE * __FSEQ __cil_tmp13 ; void *p_e20 ; void *__cil_tmp8_e21 ; void *__cil_tmp9_e22 ; void *__cil_tmp11_b23 ; void *__cil_tmp11_e24 ; void *__cil_tmp12_e25 ; void *__cil_tmp13_e26 ; { #line 409 p_e20 = (void *)0; #line 409 p = (NODE */* __FSEQ */)0; #line 409 seg = (struct segment */* */)0; #line 372 CHECK_STOREPTR((void *)(& fnodes), (void *)((NODE */* */)0), (void *)(& ___first_local)); #line 372 fnodes = (NODE */* */)0; #line 373 nfree = 0; #line 376 seg = (struct segment */* */)segs; #line 376 while ((unsigned int )seg != 0) { #line 377 CHECK_NULL((void *)seg); #line 377 __cil_tmp7 = CHECK_FETCH_INDEX_END((void *)(& seg->sg_nodes._array[0]), (void *)(seg->sg_nodes._array), 0); #line 377 CHECK_SEQ2FSEQ((void *)(seg->sg_nodes._array), __cil_tmp7, (void *)(& seg->sg_nodes._array[0])); #line 377 __cil_tmp8 = (NODE */* __FSEQ */)(& seg->sg_nodes._array[0]); #line 377 __cil_tmp8_e21 = __cil_tmp7; #line 377 p_e20 = __cil_tmp8_e21; #line 377 p = __cil_tmp8; #line 378 CHECK_NULL((void *)seg); #line 378 n = seg->sg_size; #line 378 while (1) { #line 378 tmp___0 = n; #line 378 n = n - 1; #line 378 if (! tmp___0) { #line 378 break; } #line 379 CHECK_FSEQ2SAFE(p_e20, (void *)p, sizeof(NODE ), sizeof(NODE ), 1, 0); #line 379 if (! ((int )p->n_flags & 1)) { #line 380 CHECK_FSEQ2SAFE(p_e20, (void *)p, sizeof(NODE ), sizeof(NODE ), 1, 0); #line 380 switch ((int )p->n_type) { case 6: #line 382 CHECK_FSEQ2SAFE(p_e20, (void *)p, sizeof(NODE ), sizeof(NODE ), 1, 0); #line 382 if (p->n_info.n_xstr.xst_type == 0) { #line 382 CHECK_FSEQ2SAFE(p_e20, (void *)p, sizeof(NODE ), sizeof(NODE ), 1, 0); #line 382 if ((unsigned int )p->n_info.n_xstr.xst_str._p != 0) { #line 383 CHECK_FSEQ2SAFE(p_e20, (void *)p, sizeof(NODE ), sizeof(NODE ), 1, 0); #line 383 CHECK_SEQ2FSEQ(p->n_info.n_xstr.xst_str._ms._b, p->n_info.n_xstr.xst_str._ms._e, (void *)p->n_info.n_xstr.xst_str._p); #line 383 __cil_tmp9 = (char */* __FSEQ */)p->n_info.n_xstr.xst_str._p; #line 383 __cil_tmp9_e22 = p->n_info.n_xstr.xst_str._ms._e; #line 383 __cil_tmp10 = /*22*/strlen_wrapper_f(__cil_tmp9, __cil_tmp9_e22); #line 383 tmp = __cil_tmp10; #line 383 total = total - (long )(tmp + 1U); #line 384 CHECK_FSEQ2SAFE(p_e20, (void *)p, sizeof(NODE ), sizeof(NODE ), 1, 0); #line 384 __cil_tmp11 = (void */* __SEQ */)p->n_info.n_xstr.xst_str._p; #line 384 __cil_tmp11_b23 = p->n_info.n_xstr.xst_str._ms._b; #line 384 __cil_tmp11_e24 = p->n_info.n_xstr.xst_str._ms._e; #line 384 /*25*/free_wrapper_q(__cil_tmp11, __cil_tmp11_b23, __cil_tmp11_e24); } } #line 386 break; case 8: #line 388 CHECK_FSEQ2SAFE(p_e20, (void *)p, sizeof(NODE ), sizeof(NODE ), 1, 0); #line 388 if ((int )p->n_info.n_xfptr.xf_fp) { #line 389 CHECK_FSEQ2SAFE(p_e20, (void *)p, sizeof(NODE ), sizeof(NODE ), 1, 0); #line 389 /*26*/fclose_wrapper((FILE */* */)p->n_info.n_xfptr.xf_fp); } #line 390 break; case 10: #line 392 CHECK_FSEQ2SAFE(p_e20, (void *)p, sizeof(NODE ), sizeof(NODE ), 1, 0); #line 392 if (p->n_info.n_xvect.xv_size) { #line 394 CHECK_FSEQ2SAFE(p_e20, (void *)p, sizeof(NODE ), sizeof(NODE ), 1, 0); #line 394 total = total - (long )((unsigned int )p->n_info.n_xvect.xv_size * sizeof((*(p->n_info.n_xvect.xv_data._p)))); #line 395 CHECK_FSEQ2SAFE(p_e20, (void *)p, sizeof(NODE ), sizeof(NODE ), 1, 0); #line 395 __cil_tmp12 = (void */* __FSEQ */)p->n_info.n_xvect.xv_data._p; #line 395 __cil_tmp12_e25 = p->n_info.n_xvect.xv_data._ms._e; #line 395 /*27*/free_wrapper_f(__cil_tmp12, __cil_tmp12_e25); } #line 397 break; } #line 399 CHECK_FSEQ2SAFE(p_e20, (void *)p, sizeof(NODE ), sizeof(NODE ), 1, 0); #line 399 p->n_type = 0; #line 400 CHECK_FSEQ2SAFE(p_e20, (void *)p, sizeof(NODE ), sizeof(NODE ), 1, 0); #line 400 p->n_flags = 0; #line 401 CHECK_FSEQ2SAFE(p_e20, (void *)p, sizeof(NODE ), sizeof(NODE ), 1, 0); #line 401 CHECK_STOREPTR((void *)(& p->n_info.__annonCompField1.n_xlist.xl_car), (void *)((struct node */* */)0), (void *)(& ___first_local)); #line 401 p->n_info.__annonCompField1.n_xlist.xl_car = (struct node */* */)0; #line 402 CHECK_FSEQ2SAFE(p_e20, (void *)p, sizeof(NODE ), sizeof(NODE ), 1, 0); #line 402 CHECK_STOREPTR((void *)(& p->n_info.__annonCompField1.n_xlist.xl_cdr), (void *)((struct node */* */)fnodes), (void *)(& ___first_local)); #line 402 p->n_info.__annonCompField1.n_xlist.xl_cdr = (struct node */* */)fnodes; #line 403 CHECK_FSEQ2SAFE(p_e20, (void *)p, sizeof(NODE ), sizeof(NODE ), 0, 0); #line 403 CHECK_STOREPTR((void *)(& fnodes), (void *)((NODE */* */)p), (void *)(& ___first_local)); #line 403 fnodes = (NODE */* */)p; #line 404 nfree = nfree + 1; } else { #line 407 CHECK_FSEQ2SAFE(p_e20, (void *)p, sizeof(NODE ), sizeof(NODE ), 1, 0); #line 407 CHECK_FSEQ2SAFE(p_e20, (void *)p, sizeof(NODE ), sizeof(NODE ), 1, 0); #line 407 p->n_flags = (char )((int )p->n_flags & -4); } #line 378 CHECK_FSEQARITH((void *)p, sizeof(NODE ), (void *)(p + 1)); #line 378 __cil_tmp13 = p + 1; #line 378 __cil_tmp13_e26 = p_e20; #line 378 p_e20 = __cil_tmp13_e26; #line 378 p = __cil_tmp13; } #line 376 CHECK_NULL((void *)seg); #line 376 seg = (struct segment */* */)seg->sg_next; } #line 365 return; } } #line 412 int addseg(void) ; #line 412 "xldmem.c" int addseg(void) { int volatile ___first_local ; struct segment * newseg ; NODE * __FSEQ p ; int n ; NODE * tmp ; int tmp___0 ; int __retres ; struct segment * __cil_tmp8 ; struct segment * __cil_tmp9 ; void *__cil_tmp12 ; NODE * __FSEQ __cil_tmp13 ; NODE * __FSEQ __cil_tmp14 ; void *p_e18 ; void *__cil_tmp13_e19 ; void *__cil_tmp14_e20 ; { #line 444 tmp = (NODE */* */)0; #line 444 p_e18 = (void *)0; #line 444 p = (NODE */* __FSEQ */)0; #line 444 newseg = (struct segment */* */)0; #line 419 if (anodes == 0) { #line 420 __retres = 0; goto return_label; } #line 423 __cil_tmp9 = (struct segment */* */)/*18*/calloc(1, (((unsigned int )(1U * (sizeof(struct segment ) + (unsigned int )anodes * sizeof(NODE ))) + 3U) >> 2) << 2); #line 423 if (__cil_tmp9) { #line 423 __cil_tmp8 = __cil_tmp9; #line 423 CHECK_POSITIVE((int )((((unsigned int )(1U * (sizeof(struct segment ) + (unsigned int )anodes * sizeof(NODE ))) + 3U) >> 2) << 2) - (int )sizeof(struct segment )); #line 423 __cil_tmp9->sg_nodes._size = ((((unsigned int )__cil_tmp9 + ((((unsigned int )(1U * (sizeof(struct segment ) + (unsigned int )anodes * sizeof(NODE ))) + 3U) >> 2) << 2)) - (unsigned int )(& __cil_tmp9->sg_nodes._array)) + 3U) >> 2; } else { #line 423 __cil_tmp8 = 0; } #line 423 newseg = __cil_tmp8; #line 423 if ((unsigned int )newseg != 0) { #line 426 CHECK_NULL((void *)newseg); #line 426 newseg->sg_size = anodes; #line 427 CHECK_NULL((void *)newseg); #line 427 CHECK_STOREPTR((void *)(& newseg->sg_next), (void *)((struct segment */* */)segs), (void *)(& ___first_local)); #line 427 newseg->sg_next = (struct segment */* */)segs; #line 428 CHECK_STOREPTR((void *)(& segs), (void *)((struct segment */* */)newseg), (void *)(& ___first_local)); #line 428 segs = (struct segment */* */)newseg; #line 431 CHECK_NULL((void *)newseg); #line 431 __cil_tmp12 = CHECK_FETCH_INDEX_END((void *)(& newseg->sg_nodes._array[0]), (void *)(newseg->sg_nodes._array), 0); #line 431 CHECK_SEQ2FSEQ((void *)(newseg->sg_nodes._array), __cil_tmp12, (void *)(& newseg->sg_nodes._array[0])); #line 431 __cil_tmp13 = (NODE */* __FSEQ */)(& newseg->sg_nodes._array[0]); #line 431 __cil_tmp13_e19 = __cil_tmp12; #line 431 p_e18 = __cil_tmp13_e19; #line 431 p = __cil_tmp13; #line 432 n = anodes; #line 432 while (1) { #line 432 tmp___0 = n; #line 432 n = n - 1; #line 432 if (! tmp___0) { #line 432 break; } #line 433 CHECK_FSEQ2SAFE(p_e18, (void *)p, sizeof(NODE ), sizeof(NODE ), 1, 0); #line 433 CHECK_STOREPTR((void *)(& p->n_info.__annonCompField1.n_xlist.xl_cdr), (void *)((struct node */* */)fnodes), (void *)(& ___first_local)); #line 433 p->n_info.__annonCompField1.n_xlist.xl_cdr = (struct node */* */)fnodes; #line 434 CHECK_FSEQ2SAFE(p_e18, (void *)p, sizeof(NODE ), sizeof(NODE ), 0, 0); #line 434 tmp = (NODE */* */)p; #line 434 CHECK_FSEQARITH((void *)p, sizeof(NODE ), (void *)(p + 1)); #line 434 __cil_tmp14 = p + 1; #line 434 __cil_tmp14_e20 = p_e18; #line 434 p_e18 = __cil_tmp14_e20; #line 434 p = __cil_tmp14; #line 434 CHECK_STOREPTR((void *)(& fnodes), (void *)((NODE */* */)tmp), (void *)(& ___first_local)); #line 434 fnodes = (NODE */* */)tmp; } #line 438 total = total + (long )(sizeof(struct segment ) + (unsigned int )anodes * sizeof(NODE )); #line 439 nnodes = nnodes + anodes; #line 440 nfree = nfree + anodes; #line 441 nsegs = nsegs + 1; #line 444 __retres = 1; goto return_label; } else { #line 447 __retres = 0; goto return_label; } return_label: /* CIL Label */ ; #line 412 return (__retres); } } #line 468 "xldmem.c" static char __string35[43] = #line 468 { 'b', 'a', 'd', ' ', 'n', 'o', 'd', 'e', ' ', 't', 'y', 'p', 'e', ' ', '(', '%', 'd', ')', ' ', 'f', 'o', 'u', 'n', 'd', ' ', 'd', 'u', 'r', 'i', 'n', 'g', ' ', 'l', 'e', 'f', 't', ' ', 's', 'c', 'a', 'n', '\n', '\000'}; #line 451 static int livecar___2(NODE * n ) ; #line 451 "xldmem.c" static int livecar___2(NODE * n ) { int __retres ; { #line 453 CHECK_NULL((void *)n); #line 453 switch ((int )n->n_type) { case 7: ; case 10: #line 456 vmark((NODE */* */)n); case 1: ; case 2: ; case 5: ; case 9: ; case 6: ; case 8: #line 463 __retres = 0; goto return_label; case 4: ; case 3: #line 466 CHECK_NULL((void *)n); #line 466 __retres = (unsigned int )n->n_info.__annonCompField1.n_xlist.xl_car != 0; goto return_label; default: #line 468 __ccured_va_count = -1; #line 468 CHECK_NULL((void *)n); #line 468 printf((char */* */)(& __string35[0]), (int )n->n_type); #line 469 osfinish(); #line 470 exit(1); } return_label: /* CIL Label */ ; #line 451 return (__retres); } } #line 492 "xldmem.c" static char __string36[44] = #line 492 { 'b', 'a', 'd', ' ', 'n', 'o', 'd', 'e', ' ', 't', 'y', 'p', 'e', ' ', '(', '%', 'd', ')', ' ', 'f', 'o', 'u', 'n', 'd', ' ', 'd', 'u', 'r', 'i', 'n', 'g', ' ', 'r', 'i', 'g', 'h', 't', ' ', 's', 'c', 'a', 'n', '\n', '\000'}; #line 476 static int livecdr___2(NODE * n ) ; #line 476 "xldmem.c" static int livecdr___2(NODE * n ) { int __retres ; { #line 478 CHECK_NULL((void *)n); #line 478 switch ((int )n->n_type) { case 1: ; case 2: ; case 5: ; case 9: ; case 6: ; case 8: ; case 7: ; case 10: #line 487 __retres = 0; goto return_label; case 4: ; case 3: #line 490 CHECK_NULL((void *)n); #line 490 __retres = (unsigned int )n->n_info.__annonCompField1.n_xlist.xl_cdr != 0; goto return_label; default: #line 492 __ccured_va_count = -1; #line 492 CHECK_NULL((void *)n); #line 492 printf((char */* */)(& __string36[0]), (int )n->n_type); #line 493 osfinish(); #line 494 exit(1); } return_label: /* CIL Label */ ; #line 476 return (__retres); } } #line 502 "xldmem.c" static char __string37[17] = #line 502 { 'N', 'o', 'd', 'e', 's', ':', ' ', ' ', ' ', ' ', ' ', ' ', ' ', '%', 'd', '\n', '\000'}; #line 503 "xldmem.c" static char __string38[17] = #line 503 { 'F', 'r', 'e', 'e', ' ', 'n', 'o', 'd', 'e', 's', ':', ' ', ' ', '%', 'd', '\n', '\000'}; #line 504 "xldmem.c" static char __string39[17] = #line 504 { 'S', 'e', 'g', 'm', 'e', 'n', 't', 's', ':', ' ', ' ', ' ', ' ', '%', 'd', '\n', '\000'}; #line 505 "xldmem.c" static char __string40[17] = #line 505 { 'A', 'l', 'l', 'o', 'c', 'a', 't', 'e', ':', ' ', ' ', ' ', ' ', '%', 'd', '\n', '\000'}; #line 506 "xldmem.c" static char __string41[18] = #line 506 { 'T', 'o', 't', 'a', 'l', ':', ' ', ' ', ' ', ' ', ' ', ' ', ' ', '%', 'l', 'd', '\n', '\000'}; #line 507 "xldmem.c" static char __string42[17] = #line 507 { 'C', 'o', 'l', 'l', 'e', 'c', 't', 'i', 'o', 'n', 's', ':', ' ', '%', 'd', '\n', '\000'}; #line 500 void stats(void) ; #line 500 "xldmem.c" void stats(void) { char * __FSEQ __cil_tmp1 ; char * __FSEQ __cil_tmp2 ; char * __FSEQ __cil_tmp3 ; char * __FSEQ __cil_tmp4 ; char * __FSEQ __cil_tmp5 ; char * __FSEQ __cil_tmp6 ; void *__cil_tmp1_e13 ; void *__cil_tmp2_e14 ; void *__cil_tmp3_e15 ; void *__cil_tmp4_e16 ; void *__cil_tmp5_e17 ; void *__cil_tmp6_e18 ; { #line 502 __ccured_va_count = -1; #line 502 /*10*/sprintf_wrapper((char */* */)(buf), (char */* */)(& __string37[0]), nnodes); #line 502 CHECK_SEQ2FSEQ((void *)(buf), (void *)(buf + 101), (void *)(buf)); #line 502 __cil_tmp1 = (char */* __FSEQ */)(buf); #line 502 __cil_tmp1_e13 = buf + 101; #line 502 stdputstr_f(__cil_tmp1, __cil_tmp1_e13); #line 503 __ccured_va_count = -1; #line 503 /*10*/sprintf_wrapper((char */* */)(buf), (char */* */)(& __string38[0]), nfree); #line 503 CHECK_SEQ2FSEQ((void *)(buf), (void *)(buf + 101), (void *)(buf)); #line 503 __cil_tmp2 = (char */* __FSEQ */)(buf); #line 503 __cil_tmp2_e14 = buf + 101; #line 503 stdputstr_f(__cil_tmp2, __cil_tmp2_e14); #line 504 __ccured_va_count = -1; #line 504 /*10*/sprintf_wrapper((char */* */)(buf), (char */* */)(& __string39[0]), nsegs); #line 504 CHECK_SEQ2FSEQ((void *)(buf), (void *)(buf + 101), (void *)(buf)); #line 504 __cil_tmp3 = (char */* __FSEQ */)(buf); #line 504 __cil_tmp3_e15 = buf + 101; #line 504 stdputstr_f(__cil_tmp3, __cil_tmp3_e15); #line 505 __ccured_va_count = -1; #line 505 /*10*/sprintf_wrapper((char */* */)(buf), (char */* */)(& __string40[0]), anodes); #line 505 CHECK_SEQ2FSEQ((void *)(buf), (void *)(buf + 101), (void *)(buf)); #line 505 __cil_tmp4 = (char */* __FSEQ */)(buf); #line 505 __cil_tmp4_e16 = buf + 101; #line 505 stdputstr_f(__cil_tmp4, __cil_tmp4_e16); #line 506 __ccured_va_count = -1; #line 506 /*10*/sprintf_wrapper((char */* */)(buf), (char */* */)(& __string41[0]), (int )total); #line 506 CHECK_SEQ2FSEQ((void *)(buf), (void *)(buf + 101), (void *)(buf)); #line 506 __cil_tmp5 = (char */* __FSEQ */)(buf); #line 506 __cil_tmp5_e17 = buf + 101; #line 506 stdputstr_f(__cil_tmp5, __cil_tmp5_e17); #line 507 __ccured_va_count = -1; #line 507 /*10*/sprintf_wrapper((char */* */)(buf), (char */* */)(& __string42[0]), gccalls); #line 507 CHECK_SEQ2FSEQ((void *)(buf), (void *)(buf + 101), (void *)(buf)); #line 507 __cil_tmp6 = (char */* __FSEQ */)(buf); #line 507 __cil_tmp6_e18 = buf + 101; #line 507 stdputstr_f(__cil_tmp6, __cil_tmp6_e18); #line 500 return; } } #line 526 "xldmem.c" static char __string43[20] = #line 526 { 'i', 'n', 's', 'u', 'f', 'f', 'i', 'c', 'i', 'e', 'n', 't', ' ', 'm', 'e', 'm', 'o', 'r', 'y', '\000'}; #line 511 void xlminit(void) ; #line 511 "xldmem.c" void xlminit(void) { int volatile ___first_local ; struct node * * * __SEQ __cil_tmp3 ; struct node * * * __SEQ __cil_tmp4 ; unsigned int __cil_tmp5 ; struct node * * * __SEQ __cil_tmp6 ; struct node * * * __SEQ __cil_tmp7 ; struct node * * * __SEQ __cil_tmp8 ; void *__cil_tmp3_b13 ; void *__cil_tmp3_e14 ; void *__cil_tmp6_b15 ; void *__cil_tmp6_e16 ; void *__cil_tmp7_b17 ; void *__cil_tmp7_e18 ; void *__cil_tmp8_b19 ; void *__cil_tmp8_e20 ; { #line 514 anodes = 1000; #line 515 total = 0L; #line 516 gccalls = 0; #line 516 nfree = gccalls; #line 516 nsegs = nfree; #line 516 nnodes = nsegs; #line 517 CHECK_STOREPTR((void *)(& fnodes), (void *)((NODE */* */)0), (void *)(& ___first_local)); #line 517 fnodes = (NODE */* */)0; #line 518 CHECK_STOREPTR((void *)(& segs), (void *)((struct segment */* */)0), (void *)(& ___first_local)); #line 518 segs = (struct segment */* */)0; #line 521 CHECK_STOREPTR((void *)(& obarray), (void *)((NODE */* */)0), (void *)(& ___first_local)); #line 521 obarray = (NODE */* */)0; #line 521 CHECK_STOREPTR((void *)(& xlenv), (void *)((NODE */* */)obarray), (void *)(& ___first_local)); #line 521 xlenv = (NODE */* */)obarray; #line 525 __cil_tmp4 = (struct node * * */* __SEQ */)/*17*/malloc(((1000U * sizeof((*(xlstkbase_qss._p))) + 3U) >> 2) << 2); #line 525 if (__cil_tmp4) { #line 525 __cil_tmp3 = __cil_tmp4; #line 525 __cil_tmp3_b13 = (void *)__cil_tmp4; #line 525 __cil_tmp5 = (unsigned int )__cil_tmp4 + (((1000U * sizeof((*(xlstkbase_qss._p))) + 3U) >> 2) << 2); while ((unsigned int )__cil_tmp4 + sizeof(struct node * */* */) <= __cil_tmp5) { #line 525 (*__cil_tmp4) = (struct node * */* */)0; #line 525 __cil_tmp4 = __cil_tmp4 + 1; } #line 525 __cil_tmp3_e14 = __cil_tmp4; } else { #line 525 __cil_tmp3 = 0; #line 525 __cil_tmp3_b13 = (void *)0; #line 525 __cil_tmp3_e14 = (void *)0; } #line 525 __cil_tmp6 = __cil_tmp3; #line 525 __cil_tmp6_b15 = __cil_tmp3_b13; #line 525 __cil_tmp6_e16 = __cil_tmp3_e14; #line 525 CHECK_STOREPTR((void *)(& xlstkbase_qss), __cil_tmp6_b15, (void *)(& ___first_local)); #line 525 xlstkbase_qss._ms._e = __cil_tmp6_e16; #line 525 xlstkbase_qss._ms._b = __cil_tmp6_b15; #line 525 xlstkbase_qss._p = __cil_tmp6; #line 525 if ((unsigned int )xlstkbase_qss._p == 0) { #line 526 __ccured_va_count = -1; #line 526 printf((char */* */)(& __string43[0])); #line 527 osfinish(); #line 528 exit(1); } #line 531 total = total + (long )(1000U * sizeof((*(xlstkbase_qss._p)))); #line 532 __cil_tmp7 = xlstkbase_qss._p + 1000; #line 532 __cil_tmp7_b17 = xlstkbase_qss._ms._b; #line 532 __cil_tmp7_e18 = xlstkbase_qss._ms._e; #line 532 CHECK_STOREPTR((void *)(& xlstktop_qss), __cil_tmp7_b17, (void *)(& ___first_local)); #line 532 xlstktop_qss._ms._e = __cil_tmp7_e18; #line 532 xlstktop_qss._ms._b = __cil_tmp7_b17; #line 532 xlstktop_qss._p = __cil_tmp7; #line 532 __cil_tmp8 = xlstktop_qss._p; #line 532 __cil_tmp8_b19 = xlstktop_qss._ms._b; #line 532 __cil_tmp8_e20 = xlstktop_qss._ms._e; #line 532 CHECK_STOREPTR((void *)(& xlstack_qss), __cil_tmp8_b19, (void *)(& ___first_local)); #line 532 xlstack_qss._ms._e = __cil_tmp8_e20; #line 532 xlstack_qss._ms._b = __cil_tmp8_b19; #line 532 xlstack_qss._p = __cil_tmp8; #line 511 return; } } #line 104 "proto.h" static NODE * evform___3(NODE * expr ) ; #line 105 static NODE * evalhook___3(NODE * expr ) ; #line 108 static NODE * evfun___3(NODE * fun , NODE * args , NODE * env ) ; #line 110 static int iskeyword___3(NODE * sym ) ; #line 14 "xleval.c" NODE * xleval(NODE * expr ) ; #line 14 "xleval.c" NODE * xleval(NODE * expr ) { int volatile ___first_local ; NODE * tmp ; int __a_local ; NODE * __retres ; NODE * __cil_tmp5 ; NODE * __cil_tmp7 ; NODE * __cil_tmp8 ; { #line 14 __retres = (NODE */* */)0; #line 14 tmp = (NODE */* */)0; #line 14 if ((unsigned int )(& __a_local) <= ___stack_threshhold) { #line 14 ___stack_overflow(); } { #line 17 xlsample = xlsample - 1; #line 17 if (xlsample <= 0) { #line 18 xlsample = 100; #line 19 oscheck(); } #line 23 CHECK_NULL((void *)s_evalhook); #line 23 if ((int )s_evalhook->n_info.__annonCompField1.n_xsym.xsy_value) { #line 24 __cil_tmp5 = evalhook___3((NODE */* */)expr); #line 24 tmp = (NODE */* */)__cil_tmp5; #line 24 CHECK_RETURNPTR((void *)((NODE */* */)tmp), (void *)(& ___first_local)); #line 24 return ((NODE */* */)tmp); } #line 27 xltrace = xltrace + 1; #line 27 if (xltrace < 500) { #line 28 CHECK_FSEQARITH((void *)trace_stack_fs._p, sizeof(struct node */* */), (void *)(trace_stack_fs._p + xltrace)); #line 28 CHECK_FSEQ2SAFE(trace_stack_fs._ms._e, (void *)(trace_stack_fs._p + xltrace), sizeof(struct node */* */), sizeof(struct node */* */), 1, 0); #line 28 CHECK_STOREPTR((void *)(trace_stack_fs._p + xltrace), (void *)((struct node */* */)expr), (void *)(& ___first_local)); #line 28 (*(trace_stack_fs._p + xltrace)) = (struct node */* */)expr; } #line 31 if ((int )expr) { #line 31 CHECK_NULL((void *)expr); #line 31 if ((int )expr->n_type == 3) { #line 32 __cil_tmp8 = evform___3((NODE */* */)expr); #line 32 expr = (NODE */* */)__cil_tmp8; } else { goto _L; } } else { _L: /* CIL Label */ ; #line 33 if ((int )expr) { #line 33 CHECK_NULL((void *)expr); #line 33 if ((int )expr->n_type == 4) { #line 34 __cil_tmp7 = xlgetvalue((NODE */* */)expr); #line 34 expr = (NODE */* */)__cil_tmp7; } } } #line 37 xltrace = xltrace - 1; #line 40 CHECK_RETURNPTR((void *)((NODE */* */)expr), (void *)(& ___first_local)); #line 40 return ((NODE */* */)expr); } #line 14 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 14 return (__retres); } } #line 44 NODE * xlxeval(NODE * expr ) ; #line 44 "xleval.c" NODE * xlxeval(NODE * expr ) { int volatile ___first_local ; NODE * __retres ; NODE * __cil_tmp3 ; NODE * __cil_tmp4 ; { #line 53 __retres = (NODE */* */)0; #line 47 if ((int )expr) { #line 47 CHECK_NULL((void *)expr); #line 47 if ((int )expr->n_type == 3) { #line 48 __cil_tmp4 = evform___3((NODE */* */)expr); #line 48 expr = (NODE */* */)__cil_tmp4; } else { goto _L; } } else { _L: /* CIL Label */ ; #line 49 if ((int )expr) { #line 49 CHECK_NULL((void *)expr); #line 49 if ((int )expr->n_type == 4) { #line 50 __cil_tmp3 = xlgetvalue((NODE */* */)expr); #line 50 expr = (NODE */* */)__cil_tmp3; } } } #line 53 __retres = (NODE */* */)expr; #line 44 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 44 return (__retres); } } #line 63 "xleval.c" static char __string44[13] = #line 63 { 'b', 'a', 'd', ' ', 'f', 'u', 'n', 'c', 't', 'i', 'o', 'n', '\000'}; #line 80 "xleval.c" static char __string45[13] = #line 80 { 'b', 'a', 'd', ' ', 'f', 'u', 'n', 'c', 't', 'i', 'o', 'n', '\000'}; #line 80 "xleval.c" static char __string46[13] = #line 80 { 'b', 'a', 'd', ' ', 'f', 'u', 'n', 'c', 't', 'i', 'o', 'n', '\000'}; #line 76 "xleval.c" static char __string47[18] = #line 76 { 'b', 'a', 'd', ' ', 'f', 'u', 'n', 'c', 't', 'i', 'o', 'n', ' ', 't', 'y', 'p', 'e', '\000'}; #line 57 NODE * xlapply(NODE * fun , NODE * args ) ; #line 57 "xleval.c" NODE * xlapply(NODE * fun , NODE * args ) { int volatile ___first_local ; NODE * env ; NODE * val ; NODE * __retres ; char * __FSEQ __cil_tmp6 ; char * __FSEQ __cil_tmp7 ; char * __FSEQ __cil_tmp8 ; char * __FSEQ __cil_tmp9 ; NODE * __cil_tmp10 ; struct node * __cil_tmp11 ; void *__cil_tmp6_e17 ; void *__cil_tmp7_e18 ; void *__cil_tmp8_e19 ; void *__cil_tmp9_e20 ; { #line 83 __retres = (NODE */* */)0; #line 83 val = (NODE */* */)0; #line 83 env = (NODE */* */)0; #line 62 if ((unsigned int )fun == 0) { #line 63 __cil_tmp6 = (char */* __FSEQ */)(& __string44[0]); #line 63 __cil_tmp6_e17 = & __string44[0] + 13; #line 63 xlfail_f(__cil_tmp6, __cil_tmp6_e17); } #line 66 if ((int )fun) { #line 66 CHECK_NULL((void *)fun); #line 66 if ((int )fun->n_type == 1) { #line 67 CHECK_NULL((void *)fun); #line 67 CHECK_NULL((void *)fun->n_info.n_xsubr.xsu_subr); #line 67 CHECK_NULL((void *)fun->n_info.n_xsubr.xsu_subr); #line 67 __cil_tmp11 = ((*(fun->n_info.n_xsubr.xsu_subr)))((struct node */* */)args); #line 67 val = (NODE */* */)__cil_tmp11; } else { goto _L; } } else { _L: /* CIL Label */ ; #line 68 if ((int )fun) { #line 68 CHECK_NULL((void *)fun); #line 68 if ((int )fun->n_type == 3) { #line 69 CHECK_NULL((void *)fun); #line 69 if ((int )fun->n_info.__annonCompField1.n_xlist.xl_car) { #line 69 CHECK_NULL((void *)fun); #line 69 CHECK_NULL((void *)fun->n_info.__annonCompField1.n_xlist.xl_car); #line 69 if ((int )(fun->n_info.__annonCompField1.n_xlist.xl_car)->n_type == 3) { #line 70 CHECK_NULL((void *)fun); #line 70 env = (NODE */* */)fun->n_info.__annonCompField1.n_xlist.xl_cdr; #line 71 CHECK_NULL((void *)fun); #line 71 fun = (NODE */* */)fun->n_info.__annonCompField1.n_xlist.xl_car; } else { #line 74 env = (NODE */* */)xlenv; } } else { #line 74 env = (NODE */* */)xlenv; } #line 75 CHECK_NULL((void *)fun); #line 75 if ((unsigned int )fun->n_info.__annonCompField1.n_xlist.xl_car != (unsigned int )s_lambda) { #line 76 __cil_tmp9 = (char */* __FSEQ */)(& __string47[0]); #line 76 __cil_tmp9_e20 = & __string47[0] + 18; #line 76 xlfail_f(__cil_tmp9, __cil_tmp9_e20); } #line 77 __cil_tmp10 = evfun___3((NODE */* */)fun, (NODE */* */)args, (NODE */* */)env); #line 77 val = (NODE */* */)__cil_tmp10; } else { #line 80 __cil_tmp8 = (char */* __FSEQ */)(& __string46[0]); #line 80 __cil_tmp8_e19 = & __string46[0] + 13; #line 80 xlfail_f(__cil_tmp8, __cil_tmp8_e19); } } else { #line 80 __cil_tmp7 = (char */* __FSEQ */)(& __string45[0]); #line 80 __cil_tmp7_e18 = & __string45[0] + 13; #line 80 xlfail_f(__cil_tmp7, __cil_tmp7_e18); } } #line 83 __retres = (NODE */* */)val; #line 57 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 57 return (__retres); } } #line 135 "xleval.c" struct heapified___34 { NODE * fun __HEAPIFY ; NODE * args __HEAPIFY ; }; #line 100 "xleval.c" static char __string48[13] = #line 100 { 'b', 'a', 'd', ' ', 'f', 'u', 'n', 'c', 't', 'i', 'o', 'n', '\000'}; #line 129 "xleval.c" static char __string49[13] = #line 129 { 'b', 'a', 'd', ' ', 'f', 'u', 'n', 'c', 't', 'i', 'o', 'n', '\000'}; #line 129 "xleval.c" static char __string50[13] = #line 129 { 'b', 'a', 'd', ' ', 'f', 'u', 'n', 'c', 't', 'i', 'o', 'n', '\000'}; #line 124 "xleval.c" static char __string51[18] = #line 124 { 'b', 'a', 'd', ' ', 'f', 'u', 'n', 'c', 't', 'i', 'o', 'n', ' ', 't', 'y', 'p', 'e', '\000'}; #line 87 static NODE * evform___3(NODE * expr ) ; #line 87 "xleval.c" static NODE * evform___3(NODE * expr ) { int volatile ___first_local ; struct node * * * __SEQ oldstk ; NODE * env ; NODE * val ; NODE * type ; NODE * __retres ; struct heapified___34 * __heapified ; struct heapified___34 * __cil_tmp10 ; struct heapified___34 * __cil_tmp11 ; struct seq_p_p_s_node __cil_tmp12 ; struct node * * * __SEQ __cil_tmp13 ; NODE * __cil_tmp15 ; char * __FSEQ __cil_tmp16 ; char * __FSEQ __cil_tmp17 ; char * __FSEQ __cil_tmp18 ; NODE * __cil_tmp19 ; char * __FSEQ __cil_tmp20 ; NODE * __cil_tmp21 ; NODE * __cil_tmp22 ; NODE * __cil_tmp23 ; NODE * __cil_tmp24 ; NODE * __cil_tmp25 ; struct node * __cil_tmp26 ; struct node * * * __SEQ __cil_tmp27 ; void *oldstk_b35 ; void *oldstk_e36 ; void *__cil_tmp13_b37 ; void *__cil_tmp13_e38 ; void *__cil_tmp16_e39 ; void *__cil_tmp17_e40 ; void *__cil_tmp18_e41 ; void *__cil_tmp20_e42 ; void *__cil_tmp27_b43 ; void *__cil_tmp27_e44 ; { #line 135 __heapified = (struct heapified___34 */* */)0; #line 135 __retres = (NODE */* */)0; #line 135 type = (NODE */* */)0; #line 135 val = (NODE */* */)0; #line 135 env = (NODE */* */)0; #line 135 oldstk_e36 = (void *)0; #line 135 oldstk_b35 = (void *)0; #line 135 oldstk = (struct node * * */* __SEQ */)0; #line 135 __cil_tmp11 = (struct heapified___34 */* */)wrapperAlloc(((sizeof((*__heapified)) + 3U) >> 2) << 2); #line 135 if (__cil_tmp11) { #line 135 __cil_tmp10 = __cil_tmp11; #line 135 CHECK_POSITIVE((int )(((sizeof((*__heapified)) + 3U) >> 2) << 2) - (int )sizeof(struct heapified___34 )); #line 135 __cil_tmp11->args = (NODE */* */)0; #line 135 __cil_tmp11->fun = (NODE */* */)0; } else { #line 135 __cil_tmp10 = 0; } #line 135 __heapified = __cil_tmp10; #line 92 CHECK_NULL((void *)__heapified); #line 92 __cil_tmp12 = xlsave2_qssssss((NODE * */* */)(& __heapified->fun), (NODE * */* */)(& __heapified->args)); #line 92 __cil_tmp13 = __cil_tmp12._p; #line 92 __cil_tmp13_b37 = __cil_tmp12._ms._b; #line 92 __cil_tmp13_e38 = __cil_tmp12._ms._e; #line 92 oldstk_e36 = __cil_tmp13_e38; #line 92 oldstk_b35 = __cil_tmp13_b37; #line 92 oldstk = __cil_tmp13; #line 95 CHECK_NULL((void *)__heapified); #line 95 CHECK_NULL((void *)expr); #line 95 CHECK_STOREPTR((void *)(& __heapified->fun), (void *)((NODE */* */)expr->n_info.__annonCompField1.n_xlist.xl_car), (void *)(& ___first_local)); #line 95 __heapified->fun = (NODE */* */)expr->n_info.__annonCompField1.n_xlist.xl_car; #line 96 CHECK_NULL((void *)__heapified); #line 96 CHECK_NULL((void *)expr); #line 96 CHECK_STOREPTR((void *)(& __heapified->args), (void *)((NODE */* */)expr->n_info.__annonCompField1.n_xlist.xl_cdr), (void *)(& ___first_local)); #line 96 __heapified->args = (NODE */* */)expr->n_info.__annonCompField1.n_xlist.xl_cdr; #line 99 CHECK_NULL((void *)__heapified); #line 99 __cil_tmp15 = xleval((NODE */* */)__heapified->fun); #line 99 CHECK_NULL((void *)__heapified); #line 99 CHECK_STOREPTR((void *)(& __heapified->fun), (void *)((NODE */* */)__cil_tmp15), (void *)(& ___first_local)); #line 99 __heapified->fun = (NODE */* */)__cil_tmp15; #line 99 CHECK_NULL((void *)__heapified); #line 99 if ((unsigned int )__heapified->fun == 0) { #line 100 __cil_tmp16 = (char */* __FSEQ */)(& __string48[0]); #line 100 __cil_tmp16_e39 = & __string48[0] + 13; #line 100 xlfail_f(__cil_tmp16, __cil_tmp16_e39); } #line 103 CHECK_NULL((void *)__heapified); #line 103 if ((int )__heapified->fun) { #line 103 CHECK_NULL((void *)__heapified); #line 103 CHECK_NULL((void *)__heapified->fun); #line 103 if ((int )(__heapified->fun)->n_type == 1) { goto _L___0; } else { goto _L___2; } } else { _L___2: /* CIL Label */ #line 103 CHECK_NULL((void *)__heapified); #line 103 if ((int )__heapified->fun) { #line 103 CHECK_NULL((void *)__heapified); #line 103 CHECK_NULL((void *)__heapified->fun); #line 103 if ((int )(__heapified->fun)->n_type == 2) { _L___0: /* CIL Label */ #line 104 CHECK_NULL((void *)__heapified); #line 104 if ((int )__heapified->fun) { #line 104 CHECK_NULL((void *)__heapified); #line 104 CHECK_NULL((void *)__heapified->fun); #line 104 if ((int )(__heapified->fun)->n_type == 1) { #line 105 CHECK_NULL((void *)__heapified); #line 105 __cil_tmp25 = xlevlist((NODE */* */)__heapified->args); #line 105 CHECK_NULL((void *)__heapified); #line 105 CHECK_STOREPTR((void *)(& __heapified->args), (void *)((NODE */* */)__cil_tmp25), (void *)(& ___first_local)); #line 105 __heapified->args = (NODE */* */)__cil_tmp25; } } #line 106 CHECK_NULL((void *)__heapified); #line 106 CHECK_NULL((void *)__heapified->fun); #line 106 CHECK_NULL((void *)(__heapified->fun)->n_info.n_xsubr.xsu_subr); #line 106 CHECK_NULL((void *)(__heapified->fun)->n_info.n_xsubr.xsu_subr); #line 106 CHECK_NULL((void *)__heapified); #line 106 __cil_tmp26 = ((*((__heapified->fun)->n_info.n_xsubr.xsu_subr)))((struct node */* */)__heapified->args); #line 106 val = (NODE */* */)__cil_tmp26; } else { goto _L___1; } } else { _L___1: /* CIL Label */ #line 108 CHECK_NULL((void *)__heapified); #line 108 if ((int )__heapified->fun) { #line 108 CHECK_NULL((void *)__heapified); #line 108 CHECK_NULL((void *)__heapified->fun); #line 108 if ((int )(__heapified->fun)->n_type == 3) { #line 109 CHECK_NULL((void *)__heapified); #line 109 CHECK_NULL((void *)__heapified->fun); #line 109 if ((int )(__heapified->fun)->n_info.__annonCompField1.n_xlist.xl_car) { #line 109 CHECK_NULL((void *)__heapified); #line 109 CHECK_NULL((void *)__heapified->fun); #line 109 CHECK_NULL((void *)(__heapified->fun)->n_info.__annonCompField1.n_xlist.xl_car); #line 109 if ((int )((__heapified->fun)->n_info.__annonCompField1.n_xlist.xl_car)->n_type == 3) { #line 110 CHECK_NULL((void *)__heapified); #line 110 CHECK_NULL((void *)__heapified->fun); #line 110 env = (NODE */* */)(__heapified->fun)->n_info.__annonCompField1.n_xlist.xl_cdr; #line 111 CHECK_NULL((void *)__heapified); #line 111 CHECK_NULL((void *)__heapified); #line 111 CHECK_NULL((void *)__heapified->fun); #line 111 CHECK_STOREPTR((void *)(& __heapified->fun), (void *)((NODE */* */)(__heapified->fun)->n_info.__annonCompField1.n_xlist.xl_car), (void *)(& ___first_local)); #line 111 __heapified->fun = (NODE */* */)(__heapified->fun)->n_info.__annonCompField1.n_xlist.xl_car; } else { #line 114 env = (NODE */* */)xlenv; } } else { #line 114 env = (NODE */* */)xlenv; } #line 115 CHECK_NULL((void *)__heapified); #line 115 CHECK_NULL((void *)__heapified->fun); #line 115 type = (NODE */* */)(__heapified->fun)->n_info.__annonCompField1.n_xlist.xl_car; #line 115 if ((unsigned int )type == (unsigned int )s_lambda) { #line 116 CHECK_NULL((void *)__heapified); #line 116 __cil_tmp23 = xlevlist((NODE */* */)__heapified->args); #line 116 CHECK_NULL((void *)__heapified); #line 116 CHECK_STOREPTR((void *)(& __heapified->args), (void *)((NODE */* */)__cil_tmp23), (void *)(& ___first_local)); #line 116 __heapified->args = (NODE */* */)__cil_tmp23; #line 117 CHECK_NULL((void *)__heapified); #line 117 CHECK_NULL((void *)__heapified); #line 117 __cil_tmp24 = evfun___3((NODE */* */)__heapified->fun, (NODE */* */)__heapified->args, (NODE */* */)env); #line 117 val = (NODE */* */)__cil_tmp24; } else { #line 119 if ((unsigned int )type == (unsigned int )s_macro) { #line 120 CHECK_NULL((void *)__heapified); #line 120 CHECK_NULL((void *)__heapified); #line 120 __cil_tmp21 = evfun___3((NODE */* */)__heapified->fun, (NODE */* */)__heapified->args, (NODE */* */)env); #line 120 CHECK_NULL((void *)__heapified); #line 120 CHECK_STOREPTR((void *)(& __heapified->args), (void *)((NODE */* */)__cil_tmp21), (void *)(& ___first_local)); #line 120 __heapified->args = (NODE */* */)__cil_tmp21; #line 121 CHECK_NULL((void *)__heapified); #line 121 __cil_tmp22 = xleval((NODE */* */)__heapified->args); #line 121 val = (NODE */* */)__cil_tmp22; } else { #line 124 __cil_tmp20 = (char */* __FSEQ */)(& __string51[0]); #line 124 __cil_tmp20_e42 = & __string51[0] + 18; #line 124 xlfail_f(__cil_tmp20, __cil_tmp20_e42); } } } else { goto _L; } } else { _L: /* CIL Label */ #line 126 CHECK_NULL((void *)__heapified); #line 126 if ((int )__heapified->fun) { #line 126 CHECK_NULL((void *)__heapified); #line 126 CHECK_NULL((void *)__heapified->fun); #line 126 if ((int )(__heapified->fun)->n_type == 7) { #line 127 CHECK_NULL((void *)__heapified); #line 127 CHECK_NULL((void *)__heapified); #line 127 __cil_tmp19 = xlsend((NODE */* */)__heapified->fun, (NODE */* */)__heapified->args); #line 127 val = (NODE */* */)__cil_tmp19; } else { #line 129 __cil_tmp18 = (char */* __FSEQ */)(& __string50[0]); #line 129 __cil_tmp18_e41 = & __string50[0] + 13; #line 129 xlfail_f(__cil_tmp18, __cil_tmp18_e41); } } else { #line 129 __cil_tmp17 = (char */* __FSEQ */)(& __string49[0]); #line 129 __cil_tmp17_e40 = & __string49[0] + 13; #line 129 xlfail_f(__cil_tmp17, __cil_tmp17_e40); } } } } #line 132 __cil_tmp27 = oldstk; #line 132 __cil_tmp27_b43 = oldstk_b35; #line 132 __cil_tmp27_e44 = oldstk_e36; #line 132 CHECK_STOREPTR((void *)(& xlstack_qss), __cil_tmp27_b43, (void *)(& ___first_local)); #line 132 xlstack_qss._ms._e = __cil_tmp27_e44; #line 132 xlstack_qss._ms._b = __cil_tmp27_b43; #line 132 xlstack_qss._p = __cil_tmp27; #line 135 __retres = (NODE */* */)val; #line 87 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 135 wrapperFree((void *)__heapified); #line 87 return (__retres); } } #line 167 "xleval.c" struct heapified___35 { NODE * ehook __HEAPIFY ; NODE * ahook __HEAPIFY ; NODE * args __HEAPIFY ; }; #line 139 static NODE * evalhook___3(NODE * expr ) ; #line 139 "xleval.c" static NODE * evalhook___3(NODE * expr ) { int volatile ___first_local ; struct node * * * __SEQ oldstk ; NODE * val ; NODE * __retres ; struct heapified___35 * __heapified ; struct heapified___35 * __cil_tmp9 ; struct heapified___35 * __cil_tmp10 ; struct seq_p_p_s_node __cil_tmp11 ; struct node * * * __SEQ __cil_tmp12 ; NODE * __cil_tmp13 ; NODE * __cil_tmp15 ; NODE * __cil_tmp16 ; struct node * * * __SEQ __cil_tmp17 ; void *oldstk_b21 ; void *oldstk_e22 ; void *__cil_tmp12_b23 ; void *__cil_tmp12_e24 ; void *__cil_tmp17_b25 ; void *__cil_tmp17_e26 ; { #line 167 __heapified = (struct heapified___35 */* */)0; #line 167 __retres = (NODE */* */)0; #line 167 val = (NODE */* */)0; #line 167 oldstk_e22 = (void *)0; #line 167 oldstk_b21 = (void *)0; #line 167 oldstk = (struct node * * */* __SEQ */)0; #line 167 __cil_tmp10 = (struct heapified___35 */* */)wrapperAlloc(((sizeof((*__heapified)) + 3U) >> 2) << 2); #line 167 if (__cil_tmp10) { #line 167 __cil_tmp9 = __cil_tmp10; #line 167 CHECK_POSITIVE((int )(((sizeof((*__heapified)) + 3U) >> 2) << 2) - (int )sizeof(struct heapified___35 )); #line 167 __cil_tmp10->args = (NODE */* */)0; #line 167 __cil_tmp10->ahook = (NODE */* */)0; #line 167 __cil_tmp10->ehook = (NODE */* */)0; } else { #line 167 __cil_tmp9 = 0; } #line 167 __heapified = __cil_tmp9; #line 144 CHECK_NULL((void *)__heapified); #line 144 CHECK_NULL((void *)__heapified); #line 144 __cil_tmp11 = xlsave3_qssssssss((NODE * */* */)(& __heapified->ehook), (NODE * */* */)(& __heapified->ahook), (NODE * */* */)(& __heapified->args)); #line 144 __cil_tmp12 = __cil_tmp11._p; #line 144 __cil_tmp12_b23 = __cil_tmp11._ms._b; #line 144 __cil_tmp12_e24 = __cil_tmp11._ms._e; #line 144 oldstk_e22 = __cil_tmp12_e24; #line 144 oldstk_b21 = __cil_tmp12_b23; #line 144 oldstk = __cil_tmp12; #line 147 __cil_tmp13 = consa((NODE */* */)expr); #line 147 CHECK_NULL((void *)__heapified); #line 147 CHECK_STOREPTR((void *)(& __heapified->args), (void *)((NODE */* */)__cil_tmp13), (void *)(& ___first_local)); #line 147 __heapified->args = (NODE */* */)__cil_tmp13; #line 148 __cil_tmp15 = consa((NODE */* */)xlenv); #line 148 CHECK_NULL((void *)__heapified); #line 148 CHECK_NULL((void *)__heapified->args); #line 148 CHECK_STOREPTR((void *)(& (__heapified->args)->n_info.__annonCompField1.n_xlist.xl_cdr), (void *)((struct node */* */)__cil_tmp15), (void *)(& ___first_local)); #line 148 (__heapified->args)->n_info.__annonCompField1.n_xlist.xl_cdr = (struct node */* */)__cil_tmp15; #line 151 CHECK_NULL((void *)__heapified); #line 151 CHECK_NULL((void *)s_evalhook); #line 151 CHECK_STOREPTR((void *)(& __heapified->ehook), (void *)((NODE */* */)s_evalhook->n_info.__annonCompField1.n_xsym.xsy_value), (void *)(& ___first_local)); #line 151 __heapified->ehook = (NODE */* */)s_evalhook->n_info.__annonCompField1.n_xsym.xsy_value; #line 152 CHECK_NULL((void *)s_evalhook); #line 152 CHECK_STOREPTR((void *)(& s_evalhook->n_info.__annonCompField1.n_xsym.xsy_value), (void *)((struct node */* */)0), (void *)(& ___first_local)); #line 152 s_evalhook->n_info.__annonCompField1.n_xsym.xsy_value = (struct node */* */)0; #line 153 CHECK_NULL((void *)__heapified); #line 153 CHECK_NULL((void *)s_applyhook); #line 153 CHECK_STOREPTR((void *)(& __heapified->ahook), (void *)((NODE */* */)s_applyhook->n_info.__annonCompField1.n_xsym.xsy_value), (void *)(& ___first_local)); #line 153 __heapified->ahook = (NODE */* */)s_applyhook->n_info.__annonCompField1.n_xsym.xsy_value; #line 154 CHECK_NULL((void *)s_applyhook); #line 154 CHECK_STOREPTR((void *)(& s_applyhook->n_info.__annonCompField1.n_xsym.xsy_value), (void *)((struct node */* */)0), (void *)(& ___first_local)); #line 154 s_applyhook->n_info.__annonCompField1.n_xsym.xsy_value = (struct node */* */)0; #line 157 CHECK_NULL((void *)__heapified); #line 157 CHECK_NULL((void *)__heapified); #line 157 __cil_tmp16 = xlapply((NODE */* */)__heapified->ehook, (NODE */* */)__heapified->args); #line 157 val = (NODE */* */)__cil_tmp16; #line 160 CHECK_NULL((void *)s_evalhook); #line 160 CHECK_NULL((void *)__heapified); #line 160 CHECK_STOREPTR((void *)(& s_evalhook->n_info.__annonCompField1.n_xsym.xsy_value), (void *)((struct node */* */)__heapified->ehook), (void *)(& ___first_local)); #line 160 s_evalhook->n_info.__annonCompField1.n_xsym.xsy_value = (struct node */* */)__heapified->ehook; #line 161 CHECK_NULL((void *)s_applyhook); #line 161 CHECK_NULL((void *)__heapified); #line 161 CHECK_STOREPTR((void *)(& s_applyhook->n_info.__annonCompField1.n_xsym.xsy_value), (void *)((struct node */* */)__heapified->ahook), (void *)(& ___first_local)); #line 161 s_applyhook->n_info.__annonCompField1.n_xsym.xsy_value = (struct node */* */)__heapified->ahook; #line 164 __cil_tmp17 = oldstk; #line 164 __cil_tmp17_b25 = oldstk_b21; #line 164 __cil_tmp17_e26 = oldstk_e22; #line 164 CHECK_STOREPTR((void *)(& xlstack_qss), __cil_tmp17_b25, (void *)(& ___first_local)); #line 164 xlstack_qss._ms._e = __cil_tmp17_e26; #line 164 xlstack_qss._ms._b = __cil_tmp17_b25; #line 164 xlstack_qss._p = __cil_tmp17; #line 167 __retres = (NODE */* */)val; #line 139 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 167 wrapperFree((void *)__heapified); #line 139 return (__retres); } } #line 203 "xleval.c" struct heapified___36 { NODE * src __HEAPIFY ; NODE * dst __HEAPIFY ; }; #line 187 "xleval.c" static char __string52[18] = #line 187 { 'b', 'a', 'd', ' ', 'a', 'r', 'g', 'u', 'm', 'e', 'n', 't', ' ', 'l', 'i', 's', 't', '\000'}; #line 187 "xleval.c" static char __string53[18] = #line 187 { 'b', 'a', 'd', ' ', 'a', 'r', 'g', 'u', 'm', 'e', 'n', 't', ' ', 'l', 'i', 's', 't', '\000'}; #line 171 NODE * xlevlist(NODE * args ) ; #line 171 "xleval.c" NODE * xlevlist(NODE * args ) { int volatile ___first_local ; struct node * * * __SEQ oldstk ; NODE * new___0 ; NODE * val ; NODE * last ; NODE * __retres ; struct heapified___36 * __heapified ; struct heapified___36 * __cil_tmp10 ; struct heapified___36 * __cil_tmp11 ; struct seq_p_p_s_node __cil_tmp12 ; struct node * * * __SEQ __cil_tmp13 ; char * __FSEQ __cil_tmp15 ; char * __FSEQ __cil_tmp16 ; NODE * __cil_tmp17 ; NODE * __cil_tmp18 ; struct node * * * __SEQ __cil_tmp19 ; void *oldstk_b25 ; void *oldstk_e26 ; void *__cil_tmp13_b27 ; void *__cil_tmp13_e28 ; void *__cil_tmp15_e29 ; void *__cil_tmp16_e30 ; void *__cil_tmp19_b31 ; void *__cil_tmp19_e32 ; { #line 203 __heapified = (struct heapified___36 */* */)0; #line 203 __retres = (NODE */* */)0; #line 203 last = (NODE */* */)0; #line 203 val = (NODE */* */)0; #line 203 new___0 = (NODE */* */)0; #line 203 oldstk_e26 = (void *)0; #line 203 oldstk_b25 = (void *)0; #line 203 oldstk = (struct node * * */* __SEQ */)0; #line 203 __cil_tmp11 = (struct heapified___36 */* */)wrapperAlloc(((sizeof((*__heapified)) + 3U) >> 2) << 2); #line 203 if (__cil_tmp11) { #line 203 __cil_tmp10 = __cil_tmp11; #line 203 CHECK_POSITIVE((int )(((sizeof((*__heapified)) + 3U) >> 2) << 2) - (int )sizeof(struct heapified___36 )); #line 203 __cil_tmp11->dst = (NODE */* */)0; #line 203 __cil_tmp11->src = (NODE */* */)0; } else { #line 203 __cil_tmp10 = 0; } #line 203 __heapified = __cil_tmp10; #line 174 last = (NODE */* */)0; #line 177 CHECK_NULL((void *)__heapified); #line 177 __cil_tmp12 = xlsave2_qssssss((NODE * */* */)(& __heapified->src), (NODE * */* */)(& __heapified->dst)); #line 177 __cil_tmp13 = __cil_tmp12._p; #line 177 __cil_tmp13_b27 = __cil_tmp12._ms._b; #line 177 __cil_tmp13_e28 = __cil_tmp12._ms._e; #line 177 oldstk_e26 = __cil_tmp13_e28; #line 177 oldstk_b25 = __cil_tmp13_b27; #line 177 oldstk = __cil_tmp13; #line 180 CHECK_NULL((void *)__heapified); #line 180 CHECK_STOREPTR((void *)(& __heapified->src), (void *)((NODE */* */)args), (void *)(& ___first_local)); #line 180 __heapified->src = (NODE */* */)args; #line 183 val = (NODE */* */)0; #line 183 while (1) { #line 183 CHECK_NULL((void *)__heapified); #line 183 if (! ((int )__heapified->src)) { #line 183 break; } #line 186 CHECK_NULL((void *)__heapified); #line 186 if ((int )__heapified->src) { #line 186 CHECK_NULL((void *)__heapified); #line 186 CHECK_NULL((void *)__heapified->src); #line 186 if (! ((int )(__heapified->src)->n_type == 3)) { #line 187 __cil_tmp16 = (char */* __FSEQ */)(& __string53[0]); #line 187 __cil_tmp16_e30 = & __string53[0] + 18; #line 187 xlfail_f(__cil_tmp16, __cil_tmp16_e30); } } else { #line 187 __cil_tmp15 = (char */* __FSEQ */)(& __string52[0]); #line 187 __cil_tmp15_e29 = & __string52[0] + 18; #line 187 xlfail_f(__cil_tmp15, __cil_tmp15_e29); } #line 190 __cil_tmp17 = consa((NODE */* */)0); #line 190 new___0 = (NODE */* */)__cil_tmp17; #line 191 if ((int )val) { #line 192 CHECK_NULL((void *)last); #line 192 CHECK_STOREPTR((void *)(& last->n_info.__annonCompField1.n_xlist.xl_cdr), (void *)((struct node */* */)new___0), (void *)(& ___first_local)); #line 192 last->n_info.__annonCompField1.n_xlist.xl_cdr = (struct node */* */)new___0; } else { #line 194 CHECK_NULL((void *)__heapified); #line 194 CHECK_STOREPTR((void *)(& __heapified->dst), (void *)((NODE */* */)new___0), (void *)(& ___first_local)); #line 194 __heapified->dst = (NODE */* */)new___0; #line 194 CHECK_NULL((void *)__heapified); #line 194 val = (NODE */* */)__heapified->dst; } #line 195 CHECK_NULL((void *)__heapified); #line 195 CHECK_NULL((void *)__heapified->src); #line 195 __cil_tmp18 = xleval((NODE */* */)(__heapified->src)->n_info.__annonCompField1.n_xlist.xl_car); #line 195 CHECK_NULL((void *)new___0); #line 195 CHECK_STOREPTR((void *)(& new___0->n_info.__annonCompField1.n_xlist.xl_car), (void *)((struct node */* */)__cil_tmp18), (void *)(& ___first_local)); #line 195 new___0->n_info.__annonCompField1.n_xlist.xl_car = (struct node */* */)__cil_tmp18; #line 196 last = (NODE */* */)new___0; #line 183 CHECK_NULL((void *)__heapified); #line 183 CHECK_NULL((void *)__heapified); #line 183 CHECK_NULL((void *)__heapified->src); #line 183 CHECK_STOREPTR((void *)(& __heapified->src), (void *)((NODE */* */)(__heapified->src)->n_info.__annonCompField1.n_xlist.xl_cdr), (void *)(& ___first_local)); #line 183 __heapified->src = (NODE */* */)(__heapified->src)->n_info.__annonCompField1.n_xlist.xl_cdr; } #line 200 __cil_tmp19 = oldstk; #line 200 __cil_tmp19_b31 = oldstk_b25; #line 200 __cil_tmp19_e32 = oldstk_e26; #line 200 CHECK_STOREPTR((void *)(& xlstack_qss), __cil_tmp19_b31, (void *)(& ___first_local)); #line 200 xlstack_qss._ms._e = __cil_tmp19_e32; #line 200 xlstack_qss._ms._b = __cil_tmp19_b31; #line 200 xlstack_qss._p = __cil_tmp19; #line 203 __retres = (NODE */* */)val; #line 171 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 203 wrapperFree((void *)__heapified); #line 171 return (__retres); } } #line 209 "xleval.c" static char __string54[28] = #line 209 { 't', 'r', 'y', ' ', 'e', 'v', 'a', 'l', 'u', 'a', 't', 'i', 'n', 'g', ' ', 's', 'y', 'm', 'b', 'o', 'l', ' ', 'a', 'g', 'a', 'i', 'n', '\000'}; #line 209 "xleval.c" static char __string55[17] = #line 209 { 'u', 'n', 'b', 'o', 'u', 'n', 'd', ' ', 'v', 'a', 'r', 'i', 'a', 'b', 'l', 'e', '\000'}; #line 207 void xlunbound(NODE * sym ) ; #line 207 "xleval.c" void xlunbound(NODE * sym ) { char * __FSEQ __cil_tmp2 ; char * __FSEQ __cil_tmp3 ; void *__cil_tmp2_e6 ; void *__cil_tmp3_e7 ; { #line 209 __cil_tmp2 = (char */* __FSEQ */)(& __string54[0]); #line 209 __cil_tmp2_e6 = & __string54[0] + 28; #line 209 __cil_tmp3 = (char */* __FSEQ */)(& __string55[0]); #line 209 __cil_tmp3_e7 = & __string55[0] + 17; #line 209 xlcerror_ffs(__cil_tmp2, __cil_tmp2_e6, __cil_tmp3, __cil_tmp3_e7, (NODE */* */)sym); #line 207 return; } } #line 247 "xleval.c" struct heapified___37 { NODE * oldenv __HEAPIFY ; NODE * newenv __HEAPIFY ; NODE * cptr __HEAPIFY ; }; #line 222 "xleval.c" static char __string56[24] = #line 222 { 'b', 'a', 'd', ' ', 'f', 'u', 'n', 'c', 't', 'i', 'o', 'n', ' ', 'd', 'e', 'f', 'i', 'n', 'i', 't', 'i', 'o', 'n', '\000'}; #line 222 "xleval.c" static char __string57[24] = #line 222 { 'b', 'a', 'd', ' ', 'f', 'u', 'n', 'c', 't', 'i', 'o', 'n', ' ', 'd', 'e', 'f', 'i', 'n', 'i', 't', 'i', 'o', 'n', '\000'}; #line 222 "xleval.c" static char __string58[24] = #line 222 { 'b', 'a', 'd', ' ', 'f', 'u', 'n', 'c', 't', 'i', 'o', 'n', ' ', 'd', 'e', 'f', 'i', 'n', 'i', 't', 'i', 'o', 'n', '\000'}; #line 226 "xleval.c" static char __string59[25] = #line 226 { 'b', 'a', 'd', ' ', 'f', 'o', 'r', 'm', 'a', 'l', ' ', 'a', 'r', 'g', 'u', 'm', 'e', 'n', 't', ' ', 'l', 'i', 's', 't', '\000'}; #line 226 "xleval.c" static char __string60[25] = #line 226 { 'b', 'a', 'd', ' ', 'f', 'o', 'r', 'm', 'a', 'l', ' ', 'a', 'r', 'g', 'u', 'm', 'e', 'n', 't', ' ', 'l', 'i', 's', 't', '\000'}; #line 213 static NODE * evfun___3(NODE * fun , NODE * args , NODE * env ) ; #line 213 "xleval.c" static NODE * evfun___3(NODE * fun , NODE * args , NODE * env ) { int volatile ___first_local ; struct node * * * __SEQ oldstk ; NODE * fargs ; NODE * val ; NODE * __retres ; struct heapified___37 * __heapified ; struct heapified___37 * __cil_tmp12 ; struct heapified___37 * __cil_tmp13 ; struct seq_p_p_s_node __cil_tmp14 ; struct node * * * __SEQ __cil_tmp15 ; char * __FSEQ __cil_tmp16 ; char * __FSEQ __cil_tmp17 ; char * __FSEQ __cil_tmp18 ; char * __FSEQ __cil_tmp19 ; char * __FSEQ __cil_tmp20 ; NODE * __cil_tmp21 ; NODE * __cil_tmp23 ; struct node * * * __SEQ __cil_tmp24 ; void *oldstk_b33 ; void *oldstk_e34 ; void *__cil_tmp15_b35 ; void *__cil_tmp15_e36 ; void *__cil_tmp16_e37 ; void *__cil_tmp17_e38 ; void *__cil_tmp18_e39 ; void *__cil_tmp19_e40 ; void *__cil_tmp20_e41 ; void *__cil_tmp24_b42 ; void *__cil_tmp24_e43 ; { #line 247 __heapified = (struct heapified___37 */* */)0; #line 247 __retres = (NODE */* */)0; #line 247 val = (NODE */* */)0; #line 247 fargs = (NODE */* */)0; #line 247 oldstk_e34 = (void *)0; #line 247 oldstk_b33 = (void *)0; #line 247 oldstk = (struct node * * */* __SEQ */)0; #line 247 __cil_tmp13 = (struct heapified___37 */* */)wrapperAlloc(((sizeof((*__heapified)) + 3U) >> 2) << 2); #line 247 if (__cil_tmp13) { #line 247 __cil_tmp12 = __cil_tmp13; #line 247 CHECK_POSITIVE((int )(((sizeof((*__heapified)) + 3U) >> 2) << 2) - (int )sizeof(struct heapified___37 )); #line 247 __cil_tmp13->cptr = (NODE */* */)0; #line 247 __cil_tmp13->newenv = (NODE */* */)0; #line 247 __cil_tmp13->oldenv = (NODE */* */)0; } else { #line 247 __cil_tmp12 = 0; } #line 247 __heapified = __cil_tmp12; #line 218 CHECK_NULL((void *)__heapified); #line 218 CHECK_NULL((void *)__heapified); #line 218 __cil_tmp14 = xlsave3_qssssssss((NODE * */* */)(& __heapified->oldenv), (NODE * */* */)(& __heapified->newenv), (NODE * */* */)(& __heapified->cptr)); #line 218 __cil_tmp15 = __cil_tmp14._p; #line 218 __cil_tmp15_b35 = __cil_tmp14._ms._b; #line 218 __cil_tmp15_e36 = __cil_tmp14._ms._e; #line 218 oldstk_e34 = __cil_tmp15_e36; #line 218 oldstk_b33 = __cil_tmp15_b35; #line 218 oldstk = __cil_tmp15; #line 221 CHECK_NULL((void *)fun); #line 221 fun = (NODE */* */)fun->n_info.__annonCompField1.n_xlist.xl_cdr; #line 221 if ((unsigned int )fun == 0) { #line 222 __cil_tmp18 = (char */* __FSEQ */)(& __string58[0]); #line 222 __cil_tmp18_e39 = & __string58[0] + 24; #line 222 xlfail_f(__cil_tmp18, __cil_tmp18_e39); } else { #line 221 if ((int )fun) { #line 221 CHECK_NULL((void *)fun); #line 221 if (! ((int )fun->n_type == 3)) { #line 222 __cil_tmp17 = (char */* __FSEQ */)(& __string57[0]); #line 222 __cil_tmp17_e38 = & __string57[0] + 24; #line 222 xlfail_f(__cil_tmp17, __cil_tmp17_e38); } } else { #line 222 __cil_tmp16 = (char */* __FSEQ */)(& __string56[0]); #line 222 __cil_tmp16_e37 = & __string56[0] + 24; #line 222 xlfail_f(__cil_tmp16, __cil_tmp16_e37); } } #line 225 CHECK_NULL((void *)fun); #line 225 fargs = (NODE */* */)fun->n_info.__annonCompField1.n_xlist.xl_car; #line 225 if ((int )fargs) { #line 225 if ((int )fargs) { #line 225 CHECK_NULL((void *)fargs); #line 225 if (! ((int )fargs->n_type == 3)) { #line 226 __cil_tmp20 = (char */* __FSEQ */)(& __string60[0]); #line 226 __cil_tmp20_e41 = & __string60[0] + 25; #line 226 xlfail_f(__cil_tmp20, __cil_tmp20_e41); } } else { #line 226 __cil_tmp19 = (char */* __FSEQ */)(& __string59[0]); #line 226 __cil_tmp19_e40 = & __string59[0] + 25; #line 226 xlfail_f(__cil_tmp19, __cil_tmp19_e40); } } #line 229 __cil_tmp21 = xlframe((NODE */* */)env); #line 229 CHECK_NULL((void *)__heapified); #line 229 CHECK_STOREPTR((void *)(& __heapified->newenv), (void *)((NODE */* */)__cil_tmp21), (void *)(& ___first_local)); #line 229 __heapified->newenv = (NODE */* */)__cil_tmp21; #line 230 CHECK_NULL((void *)__heapified); #line 230 CHECK_STOREPTR((void *)(& __heapified->oldenv), (void *)((NODE */* */)xlenv), (void *)(& ___first_local)); #line 230 __heapified->oldenv = (NODE */* */)xlenv; #line 233 CHECK_NULL((void *)__heapified); #line 233 xlabind((NODE */* */)fargs, (NODE */* */)args, (NODE */* */)__heapified->newenv); #line 234 CHECK_NULL((void *)__heapified); #line 234 CHECK_STOREPTR((void *)(& xlenv), (void *)((NODE */* */)__heapified->newenv), (void *)(& ___first_local)); #line 234 xlenv = (NODE */* */)__heapified->newenv; #line 237 CHECK_NULL((void *)__heapified); #line 237 CHECK_NULL((void *)fun); #line 237 CHECK_STOREPTR((void *)(& __heapified->cptr), (void *)((NODE */* */)fun->n_info.__annonCompField1.n_xlist.xl_cdr), (void *)(& ___first_local)); #line 237 __heapified->cptr = (NODE */* */)fun->n_info.__annonCompField1.n_xlist.xl_cdr; #line 237 while (1) { #line 237 CHECK_NULL((void *)__heapified); #line 237 if (! ((int )__heapified->cptr)) { #line 237 break; } #line 238 CHECK_NULL((void *)__heapified); #line 238 __cil_tmp23 = xlevarg((NODE * */* */)(& __heapified->cptr)); #line 238 val = (NODE */* */)__cil_tmp23; } #line 241 CHECK_NULL((void *)__heapified); #line 241 CHECK_STOREPTR((void *)(& xlenv), (void *)((NODE */* */)__heapified->oldenv), (void *)(& ___first_local)); #line 241 xlenv = (NODE */* */)__heapified->oldenv; #line 244 __cil_tmp24 = oldstk; #line 244 __cil_tmp24_b42 = oldstk_b33; #line 244 __cil_tmp24_e43 = oldstk_e34; #line 244 CHECK_STOREPTR((void *)(& xlstack_qss), __cil_tmp24_b42, (void *)(& ___first_local)); #line 244 xlstack_qss._ms._e = __cil_tmp24_e43; #line 244 xlstack_qss._ms._b = __cil_tmp24_b42; #line 244 xlstack_qss._p = __cil_tmp24; #line 247 __retres = (NODE */* */)val; #line 213 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 247 wrapperFree((void *)__heapified); #line 213 return (__retres); } } #line 298 "xleval.c" static char __string61[27] = #line 298 { 's', 'y', 'm', 'b', 'o', 'l', ' ', 'm', 'i', 's', 's', 'i', 'n', 'g', ' ', 'a', 'f', 't', 'e', 'r', ' ', '&', 'r', 'e', 's', 't', '\000'}; #line 298 "xleval.c" static char __string62[27] = #line 298 { 's', 'y', 'm', 'b', 'o', 'l', ' ', 'm', 'i', 's', 's', 'i', 'n', 'g', ' ', 'a', 'f', 't', 'e', 'r', ' ', '&', 'r', 'e', 's', 't', '\000'}; #line 298 "xleval.c" static char __string63[27] = #line 298 { 's', 'y', 'm', 'b', 'o', 'l', ' ', 'm', 'i', 's', 's', 'i', 'n', 'g', ' ', 'a', 'f', 't', 'e', 'r', ' ', '&', 'r', 'e', 's', 't', '\000'}; #line 298 "xleval.c" static char __string64[27] = #line 298 { 's', 'y', 'm', 'b', 'o', 'l', ' ', 'm', 'i', 's', 's', 'i', 'n', 'g', ' ', 'a', 'f', 't', 'e', 'r', ' ', '&', 'r', 'e', 's', 't', '\000'}; #line 310 "xleval.c" static char __string65[19] = #line 310 { 't', 'o', 'o', ' ', 'm', 'a', 'n', 'y', ' ', 'a', 'r', 'g', 'u', 'm', 'e', 'n', 't', 's', '\000'}; #line 310 "xleval.c" static char __string66[18] = #line 310 { 't', 'o', 'o', ' ', 'f', 'e', 'w', ' ', 'a', 'r', 'g', 'u', 'm', 'e', 'n', 't', 's', '\000'}; #line 251 void xlabind(NODE * fargs , NODE * aargs , NODE * env ) ; #line 251 "xleval.c" void xlabind(NODE * fargs , NODE * aargs , NODE * env ) { NODE * arg ; int tmp ; int tmp___0 ; int tmp___1 ; int tmp___2 ; char * __FSEQ tmp___3 ; int __cil_tmp10 ; int __cil_tmp11 ; int __cil_tmp12 ; char * __FSEQ __cil_tmp13 ; char * __FSEQ __cil_tmp14 ; char * __FSEQ __cil_tmp15 ; int __cil_tmp16 ; char * __FSEQ __cil_tmp17 ; char * __FSEQ __cil_tmp18 ; char * __FSEQ __cil_tmp19 ; char * __FSEQ __cil_tmp20 ; void *tmp___3_e29 ; void *__cil_tmp13_e30 ; void *__cil_tmp14_e31 ; void *__cil_tmp15_e32 ; void *__cil_tmp17_e33 ; void *__cil_tmp18_e34 ; void *__cil_tmp19_e35 ; void *__cil_tmp20_e36 ; { #line 311 tmp___3_e29 = (void *)0; #line 311 tmp___3 = (char */* __FSEQ */)0; #line 311 arg = (NODE */* */)0; #line 256 while (1) { #line 256 if ((int )fargs) { #line 256 CHECK_NULL((void *)fargs); #line 256 if ((int )fargs->n_type == 3) { #line 256 CHECK_NULL((void *)fargs); #line 256 arg = (NODE */* */)fargs->n_info.__annonCompField1.n_xlist.xl_car; #line 256 __cil_tmp10 = iskeyword___3((NODE */* */)arg); #line 256 tmp = __cil_tmp10; #line 256 if (tmp) { #line 256 break; } else { #line 256 if ((int )aargs) { #line 256 CHECK_NULL((void *)aargs); #line 256 if (! ((int )aargs->n_type == 3)) { #line 256 break; } } else { #line 256 break; } } } else { #line 256 break; } } else { #line 256 break; } #line 259 CHECK_NULL((void *)aargs); #line 259 xlbind((NODE */* */)arg, (NODE */* */)aargs->n_info.__annonCompField1.n_xlist.xl_car, (NODE */* */)env); #line 262 CHECK_NULL((void *)fargs); #line 262 fargs = (NODE */* */)fargs->n_info.__annonCompField1.n_xlist.xl_cdr; #line 263 CHECK_NULL((void *)aargs); #line 263 aargs = (NODE */* */)aargs->n_info.__annonCompField1.n_xlist.xl_cdr; } #line 267 if ((int )fargs) { #line 267 CHECK_NULL((void *)fargs); #line 267 if ((int )fargs->n_type == 3) { #line 267 CHECK_NULL((void *)fargs); #line 267 if ((unsigned int )fargs->n_info.__annonCompField1.n_xlist.xl_car == (unsigned int )k_optional) { #line 268 CHECK_NULL((void *)fargs); #line 268 fargs = (NODE */* */)fargs->n_info.__annonCompField1.n_xlist.xl_cdr; #line 271 while (1) { #line 271 if ((int )fargs) { #line 271 CHECK_NULL((void *)fargs); #line 271 if ((int )fargs->n_type == 3) { #line 271 CHECK_NULL((void *)fargs); #line 271 arg = (NODE */* */)fargs->n_info.__annonCompField1.n_xlist.xl_car; #line 271 __cil_tmp11 = iskeyword___3((NODE */* */)arg); #line 271 tmp___0 = __cil_tmp11; #line 271 if (tmp___0) { #line 271 break; } else { #line 271 if ((int )aargs) { #line 271 CHECK_NULL((void *)aargs); #line 271 if (! ((int )aargs->n_type == 3)) { #line 271 break; } } else { #line 271 break; } } } else { #line 271 break; } } else { #line 271 break; } #line 274 CHECK_NULL((void *)aargs); #line 274 xlbind((NODE */* */)arg, (NODE */* */)aargs->n_info.__annonCompField1.n_xlist.xl_car, (NODE */* */)env); #line 277 CHECK_NULL((void *)fargs); #line 277 fargs = (NODE */* */)fargs->n_info.__annonCompField1.n_xlist.xl_cdr; #line 278 CHECK_NULL((void *)aargs); #line 278 aargs = (NODE */* */)aargs->n_info.__annonCompField1.n_xlist.xl_cdr; } #line 282 while (1) { #line 282 if ((int )fargs) { #line 282 CHECK_NULL((void *)fargs); #line 282 if ((int )fargs->n_type == 3) { #line 282 CHECK_NULL((void *)fargs); #line 282 arg = (NODE */* */)fargs->n_info.__annonCompField1.n_xlist.xl_car; #line 282 __cil_tmp12 = iskeyword___3((NODE */* */)arg); #line 282 tmp___1 = __cil_tmp12; #line 282 if (tmp___1) { #line 282 break; } } else { #line 282 break; } } else { #line 282 break; } #line 285 xlbind((NODE */* */)arg, (NODE */* */)0, (NODE */* */)env); #line 288 CHECK_NULL((void *)fargs); #line 288 fargs = (NODE */* */)fargs->n_info.__annonCompField1.n_xlist.xl_cdr; } } } } #line 293 if ((int )fargs) { #line 293 CHECK_NULL((void *)fargs); #line 293 if ((int )fargs->n_type == 3) { #line 293 CHECK_NULL((void *)fargs); #line 293 if ((unsigned int )fargs->n_info.__annonCompField1.n_xlist.xl_car == (unsigned int )k_rest) { #line 294 CHECK_NULL((void *)fargs); #line 294 fargs = (NODE */* */)fargs->n_info.__annonCompField1.n_xlist.xl_cdr; #line 295 if ((int )fargs) { #line 295 CHECK_NULL((void *)fargs); #line 295 if ((int )fargs->n_type == 3) { #line 295 CHECK_NULL((void *)fargs); #line 295 arg = (NODE */* */)fargs->n_info.__annonCompField1.n_xlist.xl_car; #line 295 if ((int )arg) { #line 295 __cil_tmp16 = iskeyword___3((NODE */* */)arg); #line 295 tmp___2 = __cil_tmp16; #line 295 if (tmp___2) { #line 298 __cil_tmp17 = (char */* __FSEQ */)(& __string64[0]); #line 298 __cil_tmp17_e33 = & __string64[0] + 27; #line 298 xlfail_f(__cil_tmp17, __cil_tmp17_e33); } else { #line 296 xlbind((NODE */* */)arg, (NODE */* */)aargs, (NODE */* */)env); } } else { #line 298 __cil_tmp15 = (char */* __FSEQ */)(& __string63[0]); #line 298 __cil_tmp15_e32 = & __string63[0] + 27; #line 298 xlfail_f(__cil_tmp15, __cil_tmp15_e32); } } else { #line 298 __cil_tmp14 = (char */* __FSEQ */)(& __string62[0]); #line 298 __cil_tmp14_e31 = & __string62[0] + 27; #line 298 xlfail_f(__cil_tmp14, __cil_tmp14_e31); } } else { #line 298 __cil_tmp13 = (char */* __FSEQ */)(& __string61[0]); #line 298 __cil_tmp13_e30 = & __string61[0] + 27; #line 298 xlfail_f(__cil_tmp13, __cil_tmp13_e30); } #line 299 CHECK_NULL((void *)fargs); #line 299 fargs = (NODE */* */)fargs->n_info.__annonCompField1.n_xlist.xl_cdr; #line 300 aargs = (NODE */* */)0; } } } #line 304 if ((int )fargs) { #line 304 CHECK_NULL((void *)fargs); #line 304 if ((int )fargs->n_type == 3) { #line 304 CHECK_NULL((void *)fargs); #line 304 if ((unsigned int )fargs->n_info.__annonCompField1.n_xlist.xl_car == (unsigned int )k_aux) { #line 305 while (1) { #line 305 CHECK_NULL((void *)fargs); #line 305 fargs = (NODE */* */)fargs->n_info.__annonCompField1.n_xlist.xl_cdr; #line 305 if ((unsigned int )fargs != 0) { #line 305 if ((int )fargs) { #line 305 CHECK_NULL((void *)fargs); #line 305 if (! ((int )fargs->n_type == 3)) { #line 305 break; } } else { #line 305 break; } } else { #line 305 break; } #line 306 CHECK_NULL((void *)fargs); #line 306 xlbind((NODE */* */)fargs->n_info.__annonCompField1.n_xlist.xl_car, (NODE */* */)0, (NODE */* */)env); } } } } #line 309 if ((unsigned int )fargs != (unsigned int )aargs) { #line 310 if ((int )fargs) { #line 310 __cil_tmp19 = (char */* __FSEQ */)(& __string66[0]); #line 310 __cil_tmp19_e35 = & __string66[0] + 18; #line 310 tmp___3_e29 = __cil_tmp19_e35; #line 310 tmp___3 = __cil_tmp19; } else { #line 310 __cil_tmp18 = (char */* __FSEQ */)(& __string65[0]); #line 310 __cil_tmp18_e34 = & __string65[0] + 19; #line 310 tmp___3_e29 = __cil_tmp18_e34; #line 310 tmp___3 = __cil_tmp18; } #line 310 __cil_tmp20 = tmp___3; #line 310 __cil_tmp20_e36 = tmp___3_e29; #line 310 xlfail_f(__cil_tmp20, __cil_tmp20_e36); } #line 251 return; } } #line 314 static int iskeyword___3(NODE * sym ) ; #line 314 "xleval.c" static int iskeyword___3(NODE * sym ) { int tmp ; int __retres ; { #line 316 if ((unsigned int )sym == (unsigned int )k_optional) { #line 316 tmp = 1; } else { #line 316 if ((unsigned int )sym == (unsigned int )k_rest) { #line 316 tmp = 1; } else { #line 316 if ((unsigned int )sym == (unsigned int )k_aux) { #line 316 tmp = 1; } else { #line 316 tmp = 0; } } } #line 316 __retres = tmp; #line 314 return (__retres); } } #line 368 "xleval.c" static char __string67[26] = #line 368 { 'e', 'v', 'a', 'l', 'u', 'a', 't', 'i', 'o', 'n', ' ', 's', 't', 'a', 'c', 'k', ' ', 'o', 'v', 'e', 'r', 'f', 'l', 'o', 'w', '\000'}; #line 365 struct seq_p_p_s_node xlsave1_qssss(NODE * * nptr1 ) ; #line 365 "xleval.c" struct seq_p_p_s_node xlsave1_qssss(NODE * * nptr1 ) { int volatile ___first_local ; struct node * * * __SEQ oldstk ; struct node * * * __SEQ __retres ; struct node * * * __SEQ __cil_tmp4 ; char * __FSEQ __cil_tmp5 ; struct node * * * __SEQ __cil_tmp6 ; struct node * * * __SEQ __cil_tmp8 ; struct seq_p_p_s_node __cil_tmp9 ; void *oldstk_b16 ; void *oldstk_e17 ; void *__retres_b18 ; void *__retres_e19 ; void *__cil_tmp4_b20 ; void *__cil_tmp4_e21 ; void *__cil_tmp5_e22 ; void *__cil_tmp6_b23 ; void *__cil_tmp6_e24 ; void *__cil_tmp8_b25 ; void *__cil_tmp8_e26 ; { #line 369 __retres_e19 = (void *)0; #line 369 __retres_b18 = (void *)0; #line 369 __retres = (struct node * * */* __SEQ */)0; #line 369 oldstk_e17 = (void *)0; #line 369 oldstk_b16 = (void *)0; #line 369 oldstk = (struct node * * */* __SEQ */)0; #line 367 __cil_tmp4 = xlstack_qss._p; #line 367 __cil_tmp4_b20 = xlstack_qss._ms._b; #line 367 __cil_tmp4_e21 = xlstack_qss._ms._e; #line 367 oldstk_e17 = __cil_tmp4_e21; #line 367 oldstk_b16 = __cil_tmp4_b20; #line 367 oldstk = __cil_tmp4; #line 368 if ((int )xlstack_qss._p <= (int )xlstkbase_qss._p) { #line 368 __cil_tmp5 = (char */* __FSEQ */)(& __string67[0]); #line 368 __cil_tmp5_e22 = & __string67[0] + 26; #line 368 xlabort_f(__cil_tmp5, __cil_tmp5_e22); } #line 368 __cil_tmp6 = xlstack_qss._p - 1; #line 368 __cil_tmp6_b23 = xlstack_qss._ms._b; #line 368 __cil_tmp6_e24 = xlstack_qss._ms._e; #line 368 CHECK_STOREPTR((void *)(& xlstack_qss), __cil_tmp6_b23, (void *)(& ___first_local)); #line 368 xlstack_qss._ms._e = __cil_tmp6_e24; #line 368 xlstack_qss._ms._b = __cil_tmp6_b23; #line 368 xlstack_qss._p = __cil_tmp6; #line 368 CHECK_SEQ2SAFE(xlstack_qss._ms._b, xlstack_qss._ms._e, (void *)xlstack_qss._p, sizeof(struct node * */* */), sizeof(struct node * */* */), 1, 0); #line 368 CHECK_STOREPTR((void *)xlstack_qss._p, (void *)((struct node * */* */)nptr1), (void *)(& ___first_local)); #line 368 (*(xlstack_qss._p)) = (struct node * */* */)nptr1; #line 368 CHECK_NULL((void *)nptr1); #line 368 CHECK_STOREPTR((void *)nptr1, (void *)((NODE */* */)0), (void *)(& ___first_local)); #line 368 (*nptr1) = (NODE */* */)0; #line 369 __cil_tmp8 = oldstk; #line 369 __cil_tmp8_b25 = oldstk_b16; #line 369 __cil_tmp8_e26 = oldstk_e17; #line 369 __retres_e19 = __cil_tmp8_e26; #line 369 __retres_b18 = __cil_tmp8_b25; #line 369 __retres = __cil_tmp8; #line 365 __cil_tmp9._p = __retres; #line 365 __cil_tmp9._ms._b = __retres_b18; #line 365 __cil_tmp9._ms._e = __retres_e19; #line 365 CHECK_RETURNPTR(__cil_tmp9._ms._e, (void *)(& ___first_local)); #line 365 return (__cil_tmp9); } } #line 375 "xleval.c" static char __string68[26] = #line 375 { 'e', 'v', 'a', 'l', 'u', 'a', 't', 'i', 'o', 'n', ' ', 's', 't', 'a', 'c', 'k', ' ', 'o', 'v', 'e', 'r', 'f', 'l', 'o', 'w', '\000'}; #line 376 "xleval.c" static char __string69[26] = #line 376 { 'e', 'v', 'a', 'l', 'u', 'a', 't', 'i', 'o', 'n', ' ', 's', 't', 'a', 'c', 'k', ' ', 'o', 'v', 'e', 'r', 'f', 'l', 'o', 'w', '\000'}; #line 372 struct seq_p_p_s_node xlsave2_qssssss(NODE * * nptr1 , NODE * * nptr2 ) ; #line 372 "xleval.c" struct seq_p_p_s_node xlsave2_qssssss(NODE * * nptr1 , NODE * * nptr2 ) { int volatile ___first_local ; struct node * * * __SEQ oldstk ; struct node * * * __SEQ __retres ; struct node * * * __SEQ __cil_tmp5 ; char * __FSEQ __cil_tmp6 ; struct node * * * __SEQ __cil_tmp7 ; char * __FSEQ __cil_tmp9 ; struct node * * * __SEQ __cil_tmp10 ; struct node * * * __SEQ __cil_tmp11 ; struct seq_p_p_s_node __cil_tmp12 ; void *oldstk_b21 ; void *oldstk_e22 ; void *__retres_b23 ; void *__retres_e24 ; void *__cil_tmp5_b25 ; void *__cil_tmp5_e26 ; void *__cil_tmp6_e27 ; void *__cil_tmp7_b28 ; void *__cil_tmp7_e29 ; void *__cil_tmp9_e30 ; void *__cil_tmp10_b31 ; void *__cil_tmp10_e32 ; void *__cil_tmp11_b33 ; void *__cil_tmp11_e34 ; { #line 377 __retres_e24 = (void *)0; #line 377 __retres_b23 = (void *)0; #line 377 __retres = (struct node * * */* __SEQ */)0; #line 377 oldstk_e22 = (void *)0; #line 377 oldstk_b21 = (void *)0; #line 377 oldstk = (struct node * * */* __SEQ */)0; #line 374 __cil_tmp5 = xlstack_qss._p; #line 374 __cil_tmp5_b25 = xlstack_qss._ms._b; #line 374 __cil_tmp5_e26 = xlstack_qss._ms._e; #line 374 oldstk_e22 = __cil_tmp5_e26; #line 374 oldstk_b21 = __cil_tmp5_b25; #line 374 oldstk = __cil_tmp5; #line 375 if ((int )xlstack_qss._p <= (int )xlstkbase_qss._p) { #line 375 __cil_tmp6 = (char */* __FSEQ */)(& __string68[0]); #line 375 __cil_tmp6_e27 = & __string68[0] + 26; #line 375 xlabort_f(__cil_tmp6, __cil_tmp6_e27); } #line 375 __cil_tmp7 = xlstack_qss._p - 1; #line 375 __cil_tmp7_b28 = xlstack_qss._ms._b; #line 375 __cil_tmp7_e29 = xlstack_qss._ms._e; #line 375 CHECK_STOREPTR((void *)(& xlstack_qss), __cil_tmp7_b28, (void *)(& ___first_local)); #line 375 xlstack_qss._ms._e = __cil_tmp7_e29; #line 375 xlstack_qss._ms._b = __cil_tmp7_b28; #line 375 xlstack_qss._p = __cil_tmp7; #line 375 CHECK_SEQ2SAFE(xlstack_qss._ms._b, xlstack_qss._ms._e, (void *)xlstack_qss._p, sizeof(struct node * */* */), sizeof(struct node * */* */), 1, 0); #line 375 CHECK_STOREPTR((void *)xlstack_qss._p, (void *)((struct node * */* */)nptr1), (void *)(& ___first_local)); #line 375 (*(xlstack_qss._p)) = (struct node * */* */)nptr1; #line 375 CHECK_NULL((void *)nptr1); #line 375 CHECK_STOREPTR((void *)nptr1, (void *)((NODE */* */)0), (void *)(& ___first_local)); #line 375 (*nptr1) = (NODE */* */)0; #line 376 if ((int )xlstack_qss._p <= (int )xlstkbase_qss._p) { #line 376 __cil_tmp9 = (char */* __FSEQ */)(& __string69[0]); #line 376 __cil_tmp9_e30 = & __string69[0] + 26; #line 376 xlabort_f(__cil_tmp9, __cil_tmp9_e30); } #line 376 __cil_tmp10 = xlstack_qss._p - 1; #line 376 __cil_tmp10_b31 = xlstack_qss._ms._b; #line 376 __cil_tmp10_e32 = xlstack_qss._ms._e; #line 376 CHECK_STOREPTR((void *)(& xlstack_qss), __cil_tmp10_b31, (void *)(& ___first_local)); #line 376 xlstack_qss._ms._e = __cil_tmp10_e32; #line 376 xlstack_qss._ms._b = __cil_tmp10_b31; #line 376 xlstack_qss._p = __cil_tmp10; #line 376 CHECK_SEQ2SAFE(xlstack_qss._ms._b, xlstack_qss._ms._e, (void *)xlstack_qss._p, sizeof(struct node * */* */), sizeof(struct node * */* */), 1, 0); #line 376 CHECK_STOREPTR((void *)xlstack_qss._p, (void *)((struct node * */* */)nptr2), (void *)(& ___first_local)); #line 376 (*(xlstack_qss._p)) = (struct node * */* */)nptr2; #line 376 CHECK_NULL((void *)nptr2); #line 376 CHECK_STOREPTR((void *)nptr2, (void *)((NODE */* */)0), (void *)(& ___first_local)); #line 376 (*nptr2) = (NODE */* */)0; #line 377 __cil_tmp11 = oldstk; #line 377 __cil_tmp11_b33 = oldstk_b21; #line 377 __cil_tmp11_e34 = oldstk_e22; #line 377 __retres_e24 = __cil_tmp11_e34; #line 377 __retres_b23 = __cil_tmp11_b33; #line 377 __retres = __cil_tmp11; #line 372 __cil_tmp12._p = __retres; #line 372 __cil_tmp12._ms._b = __retres_b23; #line 372 __cil_tmp12._ms._e = __retres_e24; #line 372 CHECK_RETURNPTR(__cil_tmp12._ms._e, (void *)(& ___first_local)); #line 372 return (__cil_tmp12); } } #line 383 "xleval.c" static char __string70[26] = #line 383 { 'e', 'v', 'a', 'l', 'u', 'a', 't', 'i', 'o', 'n', ' ', 's', 't', 'a', 'c', 'k', ' ', 'o', 'v', 'e', 'r', 'f', 'l', 'o', 'w', '\000'}; #line 384 "xleval.c" static char __string71[26] = #line 384 { 'e', 'v', 'a', 'l', 'u', 'a', 't', 'i', 'o', 'n', ' ', 's', 't', 'a', 'c', 'k', ' ', 'o', 'v', 'e', 'r', 'f', 'l', 'o', 'w', '\000'}; #line 385 "xleval.c" static char __string72[26] = #line 385 { 'e', 'v', 'a', 'l', 'u', 'a', 't', 'i', 'o', 'n', ' ', 's', 't', 'a', 'c', 'k', ' ', 'o', 'v', 'e', 'r', 'f', 'l', 'o', 'w', '\000'}; #line 380 struct seq_p_p_s_node xlsave3_qssssssss(NODE * * nptr1 , NODE * * nptr2 , NODE * * nptr3 ) ; #line 380 "xleval.c" struct seq_p_p_s_node xlsave3_qssssssss(NODE * * nptr1 , NODE * * nptr2 , NODE * * nptr3 ) { int volatile ___first_local ; struct node * * * __SEQ oldstk ; struct node * * * __SEQ __retres ; struct node * * * __SEQ __cil_tmp6 ; char * __FSEQ __cil_tmp7 ; struct node * * * __SEQ __cil_tmp8 ; char * __FSEQ __cil_tmp10 ; struct node * * * __SEQ __cil_tmp11 ; char * __FSEQ __cil_tmp12 ; struct node * * * __SEQ __cil_tmp13 ; struct node * * * __SEQ __cil_tmp14 ; struct seq_p_p_s_node __cil_tmp15 ; void *oldstk_b26 ; void *oldstk_e27 ; void *__retres_b28 ; void *__retres_e29 ; void *__cil_tmp6_b30 ; void *__cil_tmp6_e31 ; void *__cil_tmp7_e32 ; void *__cil_tmp8_b33 ; void *__cil_tmp8_e34 ; void *__cil_tmp10_e35 ; void *__cil_tmp11_b36 ; void *__cil_tmp11_e37 ; void *__cil_tmp12_e38 ; void *__cil_tmp13_b39 ; void *__cil_tmp13_e40 ; void *__cil_tmp14_b41 ; void *__cil_tmp14_e42 ; { #line 386 __retres_e29 = (void *)0; #line 386 __retres_b28 = (void *)0; #line 386 __retres = (struct node * * */* __SEQ */)0; #line 386 oldstk_e27 = (void *)0; #line 386 oldstk_b26 = (void *)0; #line 386 oldstk = (struct node * * */* __SEQ */)0; #line 382 __cil_tmp6 = xlstack_qss._p; #line 382 __cil_tmp6_b30 = xlstack_qss._ms._b; #line 382 __cil_tmp6_e31 = xlstack_qss._ms._e; #line 382 oldstk_e27 = __cil_tmp6_e31; #line 382 oldstk_b26 = __cil_tmp6_b30; #line 382 oldstk = __cil_tmp6; #line 383 if ((int )xlstack_qss._p <= (int )xlstkbase_qss._p) { #line 383 __cil_tmp7 = (char */* __FSEQ */)(& __string70[0]); #line 383 __cil_tmp7_e32 = & __string70[0] + 26; #line 383 xlabort_f(__cil_tmp7, __cil_tmp7_e32); } #line 383 __cil_tmp8 = xlstack_qss._p - 1; #line 383 __cil_tmp8_b33 = xlstack_qss._ms._b; #line 383 __cil_tmp8_e34 = xlstack_qss._ms._e; #line 383 CHECK_STOREPTR((void *)(& xlstack_qss), __cil_tmp8_b33, (void *)(& ___first_local)); #line 383 xlstack_qss._ms._e = __cil_tmp8_e34; #line 383 xlstack_qss._ms._b = __cil_tmp8_b33; #line 383 xlstack_qss._p = __cil_tmp8; #line 383 CHECK_SEQ2SAFE(xlstack_qss._ms._b, xlstack_qss._ms._e, (void *)xlstack_qss._p, sizeof(struct node * */* */), sizeof(struct node * */* */), 1, 0); #line 383 CHECK_STOREPTR((void *)xlstack_qss._p, (void *)((struct node * */* */)nptr1), (void *)(& ___first_local)); #line 383 (*(xlstack_qss._p)) = (struct node * */* */)nptr1; #line 383 CHECK_NULL((void *)nptr1); #line 383 CHECK_STOREPTR((void *)nptr1, (void *)((NODE */* */)0), (void *)(& ___first_local)); #line 383 (*nptr1) = (NODE */* */)0; #line 384 if ((int )xlstack_qss._p <= (int )xlstkbase_qss._p) { #line 384 __cil_tmp10 = (char */* __FSEQ */)(& __string71[0]); #line 384 __cil_tmp10_e35 = & __string71[0] + 26; #line 384 xlabort_f(__cil_tmp10, __cil_tmp10_e35); } #line 384 __cil_tmp11 = xlstack_qss._p - 1; #line 384 __cil_tmp11_b36 = xlstack_qss._ms._b; #line 384 __cil_tmp11_e37 = xlstack_qss._ms._e; #line 384 CHECK_STOREPTR((void *)(& xlstack_qss), __cil_tmp11_b36, (void *)(& ___first_local)); #line 384 xlstack_qss._ms._e = __cil_tmp11_e37; #line 384 xlstack_qss._ms._b = __cil_tmp11_b36; #line 384 xlstack_qss._p = __cil_tmp11; #line 384 CHECK_SEQ2SAFE(xlstack_qss._ms._b, xlstack_qss._ms._e, (void *)xlstack_qss._p, sizeof(struct node * */* */), sizeof(struct node * */* */), 1, 0); #line 384 CHECK_STOREPTR((void *)xlstack_qss._p, (void *)((struct node * */* */)nptr2), (void *)(& ___first_local)); #line 384 (*(xlstack_qss._p)) = (struct node * */* */)nptr2; #line 384 CHECK_NULL((void *)nptr2); #line 384 CHECK_STOREPTR((void *)nptr2, (void *)((NODE */* */)0), (void *)(& ___first_local)); #line 384 (*nptr2) = (NODE */* */)0; #line 385 if ((int )xlstack_qss._p <= (int )xlstkbase_qss._p) { #line 385 __cil_tmp12 = (char */* __FSEQ */)(& __string72[0]); #line 385 __cil_tmp12_e38 = & __string72[0] + 26; #line 385 xlabort_f(__cil_tmp12, __cil_tmp12_e38); } #line 385 __cil_tmp13 = xlstack_qss._p - 1; #line 385 __cil_tmp13_b39 = xlstack_qss._ms._b; #line 385 __cil_tmp13_e40 = xlstack_qss._ms._e; #line 385 CHECK_STOREPTR((void *)(& xlstack_qss), __cil_tmp13_b39, (void *)(& ___first_local)); #line 385 xlstack_qss._ms._e = __cil_tmp13_e40; #line 385 xlstack_qss._ms._b = __cil_tmp13_b39; #line 385 xlstack_qss._p = __cil_tmp13; #line 385 CHECK_SEQ2SAFE(xlstack_qss._ms._b, xlstack_qss._ms._e, (void *)xlstack_qss._p, sizeof(struct node * */* */), sizeof(struct node * */* */), 1, 0); #line 385 CHECK_STOREPTR((void *)xlstack_qss._p, (void *)((struct node * */* */)nptr3), (void *)(& ___first_local)); #line 385 (*(xlstack_qss._p)) = (struct node * */* */)nptr3; #line 385 CHECK_NULL((void *)nptr3); #line 385 CHECK_STOREPTR((void *)nptr3, (void *)((NODE */* */)0), (void *)(& ___first_local)); #line 385 (*nptr3) = (NODE */* */)0; #line 386 __cil_tmp14 = oldstk; #line 386 __cil_tmp14_b41 = oldstk_b26; #line 386 __cil_tmp14_e42 = oldstk_e27; #line 386 __retres_e29 = __cil_tmp14_e42; #line 386 __retres_b28 = __cil_tmp14_b41; #line 386 __retres = __cil_tmp14; #line 380 __cil_tmp15._p = __retres; #line 380 __cil_tmp15._ms._b = __retres_b28; #line 380 __cil_tmp15._ms._e = __retres_e29; #line 380 CHECK_RETURNPTR(__cil_tmp15._ms._e, (void *)(& ___first_local)); #line 380 return (__cil_tmp15); } } #line 393 "xleval.c" static char __string73[26] = #line 393 { 'e', 'v', 'a', 'l', 'u', 'a', 't', 'i', 'o', 'n', ' ', 's', 't', 'a', 'c', 'k', ' ', 'o', 'v', 'e', 'r', 'f', 'l', 'o', 'w', '\000'}; #line 394 "xleval.c" static char __string74[26] = #line 394 { 'e', 'v', 'a', 'l', 'u', 'a', 't', 'i', 'o', 'n', ' ', 's', 't', 'a', 'c', 'k', ' ', 'o', 'v', 'e', 'r', 'f', 'l', 'o', 'w', '\000'}; #line 395 "xleval.c" static char __string75[26] = #line 395 { 'e', 'v', 'a', 'l', 'u', 'a', 't', 'i', 'o', 'n', ' ', 's', 't', 'a', 'c', 'k', ' ', 'o', 'v', 'e', 'r', 'f', 'l', 'o', 'w', '\000'}; #line 396 "xleval.c" static char __string76[26] = #line 396 { 'e', 'v', 'a', 'l', 'u', 'a', 't', 'i', 'o', 'n', ' ', 's', 't', 'a', 'c', 'k', ' ', 'o', 'v', 'e', 'r', 'f', 'l', 'o', 'w', '\000'}; #line 389 struct seq_p_p_s_node xlsave4_qssssssssss(NODE * * nptr1 , NODE * * nptr2 , NODE * * nptr3 , NODE * * nptr4 ) ; #line 389 "xleval.c" struct seq_p_p_s_node xlsave4_qssssssssss(NODE * * nptr1 , NODE * * nptr2 , NODE * * nptr3 , NODE * * nptr4 ) { int volatile ___first_local ; struct node * * * __SEQ oldstk ; struct node * * * __SEQ __retres ; struct node * * * __SEQ __cil_tmp7 ; char * __FSEQ __cil_tmp8 ; struct node * * * __SEQ __cil_tmp9 ; char * __FSEQ __cil_tmp11 ; struct node * * * __SEQ __cil_tmp12 ; char * __FSEQ __cil_tmp13 ; struct node * * * __SEQ __cil_tmp14 ; char * __FSEQ __cil_tmp15 ; struct node * * * __SEQ __cil_tmp16 ; struct node * * * __SEQ __cil_tmp17 ; struct seq_p_p_s_node __cil_tmp18 ; void *oldstk_b31 ; void *oldstk_e32 ; void *__retres_b33 ; void *__retres_e34 ; void *__cil_tmp7_b35 ; void *__cil_tmp7_e36 ; void *__cil_tmp8_e37 ; void *__cil_tmp9_b38 ; void *__cil_tmp9_e39 ; void *__cil_tmp11_e40 ; void *__cil_tmp12_b41 ; void *__cil_tmp12_e42 ; void *__cil_tmp13_e43 ; void *__cil_tmp14_b44 ; void *__cil_tmp14_e45 ; void *__cil_tmp15_e46 ; void *__cil_tmp16_b47 ; void *__cil_tmp16_e48 ; void *__cil_tmp17_b49 ; void *__cil_tmp17_e50 ; { #line 397 __retres_e34 = (void *)0; #line 397 __retres_b33 = (void *)0; #line 397 __retres = (struct node * * */* __SEQ */)0; #line 397 oldstk_e32 = (void *)0; #line 397 oldstk_b31 = (void *)0; #line 397 oldstk = (struct node * * */* __SEQ */)0; #line 392 __cil_tmp7 = xlstack_qss._p; #line 392 __cil_tmp7_b35 = xlstack_qss._ms._b; #line 392 __cil_tmp7_e36 = xlstack_qss._ms._e; #line 392 oldstk_e32 = __cil_tmp7_e36; #line 392 oldstk_b31 = __cil_tmp7_b35; #line 392 oldstk = __cil_tmp7; #line 393 if ((int )xlstack_qss._p <= (int )xlstkbase_qss._p) { #line 393 __cil_tmp8 = (char */* __FSEQ */)(& __string73[0]); #line 393 __cil_tmp8_e37 = & __string73[0] + 26; #line 393 xlabort_f(__cil_tmp8, __cil_tmp8_e37); } #line 393 __cil_tmp9 = xlstack_qss._p - 1; #line 393 __cil_tmp9_b38 = xlstack_qss._ms._b; #line 393 __cil_tmp9_e39 = xlstack_qss._ms._e; #line 393 CHECK_STOREPTR((void *)(& xlstack_qss), __cil_tmp9_b38, (void *)(& ___first_local)); #line 393 xlstack_qss._ms._e = __cil_tmp9_e39; #line 393 xlstack_qss._ms._b = __cil_tmp9_b38; #line 393 xlstack_qss._p = __cil_tmp9; #line 393 CHECK_SEQ2SAFE(xlstack_qss._ms._b, xlstack_qss._ms._e, (void *)xlstack_qss._p, sizeof(struct node * */* */), sizeof(struct node * */* */), 1, 0); #line 393 CHECK_STOREPTR((void *)xlstack_qss._p, (void *)((struct node * */* */)nptr1), (void *)(& ___first_local)); #line 393 (*(xlstack_qss._p)) = (struct node * */* */)nptr1; #line 393 CHECK_NULL((void *)nptr1); #line 393 CHECK_STOREPTR((void *)nptr1, (void *)((NODE */* */)0), (void *)(& ___first_local)); #line 393 (*nptr1) = (NODE */* */)0; #line 394 if ((int )xlstack_qss._p <= (int )xlstkbase_qss._p) { #line 394 __cil_tmp11 = (char */* __FSEQ */)(& __string74[0]); #line 394 __cil_tmp11_e40 = & __string74[0] + 26; #line 394 xlabort_f(__cil_tmp11, __cil_tmp11_e40); } #line 394 __cil_tmp12 = xlstack_qss._p - 1; #line 394 __cil_tmp12_b41 = xlstack_qss._ms._b; #line 394 __cil_tmp12_e42 = xlstack_qss._ms._e; #line 394 CHECK_STOREPTR((void *)(& xlstack_qss), __cil_tmp12_b41, (void *)(& ___first_local)); #line 394 xlstack_qss._ms._e = __cil_tmp12_e42; #line 394 xlstack_qss._ms._b = __cil_tmp12_b41; #line 394 xlstack_qss._p = __cil_tmp12; #line 394 CHECK_SEQ2SAFE(xlstack_qss._ms._b, xlstack_qss._ms._e, (void *)xlstack_qss._p, sizeof(struct node * */* */), sizeof(struct node * */* */), 1, 0); #line 394 CHECK_STOREPTR((void *)xlstack_qss._p, (void *)((struct node * */* */)nptr2), (void *)(& ___first_local)); #line 394 (*(xlstack_qss._p)) = (struct node * */* */)nptr2; #line 394 CHECK_NULL((void *)nptr2); #line 394 CHECK_STOREPTR((void *)nptr2, (void *)((NODE */* */)0), (void *)(& ___first_local)); #line 394 (*nptr2) = (NODE */* */)0; #line 395 if ((int )xlstack_qss._p <= (int )xlstkbase_qss._p) { #line 395 __cil_tmp13 = (char */* __FSEQ */)(& __string75[0]); #line 395 __cil_tmp13_e43 = & __string75[0] + 26; #line 395 xlabort_f(__cil_tmp13, __cil_tmp13_e43); } #line 395 __cil_tmp14 = xlstack_qss._p - 1; #line 395 __cil_tmp14_b44 = xlstack_qss._ms._b; #line 395 __cil_tmp14_e45 = xlstack_qss._ms._e; #line 395 CHECK_STOREPTR((void *)(& xlstack_qss), __cil_tmp14_b44, (void *)(& ___first_local)); #line 395 xlstack_qss._ms._e = __cil_tmp14_e45; #line 395 xlstack_qss._ms._b = __cil_tmp14_b44; #line 395 xlstack_qss._p = __cil_tmp14; #line 395 CHECK_SEQ2SAFE(xlstack_qss._ms._b, xlstack_qss._ms._e, (void *)xlstack_qss._p, sizeof(struct node * */* */), sizeof(struct node * */* */), 1, 0); #line 395 CHECK_STOREPTR((void *)xlstack_qss._p, (void *)((struct node * */* */)nptr3), (void *)(& ___first_local)); #line 395 (*(xlstack_qss._p)) = (struct node * */* */)nptr3; #line 395 CHECK_NULL((void *)nptr3); #line 395 CHECK_STOREPTR((void *)nptr3, (void *)((NODE */* */)0), (void *)(& ___first_local)); #line 395 (*nptr3) = (NODE */* */)0; #line 396 if ((int )xlstack_qss._p <= (int )xlstkbase_qss._p) { #line 396 __cil_tmp15 = (char */* __FSEQ */)(& __string76[0]); #line 396 __cil_tmp15_e46 = & __string76[0] + 26; #line 396 xlabort_f(__cil_tmp15, __cil_tmp15_e46); } #line 396 __cil_tmp16 = xlstack_qss._p - 1; #line 396 __cil_tmp16_b47 = xlstack_qss._ms._b; #line 396 __cil_tmp16_e48 = xlstack_qss._ms._e; #line 396 CHECK_STOREPTR((void *)(& xlstack_qss), __cil_tmp16_b47, (void *)(& ___first_local)); #line 396 xlstack_qss._ms._e = __cil_tmp16_e48; #line 396 xlstack_qss._ms._b = __cil_tmp16_b47; #line 396 xlstack_qss._p = __cil_tmp16; #line 396 CHECK_SEQ2SAFE(xlstack_qss._ms._b, xlstack_qss._ms._e, (void *)xlstack_qss._p, sizeof(struct node * */* */), sizeof(struct node * */* */), 1, 0); #line 396 CHECK_STOREPTR((void *)xlstack_qss._p, (void *)((struct node * */* */)nptr4), (void *)(& ___first_local)); #line 396 (*(xlstack_qss._p)) = (struct node * */* */)nptr4; #line 396 CHECK_NULL((void *)nptr4); #line 396 CHECK_STOREPTR((void *)nptr4, (void *)((NODE */* */)0), (void *)(& ___first_local)); #line 396 (*nptr4) = (NODE */* */)0; #line 397 __cil_tmp17 = oldstk; #line 397 __cil_tmp17_b49 = oldstk_b31; #line 397 __cil_tmp17_e50 = oldstk_e32; #line 397 __retres_e34 = __cil_tmp17_e50; #line 397 __retres_b33 = __cil_tmp17_b49; #line 397 __retres = __cil_tmp17; #line 389 __cil_tmp18._p = __retres; #line 389 __cil_tmp18._ms._b = __retres_b33; #line 389 __cil_tmp18._ms._e = __retres_e34; #line 389 CHECK_RETURNPTR(__cil_tmp18._ms._e, (void *)(& ___first_local)); #line 389 return (__cil_tmp18); } } #line 404 "xleval.c" static char __string77[26] = #line 404 { 'e', 'v', 'a', 'l', 'u', 'a', 't', 'i', 'o', 'n', ' ', 's', 't', 'a', 'c', 'k', ' ', 'o', 'v', 'e', 'r', 'f', 'l', 'o', 'w', '\000'}; #line 405 "xleval.c" static char __string78[26] = #line 405 { 'e', 'v', 'a', 'l', 'u', 'a', 't', 'i', 'o', 'n', ' ', 's', 't', 'a', 'c', 'k', ' ', 'o', 'v', 'e', 'r', 'f', 'l', 'o', 'w', '\000'}; #line 406 "xleval.c" static char __string79[26] = #line 406 { 'e', 'v', 'a', 'l', 'u', 'a', 't', 'i', 'o', 'n', ' ', 's', 't', 'a', 'c', 'k', ' ', 'o', 'v', 'e', 'r', 'f', 'l', 'o', 'w', '\000'}; #line 407 "xleval.c" static char __string80[26] = #line 407 { 'e', 'v', 'a', 'l', 'u', 'a', 't', 'i', 'o', 'n', ' ', 's', 't', 'a', 'c', 'k', ' ', 'o', 'v', 'e', 'r', 'f', 'l', 'o', 'w', '\000'}; #line 408 "xleval.c" static char __string81[26] = #line 408 { 'e', 'v', 'a', 'l', 'u', 'a', 't', 'i', 'o', 'n', ' ', 's', 't', 'a', 'c', 'k', ' ', 'o', 'v', 'e', 'r', 'f', 'l', 'o', 'w', '\000'}; #line 400 struct seq_p_p_s_node xlsave5_qssssssssssss(NODE * * nptr1 , NODE * * nptr2 , NODE * * nptr3 , NODE * * nptr4 , NODE * * nptr5 ) ; #line 400 "xleval.c" struct seq_p_p_s_node xlsave5_qssssssssssss(NODE * * nptr1 , NODE * * nptr2 , NODE * * nptr3 , NODE * * nptr4 , NODE * * nptr5 ) { int volatile ___first_local ; struct node * * * __SEQ oldstk ; struct node * * * __SEQ __retres ; struct node * * * __SEQ __cil_tmp8 ; char * __FSEQ __cil_tmp9 ; struct node * * * __SEQ __cil_tmp10 ; char * __FSEQ __cil_tmp12 ; struct node * * * __SEQ __cil_tmp13 ; char * __FSEQ __cil_tmp14 ; struct node * * * __SEQ __cil_tmp15 ; char * __FSEQ __cil_tmp16 ; struct node * * * __SEQ __cil_tmp17 ; char * __FSEQ __cil_tmp18 ; struct node * * * __SEQ __cil_tmp19 ; struct node * * * __SEQ __cil_tmp20 ; struct seq_p_p_s_node __cil_tmp21 ; void *oldstk_b36 ; void *oldstk_e37 ; void *__retres_b38 ; void *__retres_e39 ; void *__cil_tmp8_b40 ; void *__cil_tmp8_e41 ; void *__cil_tmp9_e42 ; void *__cil_tmp10_b43 ; void *__cil_tmp10_e44 ; void *__cil_tmp12_e45 ; void *__cil_tmp13_b46 ; void *__cil_tmp13_e47 ; void *__cil_tmp14_e48 ; void *__cil_tmp15_b49 ; void *__cil_tmp15_e50 ; void *__cil_tmp16_e51 ; void *__cil_tmp17_b52 ; void *__cil_tmp17_e53 ; void *__cil_tmp18_e54 ; void *__cil_tmp19_b55 ; void *__cil_tmp19_e56 ; void *__cil_tmp20_b57 ; void *__cil_tmp20_e58 ; { #line 409 __retres_e39 = (void *)0; #line 409 __retres_b38 = (void *)0; #line 409 __retres = (struct node * * */* __SEQ */)0; #line 409 oldstk_e37 = (void *)0; #line 409 oldstk_b36 = (void *)0; #line 409 oldstk = (struct node * * */* __SEQ */)0; #line 403 __cil_tmp8 = xlstack_qss._p; #line 403 __cil_tmp8_b40 = xlstack_qss._ms._b; #line 403 __cil_tmp8_e41 = xlstack_qss._ms._e; #line 403 oldstk_e37 = __cil_tmp8_e41; #line 403 oldstk_b36 = __cil_tmp8_b40; #line 403 oldstk = __cil_tmp8; #line 404 if ((int )xlstack_qss._p <= (int )xlstkbase_qss._p) { #line 404 __cil_tmp9 = (char */* __FSEQ */)(& __string77[0]); #line 404 __cil_tmp9_e42 = & __string77[0] + 26; #line 404 xlabort_f(__cil_tmp9, __cil_tmp9_e42); } #line 404 __cil_tmp10 = xlstack_qss._p - 1; #line 404 __cil_tmp10_b43 = xlstack_qss._ms._b; #line 404 __cil_tmp10_e44 = xlstack_qss._ms._e; #line 404 CHECK_STOREPTR((void *)(& xlstack_qss), __cil_tmp10_b43, (void *)(& ___first_local)); #line 404 xlstack_qss._ms._e = __cil_tmp10_e44; #line 404 xlstack_qss._ms._b = __cil_tmp10_b43; #line 404 xlstack_qss._p = __cil_tmp10; #line 404 CHECK_SEQ2SAFE(xlstack_qss._ms._b, xlstack_qss._ms._e, (void *)xlstack_qss._p, sizeof(struct node * */* */), sizeof(struct node * */* */), 1, 0); #line 404 CHECK_STOREPTR((void *)xlstack_qss._p, (void *)((struct node * */* */)nptr1), (void *)(& ___first_local)); #line 404 (*(xlstack_qss._p)) = (struct node * */* */)nptr1; #line 404 CHECK_NULL((void *)nptr1); #line 404 CHECK_STOREPTR((void *)nptr1, (void *)((NODE */* */)0), (void *)(& ___first_local)); #line 404 (*nptr1) = (NODE */* */)0; #line 405 if ((int )xlstack_qss._p <= (int )xlstkbase_qss._p) { #line 405 __cil_tmp12 = (char */* __FSEQ */)(& __string78[0]); #line 405 __cil_tmp12_e45 = & __string78[0] + 26; #line 405 xlabort_f(__cil_tmp12, __cil_tmp12_e45); } #line 405 __cil_tmp13 = xlstack_qss._p - 1; #line 405 __cil_tmp13_b46 = xlstack_qss._ms._b; #line 405 __cil_tmp13_e47 = xlstack_qss._ms._e; #line 405 CHECK_STOREPTR((void *)(& xlstack_qss), __cil_tmp13_b46, (void *)(& ___first_local)); #line 405 xlstack_qss._ms._e = __cil_tmp13_e47; #line 405 xlstack_qss._ms._b = __cil_tmp13_b46; #line 405 xlstack_qss._p = __cil_tmp13; #line 405 CHECK_SEQ2SAFE(xlstack_qss._ms._b, xlstack_qss._ms._e, (void *)xlstack_qss._p, sizeof(struct node * */* */), sizeof(struct node * */* */), 1, 0); #line 405 CHECK_STOREPTR((void *)xlstack_qss._p, (void *)((struct node * */* */)nptr2), (void *)(& ___first_local)); #line 405 (*(xlstack_qss._p)) = (struct node * */* */)nptr2; #line 405 CHECK_NULL((void *)nptr2); #line 405 CHECK_STOREPTR((void *)nptr2, (void *)((NODE */* */)0), (void *)(& ___first_local)); #line 405 (*nptr2) = (NODE */* */)0; #line 406 if ((int )xlstack_qss._p <= (int )xlstkbase_qss._p) { #line 406 __cil_tmp14 = (char */* __FSEQ */)(& __string79[0]); #line 406 __cil_tmp14_e48 = & __string79[0] + 26; #line 406 xlabort_f(__cil_tmp14, __cil_tmp14_e48); } #line 406 __cil_tmp15 = xlstack_qss._p - 1; #line 406 __cil_tmp15_b49 = xlstack_qss._ms._b; #line 406 __cil_tmp15_e50 = xlstack_qss._ms._e; #line 406 CHECK_STOREPTR((void *)(& xlstack_qss), __cil_tmp15_b49, (void *)(& ___first_local)); #line 406 xlstack_qss._ms._e = __cil_tmp15_e50; #line 406 xlstack_qss._ms._b = __cil_tmp15_b49; #line 406 xlstack_qss._p = __cil_tmp15; #line 406 CHECK_SEQ2SAFE(xlstack_qss._ms._b, xlstack_qss._ms._e, (void *)xlstack_qss._p, sizeof(struct node * */* */), sizeof(struct node * */* */), 1, 0); #line 406 CHECK_STOREPTR((void *)xlstack_qss._p, (void *)((struct node * */* */)nptr3), (void *)(& ___first_local)); #line 406 (*(xlstack_qss._p)) = (struct node * */* */)nptr3; #line 406 CHECK_NULL((void *)nptr3); #line 406 CHECK_STOREPTR((void *)nptr3, (void *)((NODE */* */)0), (void *)(& ___first_local)); #line 406 (*nptr3) = (NODE */* */)0; #line 407 if ((int )xlstack_qss._p <= (int )xlstkbase_qss._p) { #line 407 __cil_tmp16 = (char */* __FSEQ */)(& __string80[0]); #line 407 __cil_tmp16_e51 = & __string80[0] + 26; #line 407 xlabort_f(__cil_tmp16, __cil_tmp16_e51); } #line 407 __cil_tmp17 = xlstack_qss._p - 1; #line 407 __cil_tmp17_b52 = xlstack_qss._ms._b; #line 407 __cil_tmp17_e53 = xlstack_qss._ms._e; #line 407 CHECK_STOREPTR((void *)(& xlstack_qss), __cil_tmp17_b52, (void *)(& ___first_local)); #line 407 xlstack_qss._ms._e = __cil_tmp17_e53; #line 407 xlstack_qss._ms._b = __cil_tmp17_b52; #line 407 xlstack_qss._p = __cil_tmp17; #line 407 CHECK_SEQ2SAFE(xlstack_qss._ms._b, xlstack_qss._ms._e, (void *)xlstack_qss._p, sizeof(struct node * */* */), sizeof(struct node * */* */), 1, 0); #line 407 CHECK_STOREPTR((void *)xlstack_qss._p, (void *)((struct node * */* */)nptr4), (void *)(& ___first_local)); #line 407 (*(xlstack_qss._p)) = (struct node * */* */)nptr4; #line 407 CHECK_NULL((void *)nptr4); #line 407 CHECK_STOREPTR((void *)nptr4, (void *)((NODE */* */)0), (void *)(& ___first_local)); #line 407 (*nptr4) = (NODE */* */)0; #line 408 if ((int )xlstack_qss._p <= (int )xlstkbase_qss._p) { #line 408 __cil_tmp18 = (char */* __FSEQ */)(& __string81[0]); #line 408 __cil_tmp18_e54 = & __string81[0] + 26; #line 408 xlabort_f(__cil_tmp18, __cil_tmp18_e54); } #line 408 __cil_tmp19 = xlstack_qss._p - 1; #line 408 __cil_tmp19_b55 = xlstack_qss._ms._b; #line 408 __cil_tmp19_e56 = xlstack_qss._ms._e; #line 408 CHECK_STOREPTR((void *)(& xlstack_qss), __cil_tmp19_b55, (void *)(& ___first_local)); #line 408 xlstack_qss._ms._e = __cil_tmp19_e56; #line 408 xlstack_qss._ms._b = __cil_tmp19_b55; #line 408 xlstack_qss._p = __cil_tmp19; #line 408 CHECK_SEQ2SAFE(xlstack_qss._ms._b, xlstack_qss._ms._e, (void *)xlstack_qss._p, sizeof(struct node * */* */), sizeof(struct node * */* */), 1, 0); #line 408 CHECK_STOREPTR((void *)xlstack_qss._p, (void *)((struct node * */* */)nptr5), (void *)(& ___first_local)); #line 408 (*(xlstack_qss._p)) = (struct node * */* */)nptr5; #line 408 CHECK_NULL((void *)nptr5); #line 408 CHECK_STOREPTR((void *)nptr5, (void *)((NODE */* */)0), (void *)(& ___first_local)); #line 408 (*nptr5) = (NODE */* */)0; #line 409 __cil_tmp20 = oldstk; #line 409 __cil_tmp20_b57 = oldstk_b36; #line 409 __cil_tmp20_e58 = oldstk_e37; #line 409 __retres_e39 = __cil_tmp20_e58; #line 409 __retres_b38 = __cil_tmp20_b57; #line 409 __retres = __cil_tmp20; #line 400 __cil_tmp21._p = __retres; #line 400 __cil_tmp21._ms._b = __retres_b38; #line 400 __cil_tmp21._ms._e = __retres_e39; #line 400 CHECK_RETURNPTR(__cil_tmp21._ms._e, (void *)(& ___first_local)); #line 400 return (__cil_tmp21); } } #line 416 "xleval.c" static char __string82[26] = #line 416 { 'e', 'v', 'a', 'l', 'u', 'a', 't', 'i', 'o', 'n', ' ', 's', 't', 'a', 'c', 'k', ' ', 'o', 'v', 'e', 'r', 'f', 'l', 'o', 'w', '\000'}; #line 417 "xleval.c" static char __string83[26] = #line 417 { 'e', 'v', 'a', 'l', 'u', 'a', 't', 'i', 'o', 'n', ' ', 's', 't', 'a', 'c', 'k', ' ', 'o', 'v', 'e', 'r', 'f', 'l', 'o', 'w', '\000'}; #line 418 "xleval.c" static char __string84[26] = #line 418 { 'e', 'v', 'a', 'l', 'u', 'a', 't', 'i', 'o', 'n', ' ', 's', 't', 'a', 'c', 'k', ' ', 'o', 'v', 'e', 'r', 'f', 'l', 'o', 'w', '\000'}; #line 419 "xleval.c" static char __string85[26] = #line 419 { 'e', 'v', 'a', 'l', 'u', 'a', 't', 'i', 'o', 'n', ' ', 's', 't', 'a', 'c', 'k', ' ', 'o', 'v', 'e', 'r', 'f', 'l', 'o', 'w', '\000'}; #line 420 "xleval.c" static char __string86[26] = #line 420 { 'e', 'v', 'a', 'l', 'u', 'a', 't', 'i', 'o', 'n', ' ', 's', 't', 'a', 'c', 'k', ' ', 'o', 'v', 'e', 'r', 'f', 'l', 'o', 'w', '\000'}; #line 421 "xleval.c" static char __string87[26] = #line 421 { 'e', 'v', 'a', 'l', 'u', 'a', 't', 'i', 'o', 'n', ' ', 's', 't', 'a', 'c', 'k', ' ', 'o', 'v', 'e', 'r', 'f', 'l', 'o', 'w', '\000'}; #line 412 NODE * * * xlsave6(NODE * * nptr1 , NODE * * nptr2 , NODE * * nptr3 , NODE * * nptr4 , NODE * * nptr5 , NODE * * nptr6 ) ; #line 412 "xleval.c" NODE * * * xlsave6(NODE * * nptr1 , NODE * * nptr2 , NODE * * nptr3 , NODE * * nptr4 , NODE * * nptr5 , NODE * * nptr6 ) { int volatile ___first_local ; NODE * * * oldstk ; NODE * * * __retres ; char * __FSEQ __cil_tmp9 ; struct node * * * __SEQ __cil_tmp10 ; char * __FSEQ __cil_tmp12 ; struct node * * * __SEQ __cil_tmp13 ; char * __FSEQ __cil_tmp14 ; struct node * * * __SEQ __cil_tmp15 ; char * __FSEQ __cil_tmp16 ; struct node * * * __SEQ __cil_tmp17 ; char * __FSEQ __cil_tmp18 ; struct node * * * __SEQ __cil_tmp19 ; char * __FSEQ __cil_tmp20 ; struct node * * * __SEQ __cil_tmp21 ; void *__cil_tmp9_e34 ; void *__cil_tmp10_b35 ; void *__cil_tmp10_e36 ; void *__cil_tmp12_e37 ; void *__cil_tmp13_b38 ; void *__cil_tmp13_e39 ; void *__cil_tmp14_e40 ; void *__cil_tmp15_b41 ; void *__cil_tmp15_e42 ; void *__cil_tmp16_e43 ; void *__cil_tmp17_b44 ; void *__cil_tmp17_e45 ; void *__cil_tmp18_e46 ; void *__cil_tmp19_b47 ; void *__cil_tmp19_e48 ; void *__cil_tmp20_e49 ; void *__cil_tmp21_b50 ; void *__cil_tmp21_e51 ; { #line 422 __retres = (NODE * * */* */)0; #line 422 oldstk = (NODE * * */* */)0; #line 415 CHECK_SEQ2SAFE(xlstack_qss._ms._b, xlstack_qss._ms._e, (void *)xlstack_qss._p, sizeof(struct node * */* */), sizeof(NODE * */* */), 0, 0); #line 415 oldstk = (NODE * * */* */)xlstack_qss._p; #line 416 if ((int )xlstack_qss._p <= (int )xlstkbase_qss._p) { #line 416 __cil_tmp9 = (char */* __FSEQ */)(& __string82[0]); #line 416 __cil_tmp9_e34 = & __string82[0] + 26; #line 416 xlabort_f(__cil_tmp9, __cil_tmp9_e34); } #line 416 __cil_tmp10 = xlstack_qss._p - 1; #line 416 __cil_tmp10_b35 = xlstack_qss._ms._b; #line 416 __cil_tmp10_e36 = xlstack_qss._ms._e; #line 416 CHECK_STOREPTR((void *)(& xlstack_qss), __cil_tmp10_b35, (void *)(& ___first_local)); #line 416 xlstack_qss._ms._e = __cil_tmp10_e36; #line 416 xlstack_qss._ms._b = __cil_tmp10_b35; #line 416 xlstack_qss._p = __cil_tmp10; #line 416 CHECK_SEQ2SAFE(xlstack_qss._ms._b, xlstack_qss._ms._e, (void *)xlstack_qss._p, sizeof(struct node * */* */), sizeof(struct node * */* */), 1, 0); #line 416 CHECK_STOREPTR((void *)xlstack_qss._p, (void *)((struct node * */* */)nptr1), (void *)(& ___first_local)); #line 416 (*(xlstack_qss._p)) = (struct node * */* */)nptr1; #line 416 CHECK_NULL((void *)nptr1); #line 416 CHECK_STOREPTR((void *)nptr1, (void *)((NODE */* */)0), (void *)(& ___first_local)); #line 416 (*nptr1) = (NODE */* */)0; #line 417 if ((int )xlstack_qss._p <= (int )xlstkbase_qss._p) { #line 417 __cil_tmp12 = (char */* __FSEQ */)(& __string83[0]); #line 417 __cil_tmp12_e37 = & __string83[0] + 26; #line 417 xlabort_f(__cil_tmp12, __cil_tmp12_e37); } #line 417 __cil_tmp13 = xlstack_qss._p - 1; #line 417 __cil_tmp13_b38 = xlstack_qss._ms._b; #line 417 __cil_tmp13_e39 = xlstack_qss._ms._e; #line 417 CHECK_STOREPTR((void *)(& xlstack_qss), __cil_tmp13_b38, (void *)(& ___first_local)); #line 417 xlstack_qss._ms._e = __cil_tmp13_e39; #line 417 xlstack_qss._ms._b = __cil_tmp13_b38; #line 417 xlstack_qss._p = __cil_tmp13; #line 417 CHECK_SEQ2SAFE(xlstack_qss._ms._b, xlstack_qss._ms._e, (void *)xlstack_qss._p, sizeof(struct node * */* */), sizeof(struct node * */* */), 1, 0); #line 417 CHECK_STOREPTR((void *)xlstack_qss._p, (void *)((struct node * */* */)nptr2), (void *)(& ___first_local)); #line 417 (*(xlstack_qss._p)) = (struct node * */* */)nptr2; #line 417 CHECK_NULL((void *)nptr2); #line 417 CHECK_STOREPTR((void *)nptr2, (void *)((NODE */* */)0), (void *)(& ___first_local)); #line 417 (*nptr2) = (NODE */* */)0; #line 418 if ((int )xlstack_qss._p <= (int )xlstkbase_qss._p) { #line 418 __cil_tmp14 = (char */* __FSEQ */)(& __string84[0]); #line 418 __cil_tmp14_e40 = & __string84[0] + 26; #line 418 xlabort_f(__cil_tmp14, __cil_tmp14_e40); } #line 418 __cil_tmp15 = xlstack_qss._p - 1; #line 418 __cil_tmp15_b41 = xlstack_qss._ms._b; #line 418 __cil_tmp15_e42 = xlstack_qss._ms._e; #line 418 CHECK_STOREPTR((void *)(& xlstack_qss), __cil_tmp15_b41, (void *)(& ___first_local)); #line 418 xlstack_qss._ms._e = __cil_tmp15_e42; #line 418 xlstack_qss._ms._b = __cil_tmp15_b41; #line 418 xlstack_qss._p = __cil_tmp15; #line 418 CHECK_SEQ2SAFE(xlstack_qss._ms._b, xlstack_qss._ms._e, (void *)xlstack_qss._p, sizeof(struct node * */* */), sizeof(struct node * */* */), 1, 0); #line 418 CHECK_STOREPTR((void *)xlstack_qss._p, (void *)((struct node * */* */)nptr3), (void *)(& ___first_local)); #line 418 (*(xlstack_qss._p)) = (struct node * */* */)nptr3; #line 418 CHECK_NULL((void *)nptr3); #line 418 CHECK_STOREPTR((void *)nptr3, (void *)((NODE */* */)0), (void *)(& ___first_local)); #line 418 (*nptr3) = (NODE */* */)0; #line 419 if ((int )xlstack_qss._p <= (int )xlstkbase_qss._p) { #line 419 __cil_tmp16 = (char */* __FSEQ */)(& __string85[0]); #line 419 __cil_tmp16_e43 = & __string85[0] + 26; #line 419 xlabort_f(__cil_tmp16, __cil_tmp16_e43); } #line 419 __cil_tmp17 = xlstack_qss._p - 1; #line 419 __cil_tmp17_b44 = xlstack_qss._ms._b; #line 419 __cil_tmp17_e45 = xlstack_qss._ms._e; #line 419 CHECK_STOREPTR((void *)(& xlstack_qss), __cil_tmp17_b44, (void *)(& ___first_local)); #line 419 xlstack_qss._ms._e = __cil_tmp17_e45; #line 419 xlstack_qss._ms._b = __cil_tmp17_b44; #line 419 xlstack_qss._p = __cil_tmp17; #line 419 CHECK_SEQ2SAFE(xlstack_qss._ms._b, xlstack_qss._ms._e, (void *)xlstack_qss._p, sizeof(struct node * */* */), sizeof(struct node * */* */), 1, 0); #line 419 CHECK_STOREPTR((void *)xlstack_qss._p, (void *)((struct node * */* */)nptr4), (void *)(& ___first_local)); #line 419 (*(xlstack_qss._p)) = (struct node * */* */)nptr4; #line 419 CHECK_NULL((void *)nptr4); #line 419 CHECK_STOREPTR((void *)nptr4, (void *)((NODE */* */)0), (void *)(& ___first_local)); #line 419 (*nptr4) = (NODE */* */)0; #line 420 if ((int )xlstack_qss._p <= (int )xlstkbase_qss._p) { #line 420 __cil_tmp18 = (char */* __FSEQ */)(& __string86[0]); #line 420 __cil_tmp18_e46 = & __string86[0] + 26; #line 420 xlabort_f(__cil_tmp18, __cil_tmp18_e46); } #line 420 __cil_tmp19 = xlstack_qss._p - 1; #line 420 __cil_tmp19_b47 = xlstack_qss._ms._b; #line 420 __cil_tmp19_e48 = xlstack_qss._ms._e; #line 420 CHECK_STOREPTR((void *)(& xlstack_qss), __cil_tmp19_b47, (void *)(& ___first_local)); #line 420 xlstack_qss._ms._e = __cil_tmp19_e48; #line 420 xlstack_qss._ms._b = __cil_tmp19_b47; #line 420 xlstack_qss._p = __cil_tmp19; #line 420 CHECK_SEQ2SAFE(xlstack_qss._ms._b, xlstack_qss._ms._e, (void *)xlstack_qss._p, sizeof(struct node * */* */), sizeof(struct node * */* */), 1, 0); #line 420 CHECK_STOREPTR((void *)xlstack_qss._p, (void *)((struct node * */* */)nptr5), (void *)(& ___first_local)); #line 420 (*(xlstack_qss._p)) = (struct node * */* */)nptr5; #line 420 CHECK_NULL((void *)nptr5); #line 420 CHECK_STOREPTR((void *)nptr5, (void *)((NODE */* */)0), (void *)(& ___first_local)); #line 420 (*nptr5) = (NODE */* */)0; #line 421 if ((int )xlstack_qss._p <= (int )xlstkbase_qss._p) { #line 421 __cil_tmp20 = (char */* __FSEQ */)(& __string87[0]); #line 421 __cil_tmp20_e49 = & __string87[0] + 26; #line 421 xlabort_f(__cil_tmp20, __cil_tmp20_e49); } #line 421 __cil_tmp21 = xlstack_qss._p - 1; #line 421 __cil_tmp21_b50 = xlstack_qss._ms._b; #line 421 __cil_tmp21_e51 = xlstack_qss._ms._e; #line 421 CHECK_STOREPTR((void *)(& xlstack_qss), __cil_tmp21_b50, (void *)(& ___first_local)); #line 421 xlstack_qss._ms._e = __cil_tmp21_e51; #line 421 xlstack_qss._ms._b = __cil_tmp21_b50; #line 421 xlstack_qss._p = __cil_tmp21; #line 421 CHECK_SEQ2SAFE(xlstack_qss._ms._b, xlstack_qss._ms._e, (void *)xlstack_qss._p, sizeof(struct node * */* */), sizeof(struct node * */* */), 1, 0); #line 421 CHECK_STOREPTR((void *)xlstack_qss._p, (void *)((struct node * */* */)nptr6), (void *)(& ___first_local)); #line 421 (*(xlstack_qss._p)) = (struct node * */* */)nptr6; #line 421 CHECK_NULL((void *)nptr6); #line 421 CHECK_STOREPTR((void *)nptr6, (void *)((NODE */* */)0), (void *)(& ___first_local)); #line 421 (*nptr6) = (NODE */* */)0; #line 422 __retres = (NODE * * */* */)oldstk; #line 412 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 412 return (__retres); } } #line 430 "xleval.c" static char __string88[26] = #line 430 { 'e', 'v', 'a', 'l', 'u', 'a', 't', 'i', 'o', 'n', ' ', 's', 't', 'a', 'c', 'k', ' ', 'o', 'v', 'e', 'r', 'f', 'l', 'o', 'w', '\000'}; #line 431 "xleval.c" static char __string89[26] = #line 431 { 'e', 'v', 'a', 'l', 'u', 'a', 't', 'i', 'o', 'n', ' ', 's', 't', 'a', 'c', 'k', ' ', 'o', 'v', 'e', 'r', 'f', 'l', 'o', 'w', '\000'}; #line 432 "xleval.c" static char __string90[26] = #line 432 { 'e', 'v', 'a', 'l', 'u', 'a', 't', 'i', 'o', 'n', ' ', 's', 't', 'a', 'c', 'k', ' ', 'o', 'v', 'e', 'r', 'f', 'l', 'o', 'w', '\000'}; #line 433 "xleval.c" static char __string91[26] = #line 433 { 'e', 'v', 'a', 'l', 'u', 'a', 't', 'i', 'o', 'n', ' ', 's', 't', 'a', 'c', 'k', ' ', 'o', 'v', 'e', 'r', 'f', 'l', 'o', 'w', '\000'}; #line 434 "xleval.c" static char __string92[26] = #line 434 { 'e', 'v', 'a', 'l', 'u', 'a', 't', 'i', 'o', 'n', ' ', 's', 't', 'a', 'c', 'k', ' ', 'o', 'v', 'e', 'r', 'f', 'l', 'o', 'w', '\000'}; #line 435 "xleval.c" static char __string93[26] = #line 435 { 'e', 'v', 'a', 'l', 'u', 'a', 't', 'i', 'o', 'n', ' ', 's', 't', 'a', 'c', 'k', ' ', 'o', 'v', 'e', 'r', 'f', 'l', 'o', 'w', '\000'}; #line 436 "xleval.c" static char __string94[26] = #line 436 { 'e', 'v', 'a', 'l', 'u', 'a', 't', 'i', 'o', 'n', ' ', 's', 't', 'a', 'c', 'k', ' ', 'o', 'v', 'e', 'r', 'f', 'l', 'o', 'w', '\000'}; #line 425 struct seq_p_p_s_node xlsave7_qssssssssssssssss(NODE * * nptr1 , NODE * * nptr2 , NODE * * nptr3 , NODE * * nptr4 , NODE * * nptr5 , NODE * * nptr6 , NODE * * nptr7 ) ; #line 425 "xleval.c" struct seq_p_p_s_node xlsave7_qssssssssssssssss(NODE * * nptr1 , NODE * * nptr2 , NODE * * nptr3 , NODE * * nptr4 , NODE * * nptr5 , NODE * * nptr6 , NODE * * nptr7 ) { int volatile ___first_local ; struct node * * * __SEQ oldstk ; struct node * * * __SEQ __retres ; struct node * * * __SEQ __cil_tmp10 ; char * __FSEQ __cil_tmp11 ; struct node * * * __SEQ __cil_tmp12 ; char * __FSEQ __cil_tmp14 ; struct node * * * __SEQ __cil_tmp15 ; char * __FSEQ __cil_tmp16 ; struct node * * * __SEQ __cil_tmp17 ; char * __FSEQ __cil_tmp18 ; struct node * * * __SEQ __cil_tmp19 ; char * __FSEQ __cil_tmp20 ; struct node * * * __SEQ __cil_tmp21 ; char * __FSEQ __cil_tmp22 ; struct node * * * __SEQ __cil_tmp23 ; char * __FSEQ __cil_tmp24 ; struct node * * * __SEQ __cil_tmp25 ; struct node * * * __SEQ __cil_tmp26 ; struct seq_p_p_s_node __cil_tmp27 ; void *oldstk_b46 ; void *oldstk_e47 ; void *__retres_b48 ; void *__retres_e49 ; void *__cil_tmp10_b50 ; void *__cil_tmp10_e51 ; void *__cil_tmp11_e52 ; void *__cil_tmp12_b53 ; void *__cil_tmp12_e54 ; void *__cil_tmp14_e55 ; void *__cil_tmp15_b56 ; void *__cil_tmp15_e57 ; void *__cil_tmp16_e58 ; void *__cil_tmp17_b59 ; void *__cil_tmp17_e60 ; void *__cil_tmp18_e61 ; void *__cil_tmp19_b62 ; void *__cil_tmp19_e63 ; void *__cil_tmp20_e64 ; void *__cil_tmp21_b65 ; void *__cil_tmp21_e66 ; void *__cil_tmp22_e67 ; void *__cil_tmp23_b68 ; void *__cil_tmp23_e69 ; void *__cil_tmp24_e70 ; void *__cil_tmp25_b71 ; void *__cil_tmp25_e72 ; void *__cil_tmp26_b73 ; void *__cil_tmp26_e74 ; { #line 437 __retres_e49 = (void *)0; #line 437 __retres_b48 = (void *)0; #line 437 __retres = (struct node * * */* __SEQ */)0; #line 437 oldstk_e47 = (void *)0; #line 437 oldstk_b46 = (void *)0; #line 437 oldstk = (struct node * * */* __SEQ */)0; #line 429 __cil_tmp10 = xlstack_qss._p; #line 429 __cil_tmp10_b50 = xlstack_qss._ms._b; #line 429 __cil_tmp10_e51 = xlstack_qss._ms._e; #line 429 oldstk_e47 = __cil_tmp10_e51; #line 429 oldstk_b46 = __cil_tmp10_b50; #line 429 oldstk = __cil_tmp10; #line 430 if ((int )xlstack_qss._p <= (int )xlstkbase_qss._p) { #line 430 __cil_tmp11 = (char */* __FSEQ */)(& __string88[0]); #line 430 __cil_tmp11_e52 = & __string88[0] + 26; #line 430 xlabort_f(__cil_tmp11, __cil_tmp11_e52); } #line 430 __cil_tmp12 = xlstack_qss._p - 1; #line 430 __cil_tmp12_b53 = xlstack_qss._ms._b; #line 430 __cil_tmp12_e54 = xlstack_qss._ms._e; #line 430 CHECK_STOREPTR((void *)(& xlstack_qss), __cil_tmp12_b53, (void *)(& ___first_local)); #line 430 xlstack_qss._ms._e = __cil_tmp12_e54; #line 430 xlstack_qss._ms._b = __cil_tmp12_b53; #line 430 xlstack_qss._p = __cil_tmp12; #line 430 CHECK_SEQ2SAFE(xlstack_qss._ms._b, xlstack_qss._ms._e, (void *)xlstack_qss._p, sizeof(struct node * */* */), sizeof(struct node * */* */), 1, 0); #line 430 CHECK_STOREPTR((void *)xlstack_qss._p, (void *)((struct node * */* */)nptr1), (void *)(& ___first_local)); #line 430 (*(xlstack_qss._p)) = (struct node * */* */)nptr1; #line 430 CHECK_NULL((void *)nptr1); #line 430 CHECK_STOREPTR((void *)nptr1, (void *)((NODE */* */)0), (void *)(& ___first_local)); #line 430 (*nptr1) = (NODE */* */)0; #line 431 if ((int )xlstack_qss._p <= (int )xlstkbase_qss._p) { #line 431 __cil_tmp14 = (char */* __FSEQ */)(& __string89[0]); #line 431 __cil_tmp14_e55 = & __string89[0] + 26; #line 431 xlabort_f(__cil_tmp14, __cil_tmp14_e55); } #line 431 __cil_tmp15 = xlstack_qss._p - 1; #line 431 __cil_tmp15_b56 = xlstack_qss._ms._b; #line 431 __cil_tmp15_e57 = xlstack_qss._ms._e; #line 431 CHECK_STOREPTR((void *)(& xlstack_qss), __cil_tmp15_b56, (void *)(& ___first_local)); #line 431 xlstack_qss._ms._e = __cil_tmp15_e57; #line 431 xlstack_qss._ms._b = __cil_tmp15_b56; #line 431 xlstack_qss._p = __cil_tmp15; #line 431 CHECK_SEQ2SAFE(xlstack_qss._ms._b, xlstack_qss._ms._e, (void *)xlstack_qss._p, sizeof(struct node * */* */), sizeof(struct node * */* */), 1, 0); #line 431 CHECK_STOREPTR((void *)xlstack_qss._p, (void *)((struct node * */* */)nptr2), (void *)(& ___first_local)); #line 431 (*(xlstack_qss._p)) = (struct node * */* */)nptr2; #line 431 CHECK_NULL((void *)nptr2); #line 431 CHECK_STOREPTR((void *)nptr2, (void *)((NODE */* */)0), (void *)(& ___first_local)); #line 431 (*nptr2) = (NODE */* */)0; #line 432 if ((int )xlstack_qss._p <= (int )xlstkbase_qss._p) { #line 432 __cil_tmp16 = (char */* __FSEQ */)(& __string90[0]); #line 432 __cil_tmp16_e58 = & __string90[0] + 26; #line 432 xlabort_f(__cil_tmp16, __cil_tmp16_e58); } #line 432 __cil_tmp17 = xlstack_qss._p - 1; #line 432 __cil_tmp17_b59 = xlstack_qss._ms._b; #line 432 __cil_tmp17_e60 = xlstack_qss._ms._e; #line 432 CHECK_STOREPTR((void *)(& xlstack_qss), __cil_tmp17_b59, (void *)(& ___first_local)); #line 432 xlstack_qss._ms._e = __cil_tmp17_e60; #line 432 xlstack_qss._ms._b = __cil_tmp17_b59; #line 432 xlstack_qss._p = __cil_tmp17; #line 432 CHECK_SEQ2SAFE(xlstack_qss._ms._b, xlstack_qss._ms._e, (void *)xlstack_qss._p, sizeof(struct node * */* */), sizeof(struct node * */* */), 1, 0); #line 432 CHECK_STOREPTR((void *)xlstack_qss._p, (void *)((struct node * */* */)nptr3), (void *)(& ___first_local)); #line 432 (*(xlstack_qss._p)) = (struct node * */* */)nptr3; #line 432 CHECK_NULL((void *)nptr3); #line 432 CHECK_STOREPTR((void *)nptr3, (void *)((NODE */* */)0), (void *)(& ___first_local)); #line 432 (*nptr3) = (NODE */* */)0; #line 433 if ((int )xlstack_qss._p <= (int )xlstkbase_qss._p) { #line 433 __cil_tmp18 = (char */* __FSEQ */)(& __string91[0]); #line 433 __cil_tmp18_e61 = & __string91[0] + 26; #line 433 xlabort_f(__cil_tmp18, __cil_tmp18_e61); } #line 433 __cil_tmp19 = xlstack_qss._p - 1; #line 433 __cil_tmp19_b62 = xlstack_qss._ms._b; #line 433 __cil_tmp19_e63 = xlstack_qss._ms._e; #line 433 CHECK_STOREPTR((void *)(& xlstack_qss), __cil_tmp19_b62, (void *)(& ___first_local)); #line 433 xlstack_qss._ms._e = __cil_tmp19_e63; #line 433 xlstack_qss._ms._b = __cil_tmp19_b62; #line 433 xlstack_qss._p = __cil_tmp19; #line 433 CHECK_SEQ2SAFE(xlstack_qss._ms._b, xlstack_qss._ms._e, (void *)xlstack_qss._p, sizeof(struct node * */* */), sizeof(struct node * */* */), 1, 0); #line 433 CHECK_STOREPTR((void *)xlstack_qss._p, (void *)((struct node * */* */)nptr4), (void *)(& ___first_local)); #line 433 (*(xlstack_qss._p)) = (struct node * */* */)nptr4; #line 433 CHECK_NULL((void *)nptr4); #line 433 CHECK_STOREPTR((void *)nptr4, (void *)((NODE */* */)0), (void *)(& ___first_local)); #line 433 (*nptr4) = (NODE */* */)0; #line 434 if ((int )xlstack_qss._p <= (int )xlstkbase_qss._p) { #line 434 __cil_tmp20 = (char */* __FSEQ */)(& __string92[0]); #line 434 __cil_tmp20_e64 = & __string92[0] + 26; #line 434 xlabort_f(__cil_tmp20, __cil_tmp20_e64); } #line 434 __cil_tmp21 = xlstack_qss._p - 1; #line 434 __cil_tmp21_b65 = xlstack_qss._ms._b; #line 434 __cil_tmp21_e66 = xlstack_qss._ms._e; #line 434 CHECK_STOREPTR((void *)(& xlstack_qss), __cil_tmp21_b65, (void *)(& ___first_local)); #line 434 xlstack_qss._ms._e = __cil_tmp21_e66; #line 434 xlstack_qss._ms._b = __cil_tmp21_b65; #line 434 xlstack_qss._p = __cil_tmp21; #line 434 CHECK_SEQ2SAFE(xlstack_qss._ms._b, xlstack_qss._ms._e, (void *)xlstack_qss._p, sizeof(struct node * */* */), sizeof(struct node * */* */), 1, 0); #line 434 CHECK_STOREPTR((void *)xlstack_qss._p, (void *)((struct node * */* */)nptr5), (void *)(& ___first_local)); #line 434 (*(xlstack_qss._p)) = (struct node * */* */)nptr5; #line 434 CHECK_NULL((void *)nptr5); #line 434 CHECK_STOREPTR((void *)nptr5, (void *)((NODE */* */)0), (void *)(& ___first_local)); #line 434 (*nptr5) = (NODE */* */)0; #line 435 if ((int )xlstack_qss._p <= (int )xlstkbase_qss._p) { #line 435 __cil_tmp22 = (char */* __FSEQ */)(& __string93[0]); #line 435 __cil_tmp22_e67 = & __string93[0] + 26; #line 435 xlabort_f(__cil_tmp22, __cil_tmp22_e67); } #line 435 __cil_tmp23 = xlstack_qss._p - 1; #line 435 __cil_tmp23_b68 = xlstack_qss._ms._b; #line 435 __cil_tmp23_e69 = xlstack_qss._ms._e; #line 435 CHECK_STOREPTR((void *)(& xlstack_qss), __cil_tmp23_b68, (void *)(& ___first_local)); #line 435 xlstack_qss._ms._e = __cil_tmp23_e69; #line 435 xlstack_qss._ms._b = __cil_tmp23_b68; #line 435 xlstack_qss._p = __cil_tmp23; #line 435 CHECK_SEQ2SAFE(xlstack_qss._ms._b, xlstack_qss._ms._e, (void *)xlstack_qss._p, sizeof(struct node * */* */), sizeof(struct node * */* */), 1, 0); #line 435 CHECK_STOREPTR((void *)xlstack_qss._p, (void *)((struct node * */* */)nptr6), (void *)(& ___first_local)); #line 435 (*(xlstack_qss._p)) = (struct node * */* */)nptr6; #line 435 CHECK_NULL((void *)nptr6); #line 435 CHECK_STOREPTR((void *)nptr6, (void *)((NODE */* */)0), (void *)(& ___first_local)); #line 435 (*nptr6) = (NODE */* */)0; #line 436 if ((int )xlstack_qss._p <= (int )xlstkbase_qss._p) { #line 436 __cil_tmp24 = (char */* __FSEQ */)(& __string94[0]); #line 436 __cil_tmp24_e70 = & __string94[0] + 26; #line 436 xlabort_f(__cil_tmp24, __cil_tmp24_e70); } #line 436 __cil_tmp25 = xlstack_qss._p - 1; #line 436 __cil_tmp25_b71 = xlstack_qss._ms._b; #line 436 __cil_tmp25_e72 = xlstack_qss._ms._e; #line 436 CHECK_STOREPTR((void *)(& xlstack_qss), __cil_tmp25_b71, (void *)(& ___first_local)); #line 436 xlstack_qss._ms._e = __cil_tmp25_e72; #line 436 xlstack_qss._ms._b = __cil_tmp25_b71; #line 436 xlstack_qss._p = __cil_tmp25; #line 436 CHECK_SEQ2SAFE(xlstack_qss._ms._b, xlstack_qss._ms._e, (void *)xlstack_qss._p, sizeof(struct node * */* */), sizeof(struct node * */* */), 1, 0); #line 436 CHECK_STOREPTR((void *)xlstack_qss._p, (void *)((struct node * */* */)nptr7), (void *)(& ___first_local)); #line 436 (*(xlstack_qss._p)) = (struct node * */* */)nptr7; #line 436 CHECK_NULL((void *)nptr7); #line 436 CHECK_STOREPTR((void *)nptr7, (void *)((NODE */* */)0), (void *)(& ___first_local)); #line 436 (*nptr7) = (NODE */* */)0; #line 437 __cil_tmp26 = oldstk; #line 437 __cil_tmp26_b73 = oldstk_b46; #line 437 __cil_tmp26_e74 = oldstk_e47; #line 437 __retres_e49 = __cil_tmp26_e74; #line 437 __retres_b48 = __cil_tmp26_b73; #line 437 __retres = __cil_tmp26; #line 425 __cil_tmp27._p = __retres; #line 425 __cil_tmp27._ms._b = __retres_b48; #line 425 __cil_tmp27._ms._e = __retres_e49; #line 425 CHECK_RETURNPTR(__cil_tmp27._ms._e, (void *)(& ___first_local)); #line 425 return (__cil_tmp27); } } #line 116 "proto.h" static NODE * printit___4(NODE * __cil_tmp9 , int pflag , int tflag ) ; #line 119 static NODE * flatsize___4(NODE * __cil_tmp7 , int pflag ) ; #line 122 static NODE * openit___4_ssf(NODE * __cil_tmp8 , char * __FSEQ mode , void *mode_e ) ; #line 35 "xlfio.c" struct heapified___38 { NODE * fptr __HEAPIFY ; NODE * eof __HEAPIFY ; }; #line 14 NODE * xread(NODE * __cil_tmp12 ) ; #line 14 "xlfio.c" NODE * xread(NODE * __cil_tmp12 ) { int volatile ___first_local ; NODE * args ; struct node * * * __SEQ oldstk ; NODE * rflag ; NODE * val ; int tmp___2 ; NODE * __retres ; struct heapified___38 * __heapified ; struct heapified___38 * __cil_tmp14 ; struct heapified___38 * __cil_tmp15 ; struct seq_p_p_s_node __cil_tmp16 ; struct node * * * __SEQ __cil_tmp17 ; NODE * __cil_tmp19 ; NODE * __cil_tmp20 ; NODE * __cil_tmp21 ; int __cil_tmp22 ; struct node * * * __SEQ __cil_tmp23 ; void *oldstk_b27 ; void *oldstk_e28 ; void *__cil_tmp17_b29 ; void *__cil_tmp17_e30 ; void *__cil_tmp23_b31 ; void *__cil_tmp23_e32 ; { #line 35 __heapified = (struct heapified___38 */* */)0; #line 35 __retres = (NODE */* */)0; #line 35 val = (NODE */* */)0; #line 35 rflag = (NODE */* */)0; #line 35 oldstk_e28 = (void *)0; #line 35 oldstk_b27 = (void *)0; #line 35 oldstk = (struct node * * */* __SEQ */)0; #line 35 args = (NODE */* */)0; #line 35 __cil_tmp15 = (struct heapified___38 */* */)wrapperAlloc(((sizeof((*__heapified)) + 3U) >> 2) << 2); #line 35 if (__cil_tmp15) { #line 35 __cil_tmp14 = __cil_tmp15; #line 35 CHECK_POSITIVE((int )(((sizeof((*__heapified)) + 3U) >> 2) << 2) - (int )sizeof(struct heapified___38 )); #line 35 __cil_tmp15->eof = (NODE */* */)0; #line 35 __cil_tmp15->fptr = (NODE */* */)0; } else { #line 35 __cil_tmp14 = 0; } #line 35 __heapified = __cil_tmp14; #line 35 args = __cil_tmp12; #line 19 CHECK_NULL((void *)__heapified); #line 19 __cil_tmp16 = xlsave2_qssssss((NODE * */* */)(& __heapified->fptr), (NODE * */* */)(& __heapified->eof)); #line 19 __cil_tmp17 = __cil_tmp16._p; #line 19 __cil_tmp17_b29 = __cil_tmp16._ms._b; #line 19 __cil_tmp17_e30 = __cil_tmp16._ms._e; #line 19 oldstk_e28 = __cil_tmp17_e30; #line 19 oldstk_b27 = __cil_tmp17_b29; #line 19 oldstk = __cil_tmp17; #line 22 if ((int )args) { #line 22 __cil_tmp19 = xlgetfile((NODE * */* */)(& args)); #line 22 CHECK_NULL((void *)__heapified); #line 22 CHECK_STOREPTR((void *)(& __heapified->fptr), (void *)((NODE */* */)__cil_tmp19), (void *)(& ___first_local)); #line 22 __heapified->fptr = (NODE */* */)__cil_tmp19; } else { #line 22 CHECK_NULL((void *)__heapified); #line 22 CHECK_NULL((void *)s_stdin); #line 22 CHECK_STOREPTR((void *)(& __heapified->fptr), (void *)((NODE */* */)s_stdin->n_info.__annonCompField1.n_xsym.xsy_value), (void *)(& ___first_local)); #line 22 __heapified->fptr = (NODE */* */)s_stdin->n_info.__annonCompField1.n_xsym.xsy_value; } #line 23 if ((int )args) { #line 23 __cil_tmp20 = xlarg((NODE * */* */)(& args)); #line 23 CHECK_NULL((void *)__heapified); #line 23 CHECK_STOREPTR((void *)(& __heapified->eof), (void *)((NODE */* */)__cil_tmp20), (void *)(& ___first_local)); #line 23 __heapified->eof = (NODE */* */)__cil_tmp20; } else { #line 23 CHECK_NULL((void *)__heapified); #line 23 CHECK_STOREPTR((void *)(& __heapified->eof), (void *)((NODE */* */)0), (void *)(& ___first_local)); #line 23 __heapified->eof = (NODE */* */)0; } #line 24 if ((int )args) { #line 24 __cil_tmp21 = xlarg((NODE * */* */)(& args)); #line 24 rflag = (NODE */* */)__cil_tmp21; } else { #line 24 rflag = (NODE */* */)0; } #line 25 xllastarg((NODE */* */)args); #line 28 CHECK_NULL((void *)__heapified); #line 28 __cil_tmp22 = xlread((NODE */* */)__heapified->fptr, (NODE * */* */)(& val), (unsigned int )rflag != 0); #line 28 tmp___2 = __cil_tmp22; #line 28 if (! tmp___2) { #line 29 CHECK_NULL((void *)__heapified); #line 29 val = (NODE */* */)__heapified->eof; } #line 32 __cil_tmp23 = oldstk; #line 32 __cil_tmp23_b31 = oldstk_b27; #line 32 __cil_tmp23_e32 = oldstk_e28; #line 32 CHECK_STOREPTR((void *)(& xlstack_qss), __cil_tmp23_b31, (void *)(& ___first_local)); #line 32 xlstack_qss._ms._e = __cil_tmp23_e32; #line 32 xlstack_qss._ms._b = __cil_tmp23_b31; #line 32 xlstack_qss._p = __cil_tmp23; #line 35 __retres = (NODE */* */)val; #line 14 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 35 wrapperFree((void *)__heapified); #line 14 return (__retres); } } #line 39 NODE * xprint(NODE * args ) ; #line 39 "xlfio.c" NODE * xprint(NODE * args ) { int volatile ___first_local ; NODE * tmp ; NODE * __retres ; NODE * __cil_tmp4 ; { #line 41 __retres = (NODE */* */)0; #line 41 tmp = (NODE */* */)0; #line 41 __cil_tmp4 = printit___4((NODE */* */)args, 1, 1); #line 41 tmp = (NODE */* */)__cil_tmp4; #line 41 __retres = (NODE */* */)tmp; #line 39 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 39 return (__retres); } } #line 45 NODE * xprin1(NODE * args ) ; #line 45 "xlfio.c" NODE * xprin1(NODE * args ) { int volatile ___first_local ; NODE * tmp ; NODE * __retres ; NODE * __cil_tmp4 ; { #line 47 __retres = (NODE */* */)0; #line 47 tmp = (NODE */* */)0; #line 47 __cil_tmp4 = printit___4((NODE */* */)args, 1, 0); #line 47 tmp = (NODE */* */)__cil_tmp4; #line 47 __retres = (NODE */* */)tmp; #line 45 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 45 return (__retres); } } #line 51 NODE * xprinc(NODE * args ) ; #line 51 "xlfio.c" NODE * xprinc(NODE * args ) { int volatile ___first_local ; NODE * tmp ; NODE * __retres ; NODE * __cil_tmp4 ; { #line 53 __retres = (NODE */* */)0; #line 53 tmp = (NODE */* */)0; #line 53 __cil_tmp4 = printit___4((NODE */* */)args, 0, 0); #line 53 tmp = (NODE */* */)__cil_tmp4; #line 53 __retres = (NODE */* */)tmp; #line 51 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 51 return (__retres); } } #line 57 NODE * xterpri(NODE * __cil_tmp5 ) ; #line 57 "xlfio.c" NODE * xterpri(NODE * __cil_tmp5 ) { int volatile ___first_local ; NODE * args ; NODE * fptr ; NODE * __retres ; NODE * __cil_tmp6 ; { #line 67 __retres = (NODE */* */)0; #line 67 fptr = (NODE */* */)0; #line 67 args = (NODE */* */)0; #line 67 args = __cil_tmp5; #line 62 if ((int )args) { #line 62 __cil_tmp6 = xlgetfile((NODE * */* */)(& args)); #line 62 fptr = (NODE */* */)__cil_tmp6; } else { #line 62 CHECK_NULL((void *)s_stdout); #line 62 fptr = (NODE */* */)s_stdout->n_info.__annonCompField1.n_xsym.xsy_value; } #line 63 xllastarg((NODE */* */)args); #line 66 xlterpri((NODE */* */)fptr); #line 67 __retres = (NODE */* */)0; #line 57 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 57 return (__retres); } } #line 94 "xlfio.c" struct heapified___39 { NODE * fptr __HEAPIFY ; NODE * val __HEAPIFY ; }; #line 71 static NODE * printit___4(NODE * __cil_tmp9 , int pflag , int tflag ) ; #line 71 "xlfio.c" static NODE * printit___4(NODE * __cil_tmp9 , int pflag , int tflag ) { int volatile ___first_local ; NODE * args ; struct node * * * __SEQ oldstk ; NODE * __retres ; struct heapified___39 * __heapified ; struct heapified___39 * __cil_tmp11 ; struct heapified___39 * __cil_tmp12 ; struct seq_p_p_s_node __cil_tmp13 ; struct node * * * __SEQ __cil_tmp14 ; NODE * __cil_tmp15 ; NODE * __cil_tmp17 ; struct node * * * __SEQ __cil_tmp18 ; void *oldstk_b22 ; void *oldstk_e23 ; void *__cil_tmp14_b24 ; void *__cil_tmp14_e25 ; void *__cil_tmp18_b26 ; void *__cil_tmp18_e27 ; { #line 94 __heapified = (struct heapified___39 */* */)0; #line 94 __retres = (NODE */* */)0; #line 94 oldstk_e23 = (void *)0; #line 94 oldstk_b22 = (void *)0; #line 94 oldstk = (struct node * * */* __SEQ */)0; #line 94 args = (NODE */* */)0; #line 94 __cil_tmp12 = (struct heapified___39 */* */)wrapperAlloc(((sizeof((*__heapified)) + 3U) >> 2) << 2); #line 94 if (__cil_tmp12) { #line 94 __cil_tmp11 = __cil_tmp12; #line 94 CHECK_POSITIVE((int )(((sizeof((*__heapified)) + 3U) >> 2) << 2) - (int )sizeof(struct heapified___39 )); #line 94 __cil_tmp12->val = (NODE */* */)0; #line 94 __cil_tmp12->fptr = (NODE */* */)0; } else { #line 94 __cil_tmp11 = 0; } #line 94 __heapified = __cil_tmp11; #line 94 args = __cil_tmp9; #line 76 CHECK_NULL((void *)__heapified); #line 76 __cil_tmp13 = xlsave2_qssssss((NODE * */* */)(& __heapified->fptr), (NODE * */* */)(& __heapified->val)); #line 76 __cil_tmp14 = __cil_tmp13._p; #line 76 __cil_tmp14_b24 = __cil_tmp13._ms._b; #line 76 __cil_tmp14_e25 = __cil_tmp13._ms._e; #line 76 oldstk_e23 = __cil_tmp14_e25; #line 76 oldstk_b22 = __cil_tmp14_b24; #line 76 oldstk = __cil_tmp14; #line 79 __cil_tmp15 = xlarg((NODE * */* */)(& args)); #line 79 CHECK_NULL((void *)__heapified); #line 79 CHECK_STOREPTR((void *)(& __heapified->val), (void *)((NODE */* */)__cil_tmp15), (void *)(& ___first_local)); #line 79 __heapified->val = (NODE */* */)__cil_tmp15; #line 80 if ((int )args) { #line 80 __cil_tmp17 = xlgetfile((NODE * */* */)(& args)); #line 80 CHECK_NULL((void *)__heapified); #line 80 CHECK_STOREPTR((void *)(& __heapified->fptr), (void *)((NODE */* */)__cil_tmp17), (void *)(& ___first_local)); #line 80 __heapified->fptr = (NODE */* */)__cil_tmp17; } else { #line 80 CHECK_NULL((void *)__heapified); #line 80 CHECK_NULL((void *)s_stdout); #line 80 CHECK_STOREPTR((void *)(& __heapified->fptr), (void *)((NODE */* */)s_stdout->n_info.__annonCompField1.n_xsym.xsy_value), (void *)(& ___first_local)); #line 80 __heapified->fptr = (NODE */* */)s_stdout->n_info.__annonCompField1.n_xsym.xsy_value; } #line 81 xllastarg((NODE */* */)args); #line 84 CHECK_NULL((void *)__heapified); #line 84 CHECK_NULL((void *)__heapified); #line 84 xlprint((NODE */* */)__heapified->fptr, (NODE */* */)__heapified->val, pflag); #line 87 if (tflag) { #line 88 CHECK_NULL((void *)__heapified); #line 88 xlterpri((NODE */* */)__heapified->fptr); } #line 91 __cil_tmp18 = oldstk; #line 91 __cil_tmp18_b26 = oldstk_b22; #line 91 __cil_tmp18_e27 = oldstk_e23; #line 91 CHECK_STOREPTR((void *)(& xlstack_qss), __cil_tmp18_b26, (void *)(& ___first_local)); #line 91 xlstack_qss._ms._e = __cil_tmp18_e27; #line 91 xlstack_qss._ms._b = __cil_tmp18_b26; #line 91 xlstack_qss._p = __cil_tmp18; #line 94 CHECK_NULL((void *)__heapified); #line 94 __retres = (NODE */* */)__heapified->val; #line 71 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 94 wrapperFree((void *)__heapified); #line 71 return (__retres); } } #line 98 NODE * xflatsize(NODE * args ) ; #line 98 "xlfio.c" NODE * xflatsize(NODE * args ) { int volatile ___first_local ; NODE * tmp ; NODE * __retres ; NODE * __cil_tmp4 ; { #line 100 __retres = (NODE */* */)0; #line 100 tmp = (NODE */* */)0; #line 100 __cil_tmp4 = flatsize___4((NODE */* */)args, 1); #line 100 tmp = (NODE */* */)__cil_tmp4; #line 100 __retres = (NODE */* */)tmp; #line 98 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 98 return (__retres); } } #line 104 NODE * xflatc(NODE * args ) ; #line 104 "xlfio.c" NODE * xflatc(NODE * args ) { int volatile ___first_local ; NODE * tmp ; NODE * __retres ; NODE * __cil_tmp4 ; { #line 106 __retres = (NODE */* */)0; #line 106 tmp = (NODE */* */)0; #line 106 __cil_tmp4 = flatsize___4((NODE */* */)args, 0); #line 106 tmp = (NODE */* */)__cil_tmp4; #line 106 __retres = (NODE */* */)tmp; #line 104 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 104 return (__retres); } } #line 129 "xlfio.c" struct heapified___40 { NODE * val __HEAPIFY ; }; #line 110 static NODE * flatsize___4(NODE * __cil_tmp7 , int pflag ) ; #line 110 "xlfio.c" static NODE * flatsize___4(NODE * __cil_tmp7 , int pflag ) { int volatile ___first_local ; NODE * args ; struct node * * * __SEQ oldstk ; NODE * tmp ; NODE * __retres ; struct heapified___40 * __heapified ; struct heapified___40 * __cil_tmp9 ; struct heapified___40 * __cil_tmp10 ; struct seq_p_p_s_node __cil_tmp11 ; struct node * * * __SEQ __cil_tmp12 ; NODE * __cil_tmp13 ; struct node * * * __SEQ __cil_tmp15 ; NODE * __cil_tmp16 ; void *oldstk_b20 ; void *oldstk_e21 ; void *__cil_tmp12_b22 ; void *__cil_tmp12_e23 ; void *__cil_tmp15_b24 ; void *__cil_tmp15_e25 ; { #line 129 __heapified = (struct heapified___40 */* */)0; #line 129 __retres = (NODE */* */)0; #line 129 tmp = (NODE */* */)0; #line 129 oldstk_e21 = (void *)0; #line 129 oldstk_b20 = (void *)0; #line 129 oldstk = (struct node * * */* __SEQ */)0; #line 129 args = (NODE */* */)0; #line 129 __cil_tmp10 = (struct heapified___40 */* */)wrapperAlloc(((sizeof((*__heapified)) + 3U) >> 2) << 2); #line 129 if (__cil_tmp10) { #line 129 __cil_tmp9 = __cil_tmp10; #line 129 CHECK_POSITIVE((int )(((sizeof((*__heapified)) + 3U) >> 2) << 2) - (int )sizeof(struct heapified___40 )); #line 129 __cil_tmp10->val = (NODE */* */)0; } else { #line 129 __cil_tmp9 = 0; } #line 129 __heapified = __cil_tmp9; #line 129 args = __cil_tmp7; #line 115 __cil_tmp11 = xlsave1_qssss((NODE * */* */)(& __heapified->val)); #line 115 __cil_tmp12 = __cil_tmp11._p; #line 115 __cil_tmp12_b22 = __cil_tmp11._ms._b; #line 115 __cil_tmp12_e23 = __cil_tmp11._ms._e; #line 115 oldstk_e21 = __cil_tmp12_e23; #line 115 oldstk_b20 = __cil_tmp12_b22; #line 115 oldstk = __cil_tmp12; #line 118 __cil_tmp13 = xlarg((NODE * */* */)(& args)); #line 118 CHECK_NULL((void *)__heapified); #line 118 CHECK_STOREPTR((void *)(& __heapified->val), (void *)((NODE */* */)__cil_tmp13), (void *)(& ___first_local)); #line 118 __heapified->val = (NODE */* */)__cil_tmp13; #line 119 xllastarg((NODE */* */)args); #line 122 xlfsize = 0; #line 123 CHECK_NULL((void *)__heapified); #line 123 xlprint((NODE */* */)0, (NODE */* */)__heapified->val, pflag); #line 126 __cil_tmp15 = oldstk; #line 126 __cil_tmp15_b24 = oldstk_b20; #line 126 __cil_tmp15_e25 = oldstk_e21; #line 126 CHECK_STOREPTR((void *)(& xlstack_qss), __cil_tmp15_b24, (void *)(& ___first_local)); #line 126 xlstack_qss._ms._e = __cil_tmp15_e25; #line 126 xlstack_qss._ms._b = __cil_tmp15_b24; #line 126 xlstack_qss._p = __cil_tmp15; #line 129 __cil_tmp16 = cvfixnum((long )xlfsize); #line 129 tmp = (NODE */* */)__cil_tmp16; #line 129 __retres = (NODE */* */)tmp; #line 110 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 129 wrapperFree((void *)__heapified); #line 110 return (__retres); } } #line 135 "xlfio.c" static char __string95[2] = { 'r', '\000'}; #line 133 NODE * xopeni(NODE * args ) ; #line 133 "xlfio.c" NODE * xopeni(NODE * args ) { int volatile ___first_local ; NODE * tmp ; NODE * __retres ; char * __FSEQ __cil_tmp4 ; NODE * __cil_tmp5 ; void *__cil_tmp4_e8 ; { #line 135 __retres = (NODE */* */)0; #line 135 tmp = (NODE */* */)0; #line 135 __cil_tmp4 = (char */* __FSEQ */)(& __string95[0]); #line 135 __cil_tmp4_e8 = & __string95[0] + 2; #line 135 __cil_tmp5 = openit___4_ssf((NODE */* */)args, __cil_tmp4, __cil_tmp4_e8); #line 135 tmp = (NODE */* */)__cil_tmp5; #line 135 __retres = (NODE */* */)tmp; #line 133 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 133 return (__retres); } } #line 141 "xlfio.c" static char __string96[2] = { 'w', '\000'}; #line 139 NODE * xopeno(NODE * args ) ; #line 139 "xlfio.c" NODE * xopeno(NODE * args ) { int volatile ___first_local ; NODE * tmp ; NODE * __retres ; char * __FSEQ __cil_tmp4 ; NODE * __cil_tmp5 ; void *__cil_tmp4_e8 ; { #line 141 __retres = (NODE */* */)0; #line 141 tmp = (NODE */* */)0; #line 141 __cil_tmp4 = (char */* __FSEQ */)(& __string96[0]); #line 141 __cil_tmp4_e8 = & __string96[0] + 2; #line 141 __cil_tmp5 = openit___4_ssf((NODE */* */)args, __cil_tmp4, __cil_tmp4_e8); #line 141 tmp = (NODE */* */)__cil_tmp5; #line 141 __retres = (NODE */* */)tmp; #line 139 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 139 return (__retres); } } __inline static FILE * /*36*/fopen_wrapper_sff(char * __FSEQ fname , void *fname_e , char * __FSEQ mode , void *mode_e ) ; #line 164 "xlfio.c" static char __string97[18] = #line 164 { 'b', 'a', 'd', ' ', 'a', 'r', 'g', 'u', 'm', 'e', 'n', 't', ' ', 't', 'y', 'p', 'e', '\000'}; #line 164 "xlfio.c" static char __string98[18] = #line 164 { 'b', 'a', 'd', ' ', 'a', 'r', 'g', 'u', 'm', 'e', 'n', 't', ' ', 't', 'y', 'p', 'e', '\000'}; #line 145 static NODE * openit___4_ssf(NODE * __cil_tmp8 , char * __FSEQ mode , void *mode_e ) ; #line 145 "xlfio.c" static NODE * openit___4_ssf(NODE * __cil_tmp8 , char * __FSEQ mode , void *mode_e ) { int volatile ___first_local ; NODE * args ; NODE * fname ; NODE * val ; char * __FSEQ name ; FILE * fp ; NODE * __retres ; NODE * __cil_tmp9 ; char * __FSEQ __cil_tmp10 ; char * __FSEQ __cil_tmp11 ; char * __FSEQ __cil_tmp12 ; char * __FSEQ __cil_tmp13 ; char * __FSEQ __cil_tmp14 ; char * __FSEQ __cil_tmp15 ; FILE * __cil_tmp16 ; NODE * __cil_tmp17 ; void *name_e28 ; void *__cil_tmp10_e29 ; void *__cil_tmp11_e30 ; void *__cil_tmp12_e31 ; void *__cil_tmp13_e32 ; void *__cil_tmp14_e33 ; void *__cil_tmp15_e34 ; { #line 173 __retres = (NODE */* */)0; #line 173 fp = (FILE */* */)0; #line 173 name_e28 = (void *)0; #line 173 name = (char */* __FSEQ */)0; #line 173 val = (NODE */* */)0; #line 173 fname = (NODE */* */)0; #line 173 args = (NODE */* */)0; #line 173 args = __cil_tmp8; #line 152 __cil_tmp9 = xlarg((NODE * */* */)(& args)); #line 152 fname = (NODE */* */)__cil_tmp9; #line 153 xllastarg((NODE */* */)args); #line 156 if ((int )fname) { #line 156 CHECK_NULL((void *)fname); #line 156 if ((int )fname->n_type == 4) { #line 157 CHECK_NULL((void *)fname); #line 157 CHECK_NULL((void *)fname->n_info.__annonCompField1.n_xsym.xsy_plist); #line 157 CHECK_NULL((void *)(fname->n_info.__annonCompField1.n_xsym.xsy_plist)->n_info.__annonCompField1.n_xlist.xl_car); #line 157 CHECK_SEQ2FSEQ(((fname->n_info.__annonCompField1.n_xsym.xsy_plist)->n_info.__annonCompField1.n_xlist.xl_car)->n_info.n_xstr.xst_str._ms._b, ((fname->n_info.__annonCompField1.n_xsym.xsy_plist)->n_info.__annonCompField1.n_xlist.xl_car)->n_info.n_xstr.xst_str._ms._e, (void *)((fname->n_info.__annonCompField1.n_xsym.xsy_plist)->n_info.__annonCompField1.n_xlist.xl_car)->n_info.n_xstr.xst_str._p); #line 157 __cil_tmp13 = (char */* __FSEQ */)((fname->n_info.__annonCompField1.n_xsym.xsy_plist)->n_info.__annonCompField1.n_xlist.xl_car)->n_info.n_xstr.xst_str._p; #line 157 __cil_tmp13_e32 = ((fname->n_info.__annonCompField1.n_xsym.xsy_plist)->n_info.__annonCompField1.n_xlist.xl_car)->n_info.n_xstr.xst_str._ms._e; #line 157 name_e28 = __cil_tmp13_e32; #line 157 name = __cil_tmp13; } else { goto _L; } } else { _L: /* CIL Label */ ; #line 158 if ((int )fname) { #line 158 CHECK_NULL((void *)fname); #line 158 if ((int )fname->n_type == 6) { #line 159 CHECK_NULL((void *)fname); #line 159 CHECK_SEQ2FSEQ(fname->n_info.n_xstr.xst_str._ms._b, fname->n_info.n_xstr.xst_str._ms._e, (void *)fname->n_info.n_xstr.xst_str._p); #line 159 __cil_tmp12 = (char */* __FSEQ */)fname->n_info.n_xstr.xst_str._p; #line 159 __cil_tmp12_e31 = fname->n_info.n_xstr.xst_str._ms._e; #line 159 name_e28 = __cil_tmp12_e31; #line 159 name = __cil_tmp12; } else { #line 164 __cil_tmp11 = (char */* __FSEQ */)(& __string98[0]); #line 164 __cil_tmp11_e30 = & __string98[0] + 18; #line 164 xlfail_f(__cil_tmp11, __cil_tmp11_e30); } } else { #line 164 __cil_tmp10 = (char */* __FSEQ */)(& __string97[0]); #line 164 __cil_tmp10_e29 = & __string97[0] + 18; #line 164 xlfail_f(__cil_tmp10, __cil_tmp10_e29); } } #line 167 __cil_tmp14 = name; #line 167 __cil_tmp14_e33 = name_e28; #line 167 __cil_tmp15 = mode; #line 167 __cil_tmp15_e34 = mode_e; #line 167 __cil_tmp16 = /*36*/fopen_wrapper_sff(__cil_tmp14, __cil_tmp14_e33, __cil_tmp15, __cil_tmp15_e34); #line 167 fp = (FILE */* */)__cil_tmp16; #line 167 if ((unsigned int )fp != 0) { #line 168 __cil_tmp17 = cvfile((FILE */* */)fp); #line 168 val = (NODE */* */)__cil_tmp17; } else { #line 170 val = (NODE */* */)0; } #line 173 __retres = (NODE */* */)val; #line 145 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 145 return (__retres); } } #line 187 "xlfio.c" static char __string99[14] = #line 187 { 'f', 'i', 'l', 'e', ' ', 'n', 'o', 't', ' ', 'o', 'p', 'e', 'n', '\000'}; #line 177 NODE * xclose(NODE * __cil_tmp4 ) ; #line 177 "xlfio.c" NODE * xclose(NODE * __cil_tmp4 ) { int volatile ___first_local ; NODE * args ; NODE * fptr ; NODE * __retres ; NODE * __cil_tmp5 ; char * __FSEQ __cil_tmp6 ; void *__cil_tmp6_e9 ; { #line 194 __retres = (NODE */* */)0; #line 194 fptr = (NODE */* */)0; #line 194 args = (NODE */* */)0; #line 194 args = __cil_tmp4; #line 182 __cil_tmp5 = xlmatch(8, (NODE * */* */)(& args)); #line 182 fptr = (NODE */* */)__cil_tmp5; #line 183 xllastarg((NODE */* */)args); #line 186 CHECK_NULL((void *)fptr); #line 186 if ((unsigned int )fptr->n_info.n_xfptr.xf_fp == 0) { #line 187 __cil_tmp6 = (char */* __FSEQ */)(& __string99[0]); #line 187 __cil_tmp6_e9 = & __string99[0] + 14; #line 187 xlfail_f(__cil_tmp6, __cil_tmp6_e9); } #line 190 CHECK_NULL((void *)fptr); #line 190 /*26*/fclose_wrapper((FILE */* */)fptr->n_info.n_xfptr.xf_fp); #line 191 CHECK_NULL((void *)fptr); #line 191 CHECK_STOREPTR((void *)(& fptr->n_info.n_xfptr.xf_fp), (void *)((FILE */* */)0), (void *)(& ___first_local)); #line 191 fptr->n_info.n_xfptr.xf_fp = (FILE */* */)0; #line 194 __retres = (NODE */* */)0; #line 177 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 177 return (__retres); } } #line 198 NODE * xrdchar(NODE * __cil_tmp8 ) ; #line 198 "xlfio.c" NODE * xrdchar(NODE * __cil_tmp8 ) { int volatile ___first_local ; NODE * args ; NODE * fptr ; int ch ; NODE * tmp___1 ; NODE * __retres ; NODE * __cil_tmp9 ; int __cil_tmp10 ; NODE * __cil_tmp11 ; { #line 208 __retres = (NODE */* */)0; #line 208 tmp___1 = (NODE */* */)0; #line 208 fptr = (NODE */* */)0; #line 208 args = (NODE */* */)0; #line 208 args = __cil_tmp8; #line 204 if ((int )args) { #line 204 __cil_tmp9 = xlgetfile((NODE * */* */)(& args)); #line 204 fptr = (NODE */* */)__cil_tmp9; } else { #line 204 CHECK_NULL((void *)s_stdin); #line 204 fptr = (NODE */* */)s_stdin->n_info.__annonCompField1.n_xsym.xsy_value; } #line 205 xllastarg((NODE */* */)args); #line 208 __cil_tmp10 = xlgetc((NODE */* */)fptr); #line 208 ch = __cil_tmp10; #line 208 if (ch == -1) { #line 208 tmp___1 = (NODE */* */)0; } else { #line 208 __cil_tmp11 = cvfixnum((long )ch); #line 208 tmp___1 = (NODE */* */)__cil_tmp11; } #line 208 __retres = (NODE */* */)tmp___1; #line 198 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 198 return (__retres); } } #line 212 NODE * xpkchar(NODE * __cil_tmp11 ) ; #line 212 "xlfio.c" NODE * xpkchar(NODE * __cil_tmp11 ) { int volatile ___first_local ; NODE * args ; NODE * flag ; NODE * fptr ; int ch ; int tmp___1 ; NODE * tmp___3 ; NODE * __retres ; NODE * __cil_tmp12 ; NODE * __cil_tmp13 ; int __cil_tmp14 ; int __cil_tmp15 ; int __cil_tmp16 ; NODE * __cil_tmp17 ; { #line 230 __retres = (NODE */* */)0; #line 230 tmp___3 = (NODE */* */)0; #line 230 fptr = (NODE */* */)0; #line 230 flag = (NODE */* */)0; #line 230 args = (NODE */* */)0; #line 230 args = __cil_tmp11; #line 218 if ((int )args) { #line 218 __cil_tmp12 = xlarg((NODE * */* */)(& args)); #line 218 flag = (NODE */* */)__cil_tmp12; } else { #line 218 flag = (NODE */* */)0; } #line 219 if ((int )args) { #line 219 __cil_tmp13 = xlgetfile((NODE * */* */)(& args)); #line 219 fptr = (NODE */* */)__cil_tmp13; } else { #line 219 CHECK_NULL((void *)s_stdin); #line 219 fptr = (NODE */* */)s_stdin->n_info.__annonCompField1.n_xsym.xsy_value; } #line 220 xllastarg((NODE */* */)args); #line 223 if ((int )flag) { #line 224 while (1) { #line 224 __cil_tmp15 = xlpeek((NODE */* */)fptr); #line 224 ch = __cil_tmp15; #line 224 if (ch != -1) { #line 224 __cil_tmp16 = _get_ctype_p1((unsigned int )ch); #line 224 tmp___1 = __cil_tmp16; #line 224 if (! (tmp___1 & 8)) { #line 224 break; } } else { #line 224 break; } #line 225 xlgetc((NODE */* */)fptr); } } else { #line 227 __cil_tmp14 = xlpeek((NODE */* */)fptr); #line 227 ch = __cil_tmp14; } #line 230 if (ch == -1) { #line 230 tmp___3 = (NODE */* */)0; } else { #line 230 __cil_tmp17 = cvfixnum((long )ch); #line 230 tmp___3 = (NODE */* */)__cil_tmp17; } #line 230 __retres = (NODE */* */)tmp___3; #line 212 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 212 return (__retres); } } #line 234 NODE * xwrchar(NODE * __cil_tmp6 ) ; #line 234 "xlfio.c" NODE * xwrchar(NODE * __cil_tmp6 ) { int volatile ___first_local ; NODE * args ; NODE * fptr ; NODE * chr ; NODE * __retres ; NODE * __cil_tmp7 ; NODE * __cil_tmp8 ; { #line 247 __retres = (NODE */* */)0; #line 247 chr = (NODE */* */)0; #line 247 fptr = (NODE */* */)0; #line 247 args = (NODE */* */)0; #line 247 args = __cil_tmp6; #line 239 __cil_tmp7 = xlmatch(5, (NODE * */* */)(& args)); #line 239 chr = (NODE */* */)__cil_tmp7; #line 240 if ((int )args) { #line 240 __cil_tmp8 = xlgetfile((NODE * */* */)(& args)); #line 240 fptr = (NODE */* */)__cil_tmp8; } else { #line 240 CHECK_NULL((void *)s_stdout); #line 240 fptr = (NODE */* */)s_stdout->n_info.__annonCompField1.n_xsym.xsy_value; } #line 241 xllastarg((NODE */* */)args); #line 244 CHECK_NULL((void *)chr); #line 244 xlputc((NODE */* */)fptr, (int )chr->n_info.n_xint.xi_int); #line 247 __retres = (NODE */* */)chr; #line 234 CHECK_RETURNPTR((void *)__retres, (void *)(& ___first_local)); #line 234 return (__retres); } } __inline static char * /*38*/strcat_wrapper_sqf(char * __SEQ dest , void *dest_b , void *dest_e , char * __FSEQ src , void *src_e ) ; #line 302 "xlfio.c" struct heapified___41 { NODE * fptr __HEAPIFY ; NODE * str __HEAPIFY ; }; #line 251 NODE * xreadline(NODE * __cil_tmp14 ) ; #line 251 "xlfio.c" NODE * xreadline(NODE * __cil_tmp14 ) { int volatile ___first_local ; NODE * args ; struct node * * * __SEQ oldstk ; NODE * newstr ; int len ; int blen ; int ch ; char * __FSEQ p ; char * __SEQ sptr ; char * tmp___0 ; NODE * __retres ; struct heapified___41 * __heapified ; struct heapified___41 * __cil_tmp16 ; struct heapified___41 * __cil_tmp17 ; struct seq_p_p_s_node __cil_tmp18 ; struct node * * * __SEQ __cil_tmp19 ; NODE * __cil_tmp21 ; char * __FSEQ __cil_tmp22 ; int __cil_tmp23 ; NODE * __cil_tmp24 ; char * __SEQ __cil_tmp25 ; char * __SEQ __cil_tmp26 ; char * __FSEQ __cil_tmp27 ; char * __SEQ __cil_tmp28 ; char * __FSEQ __cil_tmp29 ; char * __FSEQ __cil_tmp30 ; char * __FSEQ __cil_tmp31 ; struct node * * * __SEQ __cil_tmp32 ; NODE * __cil_tmp33 ; char * __SEQ __cil_tmp34 ; char * __SEQ __cil_tmp35 ; char * __FSEQ __cil_tmp36 ; char * __SEQ __cil_tmp37 ; char * __FSEQ __cil_tmp38 ; struct node * * * __SEQ __cil_tmp39 ; void *oldstk_b59 ; void *oldstk_e60 ; void *p_e61 ; void *sptr_b62 ; void *sptr_e63 ; void *__cil_tmp19_b64 ; void *__cil_tmp19_e65 ; void *__cil_tmp22_e66 ; void *__cil_tmp25_b67 ; void *__cil_tmp25_e68 ; void *__cil_tmp26_b69 ; void *__cil_tmp26_e70 ; void *__cil_tmp27_e71 ; void *__cil_tmp28_b72 ; void *__cil_tmp28_e73 ; void *__cil_tmp29_e74 ; void *__cil_tmp30_e75 ; void *__cil_tmp31_e76 ; void *__cil_tmp32_b77 ; void *__cil_tmp32_e78 ; void *__cil_tmp34_b79 ; void *__cil_tmp34_e80 ; void *__cil_tmp35_b81 ; void *__cil_tmp35_e82 ; void *__cil_tmp36_e83 ; void *__cil_tmp37_b84 ; void *__cil_tmp37_e85 ; void *__cil_tmp38_e86 ; void *__cil_tmp39_b87 ; void *__cil_tmp39_e88 ; { #line 302 __heapified = (struct heapified___41 */* */)0; #line 302 __retres = (NODE */* */)0; #line 302 tmp___0 = (char */* */)0; #line 302 sptr_e63 = (void *)0; #line 302 sptr_b62 = (void *)0; #line 302 sptr = (char */* __SEQ */)0; #line 302 p_e61 = (void *)0; #line 302 p = (char */* __FSEQ */)0; #line 302 newstr = (NODE */* */)0; #line 302 oldstk_e60 = (void *)0; #line 302 oldstk_b59 = (void *)0; #line 302 oldstk = (struct node * * */* __SEQ */)0; #line 302 args = (NODE */* */)0; #line 302 __cil_tmp17 = (struct heapified___41 */* */)wrapperAlloc(((sizeof((*__heapified)) + 3U) >> 2) << 2); #line 302 if (__cil_tmp17) { #line 302 __cil_tmp16 = __cil_tmp17; #line 302 CHECK_POSITIVE((int )(((sizeof((*__heapified)) + 3U) >> 2) << 2) - (int )sizeof(struct heapified___41 )); #line 302 __cil_tmp17->str = (NODE */* */)0; #line 302 __cil_tmp17->fptr = (NODE */* */)0; } else { #line 302 __cil_tmp16 = 0; } #line 302 __heapified = __cil_tmp16; #line 302 args = __cil_tmp14; #line 258 CHECK_NULL((void *)__heapified); #line 258 __cil_tmp18 = xlsave2_qssssss((NODE * */* */)(& __heapified->fptr), (NODE * */* */)(& __heapified->str)); #line 258 __cil_tmp19 = __cil_tmp18._p; #line 258 __cil_tmp19_b64 = __cil_tmp18._ms._b; #line 258 __cil_tmp19_e65 = __cil_tmp18._ms._e; #line 258 oldstk_e60 = __cil_tmp19_e65; #line 258 oldstk_b59 = __cil_tmp19_b64; #line 258 oldstk = __cil_tmp19; #line 261 if ((int )args) { #line 261 __cil_tmp21 = xlgetfile((NODE * */* */)(& args)); #line 261 CHECK_NULL((void *)__heapified); #line 261 CHECK_STOREPTR((void *)(& __heapified->fptr), (void *)((NODE */* */)__cil_tmp21), (void *)(& ___first_local)); #line 261 __heapified->fptr = (NODE */* */)__cil_tmp21; } else { #line 261 CHECK_NULL((void *)__heapified); #line 261 CHECK_NULL((void *)s_stdin); #line 261 CHECK_STOREPTR((void *)(& __heapified->fptr), (void *)((NODE */* */)s_stdin->n_info.__annonCompField1.n_xsym.xsy_value), (void *)(& ___first_local)); #line 261 __heapified->fptr = (NODE */* */)s_stdin->n_info.__annonCompField1.n_xsym.xsy_value; } #line 262 xllastarg((NODE */* */)args); #line 265 blen = 0; #line 265 len = blen; #line 265 CHECK_SEQ2FSEQ((void *)(buf), (void *)(buf + 101), (void *)(buf)); #line 265 __cil_tmp22 = (char */* __FSEQ */)(buf); #line 265 __cil_tmp22_e66 = buf + 101; #line 265 p_e61 = __cil_tmp22_e66; #line 265 p = __cil_tmp22; #line 266 while (1) { #line 266 CHECK_NULL((void *)__heapified); #line 266 __cil_tmp23 = xlgetc((NODE */* */)__heapified->fptr); #line 266 ch = __cil_tmp23; #line 266 if (ch != -1) { #line 266 if (! (ch != 10)) { #line 266 break; } } else { #line 266 break; } #line 269 if (blen >= 100) { #line 270 __cil_tmp24 = newstring(len + 100); #line 270 newstr = (NODE */* */)__cil_tmp24; #line 271 CHECK_NULL((void *)newstr); #line 271 __cil_tmp25 = newstr->n_info.n_xstr.xst_str._p; #line 271 __cil_tmp25_b67 = newstr->n_info.n_xstr.xst_str._ms._b; #line 271 __cil_tmp25_e68 = newstr->n_info.n_xstr.xst_str._ms._e; #line 271 sptr_e63 = __cil_tmp25_e68; #line 271 sptr_b62 = __cil_tmp25_b67; #line 271 sptr = __cil_tmp25; #line 271 CHECK_SEQ2SAFE(sptr_b62, sptr_e63, (void *)sptr, sizeof(char ), sizeof(char ), 1, 0); #line 271 (*sptr) = 0; #line 272 CHECK_NULL((void *)__heapified); #line 272 if ((int )__heapified->str) { #line 272 __cil_tmp26 = sptr; #line 272 __cil_tmp26_b69 = sptr_b62; #line 272 __cil_tmp26_e70 = sptr_e63; #line 272 CHECK_NULL((void *)__heapified); #line 272 CHECK_NULL((void *)__heapified->str); #line 272 CHECK_SEQ2FSEQ((__heapified->str)->n_info.n_xstr.xst_str._ms._b, (__heapified->str)->n_info.n_xstr.xst_str._ms._e, (void *)(__heapified->str)->n_info.n_xstr.xst_str._p); #line 272 __cil_tmp27 = (char */* __FSEQ */)(__heapified->str)->n_info.n_xstr.xst_str._p; #line 272 __cil_tmp27_e71 = (__heapified->str)->n_info.n_xstr.xst_str._ms._e; #line 272 /*38*/strcat_wrapper_sqf(__cil_tmp26, __cil_tmp26_b69, __cil_tmp26_e70, __cil_tmp27,