This is the mail archive of the
gcc-bugs@gcc.gnu.org
mailing list for the GCC project.
middle-end/9504: Compiling a particular C file causes an internal compiler error
- From: bfulgham at debian dot org
- To: gcc-gnats at gcc dot gnu dot org
- Cc: gd-hackers at gwydiondylan dot org
- Date: 30 Jan 2003 02:13:18 -0000
- Subject: middle-end/9504: Compiling a particular C file causes an internal compiler error
- Reply-to: bfulgham at debian dot org
>Number: 9504
>Category: middle-end
>Synopsis: Compiling a particular C file causes an internal compiler error
>Confidential: no
>Severity: serious
>Priority: medium
>Responsible: unassigned
>State: open
>Class: sw-bug
>Submitter-Id: net
>Arrival-Date: Thu Jan 30 02:16:00 UTC 2003
>Closed-Date:
>Last-Modified:
>Originator: Brent Fulgham
>Release: 3.2 20020927 (prerelease) (i686-pc-cygwin)
>Organization:
>Environment:
Reading specs from /bin/../lib/gcc-lib/i686-pc-cygwin/3.2/specs
Configured with: /netrel/src/gcc-3.2-3/configure --enable-languages=c,c++,f77,ja
va --enable-libgcj --enable-threads=posix --with-system-zlib --enable-nls --with
out-included-gettext --enable-interpreter --disable-sjlj-exceptions --disable-ve
rsion-specific-runtime-libs --enable-shared --build=i686-pc-linux --host=i686-pc
-cygwin --target=i686-pc-cygwin --enable-haifa --prefix=/usr --exec-prefix=/usr
--sysconfdir=/etc --libdir=/usr/lib --includedir=/nonexistent/include --libexecd
ir=/usr/sbin
Thread model: posix
gcc version 3.2 20020927 (prerelease)
>Description:
Compiling a generated C file from the Gwydion Dylan compiler (during bootstrap of the Dylan compiler) causes an Internal Compiler error.
These files build cleanly under GCC 2.95:
Reading specs from /bin/../lib/gcc-lib/i686-pc-cygwin/3.2/specs
Configured with: /netrel/src/gcc-3.2-3/configure --enable-languages=c,c++,f77,java --enable-libgcj --enable-threads=posix --with-system-zlib --enable-nls --without-included-gettext --enable-interpreter --disable-sjlj-exceptions --disable-version-specific-runtime-libs --enable-shared --build=i686-pc-linux --host=i686-pc-cygwin --target=i686-pc-cygwin --enable-haifa --prefix=/usr --exec-prefix=/usr --sysconfdir=/etc --libdir=/usr/lib --includedir=/nonexistent/include --libexecdir=/usr/sbin
Thread model: posix
gcc version 3.2 20020927 (prerelease)
/bin/../lib/gcc-lib/i686-pc-cygwin/3.2/cpp0.exe -lang-c -v -I. -I/cygdrive/c/fulgham/projects/dylan/src/d2c/runtime -iprefix /bin/../lib/gcc-lib/i686-pc-cygwin/3.2/ -D__GNUC__=3 -D__GNUC_MINOR__=2 -D__GNUC_PATCHLEVEL__=0 -D__GXX_ABI_VERSION=102 -D_X86_=1 -D_X86_=1 -Asystem=winnt -D__OPTIMIZE__ -D__STDC_HOSTED__=1 -Acpu=i386 -Amachine=i386 -Di386 -D__i386 -D__i386__ -D__tune_i686__ -D__tune_pentiumpro__ -D__tune_pentium2__ -D__tune_pentium3__ -D__stdcall=__attribute__((__stdcall__)) -D__fastcall=__attribute__((__fastcall__)) -D__cdecl=__attribute__((__cdecl__)) -D_stdcall=__attribute__((__stdcall__)) -D_fastcall=__attribute__((__fastcall__)) -D_cdecl=__attribute__((__cdecl__)) -D__declspec(x)=__attribute__((x)) -D__i386__ -D__i386 -D__CYGWIN32__ -D__CYGWIN__ -Dunix -D__unix__ -D__unix -isystem /usr/lib/gcc-lib/i686-pc-cygwin/3.2/../../../../include/w32api -isystem /usr/lib/gcc-lib/i686-pc-cygwin/3.2/../../../../i686-pc-cygwin/lib/../../include/w32api -DGD_PLATFORM_CYGNUS transcendental.c transcendental.i
GNU CPP version 3.2 20020927 (prerelease) (cpplib) (80386, BSD syntax)
ignoring nonexistent directory "/i686-pc-cygwin/include"
ignoring nonexistent directory "/usr/local/include"
ignoring nonexistent directory "/usr/i686-pc-cygwin/include"
ignoring duplicate directory "/usr/i686-pc-cygwin/lib/../../include/w32api"
ignoring duplicate directory "/usr/lib/gcc-lib/i686-pc-cygwin/3.2/include"
#include "..." search starts here:
#include <...> search starts here:
.
/cygdrive/c/fulgham/projects/dylan/src/d2c/runtime
/usr/include/w32api
/lib/gcc-lib/i686-pc-cygwin/3.2/include
/usr/include
End of search list.
/bin/../lib/gcc-lib/i686-pc-cygwin/3.2/cc1.exe -fpreprocessed transcendental.i -quiet -dumpbase transcendental.c -O2 -version -fomit-frame-pointer -o transcendental.s
GNU CPP version 3.2 20020927 (prerelease) (cpplib) (80386, BSD syntax)
GNU C version 3.2 20020927 (prerelease) (i686-pc-cygwin)
compiled by GNU C version 3.2 20020927 (prerelease).
transcendental.c: In function `transcendentalZtranscendentalZasin_METH_3':
transcendental.c:3602: Internal compiler error in subst_stack_regs_pat, at reg-stack.c:1441
Please submit a full bug report,
with preprocessed source if appropriate.
See <URL:http://www.gnu.org/software/gcc/bugs.html> for instructions.
>How-To-Repeat:
Repeatable by building compiler.
>Fix:
>Release-Note:
>Audit-Trail:
>Unformatted:
----gnatsweb-attachment----
Content-Type: text/plain; name="transcendental.i"
Content-Disposition: inline; filename="transcendental.i"
# 1 "transcendental.c"
# 1 "<built-in>"
# 1 "<command line>"
# 1 "transcendental.c"
# 1 "/usr/include/stdlib.h" 1 3
# 10 "/usr/include/stdlib.h" 3
# 1 "/usr/include/_ansi.h" 1 3
# 15 "/usr/include/_ansi.h" 3
# 1 "/usr/include/newlib.h" 1 3
# 16 "/usr/include/_ansi.h" 2 3
# 1 "/usr/include/sys/config.h" 1 3
# 1 "/usr/include/machine/ieeefp.h" 1 3
# 5 "/usr/include/sys/config.h" 2 3
# 17 "/usr/include/_ansi.h" 2 3
# 11 "/usr/include/stdlib.h" 2 3
# 1 "/lib/gcc-lib/i686-pc-cygwin/3.2/include/stddef.h" 1 3
# 203 "/lib/gcc-lib/i686-pc-cygwin/3.2/include/stddef.h" 3
typedef unsigned int size_t;
# 296 "/lib/gcc-lib/i686-pc-cygwin/3.2/include/stddef.h" 3
typedef short unsigned int wchar_t;
# 15 "/usr/include/stdlib.h" 2 3
# 1 "/usr/include/sys/reent.h" 1 3
# 14 "/usr/include/sys/reent.h" 3
# 1 "/usr/include/sys/_types.h" 1 3
# 12 "/usr/include/sys/_types.h" 3
typedef long _off_t;
__extension__ typedef long long _off64_t;
typedef int _ssize_t;
# 1 "/lib/gcc-lib/i686-pc-cygwin/3.2/include/stddef.h" 1 3
# 323 "/lib/gcc-lib/i686-pc-cygwin/3.2/include/stddef.h" 3
typedef unsigned int wint_t;
# 23 "/usr/include/sys/_types.h" 2 3
typedef struct
{
int __count;
union
{
wint_t __wch;
unsigned char __wchb[4];
} __value;
} _mbstate_t;
typedef int _flock_t;
# 15 "/usr/include/sys/reent.h" 2 3
typedef unsigned long __ULong;
# 40 "/usr/include/sys/reent.h" 3
struct _Bigint
{
struct _Bigint *_next;
int _k, _maxwds, _sign, _wds;
__ULong _x[1];
};
struct __tm
{
int __tm_sec;
int __tm_min;
int __tm_hour;
int __tm_mday;
int __tm_mon;
int __tm_year;
int __tm_wday;
int __tm_yday;
int __tm_isdst;
};
# 68 "/usr/include/sys/reent.h" 3
struct _atexit {
struct _atexit *_next;
int _ind;
void (*_fns[32])(void);
void *_fnargs[32];
__ULong _fntypes;
};
# 91 "/usr/include/sys/reent.h" 3
struct __sbuf {
unsigned char *_base;
int _size;
};
typedef long _fpos_t;
# 156 "/usr/include/sys/reent.h" 3
struct __sFILE {
unsigned char *_p;
int _r;
int _w;
short _flags;
short _file;
struct __sbuf _bf;
int _lbfsize;
void * _cookie;
_ssize_t __attribute__((__cdecl__)) (*_read) (void * _cookie, char *_buf, int _n);
_ssize_t __attribute__((__cdecl__)) (*_write) (void * _cookie, const char *_buf, int _n);
_fpos_t __attribute__((__cdecl__)) (*_seek) (void * _cookie, _fpos_t _offset, int _whence);
int __attribute__((__cdecl__)) (*_close) (void * _cookie);
struct __sbuf _ub;
unsigned char *_up;
int _ur;
unsigned char _ubuf[3];
unsigned char _nbuf[1];
struct __sbuf _lb;
int _blksize;
int _offset;
struct _reent *_data;
_flock_t _lock;
};
# 249 "/usr/include/sys/reent.h" 3
typedef struct __sFILE __FILE;
struct _glue
{
struct _glue *_next;
int _niobs;
__FILE *_iobs;
};
# 280 "/usr/include/sys/reent.h" 3
struct _rand48 {
unsigned short _seed[3];
unsigned short _mult[3];
unsigned short _add;
};
# 532 "/usr/include/sys/reent.h" 3
struct _reent
{
int _errno;
__FILE *_stdin, *_stdout, *_stderr;
int _inc;
char _emergency[25];
int _current_category;
const char *_current_locale;
int __sdidinit;
void __attribute__((__cdecl__)) (*__cleanup) (struct _reent *);
struct _Bigint *_result;
int _result_k;
struct _Bigint *_p5s;
struct _Bigint **_freelist;
int _cvtlen;
char *_cvtbuf;
union
{
struct
{
unsigned int _unused_rand;
char * _strtok_last;
char _asctime_buf[26];
struct __tm _localtime_buf;
int _gamma_signgam;
__extension__ unsigned long long _rand_next;
struct _rand48 _r48;
_mbstate_t _mblen_state;
_mbstate_t _mbtowc_state;
_mbstate_t _wctomb_state;
char _l64a_buf[8];
char _signal_buf[24];
int _getdate_err;
_mbstate_t _mbrlen_state;
_mbstate_t _mbrtowc_state;
_mbstate_t _mbsrtowcs_state;
_mbstate_t _wcrtomb_state;
_mbstate_t _wcsrtombs_state;
} _reent;
struct
{
unsigned char * _nextf[30];
unsigned int _nmalloc[30];
} _unused;
} _new;
struct _atexit *_atexit;
struct _atexit _atexit0;
void (**(_sig_func))(int);
struct _glue __sglue;
__FILE __sf[3];
};
# 728 "/usr/include/sys/reent.h" 3
extern struct _reent *_impure_ptr ;
void _reclaim_reent (struct _reent *);
# 17 "/usr/include/stdlib.h" 2 3
# 1 "/usr/include/machine/stdlib.h" 1 3
# 18 "/usr/include/stdlib.h" 2 3
# 1 "/usr/include/alloca.h" 1 3
# 20 "/usr/include/stdlib.h" 2 3
typedef struct
{
int quot;
int rem;
} div_t;
typedef struct
{
long quot;
long rem;
} ldiv_t;
# 45 "/usr/include/stdlib.h" 3
extern __attribute__((dllimport)) int __mb_cur_max;
void __attribute__((__cdecl__)) abort (void) __attribute__ ((noreturn));
int __attribute__((__cdecl__)) abs (int);
int __attribute__((__cdecl__)) atexit (void (*__func)(void));
double __attribute__((__cdecl__)) atof (const char *__nptr);
float __attribute__((__cdecl__)) atoff (const char *__nptr);
int __attribute__((__cdecl__)) atoi (const char *__nptr);
long __attribute__((__cdecl__)) atol (const char *__nptr);
void * __attribute__((__cdecl__)) bsearch (const void * __key, const void * __base, size_t __nmemb, size_t __size, int (* __attribute__((__cdecl__)) _compar) (const void *, const void *));
void * __attribute__((__cdecl__)) calloc (size_t __nmemb, size_t __size);
div_t __attribute__((__cdecl__)) div (int __numer, int __denom);
void __attribute__((__cdecl__)) exit (int __status) __attribute__ ((noreturn));
void __attribute__((__cdecl__)) free (void *);
char * __attribute__((__cdecl__)) getenv (const char *__string);
char * __attribute__((__cdecl__)) _getenv_r (struct _reent *, const char *__string);
char * __attribute__((__cdecl__)) _findenv (const char *, int *);
char * __attribute__((__cdecl__)) _findenv_r (struct _reent *, const char *, int *);
long __attribute__((__cdecl__)) labs (long);
ldiv_t __attribute__((__cdecl__)) ldiv (long __numer, long __denom);
void * __attribute__((__cdecl__)) malloc (size_t __size);
int __attribute__((__cdecl__)) mblen (const char *, size_t);
int __attribute__((__cdecl__)) _mblen_r (struct _reent *, const char *, size_t, _mbstate_t *);
int __attribute__((__cdecl__)) mbtowc (wchar_t *, const char *, size_t);
int __attribute__((__cdecl__)) _mbtowc_r (struct _reent *, wchar_t *, const char *, size_t, _mbstate_t *);
int __attribute__((__cdecl__)) wctomb (char *, wchar_t);
int __attribute__((__cdecl__)) _wctomb_r (struct _reent *, char *, wchar_t, _mbstate_t *);
size_t __attribute__((__cdecl__)) mbstowcs (wchar_t *, const char *, size_t);
size_t __attribute__((__cdecl__)) _mbstowcs_r (struct _reent *, wchar_t *, const char *, size_t, _mbstate_t *);
size_t __attribute__((__cdecl__)) wcstombs (char *, const wchar_t *, size_t);
size_t __attribute__((__cdecl__)) _wcstombs_r (struct _reent *, char *, const wchar_t *, size_t, _mbstate_t *);
int __attribute__((__cdecl__)) mkstemp (char *);
char * __attribute__((__cdecl__)) mktemp (char *);
void __attribute__((__cdecl__)) qsort (void * __base, size_t __nmemb, size_t __size, int(*_compar)(const void *, const void *));
int __attribute__((__cdecl__)) rand (void);
void * __attribute__((__cdecl__)) realloc (void * __r, size_t __size);
void __attribute__((__cdecl__)) srand (unsigned __seed);
double __attribute__((__cdecl__)) strtod (const char *__n, char **__end_PTR);
double __attribute__((__cdecl__)) _strtod_r (struct _reent *,const char *__n, char **__end_PTR);
float __attribute__((__cdecl__)) strtof (const char *__n, char **__end_PTR);
long __attribute__((__cdecl__)) strtol (const char *__n, char **__end_PTR, int __base);
long __attribute__((__cdecl__)) _strtol_r (struct _reent *,const char *__n, char **__end_PTR, int __base);
unsigned long __attribute__((__cdecl__)) strtoul (const char *__n, char **__end_PTR, int __base);
unsigned long __attribute__((__cdecl__)) _strtoul_r (struct _reent *,const char *__n, char **__end_PTR, int __base);
int __attribute__((__cdecl__)) system (const char *__string);
long __attribute__((__cdecl__)) a64l (const char *__input);
char * __attribute__((__cdecl__)) l64a (long __input);
char * __attribute__((__cdecl__)) _l64a_r (struct _reent *,long __input);
int __attribute__((__cdecl__)) on_exit (void (*__func)(int, void *),void * __arg);
void __attribute__((__cdecl__)) _Exit (int __status) __attribute__ ((noreturn));
int __attribute__((__cdecl__)) putenv (const char *__string);
int __attribute__((__cdecl__)) _putenv_r (struct _reent *, const char *__string);
int __attribute__((__cdecl__)) setenv (const char *__string, const char *__value, int __overwrite);
int __attribute__((__cdecl__)) _setenv_r (struct _reent *, const char *__string, const char *__value, int __overwrite);
char * __attribute__((__cdecl__)) gcvt (double,int,char *);
char * __attribute__((__cdecl__)) gcvtf (float,int,char *);
char * __attribute__((__cdecl__)) fcvt (double,int,int *,int *);
char * __attribute__((__cdecl__)) fcvtf (float,int,int *,int *);
char * __attribute__((__cdecl__)) ecvt (double,int,int *,int *);
char * __attribute__((__cdecl__)) ecvtbuf (double, int, int*, int*, char *);
char * __attribute__((__cdecl__)) fcvtbuf (double, int, int*, int*, char *);
char * __attribute__((__cdecl__)) ecvtf (float,int,int *,int *);
char * __attribute__((__cdecl__)) dtoa (double, int, int, int *, int*, char**);
int __attribute__((__cdecl__)) rand_r (unsigned *__seed);
double __attribute__((__cdecl__)) drand48 (void);
double __attribute__((__cdecl__)) _drand48_r (struct _reent *);
double __attribute__((__cdecl__)) erand48 (unsigned short [3]);
double __attribute__((__cdecl__)) _erand48_r (struct _reent *, unsigned short [3]);
long __attribute__((__cdecl__)) jrand48 (unsigned short [3]);
long __attribute__((__cdecl__)) _jrand48_r (struct _reent *, unsigned short [3]);
void __attribute__((__cdecl__)) lcong48 (unsigned short [7]);
void __attribute__((__cdecl__)) _lcong48_r (struct _reent *, unsigned short [7]);
long __attribute__((__cdecl__)) lrand48 (void);
long __attribute__((__cdecl__)) _lrand48_r (struct _reent *);
long __attribute__((__cdecl__)) mrand48 (void);
long __attribute__((__cdecl__)) _mrand48_r (struct _reent *);
long __attribute__((__cdecl__)) nrand48 (unsigned short [3]);
long __attribute__((__cdecl__)) _nrand48_r (struct _reent *, unsigned short [3]);
unsigned short *
__attribute__((__cdecl__)) seed48 (unsigned short [3]);
unsigned short *
__attribute__((__cdecl__)) _seed48_r (struct _reent *, unsigned short [3]);
void __attribute__((__cdecl__)) srand48 (long);
void __attribute__((__cdecl__)) _srand48_r (struct _reent *, long);
long long __attribute__((__cdecl__)) strtoll (const char *__n, char **__end_PTR, int __base);
long long __attribute__((__cdecl__)) _strtoll_r (struct _reent *, const char *__n, char **__end_PTR, int __base);
unsigned long long __attribute__((__cdecl__)) strtoull (const char *__n, char **__end_PTR, int __base);
unsigned long long __attribute__((__cdecl__)) _strtoull_r (struct _reent *, const char *__n, char **__end_PTR, int __base);
char * __attribute__((__cdecl__)) realpath (const char *, char *);
void __attribute__((__cdecl__)) unsetenv (const char *__string);
void __attribute__((__cdecl__)) _unsetenv_r (struct _reent *, const char *__string);
int __attribute__((__cdecl__)) random (void);
long __attribute__((__cdecl__)) srandom (unsigned __seed);
char * __attribute__((__cdecl__)) ptsname (int);
int __attribute__((__cdecl__)) grantpt (int);
int __attribute__((__cdecl__)) unlockpt (int);
char * __attribute__((__cdecl__)) _dtoa_r (struct _reent *, double, int, int, int *, int*, char**);
int __attribute__((__cdecl__)) _system_r (struct _reent *, const char *);
void __attribute__((__cdecl__)) __eprintf (const char *, const char *, unsigned int, const char *);
# 213 "/usr/include/stdlib.h" 3
# 2 "transcendental.c" 2
# 1 "/usr/include/stdio.h" 1 3
# 34 "/usr/include/stdio.h" 3
# 1 "/lib/gcc-lib/i686-pc-cygwin/3.2/include/stddef.h" 1 3
# 35 "/usr/include/stdio.h" 2 3
# 1 "/lib/gcc-lib/i686-pc-cygwin/3.2/include/stdarg.h" 1 3
# 44 "/lib/gcc-lib/i686-pc-cygwin/3.2/include/stdarg.h" 3
typedef __builtin_va_list __gnuc_va_list;
# 38 "/usr/include/stdio.h" 2 3
# 46 "/usr/include/stdio.h" 3
# 1 "/usr/include/sys/types.h" 1 3
# 24 "/usr/include/sys/types.h" 3
typedef short int __int16_t;
typedef unsigned short int __uint16_t;
typedef int __int32_t;
typedef unsigned int __uint32_t;
__extension__ typedef long long __int64_t;
__extension__ typedef unsigned long long __uint64_t;
# 59 "/usr/include/sys/types.h" 3
# 1 "/lib/gcc-lib/i686-pc-cygwin/3.2/include/stddef.h" 1 3
# 149 "/lib/gcc-lib/i686-pc-cygwin/3.2/include/stddef.h" 3
typedef int ptrdiff_t;
# 60 "/usr/include/sys/types.h" 2 3
# 1 "/usr/include/machine/types.h" 1 3
# 36 "/usr/include/machine/types.h" 3
typedef long int __off_t;
typedef int __pid_t;
__extension__ typedef long long int __loff_t;
# 61 "/usr/include/sys/types.h" 2 3
# 82 "/usr/include/sys/types.h" 3
typedef unsigned char u_char;
typedef unsigned short u_short;
typedef unsigned int u_int;
typedef unsigned long u_long;
typedef unsigned short ushort;
typedef unsigned int uint;
typedef unsigned long clock_t;
typedef long time_t;
struct timespec {
time_t tv_sec;
long tv_nsec;
};
struct itimerspec {
struct timespec it_interval;
struct timespec it_value;
};
typedef long daddr_t;
typedef char * caddr_t;
typedef unsigned long ino_t;
# 130 "/usr/include/sys/types.h" 3
typedef unsigned long vm_offset_t;
typedef unsigned long vm_size_t;
typedef char int8_t;
typedef unsigned char u_int8_t;
typedef short int16_t;
typedef unsigned short u_int16_t;
typedef int int32_t;
typedef unsigned int u_int32_t;
typedef long long int64_t;
typedef unsigned long long u_int64_t;
typedef int32_t register_t;
# 169 "/usr/include/sys/types.h" 3
typedef int pid_t;
typedef long key_t;
typedef _ssize_t ssize_t;
typedef char * addr_t;
typedef int mode_t;
# 188 "/usr/include/sys/types.h" 3
typedef unsigned short nlink_t;
# 210 "/usr/include/sys/types.h" 3
typedef long fd_mask;
typedef struct _types_fd_set {
fd_mask fds_bits[(((64)+(((sizeof (fd_mask) * 8))-1))/((sizeof (fd_mask) * 8)))];
} _types_fd_set;
# 246 "/usr/include/sys/types.h" 3
typedef unsigned long clockid_t;
typedef unsigned long timer_t;
typedef long useconds_t;
# 1 "/usr/include/sys/features.h" 1 3
# 260 "/usr/include/sys/types.h" 2 3
# 364 "/usr/include/sys/types.h" 3
# 1 "/usr/include/cygwin/types.h" 1 3
# 20 "/usr/include/cygwin/types.h" 3
# 1 "/usr/include/sys/sysmacros.h" 1 3
# 21 "/usr/include/cygwin/types.h" 2 3
typedef struct timespec timespec_t, timestruc_t;
typedef long __off32_t;
typedef long long __off64_t;
typedef __off32_t off_t;
typedef short __dev16_t;
typedef unsigned long __dev32_t;
typedef __dev16_t dev_t;
typedef long blksize_t;
typedef long __blkcnt32_t;
typedef long long __blkcnt64_t;
typedef __blkcnt32_t blkcnt_t;
typedef unsigned short __uid16_t;
typedef unsigned short __gid16_t;
typedef unsigned long __uid32_t;
typedef unsigned long __gid32_t;
typedef __uid16_t uid_t;
typedef __gid16_t gid_t;
typedef struct __pthread_t {char __dummy;} *pthread_t;
typedef struct __pthread_mutex_t {char __dummy;} *pthread_mutex_t;
typedef struct __pthread_key_t {char __dummy;} *pthread_key_t;
typedef struct __pthread_attr_t {char __dummy;} *pthread_attr_t;
typedef struct __pthread_mutexattr_t {char __dummy;} *pthread_mutexattr_t;
typedef struct __pthread_condattr_t {char __dummy;} *pthread_condattr_t;
typedef struct __pthread_cond_t {char __dummy;} *pthread_cond_t;
typedef struct
{
pthread_mutex_t mutex;
int state;
}
pthread_once_t;
typedef struct __pthread_rwlock_t {char __dummy;} *pthread_rwlock_t;
typedef struct __pthread_rwlockattr_t {char __dummy;} *pthread_rwlockattr_t;
# 365 "/usr/include/sys/types.h" 2 3
# 47 "/usr/include/stdio.h" 2 3
typedef _fpos_t fpos_t;
typedef __FILE FILE;
# 1 "/usr/include/sys/stdio.h" 1 3
# 58 "/usr/include/stdio.h" 2 3
# 162 "/usr/include/stdio.h" 3
FILE * __attribute__((__cdecl__)) tmpfile (void);
char * __attribute__((__cdecl__)) tmpnam (char *);
int __attribute__((__cdecl__)) fclose (FILE *);
int __attribute__((__cdecl__)) fflush (FILE *);
FILE * __attribute__((__cdecl__)) freopen (const char *, const char *, FILE *);
void __attribute__((__cdecl__)) setbuf (FILE *, char *);
int __attribute__((__cdecl__)) setvbuf (FILE *, char *, int, size_t);
int __attribute__((__cdecl__)) fprintf (FILE *, const char *, ...);
int __attribute__((__cdecl__)) fscanf (FILE *, const char *, ...);
int __attribute__((__cdecl__)) printf (const char *, ...);
int __attribute__((__cdecl__)) scanf (const char *, ...);
int __attribute__((__cdecl__)) sscanf (const char *, const char *, ...);
int __attribute__((__cdecl__)) vfprintf (FILE *, const char *, __gnuc_va_list);
int __attribute__((__cdecl__)) vprintf (const char *, __gnuc_va_list);
int __attribute__((__cdecl__)) vsprintf (char *, const char *, __gnuc_va_list);
int __attribute__((__cdecl__)) fgetc (FILE *);
char * __attribute__((__cdecl__)) fgets (char *, int, FILE *);
int __attribute__((__cdecl__)) fputc (int, FILE *);
int __attribute__((__cdecl__)) fputs (const char *, FILE *);
int __attribute__((__cdecl__)) getc (FILE *);
int __attribute__((__cdecl__)) getchar (void);
char * __attribute__((__cdecl__)) gets (char *);
int __attribute__((__cdecl__)) putc (int, FILE *);
int __attribute__((__cdecl__)) putchar (int);
int __attribute__((__cdecl__)) puts (const char *);
int __attribute__((__cdecl__)) ungetc (int, FILE *);
size_t __attribute__((__cdecl__)) fread (void *, size_t _size, size_t _n, FILE *);
size_t __attribute__((__cdecl__)) fwrite (const void * , size_t _size, size_t _n, FILE *);
int __attribute__((__cdecl__)) fgetpos (FILE *, fpos_t *);
int __attribute__((__cdecl__)) fseek (FILE *, long, int);
int __attribute__((__cdecl__)) fsetpos (FILE *, const fpos_t *);
long __attribute__((__cdecl__)) ftell ( FILE *);
void __attribute__((__cdecl__)) rewind (FILE *);
void __attribute__((__cdecl__)) clearerr (FILE *);
int __attribute__((__cdecl__)) feof (FILE *);
int __attribute__((__cdecl__)) ferror (FILE *);
void __attribute__((__cdecl__)) perror (const char *);
FILE * __attribute__((__cdecl__)) fopen (const char *_name, const char *_type);
int __attribute__((__cdecl__)) sprintf (char *, const char *, ...);
int __attribute__((__cdecl__)) remove (const char *);
int __attribute__((__cdecl__)) rename (const char *, const char *);
int __attribute__((__cdecl__)) asprintf (char **, const char *, ...);
int __attribute__((__cdecl__)) fseeko (FILE *, off_t, int);
off_t __attribute__((__cdecl__)) ftello ( FILE *);
int __attribute__((__cdecl__)) vfiprintf (FILE *, const char *, __gnuc_va_list);
int __attribute__((__cdecl__)) iprintf (const char *, ...);
int __attribute__((__cdecl__)) fiprintf (FILE *, const char *, ...);
int __attribute__((__cdecl__)) siprintf (char *, const char *, ...);
char * __attribute__((__cdecl__)) tempnam (const char *, const char *);
int __attribute__((__cdecl__)) vasprintf (char **, const char *, __gnuc_va_list);
int __attribute__((__cdecl__)) vsnprintf (char *, size_t, const char *, __gnuc_va_list);
int __attribute__((__cdecl__)) vfscanf (FILE *, const char *, __gnuc_va_list);
int __attribute__((__cdecl__)) vscanf (const char *, __gnuc_va_list);
int __attribute__((__cdecl__)) vsscanf (const char *, const char *, __gnuc_va_list);
int __attribute__((__cdecl__)) fcloseall (void);
int __attribute__((__cdecl__)) snprintf (char *, size_t, const char *, ...);
# 231 "/usr/include/stdio.h" 3
FILE * __attribute__((__cdecl__)) fdopen (int, const char *);
int __attribute__((__cdecl__)) fileno (FILE *);
int __attribute__((__cdecl__)) getw (FILE *);
int __attribute__((__cdecl__)) pclose (FILE *);
FILE * __attribute__((__cdecl__)) popen (const char *, const char *);
int __attribute__((__cdecl__)) putw (int, FILE *);
void __attribute__((__cdecl__)) setbuffer (FILE *, char *, int);
int __attribute__((__cdecl__)) setlinebuf (FILE *);
int __attribute__((__cdecl__)) getc_unlocked (FILE *);
int __attribute__((__cdecl__)) getchar_unlocked (void);
void __attribute__((__cdecl__)) flockfile (FILE *);
int __attribute__((__cdecl__)) ftrylockfile (FILE *);
void __attribute__((__cdecl__)) funlockfile (FILE *);
int __attribute__((__cdecl__)) putc_unlocked (int, FILE *);
int __attribute__((__cdecl__)) putchar_unlocked (int);
int __attribute__((__cdecl__)) _asprintf_r (struct _reent *, char **, const char *, ...);
int __attribute__((__cdecl__)) _fcloseall_r (struct _reent *);
FILE * __attribute__((__cdecl__)) _fdopen_r (struct _reent *, int, const char *);
FILE * __attribute__((__cdecl__)) _fopen_r (struct _reent *, const char *, const char *);
int __attribute__((__cdecl__)) _fscanf_r (struct _reent *, FILE *, const char *, ...);
int __attribute__((__cdecl__)) _getchar_r (struct _reent *);
char * __attribute__((__cdecl__)) _gets_r (struct _reent *, char *);
int __attribute__((__cdecl__)) _iprintf_r (struct _reent *, const char *, ...);
int __attribute__((__cdecl__)) _mkstemp_r (struct _reent *, char *);
char * __attribute__((__cdecl__)) _mktemp_r (struct _reent *, char *);
void __attribute__((__cdecl__)) _perror_r (struct _reent *, const char *);
int __attribute__((__cdecl__)) _printf_r (struct _reent *, const char *, ...);
int __attribute__((__cdecl__)) _putchar_r (struct _reent *, int);
int __attribute__((__cdecl__)) _puts_r (struct _reent *, const char *);
int __attribute__((__cdecl__)) _remove_r (struct _reent *, const char *);
int __attribute__((__cdecl__)) _rename_r (struct _reent *, const char *_old, const char *_new);
int __attribute__((__cdecl__)) _scanf_r (struct _reent *, const char *, ...);
int __attribute__((__cdecl__)) _sprintf_r (struct _reent *, char *, const char *, ...);
int __attribute__((__cdecl__)) _snprintf_r (struct _reent *, char *, size_t, const char *, ...);
int __attribute__((__cdecl__)) _sscanf_r (struct _reent *, const char *, const char *, ...);
char * __attribute__((__cdecl__)) _tempnam_r (struct _reent *, const char *, const char *);
FILE * __attribute__((__cdecl__)) _tmpfile_r (struct _reent *);
char * __attribute__((__cdecl__)) _tmpnam_r (struct _reent *, char *);
int __attribute__((__cdecl__)) _vasprintf_r (struct _reent *, char **, const char *, __gnuc_va_list);
int __attribute__((__cdecl__)) _vfprintf_r (struct _reent *, FILE *, const char *, __gnuc_va_list);
int __attribute__((__cdecl__)) _vprintf_r (struct _reent *, const char *, __gnuc_va_list);
int __attribute__((__cdecl__)) _vsprintf_r (struct _reent *, char *, const char *, __gnuc_va_list);
int __attribute__((__cdecl__)) _vsnprintf_r (struct _reent *, char *, size_t, const char *, __gnuc_va_list);
int __attribute__((__cdecl__)) _vfscanf_r (struct _reent *, FILE *, const char *, __gnuc_va_list);
int __attribute__((__cdecl__)) _vscanf_r (struct _reent *, const char *, __gnuc_va_list);
int __attribute__((__cdecl__)) _vsscanf_r (struct _reent *, const char *, const char *, __gnuc_va_list);
ssize_t __attribute__((__cdecl__)) __getdelim (char **, size_t *, int, FILE *);
ssize_t __attribute__((__cdecl__)) __getline (char **, size_t *, FILE *);
# 309 "/usr/include/stdio.h" 3
int __attribute__((__cdecl__)) __srget (FILE *);
int __attribute__((__cdecl__)) __swbuf (int, FILE *);
FILE *__attribute__((__cdecl__)) funopen (const void * _cookie, int (*readfn)(void * _cookie, char *_buf, int _n), int (*writefn)(void * _cookie, const char *_buf, int _n), fpos_t (*seekfn)(void * _cookie, fpos_t _off, int _whence), int (*closefn)(void * _cookie));
# 334 "/usr/include/stdio.h" 3
static __inline__ int __sgetc(FILE *__p)
{
int __c = (--(__p)->_r < 0 ? __srget(__p) : (int)(*(__p)->_p++));
if ((__p->_flags & 0x4000) && (__c == '\r'))
{
int __c2 = (--(__p)->_r < 0 ? __srget(__p) : (int)(*(__p)->_p++));
if (__c2 == '\n')
__c = __c2;
else
ungetc(__c2, __p);
}
return __c;
}
# 416 "/usr/include/stdio.h" 3
# 4 "transcendental.c" 2
# 1 "/cygdrive/c/fulgham/projects/dylan/src/d2c/runtime/runtime.h" 1
typedef int boolean;
typedef char bool;
# 12 "/cygdrive/c/fulgham/projects/dylan/src/d2c/runtime/runtime.h"
typedef struct heapobj *heapptr_t;
typedef struct descriptor {
heapptr_t heapptr;
union {
long l;
float f;
void *ptr;
} dataword;
} descriptor_t;
typedef descriptor_t *(*entry_t)();
extern heapptr_t allocate(int bytes);
extern descriptor_t *allocate_stack(void);
extern void destroy(void* ptr);
extern heapptr_t make_trampoline(void *func, descriptor_t closure,
int nkeys, char *signature);
extern descriptor_t *catch(descriptor_t *(*fn)(descriptor_t *sp, void *state,
heapptr_t thunk),
descriptor_t *sp, heapptr_t func);
extern void throw(void *state, descriptor_t *stack_top);
extern descriptor_t *pad_cluster(descriptor_t *start, descriptor_t *end,
int min_values);
extern descriptor_t *values_sequence(descriptor_t *sp, heapptr_t vector);
extern heapptr_t make_double_float(double value);
extern double double_float_value(heapptr_t df);
extern heapptr_t make_extended_float(long double value);
extern long double extended_float_value(heapptr_t xf);
typedef struct { long hi; long lo; } gd_long_long;
extern heapptr_t make_double_integer(gd_long_long value);
extern gd_long_long double_integer_value(heapptr_t xf);
extern int double_integer_eq(gd_long_long a, gd_long_long b);
extern int double_integer_lt(gd_long_long a, gd_long_long b);
extern gd_long_long double_integer_add(gd_long_long a, gd_long_long b);
extern gd_long_long double_integer_mul(gd_long_long a, gd_long_long b);
extern gd_long_long double_integer_sub(gd_long_long a, gd_long_long b);
extern gd_long_long double_integer_neg(gd_long_long a);
extern gd_long_long double_integer_div(gd_long_long a, gd_long_long b);
extern gd_long_long double_integer_mod(gd_long_long a, gd_long_long b);
extern gd_long_long double_integer_logior(gd_long_long a, gd_long_long b);
extern gd_long_long double_integer_logxor(gd_long_long a, gd_long_long b);
extern gd_long_long double_integer_logand(gd_long_long a, gd_long_long b);
extern gd_long_long double_integer_lognot(gd_long_long a);
extern gd_long_long double_integer_shl(gd_long_long a, long b);
extern gd_long_long double_integer_shr(gd_long_long a, long b);
extern gd_long_long integer_to_double_integer(long b);
extern long double_integer_to_integer(gd_long_long b);
extern heapptr_t initial_symbols;
extern void not_reached(void);
extern void no_core_dumps(void);
# 1 "/usr/include/errno.h" 1 3
typedef int error_t;
# 1 "/usr/include/sys/errno.h" 1 3
# 15 "/usr/include/sys/errno.h" 3
extern int *__errno (void);
extern __attribute__((dllimport)) const char * const _sys_errlist[];
extern __attribute__((dllimport)) int _sys_nerr;
extern __attribute__((dllimport)) const char * const sys_errlist[];
extern __attribute__((dllimport)) int sys_nerr;
# 7 "/usr/include/errno.h" 2 3
# 87 "/cygdrive/c/fulgham/projects/dylan/src/d2c/runtime/runtime.h" 2
# 6 "transcendental.c" 2
# 1 "/usr/include/math.h" 1 3
# 1 "/usr/include/machine/ieeefp.h" 1 3
# 8 "/usr/include/math.h" 2 3
union __dmath
{
__ULong i[2];
double d;
};
extern __attribute__((dllimport)) const union __dmath __infinity[];
# 35 "/usr/include/math.h" 3
extern double atan (double);
extern double cos (double);
extern double sin (double);
extern double tan (double);
extern double tanh (double);
extern double frexp (double, int *);
extern double modf (double, double *);
extern double ceil (double);
extern double fabs (double);
extern double floor (double);
extern double acos (double);
extern double asin (double);
extern double atan2 (double, double);
extern double cosh (double);
extern double sinh (double);
extern double exp (double);
extern double ldexp (double, int);
extern double log (double);
extern double log10 (double);
extern double pow (double, double);
extern double sqrt (double);
extern double fmod (double, double);
# 72 "/usr/include/math.h" 3
typedef float float_t;
typedef double double_t;
# 82 "/usr/include/math.h" 3
extern int __fpclassifyf (float x);
extern int __fpclassifyd (double x);
# 121 "/usr/include/math.h" 3
extern double infinity (void);
extern double nan (void);
extern int isnan (double);
extern int isinf (double);
extern int finite (double);
extern double copysign (double, double);
extern int ilogb (double);
extern double asinh (double);
extern double cbrt (double);
extern double nextafter (double, double);
extern double rint (double);
extern double scalbn (double, int);
extern double exp2 (double);
extern double scalbln (double, long int);
extern double tgamma (double);
extern double nearbyint (double);
extern long int lrint (double);
extern double round (double);
extern long int lround (double);
extern double trunc (double);
extern double remquo (double, double, int *);
extern double copysign (double, double);
extern double fdim (double, double);
extern double fmax (double, double);
extern double fmin (double, double);
extern double fma (double, double, double);
extern void sincos (double, double *, double *);
extern double log1p (double);
extern double expm1 (double);
extern double acosh (double);
extern double atanh (double);
extern double remainder (double, double);
extern double gamma (double);
extern double gamma_r (double, int *);
extern double lgamma (double);
extern double lgamma_r (double, int *);
extern double erf (double);
extern double erfc (double);
extern double y0 (double);
extern double y1 (double);
extern double yn (int, double);
extern double j0 (double);
extern double j1 (double);
extern double jn (int, double);
extern double hypot (double, double);
extern double cabs();
extern double drem (double, double);
# 189 "/usr/include/math.h" 3
extern float atanf (float);
extern float cosf (float);
extern float sinf (float);
extern float tanf (float);
extern float tanhf (float);
extern float frexpf (float, int *);
extern float modff (float, float *);
extern float ceilf (float);
extern float fabsf (float);
extern float floorf (float);
extern float acosf (float);
extern float asinf (float);
extern float atan2f (float, float);
extern float coshf (float);
extern float sinhf (float);
extern float expf (float);
extern float ldexpf (float, int);
extern float logf (float);
extern float log10f (float);
extern float powf (float, float);
extern float sqrtf (float);
extern float fmodf (float, float);
# 221 "/usr/include/math.h" 3
extern float exp2f (float);
extern float scalblnf (float, long int);
extern float tgammaf (float);
extern float nearbyintf (float);
extern long int lrintf (float);
extern float roundf (float);
extern long int lroundf (float);
extern float truncf (float);
extern float remquof (float, float, int *);
extern float copysignf (float, float);
extern float fdimf (float, float);
extern float fmaxf (float, float);
extern float fminf (float, float);
extern float fmaf (float, float, float);
extern float infinityf (void);
extern float nanf (void);
extern int isnanf (float);
extern int isinff (float);
extern int finitef (float);
extern float copysignf (float, float);
extern int ilogbf (float);
extern float asinhf (float);
extern float cbrtf (float);
extern float nextafterf (float, float);
extern float rintf (float);
extern float scalbnf (float, int);
extern float log1pf (float);
extern float expm1f (float);
extern void sincosf (float, float *, float *);
extern float acoshf (float);
extern float atanhf (float);
extern float remainderf (float, float);
extern float gammaf (float);
extern float gammaf_r (float, int *);
extern float lgammaf (float);
extern float lgammaf_r (float, int *);
extern float erff (float);
extern float erfcf (float);
extern float y0f (float);
extern float y1f (float);
extern float ynf (int, float);
extern float j0f (float);
extern float j1f (float);
extern float jnf (int, float);
extern float hypotf (float, float);
extern float cabsf();
extern float dremf (float, float);
extern int *__signgam (void);
# 290 "/usr/include/math.h" 3
struct exception
{
int type;
char *name;
double arg1;
double arg2;
double retval;
int err;
};
extern int matherr (struct exception *e);
# 345 "/usr/include/math.h" 3
enum __fdlibm_version
{
__fdlibm_ieee = -1,
__fdlibm_svid,
__fdlibm_xopen,
__fdlibm_posix
};
extern __attribute__((dllimport)) const enum __fdlibm_version __fdlib_version;
# 365 "/usr/include/math.h" 3
# 8 "transcendental.c" 2
extern descriptor_t dylanZtrue;
extern descriptor_t dylanZfalse;
# 30 "transcendental.c"
void transcendentalZLINE_1248(descriptor_t *orig_sp)
{
descriptor_t *cluster_0_top;
return;
}
double transcendentalZtranscendentalZCdouble_pi = 0;
int transcendentalZtranscendentalZCdouble_pi_initialized = 0;
void transcendentalZLINE_109(descriptor_t *orig_sp)
{
transcendentalZtranscendentalZCdouble_pi = 0.3141592653589793e1;
transcendentalZtranscendentalZCdouble_pi_initialized = 1;
return;
}
float transcendentalZtranscendentalZCsingle_pi = 0;
int transcendentalZtranscendentalZCsingle_pi_initialized = 0;
void transcendentalZLINE_112(descriptor_t *orig_sp)
{
descriptor_t *cluster_0_top;
double L_temp;
if (!transcendentalZtranscendentalZCdouble_pi_initialized) abort();
L_temp = transcendentalZtranscendentalZCdouble_pi;
transcendentalZtranscendentalZCsingle_pi = ((float)L_temp);
transcendentalZtranscendentalZCsingle_pi_initialized = 1;
return;
}
double transcendentalZtranscendentalZCdouble_e = 0;
int transcendentalZtranscendentalZCdouble_e_initialized = 0;
void transcendentalZLINE_116(descriptor_t *orig_sp)
{
transcendentalZtranscendentalZCdouble_e = 0.2718281828459045e1;
transcendentalZtranscendentalZCdouble_e_initialized = 1;
return;
}
float transcendentalZtranscendentalZCsingle_e = 0;
int transcendentalZtranscendentalZCsingle_e_initialized = 0;
void transcendentalZLINE_120(descriptor_t *orig_sp)
{
descriptor_t *cluster_0_top;
double L_temp;
if (!transcendentalZtranscendentalZCdouble_e_initialized) abort();
L_temp = transcendentalZtranscendentalZCdouble_e;
transcendentalZtranscendentalZCsingle_e = ((float)L_temp);
transcendentalZtranscendentalZCsingle_e_initialized = 1;
return;
}
extern heapptr_t dylanZdylan_visceraZCLS_simple_object_vector_MAKER_FUN(descriptor_t *orig_sp, long A0, descriptor_t A1);
extern void dylanZdylan_visceraZno_applicable_methods_error_FUN(descriptor_t *orig_sp, heapptr_t A0, heapptr_t A1);
extern struct heapobj transcendentalZtranscendentalZsin_ROOT;
extern double transcendentalZtranscendentalZsin_METH(descriptor_t *orig_sp, double A0, heapptr_t A1);
extern struct heapobj dylanZempty_list_ROOT;
extern float transcendentalZtranscendentalZsin_METH_2(descriptor_t *orig_sp, float A0, heapptr_t A1);
extern descriptor_t transcendentalZliteral;
extern float transcendentalZtranscendentalZsin_METH_3(descriptor_t *orig_sp, long A0, heapptr_t A1);
descriptor_t transcendentalZtranscendentalZsin_DISCRIM_FUN(descriptor_t *orig_sp, descriptor_t A_arg0 )
{
descriptor_t *cluster_0_top;
long L_unique_id;
heapptr_t L_instance;
descriptor_t L_result0;
heapptr_t L_instance_2;
heapptr_t L_instance_3;
L_unique_id = (*(long *)((char *)(*(heapptr_t *)((char *)A_arg0.heapptr + 0)) + 8));
if ((L_unique_id < 38)) {
if ((L_unique_id < 37)) {
if ((L_unique_id < 36)) {
L_instance = dylanZdylan_visceraZCLS_simple_object_vector_MAKER_FUN(orig_sp, 1, dylanZfalse);
(*(descriptor_t *)((char *)L_instance + 8 + 0 * sizeof(descriptor_t))) = A_arg0;
dylanZdylan_visceraZno_applicable_methods_error_FUN(orig_sp, &transcendentalZtranscendentalZsin_ROOT, L_instance);
not_reached();
}
else {
L_result0.heapptr = make_double_float(transcendentalZtranscendentalZsin_METH(orig_sp, double_float_value(A_arg0.heapptr), &dylanZempty_list_ROOT));
L_result0.dataword.l = 0;
}
}
else {
L_result0.heapptr = transcendentalZliteral.heapptr;
L_result0.dataword.f = transcendentalZtranscendentalZsin_METH_2(orig_sp, A_arg0.dataword.f, &dylanZempty_list_ROOT);
}
}
else if ((L_unique_id < 40)) {
if ((L_unique_id < 39)) {
L_instance_2 = dylanZdylan_visceraZCLS_simple_object_vector_MAKER_FUN(orig_sp, 1, dylanZfalse);
(*(descriptor_t *)((char *)L_instance_2 + 8 + 0 * sizeof(descriptor_t))) = A_arg0;
dylanZdylan_visceraZno_applicable_methods_error_FUN(orig_sp, &transcendentalZtranscendentalZsin_ROOT, L_instance_2);
not_reached();
}
else {
L_result0.heapptr = transcendentalZliteral.heapptr;
L_result0.dataword.f = transcendentalZtranscendentalZsin_METH_3(orig_sp, A_arg0.dataword.l, &dylanZempty_list_ROOT);
}
}
else {
L_instance_3 = dylanZdylan_visceraZCLS_simple_object_vector_MAKER_FUN(orig_sp, 1, dylanZfalse);
(*(descriptor_t *)((char *)L_instance_3 + 8 + 0 * sizeof(descriptor_t))) = A_arg0;
dylanZdylan_visceraZno_applicable_methods_error_FUN(orig_sp, &transcendentalZtranscendentalZsin_ROOT, L_instance_3);
not_reached();
}
return L_result0;
}
extern void dylanZdylan_visceraZtype_error_FUN(descriptor_t *orig_sp, descriptor_t A0, heapptr_t A1);
extern struct heapobj dylanZdylan_visceraZCLS_real_HEAP;
extern void dylanZdylan_visceraZwrong_number_of_arguments_error_FUN(descriptor_t *orig_sp, boolean A0, long A1, long A2);
descriptor_t * transcendentalZtranscendentalZsin_DISCRIM_GENERAL(descriptor_t *orig_sp, heapptr_t A_self , long A_nargs )
{
descriptor_t *cluster_0_top;
void * L_args;
descriptor_t L_temp;
long L_unique_id;
boolean L_temp_2;
descriptor_t L_arg;
descriptor_t L_result0;
if ((A_nargs == 1)) {
L_args = ((void *)(orig_sp - 1));
L_temp = (((descriptor_t *)L_args)[0]);
L_unique_id = (*(long *)((char *)(*(heapptr_t *)((char *)L_temp.heapptr + 0)) + 8));
if ((L_unique_id < 35)) {
L_temp_2 = 0;
}
else if ((40 < L_unique_id)) {
L_temp_2 = 0;
}
else {
L_temp_2 = 1;
}
if (L_temp_2) {
L_arg = L_temp;
orig_sp = L_args;
L_result0 = transcendentalZtranscendentalZsin_DISCRIM_FUN(orig_sp, L_arg);
orig_sp[0] = L_result0;
return orig_sp + 1;
}
else {
dylanZdylan_visceraZtype_error_FUN(orig_sp, L_temp, &dylanZdylan_visceraZCLS_real_HEAP);
not_reached();
}
}
else {
dylanZdylan_visceraZwrong_number_of_arguments_error_FUN(orig_sp, 1, 1, A_nargs);
not_reached();
}
}
extern struct heapobj transcendentalZtranscendentalZcos_ROOT;
extern double transcendentalZtranscendentalZcos_METH(descriptor_t *orig_sp, double A0, heapptr_t A1);
extern float transcendentalZtranscendentalZcos_METH_2(descriptor_t *orig_sp, float A0, heapptr_t A1);
extern float transcendentalZtranscendentalZcos_METH_3(descriptor_t *orig_sp, long A0, heapptr_t A1);
descriptor_t transcendentalZtranscendentalZcos_DISCRIM_FUN(descriptor_t *orig_sp, descriptor_t A_arg0 )
{
descriptor_t *cluster_0_top;
long L_unique_id;
heapptr_t L_instance;
descriptor_t L_result0;
heapptr_t L_instance_2;
heapptr_t L_instance_3;
L_unique_id = (*(long *)((char *)(*(heapptr_t *)((char *)A_arg0.heapptr + 0)) + 8));
if ((L_unique_id < 38)) {
if ((L_unique_id < 37)) {
if ((L_unique_id < 36)) {
L_instance = dylanZdylan_visceraZCLS_simple_object_vector_MAKER_FUN(orig_sp, 1, dylanZfalse);
(*(descriptor_t *)((char *)L_instance + 8 + 0 * sizeof(descriptor_t))) = A_arg0;
dylanZdylan_visceraZno_applicable_methods_error_FUN(orig_sp, &transcendentalZtranscendentalZcos_ROOT, L_instance);
not_reached();
}
else {
L_result0.heapptr = make_double_float(transcendentalZtranscendentalZcos_METH(orig_sp, double_float_value(A_arg0.heapptr), &dylanZempty_list_ROOT));
L_result0.dataword.l = 0;
}
}
else {
L_result0.heapptr = transcendentalZliteral.heapptr;
L_result0.dataword.f = transcendentalZtranscendentalZcos_METH_2(orig_sp, A_arg0.dataword.f, &dylanZempty_list_ROOT);
}
}
else if ((L_unique_id < 40)) {
if ((L_unique_id < 39)) {
L_instance_2 = dylanZdylan_visceraZCLS_simple_object_vector_MAKER_FUN(orig_sp, 1, dylanZfalse);
(*(descriptor_t *)((char *)L_instance_2 + 8 + 0 * sizeof(descriptor_t))) = A_arg0;
dylanZdylan_visceraZno_applicable_methods_error_FUN(orig_sp, &transcendentalZtranscendentalZcos_ROOT, L_instance_2);
not_reached();
}
else {
L_result0.heapptr = transcendentalZliteral.heapptr;
L_result0.dataword.f = transcendentalZtranscendentalZcos_METH_3(orig_sp, A_arg0.dataword.l, &dylanZempty_list_ROOT);
}
}
else {
L_instance_3 = dylanZdylan_visceraZCLS_simple_object_vector_MAKER_FUN(orig_sp, 1, dylanZfalse);
(*(descriptor_t *)((char *)L_instance_3 + 8 + 0 * sizeof(descriptor_t))) = A_arg0;
dylanZdylan_visceraZno_applicable_methods_error_FUN(orig_sp, &transcendentalZtranscendentalZcos_ROOT, L_instance_3);
not_reached();
}
return L_result0;
}
descriptor_t * transcendentalZtranscendentalZcos_DISCRIM_GENERAL(descriptor_t *orig_sp, heapptr_t A_self , long A_nargs )
{
descriptor_t *cluster_0_top;
void * L_args;
descriptor_t L_temp;
long L_unique_id;
boolean L_temp_2;
descriptor_t L_arg;
descriptor_t L_result0;
if ((A_nargs == 1)) {
L_args = ((void *)(orig_sp - 1));
L_temp = (((descriptor_t *)L_args)[0]);
L_unique_id = (*(long *)((char *)(*(heapptr_t *)((char *)L_temp.heapptr + 0)) + 8));
if ((L_unique_id < 35)) {
L_temp_2 = 0;
}
else if ((40 < L_unique_id)) {
L_temp_2 = 0;
}
else {
L_temp_2 = 1;
}
if (L_temp_2) {
L_arg = L_temp;
orig_sp = L_args;
L_result0 = transcendentalZtranscendentalZcos_DISCRIM_FUN(orig_sp, L_arg);
orig_sp[0] = L_result0;
return orig_sp + 1;
}
else {
dylanZdylan_visceraZtype_error_FUN(orig_sp, L_temp, &dylanZdylan_visceraZCLS_real_HEAP);
not_reached();
}
}
else {
dylanZdylan_visceraZwrong_number_of_arguments_error_FUN(orig_sp, 1, 1, A_nargs);
not_reached();
}
}
extern struct heapobj transcendentalZtranscendentalZtan_ROOT;
extern double transcendentalZtranscendentalZtan_METH(descriptor_t *orig_sp, double A0, heapptr_t A1);
extern float transcendentalZtranscendentalZtan_METH_2(descriptor_t *orig_sp, float A0, heapptr_t A1);
extern float transcendentalZtranscendentalZtan_METH_3(descriptor_t *orig_sp, long A0, heapptr_t A1);
descriptor_t transcendentalZtranscendentalZtan_DISCRIM_FUN(descriptor_t *orig_sp, descriptor_t A_arg0 )
{
descriptor_t *cluster_0_top;
long L_unique_id;
heapptr_t L_instance;
descriptor_t L_result0;
heapptr_t L_instance_2;
heapptr_t L_instance_3;
L_unique_id = (*(long *)((char *)(*(heapptr_t *)((char *)A_arg0.heapptr + 0)) + 8));
if ((L_unique_id < 38)) {
if ((L_unique_id < 37)) {
if ((L_unique_id < 36)) {
L_instance = dylanZdylan_visceraZCLS_simple_object_vector_MAKER_FUN(orig_sp, 1, dylanZfalse);
(*(descriptor_t *)((char *)L_instance + 8 + 0 * sizeof(descriptor_t))) = A_arg0;
dylanZdylan_visceraZno_applicable_methods_error_FUN(orig_sp, &transcendentalZtranscendentalZtan_ROOT, L_instance);
not_reached();
}
else {
L_result0.heapptr = make_double_float(transcendentalZtranscendentalZtan_METH(orig_sp, double_float_value(A_arg0.heapptr), &dylanZempty_list_ROOT));
L_result0.dataword.l = 0;
}
}
else {
L_result0.heapptr = transcendentalZliteral.heapptr;
L_result0.dataword.f = transcendentalZtranscendentalZtan_METH_2(orig_sp, A_arg0.dataword.f, &dylanZempty_list_ROOT);
}
}
else if ((L_unique_id < 40)) {
if ((L_unique_id < 39)) {
L_instance_2 = dylanZdylan_visceraZCLS_simple_object_vector_MAKER_FUN(orig_sp, 1, dylanZfalse);
(*(descriptor_t *)((char *)L_instance_2 + 8 + 0 * sizeof(descriptor_t))) = A_arg0;
dylanZdylan_visceraZno_applicable_methods_error_FUN(orig_sp, &transcendentalZtranscendentalZtan_ROOT, L_instance_2);
not_reached();
}
else {
L_result0.heapptr = transcendentalZliteral.heapptr;
L_result0.dataword.f = transcendentalZtranscendentalZtan_METH_3(orig_sp, A_arg0.dataword.l, &dylanZempty_list_ROOT);
}
}
else {
L_instance_3 = dylanZdylan_visceraZCLS_simple_object_vector_MAKER_FUN(orig_sp, 1, dylanZfalse);
(*(descriptor_t *)((char *)L_instance_3 + 8 + 0 * sizeof(descriptor_t))) = A_arg0;
dylanZdylan_visceraZno_applicable_methods_error_FUN(orig_sp, &transcendentalZtranscendentalZtan_ROOT, L_instance_3);
not_reached();
}
return L_result0;
}
descriptor_t * transcendentalZtranscendentalZtan_DISCRIM_GENERAL(descriptor_t *orig_sp, heapptr_t A_self , long A_nargs )
{
descriptor_t *cluster_0_top;
void * L_args;
descriptor_t L_temp;
long L_unique_id;
boolean L_temp_2;
descriptor_t L_arg;
descriptor_t L_result0;
if ((A_nargs == 1)) {
L_args = ((void *)(orig_sp - 1));
L_temp = (((descriptor_t *)L_args)[0]);
L_unique_id = (*(long *)((char *)(*(heapptr_t *)((char *)L_temp.heapptr + 0)) + 8));
if ((L_unique_id < 35)) {
L_temp_2 = 0;
}
else if ((40 < L_unique_id)) {
L_temp_2 = 0;
}
else {
L_temp_2 = 1;
}
if (L_temp_2) {
L_arg = L_temp;
orig_sp = L_args;
L_result0 = transcendentalZtranscendentalZtan_DISCRIM_FUN(orig_sp, L_arg);
orig_sp[0] = L_result0;
return orig_sp + 1;
}
else {
dylanZdylan_visceraZtype_error_FUN(orig_sp, L_temp, &dylanZdylan_visceraZCLS_real_HEAP);
not_reached();
}
}
else {
dylanZdylan_visceraZwrong_number_of_arguments_error_FUN(orig_sp, 1, 1, A_nargs);
not_reached();
}
}
extern struct heapobj transcendentalZtranscendentalZasin_ROOT;
extern double transcendentalZtranscendentalZasin_METH(descriptor_t *orig_sp, double A0, heapptr_t A1);
extern float transcendentalZtranscendentalZasin_METH_2(descriptor_t *orig_sp, float A0, heapptr_t A1);
extern float transcendentalZtranscendentalZasin_METH_3(descriptor_t *orig_sp, long A0, heapptr_t A1);
descriptor_t transcendentalZtranscendentalZasin_DISCRIM_FUN(descriptor_t *orig_sp, descriptor_t A_arg0 )
{
descriptor_t *cluster_0_top;
long L_unique_id;
heapptr_t L_instance;
descriptor_t L_result0;
heapptr_t L_instance_2;
heapptr_t L_instance_3;
L_unique_id = (*(long *)((char *)(*(heapptr_t *)((char *)A_arg0.heapptr + 0)) + 8));
if ((L_unique_id < 38)) {
if ((L_unique_id < 37)) {
if ((L_unique_id < 36)) {
L_instance = dylanZdylan_visceraZCLS_simple_object_vector_MAKER_FUN(orig_sp, 1, dylanZfalse);
(*(descriptor_t *)((char *)L_instance + 8 + 0 * sizeof(descriptor_t))) = A_arg0;
dylanZdylan_visceraZno_applicable_methods_error_FUN(orig_sp, &transcendentalZtranscendentalZasin_ROOT, L_instance);
not_reached();
}
else {
L_result0.heapptr = make_double_float(transcendentalZtranscendentalZasin_METH(orig_sp, double_float_value(A_arg0.heapptr), &dylanZempty_list_ROOT));
L_result0.dataword.l = 0;
}
}
else {
L_result0.heapptr = transcendentalZliteral.heapptr;
L_result0.dataword.f = transcendentalZtranscendentalZasin_METH_2(orig_sp, A_arg0.dataword.f, &dylanZempty_list_ROOT);
}
}
else if ((L_unique_id < 40)) {
if ((L_unique_id < 39)) {
L_instance_2 = dylanZdylan_visceraZCLS_simple_object_vector_MAKER_FUN(orig_sp, 1, dylanZfalse);
(*(descriptor_t *)((char *)L_instance_2 + 8 + 0 * sizeof(descriptor_t))) = A_arg0;
dylanZdylan_visceraZno_applicable_methods_error_FUN(orig_sp, &transcendentalZtranscendentalZasin_ROOT, L_instance_2);
not_reached();
}
else {
L_result0.heapptr = transcendentalZliteral.heapptr;
L_result0.dataword.f = transcendentalZtranscendentalZasin_METH_3(orig_sp, A_arg0.dataword.l, &dylanZempty_list_ROOT);
}
}
else {
L_instance_3 = dylanZdylan_visceraZCLS_simple_object_vector_MAKER_FUN(orig_sp, 1, dylanZfalse);
(*(descriptor_t *)((char *)L_instance_3 + 8 + 0 * sizeof(descriptor_t))) = A_arg0;
dylanZdylan_visceraZno_applicable_methods_error_FUN(orig_sp, &transcendentalZtranscendentalZasin_ROOT, L_instance_3);
not_reached();
}
return L_result0;
}
descriptor_t * transcendentalZtranscendentalZasin_DISCRIM_GENERAL(descriptor_t *orig_sp, heapptr_t A_self , long A_nargs )
{
descriptor_t *cluster_0_top;
void * L_args;
descriptor_t L_temp;
long L_unique_id;
boolean L_temp_2;
descriptor_t L_arg;
descriptor_t L_result0;
if ((A_nargs == 1)) {
L_args = ((void *)(orig_sp - 1));
L_temp = (((descriptor_t *)L_args)[0]);
L_unique_id = (*(long *)((char *)(*(heapptr_t *)((char *)L_temp.heapptr + 0)) + 8));
if ((L_unique_id < 35)) {
L_temp_2 = 0;
}
else if ((40 < L_unique_id)) {
L_temp_2 = 0;
}
else {
L_temp_2 = 1;
}
if (L_temp_2) {
L_arg = L_temp;
orig_sp = L_args;
L_result0 = transcendentalZtranscendentalZasin_DISCRIM_FUN(orig_sp, L_arg);
orig_sp[0] = L_result0;
return orig_sp + 1;
}
else {
dylanZdylan_visceraZtype_error_FUN(orig_sp, L_temp, &dylanZdylan_visceraZCLS_real_HEAP);
not_reached();
}
}
else {
dylanZdylan_visceraZwrong_number_of_arguments_error_FUN(orig_sp, 1, 1, A_nargs);
not_reached();
}
}
extern struct heapobj transcendentalZtranscendentalZacos_ROOT;
extern double transcendentalZtranscendentalZacos_METH(descriptor_t *orig_sp, double A0, heapptr_t A1);
extern float transcendentalZtranscendentalZacos_METH_2(descriptor_t *orig_sp, float A0, heapptr_t A1);
extern float transcendentalZtranscendentalZacos_METH_3(descriptor_t *orig_sp, long A0, heapptr_t A1);
descriptor_t transcendentalZtranscendentalZacos_DISCRIM_FUN(descriptor_t *orig_sp, descriptor_t A_arg0 )
{
descriptor_t *cluster_0_top;
long L_unique_id;
heapptr_t L_instance;
descriptor_t L_result0;
heapptr_t L_instance_2;
heapptr_t L_instance_3;
L_unique_id = (*(long *)((char *)(*(heapptr_t *)((char *)A_arg0.heapptr + 0)) + 8));
if ((L_unique_id < 38)) {
if ((L_unique_id < 37)) {
if ((L_unique_id < 36)) {
L_instance = dylanZdylan_visceraZCLS_simple_object_vector_MAKER_FUN(orig_sp, 1, dylanZfalse);
(*(descriptor_t *)((char *)L_instance + 8 + 0 * sizeof(descriptor_t))) = A_arg0;
dylanZdylan_visceraZno_applicable_methods_error_FUN(orig_sp, &transcendentalZtranscendentalZacos_ROOT, L_instance);
not_reached();
}
else {
L_result0.heapptr = make_double_float(transcendentalZtranscendentalZacos_METH(orig_sp, double_float_value(A_arg0.heapptr), &dylanZempty_list_ROOT));
L_result0.dataword.l = 0;
}
}
else {
L_result0.heapptr = transcendentalZliteral.heapptr;
L_result0.dataword.f = transcendentalZtranscendentalZacos_METH_2(orig_sp, A_arg0.dataword.f, &dylanZempty_list_ROOT);
}
}
else if ((L_unique_id < 40)) {
if ((L_unique_id < 39)) {
L_instance_2 = dylanZdylan_visceraZCLS_simple_object_vector_MAKER_FUN(orig_sp, 1, dylanZfalse);
(*(descriptor_t *)((char *)L_instance_2 + 8 + 0 * sizeof(descriptor_t))) = A_arg0;
dylanZdylan_visceraZno_applicable_methods_error_FUN(orig_sp, &transcendentalZtranscendentalZacos_ROOT, L_instance_2);
not_reached();
}
else {
L_result0.heapptr = transcendentalZliteral.heapptr;
L_result0.dataword.f = transcendentalZtranscendentalZacos_METH_3(orig_sp, A_arg0.dataword.l, &dylanZempty_list_ROOT);
}
}
else {
L_instance_3 = dylanZdylan_visceraZCLS_simple_object_vector_MAKER_FUN(orig_sp, 1, dylanZfalse);
(*(descriptor_t *)((char *)L_instance_3 + 8 + 0 * sizeof(descriptor_t))) = A_arg0;
dylanZdylan_visceraZno_applicable_methods_error_FUN(orig_sp, &transcendentalZtranscendentalZacos_ROOT, L_instance_3);
not_reached();
}
return L_result0;
}
descriptor_t * transcendentalZtranscendentalZacos_DISCRIM_GENERAL(descriptor_t *orig_sp, heapptr_t A_self , long A_nargs )
{
descriptor_t *cluster_0_top;
void * L_args;
descriptor_t L_temp;
long L_unique_id;
boolean L_temp_2;
descriptor_t L_arg;
descriptor_t L_result0;
if ((A_nargs == 1)) {
L_args = ((void *)(orig_sp - 1));
L_temp = (((descriptor_t *)L_args)[0]);
L_unique_id = (*(long *)((char *)(*(heapptr_t *)((char *)L_temp.heapptr + 0)) + 8));
if ((L_unique_id < 35)) {
L_temp_2 = 0;
}
else if ((40 < L_unique_id)) {
L_temp_2 = 0;
}
else {
L_temp_2 = 1;
}
if (L_temp_2) {
L_arg = L_temp;
orig_sp = L_args;
L_result0 = transcendentalZtranscendentalZacos_DISCRIM_FUN(orig_sp, L_arg);
orig_sp[0] = L_result0;
return orig_sp + 1;
}
else {
dylanZdylan_visceraZtype_error_FUN(orig_sp, L_temp, &dylanZdylan_visceraZCLS_real_HEAP);
not_reached();
}
}
else {
dylanZdylan_visceraZwrong_number_of_arguments_error_FUN(orig_sp, 1, 1, A_nargs);
not_reached();
}
}
extern struct heapobj transcendentalZtranscendentalZatan_ROOT;
extern double transcendentalZtranscendentalZatan_METH(descriptor_t *orig_sp, double A0, heapptr_t A1);
extern float transcendentalZtranscendentalZatan_METH_2(descriptor_t *orig_sp, float A0, heapptr_t A1);
extern float transcendentalZtranscendentalZatan_METH_3(descriptor_t *orig_sp, long A0, heapptr_t A1);
descriptor_t transcendentalZtranscendentalZatan_DISCRIM_FUN(descriptor_t *orig_sp, descriptor_t A_arg0 )
{
descriptor_t *cluster_0_top;
long L_unique_id;
heapptr_t L_instance;
descriptor_t L_result0;
heapptr_t L_instance_2;
heapptr_t L_instance_3;
L_unique_id = (*(long *)((char *)(*(heapptr_t *)((char *)A_arg0.heapptr + 0)) + 8));
if ((L_unique_id < 38)) {
if ((L_unique_id < 37)) {
if ((L_unique_id < 36)) {
L_instance = dylanZdylan_visceraZCLS_simple_object_vector_MAKER_FUN(orig_sp, 1, dylanZfalse);
(*(descriptor_t *)((char *)L_instance + 8 + 0 * sizeof(descriptor_t))) = A_arg0;
dylanZdylan_visceraZno_applicable_methods_error_FUN(orig_sp, &transcendentalZtranscendentalZatan_ROOT, L_instance);
not_reached();
}
else {
L_result0.heapptr = make_double_float(transcendentalZtranscendentalZatan_METH(orig_sp, double_float_value(A_arg0.heapptr), &dylanZempty_list_ROOT));
L_result0.dataword.l = 0;
}
}
else {
L_result0.heapptr = transcendentalZliteral.heapptr;
L_result0.dataword.f = transcendentalZtranscendentalZatan_METH_2(orig_sp, A_arg0.dataword.f, &dylanZempty_list_ROOT);
}
}
else if ((L_unique_id < 40)) {
if ((L_unique_id < 39)) {
L_instance_2 = dylanZdylan_visceraZCLS_simple_object_vector_MAKER_FUN(orig_sp, 1, dylanZfalse);
(*(descriptor_t *)((char *)L_instance_2 + 8 + 0 * sizeof(descriptor_t))) = A_arg0;
dylanZdylan_visceraZno_applicable_methods_error_FUN(orig_sp, &transcendentalZtranscendentalZatan_ROOT, L_instance_2);
not_reached();
}
else {
L_result0.heapptr = transcendentalZliteral.heapptr;
L_result0.dataword.f = transcendentalZtranscendentalZatan_METH_3(orig_sp, A_arg0.dataword.l, &dylanZempty_list_ROOT);
}
}
else {
L_instance_3 = dylanZdylan_visceraZCLS_simple_object_vector_MAKER_FUN(orig_sp, 1, dylanZfalse);
(*(descriptor_t *)((char *)L_instance_3 + 8 + 0 * sizeof(descriptor_t))) = A_arg0;
dylanZdylan_visceraZno_applicable_methods_error_FUN(orig_sp, &transcendentalZtranscendentalZatan_ROOT, L_instance_3);
not_reached();
}
return L_result0;
}
descriptor_t * transcendentalZtranscendentalZatan_DISCRIM_GENERAL(descriptor_t *orig_sp, heapptr_t A_self , long A_nargs )
{
descriptor_t *cluster_0_top;
void * L_args;
descriptor_t L_temp;
long L_unique_id;
boolean L_temp_2;
descriptor_t L_arg;
descriptor_t L_result0;
if ((A_nargs == 1)) {
L_args = ((void *)(orig_sp - 1));
L_temp = (((descriptor_t *)L_args)[0]);
L_unique_id = (*(long *)((char *)(*(heapptr_t *)((char *)L_temp.heapptr + 0)) + 8));
if ((L_unique_id < 35)) {
L_temp_2 = 0;
}
else if ((40 < L_unique_id)) {
L_temp_2 = 0;
}
else {
L_temp_2 = 1;
}
if (L_temp_2) {
L_arg = L_temp;
orig_sp = L_args;
L_result0 = transcendentalZtranscendentalZatan_DISCRIM_FUN(orig_sp, L_arg);
orig_sp[0] = L_result0;
return orig_sp + 1;
}
else {
dylanZdylan_visceraZtype_error_FUN(orig_sp, L_temp, &dylanZdylan_visceraZCLS_real_HEAP);
not_reached();
}
}
else {
dylanZdylan_visceraZwrong_number_of_arguments_error_FUN(orig_sp, 1, 1, A_nargs);
not_reached();
}
}
extern struct heapobj transcendentalZtranscendentalZatan2_ROOT;
extern double transcendentalZtranscendentalZatan2_METH(descriptor_t *orig_sp, double A0, double A1, heapptr_t A2);
extern double transcendentalZtranscendentalZatan2_METH_2(descriptor_t *orig_sp, double A0, float A1, heapptr_t A2);
extern double transcendentalZtranscendentalZatan2_METH_3(descriptor_t *orig_sp, double A0, long A1, heapptr_t A2);
extern double transcendentalZtranscendentalZatan2_METH_4(descriptor_t *orig_sp, float A0, double A1, heapptr_t A2);
extern float transcendentalZtranscendentalZatan2_METH_5(descriptor_t *orig_sp, float A0, float A1, heapptr_t A2);
extern float transcendentalZtranscendentalZatan2_METH_6(descriptor_t *orig_sp, float A0, long A1, heapptr_t A2);
extern descriptor_t transcendentalZliteral_2;
extern double transcendentalZtranscendentalZatan2_METH_7(descriptor_t *orig_sp, long A0, double A1, heapptr_t A2);
extern float transcendentalZtranscendentalZatan2_METH_8(descriptor_t *orig_sp, long A0, float A1, heapptr_t A2);
extern float transcendentalZtranscendentalZatan2_METH_9(descriptor_t *orig_sp, long A0, long A1, heapptr_t A2);
descriptor_t transcendentalZtranscendentalZatan2_DISCRIM_FUN(descriptor_t *orig_sp, descriptor_t A_arg0 , descriptor_t A_arg1 )
{
descriptor_t *cluster_0_top;
long L_unique_id;
heapptr_t L_instance;
double L_arg0;
long L_unique_id_2;
heapptr_t L_instance_2;
descriptor_t L_temp;
descriptor_t L_result0;
heapptr_t L_instance_3;
descriptor_t L_temp_2;
heapptr_t L_instance_4;
descriptor_t L_temp_3;
float L_arg0_2;
long L_unique_id_3;
heapptr_t L_instance_5;
descriptor_t L_temp_4;
heapptr_t L_instance_6;
descriptor_t L_temp_5;
heapptr_t L_instance_7;
descriptor_t L_temp_6;
heapptr_t L_instance_8;
long L_arg0_3;
long L_unique_id_4;
heapptr_t L_instance_9;
descriptor_t L_temp_7;
heapptr_t L_instance_10;
descriptor_t L_temp_8;
heapptr_t L_instance_11;
descriptor_t L_temp_9;
heapptr_t L_instance_12;
L_unique_id = (*(long *)((char *)(*(heapptr_t *)((char *)A_arg0.heapptr + 0)) + 8));
if ((L_unique_id < 38)) {
if ((L_unique_id < 37)) {
if ((L_unique_id < 36)) {
L_instance = dylanZdylan_visceraZCLS_simple_object_vector_MAKER_FUN(orig_sp, 2, dylanZfalse);
(*(descriptor_t *)((char *)L_instance + 8 + 0 * sizeof(descriptor_t))) = A_arg0;
(*(descriptor_t *)((char *)L_instance + 8 + 1 * sizeof(descriptor_t))) = A_arg1;
dylanZdylan_visceraZno_applicable_methods_error_FUN(orig_sp, &transcendentalZtranscendentalZatan2_ROOT, L_instance);
not_reached();
}
else {
L_arg0 = double_float_value(A_arg0.heapptr);
L_unique_id_2 = (*(long *)((char *)(*(heapptr_t *)((char *)A_arg1.heapptr + 0)) + 8));
if ((L_unique_id_2 < 38)) {
if ((L_unique_id_2 < 37)) {
if ((L_unique_id_2 < 36)) {
L_instance_2 = dylanZdylan_visceraZCLS_simple_object_vector_MAKER_FUN(orig_sp, 2, dylanZfalse);
L_temp.heapptr = make_double_float(L_arg0);
L_temp.dataword.l = 0;
(*(descriptor_t *)((char *)L_instance_2 + 8 + 0 * sizeof(descriptor_t))) = L_temp;
(*(descriptor_t *)((char *)L_instance_2 + 8 + 1 * sizeof(descriptor_t))) = A_arg1;
dylanZdylan_visceraZno_applicable_methods_error_FUN(orig_sp, &transcendentalZtranscendentalZatan2_ROOT, L_instance_2);
not_reached();
}
else {
L_result0.heapptr = make_double_float(transcendentalZtranscendentalZatan2_METH(orig_sp, L_arg0, double_float_value(A_arg1.heapptr), &dylanZempty_list_ROOT));
L_result0.dataword.l = 0;
}
}
else {
L_result0.heapptr = make_double_float(transcendentalZtranscendentalZatan2_METH_2(orig_sp, L_arg0, A_arg1.dataword.f, &dylanZempty_list_ROOT));
L_result0.dataword.l = 0;
}
}
else if ((L_unique_id_2 < 40)) {
if ((L_unique_id_2 < 39)) {
L_instance_3 = dylanZdylan_visceraZCLS_simple_object_vector_MAKER_FUN(orig_sp, 2, dylanZfalse);
L_temp_2.heapptr = make_double_float(L_arg0);
L_temp_2.dataword.l = 0;
(*(descriptor_t *)((char *)L_instance_3 + 8 + 0 * sizeof(descriptor_t))) = L_temp_2;
(*(descriptor_t *)((char *)L_instance_3 + 8 + 1 * sizeof(descriptor_t))) = A_arg1;
dylanZdylan_visceraZno_applicable_methods_error_FUN(orig_sp, &transcendentalZtranscendentalZatan2_ROOT, L_instance_3);
not_reached();
}
else {
L_result0.heapptr = make_double_float(transcendentalZtranscendentalZatan2_METH_3(orig_sp, L_arg0, A_arg1.dataword.l, &dylanZempty_list_ROOT));
L_result0.dataword.l = 0;
}
}
else {
L_instance_4 = dylanZdylan_visceraZCLS_simple_object_vector_MAKER_FUN(orig_sp, 2, dylanZfalse);
L_temp_3.heapptr = make_double_float(L_arg0);
L_temp_3.dataword.l = 0;
(*(descriptor_t *)((char *)L_instance_4 + 8 + 0 * sizeof(descriptor_t))) = L_temp_3;
(*(descriptor_t *)((char *)L_instance_4 + 8 + 1 * sizeof(descriptor_t))) = A_arg1;
dylanZdylan_visceraZno_applicable_methods_error_FUN(orig_sp, &transcendentalZtranscendentalZatan2_ROOT, L_instance_4);
not_reached();
}
}
}
else {
L_arg0_2 = A_arg0.dataword.f;
L_unique_id_3 = (*(long *)((char *)(*(heapptr_t *)((char *)A_arg1.heapptr + 0)) + 8));
if ((L_unique_id_3 < 38)) {
if ((L_unique_id_3 < 37)) {
if ((L_unique_id_3 < 36)) {
L_instance_5 = dylanZdylan_visceraZCLS_simple_object_vector_MAKER_FUN(orig_sp, 2, dylanZfalse);
L_temp_4.heapptr = transcendentalZliteral.heapptr;
L_temp_4.dataword.f = L_arg0_2;
(*(descriptor_t *)((char *)L_instance_5 + 8 + 0 * sizeof(descriptor_t))) = L_temp_4;
(*(descriptor_t *)((char *)L_instance_5 + 8 + 1 * sizeof(descriptor_t))) = A_arg1;
dylanZdylan_visceraZno_applicable_methods_error_FUN(orig_sp, &transcendentalZtranscendentalZatan2_ROOT, L_instance_5);
not_reached();
}
else {
L_result0.heapptr = make_double_float(transcendentalZtranscendentalZatan2_METH_4(orig_sp, L_arg0_2, double_float_value(A_arg1.heapptr), &dylanZempty_list_ROOT));
L_result0.dataword.l = 0;
}
}
else {
L_result0.heapptr = transcendentalZliteral.heapptr;
L_result0.dataword.f = transcendentalZtranscendentalZatan2_METH_5(orig_sp, L_arg0_2, A_arg1.dataword.f, &dylanZempty_list_ROOT);
}
}
else if ((L_unique_id_3 < 40)) {
if ((L_unique_id_3 < 39)) {
L_instance_6 = dylanZdylan_visceraZCLS_simple_object_vector_MAKER_FUN(orig_sp, 2, dylanZfalse);
L_temp_5.heapptr = transcendentalZliteral.heapptr;
L_temp_5.dataword.f = L_arg0_2;
(*(descriptor_t *)((char *)L_instance_6 + 8 + 0 * sizeof(descriptor_t))) = L_temp_5;
(*(descriptor_t *)((char *)L_instance_6 + 8 + 1 * sizeof(descriptor_t))) = A_arg1;
dylanZdylan_visceraZno_applicable_methods_error_FUN(orig_sp, &transcendentalZtranscendentalZatan2_ROOT, L_instance_6);
not_reached();
}
else {
L_result0.heapptr = transcendentalZliteral.heapptr;
L_result0.dataword.f = transcendentalZtranscendentalZatan2_METH_6(orig_sp, L_arg0_2, A_arg1.dataword.l, &dylanZempty_list_ROOT);
}
}
else {
L_instance_7 = dylanZdylan_visceraZCLS_simple_object_vector_MAKER_FUN(orig_sp, 2, dylanZfalse);
L_temp_6.heapptr = transcendentalZliteral.heapptr;
L_temp_6.dataword.f = L_arg0_2;
(*(descriptor_t *)((char *)L_instance_7 + 8 + 0 * sizeof(descriptor_t))) = L_temp_6;
(*(descriptor_t *)((char *)L_instance_7 + 8 + 1 * sizeof(descriptor_t))) = A_arg1;
dylanZdylan_visceraZno_applicable_methods_error_FUN(orig_sp, &transcendentalZtranscendentalZatan2_ROOT, L_instance_7);
not_reached();
}
}
}
else if ((L_unique_id < 40)) {
if ((L_unique_id < 39)) {
L_instance_8 = dylanZdylan_visceraZCLS_simple_object_vector_MAKER_FUN(orig_sp, 2, dylanZfalse);
(*(descriptor_t *)((char *)L_instance_8 + 8 + 0 * sizeof(descriptor_t))) = A_arg0;
(*(descriptor_t *)((char *)L_instance_8 + 8 + 1 * sizeof(descriptor_t))) = A_arg1;
dylanZdylan_visceraZno_applicable_methods_error_FUN(orig_sp, &transcendentalZtranscendentalZatan2_ROOT, L_instance_8);
not_reached();
}
else {
L_arg0_3 = A_arg0.dataword.l;
L_unique_id_4 = (*(long *)((char *)(*(heapptr_t *)((char *)A_arg1.heapptr + 0)) + 8));
if ((L_unique_id_4 < 38)) {
if ((L_unique_id_4 < 37)) {
if ((L_unique_id_4 < 36)) {
L_instance_9 = dylanZdylan_visceraZCLS_simple_object_vector_MAKER_FUN(orig_sp, 2, dylanZfalse);
L_temp_7.heapptr = transcendentalZliteral_2.heapptr;
L_temp_7.dataword.l = L_arg0_3;
(*(descriptor_t *)((char *)L_instance_9 + 8 + 0 * sizeof(descriptor_t))) = L_temp_7;
(*(descriptor_t *)((char *)L_instance_9 + 8 + 1 * sizeof(descriptor_t))) = A_arg1;
dylanZdylan_visceraZno_applicable_methods_error_FUN(orig_sp, &transcendentalZtranscendentalZatan2_ROOT, L_instance_9);
not_reached();
}
else {
L_result0.heapptr = make_double_float(transcendentalZtranscendentalZatan2_METH_7(orig_sp, L_arg0_3, double_float_value(A_arg1.heapptr), &dylanZempty_list_ROOT));
L_result0.dataword.l = 0;
}
}
else {
L_result0.heapptr = transcendentalZliteral.heapptr;
L_result0.dataword.f = transcendentalZtranscendentalZatan2_METH_8(orig_sp, L_arg0_3, A_arg1.dataword.f, &dylanZempty_list_ROOT);
}
}
else if ((L_unique_id_4 < 40)) {
if ((L_unique_id_4 < 39)) {
L_instance_10 = dylanZdylan_visceraZCLS_simple_object_vector_MAKER_FUN(orig_sp, 2, dylanZfalse);
L_temp_8.heapptr = transcendentalZliteral_2.heapptr;
L_temp_8.dataword.l = L_arg0_3;
(*(descriptor_t *)((char *)L_instance_10 + 8 + 0 * sizeof(descriptor_t))) = L_temp_8;
(*(descriptor_t *)((char *)L_instance_10 + 8 + 1 * sizeof(descriptor_t))) = A_arg1;
dylanZdylan_visceraZno_applicable_methods_error_FUN(orig_sp, &transcendentalZtranscendentalZatan2_ROOT, L_instance_10);
not_reached();
}
else {
L_result0.heapptr = transcendentalZliteral.heapptr;
L_result0.dataword.f = transcendentalZtranscendentalZatan2_METH_9(orig_sp, L_arg0_3, A_arg1.dataword.l, &dylanZempty_list_ROOT);
}
}
else {
L_instance_11 = dylanZdylan_visceraZCLS_simple_object_vector_MAKER_FUN(orig_sp, 2, dylanZfalse);
L_temp_9.heapptr = transcendentalZliteral_2.heapptr;
L_temp_9.dataword.l = L_arg0_3;
(*(descriptor_t *)((char *)L_instance_11 + 8 + 0 * sizeof(descriptor_t))) = L_temp_9;
(*(descriptor_t *)((char *)L_instance_11 + 8 + 1 * sizeof(descriptor_t))) = A_arg1;
dylanZdylan_visceraZno_applicable_methods_error_FUN(orig_sp, &transcendentalZtranscendentalZatan2_ROOT, L_instance_11);
not_reached();
}
}
}
else {
L_instance_12 = dylanZdylan_visceraZCLS_simple_object_vector_MAKER_FUN(orig_sp, 2, dylanZfalse);
(*(descriptor_t *)((char *)L_instance_12 + 8 + 0 * sizeof(descriptor_t))) = A_arg0;
(*(descriptor_t *)((char *)L_instance_12 + 8 + 1 * sizeof(descriptor_t))) = A_arg1;
dylanZdylan_visceraZno_applicable_methods_error_FUN(orig_sp, &transcendentalZtranscendentalZatan2_ROOT, L_instance_12);
not_reached();
}
return L_result0;
}
descriptor_t * transcendentalZtranscendentalZatan2_DISCRIM_GENERAL(descriptor_t *orig_sp, heapptr_t A_self , long A_nargs )
{
descriptor_t *cluster_0_top;
void * L_args;
descriptor_t L_temp;
long L_unique_id;
boolean L_temp_2;
descriptor_t L_temp_3;
long L_unique_id_2;
descriptor_t L_arg;
boolean L_temp_4;
descriptor_t L_arg_2;
descriptor_t L_result0;
if ((A_nargs == 2)) {
L_args = ((void *)(orig_sp - 2));
L_temp = (((descriptor_t *)L_args)[0]);
L_unique_id = (*(long *)((char *)(*(heapptr_t *)((char *)L_temp.heapptr + 0)) + 8));
if ((L_unique_id < 35)) {
L_temp_2 = 0;
}
else if ((40 < L_unique_id)) {
L_temp_2 = 0;
}
else {
L_temp_2 = 1;
}
if (L_temp_2) {
L_temp_3 = (((descriptor_t *)L_args)[1]);
L_unique_id_2 = (*(long *)((char *)(*(heapptr_t *)((char *)L_temp_3.heapptr + 0)) + 8));
L_arg = L_temp;
if ((L_unique_id_2 < 35)) {
L_temp_4 = 0;
}
else if ((40 < L_unique_id_2)) {
L_temp_4 = 0;
}
else {
L_temp_4 = 1;
}
if (L_temp_4) {
L_arg_2 = L_temp_3;
orig_sp = L_args;
L_result0 = transcendentalZtranscendentalZatan2_DISCRIM_FUN(orig_sp, L_arg, L_arg_2);
orig_sp[0] = L_result0;
return orig_sp + 1;
}
else {
dylanZdylan_visceraZtype_error_FUN(orig_sp, L_temp_3, &dylanZdylan_visceraZCLS_real_HEAP);
not_reached();
}
}
else {
dylanZdylan_visceraZtype_error_FUN(orig_sp, L_temp, &dylanZdylan_visceraZCLS_real_HEAP);
not_reached();
}
}
else {
dylanZdylan_visceraZwrong_number_of_arguments_error_FUN(orig_sp, 1, 2, A_nargs);
not_reached();
}
}
extern struct heapobj transcendentalZtranscendentalZsinh_ROOT;
extern double transcendentalZtranscendentalZsinh_METH(descriptor_t *orig_sp, double A0, heapptr_t A1);
extern float transcendentalZtranscendentalZsinh_METH_2(descriptor_t *orig_sp, float A0, heapptr_t A1);
extern float transcendentalZtranscendentalZsinh_METH_3(descriptor_t *orig_sp, long A0, heapptr_t A1);
descriptor_t transcendentalZtranscendentalZsinh_DISCRIM_FUN(descriptor_t *orig_sp, descriptor_t A_arg0 )
{
descriptor_t *cluster_0_top;
long L_unique_id;
heapptr_t L_instance;
descriptor_t L_result0;
heapptr_t L_instance_2;
heapptr_t L_instance_3;
L_unique_id = (*(long *)((char *)(*(heapptr_t *)((char *)A_arg0.heapptr + 0)) + 8));
if ((L_unique_id < 38)) {
if ((L_unique_id < 37)) {
if ((L_unique_id < 36)) {
L_instance = dylanZdylan_visceraZCLS_simple_object_vector_MAKER_FUN(orig_sp, 1, dylanZfalse);
(*(descriptor_t *)((char *)L_instance + 8 + 0 * sizeof(descriptor_t))) = A_arg0;
dylanZdylan_visceraZno_applicable_methods_error_FUN(orig_sp, &transcendentalZtranscendentalZsinh_ROOT, L_instance);
not_reached();
}
else {
L_result0.heapptr = make_double_float(transcendentalZtranscendentalZsinh_METH(orig_sp, double_float_value(A_arg0.heapptr), &dylanZempty_list_ROOT));
L_result0.dataword.l = 0;
}
}
else {
L_result0.heapptr = transcendentalZliteral.heapptr;
L_result0.dataword.f = transcendentalZtranscendentalZsinh_METH_2(orig_sp, A_arg0.dataword.f, &dylanZempty_list_ROOT);
}
}
else if ((L_unique_id < 40)) {
if ((L_unique_id < 39)) {
L_instance_2 = dylanZdylan_visceraZCLS_simple_object_vector_MAKER_FUN(orig_sp, 1, dylanZfalse);
(*(descriptor_t *)((char *)L_instance_2 + 8 + 0 * sizeof(descriptor_t))) = A_arg0;
dylanZdylan_visceraZno_applicable_methods_error_FUN(orig_sp, &transcendentalZtranscendentalZsinh_ROOT, L_instance_2);
not_reached();
}
else {
L_result0.heapptr = transcendentalZliteral.heapptr;
L_result0.dataword.f = transcendentalZtranscendentalZsinh_METH_3(orig_sp, A_arg0.dataword.l, &dylanZempty_list_ROOT);
}
}
else {
L_instance_3 = dylanZdylan_visceraZCLS_simple_object_vector_MAKER_FUN(orig_sp, 1, dylanZfalse);
(*(descriptor_t *)((char *)L_instance_3 + 8 + 0 * sizeof(descriptor_t))) = A_arg0;
dylanZdylan_visceraZno_applicable_methods_error_FUN(orig_sp, &transcendentalZtranscendentalZsinh_ROOT, L_instance_3);
not_reached();
}
return L_result0;
}
descriptor_t * transcendentalZtranscendentalZsinh_DISCRIM_GENERAL(descriptor_t *orig_sp, heapptr_t A_self , long A_nargs )
{
descriptor_t *cluster_0_top;
void * L_args;
descriptor_t L_temp;
long L_unique_id;
boolean L_temp_2;
descriptor_t L_arg;
descriptor_t L_result0;
if ((A_nargs == 1)) {
L_args = ((void *)(orig_sp - 1));
L_temp = (((descriptor_t *)L_args)[0]);
L_unique_id = (*(long *)((char *)(*(heapptr_t *)((char *)L_temp.heapptr + 0)) + 8));
if ((L_unique_id < 35)) {
L_temp_2 = 0;
}
else if ((40 < L_unique_id)) {
L_temp_2 = 0;
}
else {
L_temp_2 = 1;
}
if (L_temp_2) {
L_arg = L_temp;
orig_sp = L_args;
L_result0 = transcendentalZtranscendentalZsinh_DISCRIM_FUN(orig_sp, L_arg);
orig_sp[0] = L_result0;
return orig_sp + 1;
}
else {
dylanZdylan_visceraZtype_error_FUN(orig_sp, L_temp, &dylanZdylan_visceraZCLS_real_HEAP);
not_reached();
}
}
else {
dylanZdylan_visceraZwrong_number_of_arguments_error_FUN(orig_sp, 1, 1, A_nargs);
not_reached();
}
}
extern struct heapobj transcendentalZtranscendentalZcosh_ROOT;
extern double transcendentalZtranscendentalZcosh_METH(descriptor_t *orig_sp, double A0, heapptr_t A1);
extern float transcendentalZtranscendentalZcosh_METH_2(descriptor_t *orig_sp, float A0, heapptr_t A1);
extern float transcendentalZtranscendentalZcosh_METH_3(descriptor_t *orig_sp, long A0, heapptr_t A1);
descriptor_t transcendentalZtranscendentalZcosh_DISCRIM_FUN(descriptor_t *orig_sp, descriptor_t A_arg0 )
{
descriptor_t *cluster_0_top;
long L_unique_id;
heapptr_t L_instance;
descriptor_t L_result0;
heapptr_t L_instance_2;
heapptr_t L_instance_3;
L_unique_id = (*(long *)((char *)(*(heapptr_t *)((char *)A_arg0.heapptr + 0)) + 8));
if ((L_unique_id < 38)) {
if ((L_unique_id < 37)) {
if ((L_unique_id < 36)) {
L_instance = dylanZdylan_visceraZCLS_simple_object_vector_MAKER_FUN(orig_sp, 1, dylanZfalse);
(*(descriptor_t *)((char *)L_instance + 8 + 0 * sizeof(descriptor_t))) = A_arg0;
dylanZdylan_visceraZno_applicable_methods_error_FUN(orig_sp, &transcendentalZtranscendentalZcosh_ROOT, L_instance);
not_reached();
}
else {
L_result0.heapptr = make_double_float(transcendentalZtranscendentalZcosh_METH(orig_sp, double_float_value(A_arg0.heapptr), &dylanZempty_list_ROOT));
L_result0.dataword.l = 0;
}
}
else {
L_result0.heapptr = transcendentalZliteral.heapptr;
L_result0.dataword.f = transcendentalZtranscendentalZcosh_METH_2(orig_sp, A_arg0.dataword.f, &dylanZempty_list_ROOT);
}
}
else if ((L_unique_id < 40)) {
if ((L_unique_id < 39)) {
L_instance_2 = dylanZdylan_visceraZCLS_simple_object_vector_MAKER_FUN(orig_sp, 1, dylanZfalse);
(*(descriptor_t *)((char *)L_instance_2 + 8 + 0 * sizeof(descriptor_t))) = A_arg0;
dylanZdylan_visceraZno_applicable_methods_error_FUN(orig_sp, &transcendentalZtranscendentalZcosh_ROOT, L_instance_2);
not_reached();
}
else {
L_result0.heapptr = transcendentalZliteral.heapptr;
L_result0.dataword.f = transcendentalZtranscendentalZcosh_METH_3(orig_sp, A_arg0.dataword.l, &dylanZempty_list_ROOT);
}
}
else {
L_instance_3 = dylanZdylan_visceraZCLS_simple_object_vector_MAKER_FUN(orig_sp, 1, dylanZfalse);
(*(descriptor_t *)((char *)L_instance_3 + 8 + 0 * sizeof(descriptor_t))) = A_arg0;
dylanZdylan_visceraZno_applicable_methods_error_FUN(orig_sp, &transcendentalZtranscendentalZcosh_ROOT, L_instance_3);
not_reached();
}
return L_result0;
}
descriptor_t * transcendentalZtranscendentalZcosh_DISCRIM_GENERAL(descriptor_t *orig_sp, heapptr_t A_self , long A_nargs )
{
descriptor_t *cluster_0_top;
void * L_args;
descriptor_t L_temp;
long L_unique_id;
boolean L_temp_2;
descriptor_t L_arg;
descriptor_t L_result0;
if ((A_nargs == 1)) {
L_args = ((void *)(orig_sp - 1));
L_temp = (((descriptor_t *)L_args)[0]);
L_unique_id = (*(long *)((char *)(*(heapptr_t *)((char *)L_temp.heapptr + 0)) + 8));
if ((L_unique_id < 35)) {
L_temp_2 = 0;
}
else if ((40 < L_unique_id)) {
L_temp_2 = 0;
}
else {
L_temp_2 = 1;
}
if (L_temp_2) {
L_arg = L_temp;
orig_sp = L_args;
L_result0 = transcendentalZtranscendentalZcosh_DISCRIM_FUN(orig_sp, L_arg);
orig_sp[0] = L_result0;
return orig_sp + 1;
}
else {
dylanZdylan_visceraZtype_error_FUN(orig_sp, L_temp, &dylanZdylan_visceraZCLS_real_HEAP);
not_reached();
}
}
else {
dylanZdylan_visceraZwrong_number_of_arguments_error_FUN(orig_sp, 1, 1, A_nargs);
not_reached();
}
}
extern struct heapobj transcendentalZtranscendentalZtanh_ROOT;
extern double transcendentalZtranscendentalZtanh_METH(descriptor_t *orig_sp, double A0, heapptr_t A1);
extern float transcendentalZtranscendentalZtanh_METH_2(descriptor_t *orig_sp, float A0, heapptr_t A1);
extern float transcendentalZtranscendentalZtanh_METH_3(descriptor_t *orig_sp, long A0, heapptr_t A1);
descriptor_t transcendentalZtranscendentalZtanh_DISCRIM_FUN(descriptor_t *orig_sp, descriptor_t A_arg0 )
{
descriptor_t *cluster_0_top;
long L_unique_id;
heapptr_t L_instance;
descriptor_t L_result0;
heapptr_t L_instance_2;
heapptr_t L_instance_3;
L_unique_id = (*(long *)((char *)(*(heapptr_t *)((char *)A_arg0.heapptr + 0)) + 8));
if ((L_unique_id < 38)) {
if ((L_unique_id < 37)) {
if ((L_unique_id < 36)) {
L_instance = dylanZdylan_visceraZCLS_simple_object_vector_MAKER_FUN(orig_sp, 1, dylanZfalse);
(*(descriptor_t *)((char *)L_instance + 8 + 0 * sizeof(descriptor_t))) = A_arg0;
dylanZdylan_visceraZno_applicable_methods_error_FUN(orig_sp, &transcendentalZtranscendentalZtanh_ROOT, L_instance);
not_reached();
}
else {
L_result0.heapptr = make_double_float(transcendentalZtranscendentalZtanh_METH(orig_sp, double_float_value(A_arg0.heapptr), &dylanZempty_list_ROOT));
L_result0.dataword.l = 0;
}
}
else {
L_result0.heapptr = transcendentalZliteral.heapptr;
L_result0.dataword.f = transcendentalZtranscendentalZtanh_METH_2(orig_sp, A_arg0.dataword.f, &dylanZempty_list_ROOT);
}
}
else if ((L_unique_id < 40)) {
if ((L_unique_id < 39)) {
L_instance_2 = dylanZdylan_visceraZCLS_simple_object_vector_MAKER_FUN(orig_sp, 1, dylanZfalse);
(*(descriptor_t *)((char *)L_instance_2 + 8 + 0 * sizeof(descriptor_t))) = A_arg0;
dylanZdylan_visceraZno_applicable_methods_error_FUN(orig_sp, &transcendentalZtranscendentalZtanh_ROOT, L_instance_2);
not_reached();
}
else {
L_result0.heapptr = transcendentalZliteral.heapptr;
L_result0.dataword.f = transcendentalZtranscendentalZtanh_METH_3(orig_sp, A_arg0.dataword.l, &dylanZempty_list_ROOT);
}
}
else {
L_instance_3 = dylanZdylan_visceraZCLS_simple_object_vector_MAKER_FUN(orig_sp, 1, dylanZfalse);
(*(descriptor_t *)((char *)L_instance_3 + 8 + 0 * sizeof(descriptor_t))) = A_arg0;
dylanZdylan_visceraZno_applicable_methods_error_FUN(orig_sp, &transcendentalZtranscendentalZtanh_ROOT, L_instance_3);
not_reached();
}
return L_result0;
}
descriptor_t * transcendentalZtranscendentalZtanh_DISCRIM_GENERAL(descriptor_t *orig_sp, heapptr_t A_self , long A_nargs )
{
descriptor_t *cluster_0_top;
void * L_args;
descriptor_t L_temp;
long L_unique_id;
boolean L_temp_2;
descriptor_t L_arg;
descriptor_t L_result0;
if ((A_nargs == 1)) {
L_args = ((void *)(orig_sp - 1));
L_temp = (((descriptor_t *)L_args)[0]);
L_unique_id = (*(long *)((char *)(*(heapptr_t *)((char *)L_temp.heapptr + 0)) + 8));
if ((L_unique_id < 35)) {
L_temp_2 = 0;
}
else if ((40 < L_unique_id)) {
L_temp_2 = 0;
}
else {
L_temp_2 = 1;
}
if (L_temp_2) {
L_arg = L_temp;
orig_sp = L_args;
L_result0 = transcendentalZtranscendentalZtanh_DISCRIM_FUN(orig_sp, L_arg);
orig_sp[0] = L_result0;
return orig_sp + 1;
}
else {
dylanZdylan_visceraZtype_error_FUN(orig_sp, L_temp, &dylanZdylan_visceraZCLS_real_HEAP);
not_reached();
}
}
else {
dylanZdylan_visceraZwrong_number_of_arguments_error_FUN(orig_sp, 1, 1, A_nargs);
not_reached();
}
}
# 1638 "transcendental.c"
extern heapptr_t dylanZdylan_visceraZmake_rest_arg_FUN(descriptor_t *orig_sp, void * A0, long A1);
extern struct heapobj transcendentalZtranscendentalZlog_ROOT;
extern void dylanZdylan_visceraZverify_keywords_METH_2(descriptor_t *orig_sp, heapptr_t A0, heapptr_t A1, heapptr_t A2);
extern struct heapobj transcendentalZliteral_ROOT;
extern descriptor_t * transcendentalZtranscendentalZlog_METH_GENERIC(descriptor_t *orig_sp, heapptr_t A0 , long A1 , heapptr_t A2 );
extern descriptor_t transcendentalZtranscendentalZlog_METH;
extern descriptor_t * transcendentalZtranscendentalZlog_METH_GENERIC_2(descriptor_t *orig_sp, heapptr_t A0 , long A1 , heapptr_t A2 );
extern descriptor_t transcendentalZtranscendentalZlog_METH_2;
extern descriptor_t * transcendentalZtranscendentalZlog_METH_GENERIC_3(descriptor_t *orig_sp, heapptr_t A0 , long A1 , heapptr_t A2 );
extern descriptor_t transcendentalZtranscendentalZlog_METH_3;
descriptor_t transcendentalZtranscendentalZlog_DISCRIM_FUN(descriptor_t *orig_sp, descriptor_t A_arg0 , heapptr_t A_rest )
{
descriptor_t *cluster_0_top;
descriptor_t *cluster_1_top;
long L_unique_id;
heapptr_t L_temp;
descriptor_t L_temp_2;
descriptor_t L_result0;
descriptor_t L_temp_3;
heapptr_t L_temp_4;
descriptor_t L_temp_5;
heapptr_t L_temp_6;
L_unique_id = (*(long *)((char *)(*(heapptr_t *)((char *)A_arg0.heapptr + 0)) + 8));
if ((L_unique_id < 38)) {
if ((L_unique_id < 37)) {
if ((L_unique_id < 36)) {
cluster_0_top = orig_sp + 1;
orig_sp[0] = A_arg0;
cluster_1_top = values_sequence(cluster_0_top, A_rest);
cluster_0_top = cluster_1_top;
L_temp = dylanZdylan_visceraZmake_rest_arg_FUN(cluster_0_top, orig_sp + 0, cluster_0_top - orig_sp - 0);
dylanZdylan_visceraZno_applicable_methods_error_FUN(orig_sp, &transcendentalZtranscendentalZlog_ROOT, L_temp);
not_reached();
}
else {
dylanZdylan_visceraZverify_keywords_METH_2(orig_sp, A_rest, &transcendentalZliteral_ROOT, &dylanZempty_list_ROOT);
L_temp_2.heapptr = make_double_float(double_float_value(A_arg0.heapptr));
L_temp_2.dataword.l = 0;
cluster_0_top = orig_sp + 1;
orig_sp[0] = L_temp_2;
cluster_1_top = values_sequence(cluster_0_top, A_rest);
cluster_0_top = cluster_1_top;
cluster_0_top = transcendentalZtranscendentalZlog_METH_GENERIC(cluster_0_top, transcendentalZtranscendentalZlog_METH.heapptr, cluster_0_top - orig_sp, &dylanZempty_list_ROOT);
L_result0 = (orig_sp == cluster_0_top ? dylanZfalse : orig_sp[0]);
}
}
else {
dylanZdylan_visceraZverify_keywords_METH_2(orig_sp, A_rest, &transcendentalZliteral_ROOT, &dylanZempty_list_ROOT);
L_temp_3.heapptr = transcendentalZliteral.heapptr;
L_temp_3.dataword.f = A_arg0.dataword.f;
cluster_0_top = orig_sp + 1;
orig_sp[0] = L_temp_3;
cluster_1_top = values_sequence(cluster_0_top, A_rest);
cluster_0_top = cluster_1_top;
cluster_0_top = transcendentalZtranscendentalZlog_METH_GENERIC_2(cluster_0_top, transcendentalZtranscendentalZlog_METH_2.heapptr, cluster_0_top - orig_sp, &dylanZempty_list_ROOT);
L_result0 = (orig_sp == cluster_0_top ? dylanZfalse : orig_sp[0]);
}
}
else if ((L_unique_id < 40)) {
if ((L_unique_id < 39)) {
cluster_0_top = orig_sp + 1;
orig_sp[0] = A_arg0;
cluster_1_top = values_sequence(cluster_0_top, A_rest);
cluster_0_top = cluster_1_top;
L_temp_4 = dylanZdylan_visceraZmake_rest_arg_FUN(cluster_0_top, orig_sp + 0, cluster_0_top - orig_sp - 0);
dylanZdylan_visceraZno_applicable_methods_error_FUN(orig_sp, &transcendentalZtranscendentalZlog_ROOT, L_temp_4);
not_reached();
}
else {
dylanZdylan_visceraZverify_keywords_METH_2(orig_sp, A_rest, &transcendentalZliteral_ROOT, &dylanZempty_list_ROOT);
L_temp_5.heapptr = transcendentalZliteral_2.heapptr;
L_temp_5.dataword.l = A_arg0.dataword.l;
cluster_0_top = orig_sp + 1;
orig_sp[0] = L_temp_5;
cluster_1_top = values_sequence(cluster_0_top, A_rest);
cluster_0_top = cluster_1_top;
cluster_0_top = transcendentalZtranscendentalZlog_METH_GENERIC_3(cluster_0_top, transcendentalZtranscendentalZlog_METH_3.heapptr, cluster_0_top - orig_sp, &dylanZempty_list_ROOT);
L_result0 = (orig_sp == cluster_0_top ? dylanZfalse : orig_sp[0]);
}
}
else {
cluster_0_top = orig_sp + 1;
orig_sp[0] = A_arg0;
cluster_1_top = values_sequence(cluster_0_top, A_rest);
cluster_0_top = cluster_1_top;
L_temp_6 = dylanZdylan_visceraZmake_rest_arg_FUN(cluster_0_top, orig_sp + 0, cluster_0_top - orig_sp - 0);
dylanZdylan_visceraZno_applicable_methods_error_FUN(orig_sp, &transcendentalZtranscendentalZlog_ROOT, L_temp_6);
not_reached();
}
return L_result0;
}
extern void dylanZdylan_visceraZodd_number_of_keywordSLASHvalue_arguments_error_FUN(descriptor_t *orig_sp);
extern struct heapobj dylanZdylan_visceraZCLS_symbol_HEAP;
descriptor_t * transcendentalZtranscendentalZlog_DISCRIM_GENERAL(descriptor_t *orig_sp, heapptr_t A_self , long A_nargs )
{
descriptor_t *cluster_0_top;
void * L_args;
descriptor_t L_temp;
long L_unique_id;
boolean L_temp_2;
heapptr_t L_rest;
descriptor_t L_arg;
long L_index;
descriptor_t L_temp_3;
descriptor_t L_result0;
if ((A_nargs < 1)) {
dylanZdylan_visceraZwrong_number_of_arguments_error_FUN(orig_sp, 0, 1, A_nargs);
not_reached();
}
else {
if (((A_nargs & 1) == 0)) {
dylanZdylan_visceraZodd_number_of_keywordSLASHvalue_arguments_error_FUN(orig_sp);
not_reached();
}
else {
L_args = ((void *)(orig_sp - A_nargs));
L_temp = (((descriptor_t *)L_args)[0]);
L_unique_id = (*(long *)((char *)(*(heapptr_t *)((char *)L_temp.heapptr + 0)) + 8));
if ((L_unique_id < 35)) {
L_temp_2 = 0;
}
else if ((40 < L_unique_id)) {
L_temp_2 = 0;
}
else {
L_temp_2 = 1;
}
if (L_temp_2) {
L_rest = dylanZdylan_visceraZmake_rest_arg_FUN(orig_sp, (descriptor_t *)L_args + 1, A_nargs - 1);
L_arg = L_temp;
L_index = (A_nargs - 2);
while (1) {
if ((L_index < 1)) {
goto block0;
}
else {
L_temp_3 = (((descriptor_t *)L_args)[L_index]);
if ((&dylanZdylan_visceraZCLS_symbol_HEAP == (*(heapptr_t *)((char *)L_temp_3.heapptr + 0)))) {
L_index = (L_index - 2);
}
else {
dylanZdylan_visceraZtype_error_FUN(orig_sp, L_temp_3, &dylanZdylan_visceraZCLS_symbol_HEAP);
not_reached();
}
}
}
block0:;
orig_sp = L_args;
L_result0 = transcendentalZtranscendentalZlog_DISCRIM_FUN(orig_sp, L_arg, L_rest);
orig_sp[0] = L_result0;
return orig_sp + 1;
}
else {
dylanZdylan_visceraZtype_error_FUN(orig_sp, L_temp, &dylanZdylan_visceraZCLS_real_HEAP);
not_reached();
}
}
}
}
extern struct heapobj SYM_base_HEAP;
extern double transcendentalZtranscendentalZlog_METH_4(descriptor_t *orig_sp, double A0, heapptr_t A1, heapptr_t A2, descriptor_t A3);
descriptor_t * transcendentalZtranscendentalZlog_METH_GENERIC(descriptor_t *orig_sp, heapptr_t A_self , long A_nargs , heapptr_t A_next_method_info )
{
descriptor_t *cluster_0_top;
void * L_args;
descriptor_t L_arg;
heapptr_t L_rest;
double L_arg_2;
descriptor_t L_base;
long L_index;
descriptor_t L_key;
descriptor_t L_value;
long L_unique_id;
boolean L_temp;
double L_result0;
descriptor_t L_temp_2;
L_args = ((void *)(orig_sp - A_nargs));
L_arg = (((descriptor_t *)L_args)[0]);
L_rest = dylanZdylan_visceraZmake_rest_arg_FUN(orig_sp, (descriptor_t *)L_args + 1, A_nargs - 1);
L_arg_2 = double_float_value(L_arg.heapptr);
L_base.heapptr = 0;
L_base.dataword.l = 0;
L_index = (A_nargs - 2);
while (1) {
if ((L_index < 1)) {
goto block0;
}
else {
L_key = (((descriptor_t *)L_args)[L_index]);
L_value = (((descriptor_t *)L_args)[(L_index + 1)]);
if ((L_key.heapptr == &SYM_base_HEAP)) {
L_unique_id = (*(long *)((char *)(*(heapptr_t *)((char *)L_value.heapptr + 0)) + 8));
if ((L_unique_id < 35)) {
L_temp = 0;
}
else if ((40 < L_unique_id)) {
L_temp = 0;
}
else {
L_temp = 1;
}
if (L_temp) {
L_base = L_value;
}
else {
dylanZdylan_visceraZtype_error_FUN(orig_sp, L_value, &dylanZdylan_visceraZCLS_real_HEAP);
not_reached();
}
}
else {
}
L_index = (L_index - 2);
}
}
block0:;
orig_sp = L_args;
L_result0 = transcendentalZtranscendentalZlog_METH_4(orig_sp, L_arg_2, A_next_method_info, L_rest, L_base);
L_temp_2.heapptr = make_double_float(L_result0);
L_temp_2.dataword.l = 0;
orig_sp[0] = L_temp_2;
return orig_sp + 1;
}
extern float transcendentalZtranscendentalZlog_METH_5(descriptor_t *orig_sp, float A0, heapptr_t A1, heapptr_t A2, descriptor_t A3);
descriptor_t * transcendentalZtranscendentalZlog_METH_GENERIC_2(descriptor_t *orig_sp, heapptr_t A_self , long A_nargs , heapptr_t A_next_method_info )
{
descriptor_t *cluster_0_top;
void * L_args;
descriptor_t L_arg;
heapptr_t L_rest;
float L_arg_2;
descriptor_t L_base;
long L_index;
descriptor_t L_key;
descriptor_t L_value;
long L_unique_id;
boolean L_temp;
float L_result0;
descriptor_t L_temp_2;
L_args = ((void *)(orig_sp - A_nargs));
L_arg = (((descriptor_t *)L_args)[0]);
L_rest = dylanZdylan_visceraZmake_rest_arg_FUN(orig_sp, (descriptor_t *)L_args + 1, A_nargs - 1);
L_arg_2 = L_arg.dataword.f;
L_base.heapptr = 0;
L_base.dataword.l = 0;
L_index = (A_nargs - 2);
while (1) {
if ((L_index < 1)) {
goto block0;
}
else {
L_key = (((descriptor_t *)L_args)[L_index]);
L_value = (((descriptor_t *)L_args)[(L_index + 1)]);
if ((L_key.heapptr == &SYM_base_HEAP)) {
L_unique_id = (*(long *)((char *)(*(heapptr_t *)((char *)L_value.heapptr + 0)) + 8));
if ((L_unique_id < 35)) {
L_temp = 0;
}
else if ((40 < L_unique_id)) {
L_temp = 0;
}
else {
L_temp = 1;
}
if (L_temp) {
L_base = L_value;
}
else {
dylanZdylan_visceraZtype_error_FUN(orig_sp, L_value, &dylanZdylan_visceraZCLS_real_HEAP);
not_reached();
}
}
else {
}
L_index = (L_index - 2);
}
}
block0:;
orig_sp = L_args;
L_result0 = transcendentalZtranscendentalZlog_METH_5(orig_sp, L_arg_2, A_next_method_info, L_rest, L_base);
L_temp_2.heapptr = transcendentalZliteral.heapptr;
L_temp_2.dataword.f = L_result0;
orig_sp[0] = L_temp_2;
return orig_sp + 1;
}
extern float transcendentalZtranscendentalZlog_METH_6(descriptor_t *orig_sp, long A0, heapptr_t A1, heapptr_t A2, descriptor_t A3);
descriptor_t * transcendentalZtranscendentalZlog_METH_GENERIC_3(descriptor_t *orig_sp, heapptr_t A_self , long A_nargs , heapptr_t A_next_method_info )
{
descriptor_t *cluster_0_top;
void * L_args;
descriptor_t L_arg;
heapptr_t L_rest;
long L_arg_2;
descriptor_t L_base;
long L_index;
descriptor_t L_key;
descriptor_t L_value;
long L_unique_id;
boolean L_temp;
float L_result0;
descriptor_t L_temp_2;
L_args = ((void *)(orig_sp - A_nargs));
L_arg = (((descriptor_t *)L_args)[0]);
L_rest = dylanZdylan_visceraZmake_rest_arg_FUN(orig_sp, (descriptor_t *)L_args + 1, A_nargs - 1);
L_arg_2 = L_arg.dataword.l;
L_base.heapptr = 0;
L_base.dataword.l = 0;
L_index = (A_nargs - 2);
while (1) {
if ((L_index < 1)) {
goto block0;
}
else {
L_key = (((descriptor_t *)L_args)[L_index]);
L_value = (((descriptor_t *)L_args)[(L_index + 1)]);
if ((L_key.heapptr == &SYM_base_HEAP)) {
L_unique_id = (*(long *)((char *)(*(heapptr_t *)((char *)L_value.heapptr + 0)) + 8));
if ((L_unique_id < 35)) {
L_temp = 0;
}
else if ((40 < L_unique_id)) {
L_temp = 0;
}
else {
L_temp = 1;
}
if (L_temp) {
L_base = L_value;
}
else {
dylanZdylan_visceraZtype_error_FUN(orig_sp, L_value, &dylanZdylan_visceraZCLS_real_HEAP);
not_reached();
}
}
else {
}
L_index = (L_index - 2);
}
}
block0:;
orig_sp = L_args;
L_result0 = transcendentalZtranscendentalZlog_METH_6(orig_sp, L_arg_2, A_next_method_info, L_rest, L_base);
L_temp_2.heapptr = transcendentalZliteral.heapptr;
L_temp_2.dataword.f = L_result0;
orig_sp[0] = L_temp_2;
return orig_sp + 1;
}
extern struct heapobj transcendentalZtranscendentalZlogn_ROOT;
extern double transcendentalZtranscendentalZlogn_METH(descriptor_t *orig_sp, double A0, descriptor_t A1, heapptr_t A2);
extern float transcendentalZtranscendentalZlogn_METH_2(descriptor_t *orig_sp, float A0, descriptor_t A1, heapptr_t A2);
extern float transcendentalZtranscendentalZlogn_METH_3(descriptor_t *orig_sp, long A0, descriptor_t A1, heapptr_t A2);
descriptor_t transcendentalZtranscendentalZlogn_DISCRIM_FUN(descriptor_t *orig_sp, descriptor_t A_arg0 , descriptor_t A_arg1 )
{
descriptor_t *cluster_0_top;
long L_unique_id;
heapptr_t L_instance;
descriptor_t L_result0;
heapptr_t L_instance_2;
heapptr_t L_instance_3;
L_unique_id = (*(long *)((char *)(*(heapptr_t *)((char *)A_arg0.heapptr + 0)) + 8));
if ((L_unique_id < 38)) {
if ((L_unique_id < 37)) {
if ((L_unique_id < 36)) {
L_instance = dylanZdylan_visceraZCLS_simple_object_vector_MAKER_FUN(orig_sp, 2, dylanZfalse);
(*(descriptor_t *)((char *)L_instance + 8 + 0 * sizeof(descriptor_t))) = A_arg0;
(*(descriptor_t *)((char *)L_instance + 8 + 1 * sizeof(descriptor_t))) = A_arg1;
dylanZdylan_visceraZno_applicable_methods_error_FUN(orig_sp, &transcendentalZtranscendentalZlogn_ROOT, L_instance);
not_reached();
}
else {
L_result0.heapptr = make_double_float(transcendentalZtranscendentalZlogn_METH(orig_sp, double_float_value(A_arg0.heapptr), A_arg1, &dylanZempty_list_ROOT));
L_result0.dataword.l = 0;
}
}
else {
L_result0.heapptr = transcendentalZliteral.heapptr;
L_result0.dataword.f = transcendentalZtranscendentalZlogn_METH_2(orig_sp, A_arg0.dataword.f, A_arg1, &dylanZempty_list_ROOT);
}
}
else if ((L_unique_id < 40)) {
if ((L_unique_id < 39)) {
L_instance_2 = dylanZdylan_visceraZCLS_simple_object_vector_MAKER_FUN(orig_sp, 2, dylanZfalse);
(*(descriptor_t *)((char *)L_instance_2 + 8 + 0 * sizeof(descriptor_t))) = A_arg0;
(*(descriptor_t *)((char *)L_instance_2 + 8 + 1 * sizeof(descriptor_t))) = A_arg1;
dylanZdylan_visceraZno_applicable_methods_error_FUN(orig_sp, &transcendentalZtranscendentalZlogn_ROOT, L_instance_2);
not_reached();
}
else {
L_result0.heapptr = transcendentalZliteral.heapptr;
L_result0.dataword.f = transcendentalZtranscendentalZlogn_METH_3(orig_sp, A_arg0.dataword.l, A_arg1, &dylanZempty_list_ROOT);
}
}
else {
L_instance_3 = dylanZdylan_visceraZCLS_simple_object_vector_MAKER_FUN(orig_sp, 2, dylanZfalse);
(*(descriptor_t *)((char *)L_instance_3 + 8 + 0 * sizeof(descriptor_t))) = A_arg0;
(*(descriptor_t *)((char *)L_instance_3 + 8 + 1 * sizeof(descriptor_t))) = A_arg1;
dylanZdylan_visceraZno_applicable_methods_error_FUN(orig_sp, &transcendentalZtranscendentalZlogn_ROOT, L_instance_3);
not_reached();
}
return L_result0;
}
descriptor_t * transcendentalZtranscendentalZlogn_DISCRIM_GENERAL(descriptor_t *orig_sp, heapptr_t A_self , long A_nargs )
{
descriptor_t *cluster_0_top;
void * L_args;
descriptor_t L_temp;
long L_unique_id;
boolean L_temp_2;
descriptor_t L_temp_3;
long L_unique_id_2;
descriptor_t L_arg;
boolean L_temp_4;
descriptor_t L_arg_2;
descriptor_t L_result0;
if ((A_nargs == 2)) {
L_args = ((void *)(orig_sp - 2));
L_temp = (((descriptor_t *)L_args)[0]);
L_unique_id = (*(long *)((char *)(*(heapptr_t *)((char *)L_temp.heapptr + 0)) + 8));
if ((L_unique_id < 35)) {
L_temp_2 = 0;
}
else if ((40 < L_unique_id)) {
L_temp_2 = 0;
}
else {
L_temp_2 = 1;
}
if (L_temp_2) {
L_temp_3 = (((descriptor_t *)L_args)[1]);
L_unique_id_2 = (*(long *)((char *)(*(heapptr_t *)((char *)L_temp_3.heapptr + 0)) + 8));
L_arg = L_temp;
if ((L_unique_id_2 < 35)) {
L_temp_4 = 0;
}
else if ((40 < L_unique_id_2)) {
L_temp_4 = 0;
}
else {
L_temp_4 = 1;
}
if (L_temp_4) {
L_arg_2 = L_temp_3;
orig_sp = L_args;
L_result0 = transcendentalZtranscendentalZlogn_DISCRIM_FUN(orig_sp, L_arg, L_arg_2);
orig_sp[0] = L_result0;
return orig_sp + 1;
}
else {
dylanZdylan_visceraZtype_error_FUN(orig_sp, L_temp_3, &dylanZdylan_visceraZCLS_real_HEAP);
not_reached();
}
}
else {
dylanZdylan_visceraZtype_error_FUN(orig_sp, L_temp, &dylanZdylan_visceraZCLS_real_HEAP);
not_reached();
}
}
else {
dylanZdylan_visceraZwrong_number_of_arguments_error_FUN(orig_sp, 1, 2, A_nargs);
not_reached();
}
}
extern struct heapobj transcendentalZtranscendentalZexp_ROOT;
extern double transcendentalZtranscendentalZexp_METH(descriptor_t *orig_sp, double A0, heapptr_t A1);
extern float transcendentalZtranscendentalZexp_METH_2(descriptor_t *orig_sp, float A0, heapptr_t A1);
extern float transcendentalZtranscendentalZexp_METH_3(descriptor_t *orig_sp, long A0, heapptr_t A1);
descriptor_t transcendentalZtranscendentalZexp_DISCRIM_FUN(descriptor_t *orig_sp, descriptor_t A_arg0 )
{
descriptor_t *cluster_0_top;
long L_unique_id;
heapptr_t L_instance;
descriptor_t L_result0;
heapptr_t L_instance_2;
heapptr_t L_instance_3;
L_unique_id = (*(long *)((char *)(*(heapptr_t *)((char *)A_arg0.heapptr + 0)) + 8));
if ((L_unique_id < 38)) {
if ((L_unique_id < 37)) {
if ((L_unique_id < 36)) {
L_instance = dylanZdylan_visceraZCLS_simple_object_vector_MAKER_FUN(orig_sp, 1, dylanZfalse);
(*(descriptor_t *)((char *)L_instance + 8 + 0 * sizeof(descriptor_t))) = A_arg0;
dylanZdylan_visceraZno_applicable_methods_error_FUN(orig_sp, &transcendentalZtranscendentalZexp_ROOT, L_instance);
not_reached();
}
else {
L_result0.heapptr = make_double_float(transcendentalZtranscendentalZexp_METH(orig_sp, double_float_value(A_arg0.heapptr), &dylanZempty_list_ROOT));
L_result0.dataword.l = 0;
}
}
else {
L_result0.heapptr = transcendentalZliteral.heapptr;
L_result0.dataword.f = transcendentalZtranscendentalZexp_METH_2(orig_sp, A_arg0.dataword.f, &dylanZempty_list_ROOT);
}
}
else if ((L_unique_id < 40)) {
if ((L_unique_id < 39)) {
L_instance_2 = dylanZdylan_visceraZCLS_simple_object_vector_MAKER_FUN(orig_sp, 1, dylanZfalse);
(*(descriptor_t *)((char *)L_instance_2 + 8 + 0 * sizeof(descriptor_t))) = A_arg0;
dylanZdylan_visceraZno_applicable_methods_error_FUN(orig_sp, &transcendentalZtranscendentalZexp_ROOT, L_instance_2);
not_reached();
}
else {
L_result0.heapptr = transcendentalZliteral.heapptr;
L_result0.dataword.f = transcendentalZtranscendentalZexp_METH_3(orig_sp, A_arg0.dataword.l, &dylanZempty_list_ROOT);
}
}
else {
L_instance_3 = dylanZdylan_visceraZCLS_simple_object_vector_MAKER_FUN(orig_sp, 1, dylanZfalse);
(*(descriptor_t *)((char *)L_instance_3 + 8 + 0 * sizeof(descriptor_t))) = A_arg0;
dylanZdylan_visceraZno_applicable_methods_error_FUN(orig_sp, &transcendentalZtranscendentalZexp_ROOT, L_instance_3);
not_reached();
}
return L_result0;
}
descriptor_t * transcendentalZtranscendentalZexp_DISCRIM_GENERAL(descriptor_t *orig_sp, heapptr_t A_self , long A_nargs )
{
descriptor_t *cluster_0_top;
void * L_args;
descriptor_t L_temp;
long L_unique_id;
boolean L_temp_2;
descriptor_t L_arg;
descriptor_t L_result0;
if ((A_nargs == 1)) {
L_args = ((void *)(orig_sp - 1));
L_temp = (((descriptor_t *)L_args)[0]);
L_unique_id = (*(long *)((char *)(*(heapptr_t *)((char *)L_temp.heapptr + 0)) + 8));
if ((L_unique_id < 35)) {
L_temp_2 = 0;
}
else if ((40 < L_unique_id)) {
L_temp_2 = 0;
}
else {
L_temp_2 = 1;
}
if (L_temp_2) {
L_arg = L_temp;
orig_sp = L_args;
L_result0 = transcendentalZtranscendentalZexp_DISCRIM_FUN(orig_sp, L_arg);
orig_sp[0] = L_result0;
return orig_sp + 1;
}
else {
dylanZdylan_visceraZtype_error_FUN(orig_sp, L_temp, &dylanZdylan_visceraZCLS_real_HEAP);
not_reached();
}
}
else {
dylanZdylan_visceraZwrong_number_of_arguments_error_FUN(orig_sp, 1, 1, A_nargs);
not_reached();
}
}
extern struct heapobj transcendentalZtranscendentalZsqrt_ROOT;
extern double transcendentalZtranscendentalZsqrt_METH(descriptor_t *orig_sp, double A0, heapptr_t A1);
extern float transcendentalZtranscendentalZsqrt_METH_2(descriptor_t *orig_sp, float A0, heapptr_t A1);
extern float transcendentalZtranscendentalZsqrt_METH_3(descriptor_t *orig_sp, long A0, heapptr_t A1);
descriptor_t transcendentalZtranscendentalZsqrt_DISCRIM_FUN(descriptor_t *orig_sp, descriptor_t A_arg0 )
{
descriptor_t *cluster_0_top;
long L_unique_id;
heapptr_t L_instance;
descriptor_t L_result0;
heapptr_t L_instance_2;
heapptr_t L_instance_3;
L_unique_id = (*(long *)((char *)(*(heapptr_t *)((char *)A_arg0.heapptr + 0)) + 8));
if ((L_unique_id < 38)) {
if ((L_unique_id < 37)) {
if ((L_unique_id < 36)) {
L_instance = dylanZdylan_visceraZCLS_simple_object_vector_MAKER_FUN(orig_sp, 1, dylanZfalse);
(*(descriptor_t *)((char *)L_instance + 8 + 0 * sizeof(descriptor_t))) = A_arg0;
dylanZdylan_visceraZno_applicable_methods_error_FUN(orig_sp, &transcendentalZtranscendentalZsqrt_ROOT, L_instance);
not_reached();
}
else {
L_result0.heapptr = make_double_float(transcendentalZtranscendentalZsqrt_METH(orig_sp, double_float_value(A_arg0.heapptr), &dylanZempty_list_ROOT));
L_result0.dataword.l = 0;
}
}
else {
L_result0.heapptr = transcendentalZliteral.heapptr;
L_result0.dataword.f = transcendentalZtranscendentalZsqrt_METH_2(orig_sp, A_arg0.dataword.f, &dylanZempty_list_ROOT);
}
}
else if ((L_unique_id < 40)) {
if ((L_unique_id < 39)) {
L_instance_2 = dylanZdylan_visceraZCLS_simple_object_vector_MAKER_FUN(orig_sp, 1, dylanZfalse);
(*(descriptor_t *)((char *)L_instance_2 + 8 + 0 * sizeof(descriptor_t))) = A_arg0;
dylanZdylan_visceraZno_applicable_methods_error_FUN(orig_sp, &transcendentalZtranscendentalZsqrt_ROOT, L_instance_2);
not_reached();
}
else {
L_result0.heapptr = transcendentalZliteral.heapptr;
L_result0.dataword.f = transcendentalZtranscendentalZsqrt_METH_3(orig_sp, A_arg0.dataword.l, &dylanZempty_list_ROOT);
}
}
else {
L_instance_3 = dylanZdylan_visceraZCLS_simple_object_vector_MAKER_FUN(orig_sp, 1, dylanZfalse);
(*(descriptor_t *)((char *)L_instance_3 + 8 + 0 * sizeof(descriptor_t))) = A_arg0;
dylanZdylan_visceraZno_applicable_methods_error_FUN(orig_sp, &transcendentalZtranscendentalZsqrt_ROOT, L_instance_3);
not_reached();
}
return L_result0;
}
descriptor_t * transcendentalZtranscendentalZsqrt_DISCRIM_GENERAL(descriptor_t *orig_sp, heapptr_t A_self , long A_nargs )
{
descriptor_t *cluster_0_top;
void * L_args;
descriptor_t L_temp;
long L_unique_id;
boolean L_temp_2;
descriptor_t L_arg;
descriptor_t L_result0;
if ((A_nargs == 1)) {
L_args = ((void *)(orig_sp - 1));
L_temp = (((descriptor_t *)L_args)[0]);
L_unique_id = (*(long *)((char *)(*(heapptr_t *)((char *)L_temp.heapptr + 0)) + 8));
if ((L_unique_id < 35)) {
L_temp_2 = 0;
}
else if ((40 < L_unique_id)) {
L_temp_2 = 0;
}
else {
L_temp_2 = 1;
}
if (L_temp_2) {
L_arg = L_temp;
orig_sp = L_args;
L_result0 = transcendentalZtranscendentalZsqrt_DISCRIM_FUN(orig_sp, L_arg);
orig_sp[0] = L_result0;
return orig_sp + 1;
}
else {
dylanZdylan_visceraZtype_error_FUN(orig_sp, L_temp, &dylanZdylan_visceraZCLS_real_HEAP);
not_reached();
}
}
else {
dylanZdylan_visceraZwrong_number_of_arguments_error_FUN(orig_sp, 1, 1, A_nargs);
not_reached();
}
}
# 2492 "transcendental.c"
extern void dylanZdylan_visceraZerror_METH(descriptor_t *orig_sp, descriptor_t A0, heapptr_t A1, heapptr_t A2);
extern struct heapobj transcendentalZstr_ROOT;
extern boolean dylanZdylan_visceraZLESSEQUAL_DISCRIM_FUN(descriptor_t *orig_sp, descriptor_t A0, descriptor_t A1);
extern struct heapobj transcendentalZstr_ROOT_2;
extern struct heapobj dylanZdylan_visceraZCLS_double_float_HEAP;
extern struct heapobj dylanZdylan_visceraZCLS_single_float_HEAP;
extern struct heapobj dylanZdylan_visceraZCLS_integer_HEAP;
double transcendentalZtranscendentalZlog_METH_4(descriptor_t *orig_sp, double A_x , heapptr_t A_next_method_info , heapptr_t A_rest , descriptor_t A_base )
{
descriptor_t *cluster_0_top;
descriptor_t L_base;
double L_temp;
descriptor_t L_temp_2;
descriptor_t L_base_2;
heapptr_t L_instance;
descriptor_t L_temp_3;
descriptor_t L_temp_4;
descriptor_t L_temp_5;
boolean L_condition;
heapptr_t L_instance_2;
descriptor_t L_temp_6;
double L_temp_7;
heapptr_t L_PCTobject_class;
boolean L_temp_8;
boolean L_result;
boolean L_condition_2;
float L_temp_9;
boolean L_result_2;
double L_y;
boolean L_result_3;
boolean L_temp_10;
boolean L_result_4;
boolean L_condition_3;
boolean L_result_5;
double L_arg0;
double L_arg1;
if ((A_base.heapptr != ((void *)0))) {
L_base = A_base;
}
else {
if (!transcendentalZtranscendentalZCdouble_e_initialized) abort();
L_temp = transcendentalZtranscendentalZCdouble_e;
L_temp_2.heapptr = make_double_float(L_temp);
L_temp_2.dataword.l = 0;
L_base = L_temp_2;
}
L_base_2 = L_base;
if ((A_x < ((double)0))) {
L_instance = dylanZdylan_visceraZCLS_simple_object_vector_MAKER_FUN(orig_sp, 1, dylanZfalse);
L_temp_3.heapptr = make_double_float(A_x);
L_temp_3.dataword.l = 0;
(*(descriptor_t *)((char *)L_instance + 8 + 0 * sizeof(descriptor_t))) = L_temp_3;
L_temp_4.heapptr = &transcendentalZstr_ROOT;
L_temp_4.dataword.l = 0;
dylanZdylan_visceraZerror_METH(orig_sp, L_temp_4, &dylanZempty_list_ROOT, L_instance);
not_reached();
}
else {
L_temp_5.heapptr = transcendentalZliteral_2.heapptr;
L_temp_5.dataword.l = 1;
L_condition = dylanZdylan_visceraZLESSEQUAL_DISCRIM_FUN(orig_sp, L_base_2, L_temp_5);
if (L_condition) {
L_instance_2 = dylanZdylan_visceraZCLS_simple_object_vector_MAKER_FUN(orig_sp, 1, dylanZfalse);
(*(descriptor_t *)((char *)L_instance_2 + 8 + 0 * sizeof(descriptor_t))) = L_base_2;
L_temp_6.heapptr = &transcendentalZstr_ROOT_2;
L_temp_6.dataword.l = 0;
dylanZdylan_visceraZerror_METH(orig_sp, L_temp_6, &dylanZempty_list_ROOT, L_instance_2);
not_reached();
}
else {
if (!transcendentalZtranscendentalZCdouble_e_initialized) abort();
L_temp_7 = transcendentalZtranscendentalZCdouble_e;
L_PCTobject_class = (*(heapptr_t *)((char *)L_base_2.heapptr + 0));
L_temp_8 = (&dylanZdylan_visceraZCLS_double_float_HEAP == L_PCTobject_class);
if (L_temp_8) {
L_result = (L_temp_7 == double_float_value(L_base_2.heapptr));
}
else {
L_result = 0;
}
if (L_result) {
L_condition_2 = 1;
}
else {
if (!transcendentalZtranscendentalZCsingle_e_initialized) abort();
L_temp_9 = transcendentalZtranscendentalZCsingle_e;
if ((&dylanZdylan_visceraZCLS_single_float_HEAP == L_PCTobject_class)) {
L_result_2 = (L_temp_9 == L_base_2.dataword.f);
}
else {
L_result_2 = 0;
}
L_condition_2 = L_result_2;
}
if (L_condition_2) {
L_y = log(A_x);
}
else {
if ((&dylanZdylan_visceraZCLS_integer_HEAP == L_PCTobject_class)) {
L_result_3 = (10 == L_base_2.dataword.l);
}
else {
L_result_3 = 0;
}
if (L_result_3) {
L_temp_10 = 1;
}
else {
if (L_temp_8) {
L_result_4 = (0.1e2 == double_float_value(L_base_2.heapptr));
}
else {
L_result_4 = 0;
}
L_temp_10 = L_result_4;
}
if (L_temp_10) {
L_condition_3 = 1;
}
else {
if ((&dylanZdylan_visceraZCLS_single_float_HEAP == L_PCTobject_class)) {
L_result_5 = (0.1e2 == L_base_2.dataword.f);
}
else {
L_result_5 = 0;
}
L_condition_3 = L_result_5;
}
if (L_condition_3) {
L_y = log10(A_x);
}
else {
L_arg0 = log(A_x);
if (L_temp_8) {
L_arg1 = log(double_float_value(L_base_2.heapptr));
L_y = (L_arg0 / L_arg1);
}
else {
dylanZdylan_visceraZtype_error_FUN(orig_sp, L_base_2, &dylanZdylan_visceraZCLS_double_float_HEAP);
not_reached();
}
}
}
return L_y;
}
}
}
float transcendentalZtranscendentalZlog_METH_5(descriptor_t *orig_sp, float A_x , heapptr_t A_next_method_info , heapptr_t A_rest , descriptor_t A_base )
{
descriptor_t *cluster_0_top;
descriptor_t L_base;
double L_temp;
descriptor_t L_temp_2;
descriptor_t L_base_2;
heapptr_t L_instance;
descriptor_t L_temp_3;
descriptor_t L_temp_4;
descriptor_t L_temp_5;
boolean L_condition;
heapptr_t L_instance_2;
descriptor_t L_temp_6;
double L_temp_7;
heapptr_t L_PCTobject_class;
boolean L_temp_8;
boolean L_result;
boolean L_condition_2;
float L_temp_9;
boolean L_result_2;
float L_y;
boolean L_result_3;
boolean L_temp_10;
boolean L_result_4;
boolean L_condition_3;
boolean L_result_5;
float L_arg0;
double L_arg1;
descriptor_t L_temp_11;
if ((A_base.heapptr != ((void *)0))) {
L_base = A_base;
}
else {
if (!transcendentalZtranscendentalZCdouble_e_initialized) abort();
L_temp = transcendentalZtranscendentalZCdouble_e;
L_temp_2.heapptr = make_double_float(L_temp);
L_temp_2.dataword.l = 0;
L_base = L_temp_2;
}
L_base_2 = L_base;
if ((A_x < ((float)0))) {
L_instance = dylanZdylan_visceraZCLS_simple_object_vector_MAKER_FUN(orig_sp, 1, dylanZfalse);
L_temp_3.heapptr = transcendentalZliteral.heapptr;
L_temp_3.dataword.f = A_x;
(*(descriptor_t *)((char *)L_instance + 8 + 0 * sizeof(descriptor_t))) = L_temp_3;
L_temp_4.heapptr = &transcendentalZstr_ROOT;
L_temp_4.dataword.l = 0;
dylanZdylan_visceraZerror_METH(orig_sp, L_temp_4, &dylanZempty_list_ROOT, L_instance);
not_reached();
}
else {
L_temp_5.heapptr = transcendentalZliteral_2.heapptr;
L_temp_5.dataword.l = 1;
L_condition = dylanZdylan_visceraZLESSEQUAL_DISCRIM_FUN(orig_sp, L_base_2, L_temp_5);
if (L_condition) {
L_instance_2 = dylanZdylan_visceraZCLS_simple_object_vector_MAKER_FUN(orig_sp, 1, dylanZfalse);
(*(descriptor_t *)((char *)L_instance_2 + 8 + 0 * sizeof(descriptor_t))) = L_base_2;
L_temp_6.heapptr = &transcendentalZstr_ROOT_2;
L_temp_6.dataword.l = 0;
dylanZdylan_visceraZerror_METH(orig_sp, L_temp_6, &dylanZempty_list_ROOT, L_instance_2);
not_reached();
}
else {
if (!transcendentalZtranscendentalZCdouble_e_initialized) abort();
L_temp_7 = transcendentalZtranscendentalZCdouble_e;
L_PCTobject_class = (*(heapptr_t *)((char *)L_base_2.heapptr + 0));
L_temp_8 = (&dylanZdylan_visceraZCLS_double_float_HEAP == L_PCTobject_class);
if (L_temp_8) {
L_result = (L_temp_7 == double_float_value(L_base_2.heapptr));
}
else {
L_result = 0;
}
if (L_result) {
L_condition_2 = 1;
}
else {
if (!transcendentalZtranscendentalZCsingle_e_initialized) abort();
L_temp_9 = transcendentalZtranscendentalZCsingle_e;
if ((&dylanZdylan_visceraZCLS_single_float_HEAP == L_PCTobject_class)) {
L_result_2 = (L_temp_9 == L_base_2.dataword.f);
}
else {
L_result_2 = 0;
}
L_condition_2 = L_result_2;
}
if (L_condition_2) {
L_y = log(A_x);
}
else {
if ((&dylanZdylan_visceraZCLS_integer_HEAP == L_PCTobject_class)) {
L_result_3 = (10 == L_base_2.dataword.l);
}
else {
L_result_3 = 0;
}
if (L_result_3) {
L_temp_10 = 1;
}
else {
if (L_temp_8) {
L_result_4 = (0.1e2 == double_float_value(L_base_2.heapptr));
}
else {
L_result_4 = 0;
}
L_temp_10 = L_result_4;
}
if (L_temp_10) {
L_condition_3 = 1;
}
else {
if ((&dylanZdylan_visceraZCLS_single_float_HEAP == L_PCTobject_class)) {
L_result_5 = (0.1e2 == L_base_2.dataword.f);
}
else {
L_result_5 = 0;
}
L_condition_3 = L_result_5;
}
if (L_condition_3) {
L_y = log10(A_x);
}
else {
L_arg0 = log(A_x);
if (L_temp_8) {
L_arg1 = log(double_float_value(L_base_2.heapptr));
L_temp_11.heapptr = make_double_float((((double)L_arg0) / L_arg1));
L_temp_11.dataword.l = 0;
dylanZdylan_visceraZtype_error_FUN(orig_sp, L_temp_11, &dylanZdylan_visceraZCLS_single_float_HEAP);
not_reached();
}
else {
dylanZdylan_visceraZtype_error_FUN(orig_sp, L_base_2, &dylanZdylan_visceraZCLS_double_float_HEAP);
not_reached();
}
}
}
return L_y;
}
}
}
float transcendentalZtranscendentalZlog_METH_6(descriptor_t *orig_sp, long A_x , heapptr_t A_next_method_info , heapptr_t A_rest , descriptor_t A_base )
{
descriptor_t *cluster_0_top;
descriptor_t L_base;
double L_temp;
descriptor_t L_temp_2;
descriptor_t L_base_2;
heapptr_t L_instance;
descriptor_t L_temp_3;
descriptor_t L_temp_4;
descriptor_t L_temp_5;
boolean L_condition;
heapptr_t L_instance_2;
descriptor_t L_temp_6;
double L_temp_7;
heapptr_t L_PCTobject_class;
boolean L_temp_8;
boolean L_result;
boolean L_condition_2;
float L_temp_9;
boolean L_result_2;
float L_y;
boolean L_result_3;
boolean L_temp_10;
boolean L_result_4;
boolean L_condition_3;
boolean L_result_5;
float L_arg0;
double L_arg1;
descriptor_t L_temp_11;
if ((A_base.heapptr != ((void *)0))) {
L_base = A_base;
}
else {
if (!transcendentalZtranscendentalZCdouble_e_initialized) abort();
L_temp = transcendentalZtranscendentalZCdouble_e;
L_temp_2.heapptr = make_double_float(L_temp);
L_temp_2.dataword.l = 0;
L_base = L_temp_2;
}
L_base_2 = L_base;
if ((A_x < 0)) {
L_instance = dylanZdylan_visceraZCLS_simple_object_vector_MAKER_FUN(orig_sp, 1, dylanZfalse);
L_temp_3.heapptr = transcendentalZliteral_2.heapptr;
L_temp_3.dataword.l = A_x;
(*(descriptor_t *)((char *)L_instance + 8 + 0 * sizeof(descriptor_t))) = L_temp_3;
L_temp_4.heapptr = &transcendentalZstr_ROOT;
L_temp_4.dataword.l = 0;
dylanZdylan_visceraZerror_METH(orig_sp, L_temp_4, &dylanZempty_list_ROOT, L_instance);
not_reached();
}
else {
L_temp_5.heapptr = transcendentalZliteral_2.heapptr;
L_temp_5.dataword.l = 1;
L_condition = dylanZdylan_visceraZLESSEQUAL_DISCRIM_FUN(orig_sp, L_base_2, L_temp_5);
if (L_condition) {
L_instance_2 = dylanZdylan_visceraZCLS_simple_object_vector_MAKER_FUN(orig_sp, 1, dylanZfalse);
(*(descriptor_t *)((char *)L_instance_2 + 8 + 0 * sizeof(descriptor_t))) = L_base_2;
L_temp_6.heapptr = &transcendentalZstr_ROOT_2;
L_temp_6.dataword.l = 0;
dylanZdylan_visceraZerror_METH(orig_sp, L_temp_6, &dylanZempty_list_ROOT, L_instance_2);
not_reached();
}
else {
if (!transcendentalZtranscendentalZCdouble_e_initialized) abort();
L_temp_7 = transcendentalZtranscendentalZCdouble_e;
L_PCTobject_class = (*(heapptr_t *)((char *)L_base_2.heapptr + 0));
L_temp_8 = (&dylanZdylan_visceraZCLS_double_float_HEAP == L_PCTobject_class);
if (L_temp_8) {
L_result = (L_temp_7 == double_float_value(L_base_2.heapptr));
}
else {
L_result = 0;
}
if (L_result) {
L_condition_2 = 1;
}
else {
if (!transcendentalZtranscendentalZCsingle_e_initialized) abort();
L_temp_9 = transcendentalZtranscendentalZCsingle_e;
if ((&dylanZdylan_visceraZCLS_single_float_HEAP == L_PCTobject_class)) {
L_result_2 = (L_temp_9 == L_base_2.dataword.f);
}
else {
L_result_2 = 0;
}
L_condition_2 = L_result_2;
}
if (L_condition_2) {
L_y = log(((float)A_x));
}
else {
if ((&dylanZdylan_visceraZCLS_integer_HEAP == L_PCTobject_class)) {
L_result_3 = (10 == L_base_2.dataword.l);
}
else {
L_result_3 = 0;
}
if (L_result_3) {
L_temp_10 = 1;
}
else {
if (L_temp_8) {
L_result_4 = (0.1e2 == double_float_value(L_base_2.heapptr));
}
else {
L_result_4 = 0;
}
L_temp_10 = L_result_4;
}
if (L_temp_10) {
L_condition_3 = 1;
}
else {
if ((&dylanZdylan_visceraZCLS_single_float_HEAP == L_PCTobject_class)) {
L_result_5 = (0.1e2 == L_base_2.dataword.f);
}
else {
L_result_5 = 0;
}
L_condition_3 = L_result_5;
}
if (L_condition_3) {
L_y = log10(((float)A_x));
}
else {
L_arg0 = log(((float)A_x));
if (L_temp_8) {
L_arg1 = log(double_float_value(L_base_2.heapptr));
L_temp_11.heapptr = make_double_float((((double)L_arg0) / L_arg1));
L_temp_11.dataword.l = 0;
dylanZdylan_visceraZtype_error_FUN(orig_sp, L_temp_11, &dylanZdylan_visceraZCLS_single_float_HEAP);
not_reached();
}
else {
dylanZdylan_visceraZtype_error_FUN(orig_sp, L_base_2, &dylanZdylan_visceraZCLS_double_float_HEAP);
not_reached();
}
}
}
return L_y;
}
}
}
double transcendentalZtranscendentalZlogn_METH(descriptor_t *orig_sp, double A_x , descriptor_t A_b , heapptr_t A2)
{
heapptr_t L_instance;
descriptor_t L_temp;
double L_y;
L_instance = dylanZdylan_visceraZCLS_simple_object_vector_MAKER_FUN(orig_sp, 2, dylanZfalse);
L_temp.heapptr = &SYM_base_HEAP;
L_temp.dataword.l = 0;
(*(descriptor_t *)((char *)L_instance + 8 + 0 * sizeof(descriptor_t))) = L_temp;
(*(descriptor_t *)((char *)L_instance + 8 + 1 * sizeof(descriptor_t))) = A_b;
L_y = transcendentalZtranscendentalZlog_METH_4(orig_sp, A_x, &dylanZempty_list_ROOT, L_instance, A_b);
return L_y;
}
float transcendentalZtranscendentalZlogn_METH_2(descriptor_t *orig_sp, float A_x , descriptor_t A_b , heapptr_t A2)
{
heapptr_t L_instance;
descriptor_t L_temp;
float L_y;
L_instance = dylanZdylan_visceraZCLS_simple_object_vector_MAKER_FUN(orig_sp, 2, dylanZfalse);
L_temp.heapptr = &SYM_base_HEAP;
L_temp.dataword.l = 0;
(*(descriptor_t *)((char *)L_instance + 8 + 0 * sizeof(descriptor_t))) = L_temp;
(*(descriptor_t *)((char *)L_instance + 8 + 1 * sizeof(descriptor_t))) = A_b;
L_y = transcendentalZtranscendentalZlog_METH_5(orig_sp, A_x, &dylanZempty_list_ROOT, L_instance, A_b);
return L_y;
}
float transcendentalZtranscendentalZlogn_METH_3(descriptor_t *orig_sp, long A_x , descriptor_t A_b , heapptr_t A2)
{
heapptr_t L_instance;
descriptor_t L_temp;
float L_y;
L_instance = dylanZdylan_visceraZCLS_simple_object_vector_MAKER_FUN(orig_sp, 2, dylanZfalse);
L_temp.heapptr = &SYM_base_HEAP;
L_temp.dataword.l = 0;
(*(descriptor_t *)((char *)L_instance + 8 + 0 * sizeof(descriptor_t))) = L_temp;
(*(descriptor_t *)((char *)L_instance + 8 + 1 * sizeof(descriptor_t))) = A_b;
L_y = transcendentalZtranscendentalZlog_METH_6(orig_sp, A_x, &dylanZempty_list_ROOT, L_instance, A_b);
return L_y;
}
long transcendentalZtranscendentalZisqrt_METH(descriptor_t *orig_sp, long A_x , heapptr_t A1)
{
descriptor_t *cluster_0_top;
heapptr_t L_instance;
descriptor_t L_temp;
descriptor_t L_temp_2;
float L_arg0;
if ((A_x < 0)) {
L_instance = dylanZdylan_visceraZCLS_simple_object_vector_MAKER_FUN(orig_sp, 1, dylanZfalse);
L_temp.heapptr = transcendentalZliteral_2.heapptr;
L_temp.dataword.l = A_x;
(*(descriptor_t *)((char *)L_instance + 8 + 0 * sizeof(descriptor_t))) = L_temp;
L_temp_2.heapptr = &transcendentalZstr_ROOT;
L_temp_2.dataword.l = 0;
dylanZdylan_visceraZerror_METH(orig_sp, L_temp_2, &dylanZempty_list_ROOT, L_instance);
not_reached();
}
else {
L_arg0 = sqrt(((float)A_x));
return ((long)floor(L_arg0));
}
}
descriptor_t * transcendentalZtranscendentalZisqrt_METH_GENERIC(descriptor_t *orig_sp, heapptr_t A_self , long A_nargs , heapptr_t A_next_method_info )
{
descriptor_t *cluster_0_top;
void * L_args;
descriptor_t L_arg;
long L_arg_2;
long L_result0;
descriptor_t L_temp;
L_args = ((void *)(orig_sp - 1));
L_arg = (((descriptor_t *)L_args)[0]);
L_arg_2 = L_arg.dataword.l;
orig_sp = L_args;
L_result0 = transcendentalZtranscendentalZisqrt_METH(orig_sp, L_arg_2, A_next_method_info);
L_temp.heapptr = transcendentalZliteral_2.heapptr;
L_temp.dataword.l = L_result0;
orig_sp[0] = L_temp;
return orig_sp + 1;
}
float transcendentalZtranscendentalZsqrt_METH_3(descriptor_t *orig_sp, long A_x , heapptr_t A1)
{
descriptor_t *cluster_0_top;
heapptr_t L_instance;
descriptor_t L_temp;
descriptor_t L_temp_2;
float L_y;
if ((A_x < 0)) {
L_instance = dylanZdylan_visceraZCLS_simple_object_vector_MAKER_FUN(orig_sp, 1, dylanZfalse);
L_temp.heapptr = transcendentalZliteral_2.heapptr;
L_temp.dataword.l = A_x;
(*(descriptor_t *)((char *)L_instance + 8 + 0 * sizeof(descriptor_t))) = L_temp;
L_temp_2.heapptr = &transcendentalZstr_ROOT;
L_temp_2.dataword.l = 0;
dylanZdylan_visceraZerror_METH(orig_sp, L_temp_2, &dylanZempty_list_ROOT, L_instance);
not_reached();
}
else {
L_y = sqrtf(((float)A_x));
return L_y;
}
}
float transcendentalZtranscendentalZsqrt_METH_2(descriptor_t *orig_sp, float A_x , heapptr_t A1)
{
descriptor_t *cluster_0_top;
heapptr_t L_instance;
descriptor_t L_temp;
descriptor_t L_temp_2;
float L_y;
if ((A_x < ((float)0))) {
L_instance = dylanZdylan_visceraZCLS_simple_object_vector_MAKER_FUN(orig_sp, 1, dylanZfalse);
L_temp.heapptr = transcendentalZliteral.heapptr;
L_temp.dataword.f = A_x;
(*(descriptor_t *)((char *)L_instance + 8 + 0 * sizeof(descriptor_t))) = L_temp;
L_temp_2.heapptr = &transcendentalZstr_ROOT;
L_temp_2.dataword.l = 0;
dylanZdylan_visceraZerror_METH(orig_sp, L_temp_2, &dylanZempty_list_ROOT, L_instance);
not_reached();
}
else {
L_y = sqrtf(A_x);
return L_y;
}
}
double transcendentalZtranscendentalZsqrt_METH(descriptor_t *orig_sp, double A_x , heapptr_t A1)
{
descriptor_t *cluster_0_top;
heapptr_t L_instance;
descriptor_t L_temp;
descriptor_t L_temp_2;
double L_y;
if ((A_x < ((double)0))) {
L_instance = dylanZdylan_visceraZCLS_simple_object_vector_MAKER_FUN(orig_sp, 1, dylanZfalse);
L_temp.heapptr = make_double_float(A_x);
L_temp.dataword.l = 0;
(*(descriptor_t *)((char *)L_instance + 8 + 0 * sizeof(descriptor_t))) = L_temp;
L_temp_2.heapptr = &transcendentalZstr_ROOT;
L_temp_2.dataword.l = 0;
dylanZdylan_visceraZerror_METH(orig_sp, L_temp_2, &dylanZempty_list_ROOT, L_instance);
not_reached();
}
else {
L_y = sqrt(A_x);
return L_y;
}
}
float transcendentalZtranscendentalZexp_METH_3(descriptor_t *orig_sp, long A_x , heapptr_t A1)
{
descriptor_t *cluster_0_top;
float L_y;
L_y = expf(((float)A_x));
return L_y;
}
float transcendentalZtranscendentalZexp_METH_2(descriptor_t *orig_sp, float A_x , heapptr_t A1)
{
descriptor_t *cluster_0_top;
float L_y;
L_y = expf(A_x);
return L_y;
}
double transcendentalZtranscendentalZexp_METH(descriptor_t *orig_sp, double A_x , heapptr_t A1)
{
descriptor_t *cluster_0_top;
double L_y;
L_y = exp(A_x);
return L_y;
}
float transcendentalZtranscendentalZsin_METH_3(descriptor_t *orig_sp, long A_x , heapptr_t A1)
{
descriptor_t *cluster_0_top;
float L_y;
L_y = sinf(((float)A_x));
return L_y;
}
float transcendentalZtranscendentalZsin_METH_2(descriptor_t *orig_sp, float A_x , heapptr_t A1)
{
descriptor_t *cluster_0_top;
float L_y;
L_y = sinf(A_x);
return L_y;
}
double transcendentalZtranscendentalZsin_METH(descriptor_t *orig_sp, double A_x , heapptr_t A1)
{
descriptor_t *cluster_0_top;
double L_y;
L_y = sin(A_x);
return L_y;
}
float transcendentalZtranscendentalZcos_METH_3(descriptor_t *orig_sp, long A_x , heapptr_t A1)
{
descriptor_t *cluster_0_top;
float L_y;
L_y = cosf(((float)A_x));
return L_y;
}
float transcendentalZtranscendentalZcos_METH_2(descriptor_t *orig_sp, float A_x , heapptr_t A1)
{
descriptor_t *cluster_0_top;
float L_y;
L_y = cosf(A_x);
return L_y;
}
double transcendentalZtranscendentalZcos_METH(descriptor_t *orig_sp, double A_x , heapptr_t A1)
{
descriptor_t *cluster_0_top;
double L_y;
L_y = cos(A_x);
return L_y;
}
float transcendentalZtranscendentalZtan_METH_3(descriptor_t *orig_sp, long A_x , heapptr_t A1)
{
descriptor_t *cluster_0_top;
float L_y;
L_y = tanf(((float)A_x));
return L_y;
}
float transcendentalZtranscendentalZtan_METH_2(descriptor_t *orig_sp, float A_x , heapptr_t A1)
{
descriptor_t *cluster_0_top;
float L_y;
L_y = tanf(A_x);
return L_y;
}
double transcendentalZtranscendentalZtan_METH(descriptor_t *orig_sp, double A_x , heapptr_t A1)
{
descriptor_t *cluster_0_top;
double L_y;
L_y = tan(A_x);
return L_y;
}
extern struct heapobj transcendentalZstr_ROOT_3;
float transcendentalZtranscendentalZasin_METH_3(descriptor_t *orig_sp, long A_x , heapptr_t A1)
{
descriptor_t *cluster_0_top;
boolean L_condition;
heapptr_t L_instance;
descriptor_t L_temp;
descriptor_t L_temp_2;
float L_y;
if ((A_x < -1)) {
L_condition = 1;
}
else {
L_condition = (1 < A_x);
}
if (L_condition) {
L_instance = dylanZdylan_visceraZCLS_simple_object_vector_MAKER_FUN(orig_sp, 1, dylanZfalse);
L_temp.heapptr = transcendentalZliteral_2.heapptr;
L_temp.dataword.l = A_x;
(*(descriptor_t *)((char *)L_instance + 8 + 0 * sizeof(descriptor_t))) = L_temp;
L_temp_2.heapptr = &transcendentalZstr_ROOT_3;
L_temp_2.dataword.l = 0;
dylanZdylan_visceraZerror_METH(orig_sp, L_temp_2, &dylanZempty_list_ROOT, L_instance);
not_reached();
}
else {
L_y = asinf(((float)A_x));
return L_y;
}
}
float transcendentalZtranscendentalZasin_METH_2(descriptor_t *orig_sp, float A_x , heapptr_t A1)
{
descriptor_t *cluster_0_top;
boolean L_condition;
heapptr_t L_instance;
descriptor_t L_temp;
descriptor_t L_temp_2;
float L_y;
if ((A_x < ((float)-1))) {
L_condition = 1;
}
else {
L_condition = (((float)1) < A_x);
}
if (L_condition) {
L_instance = dylanZdylan_visceraZCLS_simple_object_vector_MAKER_FUN(orig_sp, 1, dylanZfalse);
L_temp.heapptr = transcendentalZliteral.heapptr;
L_temp.dataword.f = A_x;
(*(descriptor_t *)((char *)L_instance + 8 + 0 * sizeof(descriptor_t))) = L_temp;
L_temp_2.heapptr = &transcendentalZstr_ROOT_3;
L_temp_2.dataword.l = 0;
dylanZdylan_visceraZerror_METH(orig_sp, L_temp_2, &dylanZempty_list_ROOT, L_instance);
not_reached();
}
else {
L_y = asinf(A_x);
return L_y;
}
}
double transcendentalZtranscendentalZasin_METH(descriptor_t *orig_sp, double A_x , heapptr_t A1)
{
descriptor_t *cluster_0_top;
boolean L_condition;
heapptr_t L_instance;
descriptor_t L_temp;
descriptor_t L_temp_2;
double L_y;
if ((A_x < ((double)-1))) {
L_condition = 1;
}
else {
L_condition = (((double)1) < A_x);
}
if (L_condition) {
L_instance = dylanZdylan_visceraZCLS_simple_object_vector_MAKER_FUN(orig_sp, 1, dylanZfalse);
L_temp.heapptr = make_double_float(A_x);
L_temp.dataword.l = 0;
(*(descriptor_t *)((char *)L_instance + 8 + 0 * sizeof(descriptor_t))) = L_temp;
L_temp_2.heapptr = &transcendentalZstr_ROOT_3;
L_temp_2.dataword.l = 0;
dylanZdylan_visceraZerror_METH(orig_sp, L_temp_2, &dylanZempty_list_ROOT, L_instance);
not_reached();
}
else {
L_y = asin(A_x);
return L_y;
}
}
float transcendentalZtranscendentalZacos_METH_3(descriptor_t *orig_sp, long A_x , heapptr_t A1)
{
descriptor_t *cluster_0_top;
boolean L_condition;
heapptr_t L_instance;
descriptor_t L_temp;
descriptor_t L_temp_2;
float L_y;
if ((A_x < -1)) {
L_condition = 1;
}
else {
L_condition = (1 < A_x);
}
if (L_condition) {
L_instance = dylanZdylan_visceraZCLS_simple_object_vector_MAKER_FUN(orig_sp, 1, dylanZfalse);
L_temp.heapptr = transcendentalZliteral_2.heapptr;
L_temp.dataword.l = A_x;
(*(descriptor_t *)((char *)L_instance + 8 + 0 * sizeof(descriptor_t))) = L_temp;
L_temp_2.heapptr = &transcendentalZstr_ROOT_3;
L_temp_2.dataword.l = 0;
dylanZdylan_visceraZerror_METH(orig_sp, L_temp_2, &dylanZempty_list_ROOT, L_instance);
not_reached();
}
else {
L_y = acosf(((float)A_x));
return L_y;
}
}
float transcendentalZtranscendentalZacos_METH_2(descriptor_t *orig_sp, float A_x , heapptr_t A1)
{
descriptor_t *cluster_0_top;
boolean L_condition;
heapptr_t L_instance;
descriptor_t L_temp;
descriptor_t L_temp_2;
float L_y;
if ((A_x < ((float)-1))) {
L_condition = 1;
}
else {
L_condition = (((float)1) < A_x);
}
if (L_condition) {
L_instance = dylanZdylan_visceraZCLS_simple_object_vector_MAKER_FUN(orig_sp, 1, dylanZfalse);
L_temp.heapptr = transcendentalZliteral.heapptr;
L_temp.dataword.f = A_x;
(*(descriptor_t *)((char *)L_instance + 8 + 0 * sizeof(descriptor_t))) = L_temp;
L_temp_2.heapptr = &transcendentalZstr_ROOT_3;
L_temp_2.dataword.l = 0;
dylanZdylan_visceraZerror_METH(orig_sp, L_temp_2, &dylanZempty_list_ROOT, L_instance);
not_reached();
}
else {
L_y = acosf(A_x);
return L_y;
}
}
double transcendentalZtranscendentalZacos_METH(descriptor_t *orig_sp, double A_x , heapptr_t A1)
{
descriptor_t *cluster_0_top;
boolean L_condition;
heapptr_t L_instance;
descriptor_t L_temp;
descriptor_t L_temp_2;
double L_y;
if ((A_x < ((double)-1))) {
L_condition = 1;
}
else {
L_condition = (((double)1) < A_x);
}
if (L_condition) {
L_instance = dylanZdylan_visceraZCLS_simple_object_vector_MAKER_FUN(orig_sp, 1, dylanZfalse);
L_temp.heapptr = make_double_float(A_x);
L_temp.dataword.l = 0;
(*(descriptor_t *)((char *)L_instance + 8 + 0 * sizeof(descriptor_t))) = L_temp;
L_temp_2.heapptr = &transcendentalZstr_ROOT_3;
L_temp_2.dataword.l = 0;
dylanZdylan_visceraZerror_METH(orig_sp, L_temp_2, &dylanZempty_list_ROOT, L_instance);
not_reached();
}
else {
L_y = acos(A_x);
return L_y;
}
}
float transcendentalZtranscendentalZatan_METH_3(descriptor_t *orig_sp, long A_x , heapptr_t A1)
{
descriptor_t *cluster_0_top;
float L_y;
L_y = atanf(((float)A_x));
return L_y;
}
float transcendentalZtranscendentalZatan_METH_2(descriptor_t *orig_sp, float A_x , heapptr_t A1)
{
descriptor_t *cluster_0_top;
float L_y;
L_y = atanf(A_x);
return L_y;
}
double transcendentalZtranscendentalZatan_METH(descriptor_t *orig_sp, double A_x , heapptr_t A1)
{
descriptor_t *cluster_0_top;
double L_y;
L_y = atan(A_x);
return L_y;
}
extern struct heapobj transcendentalZstr_ROOT_4;
float transcendentalZtranscendentalZatan2_METH_9(descriptor_t *orig_sp, long A_y , long A_x , heapptr_t A2)
{
descriptor_t *cluster_0_top;
boolean L_condition;
heapptr_t L_instance;
descriptor_t L_temp;
float L_z;
if ((A_y == 0)) {
L_condition = (A_x == 0);
}
else {
L_condition = 0;
}
if (L_condition) {
L_instance = dylanZdylan_visceraZCLS_simple_object_vector_MAKER_FUN(orig_sp, 0, dylanZfalse);
L_temp.heapptr = &transcendentalZstr_ROOT_4;
L_temp.dataword.l = 0;
dylanZdylan_visceraZerror_METH(orig_sp, L_temp, &dylanZempty_list_ROOT, L_instance);
not_reached();
}
else {
L_z = atan2f(((float)A_y), ((float)A_x));
return L_z;
}
}
float transcendentalZtranscendentalZatan2_METH_5(descriptor_t *orig_sp, float A_y , float A_x , heapptr_t A2)
{
descriptor_t *cluster_0_top;
float L_b;
boolean L_condition;
heapptr_t L_instance;
descriptor_t L_temp;
float L_z;
L_b = ((float)0);
if ((A_y == L_b)) {
L_condition = (A_x == L_b);
}
else {
L_condition = 0;
}
if (L_condition) {
L_instance = dylanZdylan_visceraZCLS_simple_object_vector_MAKER_FUN(orig_sp, 0, dylanZfalse);
L_temp.heapptr = &transcendentalZstr_ROOT_4;
L_temp.dataword.l = 0;
dylanZdylan_visceraZerror_METH(orig_sp, L_temp, &dylanZempty_list_ROOT, L_instance);
not_reached();
}
else {
L_z = atan2f(A_y, A_x);
return L_z;
}
}
double transcendentalZtranscendentalZatan2_METH(descriptor_t *orig_sp, double A_y , double A_x , heapptr_t A2)
{
descriptor_t *cluster_0_top;
double L_b;
boolean L_condition;
heapptr_t L_instance;
descriptor_t L_temp;
double L_z;
L_b = ((double)0);
if ((A_y == L_b)) {
L_condition = (A_x == L_b);
}
else {
L_condition = 0;
}
if (L_condition) {
L_instance = dylanZdylan_visceraZCLS_simple_object_vector_MAKER_FUN(orig_sp, 0, dylanZfalse);
L_temp.heapptr = &transcendentalZstr_ROOT_4;
L_temp.dataword.l = 0;
dylanZdylan_visceraZerror_METH(orig_sp, L_temp, &dylanZempty_list_ROOT, L_instance);
not_reached();
}
else {
L_z = atan2(A_y, A_x);
return L_z;
}
}
double transcendentalZtranscendentalZatan2_METH_3(descriptor_t *orig_sp, double A_y , long A_x , heapptr_t A2)
{
descriptor_t *cluster_0_top;
boolean L_condition;
heapptr_t L_instance;
descriptor_t L_temp;
double L_z;
if ((A_y == ((double)0))) {
L_condition = (A_x == 0);
}
else {
L_condition = 0;
}
if (L_condition) {
L_instance = dylanZdylan_visceraZCLS_simple_object_vector_MAKER_FUN(orig_sp, 0, dylanZfalse);
L_temp.heapptr = &transcendentalZstr_ROOT_4;
L_temp.dataword.l = 0;
dylanZdylan_visceraZerror_METH(orig_sp, L_temp, &dylanZempty_list_ROOT, L_instance);
not_reached();
}
else {
L_z = atan2(A_y, ((double)A_x));
return L_z;
}
}
float transcendentalZtranscendentalZatan2_METH_6(descriptor_t *orig_sp, float A_y , long A_x , heapptr_t A2)
{
descriptor_t *cluster_0_top;
boolean L_condition;
heapptr_t L_instance;
descriptor_t L_temp;
float L_z;
if ((A_y == ((float)0))) {
L_condition = (A_x == 0);
}
else {
L_condition = 0;
}
if (L_condition) {
L_instance = dylanZdylan_visceraZCLS_simple_object_vector_MAKER_FUN(orig_sp, 0, dylanZfalse);
L_temp.heapptr = &transcendentalZstr_ROOT_4;
L_temp.dataword.l = 0;
dylanZdylan_visceraZerror_METH(orig_sp, L_temp, &dylanZempty_list_ROOT, L_instance);
not_reached();
}
else {
L_z = atan2f(A_y, ((float)A_x));
return L_z;
}
}
float transcendentalZtranscendentalZatan2_METH_8(descriptor_t *orig_sp, long A_y , float A_x , heapptr_t A2)
{
descriptor_t *cluster_0_top;
boolean L_condition;
heapptr_t L_instance;
descriptor_t L_temp;
float L_z;
if ((A_y == 0)) {
L_condition = (A_x == ((float)0));
}
else {
L_condition = 0;
}
if (L_condition) {
L_instance = dylanZdylan_visceraZCLS_simple_object_vector_MAKER_FUN(orig_sp, 0, dylanZfalse);
L_temp.heapptr = &transcendentalZstr_ROOT_4;
L_temp.dataword.l = 0;
dylanZdylan_visceraZerror_METH(orig_sp, L_temp, &dylanZempty_list_ROOT, L_instance);
not_reached();
}
else {
L_z = atan2f(((float)A_y), A_x);
return L_z;
}
}
double transcendentalZtranscendentalZatan2_METH_7(descriptor_t *orig_sp, long A_y , double A_x , heapptr_t A2)
{
descriptor_t *cluster_0_top;
boolean L_condition;
heapptr_t L_instance;
descriptor_t L_temp;
double L_z;
if ((A_y == 0)) {
L_condition = (A_x == ((double)0));
}
else {
L_condition = 0;
}
if (L_condition) {
L_instance = dylanZdylan_visceraZCLS_simple_object_vector_MAKER_FUN(orig_sp, 0, dylanZfalse);
L_temp.heapptr = &transcendentalZstr_ROOT_4;
L_temp.dataword.l = 0;
dylanZdylan_visceraZerror_METH(orig_sp, L_temp, &dylanZempty_list_ROOT, L_instance);
not_reached();
}
else {
L_z = atan2(((double)A_y), A_x);
return L_z;
}
}
double transcendentalZtranscendentalZatan2_METH_2(descriptor_t *orig_sp, double A_y , float A_x , heapptr_t A2)
{
descriptor_t *cluster_0_top;
boolean L_condition;
heapptr_t L_instance;
descriptor_t L_temp;
double L_z;
if ((A_y == ((double)0))) {
L_condition = (A_x == ((float)0));
}
else {
L_condition = 0;
}
if (L_condition) {
L_instance = dylanZdylan_visceraZCLS_simple_object_vector_MAKER_FUN(orig_sp, 0, dylanZfalse);
L_temp.heapptr = &transcendentalZstr_ROOT_4;
L_temp.dataword.l = 0;
dylanZdylan_visceraZerror_METH(orig_sp, L_temp, &dylanZempty_list_ROOT, L_instance);
not_reached();
}
else {
L_z = atan2(A_y, ((double)A_x));
return L_z;
}
}
double transcendentalZtranscendentalZatan2_METH_4(descriptor_t *orig_sp, float A_y , double A_x , heapptr_t A2)
{
descriptor_t *cluster_0_top;
boolean L_condition;
heapptr_t L_instance;
descriptor_t L_temp;
double L_z;
if ((A_y == ((float)0))) {
L_condition = (A_x == ((double)0));
}
else {
L_condition = 0;
}
if (L_condition) {
L_instance = dylanZdylan_visceraZCLS_simple_object_vector_MAKER_FUN(orig_sp, 0, dylanZfalse);
L_temp.heapptr = &transcendentalZstr_ROOT_4;
L_temp.dataword.l = 0;
dylanZdylan_visceraZerror_METH(orig_sp, L_temp, &dylanZempty_list_ROOT, L_instance);
not_reached();
}
else {
L_z = atan2(((double)A_y), A_x);
return L_z;
}
}
float transcendentalZtranscendentalZsinh_METH_3(descriptor_t *orig_sp, long A_x , heapptr_t A1)
{
descriptor_t *cluster_0_top;
float L_y;
L_y = sinf(((float)A_x));
return L_y;
}
float transcendentalZtranscendentalZsinh_METH_2(descriptor_t *orig_sp, float A_x , heapptr_t A1)
{
descriptor_t *cluster_0_top;
float L_y;
L_y = sinf(A_x);
return L_y;
}
double transcendentalZtranscendentalZsinh_METH(descriptor_t *orig_sp, double A_x , heapptr_t A1)
{
descriptor_t *cluster_0_top;
double L_y;
L_y = sinh(A_x);
return L_y;
}
float transcendentalZtranscendentalZcosh_METH_3(descriptor_t *orig_sp, long A_x , heapptr_t A1)
{
descriptor_t *cluster_0_top;
float L_y;
L_y = cosf(((float)A_x));
return L_y;
}
float transcendentalZtranscendentalZcosh_METH_2(descriptor_t *orig_sp, float A_x , heapptr_t A1)
{
descriptor_t *cluster_0_top;
float L_y;
L_y = cosf(A_x);
return L_y;
}
double transcendentalZtranscendentalZcosh_METH(descriptor_t *orig_sp, double A_x , heapptr_t A1)
{
descriptor_t *cluster_0_top;
double L_y;
L_y = cosh(A_x);
return L_y;
}
float transcendentalZtranscendentalZtanh_METH_3(descriptor_t *orig_sp, long A_x , heapptr_t A1)
{
descriptor_t *cluster_0_top;
float L_y;
L_y = tanf(((float)A_x));
return L_y;
}
float transcendentalZtranscendentalZtanh_METH_2(descriptor_t *orig_sp, float A_x , heapptr_t A1)
{
descriptor_t *cluster_0_top;
float L_y;
L_y = tanf(A_x);
return L_y;
}
double transcendentalZtranscendentalZtanh_METH(descriptor_t *orig_sp, double A_x , heapptr_t A1)
{
descriptor_t *cluster_0_top;
double L_y;
L_y = tanh(A_x);
return L_y;
}