public inbox for gcc-prs@sourceware.org help / color / mirror / Atom feed
From: proff@iq.org To: gcc-gnats@gcc.gnu.org, debian-gcc@lists.debian.org Cc: proff-cc@iq.org Subject: c/6175: gcc-3.0.4 core dumps when compiling bigloo-2.4d Date: Thu, 04 Apr 2002 10:16:00 -0000 [thread overview] Message-ID: <20020404180621.4FDDF1CC82@dopamine.iq.org> (raw) >Number: 6175 >Category: c >Synopsis: gcc-3.0.4 core dumps when compiling bigloo-2.4d >Confidential: no >Severity: serious >Priority: medium >Responsible: unassigned >State: open >Class: sw-bug >Submitter-Id: net >Arrival-Date: Thu Apr 04 10:16:02 PST 2002 >Closed-Date: >Last-Modified: >Originator: Julian Assange >Release: 3.0.4 (Debian testing/unstable) >Organization: >Environment: System: Linux dopamine 2.4.17-bf2.4 #1 Son Feb 24 13:00:32 CET 2002 i686 unknown Architecture: i686 host: i386-pc-linux-gnu build: i386-pc-linux-gnu target: i386-pc-linux-gnu configured with: ../src/configure -v --enable-languages=c,c++,java,f77,proto,objc --prefix=/usr --infodir=/share/info --mandir=/share/man --enable-shared --with-gnu-as --with-gnu-ld --with-system-zlib --enable-long-long --enable-nls --without-included-gettext --disable-checking --enable-threads=posix --enable-java-gc=boehm --with-cpp-install-dir=bin --enable-objc-gc i386-linux >Description: gcc-3.0 -I/src/bigloo2.4d/lib/2.4d -O3 -march=i686 -DBGL_NO_PIC -I/src/bigloo2.4d/gc-boehm -I/src/bigloo2.4d/gc-boehm/include -c objs/obj_u/Eval/evcompile.c && mv evcompile.o objs/obj_u/Eval/evcompile.o objs/obj_u/Eval/evcompile.c: In function `BGl_evcompilezd2lambdazd2zz__evcompilez00': objs/obj_u/Eval/evcompile.c:5909: Internal error: Segmentation fault >How-To-Repeat: pre-processed (gcc -E with identical flags) code below: # 10 "objs/obj_u/Eval/evcompile.c" # 1 "/src/bigloo2.4d/lib/2.4d/bigloo.h" 1 # 23 "/src/bigloo2.4d/lib/2.4d/bigloo.h" # 1 "/usr/lib/gcc-lib/i386-linux/3.0.4/include/stdio.h" 1 3 # 37 "/usr/lib/gcc-lib/i386-linux/3.0.4/include/stdio.h" 3 # 1 "/usr/include/features.h" 1 3 # 283 "/usr/include/features.h" 3 # 1 "/usr/include/sys/cdefs.h" 1 3 # 284 "/usr/include/features.h" 2 3 # 312 "/usr/include/features.h" 3 # 1 "/usr/include/gnu/stubs.h" 1 3 # 313 "/usr/include/features.h" 2 3 # 38 "/usr/lib/gcc-lib/i386-linux/3.0.4/include/stdio.h" 2 3 # 1 "/usr/lib/gcc-lib/i386-linux/3.0.4/include/stddef.h" 1 3 # 199 "/usr/lib/gcc-lib/i386-linux/3.0.4/include/stddef.h" 3 typedef unsigned int size_t; # 44 "/usr/lib/gcc-lib/i386-linux/3.0.4/include/stdio.h" 2 3 # 1 "/usr/include/bits/types.h" 1 3 # 26 "/usr/include/bits/types.h" 3 # 1 "/usr/include/features.h" 1 3 # 27 "/usr/include/bits/types.h" 2 3 # 1 "/usr/lib/gcc-lib/i386-linux/3.0.4/include/stddef.h" 1 3 # 30 "/usr/include/bits/types.h" 2 3 typedef unsigned char __u_char; typedef unsigned short __u_short; typedef unsigned int __u_int; typedef unsigned long __u_long; __extension__ typedef unsigned long long int __u_quad_t; __extension__ typedef long long int __quad_t; # 49 "/usr/include/bits/types.h" 3 typedef signed char __int8_t; typedef unsigned char __uint8_t; typedef signed short int __int16_t; typedef unsigned short int __uint16_t; typedef signed int __int32_t; typedef unsigned int __uint32_t; __extension__ typedef signed long long int __int64_t; __extension__ typedef unsigned long long int __uint64_t; typedef __quad_t *__qaddr_t; typedef __u_quad_t __dev_t; typedef __u_int __uid_t; typedef __u_int __gid_t; typedef __u_long __ino_t; typedef __u_int __mode_t; typedef __u_int __nlink_t; typedef long int __off_t; typedef __quad_t __loff_t; typedef int __pid_t; typedef int __ssize_t; typedef __u_long __rlim_t; typedef __u_quad_t __rlim64_t; typedef __u_int __id_t; typedef struct { int __val[2]; } __fsid_t; typedef int __daddr_t; typedef char *__caddr_t; typedef long int __time_t; typedef unsigned int __useconds_t; typedef long int __suseconds_t; typedef long int __swblk_t; typedef long int __clock_t; typedef int __clockid_t; typedef int __timer_t; typedef int __key_t; typedef unsigned short int __ipc_pid_t; typedef long int __blksize_t; typedef long int __blkcnt_t; typedef __quad_t __blkcnt64_t; typedef __u_long __fsblkcnt_t; typedef __u_quad_t __fsblkcnt64_t; typedef __u_long __fsfilcnt_t; typedef __u_quad_t __fsfilcnt64_t; typedef __u_quad_t __ino64_t; typedef __loff_t __off64_t; typedef long int __t_scalar_t; typedef unsigned long int __t_uscalar_t; typedef int __intptr_t; typedef unsigned int __socklen_t; # 1 "/usr/include/bits/pthreadtypes.h" 1 3 # 23 "/usr/include/bits/pthreadtypes.h" 3 # 1 "/usr/include/bits/sched.h" 1 3 # 68 "/usr/include/bits/sched.h" 3 struct __sched_param { int __sched_priority; }; # 24 "/usr/include/bits/pthreadtypes.h" 2 3 typedef int __atomic_lock_t; struct _pthread_fastlock { long int __status; __atomic_lock_t __spinlock; }; typedef struct _pthread_descr_struct *_pthread_descr; typedef struct __pthread_attr_s { int __detachstate; int __schedpolicy; struct __sched_param __schedparam; int __inheritsched; int __scope; size_t __guardsize; int __stackaddr_set; void *__stackaddr; size_t __stacksize; } pthread_attr_t; typedef struct { struct _pthread_fastlock __c_lock; _pthread_descr __c_waiting; } pthread_cond_t; typedef struct { int __dummy; } pthread_condattr_t; typedef unsigned int pthread_key_t; typedef struct { int __m_reserved; int __m_count; _pthread_descr __m_owner; int __m_kind; struct _pthread_fastlock __m_lock; } pthread_mutex_t; typedef struct { int __mutexkind; } pthread_mutexattr_t; typedef int pthread_once_t; # 142 "/usr/include/bits/pthreadtypes.h" 3 typedef unsigned long int pthread_t; # 144 "/usr/include/bits/types.h" 2 3 # 46 "/usr/lib/gcc-lib/i386-linux/3.0.4/include/stdio.h" 2 3 # 54 "/usr/lib/gcc-lib/i386-linux/3.0.4/include/stdio.h" 3 typedef struct _IO_FILE FILE; # 64 "/usr/lib/gcc-lib/i386-linux/3.0.4/include/stdio.h" 3 typedef struct _IO_FILE __FILE; # 74 "/usr/lib/gcc-lib/i386-linux/3.0.4/include/stdio.h" 3 # 1 "/usr/include/libio.h" 1 3 # 32 "/usr/include/libio.h" 3 # 1 "/usr/include/_G_config.h" 1 3 # 9 "/usr/include/_G_config.h" 3 # 1 "/usr/include/bits/types.h" 1 3 # 10 "/usr/include/_G_config.h" 2 3 # 1 "/usr/lib/gcc-lib/i386-linux/3.0.4/include/stddef.h" 1 3 # 287 "/usr/lib/gcc-lib/i386-linux/3.0.4/include/stddef.h" 3 typedef long int wchar_t; # 312 "/usr/lib/gcc-lib/i386-linux/3.0.4/include/stddef.h" 3 typedef unsigned int wint_t; # 15 "/usr/include/_G_config.h" 2 3 # 24 "/usr/include/_G_config.h" 3 # 1 "/usr/include/wchar.h" 1 3 # 48 "/usr/include/wchar.h" 3 # 1 "/usr/lib/gcc-lib/i386-linux/3.0.4/include/stddef.h" 1 3 # 49 "/usr/include/wchar.h" 2 3 # 1 "/usr/include/bits/wchar.h" 1 3 # 51 "/usr/include/wchar.h" 2 3 # 67 "/usr/include/wchar.h" 3 typedef struct { int __count; union { wint_t __wch; char __wchb[4]; } __value; } __mbstate_t; # 25 "/usr/include/_G_config.h" 2 3 typedef struct { __off_t __pos; __mbstate_t __state; } _G_fpos_t; typedef struct { __off64_t __pos; __mbstate_t __state; } _G_fpos64_t; # 44 "/usr/include/_G_config.h" 3 # 1 "/usr/include/gconv.h" 1 3 # 26 "/usr/include/gconv.h" 3 # 1 "/usr/include/features.h" 1 3 # 27 "/usr/include/gconv.h" 2 3 # 1 "/usr/include/wchar.h" 1 3 # 48 "/usr/include/wchar.h" 3 # 1 "/usr/lib/gcc-lib/i386-linux/3.0.4/include/stddef.h" 1 3 # 49 "/usr/include/wchar.h" 2 3 # 1 "/usr/include/bits/wchar.h" 1 3 # 51 "/usr/include/wchar.h" 2 3 # 29 "/usr/include/gconv.h" 2 3 # 1 "/usr/lib/gcc-lib/i386-linux/3.0.4/include/stddef.h" 1 3 # 32 "/usr/include/gconv.h" 2 3 enum { __GCONV_OK = 0, __GCONV_NOCONV, __GCONV_NODB, __GCONV_NOMEM, __GCONV_EMPTY_INPUT, __GCONV_FULL_OUTPUT, __GCONV_ILLEGAL_INPUT, __GCONV_INCOMPLETE_INPUT, __GCONV_ILLEGAL_DESCRIPTOR, __GCONV_INTERNAL_ERROR }; enum { __GCONV_IS_LAST = 0x0001, __GCONV_IGNORE_ERRORS = 0x0002 }; struct __gconv_step; struct __gconv_step_data; struct __gconv_loaded_object; struct __gconv_trans_data; typedef int (*__gconv_fct) (struct __gconv_step *, struct __gconv_step_data *, __const unsigned char **, __const unsigned char *, unsigned char **, size_t *, int, int); typedef int (*__gconv_init_fct) (struct __gconv_step *); typedef void (*__gconv_end_fct) (struct __gconv_step *); typedef int (*__gconv_trans_fct) (struct __gconv_step *, struct __gconv_step_data *, void *, __const unsigned char *, __const unsigned char **, __const unsigned char *, unsigned char **, size_t *); typedef int (*__gconv_trans_context_fct) (void *, __const unsigned char *, __const unsigned char *, unsigned char *, unsigned char *); typedef int (*__gconv_trans_query_fct) (__const char *, __const char ***, size_t *); typedef int (*__gconv_trans_init_fct) (void **, const char *); typedef void (*__gconv_trans_end_fct) (void *); struct __gconv_trans_data { __gconv_trans_fct __trans_fct; __gconv_trans_context_fct __trans_context_fct; __gconv_trans_end_fct __trans_end_fct; void *__data; struct __gconv_trans_data *__next; }; struct __gconv_step { struct __gconv_loaded_object *__shlib_handle; __const char *__modname; int __counter; char *__from_name; char *__to_name; __gconv_fct __fct; __gconv_init_fct __init_fct; __gconv_end_fct __end_fct; int __min_needed_from; int __max_needed_from; int __min_needed_to; int __max_needed_to; int __stateful; void *__data; }; struct __gconv_step_data { unsigned char *__outbuf; unsigned char *__outbufend; int __flags; int __invocation_counter; int __internal_use; __mbstate_t *__statep; __mbstate_t __state; struct __gconv_trans_data *__trans; }; typedef struct __gconv_info { size_t __nsteps; struct __gconv_step *__steps; __extension__ struct __gconv_step_data __data []; } *__gconv_t; # 45 "/usr/include/_G_config.h" 2 3 typedef union { struct __gconv_info __cd; struct { struct __gconv_info __cd; struct __gconv_step_data __data; } __combined; } _G_iconv_t; typedef int _G_int16_t __attribute__ ((__mode__ (__HI__))); typedef int _G_int32_t __attribute__ ((__mode__ (__SI__))); typedef unsigned int _G_uint16_t __attribute__ ((__mode__ (__HI__))); typedef unsigned int _G_uint32_t __attribute__ ((__mode__ (__SI__))); # 33 "/usr/include/libio.h" 2 3 # 53 "/usr/include/libio.h" 3 # 1 "/usr/lib/gcc-lib/i386-linux/3.0.4/include/stdarg.h" 1 3 # 43 "/usr/lib/gcc-lib/i386-linux/3.0.4/include/stdarg.h" 3 typedef __builtin_va_list __gnuc_va_list; # 54 "/usr/include/libio.h" 2 3 # 160 "/usr/include/libio.h" 3 struct _IO_jump_t; struct _IO_FILE; # 170 "/usr/include/libio.h" 3 typedef void _IO_lock_t; struct _IO_marker { struct _IO_marker *_next; struct _IO_FILE *_sbuf; int _pos; # 193 "/usr/include/libio.h" 3 }; enum __codecvt_result { __codecvt_ok, __codecvt_partial, __codecvt_error, __codecvt_noconv }; # 261 "/usr/include/libio.h" 3 struct _IO_FILE { int _flags; char* _IO_read_ptr; char* _IO_read_end; char* _IO_read_base; char* _IO_write_base; char* _IO_write_ptr; char* _IO_write_end; char* _IO_buf_base; char* _IO_buf_end; char *_IO_save_base; char *_IO_backup_base; char *_IO_save_end; struct _IO_marker *_markers; struct _IO_FILE *_chain; int _fileno; int _blksize; __off_t _old_offset; unsigned short _cur_column; signed char _vtable_offset; char _shortbuf[1]; _IO_lock_t *_lock; # 305 "/usr/include/libio.h" 3 __off64_t _offset; void *__pad1; void *__pad2; int _mode; char _unused2[15 * sizeof (int) - 2 * sizeof (void *)]; }; typedef struct _IO_FILE _IO_FILE; struct _IO_FILE_plus; extern struct _IO_FILE_plus _IO_2_1_stdin_; extern struct _IO_FILE_plus _IO_2_1_stdout_; extern struct _IO_FILE_plus _IO_2_1_stderr_; # 344 "/usr/include/libio.h" 3 typedef __ssize_t __io_read_fn (void *__cookie, char *__buf, size_t __nbytes); typedef __ssize_t __io_write_fn (void *__cookie, __const char *__buf, size_t __n); typedef int __io_seek_fn (void *__cookie, __off64_t *__pos, int __w); typedef int __io_close_fn (void *__cookie); # 396 "/usr/include/libio.h" 3 extern int __underflow (_IO_FILE *) ; extern int __uflow (_IO_FILE *) ; extern int __overflow (_IO_FILE *, int) ; extern wint_t __wunderflow (_IO_FILE *) ; extern wint_t __wuflow (_IO_FILE *) ; extern wint_t __woverflow (_IO_FILE *, wint_t) ; # 426 "/usr/include/libio.h" 3 extern int _IO_getc (_IO_FILE *__fp) ; extern int _IO_putc (int __c, _IO_FILE *__fp) ; extern int _IO_feof (_IO_FILE *__fp) ; extern int _IO_ferror (_IO_FILE *__fp) ; extern int _IO_peekc_locked (_IO_FILE *__fp) ; extern void _IO_flockfile (_IO_FILE *) ; extern void _IO_funlockfile (_IO_FILE *) ; extern int _IO_ftrylockfile (_IO_FILE *) ; # 456 "/usr/include/libio.h" 3 extern int _IO_vfscanf (_IO_FILE * __restrict, const char * __restrict, __gnuc_va_list, int *__restrict) ; extern int _IO_vfprintf (_IO_FILE *__restrict, const char *__restrict, __gnuc_va_list) ; extern __ssize_t _IO_padn (_IO_FILE *, int, __ssize_t) ; extern size_t _IO_sgetn (_IO_FILE *, void *, size_t) ; extern __off64_t _IO_seekoff (_IO_FILE *, __off64_t, int, int) ; extern __off64_t _IO_seekpos (_IO_FILE *, __off64_t, int) ; extern void _IO_free_backup_area (_IO_FILE *) ; # 75 "/usr/lib/gcc-lib/i386-linux/3.0.4/include/stdio.h" 2 3 # 89 "/usr/lib/gcc-lib/i386-linux/3.0.4/include/stdio.h" 3 typedef _G_fpos_t fpos_t; # 138 "/usr/lib/gcc-lib/i386-linux/3.0.4/include/stdio.h" 3 # 1 "/usr/include/bits/stdio_lim.h" 1 3 # 139 "/usr/lib/gcc-lib/i386-linux/3.0.4/include/stdio.h" 2 3 extern FILE *stdin; extern FILE *stdout; extern FILE *stderr; extern int remove (__const char *__filename) ; extern int rename (__const char *__old, __const char *__new) ; extern FILE *tmpfile (void) ; # 170 "/usr/lib/gcc-lib/i386-linux/3.0.4/include/stdio.h" 3 extern char *tmpnam (char *__s) ; extern char *tmpnam_r (char *__s) ; # 187 "/usr/lib/gcc-lib/i386-linux/3.0.4/include/stdio.h" 3 extern char *tempnam (__const char *__dir, __const char *__pfx) __attribute__ ((__malloc__)); extern int fclose (FILE *__stream) ; extern int fflush (FILE *__stream) ; extern int fflush_unlocked (FILE *__stream) ; # 210 "/usr/lib/gcc-lib/i386-linux/3.0.4/include/stdio.h" 3 extern FILE *fopen (__const char *__restrict __filename, __const char *__restrict __modes) ; extern FILE *freopen (__const char *__restrict __filename, __const char *__restrict __modes, FILE *__restrict __stream) ; # 240 "/usr/lib/gcc-lib/i386-linux/3.0.4/include/stdio.h" 3 extern FILE *fdopen (int __fd, __const char *__modes) ; # 263 "/usr/lib/gcc-lib/i386-linux/3.0.4/include/stdio.h" 3 extern void setbuf (FILE *__restrict __stream, char *__restrict __buf) ; extern int setvbuf (FILE *__restrict __stream, char *__restrict __buf, int __modes, size_t __n) ; extern void setbuffer (FILE *__restrict __stream, char *__restrict __buf, size_t __size) ; extern void setlinebuf (FILE *__stream) ; extern int fprintf (FILE *__restrict __stream, __const char *__restrict __format, ...) ; extern int printf (__const char *__restrict __format, ...) ; extern int sprintf (char *__restrict __s, __const char *__restrict __format, ...) ; extern int vfprintf (FILE *__restrict __s, __const char *__restrict __format, __gnuc_va_list __arg) ; extern int vprintf (__const char *__restrict __format, __gnuc_va_list __arg) ; extern int vsprintf (char *__restrict __s, __const char *__restrict __format, __gnuc_va_list __arg) ; extern int snprintf (char *__restrict __s, size_t __maxlen, __const char *__restrict __format, ...) __attribute__ ((__format__ (__printf__, 3, 4))); extern int vsnprintf (char *__restrict __s, size_t __maxlen, __const char *__restrict __format, __gnuc_va_list __arg) __attribute__ ((__format__ (__printf__, 3, 0))); # 334 "/usr/lib/gcc-lib/i386-linux/3.0.4/include/stdio.h" 3 extern int fscanf (FILE *__restrict __stream, __const char *__restrict __format, ...) ; extern int scanf (__const char *__restrict __format, ...) ; extern int sscanf (__const char *__restrict __s, __const char *__restrict __format, ...) ; # 360 "/usr/lib/gcc-lib/i386-linux/3.0.4/include/stdio.h" 3 extern int fgetc (FILE *__stream) ; extern int getc (FILE *__stream) ; extern int getchar (void) ; extern int getc_unlocked (FILE *__stream) ; extern int getchar_unlocked (void) ; extern int fgetc_unlocked (FILE *__stream) ; extern int fputc (int __c, FILE *__stream) ; extern int putc (int __c, FILE *__stream) ; extern int putchar (int __c) ; extern int fputc_unlocked (int __c, FILE *__stream) ; extern int putc_unlocked (int __c, FILE *__stream) ; extern int putchar_unlocked (int __c) ; extern int getw (FILE *__stream) ; extern int putw (int __w, FILE *__stream) ; extern char *fgets (char *__restrict __s, int __n, FILE *__restrict __stream) ; # 426 "/usr/lib/gcc-lib/i386-linux/3.0.4/include/stdio.h" 3 extern char *gets (char *__s) ; # 450 "/usr/lib/gcc-lib/i386-linux/3.0.4/include/stdio.h" 3 extern int fputs (__const char *__restrict __s, FILE *__restrict __stream) ; # 460 "/usr/lib/gcc-lib/i386-linux/3.0.4/include/stdio.h" 3 extern int puts (__const char *__s) ; extern int ungetc (int __c, FILE *__stream) ; extern size_t fread (void *__restrict __ptr, size_t __size, size_t __n, FILE *__restrict __stream) ; extern size_t fwrite (__const void *__restrict __ptr, size_t __size, size_t __n, FILE *__restrict __s) ; extern size_t fread_unlocked (void *__restrict __ptr, size_t __size, size_t __n, FILE *__restrict __stream) ; extern size_t fwrite_unlocked (__const void *__restrict __ptr, size_t __size, size_t __n, FILE *__restrict __stream) ; extern int fseek (FILE *__stream, long int __off, int __whence) ; extern long int ftell (FILE *__stream) ; extern void rewind (FILE *__stream) ; # 504 "/usr/lib/gcc-lib/i386-linux/3.0.4/include/stdio.h" 3 extern int fgetpos (FILE *__restrict __stream, fpos_t *__restrict __pos) ; extern int fsetpos (FILE *__stream, __const fpos_t *__pos) ; # 540 "/usr/lib/gcc-lib/i386-linux/3.0.4/include/stdio.h" 3 extern void clearerr (FILE *__stream) ; extern int feof (FILE *__stream) ; extern int ferror (FILE *__stream) ; extern void clearerr_unlocked (FILE *__stream) ; extern int feof_unlocked (FILE *__stream) ; extern int ferror_unlocked (FILE *__stream) ; extern void perror (__const char *__s) ; extern int sys_nerr; extern __const char *__const sys_errlist[]; # 571 "/usr/lib/gcc-lib/i386-linux/3.0.4/include/stdio.h" 3 extern int fileno (FILE *__stream) ; extern int fileno_unlocked (FILE *__stream) ; extern FILE *popen (__const char *__command, __const char *__modes) ; extern int pclose (FILE *__stream) ; extern char *ctermid (char *__s) ; # 618 "/usr/lib/gcc-lib/i386-linux/3.0.4/include/stdio.h" 3 extern void flockfile (FILE *__stream) ; extern int ftrylockfile (FILE *__stream) ; extern void funlockfile (FILE *__stream) ; # 639 "/usr/lib/gcc-lib/i386-linux/3.0.4/include/stdio.h" 3 # 1 "/usr/include/bits/stdio.h" 1 3 # 33 "/usr/include/bits/stdio.h" 3 extern __inline int vprintf (__const char *__restrict __fmt, __gnuc_va_list __arg) { return vfprintf (stdout, __fmt, __arg); } extern __inline int getchar (void) { return _IO_getc (stdin); } extern __inline int getc_unlocked (FILE *__fp) { return ((__fp)->_IO_read_ptr >= (__fp)->_IO_read_end ? __uflow (__fp) : *(unsigned char *) (__fp)->_IO_read_ptr++); } extern __inline int getchar_unlocked (void) { return ((stdin)->_IO_read_ptr >= (stdin)->_IO_read_end ? __uflow (stdin) : *(unsigned char *) (stdin)->_IO_read_ptr++); } extern __inline int putchar (int __c) { return _IO_putc (__c, stdout); } extern __inline int fputc_unlocked (int __c, FILE *__stream) { return (((__stream)->_IO_write_ptr >= (__stream)->_IO_write_end) ? __overflow (__stream, (unsigned char) (__c)) : (unsigned char) (*(__stream)->_IO_write_ptr++ = (__c))); } extern __inline int putc_unlocked (int __c, FILE *__stream) { return (((__stream)->_IO_write_ptr >= (__stream)->_IO_write_end) ? __overflow (__stream, (unsigned char) (__c)) : (unsigned char) (*(__stream)->_IO_write_ptr++ = (__c))); } extern __inline int putchar_unlocked (int __c) { return (((stdout)->_IO_write_ptr >= (stdout)->_IO_write_end) ? __overflow (stdout, (unsigned char) (__c)) : (unsigned char) (*(stdout)->_IO_write_ptr++ = (__c))); } # 111 "/usr/include/bits/stdio.h" 3 extern __inline int feof_unlocked (FILE *__stream) { return (((__stream)->_flags & 0x10) != 0); } extern __inline int ferror_unlocked (FILE *__stream) { return (((__stream)->_flags & 0x20) != 0); } # 640 "/usr/lib/gcc-lib/i386-linux/3.0.4/include/stdio.h" 2 3 # 24 "/src/bigloo2.4d/lib/2.4d/bigloo.h" 2 # 1 "/usr/include/setjmp.h" 1 3 # 26 "/usr/include/setjmp.h" 3 # 1 "/usr/include/features.h" 1 3 # 27 "/usr/include/setjmp.h" 2 3 # 1 "/usr/include/bits/setjmp.h" 1 3 # 36 "/usr/include/bits/setjmp.h" 3 typedef int __jmp_buf[6]; # 31 "/usr/include/setjmp.h" 2 3 # 1 "/usr/include/bits/sigset.h" 1 3 # 23 "/usr/include/bits/sigset.h" 3 typedef int __sig_atomic_t; typedef struct { unsigned long int __val[(1024 / (8 * sizeof (unsigned long int)))]; } __sigset_t; # 32 "/usr/include/setjmp.h" 2 3 typedef struct __jmp_buf_tag { __jmp_buf __jmpbuf; int __mask_was_saved; __sigset_t __saved_mask; } jmp_buf[1]; extern int setjmp (jmp_buf __env) ; extern int _setjmp (jmp_buf __env) ; extern int __sigsetjmp (jmp_buf __env, int __savemask) ; # 73 "/usr/include/setjmp.h" 3 extern void longjmp (jmp_buf __env, int __val) __attribute__ ((__noreturn__)); extern void _longjmp (jmp_buf __env, int __val) __attribute__ ((__noreturn__)); typedef jmp_buf sigjmp_buf; # 98 "/usr/include/setjmp.h" 3 extern void siglongjmp (sigjmp_buf __env, int __val) __attribute__ ((__noreturn__)); # 25 "/src/bigloo2.4d/lib/2.4d/bigloo.h" 2 # 1 "/usr/include/errno.h" 1 3 # 29 "/usr/include/errno.h" 3 # 1 "/usr/include/features.h" 1 3 # 30 "/usr/include/errno.h" 2 3 # 1 "/usr/include/bits/errno.h" 1 3 # 25 "/usr/include/bits/errno.h" 3 # 1 "/usr/include/linux/errno.h" 1 3 # 1 "/usr/include/asm/errno.h" 1 3 # 5 "/usr/include/linux/errno.h" 2 3 # 26 "/usr/include/bits/errno.h" 2 3 # 36 "/usr/include/bits/errno.h" 3 extern int errno; extern int *__errno_location (void) __attribute__ ((__const__)); # 37 "/usr/include/errno.h" 2 3 # 26 "/src/bigloo2.4d/lib/2.4d/bigloo.h" 2 # 1 "/usr/include/stdlib.h" 1 3 # 25 "/usr/include/stdlib.h" 3 # 1 "/usr/include/features.h" 1 3 # 26 "/usr/include/stdlib.h" 2 3 # 1 "/usr/lib/gcc-lib/i386-linux/3.0.4/include/stddef.h" 1 3 # 34 "/usr/include/stdlib.h" 2 3 # 94 "/usr/include/stdlib.h" 3 typedef struct { int quot; int rem; } div_t; typedef struct { long int quot; long int rem; } ldiv_t; # 133 "/usr/include/stdlib.h" 3 extern size_t __ctype_get_mb_cur_max (void) ; extern double atof (__const char *__nptr) __attribute__ ((__pure__)); extern int atoi (__const char *__nptr) __attribute__ ((__pure__)); extern long int atol (__const char *__nptr) __attribute__ ((__pure__)); __extension__ extern long long int atoll (__const char *__nptr) __attribute__ ((__pure__)); extern double strtod (__const char *__restrict __nptr, char **__restrict __endptr) ; # 163 "/usr/include/stdlib.h" 3 extern long int strtol (__const char *__restrict __nptr, char **__restrict __endptr, int __base) ; extern unsigned long int strtoul (__const char *__restrict __nptr, char **__restrict __endptr, int __base) ; __extension__ extern long long int strtoq (__const char *__restrict __nptr, char **__restrict __endptr, int __base) ; __extension__ extern unsigned long long int strtouq (__const char *__restrict __nptr, char **__restrict __endptr, int __base) ; __extension__ extern long long int strtoll (__const char *__restrict __nptr, char **__restrict __endptr, int __base) ; __extension__ extern unsigned long long int strtoull (__const char *__restrict __nptr, char **__restrict __endptr, int __base) ; # 250 "/usr/include/stdlib.h" 3 extern double __strtod_internal (__const char *__restrict __nptr, char **__restrict __endptr, int __group) ; extern float __strtof_internal (__const char *__restrict __nptr, char **__restrict __endptr, int __group) ; extern long double __strtold_internal (__const char *__restrict __nptr, char **__restrict __endptr, int __group) ; extern long int __strtol_internal (__const char *__restrict __nptr, char **__restrict __endptr, int __base, int __group) ; extern unsigned long int __strtoul_internal (__const char *__restrict __nptr, char **__restrict __endptr, int __base, int __group) ; __extension__ extern long long int __strtoll_internal (__const char *__restrict __nptr, char **__restrict __endptr, int __base, int __group) ; __extension__ extern unsigned long long int __strtoull_internal (__const char * __restrict __nptr, char **__restrict __endptr, int __base, int __group) ; extern __inline double strtod (__const char *__restrict __nptr, char **__restrict __endptr) { return __strtod_internal (__nptr, __endptr, 0); } extern __inline long int strtol (__const char *__restrict __nptr, char **__restrict __endptr, int __base) { return __strtol_internal (__nptr, __endptr, __base, 0); } extern __inline unsigned long int strtoul (__const char *__restrict __nptr, char **__restrict __endptr, int __base) { return __strtoul_internal (__nptr, __endptr, __base, 0); } # 325 "/usr/include/stdlib.h" 3 __extension__ extern __inline long long int strtoq (__const char *__restrict __nptr, char **__restrict __endptr, int __base) { return __strtoll_internal (__nptr, __endptr, __base, 0); } __extension__ extern __inline unsigned long long int strtouq (__const char *__restrict __nptr, char **__restrict __endptr, int __base) { return __strtoull_internal (__nptr, __endptr, __base, 0); } __extension__ extern __inline long long int strtoll (__const char *__restrict __nptr, char **__restrict __endptr, int __base) { return __strtoll_internal (__nptr, __endptr, __base, 0); } __extension__ extern __inline unsigned long long int strtoull (__const char * __restrict __nptr, char **__restrict __endptr, int __base) { return __strtoull_internal (__nptr, __endptr, __base, 0); } extern __inline double atof (__const char *__nptr) { return strtod (__nptr, (char **) ((void *)0)); } extern __inline int atoi (__const char *__nptr) { return (int) strtol (__nptr, (char **) ((void *)0), 10); } extern __inline long int atol (__const char *__nptr) { return strtol (__nptr, (char **) ((void *)0), 10); } __extension__ extern __inline long long int atoll (__const char *__nptr) { return strtoll (__nptr, (char **) ((void *)0), 10); } # 384 "/usr/include/stdlib.h" 3 extern char *l64a (long int __n) ; extern long int a64l (__const char *__s) __attribute__ ((__pure__)); # 1 "/usr/include/sys/types.h" 1 3 # 26 "/usr/include/sys/types.h" 3 # 1 "/usr/include/features.h" 1 3 # 27 "/usr/include/sys/types.h" 2 3 # 1 "/usr/include/bits/types.h" 1 3 # 31 "/usr/include/sys/types.h" 2 3 typedef __u_char u_char; typedef __u_short u_short; typedef __u_int u_int; typedef __u_long u_long; typedef __quad_t quad_t; typedef __u_quad_t u_quad_t; typedef __fsid_t fsid_t; typedef __loff_t loff_t; typedef __ino_t ino_t; # 61 "/usr/include/sys/types.h" 3 typedef __dev_t dev_t; typedef __gid_t gid_t; typedef __mode_t mode_t; typedef __nlink_t nlink_t; typedef __uid_t uid_t; typedef __off_t off_t; # 99 "/usr/include/sys/types.h" 3 typedef __pid_t pid_t; typedef __id_t id_t; typedef __ssize_t ssize_t; typedef __daddr_t daddr_t; typedef __caddr_t caddr_t; typedef __key_t key_t; # 132 "/usr/include/sys/types.h" 3 # 1 "/usr/include/time.h" 1 3 # 67 "/usr/include/time.h" 3 # 1 "/usr/include/bits/types.h" 1 3 # 68 "/usr/include/time.h" 2 3 typedef __time_t time_t; # 79 "/usr/include/time.h" 3 # 1 "/usr/include/bits/types.h" 1 3 # 80 "/usr/include/time.h" 2 3 typedef __clockid_t clockid_t; # 91 "/usr/include/time.h" 3 # 1 "/usr/include/bits/types.h" 1 3 # 92 "/usr/include/time.h" 2 3 typedef __timer_t timer_t; # 133 "/usr/include/sys/types.h" 2 3 # 146 "/usr/include/sys/types.h" 3 # 1 "/usr/lib/gcc-lib/i386-linux/3.0.4/include/stddef.h" 1 3 # 147 "/usr/include/sys/types.h" 2 3 typedef unsigned long int ulong; typedef unsigned short int ushort; typedef unsigned int uint; # 190 "/usr/include/sys/types.h" 3 typedef int int8_t __attribute__ ((__mode__ (__QI__))); typedef int int16_t __attribute__ ((__mode__ (__HI__))); typedef int int32_t __attribute__ ((__mode__ (__SI__))); typedef int int64_t __attribute__ ((__mode__ (__DI__))); typedef unsigned int u_int8_t __attribute__ ((__mode__ (__QI__))); typedef unsigned int u_int16_t __attribute__ ((__mode__ (__HI__))); typedef unsigned int u_int32_t __attribute__ ((__mode__ (__SI__))); typedef unsigned int u_int64_t __attribute__ ((__mode__ (__DI__))); typedef int register_t __attribute__ ((__mode__ (__word__))); # 212 "/usr/include/sys/types.h" 3 # 1 "/usr/include/endian.h" 1 3 # 22 "/usr/include/endian.h" 3 # 1 "/usr/include/features.h" 1 3 # 23 "/usr/include/endian.h" 2 3 # 37 "/usr/include/endian.h" 3 # 1 "/usr/include/bits/endian.h" 1 3 # 38 "/usr/include/endian.h" 2 3 # 213 "/usr/include/sys/types.h" 2 3 # 1 "/usr/include/sys/select.h" 1 3 # 25 "/usr/include/sys/select.h" 3 # 1 "/usr/include/features.h" 1 3 # 26 "/usr/include/sys/select.h" 2 3 # 1 "/usr/include/bits/types.h" 1 3 # 29 "/usr/include/sys/select.h" 2 3 # 1 "/usr/include/bits/select.h" 1 3 # 32 "/usr/include/sys/select.h" 2 3 # 1 "/usr/include/bits/sigset.h" 1 3 # 35 "/usr/include/sys/select.h" 2 3 typedef __sigset_t sigset_t; # 1 "/usr/include/time.h" 1 3 # 106 "/usr/include/time.h" 3 struct timespec { __time_t tv_sec; long int tv_nsec; }; # 45 "/usr/include/sys/select.h" 2 3 # 1 "/usr/include/bits/time.h" 1 3 # 63 "/usr/include/bits/time.h" 3 # 1 "/usr/include/bits/types.h" 1 3 # 64 "/usr/include/bits/time.h" 2 3 struct timeval { __time_t tv_sec; __suseconds_t tv_usec; }; # 47 "/usr/include/sys/select.h" 2 3 typedef __suseconds_t suseconds_t; typedef long int __fd_mask; typedef struct { __fd_mask __fds_bits[1024 / (8 * sizeof (__fd_mask))]; } fd_set; typedef __fd_mask fd_mask; # 102 "/usr/include/sys/select.h" 3 extern int select (int __nfds, fd_set *__restrict __readfds, fd_set *__restrict __writefds, fd_set *__restrict __exceptfds, struct timeval *__restrict __timeout) ; # 216 "/usr/include/sys/types.h" 2 3 # 1 "/usr/include/sys/sysmacros.h" 1 3 # 219 "/usr/include/sys/types.h" 2 3 # 230 "/usr/include/sys/types.h" 3 typedef __blkcnt_t blkcnt_t; typedef __fsblkcnt_t fsblkcnt_t; typedef __fsfilcnt_t fsfilcnt_t; # 391 "/usr/include/stdlib.h" 2 3 extern long int random (void) ; extern void srandom (unsigned int __seed) ; extern char *initstate (unsigned int __seed, char *__statebuf, size_t __statelen) ; extern char *setstate (char *__statebuf) ; struct random_data { int32_t *fptr; int32_t *rptr; int32_t *state; int rand_type; int rand_deg; int rand_sep; int32_t *end_ptr; }; extern int random_r (struct random_data *__restrict __buf, int32_t *__restrict __result) ; extern int srandom_r (unsigned int __seed, struct random_data *__buf) ; extern int initstate_r (unsigned int __seed, char *__restrict __statebuf, size_t __statelen, struct random_data *__restrict __buf) ; extern int setstate_r (char *__restrict __statebuf, struct random_data *__restrict __buf) ; extern int rand (void) ; extern void srand (unsigned int __seed) ; extern int rand_r (unsigned int *__seed) ; extern double drand48 (void) ; extern double erand48 (unsigned short int __xsubi[3]) ; extern long int lrand48 (void) ; extern long int nrand48 (unsigned short int __xsubi[3]) ; extern long int mrand48 (void) ; extern long int jrand48 (unsigned short int __xsubi[3]) ; extern void srand48 (long int __seedval) ; extern unsigned short int *seed48 (unsigned short int __seed16v[3]) ; extern void lcong48 (unsigned short int __param[7]) ; struct drand48_data { unsigned short int __x[3]; unsigned short int __old_x[3]; unsigned short int __c; unsigned short int __init; unsigned long long int __a; }; extern int drand48_r (struct drand48_data *__restrict __buffer, double *__restrict __result) ; extern int erand48_r (unsigned short int __xsubi[3], struct drand48_data *__restrict __buffer, double *__restrict __result) ; extern int lrand48_r (struct drand48_data *__restrict __buffer, long int *__restrict __result) ; extern int nrand48_r (unsigned short int __xsubi[3], struct drand48_data *__restrict __buffer, long int *__restrict __result) ; extern int mrand48_r (struct drand48_data *__restrict __buffer, long int *__restrict __result) ; extern int jrand48_r (unsigned short int __xsubi[3], struct drand48_data *__restrict __buffer, long int *__restrict __result) ; extern int srand48_r (long int __seedval, struct drand48_data *__buffer) ; extern int seed48_r (unsigned short int __seed16v[3], struct drand48_data *__buffer) ; extern int lcong48_r (unsigned short int __param[7], struct drand48_data *__buffer) ; # 527 "/usr/include/stdlib.h" 3 extern void *malloc (size_t __size) __attribute__ ((__malloc__)); extern void *calloc (size_t __nmemb, size_t __size) __attribute__ ((__malloc__)); extern void *realloc (void *__ptr, size_t __size) __attribute__ ((__malloc__)); extern void free (void *__ptr) ; extern void cfree (void *__ptr) ; # 1 "/usr/include/alloca.h" 1 3 # 22 "/usr/include/alloca.h" 3 # 1 "/usr/include/features.h" 1 3 # 23 "/usr/include/alloca.h" 2 3 # 1 "/usr/lib/gcc-lib/i386-linux/3.0.4/include/stddef.h" 1 3 # 26 "/usr/include/alloca.h" 2 3 extern void *alloca (size_t __size) ; # 547 "/usr/include/stdlib.h" 2 3 extern void *valloc (size_t __size) __attribute__ ((__malloc__)); # 561 "/usr/include/stdlib.h" 3 extern void abort (void) __attribute__ ((__noreturn__)); extern int atexit (void (*__func) (void)) ; extern int on_exit (void (*__func) (int __status, void *__arg), void *__arg) ; extern void exit (int __status) __attribute__ ((__noreturn__)); # 587 "/usr/include/stdlib.h" 3 extern char *getenv (__const char *__name) ; extern char *__secure_getenv (__const char *__name) ; extern int putenv (char *__string) ; extern int setenv (__const char *__name, __const char *__value, int __replace) ; extern int unsetenv (__const char *__name) ; extern int clearenv (void) ; # 623 "/usr/include/stdlib.h" 3 extern char *mktemp (char *__template) ; extern int mkstemp (char *__template) ; # 650 "/usr/include/stdlib.h" 3 extern char *mkdtemp (char *__template) ; extern int system (__const char *__command) ; # 672 "/usr/include/stdlib.h" 3 extern char *realpath (__const char *__restrict __name, char *__restrict __resolved) ; typedef int (*__compar_fn_t) (__const void *, __const void *); # 689 "/usr/include/stdlib.h" 3 extern void *bsearch (__const void *__key, __const void *__base, size_t __nmemb, size_t __size, __compar_fn_t __compar); extern void qsort (void *__base, size_t __nmemb, size_t __size, __compar_fn_t __compar); extern int abs (int __x) __attribute__ ((__const__)); extern long int labs (long int __x) __attribute__ ((__const__)); # 710 "/usr/include/stdlib.h" 3 extern div_t div (int __numer, int __denom) __attribute__ ((__const__)); extern ldiv_t ldiv (long int __numer, long int __denom) __attribute__ ((__const__)); # 728 "/usr/include/stdlib.h" 3 extern char *ecvt (double __value, int __ndigit, int *__restrict __decpt, int *__restrict __sign) ; extern char *fcvt (double __value, int __ndigit, int *__restrict __decpt, int *__restrict __sign) ; extern char *gcvt (double __value, int __ndigit, char *__buf) ; extern char *qecvt (long double __value, int __ndigit, int *__restrict __decpt, int *__restrict __sign) ; extern char *qfcvt (long double __value, int __ndigit, int *__restrict __decpt, int *__restrict __sign) ; extern char *qgcvt (long double __value, int __ndigit, char *__buf) ; extern int ecvt_r (double __value, int __ndigit, int *__restrict __decpt, int *__restrict __sign, char *__restrict __buf, size_t __len) ; extern int fcvt_r (double __value, int __ndigit, int *__restrict __decpt, int *__restrict __sign, char *__restrict __buf, size_t __len) ; extern int qecvt_r (long double __value, int __ndigit, int *__restrict __decpt, int *__restrict __sign, char *__restrict __buf, size_t __len) ; extern int qfcvt_r (long double __value, int __ndigit, int *__restrict __decpt, int *__restrict __sign, char *__restrict __buf, size_t __len) ; extern int mblen (__const char *__s, size_t __n) ; extern int mbtowc (wchar_t *__restrict __pwc, __const char *__restrict __s, size_t __n) ; extern int wctomb (char *__s, wchar_t __wchar) ; extern size_t mbstowcs (wchar_t *__restrict __pwcs, __const char *__restrict __s, size_t __n) ; extern size_t wcstombs (char *__restrict __s, __const wchar_t *__restrict __pwcs, size_t __n) ; extern int rpmatch (__const char *__response) ; # 858 "/usr/include/stdlib.h" 3 extern int getloadavg (double __loadavg[], int __nelem) ; # 27 "/src/bigloo2.4d/lib/2.4d/bigloo.h" 2 # 1 "/usr/include/math.h" 1 3 # 27 "/usr/include/math.h" 3 # 1 "/usr/include/features.h" 1 3 # 28 "/usr/include/math.h" 2 3 # 1 "/usr/include/bits/huge_val.h" 1 3 # 25 "/usr/include/bits/huge_val.h" 3 # 1 "/usr/include/features.h" 1 3 # 26 "/usr/include/bits/huge_val.h" 2 3 # 34 "/usr/include/math.h" 2 3 # 1 "/usr/include/bits/mathdef.h" 1 3 # 41 "/usr/include/math.h" 2 3 # 63 "/usr/include/math.h" 3 # 1 "/usr/include/bits/mathcalls.h" 1 3 # 54 "/usr/include/bits/mathcalls.h" 3 extern double acos (double __x) ; extern double __acos (double __x) ; extern double asin (double __x) ; extern double __asin (double __x) ; extern double atan (double __x) ; extern double __atan (double __x) ; extern double atan2 (double __y, double __x) ; extern double __atan2 (double __y, double __x) ; extern double cos (double __x) ; extern double __cos (double __x) ; extern double sin (double __x) ; extern double __sin (double __x) ; extern double tan (double __x) ; extern double __tan (double __x) ; # 78 "/usr/include/bits/mathcalls.h" 3 extern double cosh (double __x) ; extern double __cosh (double __x) ; extern double sinh (double __x) ; extern double __sinh (double __x) ; extern double tanh (double __x) ; extern double __tanh (double __x) ; extern double acosh (double __x) ; extern double __acosh (double __x) ; extern double asinh (double __x) ; extern double __asinh (double __x) ; extern double atanh (double __x) ; extern double __atanh (double __x) ; extern double exp (double __x) ; extern double __exp (double __x) ; # 106 "/usr/include/bits/mathcalls.h" 3 extern double frexp (double __x, int *__exponent) ; extern double __frexp (double __x, int *__exponent) ; extern double ldexp (double __x, int __exponent) ; extern double __ldexp (double __x, int __exponent) ; extern double log (double __x) ; extern double __log (double __x) ; extern double log10 (double __x) ; extern double __log10 (double __x) ; extern double modf (double __x, double *__iptr) ; extern double __modf (double __x, double *__iptr) ; extern double expm1 (double __x) ; extern double __expm1 (double __x) ; extern double log1p (double __x) ; extern double __log1p (double __x) ; extern double logb (double __x) ; extern double __logb (double __x) ; # 143 "/usr/include/bits/mathcalls.h" 3 extern double pow (double __x, double __y) ; extern double __pow (double __x, double __y) ; extern double sqrt (double __x) ; extern double __sqrt (double __x) ; extern double hypot (double __x, double __y) ; extern double __hypot (double __x, double __y) ; extern double cbrt (double __x) ; extern double __cbrt (double __x) ; extern double ceil (double __x) ; extern double __ceil (double __x) ; extern double fabs (double __x) __attribute__ ((__const__)); extern double __fabs (double __x) __attribute__ ((__const__)); extern double floor (double __x) ; extern double __floor (double __x) ; extern double fmod (double __x, double __y) ; extern double __fmod (double __x, double __y) ; extern int __isinf (double __value) __attribute__ ((__const__)); extern int __finite (double __value) __attribute__ ((__const__)); extern int isinf (double __value) __attribute__ ((__const__)); extern int finite (double __value) __attribute__ ((__const__)); extern double drem (double __x, double __y) ; extern double __drem (double __x, double __y) ; extern double significand (double __x) ; extern double __significand (double __x) ; extern double copysign (double __x, double __y) __attribute__ ((__const__)); extern double __copysign (double __x, double __y) __attribute__ ((__const__)); # 209 "/usr/include/bits/mathcalls.h" 3 extern int __isnan (double __value) __attribute__ ((__const__)); extern int isnan (double __value) __attribute__ ((__const__)); extern double j0 (double) ; extern double __j0 (double) ; extern double j1 (double) ; extern double __j1 (double) ; extern double jn (int, double) ; extern double __jn (int, double) ; extern double y0 (double) ; extern double __y0 (double) ; extern double y1 (double) ; extern double __y1 (double) ; extern double yn (int, double) ; extern double __yn (int, double) ; extern double erf (double) ; extern double __erf (double) ; extern double erfc (double) ; extern double __erfc (double) ; extern double lgamma (double) ; extern double __lgamma (double) ; # 238 "/usr/include/bits/mathcalls.h" 3 extern double gamma (double) ; extern double __gamma (double) ; extern double lgamma_r (double, int *__signgamp) ; extern double __lgamma_r (double, int *__signgamp) ; extern double rint (double __x) ; extern double __rint (double __x) ; extern double nextafter (double __x, double __y) __attribute__ ((__const__)); extern double __nextafter (double __x, double __y) __attribute__ ((__const__)); extern double remainder (double __x, double __y) ; extern double __remainder (double __x, double __y) ; extern double scalb (double __x, double __n) ; extern double __scalb (double __x, double __n) ; extern double scalbn (double __x, int __n) ; extern double __scalbn (double __x, int __n) ; extern int ilogb (double __x) ; extern int __ilogb (double __x) ; # 64 "/usr/include/math.h" 2 3 # 82 "/usr/include/math.h" 3 # 1 "/usr/include/bits/mathcalls.h" 1 3 # 54 "/usr/include/bits/mathcalls.h" 3 extern float acosf (float __x) ; extern float __acosf (float __x) ; extern float asinf (float __x) ; extern float __asinf (float __x) ; extern float atanf (float __x) ; extern float __atanf (float __x) ; extern float atan2f (float __y, float __x) ; extern float __atan2f (float __y, float __x) ; extern float cosf (float __x) ; extern float __cosf (float __x) ; extern float sinf (float __x) ; extern float __sinf (float __x) ; extern float tanf (float __x) ; extern float __tanf (float __x) ; # 78 "/usr/include/bits/mathcalls.h" 3 extern float coshf (float __x) ; extern float __coshf (float __x) ; extern float sinhf (float __x) ; extern float __sinhf (float __x) ; extern float tanhf (float __x) ; extern float __tanhf (float __x) ; extern float acoshf (float __x) ; extern float __acoshf (float __x) ; extern float asinhf (float __x) ; extern float __asinhf (float __x) ; extern float atanhf (float __x) ; extern float __atanhf (float __x) ; extern float expf (float __x) ; extern float __expf (float __x) ; # 106 "/usr/include/bits/mathcalls.h" 3 extern float frexpf (float __x, int *__exponent) ; extern float __frexpf (float __x, int *__exponent) ; extern float ldexpf (float __x, int __exponent) ; extern float __ldexpf (float __x, int __exponent) ; extern float logf (float __x) ; extern float __logf (float __x) ; extern float log10f (float __x) ; extern float __log10f (float __x) ; extern float modff (float __x, float *__iptr) ; extern float __modff (float __x, float *__iptr) ; extern float expm1f (float __x) ; extern float __expm1f (float __x) ; extern float log1pf (float __x) ; extern float __log1pf (float __x) ; extern float logbf (float __x) ; extern float __logbf (float __x) ; # 143 "/usr/include/bits/mathcalls.h" 3 extern float powf (float __x, float __y) ; extern float __powf (float __x, float __y) ; extern float sqrtf (float __x) ; extern float __sqrtf (float __x) ; extern float hypotf (float __x, float __y) ; extern float __hypotf (float __x, float __y) ; extern float cbrtf (float __x) ; extern float __cbrtf (float __x) ; extern float ceilf (float __x) ; extern float __ceilf (float __x) ; extern float fabsf (float __x) __attribute__ ((__const__)); extern float __fabsf (float __x) __attribute__ ((__const__)); extern float floorf (float __x) ; extern float __floorf (float __x) ; extern float fmodf (float __x, float __y) ; extern float __fmodf (float __x, float __y) ; extern int __isinff (float __value) __attribute__ ((__const__)); extern int __finitef (float __value) __attribute__ ((__const__)); extern int isinff (float __value) __attribute__ ((__const__)); extern int finitef (float __value) __attribute__ ((__const__)); extern float dremf (float __x, float __y) ; extern float __dremf (float __x, float __y) ; extern float significandf (float __x) ; extern float __significandf (float __x) ; extern float copysignf (float __x, float __y) __attribute__ ((__const__)); extern float __copysignf (float __x, float __y) __attribute__ ((__const__)); # 209 "/usr/include/bits/mathcalls.h" 3 extern int __isnanf (float __value) __attribute__ ((__const__)); extern int isnanf (float __value) __attribute__ ((__const__)); extern float j0f (float) ; extern float __j0f (float) ; extern float j1f (float) ; extern float __j1f (float) ; extern float jnf (int, float) ; extern float __jnf (int, float) ; extern float y0f (float) ; extern float __y0f (float) ; extern float y1f (float) ; extern float __y1f (float) ; extern float ynf (int, float) ; extern float __ynf (int, float) ; extern float erff (float) ; extern float __erff (float) ; extern float erfcf (float) ; extern float __erfcf (float) ; extern float lgammaf (float) ; extern float __lgammaf (float) ; # 238 "/usr/include/bits/mathcalls.h" 3 extern float gammaf (float) ; extern float __gammaf (float) ; extern float lgammaf_r (float, int *__signgamp) ; extern float __lgammaf_r (float, int *__signgamp) ; extern float rintf (float __x) ; extern float __rintf (float __x) ; extern float nextafterf (float __x, float __y) __attribute__ ((__const__)); extern float __nextafterf (float __x, float __y) __attribute__ ((__const__)); extern float remainderf (float __x, float __y) ; extern float __remainderf (float __x, float __y) ; extern float scalbf (float __x, float __n) ; extern float __scalbf (float __x, float __n) ; extern float scalbnf (float __x, int __n) ; extern float __scalbnf (float __x, int __n) ; extern int ilogbf (float __x) ; extern int __ilogbf (float __x) ; # 83 "/usr/include/math.h" 2 3 # 99 "/usr/include/math.h" 3 # 1 "/usr/include/bits/mathcalls.h" 1 3 # 54 "/usr/include/bits/mathcalls.h" 3 extern long double acosl (long double __x) ; extern long double __acosl (long double __x) ; extern long double asinl (long double __x) ; extern long double __asinl (long double __x) ; extern long double atanl (long double __x) ; extern long double __atanl (long double __x) ; extern long double atan2l (long double __y, long double __x) ; extern long double __atan2l (long double __y, long double __x) ; extern long double cosl (long double __x) ; extern long double __cosl (long double __x) ; extern long double sinl (long double __x) ; extern long double __sinl (long double __x) ; extern long double tanl (long double __x) ; extern long double __tanl (long double __x) ; # 78 "/usr/include/bits/mathcalls.h" 3 extern long double coshl (long double __x) ; extern long double __coshl (long double __x) ; extern long double sinhl (long double __x) ; extern long double __sinhl (long double __x) ; extern long double tanhl (long double __x) ; extern long double __tanhl (long double __x) ; extern long double acoshl (long double __x) ; extern long double __acoshl (long double __x) ; extern long double asinhl (long double __x) ; extern long double __asinhl (long double __x) ; extern long double atanhl (long double __x) ; extern long double __atanhl (long double __x) ; extern long double expl (long double __x) ; extern long double __expl (long double __x) ; # 106 "/usr/include/bits/mathcalls.h" 3 extern long double frexpl (long double __x, int *__exponent) ; extern long double __frexpl (long double __x, int *__exponent) ; extern long double ldexpl (long double __x, int __exponent) ; extern long double __ldexpl (long double __x, int __exponent) ; extern long double logl (long double __x) ; extern long double __logl (long double __x) ; extern long double log10l (long double __x) ; extern long double __log10l (long double __x) ; extern long double modfl (long double __x, long double *__iptr) ; extern long double __modfl (long double __x, long double *__iptr) ; extern long double expm1l (long double __x) ; extern long double __expm1l (long double __x) ; extern long double log1pl (long double __x) ; extern long double __log1pl (long double __x) ; extern long double logbl (long double __x) ; extern long double __logbl (long double __x) ; # 143 "/usr/include/bits/mathcalls.h" 3 extern long double powl (long double __x, long double __y) ; extern long double __powl (long double __x, long double __y) ; extern long double sqrtl (long double __x) ; extern long double __sqrtl (long double __x) ; extern long double hypotl (long double __x, long double __y) ; extern long double __hypotl (long double __x, long double __y) ; extern long double cbrtl (long double __x) ; extern long double __cbrtl (long double __x) ; extern long double ceill (long double __x) ; extern long double __ceill (long double __x) ; extern long double fabsl (long double __x) __attribute__ ((__const__)); extern long double __fabsl (long double __x) __attribute__ ((__const__)); extern long double floorl (long double __x) ; extern long double __floorl (long double __x) ; extern long double fmodl (long double __x, long double __y) ; extern long double __fmodl (long double __x, long double __y) ; extern int __isinfl (long double __value) __attribute__ ((__const__)); extern int __finitel (long double __value) __attribute__ ((__const__)); extern int isinfl (long double __value) __attribute__ ((__const__)); extern int finitel (long double __value) __attribute__ ((__const__)); extern long double dreml (long double __x, long double __y) ; extern long double __dreml (long double __x, long double __y) ; extern long double significandl (long double __x) ; extern long double __significandl (long double __x) ; extern long double copysignl (long double __x, long double __y) __attribute__ ((__const__)); extern long double __copysignl (long double __x, long double __y) __attribute__ ((__const__)); # 209 "/usr/include/bits/mathcalls.h" 3 extern int __isnanl (long double __value) __attribute__ ((__const__)); extern int isnanl (long double __value) __attribute__ ((__const__)); extern long double j0l (long double) ; extern long double __j0l (long double) ; extern long double j1l (long double) ; extern long double __j1l (long double) ; extern long double jnl (int, long double) ; extern long double __jnl (int, long double) ; extern long double y0l (long double) ; extern long double __y0l (long double) ; extern long double y1l (long double) ; extern long double __y1l (long double) ; extern long double ynl (int, long double) ; extern long double __ynl (int, long double) ; extern long double erfl (long double) ; extern long double __erfl (long double) ; extern long double erfcl (long double) ; extern long double __erfcl (long double) ; extern long double lgammal (long double) ; extern long double __lgammal (long double) ; # 238 "/usr/include/bits/mathcalls.h" 3 extern long double gammal (long double) ; extern long double __gammal (long double) ; extern long double lgammal_r (long double, int *__signgamp) ; extern long double __lgammal_r (long double, int *__signgamp) ; extern long double rintl (long double __x) ; extern long double __rintl (long double __x) ; extern long double nextafterl (long double __x, long double __y) __attribute__ ((__const__)); extern long double __nextafterl (long double __x, long double __y) __attribute__ ((__const__)); extern long double remainderl (long double __x, long double __y) ; extern long double __remainderl (long double __x, long double __y) ; extern long double scalbl (long double __x, long double __n) ; extern long double __scalbl (long double __x, long double __n) ; extern long double scalbnl (long double __x, int __n) ; extern long double __scalbnl (long double __x, int __n) ; extern int ilogbl (long double __x) ; extern int __ilogbl (long double __x) ; # 100 "/usr/include/math.h" 2 3 # 113 "/usr/include/math.h" 3 extern int signgam; # 240 "/usr/include/math.h" 3 typedef enum { _IEEE_ = -1, _SVID_, _XOPEN_, _POSIX_, _ISOC_ } _LIB_VERSION_TYPE; extern _LIB_VERSION_TYPE _LIB_VERSION; # 265 "/usr/include/math.h" 3 struct exception { int type; char *name; double arg1; double arg2; double retval; }; extern int matherr (struct exception *__exc); # 350 "/usr/include/math.h" 3 # 1 "/usr/include/bits/mathinline.h" 1 3 # 291 "/usr/include/bits/mathinline.h" 3 extern __inline double __sgn (double) ; extern __inline double __sgn (double __x) { return __x == 0.0 ? 0.0 : (__x > 0.0 ? 1.0 : -1.0); } extern __inline float __sgnf (float) ; extern __inline float __sgnf (float __x) { return __x == 0.0 ? 0.0 : (__x > 0.0 ? 1.0 : -1.0); } extern __inline long double __sgnl (long double) ; extern __inline long double __sgnl (long double __x) { return __x == 0.0 ? 0.0 : (__x > 0.0 ? 1.0 : -1.0); } # 425 "/usr/include/bits/mathinline.h" 3 extern __inline double atan2 (double __y, double __x) { register long double __value; __asm __volatile__ ("fpatan" : "=t" (__value) : "0" (__x), "u" (__y) : "st(1)"); return __value; } extern __inline float atan2f (float __y, float __x) { register long double __value; __asm __volatile__ ("fpatan" : "=t" (__value) : "0" (__x), "u" (__y) : "st(1)"); return __value; } extern __inline long double atan2l (long double __y, long double __x) { register long double __value; __asm __volatile__ ("fpatan" : "=t" (__value) : "0" (__x), "u" (__y) : "st(1)"); return __value; } extern __inline long double __atan2l (long double __y, long double __x) { register long double __value; __asm __volatile__ ("fpatan" : "=t" (__value) : "0" (__x), "u" (__y) : "st(1)"); return __value; } extern __inline double fmod (double __x, double __y) { register long double __value; __asm __volatile__ ("1: fprem\n\t" "fnstsw %%ax\n\t" "sahf\n\t" "jp 1b" : "=t" (__value) : "0" (__x), "u" (__y) : "ax", "cc"); return __value; } extern __inline float fmodf (float __x, float __y) { register long double __value; __asm __volatile__ ("1: fprem\n\t" "fnstsw %%ax\n\t" "sahf\n\t" "jp 1b" : "=t" (__value) : "0" (__x), "u" (__y) : "ax", "cc"); return __value; } extern __inline long double fmodl (long double __x, long double __y) { register long double __value; __asm __volatile__ ("1: fprem\n\t" "fnstsw %%ax\n\t" "sahf\n\t" "jp 1b" : "=t" (__value) : "0" (__x), "u" (__y) : "ax", "cc"); return __value; } # 440 "/usr/include/bits/mathinline.h" 3 extern __inline double sqrt (double __x) { register double __result; __asm __volatile__ ("fsqrt" : "=t" (__result) : "0" (__x)); return __result; } extern __inline float sqrtf (float __x) { register float __result; __asm __volatile__ ("fsqrt" : "=t" (__result) : "0" (__x)); return __result; } extern __inline long double sqrtl (long double __x) { register long double __result; __asm __volatile__ ("fsqrt" : "=t" (__result) : "0" (__x)); return __result; } extern __inline long double __sqrtl (long double __x) { register long double __result; __asm __volatile__ ("fsqrt" : "=t" (__result) : "0" (__x)); return __result; } extern __inline double fabs (double __x) { return __builtin_fabs (__x); } extern __inline float fabsf (float __x) { return __builtin_fabsf (__x); } extern __inline long double fabsl (long double __x) { return __builtin_fabsl (__x); } extern __inline long double __fabsl (long double __x) { return __builtin_fabsl (__x); } # 466 "/usr/include/bits/mathinline.h" 3 extern __inline double atan (double __x) { register double __result; __asm __volatile__ ("fld1; fpatan" : "=t" (__result) : "0" (__x) : "st(1)"); return __result; } extern __inline float atanf (float __x) { register float __result; __asm __volatile__ ("fld1; fpatan" : "=t" (__result) : "0" (__x) : "st(1)"); return __result; } extern __inline long double atanl (long double __x) { register long double __result; __asm __volatile__ ("fld1; fpatan" : "=t" (__result) : "0" (__x) : "st(1)"); return __result; } extern __inline long double __sgn1l (long double) ; extern __inline long double __sgn1l (long double __x) { __extension__ union { long double __xld; unsigned int __xi[3]; } __n = { __xld: __x }; __n.__xi[2] = (__n.__xi[2] & 0x8000) | 0x3fff; __n.__xi[1] = 0x80000000; __n.__xi[0] = 0; return __n.__xld; } # 492 "/usr/include/bits/mathinline.h" 3 extern __inline double floor (double __x) { register long double __value; __volatile unsigned short int __cw; __volatile unsigned short int __cwtmp; __asm __volatile ("fnstcw %0" : "=m" (__cw)); __cwtmp = (__cw & 0xf3ff) | 0x0400; __asm __volatile ("fldcw %0" : : "m" (__cwtmp)); __asm __volatile ("frndint" : "=t" (__value) : "0" (__x)); __asm __volatile ("fldcw %0" : : "m" (__cw)); return __value; } extern __inline float floorf (float __x) { register long double __value; __volatile unsigned short int __cw; __volatile unsigned short int __cwtmp; __asm __volatile ("fnstcw %0" : "=m" (__cw)); __cwtmp = (__cw & 0xf3ff) | 0x0400; __asm __volatile ("fldcw %0" : : "m" (__cwtmp)); __asm __volatile ("frndint" : "=t" (__value) : "0" (__x)); __asm __volatile ("fldcw %0" : : "m" (__cw)); return __value; } extern __inline long double floorl (long double __x) { register long double __value; __volatile unsigned short int __cw; __volatile unsigned short int __cwtmp; __asm __volatile ("fnstcw %0" : "=m" (__cw)); __cwtmp = (__cw & 0xf3ff) | 0x0400; __asm __volatile ("fldcw %0" : : "m" (__cwtmp)); __asm __volatile ("frndint" : "=t" (__value) : "0" (__x)); __asm __volatile ("fldcw %0" : : "m" (__cw)); return __value; } # 503 "/usr/include/bits/mathinline.h" 3 extern __inline double ceil (double __x) { register long double __value; __volatile unsigned short int __cw; __volatile unsigned short int __cwtmp; __asm __volatile ("fnstcw %0" : "=m" (__cw)); __cwtmp = (__cw & 0xf3ff) | 0x0800; __asm __volatile ("fldcw %0" : : "m" (__cwtmp)); __asm __volatile ("frndint" : "=t" (__value) : "0" (__x)); __asm __volatile ("fldcw %0" : : "m" (__cw)); return __value; } extern __inline float ceilf (float __x) { register long double __value; __volatile unsigned short int __cw; __volatile unsigned short int __cwtmp; __asm __volatile ("fnstcw %0" : "=m" (__cw)); __cwtmp = (__cw & 0xf3ff) | 0x0800; __asm __volatile ("fldcw %0" : : "m" (__cwtmp)); __asm __volatile ("frndint" : "=t" (__value) : "0" (__x)); __asm __volatile ("fldcw %0" : : "m" (__cw)); return __value; } extern __inline long double ceill (long double __x) { register long double __value; __volatile unsigned short int __cw; __volatile unsigned short int __cwtmp; __asm __volatile ("fnstcw %0" : "=m" (__cw)); __cwtmp = (__cw & 0xf3ff) | 0x0800; __asm __volatile ("fldcw %0" : : "m" (__cwtmp)); __asm __volatile ("frndint" : "=t" (__value) : "0" (__x)); __asm __volatile ("fldcw %0" : : "m" (__cw)); return __value; } # 521 "/usr/include/bits/mathinline.h" 3 extern __inline double ldexp (double __x, int __y) { register long double __value; __asm __volatile__ ("fscale" : "=t" (__value) : "0" (__x), "u" ((long double) __y)); return __value; } # 539 "/usr/include/bits/mathinline.h" 3 extern __inline double log1p (double __x) { register long double __value; if (__fabsl (__x) >= 1.0 - 0.5 * 1.41421356237309504880L) __value = logl (1.0 + __x); else __asm __volatile__ ("fldln2\n\t" "fxch\n\t" "fyl2xp1" : "=t" (__value) : "0" (__x) : "st(1)"); return __value; } extern __inline float log1pf (float __x) { register long double __value; if (__fabsl (__x) >= 1.0 - 0.5 * 1.41421356237309504880L) __value = logl (1.0 + __x); else __asm __volatile__ ("fldln2\n\t" "fxch\n\t" "fyl2xp1" : "=t" (__value) : "0" (__x) : "st(1)"); return __value; } extern __inline long double log1pl (long double __x) { register long double __value; if (__fabsl (__x) >= 1.0 - 0.5 * 1.41421356237309504880L) __value = logl (1.0 + __x); else __asm __volatile__ ("fldln2\n\t" "fxch\n\t" "fyl2xp1" : "=t" (__value) : "0" (__x) : "st(1)"); return __value; } # 553 "/usr/include/bits/mathinline.h" 3 extern __inline double asinh (double __x) { register long double __y = __fabsl (__x); return (log1pl (__y * __y / (__sqrtl (__y * __y + 1.0) + 1.0) + __y) * __sgn1l (__x)); } extern __inline float asinhf (float __x) { register long double __y = __fabsl (__x); return (log1pl (__y * __y / (__sqrtl (__y * __y + 1.0) + 1.0) + __y) * __sgn1l (__x)); } extern __inline long double asinhl (long double __x) { register long double __y = __fabsl (__x); return (log1pl (__y * __y / (__sqrtl (__y * __y + 1.0) + 1.0) + __y) * __sgn1l (__x)); } extern __inline double acosh (double __x) { return logl (__x + __sqrtl (__x - 1.0) * __sqrtl (__x + 1.0)); } extern __inline float acoshf (float __x) { return logl (__x + __sqrtl (__x - 1.0) * __sqrtl (__x + 1.0)); } extern __inline long double acoshl (long double __x) { return logl (__x + __sqrtl (__x - 1.0) * __sqrtl (__x + 1.0)); } extern __inline double atanh (double __x) { register long double __y = __fabsl (__x); return -0.5 * log1pl (-(__y + __y) / (1.0 + __y)) * __sgn1l (__x); } extern __inline float atanhf (float __x) { register long double __y = __fabsl (__x); return -0.5 * log1pl (-(__y + __y) / (1.0 + __y)) * __sgn1l (__x); } extern __inline long double atanhl (long double __x) { register long double __y = __fabsl (__x); return -0.5 * log1pl (-(__y + __y) / (1.0 + __y)) * __sgn1l (__x); } extern __inline double hypot (double __x, double __y) { return __sqrtl (__x * __x + __y * __y); } extern __inline float hypotf (float __x, float __y) { return __sqrtl (__x * __x + __y * __y); } extern __inline long double hypotl (long double __x, long double __y) { return __sqrtl (__x * __x + __y * __y); } extern __inline double logb (double __x) { register long double __value; register long double __junk; __asm __volatile__ ("fxtract\n\t" : "=t" (__junk), "=u" (__value) : "0" (__x)); return __value; } extern __inline float logbf (float __x) { register long double __value; register long double __junk; __asm __volatile__ ("fxtract\n\t" : "=t" (__junk), "=u" (__value) : "0" (__x)); return __value; } extern __inline long double logbl (long double __x) { register long double __value; register long double __junk; __asm __volatile__ ("fxtract\n\t" : "=t" (__junk), "=u" (__value) : "0" (__x)); return __value; } # 652 "/usr/include/bits/mathinline.h" 3 extern __inline double drem (double __x, double __y) { register double __value; register int __clobbered; __asm __volatile__ ("1: fprem1\n\t" "fstsw %%ax\n\t" "sahf\n\t" "jp 1b" : "=t" (__value), "=&a" (__clobbered) : "0" (__x), "u" (__y) : "cc"); return __value; } extern __inline float dremf (float __x, float __y) { register double __value; register int __clobbered; __asm __volatile__ ("1: fprem1\n\t" "fstsw %%ax\n\t" "sahf\n\t" "jp 1b" : "=t" (__value), "=&a" (__clobbered) : "0" (__x), "u" (__y) : "cc"); return __value; } extern __inline long double dreml (long double __x, long double __y) { register double __value; register int __clobbered; __asm __volatile__ ("1: fprem1\n\t" "fstsw %%ax\n\t" "sahf\n\t" "jp 1b" : "=t" (__value), "=&a" (__clobbered) : "0" (__x), "u" (__y) : "cc"); return __value; } # 665 "/usr/include/bits/mathinline.h" 3 extern __inline int __finite (double __x) { return (__extension__ (((((union { double __d; int __i[2]; }) {__d: __x}).__i[1] | 0x800fffffu) + 1) >> 31)); } # 351 "/usr/include/math.h" 2 3 # 28 "/src/bigloo2.4d/lib/2.4d/bigloo.h" 2 # 1 "/usr/lib/gcc-lib/i386-linux/3.0.4/include/limits.h" 1 3 # 11 "/usr/lib/gcc-lib/i386-linux/3.0.4/include/limits.h" 3 # 1 "/usr/lib/gcc-lib/i386-linux/3.0.4/include/syslimits.h" 1 3 # 1 "/usr/lib/gcc-lib/i386-linux/3.0.4/include/limits.h" 1 3 # 125 "/usr/lib/gcc-lib/i386-linux/3.0.4/include/limits.h" 3 # 1 "/usr/include/limits.h" 1 3 # 26 "/usr/include/limits.h" 3 # 1 "/usr/include/features.h" 1 3 # 27 "/usr/include/limits.h" 2 3 # 144 "/usr/include/limits.h" 3 # 1 "/usr/include/bits/posix1_lim.h" 1 3 # 126 "/usr/include/bits/posix1_lim.h" 3 # 1 "/usr/include/bits/local_lim.h" 1 3 # 36 "/usr/include/bits/local_lim.h" 3 # 1 "/usr/include/linux/limits.h" 1 3 # 37 "/usr/include/bits/local_lim.h" 2 3 # 127 "/usr/include/bits/posix1_lim.h" 2 3 # 145 "/usr/include/limits.h" 2 3 # 1 "/usr/include/bits/posix2_lim.h" 1 3 # 149 "/usr/include/limits.h" 2 3 # 126 "/usr/lib/gcc-lib/i386-linux/3.0.4/include/limits.h" 2 3 # 8 "/usr/lib/gcc-lib/i386-linux/3.0.4/include/syslimits.h" 2 3 # 12 "/usr/lib/gcc-lib/i386-linux/3.0.4/include/limits.h" 2 3 # 33 "/src/bigloo2.4d/lib/2.4d/bigloo.h" 2 # 79 "/src/bigloo2.4d/lib/2.4d/bigloo.h" # 1 "/src/bigloo2.4d/lib/2.4d/bigloo_config.h" 1 # 80 "/src/bigloo2.4d/lib/2.4d/bigloo.h" 2 # 241 "/src/bigloo2.4d/lib/2.4d/bigloo.h" typedef long int_t; typedef int_t header_t; typedef int bool_t; typedef unsigned short ucs2_t; typedef union scmobj { int_t integer; header_t header; struct pair { union scmobj *car; union scmobj *cdr; } pair_t; struct extended_pair { union scmobj *car; union scmobj *cdr; union scmobj *eheader; union scmobj *cer; } extended_pair_t; struct string { header_t header; int length; unsigned char char0; } string_t; struct ucs2_string { header_t header; int length; ucs2_t char0; } ucs2_string_t; struct vector { header_t header; int length; union scmobj *obj0; } vector_t; struct tvector { header_t header; int length; union scmobj *descr; } tvector_t; struct procedure { header_t header; union scmobj *(*entry)(); union scmobj *(*va_entry)(); int arity; union scmobj *obj0; } procedure_t; struct procedure_light { union scmobj *(*entry)(); union scmobj *obj0; } procedure_light_t; struct symbol { header_t header; union scmobj *string; union scmobj *cval; } symbol_t; struct output_port { header_t header; FILE *file; char *name; union scmobj *kindof; } output_port_t; struct output_string_port { header_t header; char *buffer; long size; long offset; } output_string_port_t; struct input_port { header_t header; union scmobj *kindof; char *name; FILE *file; long filepos; int (*sysread)(); int (*syseof)(); long bufsiz; bool_t eof; long matchstart; long matchstop; long forward; long abufsiz; unsigned char *buffer; int lastchar; } input_port_t; struct binary_port { header_t header; char *name; FILE *file; bool_t io; } binary_port_t; struct cell { header_t header; union scmobj *val; } cell_t; struct structure { header_t header; union scmobj *key; int length; union scmobj *obj0; } struct_t; struct real { header_t header; double real; } real_t; struct stack { header_t header; union scmobj *self; union scmobj *exitd_top; union scmobj *stamp; long size; struct befored *before_top; char *stack_top; char *stack_bot; struct dframe *top_frame; void *stack; } stack_t; struct foreign { header_t header; union scmobj *id; void *cobj; } foreign_t; struct elong { header_t header; long elong; } elong_t; struct llong { header_t header; long long llong; } llong_t; struct process { header_t header; int pid; int index; union scmobj *stream[ 3 ]; int exited; int exit_status; } process_t; struct socket { header_t header; int portnum; union scmobj *hostname; union scmobj *hostip; int fd; union scmobj *input; union scmobj *output; } socket_t; struct custom { header_t header; char *identifier; int (*final)(); int (*equal)(); long (*hash)(); char *(*to_string)(); union scmobj *(*output)(); } custom_t; } *obj_t; typedef obj_t (*function_t)(); typedef struct __object_bgl { header_t header; obj_t widening; } *object_bglt; typedef struct __bgl__object_00_bgl { header_t header; obj_t widening; } *bgl__object_00_bglt; typedef struct BgL__object_00_bgl { header_t header; obj_t widening; } *BgL__object_00_bglt; typedef struct BgL_objectz00_bgl { header_t header; obj_t widening; } *BgL_objectz00_bglt; # 519 "/src/bigloo2.4d/lib/2.4d/bigloo.h" extern obj_t GC_malloc(); extern obj_t GC_malloc_atomic(); extern obj_t GC_debug_malloc(); extern obj_t GC_debug_malloc_atomic(); extern int GC_gc_no; extern int GC_size(); extern void GC_init(); extern void GC_expand_hp( long ); extern void GC_register_displacement( int ); extern obj_t GC_debug_malloc(); extern obj_t GC_debug_malloc_atomic(); extern void GC_debug_register_displacement( int ); # 1009 "/src/bigloo2.4d/lib/2.4d/bigloo.h" struct dframe { obj_t symbol; struct dframe *link; }; # 1035 "/src/bigloo2.4d/lib/2.4d/bigloo.h" extern struct dframe frame; extern struct dframe *top_of_frame; # 1047 "/src/bigloo2.4d/lib/2.4d/bigloo.h" extern obj_t bigloo_error_handler; # 1369 "/src/bigloo2.4d/lib/2.4d/bigloo.h" extern obj_t (*bgl_get_current_output_port)(); extern obj_t (*bgl_set_current_output_port)( obj_t ); extern obj_t (*bgl_get_current_error_port)(); extern obj_t (*bgl_set_current_error_port)( obj_t ); extern obj_t (*bgl_get_current_input_port)(); extern obj_t (*bgl_set_current_input_port)( obj_t ); # 1749 "/src/bigloo2.4d/lib/2.4d/bigloo.h" extern obj_t fill_struct(); extern obj_t set_struct(); # 1837 "/src/bigloo2.4d/lib/2.4d/bigloo.h" extern obj_t _exit_value_; struct exitd { obj_t exit; bool_t userp; obj_t stamp; struct exitd *prev; }; extern obj_t (*bgl_get_exitd_top)(); extern obj_t (*bgl_set_exitd_top)( obj_t ); extern obj_t bgl_get_exitd_stamp(); # 1884 "/src/bigloo2.4d/lib/2.4d/bigloo.h" struct befored { obj_t before; struct befored *prev; }; extern struct befored * (*bgl_get_befored_top)(); extern void (*bgl_set_befored_top)( struct befored * ); # 1925 "/src/bigloo2.4d/lib/2.4d/bigloo.h" extern char *(*bgl_get_stack_bottom)(); extern void (*bgl_set_stack_bottom)( char * ); # 2098 "/src/bigloo2.4d/lib/2.4d/bigloo.h" extern obj_t bigloo_exit( obj_t ); extern obj_t va_generic_entry(); extern obj_t apply( obj_t, obj_t ); extern obj_t the_failure( obj_t, obj_t, obj_t ); extern obj_t make_fx_procedure( function_t, int, int ); extern obj_t make_va_procedure( function_t, int, int ); extern obj_t make_pair( obj_t, obj_t ); extern obj_t strport_flush( obj_t ); extern obj_t make_output_port( char *, FILE*, obj_t ); extern obj_t create_vector( int ); extern obj_t string_to_bstring( char * ); extern obj_t string_to_bstring_len( char *, int ); extern obj_t close_init_string(); extern obj_t cobj_to_foreign( obj_t, void * ); extern int _bigloo_main(int argc, char *argv[], char *env[], obj_t (*)() ); extern int bigloo_abort( long ); extern obj_t make_real( double ); extern obj_t string_to_symbol( char * ); # 11 "objs/obj_u/Eval/evcompile.c" 2 # 1 "/usr/include/signal.h" 1 3 # 29 "/usr/include/signal.h" 3 # 1 "/usr/include/features.h" 1 3 # 30 "/usr/include/signal.h" 2 3 # 1 "/usr/include/bits/sigset.h" 1 3 # 103 "/usr/include/bits/sigset.h" 3 extern int __sigismember (__const __sigset_t *, int); extern int __sigaddset (__sigset_t *, int); extern int __sigdelset (__sigset_t *, int); # 117 "/usr/include/bits/sigset.h" 3 extern __inline int __sigismember (__const __sigset_t *__set, int __sig) { unsigned long int __mask = (((unsigned long int) 1) << (((__sig) - 1) % (8 * sizeof (unsigned long int)))); unsigned long int __word = (((__sig) - 1) / (8 * sizeof (unsigned long int))); return (__set->__val[__word] & __mask) ? 1 : 0; } extern __inline int __sigaddset ( __sigset_t *__set, int __sig) { unsigned long int __mask = (((unsigned long int) 1) << (((__sig) - 1) % (8 * sizeof (unsigned long int)))); unsigned long int __word = (((__sig) - 1) / (8 * sizeof (unsigned long int))); return ((__set->__val[__word] |= __mask), 0); } extern __inline int __sigdelset ( __sigset_t *__set, int __sig) { unsigned long int __mask = (((unsigned long int) 1) << (((__sig) - 1) % (8 * sizeof (unsigned long int)))); unsigned long int __word = (((__sig) - 1) / (8 * sizeof (unsigned long int))); return ((__set->__val[__word] &= ~__mask), 0); } # 34 "/usr/include/signal.h" 2 3 typedef __sig_atomic_t sig_atomic_t; # 55 "/usr/include/signal.h" 3 # 1 "/usr/include/bits/types.h" 1 3 # 56 "/usr/include/signal.h" 2 3 # 1 "/usr/include/bits/signum.h" 1 3 # 57 "/usr/include/signal.h" 2 3 # 71 "/usr/include/signal.h" 3 typedef void (*__sighandler_t) (int); extern __sighandler_t __sysv_signal (int __sig, __sighandler_t __handler) ; # 87 "/usr/include/signal.h" 3 extern __sighandler_t signal (int __sig, __sighandler_t __handler) ; # 110 "/usr/include/signal.h" 3 extern int kill (__pid_t __pid, int __sig) ; extern int killpg (__pid_t __pgrp, int __sig) ; extern int raise (int __sig) ; extern __sighandler_t ssignal (int __sig, __sighandler_t __handler) ; extern int gsignal (int __sig) ; extern void psignal (int __sig, __const char *__s) ; # 140 "/usr/include/signal.h" 3 extern int __sigpause (int __sig_or_mask, int __is_sig) ; extern int sigpause (int __mask) ; # 168 "/usr/include/signal.h" 3 extern int sigblock (int __mask) ; extern int sigsetmask (int __mask) ; extern int siggetmask (void) ; # 188 "/usr/include/signal.h" 3 typedef __sighandler_t sig_t; # 1 "/usr/include/time.h" 1 3 # 197 "/usr/include/signal.h" 2 3 # 1 "/usr/include/bits/siginfo.h" 1 3 # 25 "/usr/include/bits/siginfo.h" 3 # 1 "/usr/include/bits/wordsize.h" 1 3 # 26 "/usr/include/bits/siginfo.h" 2 3 typedef union sigval { int sival_int; void *sival_ptr; } sigval_t; # 51 "/usr/include/bits/siginfo.h" 3 typedef struct siginfo { int si_signo; int si_errno; int si_code; union { int _pad[((128 / sizeof (int)) - 3)]; struct { __pid_t si_pid; __uid_t si_uid; } _kill; struct { unsigned int _timer1; unsigned int _timer2; } _timer; struct { __pid_t si_pid; __uid_t si_uid; sigval_t si_sigval; } _rt; struct { __pid_t si_pid; __uid_t si_uid; int si_status; __clock_t si_utime; __clock_t si_stime; } _sigchld; struct { void *si_addr; } _sigfault; struct { long int si_band; int si_fd; } _sigpoll; } _sifields; } siginfo_t; # 128 "/usr/include/bits/siginfo.h" 3 enum { SI_ASYNCNL = -6, SI_SIGIO, SI_ASYNCIO, SI_MESGQ, SI_TIMER, SI_QUEUE, SI_USER, SI_KERNEL = 0x80 }; enum { ILL_ILLOPC = 1, ILL_ILLOPN, ILL_ILLADR, ILL_ILLTRP, ILL_PRVOPC, ILL_PRVREG, ILL_COPROC, ILL_BADSTK }; enum { FPE_INTDIV = 1, FPE_INTOVF, FPE_FLTDIV, FPE_FLTOVF, FPE_FLTUND, FPE_FLTRES, FPE_FLTINV, FPE_FLTSUB }; enum { SEGV_MAPERR = 1, SEGV_ACCERR }; enum { BUS_ADRALN = 1, BUS_ADRERR, BUS_OBJERR }; enum { TRAP_BRKPT = 1, TRAP_TRACE }; enum { CLD_EXITED = 1, CLD_KILLED, CLD_DUMPED, CLD_TRAPPED, CLD_STOPPED, CLD_CONTINUED }; enum { POLL_IN = 1, POLL_OUT, POLL_MSG, POLL_ERR, POLL_PRI, POLL_HUP }; # 271 "/usr/include/bits/siginfo.h" 3 struct __pthread_attr_s; typedef struct sigevent { sigval_t sigev_value; int sigev_signo; int sigev_notify; union { int _pad[((64 / sizeof (int)) - 3)]; struct { void (*_function) (sigval_t); struct __pthread_attr_s *_attribute; } _sigev_thread; } _sigev_un; } sigevent_t; enum { SIGEV_SIGNAL = 0, SIGEV_NONE, SIGEV_THREAD }; # 200 "/usr/include/signal.h" 2 3 extern int sigemptyset (sigset_t *__set) ; extern int sigfillset (sigset_t *__set) ; extern int sigaddset (sigset_t *__set, int __signo) ; extern int sigdelset (sigset_t *__set, int __signo) ; extern int sigismember (__const sigset_t *__set, int __signo) ; # 232 "/usr/include/signal.h" 3 # 1 "/usr/include/bits/sigaction.h" 1 3 # 25 "/usr/include/bits/sigaction.h" 3 struct sigaction { union { __sighandler_t sa_handler; void (*sa_sigaction) (int, siginfo_t *, void *); } __sigaction_handler; __sigset_t sa_mask; int sa_flags; void (*sa_restorer) (void); }; # 233 "/usr/include/signal.h" 2 3 extern int sigprocmask (int __how, __const sigset_t *__restrict __set, sigset_t *__restrict __oset) ; extern int sigsuspend (__const sigset_t *__set) ; extern int sigaction (int __sig, __const struct sigaction *__restrict __act, struct sigaction *__restrict __oact) ; extern int sigpending (sigset_t *__set) ; extern int sigwait (__const sigset_t *__restrict __set, int *__restrict __sig) ; extern int sigwaitinfo (__const sigset_t *__restrict __set, siginfo_t *__restrict __info) ; extern int sigtimedwait (__const sigset_t *__restrict __set, siginfo_t *__restrict __info, __const struct timespec *__restrict __timeout) ; extern int sigqueue (__pid_t __pid, int __sig, __const union sigval __val) ; # 278 "/usr/include/signal.h" 3 extern __const char *__const _sys_siglist[64]; extern __const char *__const sys_siglist[64]; struct sigvec { __sighandler_t sv_handler; int sv_mask; int sv_flags; }; # 302 "/usr/include/signal.h" 3 extern int sigvec (int __sig, __const struct sigvec *__vec, struct sigvec *__ovec) ; # 1 "/usr/include/bits/sigcontext.h" 1 3 # 28 "/usr/include/bits/sigcontext.h" 3 # 1 "/usr/include/asm/sigcontext.h" 1 3 # 18 "/usr/include/asm/sigcontext.h" 3 struct _fpreg { unsigned short significand[4]; unsigned short exponent; }; struct _fpxreg { unsigned short significand[4]; unsigned short exponent; unsigned short padding[3]; }; struct _xmmreg { unsigned long element[4]; }; struct _fpstate { unsigned long cw; unsigned long sw; unsigned long tag; unsigned long ipoff; unsigned long cssel; unsigned long dataoff; unsigned long datasel; struct _fpreg _st[8]; unsigned short status; unsigned short magic; unsigned long _fxsr_env[6]; unsigned long mxcsr; unsigned long reserved; struct _fpxreg _fxsr_st[8]; struct _xmmreg _xmm[8]; unsigned long padding[56]; }; struct sigcontext { unsigned short gs, __gsh; unsigned short fs, __fsh; unsigned short es, __esh; unsigned short ds, __dsh; unsigned long edi; unsigned long esi; unsigned long ebp; unsigned long esp; unsigned long ebx; unsigned long edx; unsigned long ecx; unsigned long eax; unsigned long trapno; unsigned long err; unsigned long eip; unsigned short cs, __csh; unsigned long eflags; unsigned long esp_at_signal; unsigned short ss, __ssh; struct _fpstate * fpstate; unsigned long oldmask; unsigned long cr2; }; # 29 "/usr/include/bits/sigcontext.h" 2 3 # 308 "/usr/include/signal.h" 2 3 extern int sigreturn (struct sigcontext *__scp) ; # 320 "/usr/include/signal.h" 3 extern int siginterrupt (int __sig, int __interrupt) ; # 1 "/usr/include/bits/sigstack.h" 1 3 # 26 "/usr/include/bits/sigstack.h" 3 struct sigstack { void *ss_sp; int ss_onstack; }; enum { SS_ONSTACK = 1, SS_DISABLE }; # 50 "/usr/include/bits/sigstack.h" 3 typedef struct sigaltstack { void *ss_sp; int ss_flags; size_t ss_size; } stack_t; # 323 "/usr/include/signal.h" 2 3 extern int sigstack (struct sigstack *__ss, struct sigstack *__oss) ; extern int sigaltstack (__const struct sigaltstack *__restrict __ss, struct sigaltstack *__restrict __oss) ; # 358 "/usr/include/signal.h" 3 # 1 "/usr/include/bits/sigthread.h" 1 3 # 31 "/usr/include/bits/sigthread.h" 3 extern int pthread_sigmask (int __how, __const __sigset_t *__restrict __newmask, __sigset_t *__restrict __oldmask); extern int pthread_kill (pthread_t __thread, int __signo) ; # 359 "/usr/include/signal.h" 2 3 extern int __libc_current_sigrtmin (void) ; extern int __libc_current_sigrtmax (void) ; # 12 "objs/obj_u/Eval/evcompile.c" 2 static obj_t BGl_loopz00zz__evcompilez00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t); extern obj_t BGl_modulezd2initializa7ationz75zz__evcompilez00(long, char *); extern obj_t BGl_modulezd2initializa7ationz75zz__expandz00(long, char *); extern obj_t BGl_modulezd2initializa7ationz75zz__typez00(long, char *); extern obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *); extern obj_t BGl_modulezd2initializa7ationz75zz__biglooz00(long, char *); extern obj_t BGl_modulezd2initializa7ationz75zz__tvectorz00(long, char *); extern obj_t BGl_modulezd2initializa7ationz75zz__structurez00(long, char *); extern obj_t BGl_modulezd2initializa7ationz75zz__bexitz00(long, char *); extern obj_t BGl_modulezd2initializa7ationz75zz__osz00(long, char *); extern obj_t BGl_modulezd2initializa7ationz75zz__dssslz00(long, char *); extern obj_t BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5z00(long, char *); extern obj_t BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_fixnumz00(long, char *); extern obj_t BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_flonumz00(long, char *); extern obj_t BGl_modulezd2initializa7ationz75zz__r4_characters_6_6z00(long, char *); extern obj_t BGl_modulezd2initializa7ationz75zz__r4_equivalence_6_2z00(long, char *); extern obj_t BGl_modulezd2initializa7ationz75zz__r4_booleans_6_1z00(long, char *); extern obj_t BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(long, char *); extern obj_t BGl_modulezd2initializa7ationz75zz__r4_strings_6_7z00(long, char *); extern obj_t BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(long, char *); extern obj_t BGl_modulezd2initializa7ationz75zz__r4_input_6_10_2z00(long, char *); extern obj_t BGl_modulezd2initializa7ationz75zz__r4_control_features_6_9z00(long, char *); extern obj_t BGl_modulezd2initializa7ationz75zz__r4_vectors_6_8z00(long, char *); extern obj_t BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(long, char *); extern obj_t BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(long, char *); extern obj_t BGl_modulezd2initializa7ationz75zz__evenvz00(long, char *); extern obj_t BGl_modulezd2initializa7ationz75zz__evalz00(long, char *); extern obj_t BGl_expandz00zz__expandz00(obj_t); extern obj_t BGl_makezd2dssslzd2functionzd2preludezd2zz__dssslz00(obj_t, obj_t, obj_t, obj_t); static obj_t BGl__evcompilez00zz__evcompilez00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t); extern obj_t BGl_nullzd2environmentzd2zz__evalz00(obj_t); extern long bgl_list_length(obj_t); static obj_t BGl_zc3anonymousza31404ze3z83zz__evcompilez00(obj_t); static obj_t BGl__loop_z00zz__evcompilez00(obj_t, obj_t); extern obj_t BGl_findzd2loczd2zz__evcompilez00(obj_t, obj_t); static obj_t BGl_evcompilezd2cnstzd2zz__evcompilez00(obj_t, obj_t); extern obj_t BGl_schemezd2reportzd2environmentz00zz__evalz00(obj_t); static obj_t BGl_cnstzd2initzd2zz__evcompilez00(); extern obj_t string_to_symbol(char *); static obj_t BGl__findzd2loczd2zz__evcompilez00(obj_t, obj_t, obj_t); static obj_t BGl_evcompilezd2errorzd2zz__evcompilez00(obj_t, obj_t, obj_t, obj_t); extern obj_t c_substring(obj_t, int, int); static obj_t BGl_evcompilezd2lambdazd2zz__evcompilez00(obj_t, obj_t, obj_t, obj_t, obj_t); extern obj_t BGl_makezd2promisezd2zz__r4_control_features_6_9z00(obj_t); extern obj_t BGl_interactionzd2environmentzd2zz__evalz00(); static obj_t BGl_evcompilezd2refzd2zz__evcompilez00(obj_t, obj_t); static obj_t BGl_importedzd2moduleszd2initz00zz__evcompilez00(); static obj_t BGl_evcompilezd2compiledzd2applicationz00zz__evcompilez00(obj_t, obj_t, obj_t); extern obj_t BGl_evalzd2lookupzd2zz__evenvz00(obj_t); static obj_t BGl_requirezd2initializa7ationz75zz__evcompilez00 = ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2))); extern obj_t BGl_modulezd2declarationz12zc0zz__evalz00(obj_t); extern obj_t BGl_errorzf2locationzf2zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t); extern bool_t BGl_equalzf3zf3zz__r4_equivalence_6_2z00(obj_t, obj_t); static obj_t BGl_untypezd2identzd2zz__evcompilez00(obj_t); static obj_t BGl_zc3anonymousza31453ze3z83zz__evcompilez00(obj_t, obj_t, obj_t, obj_t); extern obj_t BGl_listzd2ze3vectorz31zz__r4_vectors_6_8z00(obj_t); static obj_t BGl_evcompilezd2beginzd2zz__evcompilez00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t); static obj_t BGl_evcompilezd2globalzd2applicationz00zz__evcompilez00(obj_t, obj_t, obj_t); static obj_t BGl_zc3anonymousza31455ze3z83zz__evcompilez00(obj_t, obj_t, obj_t, obj_t); extern obj_t BGl_evcompilez00zz__evcompilez00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t); static obj_t BGl_variablez00zz__evcompilez00(obj_t, obj_t, obj_t, obj_t); static obj_t BGl_untypezd2identza2z70zz__evcompilez00(obj_t); extern obj_t BGl_dssslzd2formalszd2ze3schemezd2formalsz31zz__dssslz00(obj_t, obj_t); static obj_t BGl_evcompilezd2setzd2zz__evcompilez00(obj_t, obj_t, obj_t); static obj_t BGl_evcompilezd2applicationzd2zz__evcompilez00(obj_t, obj_t, obj_t, obj_t); static obj_t BGl_symbol1950z00zz__evcompilez00 = ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2))); static obj_t BGl_symbol1947z00zz__evcompilez00 = ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2))); static obj_t BGl_symbol1946z00zz__evcompilez00 = ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2))); static obj_t BGl_symbol1945z00zz__evcompilez00 = ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2))); static obj_t BGl_symbol1944z00zz__evcompilez00 = ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2))); static obj_t BGl_symbol1943z00zz__evcompilez00 = ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2))); static obj_t BGl_symbol1942z00zz__evcompilez00 = ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2))); static obj_t BGl_symbol1941z00zz__evcompilez00 = ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2))); static obj_t BGl_symbol1940z00zz__evcompilez00 = ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2))); static obj_t BGl_symbol1939z00zz__evcompilez00 = ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2))); static obj_t BGl_symbol1938z00zz__evcompilez00 = ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2))); static obj_t BGl_symbol1935z00zz__evcompilez00 = ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2))); static obj_t BGl_symbol1931z00zz__evcompilez00 = ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2))); static obj_t *__cnst; static struct { header_t header; int length; char string[25 +1]; } BgL_bgl_string1949za700za7za7__evcompileza7001952z00 = { ((header_t)((long)(((long)(1) << (3 + 4 + 1)) | 0))), 25, "Illegal `set!' expression" }; static obj_t BGl_string1949z00zz__evcompilez00 = ((obj_t)(&BgL_bgl_string1949za700za7za7__evcompileza7001952z00)); static struct { header_t header; int length; char string[16 +1]; } BgL_bgl_string1948za700za7za7__evcompileza7001953z00 = { ((header_t)((long)(((long)(1) << (3 + 4 + 1)) | 0))), 16, "Unbound variable" }; static obj_t BGl_string1948z00zz__evcompilez00 = ((obj_t)(&BgL_bgl_string1948za700za7za7__evcompileza7001953z00)); static struct { header_t header; int length; char string[18 +1]; } BgL_bgl_string1937za700za7za7__evcompileza7001954z00 = { ((header_t)((long)(((long)(1) << (3 + 4 + 1)) | 0))), 18, "Illegal expression" }; static obj_t BGl_string1937z00zz__evcompilez00 = ((obj_t)(&BgL_bgl_string1937za700za7za7__evcompileza7001954z00)); static struct { header_t header; int length; char string[15 +1]; } BgL_bgl_string1936za700za7za7__evcompileza7001955z00 = { ((header_t)((long)(((long)(1) << (3 + 4 + 1)) | 0))), 15, "Not a procedure" }; static obj_t BGl_string1936z00zz__evcompilez00 = ((obj_t)(&BgL_bgl_string1936za700za7za7__evcompileza7001955z00)); static struct { header_t header; int length; char string[12 +1]; } BgL_bgl_string1934za700za7za7__evcompileza7001956z00 = { ((header_t)((long)(((long)(1) << (3 + 4 + 1)) | 0))), 12, "Illegal form" }; static obj_t BGl_string1934z00zz__evcompilez00 = ((obj_t)(&BgL_bgl_string1934za700za7za7__evcompileza7001956z00)); static struct { header_t header; int length; char string[4 +1]; } BgL_bgl_string1933za700za7za7__evcompileza7001957z00 = { ((header_t)((long)(((long)(1) << (3 + 4 + 1)) | 0))), 4, "set!" }; static obj_t BGl_string1933z00zz__evcompilez00 = ((obj_t)(&BgL_bgl_string1933za700za7za7__evcompileza7001957z00)); static struct { header_t header; int length; char string[40 +1]; } BgL_bgl_string1932za700za7za7__evcompileza7001958z00 = { ((header_t)((long)(((long)(1) << (3 + 4 + 1)) | 0))), 40, "Illegal define form (sealed environment)" }; static obj_t BGl_string1932z00zz__evcompilez00 = ((obj_t)(&BgL_bgl_string1932za700za7za7__evcompileza7001958z00)); static struct { header_t header; int length; char string[37 +1]; } BgL_bgl_string1930za700za7za7__evcompileza7001959z00 = { ((header_t)((long)(((long)(1) << (3 + 4 + 1)) | 0))), 37, "Illegal expression (should be quoted)" }; static obj_t BGl_string1930z00zz__evcompilez00 = ((obj_t)(&BgL_bgl_string1930za700za7za7__evcompileza7001959z00)); static struct { header_t header; int length; char string[4 +1]; } BgL_bgl_string1929za700za7za7__evcompileza7001960z00 = { ((header_t)((long)(((long)(1) << (3 + 4 + 1)) | 0))), 4, "eval" }; static obj_t BGl_string1929z00zz__evcompilez00 = ((obj_t)(&BgL_bgl_string1929za700za7za7__evcompileza7001960z00)); static struct { header_t header; obj_t (*entry)(); obj_t (*va_entry)(); int arity; } BgL_bgl__findza7d2locza7d2za7za7__evcompileza7001961za7 = { ((header_t)((long)(((long)(3) << (3 + 4 + 1)) | 0))), (obj_t (*)())BGl__findzd2loczd2zz__evcompilez00, (obj_t (*)())0L, 2 }; obj_t BGl_findzd2loczd2envz00zz__evcompilez00 = ((obj_t)(&BgL_bgl__findza7d2locza7d2za7za7__evcompileza7001961za7)); static struct { header_t header; obj_t (*entry)(); obj_t (*va_entry)(); int arity; } BgL_bgl__evcompileza700za7za7__evcompileza7001962z00 = { ((header_t)((long)(((long)(3) << (3 + 4 + 1)) | 0))), (obj_t (*)())BGl__evcompilez00zz__evcompilez00, (obj_t (*)())0L, 6 }; obj_t BGl_evcompilezd2envzd2zz__evcompilez00 = ((obj_t)(&BgL_bgl__evcompileza700za7za7__evcompileza7001962z00)); obj_t BGl_modulezd2initializa7ationz75zz__evcompilez00(long BgL_checksumz00_3008, char *BgL_fromz00_3009) { ; { if ((BGl_requirezd2initializa7ationz75zz__evcompilez00 != ((obj_t)(obj_t)((long)(((long)(1) << 2) | 2))))) { BGl_requirezd2initializa7ationz75zz__evcompilez00 = (((bool_t) 0) ? ((obj_t)(obj_t)((long)(((long)(2) << 2) | 2))) : ((obj_t)(obj_t)((long)(((long)(1) << 2) | 2)))); BGl_cnstzd2initzd2zz__evcompilez00(); BGl_importedzd2moduleszd2initz00zz__evcompilez00(); return ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2))); } else { return ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2))); } } } obj_t BGl_cnstzd2initzd2zz__evcompilez00() { ; { BGl_symbol1931z00zz__evcompilez00 = string_to_symbol("nowhere"); BGl_symbol1935z00zz__evcompilez00 = string_to_symbol("lambda"); BGl_symbol1938z00zz__evcompilez00 = string_to_symbol("module"); BGl_symbol1939z00zz__evcompilez00 = string_to_symbol("assert"); BGl_symbol1940z00zz__evcompilez00 = string_to_symbol("quote"); BGl_symbol1941z00zz__evcompilez00 = string_to_symbol("if"); BGl_symbol1942z00zz__evcompilez00 = string_to_symbol("begin"); BGl_symbol1943z00zz__evcompilez00 = string_to_symbol("define"); BGl_symbol1944z00zz__evcompilez00 = string_to_symbol("set!"); BGl_symbol1945z00zz__evcompilez00 = string_to_symbol("bind-exit"); BGl_symbol1946z00zz__evcompilez00 = string_to_symbol("unwind-protect"); BGl_symbol1947z00zz__evcompilez00 = string_to_symbol("dynamic"); return (BGl_symbol1950z00zz__evcompilez00 = string_to_symbol("at"), ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } } obj_t BGl_findzd2loczd2zz__evcompilez00(obj_t BgL_expz00_1, obj_t BgL_defaultz00_2) { ; { { bool_t BgL_test1103z00_1405; BgL_test1103z00_1405 = ( ((((long)BgL_expz00_1) & ((1 << 2) - 1)) == 3) && (((long)GC_size( ((obj_t)((long)BgL_expz00_1 | 3)) )) >= (sizeof( struct extended_pair ))) && ((((obj_t)((long)BgL_expz00_1 - 3))->extended_pair_t).eheader == (obj_t)((long)(((long)(21) << 2) | 1)) ) ); if (BgL_test1103z00_1405) { return ((((obj_t)((long)BgL_expz00_1 - 3))->extended_pair_t).cer); } else { return BgL_defaultz00_2; } } } } obj_t BGl__findzd2loczd2zz__evcompilez00(obj_t BgL_envz00_2969, obj_t BgL_expz00_2970, obj_t BgL_defaultz00_2971) { ; { return BGl_findzd2loczd2zz__evcompilez00(BgL_expz00_2970, BgL_defaultz00_2971); } } obj_t BGl_untypezd2identzd2zz__evcompilez00(obj_t BgL_idz00_3) { ; { if (((((((long)BgL_idz00_3) & ((1 << 2) - 1)) == 0) && BgL_idz00_3) && ((long)((long)((long)((((obj_t)(BgL_idz00_3))->header)) >> (3 + 4 + 1))) == 8))) { obj_t BgL_stringz00_403; BgL_stringz00_403 = (((obj_t)(BgL_idz00_3))->symbol_t).string; { int BgL_lenz00_404; BgL_lenz00_404 = (((obj_t)(BgL_stringz00_403))->string_t).length; { { long BgL_walkerz00_405; BgL_walkerz00_405 = ((long) 0); BgL_loopz00_406: { bool_t BgL_testz00_3036; { long BgL_auxz00_3037; BgL_auxz00_3037 = (long) (BgL_lenz00_404); BgL_testz00_3036 = (BgL_walkerz00_405 == BgL_auxz00_3037); } if (BgL_testz00_3036) { return BgL_idz00_3; } else { bool_t BgL_testz00_3040; { bool_t BgL_testz00_3041; { unsigned char BgL_auxz00_3042; { int BgL_auxz00_3043; BgL_auxz00_3043 = (int) (BgL_walkerz00_405); BgL_auxz00_3042 = (((char *)(&((((obj_t)(BgL_stringz00_403))->string_t).char0)))[ BgL_auxz00_3043 ]); } BgL_testz00_3041 = (BgL_auxz00_3042 == ((unsigned char) ':')); } if (BgL_testz00_3041) { bool_t BgL_testz00_3047; { long BgL_auxz00_3048; { long BgL_auxz00_3049; BgL_auxz00_3049 = (long) (BgL_lenz00_404); BgL_auxz00_3048 = (BgL_auxz00_3049 - ((long) 1)); } BgL_testz00_3047 = (BgL_walkerz00_405 < BgL_auxz00_3048); } if (BgL_testz00_3047) { unsigned char BgL_auxz00_3053; { int BgL_auxz00_3054; { long BgL_auxz00_3055; BgL_auxz00_3055 = (BgL_walkerz00_405 + ((long) 1)); BgL_auxz00_3054 = (int) (BgL_auxz00_3055); } BgL_auxz00_3053 = (((char *)(&((((obj_t)(BgL_stringz00_403))->string_t).char0)))[ BgL_auxz00_3054 ]); } BgL_testz00_3040 = (BgL_auxz00_3053 == ((unsigned char) ':')); } else { BgL_testz00_3040 = ((bool_t) 0); } } else { BgL_testz00_3040 = ((bool_t) 0); } } if (BgL_testz00_3040) { { obj_t BgL_arg1107z00_409; { int BgL_auxz00_3062; int BgL_auxz00_3060; BgL_auxz00_3062 = (int) (BgL_walkerz00_405); BgL_auxz00_3060 = (int) (((long) 0)); BgL_arg1107z00_409 = c_substring(BgL_stringz00_403, BgL_auxz00_3060, BgL_auxz00_3062); } { char *BgL_auxz00_3065; BgL_auxz00_3065 = ((char *)(&((((obj_t)(BgL_arg1107z00_409))->string_t).char0))); return string_to_symbol(BgL_auxz00_3065); } } } else { { long BgL_walkerz00_3068; BgL_walkerz00_3068 = (BgL_walkerz00_405 + ((long) 1)); BgL_walkerz00_405 = BgL_walkerz00_3068; goto BgL_loopz00_406; } } } } } } } } else { return BgL_idz00_3; } } } obj_t BGl_untypezd2identza2z70zz__evcompilez00(obj_t BgL_identsz00_4) { ; { if (((long)(BgL_identsz00_4) == (long)((obj_t)(obj_t)((long)(((long)(0) << 2) | 2))))) { return ((obj_t)(obj_t)((long)(((long)(0) << 2) | 2))); } else { if (((((long)BgL_identsz00_4) & ((1 << 2) - 1)) == 3)) { { obj_t BgL_auxz00_3077; obj_t BgL_auxz00_3074; BgL_auxz00_3077 = BGl_untypezd2identza2z70zz__evcompilez00(((((obj_t)((long)BgL_identsz00_4 - 3))->pair_t).cdr)); BgL_auxz00_3074 = BGl_untypezd2identzd2zz__evcompilez00(((((obj_t)((long)BgL_identsz00_4 - 3))->pair_t).car)); return make_pair( BgL_auxz00_3074, BgL_auxz00_3077 ); } } else { return BGl_untypezd2identzd2zz__evcompilez00(BgL_identsz00_4); } } } } obj_t BGl_evcompilez00zz__evcompilez00(obj_t BgL_expz00_5, obj_t BgL_envz00_6, obj_t BgL_genvz00_7, obj_t BgL_wherez00_8, obj_t BgL_namedzf3zf3_9, obj_t BgL_locz00_10) { ; { { obj_t BgL_funz00_456; obj_t BgL_argsz00_457; obj_t BgL_funz00_453; obj_t BgL_argsz00_454; obj_t BgL_formalsz00_450; obj_t BgL_bodyz00_451; obj_t BgL_bodyz00_447; obj_t BgL_protectz00_448; obj_t BgL_escapez00_444; obj_t BgL_bodyz00_445; obj_t BgL_varz00_440; obj_t BgL_valz00_441; obj_t BgL_varz00_437; obj_t BgL_valz00_438; obj_t BgL_siz00_431; obj_t BgL_alorsz00_432; obj_t BgL_sinonz00_433; obj_t BgL_atomz00_427; if (BGl_equalzf3zf3zz__r4_equivalence_6_2z00(BgL_expz00_5, ((obj_t)(obj_t)((long)(((long)(0) << 2) | 2))))) { return BGl_evcompilezd2errorzd2zz__evcompilez00(BgL_locz00_10, BGl_string1929z00zz__evcompilez00, BGl_string1937z00zz__evcompilez00, ((obj_t)(obj_t)((long)(((long)(0) << 2) | 2)))); } else { if (((((long)BgL_expz00_5) & ((1 << 2) - 1)) == 3)) { obj_t BgL_cdrzd2150zd2_463; BgL_cdrzd2150zd2_463 = ((((obj_t)((long)BgL_expz00_5 - 3))->pair_t).cdr); { bool_t BgL_testz00_3088; { obj_t BgL_auxz00_3089; BgL_auxz00_3089 = ((((obj_t)((long)BgL_expz00_5 - 3))->pair_t).car); BgL_testz00_3088 = (BgL_auxz00_3089 == BGl_symbol1938z00zz__evcompilez00); } if (BgL_testz00_3088) { if (((((long)BgL_cdrzd2150zd2_463) & ((1 << 2) - 1)) == 3)) { BGl_modulezd2declarationz12zc0zz__evalz00(((((obj_t)((long)BgL_cdrzd2150zd2_463 - 3))->pair_t).cdr)); return ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2))); } else { obj_t BgL_carzd2280zd2_467; BgL_carzd2280zd2_467 = ((((obj_t)((long)BgL_expz00_5 - 3))->pair_t).car); if (((((long)BgL_carzd2280zd2_467) & ((1 << 2) - 1)) == 3)) { BgL_funz00_456 = BgL_carzd2280zd2_467; BgL_argsz00_457 = BgL_cdrzd2150zd2_463; BgL_tagzd2115zd2_458: { obj_t BgL_locz00_852; obj_t BgL_actualsz00_853; obj_t BgL_procz00_854; { bool_t BgL_test1103z00_1976; BgL_test1103z00_1976 = ( ((((long)BgL_expz00_5) & ((1 << 2) - 1)) == 3) && (((long)GC_size( ((obj_t)((long)BgL_expz00_5 | 3)) )) >= (sizeof( struct extended_pair ))) && ((((obj_t)((long)BgL_expz00_5 - 3))->extended_pair_t).eheader == (obj_t)((long)(((long)(21) << 2) | 1)) ) ); if (BgL_test1103z00_1976) { BgL_locz00_852 = ((((obj_t)((long)BgL_expz00_5 - 3))->extended_pair_t).cer); } else { BgL_locz00_852 = BgL_locz00_10; } } if (((long)(BgL_argsz00_457) == (long)((obj_t)(obj_t)((long)(((long)(0) << 2) | 2))))) { BgL_actualsz00_853 = ((obj_t)(obj_t)((long)(((long)(0) << 2) | 2))); } else { obj_t BgL_head1020z00_857; BgL_head1020z00_857 = make_pair( ((obj_t)(obj_t)((long)(((long)(0) << 2) | 2))), ((obj_t)(obj_t)((long)(((long)(0) << 2) | 2))) ); { obj_t BgL_l1018z00_858; obj_t BgL_tail1021z00_859; BgL_l1018z00_858 = BgL_argsz00_457; BgL_tail1021z00_859 = BgL_head1020z00_857; BgL_lname1019z00_860: if (((long)(BgL_l1018z00_858) == (long)((obj_t)(obj_t)((long)(((long)(0) << 2) | 2))))) { BgL_actualsz00_853 = ((((obj_t)((long)BgL_head1020z00_857 - 3))->pair_t).cdr); } else { obj_t BgL_newtail1022z00_862; { obj_t BgL_auxz00_3108; BgL_auxz00_3108 = BGl_evcompilez00zz__evcompilez00 (((((obj_t)((long)BgL_l1018z00_858 - 3))->pair_t).car), BgL_envz00_6, BgL_genvz00_7, BgL_wherez00_8, ((obj_t)(obj_t)((long)(((long)(1) << 2) | 2))), BgL_locz00_10); BgL_newtail1022z00_862 = make_pair( BgL_auxz00_3108, ((obj_t)(obj_t)((long)(((long)(0) << 2) | 2))) ); } ((((((obj_t)((long)BgL_tail1021z00_859 - 3))->pair_t).cdr) = BgL_newtail1022z00_862), ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); { obj_t BgL_tail1021z00_3115; obj_t BgL_l1018z00_3113; BgL_l1018z00_3113 = ((((obj_t)((long)BgL_l1018z00_858 - 3))->pair_t).cdr); BgL_tail1021z00_3115 = BgL_newtail1022z00_862; BgL_tail1021z00_859 = BgL_tail1021z00_3115; BgL_l1018z00_858 = BgL_l1018z00_3113; goto BgL_lname1019z00_860; } } } } BgL_procz00_854 = BGl_evcompilez00zz__evcompilez00 (BgL_funz00_456, BgL_envz00_6, BgL_genvz00_7, BgL_wherez00_8, ((obj_t)(obj_t)((long)(((long)(1) << 2) | 2))), BgL_locz00_10); return BGl_evcompilezd2applicationzd2zz__evcompilez00 (BgL_funz00_456, BgL_procz00_854, BgL_actualsz00_853, BgL_locz00_852); } } else { BgL_funz00_453 = BgL_carzd2280zd2_467; BgL_argsz00_454 = BgL_cdrzd2150zd2_463; BgL_tagzd2114zd2_455: { obj_t BgL_locz00_825; { bool_t BgL_test1103z00_1939; BgL_test1103z00_1939 = ( ((((long)BgL_expz00_5) & ((1 << 2) - 1)) == 3) && (((long)GC_size( ((obj_t)((long)BgL_expz00_5 | 3)) )) >= (sizeof( struct extended_pair ))) && ((((obj_t)((long)BgL_expz00_5 - 3))->extended_pair_t).eheader == (obj_t)((long)(((long)(21) << 2) | 1)) ) ); if (BgL_test1103z00_1939) { BgL_locz00_825 = ((((obj_t)((long)BgL_expz00_5 - 3))->extended_pair_t).cer); } else { BgL_locz00_825 = BgL_locz00_10; } } { obj_t BgL_actualsz00_826; if (((long)(BgL_argsz00_454) == (long)((obj_t)(obj_t)((long)(((long)(0) << 2) | 2))))) { BgL_actualsz00_826 = ((obj_t)(obj_t)((long)(((long)(0) << 2) | 2))); } else { obj_t BgL_head1014z00_842; BgL_head1014z00_842 = make_pair( ((obj_t)(obj_t)((long)(((long)(0) << 2) | 2))), ((obj_t)(obj_t)((long)(((long)(0) << 2) | 2))) ); { obj_t BgL_l1012z00_843; obj_t BgL_tail1015z00_844; BgL_l1012z00_843 = BgL_argsz00_454; BgL_tail1015z00_844 = BgL_head1014z00_842; BgL_lname1013z00_845: if (((long)(BgL_l1012z00_843) == (long)((obj_t)(obj_t)((long)(((long)(0) << 2) | 2))))) { BgL_actualsz00_826 = ((((obj_t)((long)BgL_head1014z00_842 - 3))->pair_t).cdr); } else { obj_t BgL_newtail1016z00_847; { obj_t BgL_auxz00_3127; BgL_auxz00_3127 = BGl_evcompilez00zz__evcompilez00 (((((obj_t)((long)BgL_l1012z00_843 - 3))->pair_t).car), BgL_envz00_6, BgL_genvz00_7, BgL_wherez00_8, ((obj_t)(obj_t)((long)(((long)(1) << 2) | 2))), BgL_locz00_825); BgL_newtail1016z00_847 = make_pair( BgL_auxz00_3127, ((obj_t)(obj_t)((long)(((long)(0) << 2) | 2))) ); } ((((((obj_t)((long)BgL_tail1015z00_844 - 3))->pair_t).cdr) = BgL_newtail1016z00_847), ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); { obj_t BgL_tail1015z00_3134; obj_t BgL_l1012z00_3132; BgL_l1012z00_3132 = ((((obj_t)((long)BgL_l1012z00_843 - 3))->pair_t).cdr); BgL_tail1015z00_3134 = BgL_newtail1016z00_847; BgL_tail1015z00_844 = BgL_tail1015z00_3134; BgL_l1012z00_843 = BgL_l1012z00_3132; goto BgL_lname1013z00_845; } } } } { if (((((((long)BgL_funz00_453) & ((1 << 2) - 1)) == 0) && BgL_funz00_453) && ((long)((long)((long)((((obj_t)(BgL_funz00_453))->header)) >> (3 + 4 + 1))) == 8))) { { obj_t BgL_procz00_828; BgL_procz00_828 = BGl_variablez00zz__evcompilez00 (BgL_locz00_825, BgL_funz00_453, BgL_envz00_6, BgL_genvz00_7); { bool_t BgL_test1457z00_829; if (((((((long)BgL_procz00_828) & ((1 << 2) - 1)) == 0) && BgL_procz00_828) && ((long)((long)((long)((((obj_t)(BgL_procz00_828))->header)) >> (3 + 4 + 1))) == 2))) { int BgL_arg1787z00_1956; BgL_arg1787z00_1956 = ((unsigned int)((obj_t)(BgL_procz00_828))->vector_t.length & (~(unsigned int)((((unsigned int)(1<<8)) -1) << ((sizeof( int ) << 3) - 8)))); { long BgL_auxz00_3141; BgL_auxz00_3141 = (long) (BgL_arg1787z00_1956); BgL_test1457z00_829 = (BgL_auxz00_3141 == ((long) 3)); } } else { BgL_test1457z00_829 = ((bool_t) 0); } if (BgL_test1457z00_829) { return BGl_evcompilezd2globalzd2applicationz00zz__evcompilez00 (BgL_procz00_828, BgL_actualsz00_826, BgL_locz00_825); } else { return BGl_evcompilezd2applicationzd2zz__evcompilez00 (BgL_funz00_453, BGl_evcompilezd2refzd2zz__evcompilez00 (BgL_procz00_828, BgL_locz00_825), BgL_actualsz00_826, BgL_locz00_825); } } } } else { if (((((((long)BgL_funz00_453) & ((1 << 2) - 1)) == 0) && BgL_funz00_453) && ((long)((long)((long)((((obj_t)(BgL_funz00_453))->header)) >> (3 + 4 + 1))) == 3))) { return BGl_evcompilezd2compiledzd2applicationz00zz__evcompilez00 (BgL_funz00_453, BgL_actualsz00_826, BgL_locz00_825); } else { BGl_evcompilezd2errorzd2zz__evcompilez00 (BgL_locz00_825, BGl_string1929z00zz__evcompilez00, BGl_string1936z00zz__evcompilez00, BgL_funz00_453); { obj_t BgL_v1017z00_832; { int BgL_auxz00_3152; BgL_auxz00_3152 = (int) (((long) 3)); BgL_v1017z00_832 = create_vector (BgL_auxz00_3152); } { obj_t BgL_arg1461z00_834; { obj_t BgL_list1462z00_835; { obj_t BgL_arg1464z00_837; { obj_t BgL_arg1468z00_839; BgL_arg1468z00_839 = make_pair( BgL_funz00_453, ((obj_t)(obj_t)((long)(((long)(0) << 2) | 2))) ); BgL_arg1464z00_837 = make_pair( BGl_string1936z00zz__evcompilez00, BgL_arg1468z00_839 ); } BgL_list1462z00_835 = make_pair( BGl_string1929z00zz__evcompilez00, BgL_arg1464z00_837 ); } BgL_arg1461z00_834 = BgL_list1462z00_835; } { int BgL_auxz00_3158; BgL_auxz00_3158 = (int) (( (long) 2)); ((&(((obj_t)(BgL_v1017z00_832))->vector_t.obj0))[ BgL_auxz00_3158 ] = BgL_arg1461z00_834, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } } { int BgL_auxz00_3161; BgL_auxz00_3161 = (int) (((long) 1)); ((&(((obj_t)(BgL_v1017z00_832))->vector_t.obj0))[ BgL_auxz00_3161 ] = BgL_locz00_825, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { obj_t BgL_auxz00_3166; int BgL_auxz00_3164; BgL_auxz00_3166 = (obj_t)((long)(((long)(((long) -2)) << 2) | 1)); BgL_auxz00_3164 = (int) (((long) 0)); ((&(((obj_t)(BgL_v1017z00_832))->vector_t.obj0))[ BgL_auxz00_3164 ] = BgL_auxz00_3166, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } return BgL_v1017z00_832; } } } } } } } } } else { bool_t BgL_testz00_3169; { obj_t BgL_auxz00_3170; BgL_auxz00_3170 = ((((obj_t)((long)BgL_expz00_5 - 3))->pair_t).car); BgL_testz00_3169 = (BgL_auxz00_3170 == BGl_symbol1939z00zz__evcompilez00); } if (BgL_testz00_3169) { return ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2))); } else { bool_t BgL_testz00_3173; { obj_t BgL_auxz00_3174; BgL_auxz00_3174 = ((((obj_t)((long)BgL_expz00_5 - 3))->pair_t).car); BgL_testz00_3173 = (BgL_auxz00_3174 == BGl_symbol1940z00zz__evcompilez00); } if (BgL_testz00_3173) { if (((((long)BgL_cdrzd2150zd2_463) & ((1 << 2) - 1)) == 3)) { if (BGl_equalzf3zf3zz__r4_equivalence_6_2z00(((((obj_t)((long)BgL_cdrzd2150zd2_463 - 3))->pair_t).cdr), ((obj_t)(obj_t)((long)(((long)(0) << 2) | 2))))) { obj_t BgL_arg1139z00_477; BgL_arg1139z00_477 = ((((obj_t)((long)BgL_cdrzd2150zd2_463 - 3))->pair_t).car); { obj_t BgL_arg1390z00_1457; { bool_t BgL_test1103z00_1460; BgL_test1103z00_1460 = ( ((((long)BgL_expz00_5) & ((1 << 2) - 1)) == 3) && (((long)GC_size( ((obj_t)((long)BgL_expz00_5 | 3)) )) >= (sizeof( struct extended_pair ))) && ((((obj_t)((long)BgL_expz00_5 - 3))->extended_pair_t).eheader == (obj_t)((long)(((long)(21) << 2) | 1)) ) ); if (BgL_test1103z00_1460) { BgL_arg1390z00_1457 = ((((obj_t)((long)BgL_expz00_5 - 3))->extended_pair_t).cer); } else { BgL_arg1390z00_1457 = BgL_locz00_10; } } return BGl_evcompilezd2cnstzd2zz__evcompilez00 (BgL_arg1139z00_477, BgL_arg1390z00_1457); } } else { obj_t BgL_carzd2431zd2_478; BgL_carzd2431zd2_478 = ((((obj_t)((long)BgL_expz00_5 - 3))->pair_t).car); if (((((long)BgL_carzd2431zd2_478) & ((1 << 2) - 1)) == 3)) { obj_t BgL_argsz00_3191; obj_t BgL_funz00_3190; BgL_funz00_3190 = BgL_carzd2431zd2_478; BgL_argsz00_3191 = ((((obj_t)((long)BgL_expz00_5 - 3))->pair_t).cdr); BgL_argsz00_457 = BgL_argsz00_3191; BgL_funz00_456 = BgL_funz00_3190; goto BgL_tagzd2115zd2_458; } else { obj_t BgL_argsz00_3194; obj_t BgL_funz00_3193; BgL_funz00_3193 = BgL_carzd2431zd2_478; BgL_argsz00_3194 = ((((obj_t)((long)BgL_expz00_5 - 3))->pair_t).cdr); BgL_argsz00_454 = BgL_argsz00_3194; BgL_funz00_453 = BgL_funz00_3193; goto BgL_tagzd2114zd2_455; } } } else { obj_t BgL_carzd2528zd2_485; BgL_carzd2528zd2_485 = ((((obj_t)((long)BgL_expz00_5 - 3))->pair_t).car); if (((((long)BgL_carzd2528zd2_485) & ((1 << 2) - 1)) == 3)) { obj_t BgL_argsz00_3200; obj_t BgL_funz00_3199; BgL_funz00_3199 = BgL_carzd2528zd2_485; BgL_argsz00_3200 = ((((obj_t)((long)BgL_expz00_5 - 3))->pair_t).cdr); BgL_argsz00_457 = BgL_argsz00_3200; BgL_funz00_456 = BgL_funz00_3199; goto BgL_tagzd2115zd2_458; } else { obj_t BgL_argsz00_3203; obj_t BgL_funz00_3202; BgL_funz00_3202 = BgL_carzd2528zd2_485; BgL_argsz00_3203 = ((((obj_t)((long)BgL_expz00_5 - 3))->pair_t).cdr); BgL_argsz00_454 = BgL_argsz00_3203; BgL_funz00_453 = BgL_funz00_3202; goto BgL_tagzd2114zd2_455; } } } else { obj_t BgL_cdrzd2560zd2_490; BgL_cdrzd2560zd2_490 = ((((obj_t)((long)BgL_expz00_5 - 3))->pair_t).cdr); { bool_t BgL_testz00_3206; { obj_t BgL_auxz00_3207; BgL_auxz00_3207 = ((((obj_t)((long)BgL_expz00_5 - 3))->pair_t).car); BgL_testz00_3206 = (BgL_auxz00_3207 == BGl_symbol1941z00zz__evcompilez00); } if (BgL_testz00_3206) { if (((((long)BgL_cdrzd2560zd2_490) & ((1 << 2) - 1)) == 3)) { obj_t BgL_cdrzd2565zd2_493; BgL_cdrzd2565zd2_493 = ((((obj_t)((long)BgL_cdrzd2560zd2_490 - 3))->pair_t).cdr); if (((((long)BgL_cdrzd2565zd2_493) & ((1 << 2) - 1)) == 3)) { obj_t BgL_cdrzd2570zd2_495; BgL_cdrzd2570zd2_495 = ((((obj_t)((long)BgL_cdrzd2565zd2_493 - 3))->pair_t).cdr); if (((((long)BgL_cdrzd2570zd2_495) & ((1 << 2) - 1)) == 3)) { if (BGl_equalzf3zf3zz__r4_equivalence_6_2z00(((((obj_t)((long)BgL_cdrzd2570zd2_495 - 3))->pair_t).cdr), ((obj_t)(obj_t)((long)(((long)(0) << 2) | 2))))) { BgL_siz00_431 = ((((obj_t)((long)BgL_cdrzd2560zd2_490 - 3))->pair_t).car); BgL_alorsz00_432 = ((((obj_t)((long)BgL_cdrzd2565zd2_493 - 3))->pair_t).car); BgL_sinonz00_433 = ((((obj_t)((long)BgL_cdrzd2570zd2_495 - 3))->pair_t).car); { obj_t BgL_locz00_742; { bool_t BgL_test1103z00_1718; BgL_test1103z00_1718 = ( ((((long)BgL_expz00_5) & ((1 << 2) - 1)) == 3) && (((long)GC_size( ((obj_t)((long)BgL_expz00_5 | 3)) )) >= (sizeof( struct extended_pair ))) && ((((obj_t)((long)BgL_expz00_5 - 3))->extended_pair_t).eheader == (obj_t)((long)(((long)(21) << 2) | 1)) ) ); if (BgL_test1103z00_1718) { BgL_locz00_742 = ((((obj_t)((long)BgL_expz00_5 - 3))->extended_pair_t).cer); } else { BgL_locz00_742 = BgL_locz00_10; } } { obj_t BgL_arg1391z00_743; obj_t BgL_arg1392z00_744; obj_t BgL_arg1393z00_745; { obj_t BgL_arg1394z00_746; { bool_t BgL_test1103z00_1723; BgL_test1103z00_1723 = ( ((((long)BgL_siz00_431) & ((1 << 2) - 1)) == 3) && (((long)GC_size( ((obj_t)((long)BgL_siz00_431 | 3)) )) >= (sizeof( struct extended_pair ))) && ((((obj_t)((long)BgL_siz00_431 - 3))->extended_pair_t).eheader == (obj_t)((long)(((long)(21) << 2) | 1)) ) ); if (BgL_test1103z00_1723) { BgL_arg1394z00_746 = ((((obj_t)((long)BgL_siz00_431 - 3))->extended_pair_t).cer); } else { BgL_arg1394z00_746 = BgL_locz00_742; } } BgL_arg1391z00_743 = BGl_evcompilez00zz__evcompilez00 (BgL_siz00_431, BgL_envz00_6, BgL_genvz00_7, BgL_wherez00_8, ((obj_t)(obj_t)((long)(((long)(1) << 2) | 2))), BgL_arg1394z00_746); } { obj_t BgL_arg1395z00_747; { bool_t BgL_test1103z00_1728; BgL_test1103z00_1728 = ( ((((long)BgL_alorsz00_432) & ((1 << 2) - 1)) == 3) && (((long)GC_size( ((obj_t)((long)BgL_alorsz00_432 | 3)) )) >= (sizeof( struct extended_pair ))) && ((((obj_t)((long)BgL_alorsz00_432 - 3))->extended_pair_t).eheader == (obj_t)((long)(((long)(21) << 2) | 1)) ) ); if (BgL_test1103z00_1728) { BgL_arg1395z00_747 = ((((obj_t)((long)BgL_alorsz00_432 - 3))->extended_pair_t).cer); } else { BgL_arg1395z00_747 = BgL_locz00_742; } } BgL_arg1392z00_744 = BGl_evcompilez00zz__evcompilez00 (BgL_alorsz00_432, BgL_envz00_6, BgL_genvz00_7, BgL_wherez00_8, BgL_namedzf3zf3_9, BgL_arg1395z00_747); } { obj_t BgL_arg1396z00_748; { bool_t BgL_test1103z00_1733; BgL_test1103z00_1733 = ( ((((long)BgL_sinonz00_433) & ((1 << 2) - 1)) == 3) && (((long)GC_size( ((obj_t)((long)BgL_sinonz00_433 | 3)) )) >= (sizeof( struct extended_pair ))) && ((((obj_t)((long)BgL_sinonz00_433 - 3))->extended_pair_t).eheader == (obj_t)((long)(((long)(21) << 2) | 1)) ) ); if (BgL_test1103z00_1733) { BgL_arg1396z00_748 = ((((obj_t)((long)BgL_sinonz00_433 - 3))->extended_pair_t).cer); } else { BgL_arg1396z00_748 = BgL_locz00_742; } } BgL_arg1393z00_745 = BGl_evcompilez00zz__evcompilez00 (BgL_sinonz00_433, BgL_envz00_6, BgL_genvz00_7, BgL_wherez00_8, BgL_namedzf3zf3_9, BgL_arg1396z00_748); } { obj_t BgL_v1036z00_1740; { int BgL_auxz00_3236; BgL_auxz00_3236 = (int) ( ((long) 3)); BgL_v1036z00_1740 = create_vector (BgL_auxz00_3236); } { obj_t BgL_arg1506z00_1742; { obj_t BgL_v1037z00_1743; { int BgL_auxz00_3239; BgL_auxz00_3239 = (int) ( ((long) 3)); BgL_v1037z00_1743 = create_vector (BgL_auxz00_3239); } { int BgL_auxz00_3242; BgL_auxz00_3242 = (int) ( ((long) 2)); ((&(((obj_t)(BgL_v1037z00_1743))->vector_t.obj0))[ BgL_auxz00_3242 ] = BgL_arg1393z00_745, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { int BgL_auxz00_3245; BgL_auxz00_3245 = (int) ( ((long) 1)); ((&(((obj_t)(BgL_v1037z00_1743))->vector_t.obj0))[ BgL_auxz00_3245 ] = BgL_arg1392z00_744, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { int BgL_auxz00_3248; BgL_auxz00_3248 = (int) ( ((long) 0)); ((&(((obj_t)(BgL_v1037z00_1743))->vector_t.obj0))[ BgL_auxz00_3248 ] = BgL_arg1391z00_743, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } BgL_arg1506z00_1742 = BgL_v1037z00_1743; } { int BgL_auxz00_3251; BgL_auxz00_3251 = (int) ( ((long) 2)); ((&(((obj_t)(BgL_v1036z00_1740))->vector_t.obj0))[ BgL_auxz00_3251 ] = BgL_arg1506z00_1742, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } } { int BgL_auxz00_3254; BgL_auxz00_3254 = (int) ( ((long) 1)); ((&(((obj_t)(BgL_v1036z00_1740))->vector_t.obj0))[ BgL_auxz00_3254 ] = BgL_locz00_742, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { obj_t BgL_auxz00_3259; int BgL_auxz00_3257; BgL_auxz00_3259 = (obj_t)((long)(((long)(((long) 15)) << 2) | 1)); BgL_auxz00_3257 = (int) ( ((long) 0)); ((&(((obj_t)(BgL_v1036z00_1740))->vector_t.obj0))[ BgL_auxz00_3257 ] = BgL_auxz00_3259, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } return BgL_v1036z00_1740; } } } } else { obj_t BgL_carzd2642zd2_501; BgL_carzd2642zd2_501 = ((((obj_t)((long)BgL_expz00_5 - 3))->pair_t).car); if (((((long)BgL_carzd2642zd2_501) & ((1 << 2) - 1)) == 3)) { obj_t BgL_argsz00_3269; obj_t BgL_funz00_3268; BgL_funz00_3268 = BgL_carzd2642zd2_501; BgL_argsz00_3269 = BgL_cdrzd2560zd2_490; BgL_argsz00_457 = BgL_argsz00_3269; BgL_funz00_456 = BgL_funz00_3268; goto BgL_tagzd2115zd2_458; } else { obj_t BgL_argsz00_3271; obj_t BgL_funz00_3270; BgL_funz00_3270 = BgL_carzd2642zd2_501; BgL_argsz00_3271 = BgL_cdrzd2560zd2_490; BgL_argsz00_454 = BgL_argsz00_3271; BgL_funz00_453 = BgL_funz00_3270; goto BgL_tagzd2114zd2_455; } } } else { obj_t BgL_carzd2724zd2_508; BgL_carzd2724zd2_508 = ((((obj_t)((long)BgL_expz00_5 - 3))->pair_t).car); if (((((long)BgL_carzd2724zd2_508) & ((1 << 2) - 1)) == 3)) { obj_t BgL_argsz00_3276; obj_t BgL_funz00_3275; BgL_funz00_3275 = BgL_carzd2724zd2_508; BgL_argsz00_3276 = BgL_cdrzd2560zd2_490; BgL_argsz00_457 = BgL_argsz00_3276; BgL_funz00_456 = BgL_funz00_3275; goto BgL_tagzd2115zd2_458; } else { obj_t BgL_argsz00_3278; obj_t BgL_funz00_3277; BgL_funz00_3277 = BgL_carzd2724zd2_508; BgL_argsz00_3278 = BgL_cdrzd2560zd2_490; BgL_argsz00_454 = BgL_argsz00_3278; BgL_funz00_453 = BgL_funz00_3277; goto BgL_tagzd2114zd2_455; } } } else { obj_t BgL_carzd2806zd2_513; BgL_carzd2806zd2_513 = ((((obj_t)((long)BgL_expz00_5 - 3))->pair_t).car); if (((((long)BgL_carzd2806zd2_513) & ((1 << 2) - 1)) == 3)) { obj_t BgL_argsz00_3283; obj_t BgL_funz00_3282; BgL_funz00_3282 = BgL_carzd2806zd2_513; BgL_argsz00_3283 = BgL_cdrzd2560zd2_490; BgL_argsz00_457 = BgL_argsz00_3283; BgL_funz00_456 = BgL_funz00_3282; goto BgL_tagzd2115zd2_458; } else { obj_t BgL_argsz00_3285; obj_t BgL_funz00_3284; BgL_funz00_3284 = BgL_carzd2806zd2_513; BgL_argsz00_3285 = BgL_cdrzd2560zd2_490; BgL_argsz00_454 = BgL_argsz00_3285; BgL_funz00_453 = BgL_funz00_3284; goto BgL_tagzd2114zd2_455; } } } else { obj_t BgL_carzd2888zd2_518; BgL_carzd2888zd2_518 = ((((obj_t)((long)BgL_expz00_5 - 3))->pair_t).car); if (((((long)BgL_carzd2888zd2_518) & ((1 << 2) - 1)) == 3)) { obj_t BgL_argsz00_3290; obj_t BgL_funz00_3289; BgL_funz00_3289 = BgL_carzd2888zd2_518; BgL_argsz00_3290 = BgL_cdrzd2560zd2_490; BgL_argsz00_457 = BgL_argsz00_3290; BgL_funz00_456 = BgL_funz00_3289; goto BgL_tagzd2115zd2_458; } else { obj_t BgL_argsz00_3292; obj_t BgL_funz00_3291; BgL_funz00_3291 = BgL_carzd2888zd2_518; BgL_argsz00_3292 = BgL_cdrzd2560zd2_490; BgL_argsz00_454 = BgL_argsz00_3292; BgL_funz00_453 = BgL_funz00_3291; goto BgL_tagzd2114zd2_455; } } } else { bool_t BgL_testz00_3293; { obj_t BgL_auxz00_3294; BgL_auxz00_3294 = ((((obj_t)((long)BgL_expz00_5 - 3))->pair_t).car); BgL_testz00_3293 = (BgL_auxz00_3294 == BGl_symbol1942z00zz__evcompilez00); } if (BgL_testz00_3293) { obj_t BgL_arg1397z00_1507; { bool_t BgL_test1103z00_1510; BgL_test1103z00_1510 = ( ((((long)BgL_expz00_5) & ((1 << 2) - 1)) == 3) && (((long)GC_size( ((obj_t)((long)BgL_expz00_5 | 3)) )) >= (sizeof( struct extended_pair ))) && ((((obj_t)((long)BgL_expz00_5 - 3))->extended_pair_t).eheader == (obj_t)((long)(((long)(21) << 2) | 1)) ) ); if (BgL_test1103z00_1510) { BgL_arg1397z00_1507 = ((((obj_t)((long)BgL_expz00_5 - 3))->extended_pair_t).cer); } else { BgL_arg1397z00_1507 = BgL_locz00_10; } } return BGl_evcompilezd2beginzd2zz__evcompilez00 (BgL_cdrzd2560zd2_490, BgL_envz00_6, BgL_genvz00_7, BgL_wherez00_8, BgL_namedzf3zf3_9, BgL_arg1397z00_1507); } else { bool_t BgL_testz00_3301; { obj_t BgL_auxz00_3302; BgL_auxz00_3302 = ((((obj_t)((long)BgL_expz00_5 - 3))->pair_t).car); BgL_testz00_3301 = (BgL_auxz00_3302 == BGl_symbol1943z00zz__evcompilez00); } if (BgL_testz00_3301) { if (((((long)BgL_cdrzd2560zd2_490) & ((1 << 2) - 1)) == 3)) { obj_t BgL_cdrzd2935zd2_528; BgL_cdrzd2935zd2_528 = ((((obj_t)((long)BgL_cdrzd2560zd2_490 - 3))->pair_t).cdr); if (((((long)BgL_cdrzd2935zd2_528) & ((1 << 2) - 1)) == 3)) { obj_t BgL_carzd2938zd2_530; BgL_carzd2938zd2_530 = ((((obj_t)((long)BgL_cdrzd2935zd2_528 - 3))->pair_t).car); if (((((long)BgL_carzd2938zd2_530) & ((1 << 2) - 1)) == 3)) { bool_t BgL_testz00_3313; { obj_t BgL_auxz00_3314; BgL_auxz00_3314 = ((((obj_t)((long)BgL_carzd2938zd2_530 - 3))->pair_t).car); BgL_testz00_3313 = (BgL_auxz00_3314 == BGl_symbol1935z00zz__evcompilez00); } if (BgL_testz00_3313) { if (BGl_equalzf3zf3zz__r4_equivalence_6_2z00(((((obj_t)((long)BgL_cdrzd2935zd2_528 - 3))->pair_t).cdr), ((obj_t)(obj_t)((long)(((long)(0) << 2) | 2))))) { BgL_varz00_437 = ((((obj_t)((long)BgL_cdrzd2560zd2_490 - 3))->pair_t).car); BgL_valz00_438 = BgL_carzd2938zd2_530; BgL_tagzd2108zd2_439: { bool_t BgL_test1398z00_750; if ((BgL_wherez00_8 == BGl_symbol1931z00zz__evcompilez00)) { bool_t BgL__ortest_1010z00_760; { obj_t BgL_auxz00_3322; BgL_auxz00_3322 = BGl_schemezd2reportzd2environmentz00zz__evalz00 ((obj_t)((long)(((long)(((long) 5)) << 2) | 1))); BgL__ortest_1010z00_760 = (BgL_genvz00_7 == BgL_auxz00_3322); } if (BgL__ortest_1010z00_760) { BgL_test1398z00_750 = BgL__ortest_1010z00_760; } else { obj_t BgL_auxz00_3327; BgL_auxz00_3327 = BGl_nullzd2environmentzd2zz__evalz00 ((obj_t)((long)(((long)(((long) 5)) << 2) | 1))); BgL_test1398z00_750 = (BgL_genvz00_7 == BgL_auxz00_3327); } } else { BgL_test1398z00_750 = ( (bool_t) 0); } if (BgL_test1398z00_750) { return BGl_evcompilezd2errorzd2zz__evcompilez00 (BgL_locz00_10, BGl_string1929z00zz__evcompilez00, BGl_string1932z00zz__evcompilez00, BgL_expz00_5); } else { obj_t BgL_locz00_751; { bool_t BgL_test1103z00_1770; BgL_test1103z00_1770 = ( ((((long)BgL_expz00_5) & ((1 << 2) - 1)) == 3) && (((long)GC_size( ((obj_t)((long)BgL_expz00_5 | 3)) )) >= (sizeof( struct extended_pair ))) && ((((obj_t)((long)BgL_expz00_5 - 3))->extended_pair_t).eheader == (obj_t)((long)(((long)(21) << 2) | 1)) ) ); if (BgL_test1103z00_1770) { BgL_locz00_751 = ((((obj_t)((long)BgL_expz00_5 - 3))->extended_pair_t).cer); } else { BgL_locz00_751 = BgL_locz00_10; } } { obj_t BgL_arg1399z00_752; obj_t BgL_arg1401z00_753; BgL_arg1399z00_752 = BGl_untypezd2identzd2zz__evcompilez00 (BgL_varz00_437); { obj_t BgL_zc3anonymousza31404ze3z83_2974; { int BgL_auxz00_3339; int BgL_auxz00_3337; BgL_auxz00_3339 = (int) ( ((long) 5)); BgL_auxz00_3337 = (int) ( ((long) 0)); BgL_zc3anonymousza31404ze3z83_2974 = make_fx_procedure (BGl_zc3anonymousza31404ze3z83zz__evcompilez00, BgL_auxz00_3337, BgL_auxz00_3339); } { int BgL_auxz00_3342; BgL_auxz00_3342 = (int) ( ((long) 0)); (((&(((obj_t)(BgL_zc3anonymousza31404ze3z83_2974))->procedure_t.obj0)))[ BgL_auxz00_3342 ] = BgL_expz00_5, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { int BgL_auxz00_3345; BgL_auxz00_3345 = (int) ( ((long) 1)); (((&(((obj_t)(BgL_zc3anonymousza31404ze3z83_2974))->procedure_t.obj0)))[ BgL_auxz00_3345 ] = BgL_locz00_751, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { int BgL_auxz00_3348; BgL_auxz00_3348 = (int) ( ((long) 2)); (((&(((obj_t)(BgL_zc3anonymousza31404ze3z83_2974))->procedure_t.obj0)))[ BgL_auxz00_3348 ] = BgL_valz00_438, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { int BgL_auxz00_3351; BgL_auxz00_3351 = (int) ( ((long) 3)); (((&(((obj_t)(BgL_zc3anonymousza31404ze3z83_2974))->procedure_t.obj0)))[ BgL_auxz00_3351 ] = BgL_genvz00_7, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { int BgL_auxz00_3354; BgL_auxz00_3354 = (int) ( ((long) 4)); (((&(((obj_t)(BgL_zc3anonymousza31404ze3z83_2974))->procedure_t.obj0)))[ BgL_auxz00_3354 ] = BgL_varz00_437, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } BgL_arg1401z00_753 = BGl_makezd2promisezd2zz__r4_control_features_6_9z00 (BgL_zc3anonymousza31404ze3z83_2974); } { obj_t BgL_v1039z00_1781; { int BgL_auxz00_3358; BgL_auxz00_3358 = (int) ( ((long) 3)); BgL_v1039z00_1781 = create_vector (BgL_auxz00_3358); } { obj_t BgL_arg1531z00_1783; BgL_arg1531z00_1783 = make_pair( BgL_arg1399z00_752, BgL_arg1401z00_753 ); { int BgL_auxz00_3362; BgL_auxz00_3362 = (int) ( ((long) 2)); ((&(((obj_t)(BgL_v1039z00_1781))->vector_t.obj0))[ BgL_auxz00_3362 ] = BgL_arg1531z00_1783, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } } { int BgL_auxz00_3365; BgL_auxz00_3365 = (int) ( ((long) 1)); ((&(((obj_t)(BgL_v1039z00_1781))->vector_t.obj0))[ BgL_auxz00_3365 ] = BgL_locz00_751, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { obj_t BgL_auxz00_3370; int BgL_auxz00_3368; BgL_auxz00_3370 = (obj_t)((long)(((long)(((long) 17)) << 2) | 1)); BgL_auxz00_3368 = (int) ( ((long) 0)); ((&(((obj_t)(BgL_v1039z00_1781))->vector_t.obj0))[ BgL_auxz00_3368 ] = BgL_auxz00_3370, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } return BgL_v1039z00_1781; } } } } } else { obj_t BgL_carzd2990zd2_535; BgL_carzd2990zd2_535 = ((((obj_t)((long)BgL_expz00_5 - 3))->pair_t).car); if (((((long)BgL_carzd2990zd2_535) & ((1 << 2) - 1)) == 3)) { obj_t BgL_argsz00_3378; obj_t BgL_funz00_3377; BgL_funz00_3377 = BgL_carzd2990zd2_535; BgL_argsz00_3378 = ((((obj_t)((long)BgL_expz00_5 - 3))->pair_t).cdr); BgL_argsz00_457 = BgL_argsz00_3378; BgL_funz00_456 = BgL_funz00_3377; goto BgL_tagzd2115zd2_458; } else { obj_t BgL_argsz00_3381; obj_t BgL_funz00_3380; BgL_funz00_3380 = BgL_carzd2990zd2_535; BgL_argsz00_3381 = ((((obj_t)((long)BgL_expz00_5 - 3))->pair_t).cdr); BgL_argsz00_454 = BgL_argsz00_3381; BgL_funz00_453 = BgL_funz00_3380; goto BgL_tagzd2114zd2_455; } } } else { obj_t BgL_cdrzd21010zd2_542; BgL_cdrzd21010zd2_542 = ((((obj_t)((long)BgL_expz00_5 - 3))->pair_t).cdr); { obj_t BgL_cdrzd21015zd2_543; BgL_cdrzd21015zd2_543 = ((((obj_t)((long)BgL_cdrzd21010zd2_542 - 3))->pair_t).cdr); { obj_t BgL_carzd21019zd2_544; BgL_carzd21019zd2_544 = ((((obj_t)((long)BgL_cdrzd21015zd2_543 - 3))->pair_t).car); { obj_t BgL_cdrzd21023zd2_545; BgL_cdrzd21023zd2_545 = ((((obj_t)((long)BgL_carzd21019zd2_544 - 3))->pair_t).cdr); { bool_t BgL_testz00_3387; { obj_t BgL_auxz00_3388; BgL_auxz00_3388 = ((((obj_t)((long)BgL_carzd21019zd2_544 - 3))->pair_t).car); BgL_testz00_3387 = (BgL_auxz00_3388 == BGl_symbol1942z00zz__evcompilez00); } if (BgL_testz00_3387) { if (((((long)BgL_cdrzd21023zd2_545) & ((1 << 2) - 1)) == 3)) { obj_t BgL_carzd21025zd2_548; BgL_carzd21025zd2_548 = ((((obj_t)((long)BgL_cdrzd21023zd2_545 - 3))->pair_t).car); if (((((long)BgL_carzd21025zd2_548) & ((1 << 2) - 1)) == 3)) { bool_t BgL_testz00_3396; { obj_t BgL_auxz00_3397; BgL_auxz00_3397 = ((((obj_t)((long)BgL_carzd21025zd2_548 - 3))->pair_t).car); BgL_testz00_3396 = (BgL_auxz00_3397 == BGl_symbol1935z00zz__evcompilez00); } if (BgL_testz00_3396) { if (BGl_equalzf3zf3zz__r4_equivalence_6_2z00(((((obj_t)((long)BgL_cdrzd21023zd2_545 - 3))->pair_t).cdr), ((obj_t)(obj_t)((long)(((long)(0) << 2) | 2))))) { if (BGl_equalzf3zf3zz__r4_equivalence_6_2z00(((((obj_t)((long)BgL_cdrzd21015zd2_543 - 3))->pair_t).cdr), ((obj_t)(obj_t)((long)(((long)(0) << 2) | 2))))) { obj_t BgL_valz00_3408; obj_t BgL_varz00_3406; BgL_varz00_3406 = ((((obj_t)((long)BgL_cdrzd21010zd2_542 - 3))->pair_t).car); BgL_valz00_3408 = BgL_carzd21025zd2_548; BgL_valz00_438 = BgL_valz00_3408; BgL_varz00_437 = BgL_varz00_3406; goto BgL_tagzd2108zd2_439; } else { obj_t BgL_carzd21074zd2_554; BgL_carzd21074zd2_554 = ((((obj_t)((long)BgL_expz00_5 - 3))->pair_t).car); if (((((long)BgL_carzd21074zd2_554) & ((1 << 2) - 1)) == 3)) { obj_t BgL_argsz00_3413; obj_t BgL_funz00_3412; BgL_funz00_3412 = BgL_carzd21074zd2_554; BgL_argsz00_3413 = BgL_cdrzd21010zd2_542; BgL_argsz00_457 = BgL_argsz00_3413; BgL_funz00_456 = BgL_funz00_3412; goto BgL_tagzd2115zd2_458; } else { obj_t BgL_argsz00_3415; obj_t BgL_funz00_3414; BgL_funz00_3414 = BgL_carzd21074zd2_554; BgL_argsz00_3415 = BgL_cdrzd21010zd2_542; BgL_argsz00_454 = BgL_argsz00_3415; BgL_funz00_453 = BgL_funz00_3414; goto BgL_tagzd2114zd2_455; } } } else { obj_t BgL_cdrzd21107zd2_562; BgL_cdrzd21107zd2_562 = ((((obj_t)((long)BgL_cdrzd21010zd2_542 - 3))->pair_t).cdr); if (BGl_equalzf3zf3zz__r4_equivalence_6_2z00(((((obj_t)((long)BgL_cdrzd21107zd2_562 - 3))->pair_t).cdr), ((obj_t)(obj_t)((long)(((long)(0) << 2) | 2))))) { BgL_varz00_440 = ((((obj_t)((long)BgL_cdrzd21010zd2_542 - 3))->pair_t).car); BgL_valz00_441 = ((((obj_t)((long)BgL_cdrzd21107zd2_562 - 3))->pair_t).car); BgL_tagzd2109zd2_442: { bool_t BgL_test1411z00_763; if ((BgL_wherez00_8 == BGl_symbol1931z00zz__evcompilez00)) { bool_t BgL__ortest_1011z00_770; { obj_t BgL_auxz00_3422; BgL_auxz00_3422 = BGl_schemezd2reportzd2environmentz00zz__evalz00 ((obj_t)((long)(((long)(((long) 5)) << 2) | 1))); BgL__ortest_1011z00_770 = (BgL_genvz00_7 == BgL_auxz00_3422); } if (BgL__ortest_1011z00_770) { BgL_test1411z00_763 = BgL__ortest_1011z00_770; } else { obj_t BgL_auxz00_3427; BgL_auxz00_3427 = BGl_nullzd2environmentzd2zz__evalz00 ((obj_t)((long)(((long)(((long) 5)) << 2) | 1))); BgL_test1411z00_763 = (BgL_genvz00_7 == BgL_auxz00_3427); } } else { BgL_test1411z00_763 = ( (bool_t) 0); } if (BgL_test1411z00_763) { return BGl_evcompilezd2errorzd2zz__evcompilez00 (BgL_locz00_10, BGl_string1929z00zz__evcompilez00, BGl_string1932z00zz__evcompilez00, BgL_expz00_5); } else { obj_t BgL_locz00_764; { bool_t BgL_test1103z00_1795; BgL_test1103z00_1795 = ( ((((long)BgL_expz00_5) & ((1 << 2) - 1)) == 3) && (((long)GC_size( ((obj_t)((long)BgL_expz00_5 | 3)) )) >= (sizeof( struct extended_pair ))) && ((((obj_t)((long)BgL_expz00_5 - 3))->extended_pair_t).eheader == (obj_t)((long)(((long)(21) << 2) | 1)) ) ); if (BgL_test1103z00_1795) { BgL_locz00_764 = ((((obj_t)((long)BgL_expz00_5 - 3))->extended_pair_t).cer); } else { BgL_locz00_764 = BgL_locz00_10; } } { obj_t BgL_arg1413z00_765; obj_t BgL_arg1415z00_766; BgL_arg1413z00_765 = BGl_untypezd2identzd2zz__evcompilez00 (BgL_varz00_440); { obj_t BgL_arg1418z00_768; { bool_t BgL_test1103z00_1800; BgL_test1103z00_1800 = ( ((((long)BgL_valz00_441) & ((1 << 2) - 1)) == 3) && (((long)GC_size( ((obj_t)((long)BgL_valz00_441 | 3)) )) >= (sizeof( struct extended_pair ))) && ((((obj_t)((long)BgL_valz00_441 - 3))->extended_pair_t).eheader == (obj_t)((long)(((long)(21) << 2) | 1)) ) ); if (BgL_test1103z00_1800) { BgL_arg1418z00_768 = ((((obj_t)((long)BgL_valz00_441 - 3))->extended_pair_t).cer); } else { BgL_arg1418z00_768 = BgL_locz00_764; } } BgL_arg1415z00_766 = BGl_evcompilez00zz__evcompilez00 (BgL_valz00_441, ((obj_t)(obj_t)((long)(((long)(0) << 2) | 2))), BgL_genvz00_7, BgL_wherez00_8, BgL_namedzf3zf3_9, BgL_arg1418z00_768); } { obj_t BgL_v1040z00_1806; { int BgL_auxz00_3441; BgL_auxz00_3441 = (int) ( ((long) 3)); BgL_v1040z00_1806 = create_vector (BgL_auxz00_3441); } { obj_t BgL_arg1533z00_1808; BgL_arg1533z00_1808 = make_pair( BgL_arg1413z00_765, BgL_arg1415z00_766 ); { int BgL_auxz00_3445; BgL_auxz00_3445 = (int) ( ((long) 2)); ((&(((obj_t)(BgL_v1040z00_1806))->vector_t.obj0))[ BgL_auxz00_3445 ] = BgL_arg1533z00_1808, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } } { int BgL_auxz00_3448; BgL_auxz00_3448 = (int) ( ((long) 1)); ((&(((obj_t)(BgL_v1040z00_1806))->vector_t.obj0))[ BgL_auxz00_3448 ] = BgL_locz00_764, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { obj_t BgL_auxz00_3453; int BgL_auxz00_3451; BgL_auxz00_3453 = (obj_t)((long)(((long)(((long) 63)) << 2) | 1)); BgL_auxz00_3451 = (int) ( ((long) 0)); ((&(((obj_t)(BgL_v1040z00_1806))->vector_t.obj0))[ BgL_auxz00_3451 ] = BgL_auxz00_3453, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } return BgL_v1040z00_1806; } } } } } else { obj_t BgL_carzd21145zd2_566; BgL_carzd21145zd2_566 = ((((obj_t)((long)BgL_expz00_5 - 3))->pair_t).car); if (((((long)BgL_carzd21145zd2_566) & ((1 << 2) - 1)) == 3)) { obj_t BgL_argsz00_3462; obj_t BgL_funz00_3461; BgL_funz00_3461 = BgL_carzd21145zd2_566; BgL_argsz00_3462 = ((((obj_t)((long)BgL_expz00_5 - 3))->pair_t).cdr); BgL_argsz00_457 = BgL_argsz00_3462; BgL_funz00_456 = BgL_funz00_3461; goto BgL_tagzd2115zd2_458; } else { obj_t BgL_argsz00_3465; obj_t BgL_funz00_3464; BgL_funz00_3464 = BgL_carzd21145zd2_566; BgL_argsz00_3465 = ((((obj_t)((long)BgL_expz00_5 - 3))->pair_t).cdr); BgL_argsz00_454 = BgL_argsz00_3465; BgL_funz00_453 = BgL_funz00_3464; goto BgL_tagzd2114zd2_455; } } } } else { obj_t BgL_cdrzd21178zd2_576; BgL_cdrzd21178zd2_576 = ((((obj_t)((long)BgL_cdrzd21010zd2_542 - 3))->pair_t).cdr); if (BGl_equalzf3zf3zz__r4_equivalence_6_2z00(((((obj_t)((long)BgL_cdrzd21178zd2_576 - 3))->pair_t).cdr), ((obj_t)(obj_t)((long)(((long)(0) << 2) | 2))))) { obj_t BgL_valz00_3473; obj_t BgL_varz00_3471; BgL_varz00_3471 = ((((obj_t)((long)BgL_cdrzd21010zd2_542 - 3))->pair_t).car); BgL_valz00_3473 = ((((obj_t)((long)BgL_cdrzd21178zd2_576 - 3))->pair_t).car); BgL_valz00_441 = BgL_valz00_3473; BgL_varz00_440 = BgL_varz00_3471; goto BgL_tagzd2109zd2_442; } else { obj_t BgL_carzd21216zd2_580; BgL_carzd21216zd2_580 = ((((obj_t)((long)BgL_expz00_5 - 3))->pair_t).car); if (((((long)BgL_carzd21216zd2_580) & ((1 << 2) - 1)) == 3)) { obj_t BgL_argsz00_3479; obj_t BgL_funz00_3478; BgL_funz00_3478 = BgL_carzd21216zd2_580; BgL_argsz00_3479 = ((((obj_t)((long)BgL_expz00_5 - 3))->pair_t).cdr); BgL_argsz00_457 = BgL_argsz00_3479; BgL_funz00_456 = BgL_funz00_3478; goto BgL_tagzd2115zd2_458; } else { obj_t BgL_argsz00_3482; obj_t BgL_funz00_3481; BgL_funz00_3481 = BgL_carzd21216zd2_580; BgL_argsz00_3482 = ((((obj_t)((long)BgL_expz00_5 - 3))->pair_t).cdr); BgL_argsz00_454 = BgL_argsz00_3482; BgL_funz00_453 = BgL_funz00_3481; goto BgL_tagzd2114zd2_455; } } } } else { obj_t BgL_cdrzd21249zd2_590; BgL_cdrzd21249zd2_590 = ((((obj_t)((long)BgL_cdrzd21010zd2_542 - 3))->pair_t).cdr); if (BGl_equalzf3zf3zz__r4_equivalence_6_2z00(((((obj_t)((long)BgL_cdrzd21249zd2_590 - 3))->pair_t).cdr), ((obj_t)(obj_t)((long)(((long)(0) << 2) | 2))))) { obj_t BgL_valz00_3490; obj_t BgL_varz00_3488; BgL_varz00_3488 = ((((obj_t)((long)BgL_cdrzd21010zd2_542 - 3))->pair_t).car); BgL_valz00_3490 = ((((obj_t)((long)BgL_cdrzd21249zd2_590 - 3))->pair_t).car); BgL_valz00_441 = BgL_valz00_3490; BgL_varz00_440 = BgL_varz00_3488; goto BgL_tagzd2109zd2_442; } else { obj_t BgL_carzd21287zd2_594; BgL_carzd21287zd2_594 = ((((obj_t)((long)BgL_expz00_5 - 3))->pair_t).car); if (((((long)BgL_carzd21287zd2_594) & ((1 << 2) - 1)) == 3)) { obj_t BgL_argsz00_3496; obj_t BgL_funz00_3495; BgL_funz00_3495 = BgL_carzd21287zd2_594; BgL_argsz00_3496 = ((((obj_t)((long)BgL_expz00_5 - 3))->pair_t).cdr); BgL_argsz00_457 = BgL_argsz00_3496; BgL_funz00_456 = BgL_funz00_3495; goto BgL_tagzd2115zd2_458; } else { obj_t BgL_argsz00_3499; obj_t BgL_funz00_3498; BgL_funz00_3498 = BgL_carzd21287zd2_594; BgL_argsz00_3499 = ((((obj_t)((long)BgL_expz00_5 - 3))->pair_t).cdr); BgL_argsz00_454 = BgL_argsz00_3499; BgL_funz00_453 = BgL_funz00_3498; goto BgL_tagzd2114zd2_455; } } } } else { obj_t BgL_cdrzd21320zd2_602; BgL_cdrzd21320zd2_602 = ((((obj_t)((long)BgL_cdrzd21010zd2_542 - 3))->pair_t).cdr); if (BGl_equalzf3zf3zz__r4_equivalence_6_2z00(((((obj_t)((long)BgL_cdrzd21320zd2_602 - 3))->pair_t).cdr), ((obj_t)(obj_t)((long)(((long)(0) << 2) | 2))))) { obj_t BgL_valz00_3507; obj_t BgL_varz00_3505; BgL_varz00_3505 = ((((obj_t)((long)BgL_cdrzd21010zd2_542 - 3))->pair_t).car); BgL_valz00_3507 = ((((obj_t)((long)BgL_cdrzd21320zd2_602 - 3))->pair_t).car); BgL_valz00_441 = BgL_valz00_3507; BgL_varz00_440 = BgL_varz00_3505; goto BgL_tagzd2109zd2_442; } else { obj_t BgL_carzd21358zd2_606; BgL_carzd21358zd2_606 = ((((obj_t)((long)BgL_expz00_5 - 3))->pair_t).car); if (((((long)BgL_carzd21358zd2_606) & ((1 << 2) - 1)) == 3)) { obj_t BgL_argsz00_3513; obj_t BgL_funz00_3512; BgL_funz00_3512 = BgL_carzd21358zd2_606; BgL_argsz00_3513 = ((((obj_t)((long)BgL_expz00_5 - 3))->pair_t).cdr); BgL_argsz00_457 = BgL_argsz00_3513; BgL_funz00_456 = BgL_funz00_3512; goto BgL_tagzd2115zd2_458; } else { obj_t BgL_argsz00_3516; obj_t BgL_funz00_3515; BgL_funz00_3515 = BgL_carzd21358zd2_606; BgL_argsz00_3516 = ((((obj_t)((long)BgL_expz00_5 - 3))->pair_t).cdr); BgL_argsz00_454 = BgL_argsz00_3516; BgL_funz00_453 = BgL_funz00_3515; goto BgL_tagzd2114zd2_455; } } } } else { obj_t BgL_cdrzd21391zd2_614; BgL_cdrzd21391zd2_614 = ((((obj_t)((long)BgL_cdrzd21010zd2_542 - 3))->pair_t).cdr); if (BGl_equalzf3zf3zz__r4_equivalence_6_2z00(((((obj_t)((long)BgL_cdrzd21391zd2_614 - 3))->pair_t).cdr), ((obj_t)(obj_t)((long)(((long)(0) << 2) | 2))))) { obj_t BgL_valz00_3524; obj_t BgL_varz00_3522; BgL_varz00_3522 = ((((obj_t)((long)BgL_cdrzd21010zd2_542 - 3))->pair_t).car); BgL_valz00_3524 = ((((obj_t)((long)BgL_cdrzd21391zd2_614 - 3))->pair_t).car); BgL_valz00_441 = BgL_valz00_3524; BgL_varz00_440 = BgL_varz00_3522; goto BgL_tagzd2109zd2_442; } else { obj_t BgL_carzd21429zd2_618; BgL_carzd21429zd2_618 = ((((obj_t)((long)BgL_expz00_5 - 3))->pair_t).car); if (((((long)BgL_carzd21429zd2_618) & ((1 << 2) - 1)) == 3)) { obj_t BgL_argsz00_3530; obj_t BgL_funz00_3529; BgL_funz00_3529 = BgL_carzd21429zd2_618; BgL_argsz00_3530 = ((((obj_t)((long)BgL_expz00_5 - 3))->pair_t).cdr); BgL_argsz00_457 = BgL_argsz00_3530; BgL_funz00_456 = BgL_funz00_3529; goto BgL_tagzd2115zd2_458; } else { obj_t BgL_argsz00_3533; obj_t BgL_funz00_3532; BgL_funz00_3532 = BgL_carzd21429zd2_618; BgL_argsz00_3533 = ((((obj_t)((long)BgL_expz00_5 - 3))->pair_t).cdr); BgL_argsz00_454 = BgL_argsz00_3533; BgL_funz00_453 = BgL_funz00_3532; goto BgL_tagzd2114zd2_455; } } } } } } } } } else { obj_t BgL_cdrzd21460zd2_629; BgL_cdrzd21460zd2_629 = ((((obj_t)((long)BgL_expz00_5 - 3))->pair_t).cdr); { obj_t BgL_cdrzd21465zd2_630; BgL_cdrzd21465zd2_630 = ((((obj_t)((long)BgL_cdrzd21460zd2_629 - 3))->pair_t).cdr); if (BGl_equalzf3zf3zz__r4_equivalence_6_2z00(((((obj_t)((long)BgL_cdrzd21465zd2_630 - 3))->pair_t).cdr), ((obj_t)(obj_t)((long)(((long)(0) << 2) | 2))))) { obj_t BgL_valz00_3542; obj_t BgL_varz00_3540; BgL_varz00_3540 = ((((obj_t)((long)BgL_cdrzd21460zd2_629 - 3))->pair_t).car); BgL_valz00_3542 = ((((obj_t)((long)BgL_cdrzd21465zd2_630 - 3))->pair_t).car); BgL_valz00_441 = BgL_valz00_3542; BgL_varz00_440 = BgL_varz00_3540; goto BgL_tagzd2109zd2_442; } else { obj_t BgL_carzd21503zd2_634; BgL_carzd21503zd2_634 = ((((obj_t)((long)BgL_expz00_5 - 3))->pair_t).car); if (((((long)BgL_carzd21503zd2_634) & ((1 << 2) - 1)) == 3)) { obj_t BgL_argsz00_3548; obj_t BgL_funz00_3547; BgL_funz00_3547 = BgL_carzd21503zd2_634; BgL_argsz00_3548 = BgL_cdrzd21460zd2_629; BgL_argsz00_457 = BgL_argsz00_3548; BgL_funz00_456 = BgL_funz00_3547; goto BgL_tagzd2115zd2_458; } else { obj_t BgL_argsz00_3550; obj_t BgL_funz00_3549; BgL_funz00_3549 = BgL_carzd21503zd2_634; BgL_argsz00_3550 = BgL_cdrzd21460zd2_629; BgL_argsz00_454 = BgL_argsz00_3550; BgL_funz00_453 = BgL_funz00_3549; goto BgL_tagzd2114zd2_455; } } } } } else { obj_t BgL_carzd21564zd2_641; BgL_carzd21564zd2_641 = ((((obj_t)((long)BgL_expz00_5 - 3))->pair_t).car); if (((((long)BgL_carzd21564zd2_641) & ((1 << 2) - 1)) == 3)) { obj_t BgL_argsz00_3555; obj_t BgL_funz00_3554; BgL_funz00_3554 = BgL_carzd21564zd2_641; BgL_argsz00_3555 = ((((obj_t)((long)BgL_expz00_5 - 3))->pair_t).cdr); BgL_argsz00_457 = BgL_argsz00_3555; BgL_funz00_456 = BgL_funz00_3554; goto BgL_tagzd2115zd2_458; } else { obj_t BgL_argsz00_3558; obj_t BgL_funz00_3557; BgL_funz00_3557 = BgL_carzd21564zd2_641; BgL_argsz00_3558 = ((((obj_t)((long)BgL_expz00_5 - 3))->pair_t).cdr); BgL_argsz00_454 = BgL_argsz00_3558; BgL_funz00_453 = BgL_funz00_3557; goto BgL_tagzd2114zd2_455; } } } else { obj_t BgL_carzd21623zd2_646; BgL_carzd21623zd2_646 = ((((obj_t)((long)BgL_expz00_5 - 3))->pair_t).car); if (((((long)BgL_carzd21623zd2_646) & ((1 << 2) - 1)) == 3)) { obj_t BgL_argsz00_3564; obj_t BgL_funz00_3563; BgL_funz00_3563 = BgL_carzd21623zd2_646; BgL_argsz00_3564 = ((((obj_t)((long)BgL_expz00_5 - 3))->pair_t).cdr); BgL_argsz00_457 = BgL_argsz00_3564; BgL_funz00_456 = BgL_funz00_3563; goto BgL_tagzd2115zd2_458; } else { obj_t BgL_argsz00_3567; obj_t BgL_funz00_3566; BgL_funz00_3566 = BgL_carzd21623zd2_646; BgL_argsz00_3567 = ((((obj_t)((long)BgL_expz00_5 - 3))->pair_t).cdr); BgL_argsz00_454 = BgL_argsz00_3567; BgL_funz00_453 = BgL_funz00_3566; goto BgL_tagzd2114zd2_455; } } } else { bool_t BgL_testz00_3569; { obj_t BgL_auxz00_3570; BgL_auxz00_3570 = ((((obj_t)((long)BgL_expz00_5 - 3))->pair_t).car); BgL_testz00_3569 = (BgL_auxz00_3570 == BGl_symbol1944z00zz__evcompilez00); } if (BgL_testz00_3569) { if (((((long)BgL_expz00_5) & ((1 << 2) - 1)) == 3)) { obj_t BgL_cdrzd21954zd2_779; BgL_cdrzd21954zd2_779 = ((((obj_t)((long)BgL_expz00_5 - 3))->pair_t).cdr); if (((((long)BgL_cdrzd21954zd2_779) & ((1 << 2) - 1)) == 3)) { obj_t BgL_carzd21957zd2_781; obj_t BgL_cdrzd21958zd2_782; BgL_carzd21957zd2_781 = ((((obj_t)((long)BgL_cdrzd21954zd2_779 - 3))->pair_t).car); BgL_cdrzd21958zd2_782 = ((((obj_t)((long)BgL_cdrzd21954zd2_779 - 3))->pair_t).cdr); if (((((((long)BgL_carzd21957zd2_781) & ((1 << 2) - 1)) == 0) && BgL_carzd21957zd2_781) && ((long)((long)((long)((((obj_t)(BgL_carzd21957zd2_781))->header)) >> (3 + 4 + 1))) == 8))) { if (((((long)BgL_cdrzd21958zd2_782) & ((1 << 2) - 1)) == 3)) { if (BGl_equalzf3zf3zz__r4_equivalence_6_2z00(((((obj_t)((long)BgL_cdrzd21958zd2_782 - 3))->pair_t).cdr), ((obj_t)(obj_t)((long)(((long)(0) << 2) | 2))))) { obj_t BgL_arg1429z00_786; BgL_arg1429z00_786 = ((((obj_t)((long)BgL_cdrzd21958zd2_782 - 3))->pair_t).car); { obj_t BgL_locz00_1829; { bool_t BgL_test1103z00_1835; BgL_test1103z00_1835 = ( ((((long)BgL_expz00_5) & ((1 << 2) - 1)) == 3) && (((long)GC_size( ((obj_t)((long)BgL_expz00_5 | 3)) )) >= (sizeof( struct extended_pair ))) && ((((obj_t)((long)BgL_expz00_5 - 3))->extended_pair_t).eheader == (obj_t)((long)(((long)(21) << 2) | 1)) ) ); if (BgL_test1103z00_1835) { BgL_locz00_1829 = ((((obj_t)((long)BgL_expz00_5 - 3))->extended_pair_t).cer); } else { BgL_locz00_1829 = BgL_locz00_10; } } { obj_t BgL_arg1432z00_1830; obj_t BgL_arg1433z00_1831; BgL_arg1432z00_1830 = BGl_variablez00zz__evcompilez00 (BgL_locz00_1829, BgL_carzd21957zd2_781, BgL_envz00_6, BgL_genvz00_7); { obj_t BgL_arg1434z00_1832; { bool_t BgL_test1103z00_1840; BgL_test1103z00_1840 = ( ((((long)BgL_arg1429z00_786) & ((1 << 2) - 1)) == 3) && (((long)GC_size( ((obj_t)((long)BgL_arg1429z00_786 | 3)) )) >= (sizeof( struct extended_pair ))) && ((((obj_t)((long)BgL_arg1429z00_786 - 3))->extended_pair_t).eheader == (obj_t)((long)(((long)(21) << 2) | 1)) ) ); if (BgL_test1103z00_1840) { BgL_arg1434z00_1832 = ((((obj_t)((long)BgL_arg1429z00_786 - 3))->extended_pair_t).cer); } else { BgL_arg1434z00_1832 = BgL_locz00_1829; } } BgL_arg1433z00_1831 = BGl_evcompilez00zz__evcompilez00 (BgL_arg1429z00_786, BgL_envz00_6, BgL_genvz00_7, BgL_carzd21957zd2_781, ((obj_t)(obj_t)((long)(((long)(2) << 2) | 2))), BgL_arg1434z00_1832); } return BGl_evcompilezd2setzd2zz__evcompilez00 (BgL_arg1432z00_1830, BgL_arg1433z00_1831, BgL_locz00_1829); } } } else { bigloo_exit( (obj_t)((long)(((long)(bigloo_abort( (long)((long)((long)(the_failure( BGl_string1933z00zz__evcompilez00, BGl_string1934z00zz__evcompilez00, BgL_expz00_5 )) >> 2)) )) << 2) | 1)) ); } } else { bigloo_exit( (obj_t)((long)(((long)(bigloo_abort( (long)((long)((long)(the_failure( BGl_string1933z00zz__evcompilez00, BGl_string1934z00zz__evcompilez00, BgL_expz00_5 )) >> 2)) )) << 2) | 1)) ); } } else { bigloo_exit( (obj_t)((long)(((long)(bigloo_abort( (long)((long)((long)(the_failure( BGl_string1933z00zz__evcompilez00, BGl_string1934z00zz__evcompilez00, BgL_expz00_5 )) >> 2)) )) << 2) | 1)) ); } } else { bigloo_exit( (obj_t)((long)(((long)(bigloo_abort( (long)((long)((long)(the_failure( BGl_string1933z00zz__evcompilez00, BGl_string1934z00zz__evcompilez00, BgL_expz00_5 )) >> 2)) )) << 2) | 1)) ); } } else { bigloo_exit( (obj_t)((long)(((long)(bigloo_abort( (long)((long)((long)(the_failure( BGl_string1933z00zz__evcompilez00, BGl_string1934z00zz__evcompilez00, BgL_expz00_5 )) >> 2)) )) << 2) | 1)) ); } } else { obj_t BgL_cdrzd21668zd2_652; BgL_cdrzd21668zd2_652 = ((((obj_t)((long)BgL_expz00_5 - 3))->pair_t).cdr); { bool_t BgL_testz00_3603; { obj_t BgL_auxz00_3604; BgL_auxz00_3604 = ((((obj_t)((long)BgL_expz00_5 - 3))->pair_t).car); BgL_testz00_3603 = (BgL_auxz00_3604 == BGl_symbol1945z00zz__evcompilez00); } if (BgL_testz00_3603) { if (((((long)BgL_cdrzd21668zd2_652) & ((1 << 2) - 1)) == 3)) { obj_t BgL_cdrzd21672zd2_655; BgL_cdrzd21672zd2_655 = ((((obj_t)((long)BgL_cdrzd21668zd2_652 - 3))->pair_t).cdr); if (((((long)BgL_cdrzd21672zd2_655) & ((1 << 2) - 1)) == 3)) { if (BGl_equalzf3zf3zz__r4_equivalence_6_2z00(((((obj_t)((long)BgL_cdrzd21672zd2_655 - 3))->pair_t).cdr), ((obj_t)(obj_t)((long)(((long)(0) << 2) | 2))))) { BgL_escapez00_444 = ((((obj_t)((long)BgL_cdrzd21668zd2_652 - 3))->pair_t).car); BgL_bodyz00_445 = ((((obj_t)((long)BgL_cdrzd21672zd2_655 - 3))->pair_t).car); { obj_t BgL_locz00_793; { bool_t BgL_test1103z00_1877; BgL_test1103z00_1877 = ( ((((long)BgL_expz00_5) & ((1 << 2) - 1)) == 3) && (((long)GC_size( ((obj_t)((long)BgL_expz00_5 | 3)) )) >= (sizeof( struct extended_pair ))) && ((((obj_t)((long)BgL_expz00_5 - 3))->extended_pair_t).eheader == (obj_t)((long)(((long)(21) << 2) | 1)) ) ); if (BgL_test1103z00_1877) { BgL_locz00_793 = ((((obj_t)((long)BgL_expz00_5 - 3))->extended_pair_t).cer); } else { BgL_locz00_793 = BgL_locz00_10; } } { obj_t BgL_arg1435z00_794; { obj_t BgL_arg1436z00_795; obj_t BgL_arg1437z00_796; { obj_t BgL_arg1439z00_797; obj_t BgL_arg1440z00_798; BgL_arg1439z00_797 = BGl_symbol1935z00zz__evcompilez00; { obj_t BgL_arg1441z00_799; BgL_arg1441z00_799 = make_pair( BgL_bodyz00_445, ((obj_t)(obj_t)((long)(((long)(0) << 2) | 2))) ); BgL_arg1440z00_798 = make_pair( BgL_escapez00_444, BgL_arg1441z00_799 ); } BgL_arg1436z00_795 = make_pair( BgL_arg1439z00_797, BgL_arg1440z00_798 ); } { bool_t BgL_test1103z00_1882; BgL_test1103z00_1882 = ( ((((long)BgL_bodyz00_445) & ((1 << 2) - 1)) == 3) && (((long)GC_size( ((obj_t)((long)BgL_bodyz00_445 | 3)) )) >= (sizeof( struct extended_pair ))) && ((((obj_t)((long)BgL_bodyz00_445 - 3))->extended_pair_t).eheader == (obj_t)((long)(((long)(21) << 2) | 1)) ) ); if (BgL_test1103z00_1882) { BgL_arg1437z00_796 = ((((obj_t)((long)BgL_bodyz00_445 - 3))->extended_pair_t).cer); } else { BgL_arg1437z00_796 = BgL_locz00_793; } } BgL_arg1435z00_794 = BGl_evcompilez00zz__evcompilez00 (BgL_arg1436z00_795, BgL_envz00_6, BgL_genvz00_7, BgL_escapez00_444, ((obj_t)(obj_t)((long)(((long)(2) << 2) | 2))), BgL_arg1437z00_796); } { obj_t BgL_v1041z00_1887; { int BgL_auxz00_3625; BgL_auxz00_3625 = (int) ( ((long) 3)); BgL_v1041z00_1887 = create_vector (BgL_auxz00_3625); } { int BgL_auxz00_3628; BgL_auxz00_3628 = (int) ( ((long) 2)); ((&(((obj_t)(BgL_v1041z00_1887))->vector_t.obj0))[ BgL_auxz00_3628 ] = BgL_arg1435z00_794, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { int BgL_auxz00_3631; BgL_auxz00_3631 = (int) ( ((long) 1)); ((&(((obj_t)(BgL_v1041z00_1887))->vector_t.obj0))[ BgL_auxz00_3631 ] = BgL_locz00_793, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { obj_t BgL_auxz00_3636; int BgL_auxz00_3634; BgL_auxz00_3636 = (obj_t)((long)(((long)(((long) 18)) << 2) | 1)); BgL_auxz00_3634 = (int) ( ((long) 0)); ((&(((obj_t)(BgL_v1041z00_1887))->vector_t.obj0))[ BgL_auxz00_3634 ] = BgL_auxz00_3636, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } return BgL_v1041z00_1887; } } } } else { obj_t BgL_carzd21695zd2_660; BgL_carzd21695zd2_660 = ((((obj_t)((long)BgL_expz00_5 - 3))->pair_t).car); if (((((long)BgL_carzd21695zd2_660) & ((1 << 2) - 1)) == 3)) { obj_t BgL_argsz00_3645; obj_t BgL_funz00_3644; BgL_funz00_3644 = BgL_carzd21695zd2_660; BgL_argsz00_3645 = BgL_cdrzd21668zd2_652; BgL_argsz00_457 = BgL_argsz00_3645; BgL_funz00_456 = BgL_funz00_3644; goto BgL_tagzd2115zd2_458; } else { obj_t BgL_argsz00_3647; obj_t BgL_funz00_3646; BgL_funz00_3646 = BgL_carzd21695zd2_660; BgL_argsz00_3647 = BgL_cdrzd21668zd2_652; BgL_argsz00_454 = BgL_argsz00_3647; BgL_funz00_453 = BgL_funz00_3646; goto BgL_tagzd2114zd2_455; } } } else { obj_t BgL_carzd21728zd2_667; BgL_carzd21728zd2_667 = ((((obj_t)((long)BgL_expz00_5 - 3))->pair_t).car); if (((((long)BgL_carzd21728zd2_667) & ((1 << 2) - 1)) == 3)) { obj_t BgL_argsz00_3652; obj_t BgL_funz00_3651; BgL_funz00_3651 = BgL_carzd21728zd2_667; BgL_argsz00_3652 = BgL_cdrzd21668zd2_652; BgL_argsz00_457 = BgL_argsz00_3652; BgL_funz00_456 = BgL_funz00_3651; goto BgL_tagzd2115zd2_458; } else { obj_t BgL_argsz00_3654; obj_t BgL_funz00_3653; BgL_funz00_3653 = BgL_carzd21728zd2_667; BgL_argsz00_3654 = BgL_cdrzd21668zd2_652; BgL_argsz00_454 = BgL_argsz00_3654; BgL_funz00_453 = BgL_funz00_3653; goto BgL_tagzd2114zd2_455; } } } else { obj_t BgL_carzd21761zd2_672; BgL_carzd21761zd2_672 = ((((obj_t)((long)BgL_expz00_5 - 3))->pair_t).car); if (((((long)BgL_carzd21761zd2_672) & ((1 << 2) - 1)) == 3)) { obj_t BgL_argsz00_3659; obj_t BgL_funz00_3658; BgL_funz00_3658 = BgL_carzd21761zd2_672; BgL_argsz00_3659 = BgL_cdrzd21668zd2_652; BgL_argsz00_457 = BgL_argsz00_3659; BgL_funz00_456 = BgL_funz00_3658; goto BgL_tagzd2115zd2_458; } else { obj_t BgL_argsz00_3661; obj_t BgL_funz00_3660; BgL_funz00_3660 = BgL_carzd21761zd2_672; BgL_argsz00_3661 = BgL_cdrzd21668zd2_652; BgL_argsz00_454 = BgL_argsz00_3661; BgL_funz00_453 = BgL_funz00_3660; goto BgL_tagzd2114zd2_455; } } } else { bool_t BgL_testz00_3662; { obj_t BgL_auxz00_3663; BgL_auxz00_3663 = ((((obj_t)((long)BgL_expz00_5 - 3))->pair_t).car); BgL_testz00_3662 = (BgL_auxz00_3663 == BGl_symbol1946z00zz__evcompilez00); } if (BgL_testz00_3662) { if (((((long)BgL_cdrzd21668zd2_652) & ((1 << 2) - 1)) == 3)) { BgL_bodyz00_447 = ((((obj_t)((long)BgL_cdrzd21668zd2_652 - 3))->pair_t).car); BgL_protectz00_448 = ((((obj_t)((long)BgL_cdrzd21668zd2_652 - 3))->pair_t).cdr); { obj_t BgL_locz00_800; { bool_t BgL_test1103z00_1899; BgL_test1103z00_1899 = ( ((((long)BgL_expz00_5) & ((1 << 2) - 1)) == 3) && (((long)GC_size( ((obj_t)((long)BgL_expz00_5 | 3)) )) >= (sizeof( struct extended_pair ))) && ((((obj_t)((long)BgL_expz00_5 - 3))->extended_pair_t).eheader == (obj_t)((long)(((long)(21) << 2) | 1)) ) ); if (BgL_test1103z00_1899) { BgL_locz00_800 = ((((obj_t)((long)BgL_expz00_5 - 3))->extended_pair_t).cer); } else { BgL_locz00_800 = BgL_locz00_10; } } { obj_t BgL_arg1442z00_801; obj_t BgL_arg1444z00_802; { obj_t BgL_arg1445z00_803; { bool_t BgL_test1103z00_1904; BgL_test1103z00_1904 = ( ((((long)BgL_bodyz00_447) & ((1 << 2) - 1)) == 3) && (((long)GC_size( ((obj_t)((long)BgL_bodyz00_447 | 3)) )) >= (sizeof( struct extended_pair ))) && ((((obj_t)((long)BgL_bodyz00_447 - 3))->extended_pair_t).eheader == (obj_t)((long)(((long)(21) << 2) | 1)) ) ); if (BgL_test1103z00_1904) { BgL_arg1445z00_803 = ((((obj_t)((long)BgL_bodyz00_447 - 3))->extended_pair_t).cer); } else { BgL_arg1445z00_803 = BgL_locz00_800; } } BgL_arg1442z00_801 = BGl_evcompilez00zz__evcompilez00 (BgL_bodyz00_447, BgL_envz00_6, BgL_genvz00_7, BgL_wherez00_8, BgL_namedzf3zf3_9, BgL_arg1445z00_803); } { obj_t BgL_arg1446z00_804; { bool_t BgL_test1103z00_1909; BgL_test1103z00_1909 = ( ((((long)BgL_protectz00_448) & ((1 << 2) - 1)) == 3) && (((long)GC_size( ((obj_t)((long)BgL_protectz00_448 | 3)) )) >= (sizeof( struct extended_pair ))) && ((((obj_t)((long)BgL_protectz00_448 - 3))->extended_pair_t).eheader == (obj_t)((long)(((long)(21) << 2) | 1)) ) ); if (BgL_test1103z00_1909) { BgL_arg1446z00_804 = ((((obj_t)((long)BgL_protectz00_448 - 3))->extended_pair_t).cer); } else { BgL_arg1446z00_804 = BgL_locz00_800; } } BgL_arg1444z00_802 = BGl_evcompilezd2beginzd2zz__evcompilez00 (BgL_protectz00_448, BgL_envz00_6, BgL_genvz00_7, BgL_wherez00_8, BgL_namedzf3zf3_9, BgL_arg1446z00_804); } { obj_t BgL_v1042z00_1915; { int BgL_auxz00_3679; BgL_auxz00_3679 = (int) ( ((long) 3)); BgL_v1042z00_1915 = create_vector (BgL_auxz00_3679); } { obj_t BgL_arg1535z00_1917; BgL_arg1535z00_1917 = make_pair( BgL_arg1442z00_801, BgL_arg1444z00_802 ); { int BgL_auxz00_3683; BgL_auxz00_3683 = (int) ( ((long) 2)); ((&(((obj_t)(BgL_v1042z00_1915))->vector_t.obj0))[ BgL_auxz00_3683 ] = BgL_arg1535z00_1917, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } } { int BgL_auxz00_3686; BgL_auxz00_3686 = (int) ( ((long) 1)); ((&(((obj_t)(BgL_v1042z00_1915))->vector_t.obj0))[ BgL_auxz00_3686 ] = BgL_locz00_800, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { obj_t BgL_auxz00_3691; int BgL_auxz00_3689; BgL_auxz00_3691 = (obj_t)((long)(((long)(((long) 64)) << 2) | 1)); BgL_auxz00_3689 = (int) ( ((long) 0)); ((&(((obj_t)(BgL_v1042z00_1915))->vector_t.obj0))[ BgL_auxz00_3689 ] = BgL_auxz00_3691, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } return BgL_v1042z00_1915; } } } } else { obj_t BgL_carzd21802zd2_682; BgL_carzd21802zd2_682 = ((((obj_t)((long)BgL_expz00_5 - 3))->pair_t).car); if (((((long)BgL_carzd21802zd2_682) & ((1 << 2) - 1)) == 3)) { obj_t BgL_argsz00_3700; obj_t BgL_funz00_3699; BgL_funz00_3699 = BgL_carzd21802zd2_682; BgL_argsz00_3700 = ((((obj_t)((long)BgL_expz00_5 - 3))->pair_t).cdr); BgL_argsz00_457 = BgL_argsz00_3700; BgL_funz00_456 = BgL_funz00_3699; goto BgL_tagzd2115zd2_458; } else { obj_t BgL_argsz00_3703; obj_t BgL_funz00_3702; BgL_funz00_3702 = BgL_carzd21802zd2_682; BgL_argsz00_3703 = ((((obj_t)((long)BgL_expz00_5 - 3))->pair_t).cdr); BgL_argsz00_454 = BgL_argsz00_3703; BgL_funz00_453 = BgL_funz00_3702; goto BgL_tagzd2114zd2_455; } } } else { obj_t BgL_cdrzd21825zd2_687; BgL_cdrzd21825zd2_687 = ((((obj_t)((long)BgL_expz00_5 - 3))->pair_t).cdr); { bool_t BgL_testz00_3706; { obj_t BgL_auxz00_3707; BgL_auxz00_3707 = ((((obj_t)((long)BgL_expz00_5 - 3))->pair_t).car); BgL_testz00_3706 = (BgL_auxz00_3707 == BGl_symbol1935z00zz__evcompilez00); } if (BgL_testz00_3706) { if (((((long)BgL_cdrzd21825zd2_687) & ((1 << 2) - 1)) == 3)) { obj_t BgL_cdrzd21829zd2_690; BgL_cdrzd21829zd2_690 = ((((obj_t)((long)BgL_cdrzd21825zd2_687 - 3))->pair_t).cdr); if (((((long)BgL_cdrzd21829zd2_690) & ((1 << 2) - 1)) == 3)) { if (BGl_equalzf3zf3zz__r4_equivalence_6_2z00(((((obj_t)((long)BgL_cdrzd21829zd2_690 - 3))->pair_t).cdr), ((obj_t)(obj_t)((long)(((long)(0) << 2) | 2))))) { BgL_formalsz00_450 = ((((obj_t)((long)BgL_cdrzd21825zd2_687 - 3))->pair_t).car); BgL_bodyz00_451 = ((((obj_t)((long)BgL_cdrzd21829zd2_690 - 3))->pair_t).car); { obj_t BgL_locz00_805; { bool_t BgL_test1103z00_1929; BgL_test1103z00_1929 = ( ((((long)BgL_expz00_5) & ((1 << 2) - 1)) == 3) && (((long)GC_size( ((obj_t)((long)BgL_expz00_5 | 3)) )) >= (sizeof( struct extended_pair ))) && ((((obj_t)((long)BgL_expz00_5 - 3))->extended_pair_t).eheader == (obj_t)((long)(((long)(21) << 2) | 1)) ) ); if (BgL_test1103z00_1929) { BgL_locz00_805 = ((((obj_t)((long)BgL_expz00_5 - 3))->extended_pair_t).cer); } else { BgL_locz00_805 = BgL_locz00_10; } } { obj_t BgL_scmzd2formalszd2_806; { obj_t BgL_zc3anonymousza31455ze3z83_2973; { int BgL_auxz00_3723; int BgL_auxz00_3721; BgL_auxz00_3723 = (int) ( ((long) 1)); BgL_auxz00_3721 = (int) ( ((long) 3)); BgL_zc3anonymousza31455ze3z83_2973 = make_fx_procedure (BGl_zc3anonymousza31455ze3z83zz__evcompilez00, BgL_auxz00_3721, BgL_auxz00_3723); } { int BgL_auxz00_3726; BgL_auxz00_3726 = (int) ( ((long) 0)); (((&(((obj_t)(BgL_zc3anonymousza31455ze3z83_2973))->procedure_t.obj0)))[ BgL_auxz00_3726 ] = BgL_locz00_805, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } BgL_scmzd2formalszd2_806 = BGl_dssslzd2formalszd2ze3schemezd2formalsz31zz__dssslz00 (BgL_formalsz00_450, BgL_zc3anonymousza31455ze3z83_2973); } { obj_t BgL_untypedzd2scmzd2formalsz00_807; BgL_untypedzd2scmzd2formalsz00_807 = BGl_untypezd2identza2z70zz__evcompilez00 (BgL_scmzd2formalszd2_806); { { obj_t BgL_arg1447z00_808; { obj_t BgL_arg1448z00_809; obj_t BgL_arg1449z00_810; obj_t BgL_arg1450z00_811; { obj_t BgL_arg1451z00_812; { obj_t BgL_zc3anonymousza31453ze3z83_2972; { int BgL_auxz00_3733; int BgL_auxz00_3731; BgL_auxz00_3733 = (int) ( ((long) 1)); BgL_auxz00_3731 = (int) ( ((long) 3)); BgL_zc3anonymousza31453ze3z83_2972 = make_fx_procedure (BGl_zc3anonymousza31453ze3z83zz__evcompilez00, BgL_auxz00_3731, BgL_auxz00_3733); } { int BgL_auxz00_3736; BgL_auxz00_3736 = (int) ( ((long) 0)); (((&(((obj_t)(BgL_zc3anonymousza31453ze3z83_2972))->procedure_t.obj0)))[ BgL_auxz00_3736 ] = BgL_locz00_805, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } BgL_arg1451z00_812 = BGl_makezd2dssslzd2functionzd2preludezd2zz__dssslz00 (BgL_expz00_5, BgL_formalsz00_450, BgL_bodyz00_451, BgL_zc3anonymousza31453ze3z83_2972); } BgL_arg1448z00_809 = BGl_expandz00zz__expandz00 (BgL_arg1451z00_812); } BgL_arg1449z00_810 = BGl__loop_z00zz__evcompilez00 (BgL_envz00_6, BgL_untypedzd2scmzd2formalsz00_807); { bool_t BgL_test1103z00_1934; BgL_test1103z00_1934 = ( ((((long)BgL_bodyz00_451) & ((1 << 2) - 1)) == 3) && (((long)GC_size( ((obj_t)((long)BgL_bodyz00_451 | 3)) )) >= (sizeof( struct extended_pair ))) && ((((obj_t)((long)BgL_bodyz00_451 - 3))->extended_pair_t).eheader == (obj_t)((long)(((long)(21) << 2) | 1)) ) ); if (BgL_test1103z00_1934) { BgL_arg1450z00_811 = ((((obj_t)((long)BgL_bodyz00_451 - 3))->extended_pair_t).cer); } else { BgL_arg1450z00_811 = BgL_locz00_805; } } BgL_arg1447z00_808 = BGl_evcompilez00zz__evcompilez00 (BgL_arg1448z00_809, BgL_arg1449z00_810, BgL_genvz00_7, BgL_wherez00_8, ((obj_t)(obj_t)((long)(((long)(1) << 2) | 2))), BgL_arg1450z00_811); } return BGl_evcompilezd2lambdazd2zz__evcompilez00 (BgL_untypedzd2scmzd2formalsz00_807, BgL_arg1447z00_808, BgL_wherez00_8, BgL_namedzf3zf3_9, BgL_locz00_805); } } } } } } else { obj_t BgL_carzd21839zd2_695; BgL_carzd21839zd2_695 = ((((obj_t)((long)BgL_expz00_5 - 3))->pair_t).car); if (((((long)BgL_carzd21839zd2_695) & ((1 << 2) - 1)) == 3)) { obj_t BgL_argsz00_3753; obj_t BgL_funz00_3752; BgL_funz00_3752 = BgL_carzd21839zd2_695; BgL_argsz00_3753 = BgL_cdrzd21825zd2_687; BgL_argsz00_457 = BgL_argsz00_3753; BgL_funz00_456 = BgL_funz00_3752; goto BgL_tagzd2115zd2_458; } else { obj_t BgL_argsz00_3755; obj_t BgL_funz00_3754; BgL_funz00_3754 = BgL_carzd21839zd2_695; BgL_argsz00_3755 = BgL_cdrzd21825zd2_687; BgL_argsz00_454 = BgL_argsz00_3755; BgL_funz00_453 = BgL_funz00_3754; goto BgL_tagzd2114zd2_455; } } } else { obj_t BgL_carzd21859zd2_702; BgL_carzd21859zd2_702 = ((((obj_t)((long)BgL_expz00_5 - 3))->pair_t).car); if (((((long)BgL_carzd21859zd2_702) & ((1 << 2) - 1)) == 3)) { obj_t BgL_argsz00_3760; obj_t BgL_funz00_3759; BgL_funz00_3759 = BgL_carzd21859zd2_702; BgL_argsz00_3760 = BgL_cdrzd21825zd2_687; BgL_argsz00_457 = BgL_argsz00_3760; BgL_funz00_456 = BgL_funz00_3759; goto BgL_tagzd2115zd2_458; } else { obj_t BgL_argsz00_3762; obj_t BgL_funz00_3761; BgL_funz00_3761 = BgL_carzd21859zd2_702; BgL_argsz00_3762 = BgL_cdrzd21825zd2_687; BgL_argsz00_454 = BgL_argsz00_3762; BgL_funz00_453 = BgL_funz00_3761; goto BgL_tagzd2114zd2_455; } } } else { obj_t BgL_carzd21879zd2_707; BgL_carzd21879zd2_707 = ((((obj_t)((long)BgL_expz00_5 - 3))->pair_t).car); if (((((long)BgL_carzd21879zd2_707) & ((1 << 2) - 1)) == 3)) { obj_t BgL_argsz00_3767; obj_t BgL_funz00_3766; BgL_funz00_3766 = BgL_carzd21879zd2_707; BgL_argsz00_3767 = BgL_cdrzd21825zd2_687; BgL_argsz00_457 = BgL_argsz00_3767; BgL_funz00_456 = BgL_funz00_3766; goto BgL_tagzd2115zd2_458; } else { obj_t BgL_argsz00_3769; obj_t BgL_funz00_3768; BgL_funz00_3768 = BgL_carzd21879zd2_707; BgL_argsz00_3769 = BgL_cdrzd21825zd2_687; BgL_argsz00_454 = BgL_argsz00_3769; BgL_funz00_453 = BgL_funz00_3768; goto BgL_tagzd2114zd2_455; } } } else { obj_t BgL_carzd21899zd2_712; BgL_carzd21899zd2_712 = ((((obj_t)((long)BgL_expz00_5 - 3))->pair_t).car); if (((((long)BgL_carzd21899zd2_712) & ((1 << 2) - 1)) == 3)) { obj_t BgL_argsz00_3774; obj_t BgL_funz00_3773; BgL_funz00_3773 = BgL_carzd21899zd2_712; BgL_argsz00_3774 = BgL_cdrzd21825zd2_687; BgL_argsz00_457 = BgL_argsz00_3774; BgL_funz00_456 = BgL_funz00_3773; goto BgL_tagzd2115zd2_458; } else { obj_t BgL_argsz00_3776; obj_t BgL_funz00_3775; BgL_funz00_3775 = BgL_carzd21899zd2_712; BgL_argsz00_3776 = BgL_cdrzd21825zd2_687; BgL_argsz00_454 = BgL_argsz00_3776; BgL_funz00_453 = BgL_funz00_3775; goto BgL_tagzd2114zd2_455; } } } } } } } } } } } } } } } } else { BgL_atomz00_427 = BgL_expz00_5; if (((((((long)BgL_atomz00_427) & ((1 << 2) - 1)) == 0) && BgL_atomz00_427) && ((long)((long)((long)((((obj_t)(BgL_atomz00_427))->header)) >> (3 + 4 + 1))) == 8))) { return BGl_evcompilezd2refzd2zz__evcompilez00 (BGl_variablez00zz__evcompilez00(BgL_locz00_10, BgL_atomz00_427, BgL_envz00_6, BgL_genvz00_7), BgL_locz00_10); } else { bool_t BgL_testz00_3781; if (((((((long)BgL_atomz00_427) & ((1 << 2) - 1)) == 0) && BgL_atomz00_427) && ((long)((long)((long)((((obj_t)(BgL_atomz00_427))->header)) >> (3 + 4 + 1))) == 2))) { BgL_testz00_3781 = ((bool_t) 1); } else { BgL_testz00_3781 = ((((((long)BgL_atomz00_427) & ((1 << 2) - 1)) == 0) && BgL_atomz00_427) && ((long)((long)((long)((((obj_t)(BgL_atomz00_427))->header)) >> (3 + 4 + 1))) == 15)); } if (BgL_testz00_3781) { return BGl_evcompilezd2errorzd2zz__evcompilez00 (BgL_locz00_10, BGl_string1929z00zz__evcompilez00, BGl_string1930z00zz__evcompilez00, BgL_expz00_5); } else { if (((((((long)BgL_atomz00_427) & ((1 << 2) - 1)) == 0) && BgL_atomz00_427) && ((long)((long)((long)((((obj_t)(BgL_atomz00_427))->header)) >> (3 + 4 + 1))) == 2))) { { obj_t BgL_v1023z00_1685; { int BgL_auxz00_3788; BgL_auxz00_3788 = (int) (((long) 3)); BgL_v1023z00_1685 = create_vector(BgL_auxz00_3788); } { int BgL_auxz00_3791; BgL_auxz00_3791 = (int) (((long) 2)); ((&(((obj_t)(BgL_v1023z00_1685))->vector_t.obj0))[ BgL_auxz00_3791 ] = BgL_atomz00_427, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { int BgL_auxz00_3794; BgL_auxz00_3794 = (int) (((long) 1)); ((&(((obj_t)(BgL_v1023z00_1685))->vector_t.obj0))[ BgL_auxz00_3794 ] = BgL_locz00_10, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { obj_t BgL_auxz00_3799; int BgL_auxz00_3797; BgL_auxz00_3799 = (obj_t)((long)(((long)(((long) -1)) << 2) | 1)); BgL_auxz00_3797 = (int) (((long) 0)); ((&(((obj_t)(BgL_v1023z00_1685))->vector_t.obj0))[ BgL_auxz00_3797 ] = BgL_auxz00_3799, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } return BgL_v1023z00_1685; } } else { return BgL_atomz00_427; } } } } } } } } obj_t BGl__evcompilez00zz__evcompilez00(obj_t BgL_envz00_2975, obj_t BgL_expz00_2976, obj_t BgL_envz00_2977, obj_t BgL_genvz00_2978, obj_t BgL_wherez00_2979, obj_t BgL_namedzf3zf3_2980, obj_t BgL_locz00_2981) { ; { return BGl_evcompilez00zz__evcompilez00(BgL_expz00_2976, BgL_envz00_2977, BgL_genvz00_2978, BgL_wherez00_2979, BgL_namedzf3zf3_2980, BgL_locz00_2981); } } obj_t BGl_zc3anonymousza31453ze3z83zz__evcompilez00(obj_t BgL_envz00_2982, obj_t BgL_procz00_2984, obj_t BgL_msgz00_2985, obj_t BgL_objz00_2986) { ; { { obj_t BgL_locz00_2983; { int BgL_auxz00_3803; BgL_auxz00_3803 = (int) (((long) 0)); BgL_locz00_2983 = ((&(((obj_t)(BgL_envz00_2982))->procedure_t.obj0)))[ BgL_auxz00_3803 ]; } { obj_t BgL_procz00_814; obj_t BgL_msgz00_815; obj_t BgL_objz00_816; BgL_procz00_814 = BgL_procz00_2984; BgL_msgz00_815 = BgL_msgz00_2985; BgL_objz00_816 = BgL_objz00_2986; return BGl_evcompilezd2errorzd2zz__evcompilez00(BgL_locz00_2983, BgL_procz00_814, BgL_msgz00_815, BgL_objz00_816); } } } } obj_t BGl_zc3anonymousza31455ze3z83zz__evcompilez00(obj_t BgL_envz00_2987, obj_t BgL_procz00_2989, obj_t BgL_msgz00_2990, obj_t BgL_objz00_2991) { ; { { obj_t BgL_locz00_2988; { int BgL_auxz00_3807; BgL_auxz00_3807 = (int) (((long) 0)); BgL_locz00_2988 = ((&(((obj_t)(BgL_envz00_2987))->procedure_t.obj0)))[ BgL_auxz00_3807 ]; } { obj_t BgL_procz00_820; obj_t BgL_msgz00_821; obj_t BgL_objz00_822; BgL_procz00_820 = BgL_procz00_2989; BgL_msgz00_821 = BgL_msgz00_2990; BgL_objz00_822 = BgL_objz00_2991; return BGl_evcompilezd2errorzd2zz__evcompilez00(BgL_locz00_2988, BgL_procz00_820, BgL_msgz00_821, BgL_objz00_822); } } } } obj_t BGl_zc3anonymousza31404ze3z83zz__evcompilez00(obj_t BgL_envz00_2992) { ; { { obj_t BgL_expz00_2993; obj_t BgL_locz00_2994; obj_t BgL_valz00_2995; obj_t BgL_genvz00_2996; obj_t BgL_varz00_2997; { int BgL_auxz00_3811; BgL_auxz00_3811 = (int) (((long) 0)); BgL_expz00_2993 = ((&(((obj_t)(BgL_envz00_2992))->procedure_t.obj0)))[ BgL_auxz00_3811 ]; } { int BgL_auxz00_3814; BgL_auxz00_3814 = (int) (((long) 1)); BgL_locz00_2994 = ((&(((obj_t)(BgL_envz00_2992))->procedure_t.obj0)))[ BgL_auxz00_3814 ]; } { int BgL_auxz00_3817; BgL_auxz00_3817 = (int) (((long) 2)); BgL_valz00_2995 = ((&(((obj_t)(BgL_envz00_2992))->procedure_t.obj0)))[ BgL_auxz00_3817 ]; } { int BgL_auxz00_3820; BgL_auxz00_3820 = (int) (((long) 3)); BgL_genvz00_2996 = ((&(((obj_t)(BgL_envz00_2992))->procedure_t.obj0)))[ BgL_auxz00_3820 ]; } { int BgL_auxz00_3823; BgL_auxz00_3823 = (int) (((long) 4)); BgL_varz00_2997 = ((&(((obj_t)(BgL_envz00_2992))->procedure_t.obj0)))[ BgL_auxz00_3823 ]; } { { obj_t BgL_arg1407z00_757; { bool_t BgL_test1103z00_1775; BgL_test1103z00_1775 = ( ((((long)BgL_expz00_2993) & ((1 << 2) - 1)) == 3) && (((long)GC_size( ((obj_t)((long)BgL_expz00_2993 | 3)) )) >= (sizeof( struct extended_pair ))) && ((((obj_t)((long)BgL_expz00_2993 - 3))->extended_pair_t).eheader == (obj_t)((long)(((long)(21) << 2) | 1)) ) ); if (BgL_test1103z00_1775) { BgL_arg1407z00_757 = ((((obj_t)((long)BgL_expz00_2993 - 3))->extended_pair_t).cer); } else { BgL_arg1407z00_757 = BgL_locz00_2994; } } return BGl_evcompilez00zz__evcompilez00(BgL_valz00_2995, ((obj_t)(obj_t)((long)(((long)(0) << 2) | 2))), BgL_genvz00_2996, BgL_varz00_2997, ((obj_t)(obj_t)((long)(((long)(2) << 2) | 2))), BgL_arg1407z00_757); } } } } } obj_t BGl_evcompilezd2cnstzd2zz__evcompilez00(obj_t BgL_cnstz00_11, obj_t BgL_locz00_12) { ; { if (((((((long)BgL_cnstz00_11) & ((1 << 2) - 1)) == 0) && BgL_cnstz00_11) && ((long)((long)((long)((((obj_t)(BgL_cnstz00_11))->header)) >> (3 + 4 + 1))) == 2))) { { obj_t BgL_v1023z00_1991; { int BgL_auxz00_3832; BgL_auxz00_3832 = (int) (((long) 3)); BgL_v1023z00_1991 = create_vector(BgL_auxz00_3832); } { int BgL_auxz00_3835; BgL_auxz00_3835 = (int) (((long) 2)); ((&(((obj_t)(BgL_v1023z00_1991))->vector_t.obj0))[ BgL_auxz00_3835 ] = BgL_cnstz00_11, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { int BgL_auxz00_3838; BgL_auxz00_3838 = (int) (((long) 1)); ((&(((obj_t)(BgL_v1023z00_1991))->vector_t.obj0))[ BgL_auxz00_3838 ] = BgL_locz00_12, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { obj_t BgL_auxz00_3843; int BgL_auxz00_3841; BgL_auxz00_3843 = (obj_t)((long)(((long)(((long) -1)) << 2) | 1)); BgL_auxz00_3841 = (int) (((long) 0)); ((&(((obj_t)(BgL_v1023z00_1991))->vector_t.obj0))[ BgL_auxz00_3841 ] = BgL_auxz00_3843, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } return BgL_v1023z00_1991; } } else { return BgL_cnstz00_11; } } } obj_t BGl_evcompilezd2refzd2zz__evcompilez00(obj_t BgL_variablez00_13, obj_t BgL_locz00_14) { ; { { bool_t BgL_test1480z00_869; if (((((((long)BgL_variablez00_13) & ((1 << 2) - 1)) == 0) && BgL_variablez00_13) && ((long)((long)((long)((((obj_t)(BgL_variablez00_13))->header)) >> (3 + 4 + 1))) == 2))) { int BgL_arg1787z00_2004; BgL_arg1787z00_2004 = ((unsigned int)((obj_t)(BgL_variablez00_13))->vector_t.length & (~(unsigned int)((((unsigned int)(1<<8)) -1) << ((sizeof( int ) << 3) - 8)))); { long BgL_auxz00_3849; BgL_auxz00_3849 = (long) (BgL_arg1787z00_2004); BgL_test1480z00_869 = (BgL_auxz00_3849 == ((long) 3)); } } else { BgL_test1480z00_869 = ((bool_t) 0); } if (BgL_test1480z00_869) { { obj_t BgL_v1024z00_870; { int BgL_auxz00_3853; BgL_auxz00_3853 = (int) (((long) 3)); BgL_v1024z00_870 = create_vector(BgL_auxz00_3853); } { int BgL_auxz00_3856; BgL_auxz00_3856 = (int) (((long) 2)); ((&(((obj_t)(BgL_v1024z00_870))->vector_t.obj0))[ BgL_auxz00_3856 ] = BgL_variablez00_13, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { int BgL_auxz00_3859; BgL_auxz00_3859 = (int) (((long) 1)); ((&(((obj_t)(BgL_v1024z00_870))->vector_t.obj0))[ BgL_auxz00_3859 ] = BgL_locz00_14, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { long BgL_arg1483z00_872; { bool_t BgL_testz00_3862; { obj_t BgL_auxz00_3867; obj_t BgL_auxz00_3863; BgL_auxz00_3867 = (obj_t)((long)(((long)(((long) 1)) << 2) | 1)); { int BgL_auxz00_3864; BgL_auxz00_3864 = (int) (((long) 0)); BgL_auxz00_3863 = (&(((obj_t)(BgL_variablez00_13))->vector_t.obj0))[ BgL_auxz00_3864 ]; } BgL_testz00_3862 = (BgL_auxz00_3863 == BgL_auxz00_3867); } if (BgL_testz00_3862) { BgL_arg1483z00_872 = ((long) 5); } else { BgL_arg1483z00_872 = ((long) 6); } } { obj_t BgL_auxz00_3872; int BgL_auxz00_3870; BgL_auxz00_3872 = (obj_t)((long)(((long)(BgL_arg1483z00_872) << 2) | 1)); BgL_auxz00_3870 = (int) (((long) 0)); ((&(((obj_t)(BgL_v1024z00_870))->vector_t.obj0))[ BgL_auxz00_3870 ] = BgL_auxz00_3872, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } } return BgL_v1024z00_870; } } else { bool_t BgL_testz00_3875; if (((((long)BgL_variablez00_13) & ((1 << 2) - 1)) == 3)) { obj_t BgL_auxz00_3878; BgL_auxz00_3878 = ((((obj_t)((long)BgL_variablez00_13 - 3))->pair_t).car); BgL_testz00_3875 = (BgL_auxz00_3878 == BGl_symbol1947z00zz__evcompilez00); } else { BgL_testz00_3875 = ((bool_t) 0); } if (BgL_testz00_3875) { { obj_t BgL_v1025z00_877; { int BgL_auxz00_3881; BgL_auxz00_3881 = (int) (((long) 3)); BgL_v1025z00_877 = create_vector(BgL_auxz00_3881); } { obj_t BgL_auxz00_3886; int BgL_auxz00_3884; BgL_auxz00_3886 = ((((obj_t)((long)BgL_variablez00_13 - 3))->pair_t).cdr); BgL_auxz00_3884 = (int) (((long) 2)); ((&(((obj_t)(BgL_v1025z00_877))->vector_t.obj0))[ BgL_auxz00_3884 ] = BgL_auxz00_3886, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { int BgL_auxz00_3889; BgL_auxz00_3889 = (int) (((long) 1)); ((&(((obj_t)(BgL_v1025z00_877))->vector_t.obj0))[ BgL_auxz00_3889 ] = BgL_locz00_14, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { obj_t BgL_auxz00_3894; int BgL_auxz00_3892; BgL_auxz00_3894 = (obj_t)((long)(((long)(((long) 7)) << 2) | 1)); BgL_auxz00_3892 = (int) (((long) 0)); ((&(((obj_t)(BgL_v1025z00_877))->vector_t.obj0))[ BgL_auxz00_3892 ] = BgL_auxz00_3894, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } return BgL_v1025z00_877; } } else { { if (((((long)BgL_variablez00_13) & ((1 << 2) - 1)) == 1)) { switch ((long) (long)((long)((long)(BgL_variablez00_13) >> 2))) { case ((long) 0): case ((long) 1): case ((long) 2): case ((long) 3): { obj_t BgL_v1029z00_883; { int BgL_auxz00_3899; BgL_auxz00_3899 = (int) (((long) 3)); BgL_v1029z00_883 = create_vector(BgL_auxz00_3899); } { int BgL_auxz00_3902; BgL_auxz00_3902 = (int) (((long) 2)); ((&(((obj_t)(BgL_v1029z00_883))->vector_t.obj0))[ BgL_auxz00_3902 ] = ((obj_t)(obj_t)((long)(((long)(0) << 2) | 2))), ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { int BgL_auxz00_3905; BgL_auxz00_3905 = (int) (((long) 1)); ((&(((obj_t)(BgL_v1029z00_883))->vector_t.obj0))[ BgL_auxz00_3905 ] = BgL_locz00_14, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { int BgL_auxz00_3908; BgL_auxz00_3908 = (int) (((long) 0)); ((&(((obj_t)(BgL_v1029z00_883))->vector_t.obj0))[ BgL_auxz00_3908 ] = BgL_variablez00_13, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } return BgL_v1029z00_883; } break; default: BgL_case_else1027z00_880: { obj_t BgL_v1026z00_884; { int BgL_auxz00_3911; BgL_auxz00_3911 = (int) (((long) 3)); BgL_v1026z00_884 = create_vector(BgL_auxz00_3911); } { int BgL_auxz00_3914; BgL_auxz00_3914 = (int) (((long) 2)); ((&(((obj_t)(BgL_v1026z00_884))->vector_t.obj0))[ BgL_auxz00_3914 ] = BgL_variablez00_13, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { int BgL_auxz00_3917; BgL_auxz00_3917 = (int) (((long) 1)); ((&(((obj_t)(BgL_v1026z00_884))->vector_t.obj0))[ BgL_auxz00_3917 ] = BgL_locz00_14, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { obj_t BgL_auxz00_3922; int BgL_auxz00_3920; BgL_auxz00_3922 = (obj_t)((long)(((long)(((long) 4)) << 2) | 1)); BgL_auxz00_3920 = (int) (((long) 0)); ((&(((obj_t)(BgL_v1026z00_884))->vector_t.obj0))[ BgL_auxz00_3920 ] = BgL_auxz00_3922, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } return BgL_v1026z00_884; } } } else { goto BgL_case_else1027z00_880; } } } } } } } obj_t BGl_evcompilezd2setzd2zz__evcompilez00(obj_t BgL_variablez00_15, obj_t BgL_valuez00_16, obj_t BgL_locz00_17) { ; { { bool_t BgL_test1491z00_885; if (((((((long)BgL_variablez00_15) & ((1 << 2) - 1)) == 0) && BgL_variablez00_15) && ((long)((long)((long)((((obj_t)(BgL_variablez00_15))->header)) >> (3 + 4 + 1))) == 2))) { int BgL_arg1787z00_2059; BgL_arg1787z00_2059 = ((unsigned int)((obj_t)(BgL_variablez00_15))->vector_t.length & (~(unsigned int)((((unsigned int)(1<<8)) -1) << ((sizeof( int ) << 3) - 8)))); { long BgL_auxz00_3930; BgL_auxz00_3930 = (long) (BgL_arg1787z00_2059); BgL_test1491z00_885 = (BgL_auxz00_3930 == ((long) 3)); } } else { BgL_test1491z00_885 = ((bool_t) 0); } if (BgL_test1491z00_885) { { obj_t BgL_v1030z00_886; { int BgL_auxz00_3934; BgL_auxz00_3934 = (int) (((long) 3)); BgL_v1030z00_886 = create_vector(BgL_auxz00_3934); } { obj_t BgL_arg1493z00_888; BgL_arg1493z00_888 = make_pair( BgL_variablez00_15, BgL_valuez00_16 ); { int BgL_auxz00_3938; BgL_auxz00_3938 = (int) (((long) 2)); ((&(((obj_t)(BgL_v1030z00_886))->vector_t.obj0))[ BgL_auxz00_3938 ] = BgL_arg1493z00_888, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } } { int BgL_auxz00_3941; BgL_auxz00_3941 = (int) (((long) 1)); ((&(((obj_t)(BgL_v1030z00_886))->vector_t.obj0))[ BgL_auxz00_3941 ] = BgL_locz00_17, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { obj_t BgL_auxz00_3946; int BgL_auxz00_3944; BgL_auxz00_3946 = (obj_t)((long)(((long)(((long) 8)) << 2) | 1)); BgL_auxz00_3944 = (int) (((long) 0)); ((&(((obj_t)(BgL_v1030z00_886))->vector_t.obj0))[ BgL_auxz00_3944 ] = BgL_auxz00_3946, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } return BgL_v1030z00_886; } } else { bool_t BgL_testz00_3949; if (((((long)BgL_variablez00_15) & ((1 << 2) - 1)) == 3)) { obj_t BgL_auxz00_3952; BgL_auxz00_3952 = ((((obj_t)((long)BgL_variablez00_15 - 3))->pair_t).car); BgL_testz00_3949 = (BgL_auxz00_3952 == BGl_symbol1947z00zz__evcompilez00); } else { BgL_testz00_3949 = ((bool_t) 0); } if (BgL_testz00_3949) { { obj_t BgL_v1031z00_890; { int BgL_auxz00_3955; BgL_auxz00_3955 = (int) (((long) 3)); BgL_v1031z00_890 = create_vector(BgL_auxz00_3955); } { obj_t BgL_arg1496z00_892; { obj_t BgL_auxz00_3958; BgL_auxz00_3958 = ((((obj_t)((long)BgL_variablez00_15 - 3))->pair_t).cdr); BgL_arg1496z00_892 = make_pair( BgL_auxz00_3958, BgL_valuez00_16 ); } { int BgL_auxz00_3961; BgL_auxz00_3961 = (int) (((long) 2)); ((&(((obj_t)(BgL_v1031z00_890))->vector_t.obj0))[ BgL_auxz00_3961 ] = BgL_arg1496z00_892, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } } { int BgL_auxz00_3964; BgL_auxz00_3964 = (int) (((long) 1)); ((&(((obj_t)(BgL_v1031z00_890))->vector_t.obj0))[ BgL_auxz00_3964 ] = BgL_locz00_17, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { obj_t BgL_auxz00_3969; int BgL_auxz00_3967; BgL_auxz00_3969 = (obj_t)((long)(((long)(((long) 9)) << 2) | 1)); BgL_auxz00_3967 = (int) (((long) 0)); ((&(((obj_t)(BgL_v1031z00_890))->vector_t.obj0))[ BgL_auxz00_3967 ] = BgL_auxz00_3969, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } return BgL_v1031z00_890; } } else { { if (((((long)BgL_variablez00_15) & ((1 << 2) - 1)) == 1)) { switch ((long) (long)((long)((long)(BgL_variablez00_15) >> 2))) { case ((long) 0): case ((long) 1): case ((long) 2): case ((long) 3): { obj_t BgL_v1035z00_897; { int BgL_auxz00_3974; BgL_auxz00_3974 = (int) (((long) 3)); BgL_v1035z00_897 = create_vector(BgL_auxz00_3974); } { int BgL_auxz00_3977; BgL_auxz00_3977 = (int) (((long) 2)); ((&(((obj_t)(BgL_v1035z00_897))->vector_t.obj0))[ BgL_auxz00_3977 ] = BgL_valuez00_16, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { int BgL_auxz00_3980; BgL_auxz00_3980 = (int) (((long) 1)); ((&(((obj_t)(BgL_v1035z00_897))->vector_t.obj0))[ BgL_auxz00_3980 ] = BgL_locz00_17, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { obj_t BgL_auxz00_3985; int BgL_auxz00_3983; { long BgL_auxz00_3986; { long BgL_auxz00_3987; BgL_auxz00_3987 = (long) (long)((long)((long)(BgL_variablez00_15) >> 2)); BgL_auxz00_3986 = (((long) 10) + BgL_auxz00_3987); } BgL_auxz00_3985 = (obj_t)((long)(((long)(BgL_auxz00_3986) << 2) | 1)); } BgL_auxz00_3983 = (int) (((long) 0)); ((&(((obj_t)(BgL_v1035z00_897))->vector_t.obj0))[ BgL_auxz00_3983 ] = BgL_auxz00_3985, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } return BgL_v1035z00_897; } break; default: BgL_case_else1033z00_894: { obj_t BgL_v1032z00_900; { int BgL_auxz00_3992; BgL_auxz00_3992 = (int) (((long) 3)); BgL_v1032z00_900 = create_vector(BgL_auxz00_3992); } { obj_t BgL_arg1503z00_902; BgL_arg1503z00_902 = make_pair( BgL_variablez00_15, BgL_valuez00_16 ); { int BgL_auxz00_3996; BgL_auxz00_3996 = (int) (((long) 2)); ((&(((obj_t)(BgL_v1032z00_900))->vector_t.obj0))[ BgL_auxz00_3996 ] = BgL_arg1503z00_902, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } } { int BgL_auxz00_3999; BgL_auxz00_3999 = (int) (((long) 1)); ((&(((obj_t)(BgL_v1032z00_900))->vector_t.obj0))[ BgL_auxz00_3999 ] = BgL_locz00_17, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { obj_t BgL_auxz00_4004; int BgL_auxz00_4002; BgL_auxz00_4004 = (obj_t)((long)(((long)(((long) 14)) << 2) | 1)); BgL_auxz00_4002 = (int) (((long) 0)); ((&(((obj_t)(BgL_v1032z00_900))->vector_t.obj0))[ BgL_auxz00_4002 ] = BgL_auxz00_4004, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } return BgL_v1032z00_900; } } } else { goto BgL_case_else1033z00_894; } } } } } } } obj_t BGl_evcompilezd2beginzd2zz__evcompilez00(obj_t BgL_bodyz00_22, obj_t BgL_envz00_23, obj_t BgL_genvz00_24, obj_t BgL_wherez00_25, obj_t BgL_namedzf3zf3_26, obj_t BgL_locz00_27) { ; { if (((long)(BgL_bodyz00_22) == (long)((obj_t)(obj_t)((long)(((long)(0) << 2) | 2))))) { return BGl_evcompilez00zz__evcompilez00(((obj_t)(obj_t)((long)(((long)(3) << 2) | 2))), BgL_envz00_23, BgL_genvz00_24, BgL_wherez00_25, BgL_namedzf3zf3_26, BgL_locz00_27); } else { bool_t BgL_testz00_4012; { obj_t BgL_auxz00_4013; BgL_auxz00_4013 = ((((obj_t)((long)BgL_bodyz00_22 - 3))->pair_t).cdr); BgL_testz00_4012 = ((long)(BgL_auxz00_4013) == (long)((obj_t)(obj_t)((long)(((long)(0) << 2) | 2)))); } if (BgL_testz00_4012) { { obj_t BgL_arg1509z00_909; obj_t BgL_arg1510z00_910; BgL_arg1509z00_909 = ((((obj_t)((long)BgL_bodyz00_22 - 3))->pair_t).car); { obj_t BgL_arg1511z00_911; BgL_arg1511z00_911 = ((((obj_t)((long)BgL_bodyz00_22 - 3))->pair_t).car); { bool_t BgL_test1103z00_2140; BgL_test1103z00_2140 = ( ((((long)BgL_arg1511z00_911) & ((1 << 2) - 1)) == 3) && (((long)GC_size( ((obj_t)((long)BgL_arg1511z00_911 | 3)) )) >= (sizeof( struct extended_pair ))) && ((((obj_t)((long)BgL_arg1511z00_911 - 3))->extended_pair_t).eheader == (obj_t)((long)(((long)(21) << 2) | 1)) ) ); if (BgL_test1103z00_2140) { BgL_arg1510z00_910 = ((((obj_t)((long)BgL_arg1511z00_911 - 3))->extended_pair_t).cer); } else { BgL_arg1510z00_910 = BgL_locz00_27; } } } return BGl_evcompilez00zz__evcompilez00(BgL_arg1509z00_909, BgL_envz00_23, BgL_genvz00_24, BgL_wherez00_25, BgL_namedzf3zf3_26, BgL_arg1510z00_910); } } else { { obj_t BgL_cbodyz00_912; BgL_cbodyz00_912 = BGl_loopz00zz__evcompilez00(BgL_namedzf3zf3_26, BgL_wherez00_25, BgL_genvz00_24, BgL_envz00_23, BgL_locz00_27, BgL_bodyz00_22); { obj_t BgL_v1038z00_913; { int BgL_auxz00_4023; BgL_auxz00_4023 = (int) (((long) 3)); BgL_v1038z00_913 = create_vector(BgL_auxz00_4023); } { obj_t BgL_auxz00_4028; int BgL_auxz00_4026; BgL_auxz00_4028 = BGl_listzd2ze3vectorz31zz__r4_vectors_6_8z00 (BgL_cbodyz00_912); BgL_auxz00_4026 = (int) (((long) 2)); ((&(((obj_t)(BgL_v1038z00_913))->vector_t.obj0))[ BgL_auxz00_4026 ] = BgL_auxz00_4028, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { int BgL_auxz00_4031; BgL_auxz00_4031 = (int) (((long) 1)); ((&(((obj_t)(BgL_v1038z00_913))->vector_t.obj0))[ BgL_auxz00_4031 ] = BgL_locz00_27, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { obj_t BgL_auxz00_4036; int BgL_auxz00_4034; BgL_auxz00_4036 = (obj_t)((long)(((long)(((long) 16)) << 2) | 1)); BgL_auxz00_4034 = (int) (((long) 0)); ((&(((obj_t)(BgL_v1038z00_913))->vector_t.obj0))[ BgL_auxz00_4034 ] = BgL_auxz00_4036, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } return BgL_v1038z00_913; } } } } } } obj_t BGl_loopz00zz__evcompilez00(obj_t BgL_namedzf3zf3_3003, obj_t BgL_wherez00_3002, obj_t BgL_genvz00_3001, obj_t BgL_envz00_3000, obj_t BgL_locz00_2999, obj_t BgL_restz00_916) { ; { if (((long)(BgL_restz00_916) == (long)((obj_t)(obj_t)((long)(((long)(0) << 2) | 2))))) { return ((obj_t)(obj_t)((long)(((long)(0) << 2) | 2))); } else { bool_t BgL_testz00_4041; { obj_t BgL_auxz00_4042; BgL_auxz00_4042 = ((((obj_t)((long)BgL_restz00_916 - 3))->pair_t).cdr); BgL_testz00_4041 = ((long)(BgL_auxz00_4042) == (long)((obj_t)(obj_t)((long)(((long)(0) << 2) | 2)))); } if (BgL_testz00_4041) { { obj_t BgL_arg1517z00_920; { obj_t BgL_arg1519z00_922; obj_t BgL_arg1520z00_923; BgL_arg1519z00_922 = ((((obj_t)((long)BgL_restz00_916 - 3))->pair_t).car); { obj_t BgL_arg1521z00_924; BgL_arg1521z00_924 = ((((obj_t)((long)BgL_restz00_916 - 3))->pair_t).car); { bool_t BgL_test1103z00_2150; BgL_test1103z00_2150 = ( ((((long)BgL_arg1521z00_924) & ((1 << 2) - 1)) == 3) && (((long)GC_size( ((obj_t)((long)BgL_arg1521z00_924 | 3)) )) >= (sizeof( struct extended_pair ))) && ((((obj_t)((long)BgL_arg1521z00_924 - 3))->extended_pair_t).eheader == (obj_t)((long)(((long)(21) << 2) | 1)) ) ); if (BgL_test1103z00_2150) { BgL_arg1520z00_923 = ((((obj_t)((long)BgL_arg1521z00_924 - 3))->extended_pair_t).cer); } else { BgL_arg1520z00_923 = BgL_locz00_2999; } } } BgL_arg1517z00_920 = BGl_evcompilez00zz__evcompilez00(BgL_arg1519z00_922, BgL_envz00_3000, BgL_genvz00_3001, BgL_wherez00_3002, BgL_namedzf3zf3_3003, BgL_arg1520z00_923); } return make_pair( BgL_arg1517z00_920, ((obj_t)(obj_t)((long)(((long)(0) << 2) | 2))) ); } } else { { obj_t BgL_arg1522z00_925; obj_t BgL_arg1523z00_926; { obj_t BgL_arg1524z00_927; obj_t BgL_arg1525z00_928; BgL_arg1524z00_927 = ((((obj_t)((long)BgL_restz00_916 - 3))->pair_t).car); { obj_t BgL_arg1526z00_929; BgL_arg1526z00_929 = ((((obj_t)((long)BgL_restz00_916 - 3))->pair_t).car); { bool_t BgL_test1103z00_2157; BgL_test1103z00_2157 = ( ((((long)BgL_arg1526z00_929) & ((1 << 2) - 1)) == 3) && (((long)GC_size( ((obj_t)((long)BgL_arg1526z00_929 | 3)) )) >= (sizeof( struct extended_pair ))) && ((((obj_t)((long)BgL_arg1526z00_929 - 3))->extended_pair_t).eheader == (obj_t)((long)(((long)(21) << 2) | 1)) ) ); if (BgL_test1103z00_2157) { BgL_arg1525z00_928 = ((((obj_t)((long)BgL_arg1526z00_929 - 3))->extended_pair_t).cer); } else { BgL_arg1525z00_928 = BgL_locz00_2999; } } } BgL_arg1522z00_925 = BGl_evcompilez00zz__evcompilez00(BgL_arg1524z00_927, BgL_envz00_3000, BgL_genvz00_3001, BgL_wherez00_3002, ((obj_t)(obj_t)((long)(((long)(1) << 2) | 2))), BgL_arg1525z00_928); } BgL_arg1523z00_926 = BGl_loopz00zz__evcompilez00(BgL_namedzf3zf3_3003, BgL_wherez00_3002, BgL_genvz00_3001, BgL_envz00_3000, BgL_locz00_2999, ((((obj_t)((long)BgL_restz00_916 - 3))->pair_t).cdr)); return make_pair( BgL_arg1522z00_925, BgL_arg1523z00_926 ); } } } } } obj_t BGl_evcompilezd2lambdazd2zz__evcompilez00(obj_t BgL_formalsz00_39, obj_t BgL_bodyz00_40, obj_t BgL_wherez00_41, obj_t BgL_namedzf3zf3_42, obj_t BgL_locz00_43) { ; { { if (BGl_equalzf3zf3zz__r4_equivalence_6_2z00(BgL_formalsz00_39, ((obj_t)(obj_t)((long)(((long)(0) << 2) | 2))))) { BgL_tagzd21966zd2_943: if ((BgL_namedzf3zf3_42 != ((obj_t)(obj_t)((long)(((long)(1) << 2) | 2))))) { obj_t BgL_v1043z00_998; { int BgL_auxz00_4065; BgL_auxz00_4065 = (int) (((long) 3)); BgL_v1043z00_998 = create_vector(BgL_auxz00_4065); } { obj_t BgL_arg1589z00_1000; BgL_arg1589z00_1000 = make_pair( BgL_wherez00_41, BgL_bodyz00_40 ); { int BgL_auxz00_4069; BgL_auxz00_4069 = (int) (((long) 2)); ((&(((obj_t)(BgL_v1043z00_998))->vector_t.obj0))[ BgL_auxz00_4069 ] = BgL_arg1589z00_1000, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } } { int BgL_auxz00_4072; BgL_auxz00_4072 = (int) (((long) 1)); ((&(((obj_t)(BgL_v1043z00_998))->vector_t.obj0))[ BgL_auxz00_4072 ] = BgL_locz00_43, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { obj_t BgL_auxz00_4077; int BgL_auxz00_4075; { long BgL_auxz00_4078; { long BgL_auxz00_4079; BgL_auxz00_4079 = bgl_list_length(BgL_formalsz00_39); BgL_auxz00_4078 = (BgL_auxz00_4079 + ((long) 37)); } BgL_auxz00_4077 = (obj_t)((long)(((long)(BgL_auxz00_4078) << 2) | 1)); } BgL_auxz00_4075 = (int) (((long) 0)); ((&(((obj_t)(BgL_v1043z00_998))->vector_t.obj0))[ BgL_auxz00_4075 ] = BgL_auxz00_4077, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } return BgL_v1043z00_998; } else { obj_t BgL_v1044z00_1005; { int BgL_auxz00_4084; BgL_auxz00_4084 = (int) (((long) 3)); BgL_v1044z00_1005 = create_vector(BgL_auxz00_4084); } { int BgL_auxz00_4087; BgL_auxz00_4087 = (int) (((long) 2)); ((&(((obj_t)(BgL_v1044z00_1005))->vector_t.obj0))[ BgL_auxz00_4087 ] = BgL_bodyz00_40, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { int BgL_auxz00_4090; BgL_auxz00_4090 = (int) (((long) 1)); ((&(((obj_t)(BgL_v1044z00_1005))->vector_t.obj0))[ BgL_auxz00_4090 ] = BgL_locz00_43, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { obj_t BgL_auxz00_4095; int BgL_auxz00_4093; { long BgL_auxz00_4096; { long BgL_auxz00_4097; BgL_auxz00_4097 = bgl_list_length(BgL_formalsz00_39); BgL_auxz00_4096 = (BgL_auxz00_4097 + ((long) 42)); } BgL_auxz00_4095 = (obj_t)((long)(((long)(BgL_auxz00_4096) << 2) | 1)); } BgL_auxz00_4093 = (int) (((long) 0)); ((&(((obj_t)(BgL_v1044z00_1005))->vector_t.obj0))[ BgL_auxz00_4093 ] = BgL_auxz00_4095, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } return BgL_v1044z00_1005; } } else { if (((((long)BgL_formalsz00_39) & ((1 << 2) - 1)) == 3)) { if (BGl_equalzf3zf3zz__r4_equivalence_6_2z00(((((obj_t)((long)BgL_formalsz00_39 - 3))->pair_t).cdr), ((obj_t)(obj_t)((long)(((long)(0) << 2) | 2))))) { goto BgL_tagzd21966zd2_943; } else { obj_t BgL_cdrzd21979zd2_953; BgL_cdrzd21979zd2_953 = ((((obj_t)((long)BgL_formalsz00_39 - 3))->pair_t).cdr); if (((((long)BgL_cdrzd21979zd2_953) & ((1 << 2) - 1)) == 3)) { if (BGl_equalzf3zf3zz__r4_equivalence_6_2z00(((((obj_t)((long)BgL_cdrzd21979zd2_953 - 3))->pair_t).cdr), ((obj_t)(obj_t)((long)(((long)(0) << 2) | 2))))) { goto BgL_tagzd21966zd2_943; } else { obj_t BgL_cdrzd21986zd2_956; BgL_cdrzd21986zd2_956 = ((((obj_t)((long)BgL_cdrzd21979zd2_953 - 3))->pair_t).cdr); if (((((long)BgL_cdrzd21986zd2_956) & ((1 << 2) - 1)) == 3)) { if (BGl_equalzf3zf3zz__r4_equivalence_6_2z00(((((obj_t)((long)BgL_cdrzd21986zd2_956 - 3))->pair_t).cdr), ((obj_t)(obj_t)((long)(((long)(0) << 2) | 2))))) { goto BgL_tagzd21966zd2_943; } else { obj_t BgL_cdrzd21994zd2_959; { obj_t BgL_auxz00_4119; BgL_auxz00_4119 = ((((obj_t)((long)BgL_cdrzd21979zd2_953 - 3))->pair_t).cdr); BgL_cdrzd21994zd2_959 = ((((obj_t)((long)BgL_auxz00_4119 - 3))->pair_t).cdr); } if (((((long)BgL_cdrzd21994zd2_959) & ((1 << 2) - 1)) == 3)) { if (BGl_equalzf3zf3zz__r4_equivalence_6_2z00(((((obj_t)((long)BgL_cdrzd21994zd2_959 - 3))->pair_t).cdr), ((obj_t)(obj_t)((long)(((long)(0) << 2) | 2))))) { goto BgL_tagzd21966zd2_943; } else { bool_t BgL_testz00_4127; { obj_t BgL_auxz00_4128; BgL_auxz00_4128 = ((((obj_t)((long)BgL_formalsz00_39 - 3))->pair_t).car); BgL_testz00_4127 = ((((long)BgL_auxz00_4128) & ((1 << 2) - 1)) == 3); } if (BgL_testz00_4127) { BgL_tagzd21971zd2_948: if ((BgL_namedzf3zf3_42 != ((obj_t)(obj_t)((long)(((long)(1) << 2) | 2))))) { obj_t BgL_v1053z00_1026; { int BgL_auxz00_4133; BgL_auxz00_4133 = (int) (( (long) 3)); BgL_v1053z00_1026 = create_vector (BgL_auxz00_4133); } { obj_t BgL_arg1609z00_1028; { obj_t BgL_v1054z00_1029; { int BgL_auxz00_4136; BgL_auxz00_4136 = (int) (((long) 3)); BgL_v1054z00_1029 = create_vector (BgL_auxz00_4136); } { int BgL_auxz00_4139; BgL_auxz00_4139 = (int) (((long) 2)); ((&(((obj_t)(BgL_v1054z00_1029))->vector_t.obj0))[ BgL_auxz00_4139 ] = BgL_formalsz00_39, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { int BgL_auxz00_4142; BgL_auxz00_4142 = (int) (((long) 1)); ((&(((obj_t)(BgL_v1054z00_1029))->vector_t.obj0))[ BgL_auxz00_4142 ] = BgL_bodyz00_40, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { int BgL_auxz00_4145; BgL_auxz00_4145 = (int) (((long) 0)); ((&(((obj_t)(BgL_v1054z00_1029))->vector_t.obj0))[ BgL_auxz00_4145 ] = BgL_wherez00_41, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } BgL_arg1609z00_1028 = BgL_v1054z00_1029; } { int BgL_auxz00_4148; BgL_auxz00_4148 = (int) ( ((long) 2)); ((&(((obj_t)(BgL_v1053z00_1026))->vector_t.obj0))[ BgL_auxz00_4148 ] = BgL_arg1609z00_1028, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } } { int BgL_auxz00_4151; BgL_auxz00_4151 = (int) (( (long) 1)); ((&(((obj_t)(BgL_v1053z00_1026))->vector_t.obj0))[ BgL_auxz00_4151 ] = BgL_locz00_43, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { obj_t BgL_auxz00_4156; int BgL_auxz00_4154; BgL_auxz00_4156 = (obj_t)((long)(((long)(( (long) 55)) << 2) | 1)); BgL_auxz00_4154 = (int) (( (long) 0)); ((&(((obj_t)(BgL_v1053z00_1026))->vector_t.obj0))[ BgL_auxz00_4154 ] = BgL_auxz00_4156, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } return BgL_v1053z00_1026; } else { obj_t BgL_v1055z00_1030; { int BgL_auxz00_4159; BgL_auxz00_4159 = (int) (( (long) 3)); BgL_v1055z00_1030 = create_vector (BgL_auxz00_4159); } { obj_t BgL_arg1611z00_1032; BgL_arg1611z00_1032 = make_pair( BgL_bodyz00_40, BgL_formalsz00_39 ); { int BgL_auxz00_4163; BgL_auxz00_4163 = (int) ( ((long) 2)); ((&(((obj_t)(BgL_v1055z00_1030))->vector_t.obj0))[ BgL_auxz00_4163 ] = BgL_arg1611z00_1032, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } } { int BgL_auxz00_4166; BgL_auxz00_4166 = (int) (( (long) 1)); ((&(((obj_t)(BgL_v1055z00_1030))->vector_t.obj0))[ BgL_auxz00_4166 ] = BgL_locz00_43, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { obj_t BgL_auxz00_4171; int BgL_auxz00_4169; BgL_auxz00_4171 = (obj_t)((long)(((long)(( (long) 56)) << 2) | 1)); BgL_auxz00_4169 = (int) (( (long) 0)); ((&(((obj_t)(BgL_v1055z00_1030))->vector_t.obj0))[ BgL_auxz00_4169 ] = BgL_auxz00_4171, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } return BgL_v1055z00_1030; } } else { bool_t BgL_testz00_4174; { obj_t BgL_auxz00_4175; { obj_t BgL_auxz00_4176; BgL_auxz00_4176 = ((((obj_t)((long)BgL_formalsz00_39 - 3))->pair_t).cdr); BgL_auxz00_4175 = ((((obj_t)((long)BgL_auxz00_4176 - 3))->pair_t).car); } BgL_testz00_4174 = ((((long)BgL_auxz00_4175) & ((1 << 2) - 1)) == 3); } if (BgL_testz00_4174) { goto BgL_tagzd21971zd2_948; } else { bool_t BgL_testz00_4180; { obj_t BgL_auxz00_4181; { obj_t BgL_auxz00_4182; { obj_t BgL_auxz00_4183; BgL_auxz00_4183 = ((((obj_t)((long)BgL_formalsz00_39 - 3))->pair_t).cdr); BgL_auxz00_4182 = ((((obj_t)((long)BgL_auxz00_4183 - 3))->pair_t).cdr); } BgL_auxz00_4181 = ((((obj_t)((long)BgL_auxz00_4182 - 3))->pair_t).car); } BgL_testz00_4180 = ((((long)BgL_auxz00_4181) & ((1 << 2) - 1)) == 3); } if (BgL_testz00_4180) { goto BgL_tagzd21971zd2_948; } else { goto BgL_tagzd21971zd2_948; } } } } } else { bool_t BgL_testz00_4188; { obj_t BgL_auxz00_4189; BgL_auxz00_4189 = ((((obj_t)((long)BgL_formalsz00_39 - 3))->pair_t).car); BgL_testz00_4188 = ((((long)BgL_auxz00_4189) & ((1 << 2) - 1)) == 3); } if (BgL_testz00_4188) { goto BgL_tagzd21971zd2_948; } else { bool_t BgL_testz00_4192; { obj_t BgL_auxz00_4193; { obj_t BgL_auxz00_4194; BgL_auxz00_4194 = ((((obj_t)((long)BgL_formalsz00_39 - 3))->pair_t).cdr); BgL_auxz00_4193 = ((((obj_t)((long)BgL_auxz00_4194 - 3))->pair_t).car); } BgL_testz00_4192 = ((((long)BgL_auxz00_4193) & ((1 << 2) - 1)) == 3); } if (BgL_testz00_4192) { goto BgL_tagzd21971zd2_948; } else { bool_t BgL_testz00_4198; { obj_t BgL_auxz00_4199; { obj_t BgL_auxz00_4200; { obj_t BgL_auxz00_4201; BgL_auxz00_4201 = ((((obj_t)((long)BgL_formalsz00_39 - 3))->pair_t).cdr); BgL_auxz00_4200 = ((((obj_t)((long)BgL_auxz00_4201 - 3))->pair_t).cdr); } BgL_auxz00_4199 = ((((obj_t)((long)BgL_auxz00_4200 - 3))->pair_t).car); } BgL_testz00_4198 = ((((long)BgL_auxz00_4199) & ((1 << 2) - 1)) == 3); } if (BgL_testz00_4198) { goto BgL_tagzd21971zd2_948; } else { if ((BgL_namedzf3zf3_42 != ((obj_t)(obj_t)((long)(((long)(1) << 2) | 2))))) { obj_t BgL_v1051z00_1022; { int BgL_auxz00_4208; BgL_auxz00_4208 = (int) (((long) 3)); BgL_v1051z00_1022 = create_vector (BgL_auxz00_4208); } { obj_t BgL_arg1607z00_1024; BgL_arg1607z00_1024 = make_pair( BgL_wherez00_41, BgL_bodyz00_40 ); { int BgL_auxz00_4212; BgL_auxz00_4212 = (int) (((long) 2)); ((&(((obj_t)(BgL_v1051z00_1022))->vector_t.obj0))[ BgL_auxz00_4212 ] = BgL_arg1607z00_1024, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } } { int BgL_auxz00_4215; BgL_auxz00_4215 = (int) (((long) 1)); ((&(((obj_t)(BgL_v1051z00_1022))->vector_t.obj0))[ BgL_auxz00_4215 ] = BgL_locz00_43, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { obj_t BgL_auxz00_4220; int BgL_auxz00_4218; BgL_auxz00_4220 = (obj_t)((long)(((long)(((long) 50)) << 2) | 1)); BgL_auxz00_4218 = (int) (((long) 0)); ((&(((obj_t)(BgL_v1051z00_1022))->vector_t.obj0))[ BgL_auxz00_4218 ] = BgL_auxz00_4220, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } return BgL_v1051z00_1022; } else { obj_t BgL_v1052z00_1025; { int BgL_auxz00_4223; BgL_auxz00_4223 = (int) (((long) 3)); BgL_v1052z00_1025 = create_vector (BgL_auxz00_4223); } { int BgL_auxz00_4226; BgL_auxz00_4226 = (int) (((long) 2)); ((&(((obj_t)(BgL_v1052z00_1025))->vector_t.obj0))[ BgL_auxz00_4226 ] = BgL_bodyz00_40, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { int BgL_auxz00_4229; BgL_auxz00_4229 = (int) (((long) 1)); ((&(((obj_t)(BgL_v1052z00_1025))->vector_t.obj0))[ BgL_auxz00_4229 ] = BgL_locz00_43, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { obj_t BgL_auxz00_4234; int BgL_auxz00_4232; BgL_auxz00_4234 = (obj_t)((long)(((long)(((long) 54)) << 2) | 1)); BgL_auxz00_4232 = (int) (((long) 0)); ((&(((obj_t)(BgL_v1052z00_1025))->vector_t.obj0))[ BgL_auxz00_4232 ] = BgL_auxz00_4234, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } return BgL_v1052z00_1025; } } } } } } } else { bool_t BgL_testz00_4237; { obj_t BgL_auxz00_4238; BgL_auxz00_4238 = ((((obj_t)((long)BgL_formalsz00_39 - 3))->pair_t).car); BgL_testz00_4237 = ((((long)BgL_auxz00_4238) & ((1 << 2) - 1)) == 3); } if (BgL_testz00_4237) { goto BgL_tagzd21971zd2_948; } else { bool_t BgL_testz00_4241; { obj_t BgL_auxz00_4242; BgL_auxz00_4242 = ((((obj_t)((long)BgL_cdrzd21979zd2_953 - 3))->pair_t).car); BgL_testz00_4241 = ((((long)BgL_auxz00_4242) & ((1 << 2) - 1)) == 3); } if (BgL_testz00_4241) { goto BgL_tagzd21971zd2_948; } else { if ((BgL_namedzf3zf3_42 != ((obj_t)(obj_t)((long)(((long)(1) << 2) | 2))))) { obj_t BgL_v1049z00_1018; { int BgL_auxz00_4247; BgL_auxz00_4247 = (int) (((long) 3)); BgL_v1049z00_1018 = create_vector (BgL_auxz00_4247); } { obj_t BgL_arg1605z00_1020; BgL_arg1605z00_1020 = make_pair( BgL_wherez00_41, BgL_bodyz00_40 ); { int BgL_auxz00_4251; BgL_auxz00_4251 = (int) (((long) 2)); ((&(((obj_t)(BgL_v1049z00_1018))->vector_t.obj0))[ BgL_auxz00_4251 ] = BgL_arg1605z00_1020, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } } { int BgL_auxz00_4254; BgL_auxz00_4254 = (int) (((long) 1)); ((&(((obj_t)(BgL_v1049z00_1018))->vector_t.obj0))[ BgL_auxz00_4254 ] = BgL_locz00_43, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { obj_t BgL_auxz00_4259; int BgL_auxz00_4257; BgL_auxz00_4259 = (obj_t)((long)(((long)(((long) 49)) << 2) | 1)); BgL_auxz00_4257 = (int) (((long) 0)); ((&(((obj_t)(BgL_v1049z00_1018))->vector_t.obj0))[ BgL_auxz00_4257 ] = BgL_auxz00_4259, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } return BgL_v1049z00_1018; } else { obj_t BgL_v1050z00_1021; { int BgL_auxz00_4262; BgL_auxz00_4262 = (int) (((long) 3)); BgL_v1050z00_1021 = create_vector (BgL_auxz00_4262); } { int BgL_auxz00_4265; BgL_auxz00_4265 = (int) (((long) 2)); ((&(((obj_t)(BgL_v1050z00_1021))->vector_t.obj0))[ BgL_auxz00_4265 ] = BgL_bodyz00_40, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { int BgL_auxz00_4268; BgL_auxz00_4268 = (int) (((long) 1)); ((&(((obj_t)(BgL_v1050z00_1021))->vector_t.obj0))[ BgL_auxz00_4268 ] = BgL_locz00_43, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { obj_t BgL_auxz00_4273; int BgL_auxz00_4271; BgL_auxz00_4273 = (obj_t)((long)(((long)(((long) 53)) << 2) | 1)); BgL_auxz00_4271 = (int) (((long) 0)); ((&(((obj_t)(BgL_v1050z00_1021))->vector_t.obj0))[ BgL_auxz00_4271 ] = BgL_auxz00_4273, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } return BgL_v1050z00_1021; } } } } } } else { bool_t BgL_testz00_4276; { obj_t BgL_auxz00_4277; BgL_auxz00_4277 = ((((obj_t)((long)BgL_formalsz00_39 - 3))->pair_t).car); BgL_testz00_4276 = ((((long)BgL_auxz00_4277) & ((1 << 2) - 1)) == 3); } if (BgL_testz00_4276) { goto BgL_tagzd21971zd2_948; } else { if ((BgL_namedzf3zf3_42 != ((obj_t)(obj_t)((long)(((long)(1) << 2) | 2))))) { obj_t BgL_v1047z00_1014; { int BgL_auxz00_4282; BgL_auxz00_4282 = (int) (((long) 3)); BgL_v1047z00_1014 = create_vector(BgL_auxz00_4282); } { obj_t BgL_arg1603z00_1016; BgL_arg1603z00_1016 = make_pair( BgL_wherez00_41, BgL_bodyz00_40 ); { int BgL_auxz00_4286; BgL_auxz00_4286 = (int) (((long) 2)); ((&(((obj_t)(BgL_v1047z00_1014))->vector_t.obj0))[ BgL_auxz00_4286 ] = BgL_arg1603z00_1016, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } } { int BgL_auxz00_4289; BgL_auxz00_4289 = (int) (((long) 1)); ((&(((obj_t)(BgL_v1047z00_1014))->vector_t.obj0))[ BgL_auxz00_4289 ] = BgL_locz00_43, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { obj_t BgL_auxz00_4294; int BgL_auxz00_4292; BgL_auxz00_4294 = (obj_t)((long)(((long)(((long) 48)) << 2) | 1)); BgL_auxz00_4292 = (int) (((long) 0)); ((&(((obj_t)(BgL_v1047z00_1014))->vector_t.obj0))[ BgL_auxz00_4292 ] = BgL_auxz00_4294, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } return BgL_v1047z00_1014; } else { obj_t BgL_v1048z00_1017; { int BgL_auxz00_4297; BgL_auxz00_4297 = (int) (((long) 3)); BgL_v1048z00_1017 = create_vector(BgL_auxz00_4297); } { int BgL_auxz00_4300; BgL_auxz00_4300 = (int) (((long) 2)); ((&(((obj_t)(BgL_v1048z00_1017))->vector_t.obj0))[ BgL_auxz00_4300 ] = BgL_bodyz00_40, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { int BgL_auxz00_4303; BgL_auxz00_4303 = (int) (((long) 1)); ((&(((obj_t)(BgL_v1048z00_1017))->vector_t.obj0))[ BgL_auxz00_4303 ] = BgL_locz00_43, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { obj_t BgL_auxz00_4308; int BgL_auxz00_4306; BgL_auxz00_4308 = (obj_t)((long)(((long)(((long) 52)) << 2) | 1)); BgL_auxz00_4306 = (int) (((long) 0)); ((&(((obj_t)(BgL_v1048z00_1017))->vector_t.obj0))[ BgL_auxz00_4306 ] = BgL_auxz00_4308, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } return BgL_v1048z00_1017; } } } } } else { if ((BgL_namedzf3zf3_42 != ((obj_t)(obj_t)((long)(((long)(1) << 2) | 2))))) { obj_t BgL_v1045z00_1010; { int BgL_auxz00_4313; BgL_auxz00_4313 = (int) (((long) 3)); BgL_v1045z00_1010 = create_vector(BgL_auxz00_4313); } { obj_t BgL_arg1601z00_1012; BgL_arg1601z00_1012 = make_pair( BgL_wherez00_41, BgL_bodyz00_40 ); { int BgL_auxz00_4317; BgL_auxz00_4317 = (int) (((long) 2)); ((&(((obj_t)(BgL_v1045z00_1010))->vector_t.obj0))[ BgL_auxz00_4317 ] = BgL_arg1601z00_1012, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } } { int BgL_auxz00_4320; BgL_auxz00_4320 = (int) (((long) 1)); ((&(((obj_t)(BgL_v1045z00_1010))->vector_t.obj0))[ BgL_auxz00_4320 ] = BgL_locz00_43, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { obj_t BgL_auxz00_4325; int BgL_auxz00_4323; BgL_auxz00_4325 = (obj_t)((long)(((long)(((long) 47)) << 2) | 1)); BgL_auxz00_4323 = (int) (((long) 0)); ((&(((obj_t)(BgL_v1045z00_1010))->vector_t.obj0))[ BgL_auxz00_4323 ] = BgL_auxz00_4325, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } return BgL_v1045z00_1010; } else { obj_t BgL_v1046z00_1013; { int BgL_auxz00_4328; BgL_auxz00_4328 = (int) (((long) 3)); BgL_v1046z00_1013 = create_vector(BgL_auxz00_4328); } { int BgL_auxz00_4331; BgL_auxz00_4331 = (int) (((long) 2)); ((&(((obj_t)(BgL_v1046z00_1013))->vector_t.obj0))[ BgL_auxz00_4331 ] = BgL_bodyz00_40, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { int BgL_auxz00_4334; BgL_auxz00_4334 = (int) (((long) 1)); ((&(((obj_t)(BgL_v1046z00_1013))->vector_t.obj0))[ BgL_auxz00_4334 ] = BgL_locz00_43, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { obj_t BgL_auxz00_4339; int BgL_auxz00_4337; BgL_auxz00_4339 = (obj_t)((long)(((long)(((long) 51)) << 2) | 1)); BgL_auxz00_4337 = (int) (((long) 0)); ((&(((obj_t)(BgL_v1046z00_1013))->vector_t.obj0))[ BgL_auxz00_4337 ] = BgL_auxz00_4339, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } return BgL_v1046z00_1013; } } } } } } obj_t BGl_evcompilezd2globalzd2applicationz00zz__evcompilez00(obj_t BgL_procz00_44, obj_t BgL_actualsz00_45, obj_t BgL_locz00_46) { ; { { switch (bgl_list_length(BgL_actualsz00_45)) { case ((long) 0): { obj_t BgL_v1060z00_1036; { int BgL_auxz00_4342; BgL_auxz00_4342 = (int) (((long) 3)); BgL_v1060z00_1036 = create_vector(BgL_auxz00_4342); } { obj_t BgL_arg1614z00_1038; { obj_t BgL_v1061z00_1039; { int BgL_auxz00_4345; BgL_auxz00_4345 = (int) (((long) 2)); BgL_v1061z00_1039 = create_vector(BgL_auxz00_4345); } { int BgL_auxz00_4348; BgL_auxz00_4348 = (int) (((long) 1)); ((&(((obj_t)(BgL_v1061z00_1039))->vector_t.obj0))[ BgL_auxz00_4348 ] = BgL_procz00_44, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { obj_t BgL_auxz00_4353; int BgL_auxz00_4351; { int BgL_auxz00_4354; BgL_auxz00_4354 = (int) (((long) 1)); BgL_auxz00_4353 = (&(((obj_t)(BgL_procz00_44))->vector_t.obj0))[ BgL_auxz00_4354 ]; } BgL_auxz00_4351 = (int) (((long) 0)); ((&(((obj_t)(BgL_v1061z00_1039))->vector_t.obj0))[ BgL_auxz00_4351 ] = BgL_auxz00_4353, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } BgL_arg1614z00_1038 = BgL_v1061z00_1039; } { int BgL_auxz00_4358; BgL_auxz00_4358 = (int) (((long) 2)); ((&(((obj_t)(BgL_v1060z00_1036))->vector_t.obj0))[ BgL_auxz00_4358 ] = BgL_arg1614z00_1038, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } } { int BgL_auxz00_4361; BgL_auxz00_4361 = (int) (((long) 1)); ((&(((obj_t)(BgL_v1060z00_1036))->vector_t.obj0))[ BgL_auxz00_4361 ] = BgL_locz00_46, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { long BgL_arg1618z00_1043; { bool_t BgL_testz00_4364; { obj_t BgL_auxz00_4369; obj_t BgL_auxz00_4365; BgL_auxz00_4369 = (obj_t)((long)(((long)(((long) 1)) << 2) | 1)); { int BgL_auxz00_4366; BgL_auxz00_4366 = (int) (((long) 0)); BgL_auxz00_4365 = (&(((obj_t)(BgL_procz00_44))->vector_t.obj0))[ BgL_auxz00_4366 ]; } BgL_testz00_4364 = (BgL_auxz00_4365 == BgL_auxz00_4369); } if (BgL_testz00_4364) { BgL_arg1618z00_1043 = ((long) 19); } else { BgL_arg1618z00_1043 = ((long) 57); } } { obj_t BgL_auxz00_4374; int BgL_auxz00_4372; BgL_auxz00_4374 = (obj_t)((long)(((long)(BgL_arg1618z00_1043) << 2) | 1)); BgL_auxz00_4372 = (int) (((long) 0)); ((&(((obj_t)(BgL_v1060z00_1036))->vector_t.obj0))[ BgL_auxz00_4372 ] = BgL_auxz00_4374, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } } return BgL_v1060z00_1036; } break; case ((long) 1): { obj_t BgL_v1062z00_1047; { int BgL_auxz00_4377; BgL_auxz00_4377 = (int) (((long) 3)); BgL_v1062z00_1047 = create_vector(BgL_auxz00_4377); } { obj_t BgL_arg1623z00_1049; { obj_t BgL_v1063z00_1050; { int BgL_auxz00_4380; BgL_auxz00_4380 = (int) (((long) 3)); BgL_v1063z00_1050 = create_vector(BgL_auxz00_4380); } { obj_t BgL_auxz00_4385; int BgL_auxz00_4383; BgL_auxz00_4385 = ((((obj_t)((long)BgL_actualsz00_45 - 3))->pair_t).car); BgL_auxz00_4383 = (int) (((long) 2)); ((&(((obj_t)(BgL_v1063z00_1050))->vector_t.obj0))[ BgL_auxz00_4383 ] = BgL_auxz00_4385, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { int BgL_auxz00_4388; BgL_auxz00_4388 = (int) (((long) 1)); ((&(((obj_t)(BgL_v1063z00_1050))->vector_t.obj0))[ BgL_auxz00_4388 ] = BgL_procz00_44, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { obj_t BgL_auxz00_4393; int BgL_auxz00_4391; { int BgL_auxz00_4394; BgL_auxz00_4394 = (int) (((long) 1)); BgL_auxz00_4393 = (&(((obj_t)(BgL_procz00_44))->vector_t.obj0))[ BgL_auxz00_4394 ]; } BgL_auxz00_4391 = (int) (((long) 0)); ((&(((obj_t)(BgL_v1063z00_1050))->vector_t.obj0))[ BgL_auxz00_4391 ] = BgL_auxz00_4393, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } BgL_arg1623z00_1049 = BgL_v1063z00_1050; } { int BgL_auxz00_4398; BgL_auxz00_4398 = (int) (((long) 2)); ((&(((obj_t)(BgL_v1062z00_1047))->vector_t.obj0))[ BgL_auxz00_4398 ] = BgL_arg1623z00_1049, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } } { int BgL_auxz00_4401; BgL_auxz00_4401 = (int) (((long) 1)); ((&(((obj_t)(BgL_v1062z00_1047))->vector_t.obj0))[ BgL_auxz00_4401 ] = BgL_locz00_46, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { long BgL_arg1629z00_1056; { bool_t BgL_testz00_4404; { obj_t BgL_auxz00_4409; obj_t BgL_auxz00_4405; BgL_auxz00_4409 = (obj_t)((long)(((long)(((long) 1)) << 2) | 1)); { int BgL_auxz00_4406; BgL_auxz00_4406 = (int) (((long) 0)); BgL_auxz00_4405 = (&(((obj_t)(BgL_procz00_44))->vector_t.obj0))[ BgL_auxz00_4406 ]; } BgL_testz00_4404 = (BgL_auxz00_4405 == BgL_auxz00_4409); } if (BgL_testz00_4404) { BgL_arg1629z00_1056 = ((long) 20); } else { BgL_arg1629z00_1056 = ((long) 58); } } { obj_t BgL_auxz00_4414; int BgL_auxz00_4412; BgL_auxz00_4414 = (obj_t)((long)(((long)(BgL_arg1629z00_1056) << 2) | 1)); BgL_auxz00_4412 = (int) (((long) 0)); ((&(((obj_t)(BgL_v1062z00_1047))->vector_t.obj0))[ BgL_auxz00_4412 ] = BgL_auxz00_4414, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } } return BgL_v1062z00_1047; } break; case ((long) 2): { obj_t BgL_v1064z00_1060; { int BgL_auxz00_4417; BgL_auxz00_4417 = (int) (((long) 3)); BgL_v1064z00_1060 = create_vector(BgL_auxz00_4417); } { obj_t BgL_arg1634z00_1062; { obj_t BgL_v1065z00_1063; { int BgL_auxz00_4420; BgL_auxz00_4420 = (int) (((long) 4)); BgL_v1065z00_1063 = create_vector(BgL_auxz00_4420); } { obj_t BgL_auxz00_4425; int BgL_auxz00_4423; { obj_t BgL_auxz00_4426; BgL_auxz00_4426 = ((((obj_t)((long)BgL_actualsz00_45 - 3))->pair_t).cdr); BgL_auxz00_4425 = ((((obj_t)((long)BgL_auxz00_4426 - 3))->pair_t).car); } BgL_auxz00_4423 = (int) (((long) 3)); ((&(((obj_t)(BgL_v1065z00_1063))->vector_t.obj0))[ BgL_auxz00_4423 ] = BgL_auxz00_4425, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { obj_t BgL_auxz00_4432; int BgL_auxz00_4430; BgL_auxz00_4432 = ((((obj_t)((long)BgL_actualsz00_45 - 3))->pair_t).car); BgL_auxz00_4430 = (int) (((long) 2)); ((&(((obj_t)(BgL_v1065z00_1063))->vector_t.obj0))[ BgL_auxz00_4430 ] = BgL_auxz00_4432, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { int BgL_auxz00_4435; BgL_auxz00_4435 = (int) (((long) 1)); ((&(((obj_t)(BgL_v1065z00_1063))->vector_t.obj0))[ BgL_auxz00_4435 ] = BgL_procz00_44, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { obj_t BgL_auxz00_4440; int BgL_auxz00_4438; { int BgL_auxz00_4441; BgL_auxz00_4441 = (int) (((long) 1)); BgL_auxz00_4440 = (&(((obj_t)(BgL_procz00_44))->vector_t.obj0))[ BgL_auxz00_4441 ]; } BgL_auxz00_4438 = (int) (((long) 0)); ((&(((obj_t)(BgL_v1065z00_1063))->vector_t.obj0))[ BgL_auxz00_4438 ] = BgL_auxz00_4440, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } BgL_arg1634z00_1062 = BgL_v1065z00_1063; } { int BgL_auxz00_4445; BgL_auxz00_4445 = (int) (((long) 2)); ((&(((obj_t)(BgL_v1064z00_1060))->vector_t.obj0))[ BgL_auxz00_4445 ] = BgL_arg1634z00_1062, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } } { int BgL_auxz00_4448; BgL_auxz00_4448 = (int) (((long) 1)); ((&(((obj_t)(BgL_v1064z00_1060))->vector_t.obj0))[ BgL_auxz00_4448 ] = BgL_locz00_46, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { long BgL_arg1642z00_1071; { bool_t BgL_testz00_4451; { obj_t BgL_auxz00_4456; obj_t BgL_auxz00_4452; BgL_auxz00_4456 = (obj_t)((long)(((long)(((long) 1)) << 2) | 1)); { int BgL_auxz00_4453; BgL_auxz00_4453 = (int) (((long) 0)); BgL_auxz00_4452 = (&(((obj_t)(BgL_procz00_44))->vector_t.obj0))[ BgL_auxz00_4453 ]; } BgL_testz00_4451 = (BgL_auxz00_4452 == BgL_auxz00_4456); } if (BgL_testz00_4451) { BgL_arg1642z00_1071 = ((long) 21); } else { BgL_arg1642z00_1071 = ((long) 59); } } { obj_t BgL_auxz00_4461; int BgL_auxz00_4459; BgL_auxz00_4461 = (obj_t)((long)(((long)(BgL_arg1642z00_1071) << 2) | 1)); BgL_auxz00_4459 = (int) (((long) 0)); ((&(((obj_t)(BgL_v1064z00_1060))->vector_t.obj0))[ BgL_auxz00_4459 ] = BgL_auxz00_4461, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } } return BgL_v1064z00_1060; } break; case ((long) 3): { obj_t BgL_v1066z00_1075; { int BgL_auxz00_4464; BgL_auxz00_4464 = (int) (((long) 3)); BgL_v1066z00_1075 = create_vector(BgL_auxz00_4464); } { obj_t BgL_arg1647z00_1077; { obj_t BgL_v1067z00_1078; { int BgL_auxz00_4467; BgL_auxz00_4467 = (int) (((long) 5)); BgL_v1067z00_1078 = create_vector(BgL_auxz00_4467); } { obj_t BgL_auxz00_4472; int BgL_auxz00_4470; { obj_t BgL_auxz00_4473; { obj_t BgL_auxz00_4474; BgL_auxz00_4474 = ((((obj_t)((long)BgL_actualsz00_45 - 3))->pair_t).cdr); BgL_auxz00_4473 = ((((obj_t)((long)BgL_auxz00_4474 - 3))->pair_t).cdr); } BgL_auxz00_4472 = ((((obj_t)((long)BgL_auxz00_4473 - 3))->pair_t).car); } BgL_auxz00_4470 = (int) (((long) 4)); ((&(((obj_t)(BgL_v1067z00_1078))->vector_t.obj0))[ BgL_auxz00_4470 ] = BgL_auxz00_4472, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { obj_t BgL_auxz00_4481; int BgL_auxz00_4479; { obj_t BgL_auxz00_4482; BgL_auxz00_4482 = ((((obj_t)((long)BgL_actualsz00_45 - 3))->pair_t).cdr); BgL_auxz00_4481 = ((((obj_t)((long)BgL_auxz00_4482 - 3))->pair_t).car); } BgL_auxz00_4479 = (int) (((long) 3)); ((&(((obj_t)(BgL_v1067z00_1078))->vector_t.obj0))[ BgL_auxz00_4479 ] = BgL_auxz00_4481, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { obj_t BgL_auxz00_4488; int BgL_auxz00_4486; BgL_auxz00_4488 = ((((obj_t)((long)BgL_actualsz00_45 - 3))->pair_t).car); BgL_auxz00_4486 = (int) (((long) 2)); ((&(((obj_t)(BgL_v1067z00_1078))->vector_t.obj0))[ BgL_auxz00_4486 ] = BgL_auxz00_4488, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { int BgL_auxz00_4491; BgL_auxz00_4491 = (int) (((long) 1)); ((&(((obj_t)(BgL_v1067z00_1078))->vector_t.obj0))[ BgL_auxz00_4491 ] = BgL_procz00_44, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { obj_t BgL_auxz00_4496; int BgL_auxz00_4494; { int BgL_auxz00_4497; BgL_auxz00_4497 = (int) (((long) 1)); BgL_auxz00_4496 = (&(((obj_t)(BgL_procz00_44))->vector_t.obj0))[ BgL_auxz00_4497 ]; } BgL_auxz00_4494 = (int) (((long) 0)); ((&(((obj_t)(BgL_v1067z00_1078))->vector_t.obj0))[ BgL_auxz00_4494 ] = BgL_auxz00_4496, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } BgL_arg1647z00_1077 = BgL_v1067z00_1078; } { int BgL_auxz00_4501; BgL_auxz00_4501 = (int) (((long) 2)); ((&(((obj_t)(BgL_v1066z00_1075))->vector_t.obj0))[ BgL_auxz00_4501 ] = BgL_arg1647z00_1077, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } } { int BgL_auxz00_4504; BgL_auxz00_4504 = (int) (((long) 1)); ((&(((obj_t)(BgL_v1066z00_1075))->vector_t.obj0))[ BgL_auxz00_4504 ] = BgL_locz00_46, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { long BgL_arg1657z00_1088; { bool_t BgL_testz00_4507; { obj_t BgL_auxz00_4512; obj_t BgL_auxz00_4508; BgL_auxz00_4512 = (obj_t)((long)(((long)(((long) 1)) << 2) | 1)); { int BgL_auxz00_4509; BgL_auxz00_4509 = (int) (((long) 0)); BgL_auxz00_4508 = (&(((obj_t)(BgL_procz00_44))->vector_t.obj0))[ BgL_auxz00_4509 ]; } BgL_testz00_4507 = (BgL_auxz00_4508 == BgL_auxz00_4512); } if (BgL_testz00_4507) { BgL_arg1657z00_1088 = ((long) 22); } else { BgL_arg1657z00_1088 = ((long) 60); } } { obj_t BgL_auxz00_4517; int BgL_auxz00_4515; BgL_auxz00_4517 = (obj_t)((long)(((long)(BgL_arg1657z00_1088) << 2) | 1)); BgL_auxz00_4515 = (int) (((long) 0)); ((&(((obj_t)(BgL_v1066z00_1075))->vector_t.obj0))[ BgL_auxz00_4515 ] = BgL_auxz00_4517, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } } return BgL_v1066z00_1075; } break; case ((long) 4): { obj_t BgL_v1068z00_1092; { int BgL_auxz00_4520; BgL_auxz00_4520 = (int) (((long) 3)); BgL_v1068z00_1092 = create_vector(BgL_auxz00_4520); } { obj_t BgL_arg1662z00_1094; { obj_t BgL_v1069z00_1095; { int BgL_auxz00_4523; BgL_auxz00_4523 = (int) (((long) 6)); BgL_v1069z00_1095 = create_vector(BgL_auxz00_4523); } { obj_t BgL_auxz00_4528; int BgL_auxz00_4526; { obj_t BgL_auxz00_4529; { obj_t BgL_auxz00_4530; { obj_t BgL_auxz00_4531; BgL_auxz00_4531 = ((((obj_t)((long)BgL_actualsz00_45 - 3))->pair_t).cdr); BgL_auxz00_4530 = ((((obj_t)((long)BgL_auxz00_4531 - 3))->pair_t).cdr); } BgL_auxz00_4529 = ((((obj_t)((long)BgL_auxz00_4530 - 3))->pair_t).cdr); } BgL_auxz00_4528 = ((((obj_t)((long)BgL_auxz00_4529 - 3))->pair_t).car); } BgL_auxz00_4526 = (int) (((long) 5)); ((&(((obj_t)(BgL_v1069z00_1095))->vector_t.obj0))[ BgL_auxz00_4526 ] = BgL_auxz00_4528, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { obj_t BgL_auxz00_4539; int BgL_auxz00_4537; { obj_t BgL_auxz00_4540; { obj_t BgL_auxz00_4541; BgL_auxz00_4541 = ((((obj_t)((long)BgL_actualsz00_45 - 3))->pair_t).cdr); BgL_auxz00_4540 = ((((obj_t)((long)BgL_auxz00_4541 - 3))->pair_t).cdr); } BgL_auxz00_4539 = ((((obj_t)((long)BgL_auxz00_4540 - 3))->pair_t).car); } BgL_auxz00_4537 = (int) (((long) 4)); ((&(((obj_t)(BgL_v1069z00_1095))->vector_t.obj0))[ BgL_auxz00_4537 ] = BgL_auxz00_4539, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { obj_t BgL_auxz00_4548; int BgL_auxz00_4546; { obj_t BgL_auxz00_4549; BgL_auxz00_4549 = ((((obj_t)((long)BgL_actualsz00_45 - 3))->pair_t).cdr); BgL_auxz00_4548 = ((((obj_t)((long)BgL_auxz00_4549 - 3))->pair_t).car); } BgL_auxz00_4546 = (int) (((long) 3)); ((&(((obj_t)(BgL_v1069z00_1095))->vector_t.obj0))[ BgL_auxz00_4546 ] = BgL_auxz00_4548, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { obj_t BgL_auxz00_4555; int BgL_auxz00_4553; BgL_auxz00_4555 = ((((obj_t)((long)BgL_actualsz00_45 - 3))->pair_t).car); BgL_auxz00_4553 = (int) (((long) 2)); ((&(((obj_t)(BgL_v1069z00_1095))->vector_t.obj0))[ BgL_auxz00_4553 ] = BgL_auxz00_4555, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { int BgL_auxz00_4558; BgL_auxz00_4558 = (int) (((long) 1)); ((&(((obj_t)(BgL_v1069z00_1095))->vector_t.obj0))[ BgL_auxz00_4558 ] = BgL_procz00_44, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { obj_t BgL_auxz00_4563; int BgL_auxz00_4561; { int BgL_auxz00_4564; BgL_auxz00_4564 = (int) (((long) 1)); BgL_auxz00_4563 = (&(((obj_t)(BgL_procz00_44))->vector_t.obj0))[ BgL_auxz00_4564 ]; } BgL_auxz00_4561 = (int) (((long) 0)); ((&(((obj_t)(BgL_v1069z00_1095))->vector_t.obj0))[ BgL_auxz00_4561 ] = BgL_auxz00_4563, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } BgL_arg1662z00_1094 = BgL_v1069z00_1095; } { int BgL_auxz00_4568; BgL_auxz00_4568 = (int) (((long) 2)); ((&(((obj_t)(BgL_v1068z00_1092))->vector_t.obj0))[ BgL_auxz00_4568 ] = BgL_arg1662z00_1094, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } } { int BgL_auxz00_4571; BgL_auxz00_4571 = (int) (((long) 1)); ((&(((obj_t)(BgL_v1068z00_1092))->vector_t.obj0))[ BgL_auxz00_4571 ] = BgL_locz00_46, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { long BgL_arg1677z00_1107; { bool_t BgL_testz00_4574; { obj_t BgL_auxz00_4579; obj_t BgL_auxz00_4575; BgL_auxz00_4579 = (obj_t)((long)(((long)(((long) 1)) << 2) | 1)); { int BgL_auxz00_4576; BgL_auxz00_4576 = (int) (((long) 0)); BgL_auxz00_4575 = (&(((obj_t)(BgL_procz00_44))->vector_t.obj0))[ BgL_auxz00_4576 ]; } BgL_testz00_4574 = (BgL_auxz00_4575 == BgL_auxz00_4579); } if (BgL_testz00_4574) { BgL_arg1677z00_1107 = ((long) 23); } else { BgL_arg1677z00_1107 = ((long) 61); } } { obj_t BgL_auxz00_4584; int BgL_auxz00_4582; BgL_auxz00_4584 = (obj_t)((long)(((long)(BgL_arg1677z00_1107) << 2) | 1)); BgL_auxz00_4582 = (int) (((long) 0)); ((&(((obj_t)(BgL_v1068z00_1092))->vector_t.obj0))[ BgL_auxz00_4582 ] = BgL_auxz00_4584, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } } return BgL_v1068z00_1092; } break; default: { obj_t BgL_v1056z00_1111; { int BgL_auxz00_4587; BgL_auxz00_4587 = (int) (((long) 3)); BgL_v1056z00_1111 = create_vector(BgL_auxz00_4587); } { obj_t BgL_arg1682z00_1113; { obj_t BgL_v1057z00_1114; { int BgL_auxz00_4590; BgL_auxz00_4590 = (int) (((long) 3)); BgL_v1057z00_1114 = create_vector(BgL_auxz00_4590); } { int BgL_auxz00_4593; BgL_auxz00_4593 = (int) (((long) 2)); ((&(((obj_t)(BgL_v1057z00_1114))->vector_t.obj0))[ BgL_auxz00_4593 ] = BgL_actualsz00_45, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { int BgL_auxz00_4596; BgL_auxz00_4596 = (int) (((long) 1)); ((&(((obj_t)(BgL_v1057z00_1114))->vector_t.obj0))[ BgL_auxz00_4596 ] = BgL_procz00_44, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { obj_t BgL_auxz00_4601; int BgL_auxz00_4599; { int BgL_auxz00_4602; BgL_auxz00_4602 = (int) (((long) 1)); BgL_auxz00_4601 = (&(((obj_t)(BgL_procz00_44))->vector_t.obj0))[ BgL_auxz00_4602 ]; } BgL_auxz00_4599 = (int) (((long) 0)); ((&(((obj_t)(BgL_v1057z00_1114))->vector_t.obj0))[ BgL_auxz00_4599 ] = BgL_auxz00_4601, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } BgL_arg1682z00_1113 = BgL_v1057z00_1114; } { int BgL_auxz00_4606; BgL_auxz00_4606 = (int) (((long) 2)); ((&(((obj_t)(BgL_v1056z00_1111))->vector_t.obj0))[ BgL_auxz00_4606 ] = BgL_arg1682z00_1113, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } } { int BgL_auxz00_4609; BgL_auxz00_4609 = (int) (((long) 1)); ((&(((obj_t)(BgL_v1056z00_1111))->vector_t.obj0))[ BgL_auxz00_4609 ] = BgL_locz00_46, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { long BgL_arg1686z00_1118; { bool_t BgL_testz00_4612; { obj_t BgL_auxz00_4617; obj_t BgL_auxz00_4613; BgL_auxz00_4617 = (obj_t)((long)(((long)(((long) 1)) << 2) | 1)); { int BgL_auxz00_4614; BgL_auxz00_4614 = (int) (((long) 0)); BgL_auxz00_4613 = (&(((obj_t)(BgL_procz00_44))->vector_t.obj0))[ BgL_auxz00_4614 ]; } BgL_testz00_4612 = (BgL_auxz00_4613 == BgL_auxz00_4617); } if (BgL_testz00_4612) { BgL_arg1686z00_1118 = ((long) 24); } else { BgL_arg1686z00_1118 = ((long) 62); } } { obj_t BgL_auxz00_4622; int BgL_auxz00_4620; BgL_auxz00_4622 = (obj_t)((long)(((long)(BgL_arg1686z00_1118) << 2) | 1)); BgL_auxz00_4620 = (int) (((long) 0)); ((&(((obj_t)(BgL_v1056z00_1111))->vector_t.obj0))[ BgL_auxz00_4620 ] = BgL_auxz00_4622, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } } return BgL_v1056z00_1111; } } } } } obj_t BGl_evcompilezd2compiledzd2applicationz00zz__evcompilez00(obj_t BgL_procz00_47, obj_t BgL_actualsz00_48, obj_t BgL_locz00_49) { ; { { switch (bgl_list_length(BgL_actualsz00_48)) { case ((long) 0): { obj_t BgL_v1073z00_1125; { int BgL_auxz00_4627; BgL_auxz00_4627 = (int) (((long) 3)); BgL_v1073z00_1125 = create_vector(BgL_auxz00_4627); } { int BgL_auxz00_4630; BgL_auxz00_4630 = (int) (((long) 2)); ((&(((obj_t)(BgL_v1073z00_1125))->vector_t.obj0))[ BgL_auxz00_4630 ] = BgL_procz00_47, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { int BgL_auxz00_4633; BgL_auxz00_4633 = (int) (((long) 1)); ((&(((obj_t)(BgL_v1073z00_1125))->vector_t.obj0))[ BgL_auxz00_4633 ] = BgL_locz00_49, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { obj_t BgL_auxz00_4638; int BgL_auxz00_4636; BgL_auxz00_4638 = (obj_t)((long)(((long)(((long) 25)) << 2) | 1)); BgL_auxz00_4636 = (int) (((long) 0)); ((&(((obj_t)(BgL_v1073z00_1125))->vector_t.obj0))[ BgL_auxz00_4636 ] = BgL_auxz00_4638, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } return BgL_v1073z00_1125; } break; case ((long) 1): { obj_t BgL_v1074z00_1126; { int BgL_auxz00_4641; BgL_auxz00_4641 = (int) (((long) 3)); BgL_v1074z00_1126 = create_vector(BgL_auxz00_4641); } { obj_t BgL_arg1692z00_1128; { obj_t BgL_v1075z00_1129; { int BgL_auxz00_4644; BgL_auxz00_4644 = (int) (((long) 2)); BgL_v1075z00_1129 = create_vector(BgL_auxz00_4644); } { obj_t BgL_auxz00_4649; int BgL_auxz00_4647; BgL_auxz00_4649 = ((((obj_t)((long)BgL_actualsz00_48 - 3))->pair_t).car); BgL_auxz00_4647 = (int) (((long) 1)); ((&(((obj_t)(BgL_v1075z00_1129))->vector_t.obj0))[ BgL_auxz00_4647 ] = BgL_auxz00_4649, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { int BgL_auxz00_4652; BgL_auxz00_4652 = (int) (((long) 0)); ((&(((obj_t)(BgL_v1075z00_1129))->vector_t.obj0))[ BgL_auxz00_4652 ] = BgL_procz00_47, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } BgL_arg1692z00_1128 = BgL_v1075z00_1129; } { int BgL_auxz00_4655; BgL_auxz00_4655 = (int) (((long) 2)); ((&(((obj_t)(BgL_v1074z00_1126))->vector_t.obj0))[ BgL_auxz00_4655 ] = BgL_arg1692z00_1128, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } } { int BgL_auxz00_4658; BgL_auxz00_4658 = (int) (((long) 1)); ((&(((obj_t)(BgL_v1074z00_1126))->vector_t.obj0))[ BgL_auxz00_4658 ] = BgL_locz00_49, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { obj_t BgL_auxz00_4663; int BgL_auxz00_4661; BgL_auxz00_4663 = (obj_t)((long)(((long)(((long) 26)) << 2) | 1)); BgL_auxz00_4661 = (int) (((long) 0)); ((&(((obj_t)(BgL_v1074z00_1126))->vector_t.obj0))[ BgL_auxz00_4661 ] = BgL_auxz00_4663, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } return BgL_v1074z00_1126; } break; case ((long) 2): { obj_t BgL_v1076z00_1132; { int BgL_auxz00_4666; BgL_auxz00_4666 = (int) (((long) 3)); BgL_v1076z00_1132 = create_vector(BgL_auxz00_4666); } { obj_t BgL_arg1697z00_1134; { obj_t BgL_v1077z00_1135; { int BgL_auxz00_4669; BgL_auxz00_4669 = (int) (((long) 3)); BgL_v1077z00_1135 = create_vector(BgL_auxz00_4669); } { obj_t BgL_auxz00_4674; int BgL_auxz00_4672; { obj_t BgL_auxz00_4675; BgL_auxz00_4675 = ((((obj_t)((long)BgL_actualsz00_48 - 3))->pair_t).cdr); BgL_auxz00_4674 = ((((obj_t)((long)BgL_auxz00_4675 - 3))->pair_t).car); } BgL_auxz00_4672 = (int) (((long) 2)); ((&(((obj_t)(BgL_v1077z00_1135))->vector_t.obj0))[ BgL_auxz00_4672 ] = BgL_auxz00_4674, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { obj_t BgL_auxz00_4681; int BgL_auxz00_4679; BgL_auxz00_4681 = ((((obj_t)((long)BgL_actualsz00_48 - 3))->pair_t).car); BgL_auxz00_4679 = (int) (((long) 1)); ((&(((obj_t)(BgL_v1077z00_1135))->vector_t.obj0))[ BgL_auxz00_4679 ] = BgL_auxz00_4681, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { int BgL_auxz00_4684; BgL_auxz00_4684 = (int) (((long) 0)); ((&(((obj_t)(BgL_v1077z00_1135))->vector_t.obj0))[ BgL_auxz00_4684 ] = BgL_procz00_47, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } BgL_arg1697z00_1134 = BgL_v1077z00_1135; } { int BgL_auxz00_4687; BgL_auxz00_4687 = (int) (((long) 2)); ((&(((obj_t)(BgL_v1076z00_1132))->vector_t.obj0))[ BgL_auxz00_4687 ] = BgL_arg1697z00_1134, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } } { int BgL_auxz00_4690; BgL_auxz00_4690 = (int) (((long) 1)); ((&(((obj_t)(BgL_v1076z00_1132))->vector_t.obj0))[ BgL_auxz00_4690 ] = BgL_locz00_49, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { obj_t BgL_auxz00_4695; int BgL_auxz00_4693; BgL_auxz00_4695 = (obj_t)((long)(((long)(((long) 27)) << 2) | 1)); BgL_auxz00_4693 = (int) (((long) 0)); ((&(((obj_t)(BgL_v1076z00_1132))->vector_t.obj0))[ BgL_auxz00_4693 ] = BgL_auxz00_4695, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } return BgL_v1076z00_1132; } break; case ((long) 3): { obj_t BgL_v1078z00_1140; { int BgL_auxz00_4698; BgL_auxz00_4698 = (int) (((long) 3)); BgL_v1078z00_1140 = create_vector(BgL_auxz00_4698); } { obj_t BgL_arg1703z00_1142; { obj_t BgL_v1079z00_1143; { int BgL_auxz00_4701; BgL_auxz00_4701 = (int) (((long) 4)); BgL_v1079z00_1143 = create_vector(BgL_auxz00_4701); } { obj_t BgL_auxz00_4706; int BgL_auxz00_4704; { obj_t BgL_auxz00_4707; { obj_t BgL_auxz00_4708; BgL_auxz00_4708 = ((((obj_t)((long)BgL_actualsz00_48 - 3))->pair_t).cdr); BgL_auxz00_4707 = ((((obj_t)((long)BgL_auxz00_4708 - 3))->pair_t).cdr); } BgL_auxz00_4706 = ((((obj_t)((long)BgL_auxz00_4707 - 3))->pair_t).car); } BgL_auxz00_4704 = (int) (((long) 3)); ((&(((obj_t)(BgL_v1079z00_1143))->vector_t.obj0))[ BgL_auxz00_4704 ] = BgL_auxz00_4706, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { obj_t BgL_auxz00_4715; int BgL_auxz00_4713; { obj_t BgL_auxz00_4716; BgL_auxz00_4716 = ((((obj_t)((long)BgL_actualsz00_48 - 3))->pair_t).cdr); BgL_auxz00_4715 = ((((obj_t)((long)BgL_auxz00_4716 - 3))->pair_t).car); } BgL_auxz00_4713 = (int) (((long) 2)); ((&(((obj_t)(BgL_v1079z00_1143))->vector_t.obj0))[ BgL_auxz00_4713 ] = BgL_auxz00_4715, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { obj_t BgL_auxz00_4722; int BgL_auxz00_4720; BgL_auxz00_4722 = ((((obj_t)((long)BgL_actualsz00_48 - 3))->pair_t).car); BgL_auxz00_4720 = (int) (((long) 1)); ((&(((obj_t)(BgL_v1079z00_1143))->vector_t.obj0))[ BgL_auxz00_4720 ] = BgL_auxz00_4722, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { int BgL_auxz00_4725; BgL_auxz00_4725 = (int) (((long) 0)); ((&(((obj_t)(BgL_v1079z00_1143))->vector_t.obj0))[ BgL_auxz00_4725 ] = BgL_procz00_47, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } BgL_arg1703z00_1142 = BgL_v1079z00_1143; } { int BgL_auxz00_4728; BgL_auxz00_4728 = (int) (((long) 2)); ((&(((obj_t)(BgL_v1078z00_1140))->vector_t.obj0))[ BgL_auxz00_4728 ] = BgL_arg1703z00_1142, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } } { int BgL_auxz00_4731; BgL_auxz00_4731 = (int) (((long) 1)); ((&(((obj_t)(BgL_v1078z00_1140))->vector_t.obj0))[ BgL_auxz00_4731 ] = BgL_locz00_49, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { obj_t BgL_auxz00_4736; int BgL_auxz00_4734; BgL_auxz00_4736 = (obj_t)((long)(((long)(((long) 28)) << 2) | 1)); BgL_auxz00_4734 = (int) (((long) 0)); ((&(((obj_t)(BgL_v1078z00_1140))->vector_t.obj0))[ BgL_auxz00_4734 ] = BgL_auxz00_4736, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } return BgL_v1078z00_1140; } break; case ((long) 4): { obj_t BgL_v1080z00_1150; { int BgL_auxz00_4739; BgL_auxz00_4739 = (int) (((long) 3)); BgL_v1080z00_1150 = create_vector(BgL_auxz00_4739); } { obj_t BgL_arg1711z00_1152; { obj_t BgL_v1081z00_1153; { int BgL_auxz00_4742; BgL_auxz00_4742 = (int) (((long) 5)); BgL_v1081z00_1153 = create_vector(BgL_auxz00_4742); } { obj_t BgL_auxz00_4747; int BgL_auxz00_4745; { obj_t BgL_auxz00_4748; { obj_t BgL_auxz00_4749; { obj_t BgL_auxz00_4750; BgL_auxz00_4750 = ((((obj_t)((long)BgL_actualsz00_48 - 3))->pair_t).cdr); BgL_auxz00_4749 = ((((obj_t)((long)BgL_auxz00_4750 - 3))->pair_t).cdr); } BgL_auxz00_4748 = ((((obj_t)((long)BgL_auxz00_4749 - 3))->pair_t).cdr); } BgL_auxz00_4747 = ((((obj_t)((long)BgL_auxz00_4748 - 3))->pair_t).car); } BgL_auxz00_4745 = (int) (((long) 4)); ((&(((obj_t)(BgL_v1081z00_1153))->vector_t.obj0))[ BgL_auxz00_4745 ] = BgL_auxz00_4747, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { obj_t BgL_auxz00_4758; int BgL_auxz00_4756; { obj_t BgL_auxz00_4759; { obj_t BgL_auxz00_4760; BgL_auxz00_4760 = ((((obj_t)((long)BgL_actualsz00_48 - 3))->pair_t).cdr); BgL_auxz00_4759 = ((((obj_t)((long)BgL_auxz00_4760 - 3))->pair_t).cdr); } BgL_auxz00_4758 = ((((obj_t)((long)BgL_auxz00_4759 - 3))->pair_t).car); } BgL_auxz00_4756 = (int) (((long) 3)); ((&(((obj_t)(BgL_v1081z00_1153))->vector_t.obj0))[ BgL_auxz00_4756 ] = BgL_auxz00_4758, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { obj_t BgL_auxz00_4767; int BgL_auxz00_4765; { obj_t BgL_auxz00_4768; BgL_auxz00_4768 = ((((obj_t)((long)BgL_actualsz00_48 - 3))->pair_t).cdr); BgL_auxz00_4767 = ((((obj_t)((long)BgL_auxz00_4768 - 3))->pair_t).car); } BgL_auxz00_4765 = (int) (((long) 2)); ((&(((obj_t)(BgL_v1081z00_1153))->vector_t.obj0))[ BgL_auxz00_4765 ] = BgL_auxz00_4767, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { obj_t BgL_auxz00_4774; int BgL_auxz00_4772; BgL_auxz00_4774 = ((((obj_t)((long)BgL_actualsz00_48 - 3))->pair_t).car); BgL_auxz00_4772 = (int) (((long) 1)); ((&(((obj_t)(BgL_v1081z00_1153))->vector_t.obj0))[ BgL_auxz00_4772 ] = BgL_auxz00_4774, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { int BgL_auxz00_4777; BgL_auxz00_4777 = (int) (((long) 0)); ((&(((obj_t)(BgL_v1081z00_1153))->vector_t.obj0))[ BgL_auxz00_4777 ] = BgL_procz00_47, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } BgL_arg1711z00_1152 = BgL_v1081z00_1153; } { int BgL_auxz00_4780; BgL_auxz00_4780 = (int) (((long) 2)); ((&(((obj_t)(BgL_v1080z00_1150))->vector_t.obj0))[ BgL_auxz00_4780 ] = BgL_arg1711z00_1152, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } } { int BgL_auxz00_4783; BgL_auxz00_4783 = (int) (((long) 1)); ((&(((obj_t)(BgL_v1080z00_1150))->vector_t.obj0))[ BgL_auxz00_4783 ] = BgL_locz00_49, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { obj_t BgL_auxz00_4788; int BgL_auxz00_4786; BgL_auxz00_4788 = (obj_t)((long)(((long)(((long) 29)) << 2) | 1)); BgL_auxz00_4786 = (int) (((long) 0)); ((&(((obj_t)(BgL_v1080z00_1150))->vector_t.obj0))[ BgL_auxz00_4786 ] = BgL_auxz00_4788, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } return BgL_v1080z00_1150; } break; default: { obj_t BgL_v1070z00_1162; { int BgL_auxz00_4791; BgL_auxz00_4791 = (int) (((long) 3)); BgL_v1070z00_1162 = create_vector(BgL_auxz00_4791); } { obj_t BgL_arg1721z00_1164; BgL_arg1721z00_1164 = make_pair( BgL_procz00_47, BgL_actualsz00_48 ); { int BgL_auxz00_4795; BgL_auxz00_4795 = (int) (((long) 2)); ((&(((obj_t)(BgL_v1070z00_1162))->vector_t.obj0))[ BgL_auxz00_4795 ] = BgL_arg1721z00_1164, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } } { int BgL_auxz00_4798; BgL_auxz00_4798 = (int) (((long) 1)); ((&(((obj_t)(BgL_v1070z00_1162))->vector_t.obj0))[ BgL_auxz00_4798 ] = BgL_locz00_49, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { obj_t BgL_auxz00_4803; int BgL_auxz00_4801; BgL_auxz00_4803 = (obj_t)((long)(((long)(((long) 30)) << 2) | 1)); BgL_auxz00_4801 = (int) (((long) 0)); ((&(((obj_t)(BgL_v1070z00_1162))->vector_t.obj0))[ BgL_auxz00_4801 ] = BgL_auxz00_4803, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } return BgL_v1070z00_1162; } } } } } obj_t BGl_evcompilezd2applicationzd2zz__evcompilez00(obj_t BgL_namez00_50, obj_t BgL_procz00_51, obj_t BgL_actualsz00_52, obj_t BgL_locz00_53) { ; { { switch (bgl_list_length(BgL_actualsz00_52)) { case ((long) 0): { obj_t BgL_v1086z00_1168; { int BgL_auxz00_4808; BgL_auxz00_4808 = (int) (((long) 3)); BgL_v1086z00_1168 = create_vector(BgL_auxz00_4808); } { obj_t BgL_arg1724z00_1170; BgL_arg1724z00_1170 = make_pair( BgL_namez00_50, BgL_procz00_51 ); { int BgL_auxz00_4812; BgL_auxz00_4812 = (int) (((long) 2)); ((&(((obj_t)(BgL_v1086z00_1168))->vector_t.obj0))[ BgL_auxz00_4812 ] = BgL_arg1724z00_1170, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } } { int BgL_auxz00_4815; BgL_auxz00_4815 = (int) (((long) 1)); ((&(((obj_t)(BgL_v1086z00_1168))->vector_t.obj0))[ BgL_auxz00_4815 ] = BgL_locz00_53, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { obj_t BgL_auxz00_4820; int BgL_auxz00_4818; BgL_auxz00_4820 = (obj_t)((long)(((long)(((long) 31)) << 2) | 1)); BgL_auxz00_4818 = (int) (((long) 0)); ((&(((obj_t)(BgL_v1086z00_1168))->vector_t.obj0))[ BgL_auxz00_4818 ] = BgL_auxz00_4820, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } return BgL_v1086z00_1168; } break; case ((long) 1): { obj_t BgL_v1087z00_1171; { int BgL_auxz00_4823; BgL_auxz00_4823 = (int) (((long) 3)); BgL_v1087z00_1171 = create_vector(BgL_auxz00_4823); } { obj_t BgL_arg1726z00_1173; { obj_t BgL_v1088z00_1174; { int BgL_auxz00_4826; BgL_auxz00_4826 = (int) (((long) 3)); BgL_v1088z00_1174 = create_vector(BgL_auxz00_4826); } { obj_t BgL_auxz00_4831; int BgL_auxz00_4829; BgL_auxz00_4831 = ((((obj_t)((long)BgL_actualsz00_52 - 3))->pair_t).car); BgL_auxz00_4829 = (int) (((long) 2)); ((&(((obj_t)(BgL_v1088z00_1174))->vector_t.obj0))[ BgL_auxz00_4829 ] = BgL_auxz00_4831, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { int BgL_auxz00_4834; BgL_auxz00_4834 = (int) (((long) 1)); ((&(((obj_t)(BgL_v1088z00_1174))->vector_t.obj0))[ BgL_auxz00_4834 ] = BgL_procz00_51, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { int BgL_auxz00_4837; BgL_auxz00_4837 = (int) (((long) 0)); ((&(((obj_t)(BgL_v1088z00_1174))->vector_t.obj0))[ BgL_auxz00_4837 ] = BgL_namez00_50, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } BgL_arg1726z00_1173 = BgL_v1088z00_1174; } { int BgL_auxz00_4840; BgL_auxz00_4840 = (int) (((long) 2)); ((&(((obj_t)(BgL_v1087z00_1171))->vector_t.obj0))[ BgL_auxz00_4840 ] = BgL_arg1726z00_1173, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } } { int BgL_auxz00_4843; BgL_auxz00_4843 = (int) (((long) 1)); ((&(((obj_t)(BgL_v1087z00_1171))->vector_t.obj0))[ BgL_auxz00_4843 ] = BgL_locz00_53, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { obj_t BgL_auxz00_4848; int BgL_auxz00_4846; BgL_auxz00_4848 = (obj_t)((long)(((long)(((long) 32)) << 2) | 1)); BgL_auxz00_4846 = (int) (((long) 0)); ((&(((obj_t)(BgL_v1087z00_1171))->vector_t.obj0))[ BgL_auxz00_4846 ] = BgL_auxz00_4848, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } return BgL_v1087z00_1171; } break; case ((long) 2): { obj_t BgL_v1089z00_1177; { int BgL_auxz00_4851; BgL_auxz00_4851 = (int) (((long) 3)); BgL_v1089z00_1177 = create_vector(BgL_auxz00_4851); } { obj_t BgL_arg1730z00_1179; { obj_t BgL_v1090z00_1180; { int BgL_auxz00_4854; BgL_auxz00_4854 = (int) (((long) 4)); BgL_v1090z00_1180 = create_vector(BgL_auxz00_4854); } { obj_t BgL_auxz00_4859; int BgL_auxz00_4857; { obj_t BgL_auxz00_4860; BgL_auxz00_4860 = ((((obj_t)((long)BgL_actualsz00_52 - 3))->pair_t).cdr); BgL_auxz00_4859 = ((((obj_t)((long)BgL_auxz00_4860 - 3))->pair_t).car); } BgL_auxz00_4857 = (int) (((long) 3)); ((&(((obj_t)(BgL_v1090z00_1180))->vector_t.obj0))[ BgL_auxz00_4857 ] = BgL_auxz00_4859, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { obj_t BgL_auxz00_4866; int BgL_auxz00_4864; BgL_auxz00_4866 = ((((obj_t)((long)BgL_actualsz00_52 - 3))->pair_t).car); BgL_auxz00_4864 = (int) (((long) 2)); ((&(((obj_t)(BgL_v1090z00_1180))->vector_t.obj0))[ BgL_auxz00_4864 ] = BgL_auxz00_4866, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { int BgL_auxz00_4869; BgL_auxz00_4869 = (int) (((long) 1)); ((&(((obj_t)(BgL_v1090z00_1180))->vector_t.obj0))[ BgL_auxz00_4869 ] = BgL_procz00_51, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { int BgL_auxz00_4872; BgL_auxz00_4872 = (int) (((long) 0)); ((&(((obj_t)(BgL_v1090z00_1180))->vector_t.obj0))[ BgL_auxz00_4872 ] = BgL_namez00_50, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } BgL_arg1730z00_1179 = BgL_v1090z00_1180; } { int BgL_auxz00_4875; BgL_auxz00_4875 = (int) (((long) 2)); ((&(((obj_t)(BgL_v1089z00_1177))->vector_t.obj0))[ BgL_auxz00_4875 ] = BgL_arg1730z00_1179, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } } { int BgL_auxz00_4878; BgL_auxz00_4878 = (int) (((long) 1)); ((&(((obj_t)(BgL_v1089z00_1177))->vector_t.obj0))[ BgL_auxz00_4878 ] = BgL_locz00_53, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { obj_t BgL_auxz00_4883; int BgL_auxz00_4881; BgL_auxz00_4883 = (obj_t)((long)(((long)(((long) 33)) << 2) | 1)); BgL_auxz00_4881 = (int) (((long) 0)); ((&(((obj_t)(BgL_v1089z00_1177))->vector_t.obj0))[ BgL_auxz00_4881 ] = BgL_auxz00_4883, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } return BgL_v1089z00_1177; } break; case ((long) 3): { obj_t BgL_v1091z00_1185; { int BgL_auxz00_4886; BgL_auxz00_4886 = (int) (((long) 3)); BgL_v1091z00_1185 = create_vector(BgL_auxz00_4886); } { obj_t BgL_arg1736z00_1187; { obj_t BgL_v1092z00_1188; { int BgL_auxz00_4889; BgL_auxz00_4889 = (int) (((long) 5)); BgL_v1092z00_1188 = create_vector(BgL_auxz00_4889); } { obj_t BgL_auxz00_4894; int BgL_auxz00_4892; { obj_t BgL_auxz00_4895; { obj_t BgL_auxz00_4896; BgL_auxz00_4896 = ((((obj_t)((long)BgL_actualsz00_52 - 3))->pair_t).cdr); BgL_auxz00_4895 = ((((obj_t)((long)BgL_auxz00_4896 - 3))->pair_t).cdr); } BgL_auxz00_4894 = ((((obj_t)((long)BgL_auxz00_4895 - 3))->pair_t).car); } BgL_auxz00_4892 = (int) (((long) 4)); ((&(((obj_t)(BgL_v1092z00_1188))->vector_t.obj0))[ BgL_auxz00_4892 ] = BgL_auxz00_4894, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { obj_t BgL_auxz00_4903; int BgL_auxz00_4901; { obj_t BgL_auxz00_4904; BgL_auxz00_4904 = ((((obj_t)((long)BgL_actualsz00_52 - 3))->pair_t).cdr); BgL_auxz00_4903 = ((((obj_t)((long)BgL_auxz00_4904 - 3))->pair_t).car); } BgL_auxz00_4901 = (int) (((long) 3)); ((&(((obj_t)(BgL_v1092z00_1188))->vector_t.obj0))[ BgL_auxz00_4901 ] = BgL_auxz00_4903, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { obj_t BgL_auxz00_4910; int BgL_auxz00_4908; BgL_auxz00_4910 = ((((obj_t)((long)BgL_actualsz00_52 - 3))->pair_t).car); BgL_auxz00_4908 = (int) (((long) 2)); ((&(((obj_t)(BgL_v1092z00_1188))->vector_t.obj0))[ BgL_auxz00_4908 ] = BgL_auxz00_4910, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { int BgL_auxz00_4913; BgL_auxz00_4913 = (int) (((long) 1)); ((&(((obj_t)(BgL_v1092z00_1188))->vector_t.obj0))[ BgL_auxz00_4913 ] = BgL_procz00_51, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { int BgL_auxz00_4916; BgL_auxz00_4916 = (int) (((long) 0)); ((&(((obj_t)(BgL_v1092z00_1188))->vector_t.obj0))[ BgL_auxz00_4916 ] = BgL_namez00_50, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } BgL_arg1736z00_1187 = BgL_v1092z00_1188; } { int BgL_auxz00_4919; BgL_auxz00_4919 = (int) (((long) 2)); ((&(((obj_t)(BgL_v1091z00_1185))->vector_t.obj0))[ BgL_auxz00_4919 ] = BgL_arg1736z00_1187, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } } { int BgL_auxz00_4922; BgL_auxz00_4922 = (int) (((long) 1)); ((&(((obj_t)(BgL_v1091z00_1185))->vector_t.obj0))[ BgL_auxz00_4922 ] = BgL_locz00_53, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { obj_t BgL_auxz00_4927; int BgL_auxz00_4925; BgL_auxz00_4927 = (obj_t)((long)(((long)(((long) 34)) << 2) | 1)); BgL_auxz00_4925 = (int) (((long) 0)); ((&(((obj_t)(BgL_v1091z00_1185))->vector_t.obj0))[ BgL_auxz00_4925 ] = BgL_auxz00_4927, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } return BgL_v1091z00_1185; } break; case ((long) 4): { obj_t BgL_v1093z00_1195; { int BgL_auxz00_4930; BgL_auxz00_4930 = (int) (((long) 3)); BgL_v1093z00_1195 = create_vector(BgL_auxz00_4930); } { obj_t BgL_arg1744z00_1197; { obj_t BgL_v1094z00_1198; { int BgL_auxz00_4933; BgL_auxz00_4933 = (int) (((long) 6)); BgL_v1094z00_1198 = create_vector(BgL_auxz00_4933); } { obj_t BgL_auxz00_4938; int BgL_auxz00_4936; { obj_t BgL_auxz00_4939; { obj_t BgL_auxz00_4940; { obj_t BgL_auxz00_4941; BgL_auxz00_4941 = ((((obj_t)((long)BgL_actualsz00_52 - 3))->pair_t).cdr); BgL_auxz00_4940 = ((((obj_t)((long)BgL_auxz00_4941 - 3))->pair_t).cdr); } BgL_auxz00_4939 = ((((obj_t)((long)BgL_auxz00_4940 - 3))->pair_t).cdr); } BgL_auxz00_4938 = ((((obj_t)((long)BgL_auxz00_4939 - 3))->pair_t).car); } BgL_auxz00_4936 = (int) (((long) 5)); ((&(((obj_t)(BgL_v1094z00_1198))->vector_t.obj0))[ BgL_auxz00_4936 ] = BgL_auxz00_4938, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { obj_t BgL_auxz00_4949; int BgL_auxz00_4947; { obj_t BgL_auxz00_4950; { obj_t BgL_auxz00_4951; BgL_auxz00_4951 = ((((obj_t)((long)BgL_actualsz00_52 - 3))->pair_t).cdr); BgL_auxz00_4950 = ((((obj_t)((long)BgL_auxz00_4951 - 3))->pair_t).cdr); } BgL_auxz00_4949 = ((((obj_t)((long)BgL_auxz00_4950 - 3))->pair_t).car); } BgL_auxz00_4947 = (int) (((long) 4)); ((&(((obj_t)(BgL_v1094z00_1198))->vector_t.obj0))[ BgL_auxz00_4947 ] = BgL_auxz00_4949, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { obj_t BgL_auxz00_4958; int BgL_auxz00_4956; { obj_t BgL_auxz00_4959; BgL_auxz00_4959 = ((((obj_t)((long)BgL_actualsz00_52 - 3))->pair_t).cdr); BgL_auxz00_4958 = ((((obj_t)((long)BgL_auxz00_4959 - 3))->pair_t).car); } BgL_auxz00_4956 = (int) (((long) 3)); ((&(((obj_t)(BgL_v1094z00_1198))->vector_t.obj0))[ BgL_auxz00_4956 ] = BgL_auxz00_4958, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { obj_t BgL_auxz00_4965; int BgL_auxz00_4963; BgL_auxz00_4965 = ((((obj_t)((long)BgL_actualsz00_52 - 3))->pair_t).car); BgL_auxz00_4963 = (int) (((long) 2)); ((&(((obj_t)(BgL_v1094z00_1198))->vector_t.obj0))[ BgL_auxz00_4963 ] = BgL_auxz00_4965, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { int BgL_auxz00_4968; BgL_auxz00_4968 = (int) (((long) 1)); ((&(((obj_t)(BgL_v1094z00_1198))->vector_t.obj0))[ BgL_auxz00_4968 ] = BgL_procz00_51, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { int BgL_auxz00_4971; BgL_auxz00_4971 = (int) (((long) 0)); ((&(((obj_t)(BgL_v1094z00_1198))->vector_t.obj0))[ BgL_auxz00_4971 ] = BgL_namez00_50, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } BgL_arg1744z00_1197 = BgL_v1094z00_1198; } { int BgL_auxz00_4974; BgL_auxz00_4974 = (int) (((long) 2)); ((&(((obj_t)(BgL_v1093z00_1195))->vector_t.obj0))[ BgL_auxz00_4974 ] = BgL_arg1744z00_1197, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } } { int BgL_auxz00_4977; BgL_auxz00_4977 = (int) (((long) 1)); ((&(((obj_t)(BgL_v1093z00_1195))->vector_t.obj0))[ BgL_auxz00_4977 ] = BgL_locz00_53, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { obj_t BgL_auxz00_4982; int BgL_auxz00_4980; BgL_auxz00_4982 = (obj_t)((long)(((long)(((long) 35)) << 2) | 1)); BgL_auxz00_4980 = (int) (((long) 0)); ((&(((obj_t)(BgL_v1093z00_1195))->vector_t.obj0))[ BgL_auxz00_4980 ] = BgL_auxz00_4982, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } return BgL_v1093z00_1195; } break; default: { obj_t BgL_v1082z00_1207; { int BgL_auxz00_4985; BgL_auxz00_4985 = (int) (((long) 3)); BgL_v1082z00_1207 = create_vector(BgL_auxz00_4985); } { obj_t BgL_arg1754z00_1209; { obj_t BgL_v1083z00_1210; { int BgL_auxz00_4988; BgL_auxz00_4988 = (int) (((long) 3)); BgL_v1083z00_1210 = create_vector(BgL_auxz00_4988); } { int BgL_auxz00_4991; BgL_auxz00_4991 = (int) (((long) 2)); ((&(((obj_t)(BgL_v1083z00_1210))->vector_t.obj0))[ BgL_auxz00_4991 ] = BgL_actualsz00_52, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { int BgL_auxz00_4994; BgL_auxz00_4994 = (int) (((long) 1)); ((&(((obj_t)(BgL_v1083z00_1210))->vector_t.obj0))[ BgL_auxz00_4994 ] = BgL_procz00_51, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { int BgL_auxz00_4997; BgL_auxz00_4997 = (int) (((long) 0)); ((&(((obj_t)(BgL_v1083z00_1210))->vector_t.obj0))[ BgL_auxz00_4997 ] = BgL_namez00_50, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } BgL_arg1754z00_1209 = BgL_v1083z00_1210; } { int BgL_auxz00_5000; BgL_auxz00_5000 = (int) (((long) 2)); ((&(((obj_t)(BgL_v1082z00_1207))->vector_t.obj0))[ BgL_auxz00_5000 ] = BgL_arg1754z00_1209, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } } { int BgL_auxz00_5003; BgL_auxz00_5003 = (int) (((long) 1)); ((&(((obj_t)(BgL_v1082z00_1207))->vector_t.obj0))[ BgL_auxz00_5003 ] = BgL_locz00_53, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } { obj_t BgL_auxz00_5008; int BgL_auxz00_5006; BgL_auxz00_5008 = (obj_t)((long)(((long)(((long) 36)) << 2) | 1)); BgL_auxz00_5006 = (int) (((long) 0)); ((&(((obj_t)(BgL_v1082z00_1207))->vector_t.obj0))[ BgL_auxz00_5006 ] = BgL_auxz00_5008, ((obj_t)(obj_t)((long)(((long)(3) << 2) | 2)))); } return BgL_v1082z00_1207; } } } } } obj_t BGl_variablez00zz__evcompilez00(obj_t BgL_locz00_54, obj_t BgL_symbolz00_55, obj_t BgL_envz00_56, obj_t BgL_genvz00_57) { ; { if (((((((long)BgL_symbolz00_55) & ((1 << 2) - 1)) == 0) && BgL_symbolz00_55) && ((long)((long)((long)((((obj_t)(BgL_symbolz00_55))->header)) >> (3 + 4 + 1))) == 8))) { obj_t BgL_offsetz00_1212; { obj_t BgL_envz00_2858; long BgL_countz00_2859; BgL_envz00_2858 = BgL_envz00_56; BgL_countz00_2859 = ((long) 0); BgL_loopz00_2857: if (((long)(BgL_envz00_2858) == (long)((obj_t)(obj_t)((long)(((long)(0) << 2) | 2))))) { BgL_offsetz00_1212 = ((obj_t)(obj_t)((long)(((long)(1) << 2) | 2))); } else { bool_t BgL_testz00_5017; { obj_t BgL_auxz00_5018; BgL_auxz00_5018 = ((((obj_t)((long)BgL_envz00_2858 - 3))->pair_t).car); BgL_testz00_5017 = (BgL_auxz00_5018 == BgL_symbolz00_55); } if (BgL_testz00_5017) { BgL_offsetz00_1212 = (obj_t)((long)(((long)(BgL_countz00_2859) << 2) | 1)); } else { { long BgL_countz00_5024; obj_t BgL_envz00_5022; BgL_envz00_5022 = ((((obj_t)((long)BgL_envz00_2858 - 3))->pair_t).cdr); BgL_countz00_5024 = (BgL_countz00_2859 + ((long) 1)); BgL_countz00_2859 = BgL_countz00_5024; BgL_envz00_2858 = BgL_envz00_5022; goto BgL_loopz00_2857; } } } } if ((BgL_offsetz00_1212 != ((obj_t)(obj_t)((long)(((long)(1) << 2) | 2))))) { return BgL_offsetz00_1212; } else { obj_t BgL_globalz00_1213; { bool_t BgL_test1758z00_1216; { bool_t BgL_testz00_5028; { obj_t BgL_auxz00_5029; BgL_auxz00_5029 = BGl_schemezd2reportzd2environmentz00zz__evalz00((obj_t)((long)(((long)(((long) 5)) << 2) | 1))); BgL_testz00_5028 = (BgL_genvz00_57 == BgL_auxz00_5029); } if (BgL_testz00_5028) { BgL_test1758z00_1216 = ((bool_t) 1); } else { obj_t BgL_auxz00_5033; BgL_auxz00_5033 = BGl_interactionzd2environmentzd2zz__evalz00(); BgL_test1758z00_1216 = (BgL_genvz00_57 == BgL_auxz00_5033); } } if (BgL_test1758z00_1216) { BgL_globalz00_1213 = BGl_evalzd2lookupzd2zz__evenvz00(BgL_symbolz00_55); } else { BgL_globalz00_1213 = BGl_evcompilezd2errorzd2zz__evcompilez00 (BgL_locz00_54, BGl_string1929z00zz__evcompilez00, BGl_string1948z00zz__evcompilez00, BgL_symbolz00_55); } } if ((BgL_globalz00_1213 != ((obj_t)(obj_t)((long)(((long)(1) << 2) | 2))))) { return BgL_globalz00_1213; } else { bool_t BgL_testz00_5041; { obj_t BgL_auxz00_5042; BgL_auxz00_5042 = BGl_schemezd2reportzd2environmentz00zz__evalz00((obj_t)((long)(((long)(((long) 5)) << 2) | 1))); BgL_testz00_5041 = (BgL_genvz00_57 == BgL_auxz00_5042); } if (BgL_testz00_5041) { return BGl_evcompilezd2errorzd2zz__evcompilez00 (BgL_locz00_54, BGl_string1929z00zz__evcompilez00, BGl_string1948z00zz__evcompilez00, BgL_symbolz00_55); } else { return make_pair( BGl_symbol1947z00zz__evcompilez00, BgL_symbolz00_55 ); } } } } else { return BGl_evcompilezd2errorzd2zz__evcompilez00(BgL_locz00_54, BGl_string1929z00zz__evcompilez00, BGl_string1949z00zz__evcompilez00, BgL_symbolz00_55); } } } obj_t BGl__loop_z00zz__evcompilez00(obj_t BgL_oldzd2envzd2_2998, obj_t BgL_extendz00_1231) { ; { if (((long)(BgL_extendz00_1231) == (long)((obj_t)(obj_t)((long)(((long)(0) << 2) | 2))))) { return BgL_oldzd2envzd2_2998; } else { if (((((long)BgL_extendz00_1231) & ((1 << 2) - 1)) == 3)) { { obj_t BgL_auxz00_5055; obj_t BgL_auxz00_5053; BgL_auxz00_5055 = BGl__loop_z00zz__evcompilez00(BgL_oldzd2envzd2_2998, ((((obj_t)((long)BgL_extendz00_1231 - 3))->pair_t).cdr)); BgL_auxz00_5053 = ((((obj_t)((long)BgL_extendz00_1231 - 3))->pair_t).car); return make_pair( BgL_auxz00_5053, BgL_auxz00_5055 ); } } else { return make_pair( BgL_extendz00_1231, BgL_oldzd2envzd2_2998 ); } } } } obj_t BGl_evcompilezd2errorzd2zz__evcompilez00(obj_t BgL_locz00_62, obj_t BgL_procz00_63, obj_t BgL_mesz00_64, obj_t BgL_objz00_65) { ; { if (((((long)BgL_locz00_62) & ((1 << 2) - 1)) == 3)) { obj_t BgL_cdrzd22110zd2_1244; BgL_cdrzd22110zd2_1244 = ((((obj_t)((long)BgL_locz00_62 - 3))->pair_t).cdr); { bool_t BgL_testz00_5063; { obj_t BgL_auxz00_5064; BgL_auxz00_5064 = ((((obj_t)((long)BgL_locz00_62 - 3))->pair_t).car); BgL_testz00_5063 = (BgL_auxz00_5064 == BGl_symbol1950z00zz__evcompilez00); } if (BgL_testz00_5063) { if (((((long)BgL_cdrzd22110zd2_1244) & ((1 << 2) - 1)) == 3)) { obj_t BgL_cdrzd22114zd2_1247; BgL_cdrzd22114zd2_1247 = ((((obj_t)((long)BgL_cdrzd22110zd2_1244 - 3))->pair_t).cdr); if (((((long)BgL_cdrzd22114zd2_1247) & ((1 << 2) - 1)) == 3)) { if (BGl_equalzf3zf3zz__r4_equivalence_6_2z00(((((obj_t)((long)BgL_cdrzd22114zd2_1247 - 3))->pair_t).cdr), ((obj_t)(obj_t)((long)(((long)(0) << 2) | 2))))) { return BGl_errorzf2locationzf2zz__errorz00 (BgL_procz00_63, BgL_mesz00_64, BgL_objz00_65, ((((obj_t)((long)BgL_cdrzd22110zd2_1244 - 3))->pair_t).car), ((((obj_t)((long)BgL_cdrzd22114zd2_1247 - 3))->pair_t).car)); } else { bigloo_exit( (obj_t)((long)(((long)(bigloo_abort( (long)((long)((long)(the_failure( BgL_procz00_63, BgL_mesz00_64, BgL_objz00_65 )) >> 2)) )) << 2) | 1)) ); } } else { bigloo_exit( (obj_t)((long)(((long)(bigloo_abort( (long)((long)((long)(the_failure( BgL_procz00_63, BgL_mesz00_64, BgL_objz00_65 )) >> 2)) )) << 2) | 1)) ); } } else { bigloo_exit( (obj_t)((long)(((long)(bigloo_abort( (long)((long)((long)(the_failure( BgL_procz00_63, BgL_mesz00_64, BgL_objz00_65 )) >> 2)) )) << 2) | 1)) ); } } else { bigloo_exit( (obj_t)((long)(((long)(bigloo_abort( (long)((long)((long)(the_failure( BgL_procz00_63, BgL_mesz00_64, BgL_objz00_65 )) >> 2)) )) << 2) | 1)) ); } } } else { bigloo_exit( (obj_t)((long)(((long)(bigloo_abort( (long)((long)((long)(the_failure( BgL_procz00_63, BgL_mesz00_64, BgL_objz00_65 )) >> 2)) )) << 2) | 1)) ); } } } obj_t BGl_importedzd2moduleszd2initz00zz__evcompilez00() { ; { BGl_modulezd2initializa7ationz75zz__typez00(((long) 94913), "__evcompile"); BGl_modulezd2initializa7ationz75zz__errorz00(((long) 87655), "__evcompile"); BGl_modulezd2initializa7ationz75zz__biglooz00(((long) 178547), "__evcompile"); BGl_modulezd2initializa7ationz75zz__tvectorz00(((long) 56234), "__evcompile"); BGl_modulezd2initializa7ationz75zz__structurez00(((long) 48342), "__evcompile"); BGl_modulezd2initializa7ationz75zz__bexitz00(((long) 30923), "__evcompile"); BGl_modulezd2initializa7ationz75zz__osz00(((long) 105543), "__evcompile"); BGl_modulezd2initializa7ationz75zz__dssslz00(((long) 48456), "__evcompile"); BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5z00(((long) 119710), "__evcompile"); BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_fixnumz00(((long) 19330), "__evcompile"); BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_flonumz00(((long) 174964), "__evcompile"); BGl_modulezd2initializa7ationz75zz__r4_characters_6_6z00(((long) 189809), "__evcompile"); BGl_modulezd2initializa7ationz75zz__r4_equivalence_6_2z00(((long) 20529), "__evcompile"); BGl_modulezd2initializa7ationz75zz__r4_booleans_6_1z00(((long) 64482), "__evcompile"); BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(((long) 59959), "__evcompile"); BGl_modulezd2initializa7ationz75zz__r4_strings_6_7z00(((long) 98519), "__evcompile"); BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(((long) 91904), "__evcompile"); BGl_modulezd2initializa7ationz75zz__r4_input_6_10_2z00(((long) 41319), "__evcompile"); BGl_modulezd2initializa7ationz75zz__r4_control_features_6_9z00(((long) 70493), "__evcompile"); BGl_modulezd2initializa7ationz75zz__r4_vectors_6_8z00(((long) 25703), "__evcompile"); BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(((long) 14012), "__evcompile"); BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(((long) 85701), "__evcompile"); BGl_modulezd2initializa7ationz75zz__evenvz00(((long) 30958), "__evcompile"); BGl_modulezd2initializa7ationz75zz__evalz00(((long) 26939), "__evcompile"); return BGl_modulezd2initializa7ationz75zz__expandz00(((long) 59520), "__evcompile"); } } >Fix: >Release-Note: >Audit-Trail: >Unformatted: objs/obj_u/Eval/evcompile.c: In function `BGl_evcompilezd2lambdazd2zz__evcompilez00': objs/obj_u/Eval/evcompile.c:5909: Internal error: Segmentation fault critical sw-bug
next reply other threads:[~2002-04-04 18:16 UTC|newest] Thread overview: 2+ messages / expand[flat|nested] mbox.gz Atom feed top 2002-04-04 10:16 proff [this message] 2002-04-06 16:30 rodrigc
Reply instructions: You may reply publicly to this message via plain-text email using any one of the following methods: * Save the following mbox file, import it into your mail client, and reply-to-all from there: mbox Avoid top-posting and favor interleaved quoting: https://en.wikipedia.org/wiki/Posting_style#Interleaved_style * Reply using the --to, --cc, and --in-reply-to switches of git-send-email(1): git send-email \ --in-reply-to=20020404180621.4FDDF1CC82@dopamine.iq.org \ --to=proff@iq.org \ --cc=debian-gcc@lists.debian.org \ --cc=gcc-gnats@gcc.gnu.org \ --cc=proff-cc@iq.org \ /path/to/YOUR_REPLY https://kernel.org/pub/software/scm/git/docs/git-send-email.html * If your mail client supports setting the In-Reply-To header via mailto: links, try the mailto: linkBe sure your reply has a Subject: header at the top and a blank line before the message body.
This is a public inbox, see mirroring instructions for how to clone and mirror all data and code used for this inbox; as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).