public inbox for gcc-prs@sourceware.org
help / color / mirror / Atom feed
* Re: c/6175: gcc-3.0.4 core dumps when compiling bigloo-2.4d
@ 2002-04-06 16:30 rodrigc
0 siblings, 0 replies; 2+ messages in thread
From: rodrigc @ 2002-04-06 16:30 UTC (permalink / raw)
To: gcc-bugs, gcc-prs, nobody, proff
Synopsis: gcc-3.0.4 core dumps when compiling bigloo-2.4d
State-Changed-From-To: open->closed
State-Changed-By: rodrigc
State-Changed-When: Sat Apr 6 16:30:49 2002
State-Changed-Why:
Duplicate of PR 3558:
http://gcc.gnu.org/cgi-bin/gnatsweb.pl?cmd=view&pr=3558&database=gcc
http://gcc.gnu.org/cgi-bin/gnatsweb.pl?cmd=view%20audit-trail&database=gcc&pr=6175
^ permalink raw reply [flat|nested] 2+ messages in thread
* c/6175: gcc-3.0.4 core dumps when compiling bigloo-2.4d
@ 2002-04-04 10:16 proff
0 siblings, 0 replies; 2+ messages in thread
From: proff @ 2002-04-04 10:16 UTC (permalink / raw)
To: gcc-gnats, debian-gcc; +Cc: proff-cc
>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
^ permalink raw reply [flat|nested] 2+ messages in thread
end of thread, other threads:[~2002-04-07 0:30 UTC | newest]
Thread overview: 2+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2002-04-06 16:30 c/6175: gcc-3.0.4 core dumps when compiling bigloo-2.4d rodrigc
-- strict thread matches above, loose matches on Subject: below --
2002-04-04 10:16 proff
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).