egcs trouble compiling dejagnu
Kate Hedstrom
kate@ahab.Rutgers.EDU
Mon Sep 15 03:24:00 GMT 1997
> From law@hurl.cygnus.com Sun Sep 14 20:59 EDT 1997
> To: Kate Hedstrom <kate@ahab.Rutgers.EDU>
> cc: egcs-bugs@cygnus.com
> Subject: Re: egcs trouble compiling dejagnu
> Reply-To: law@cygnus.com
> Content-Type: text
> Content-Length: 430
>
> > /usr/local/lib/gcc-lib/rs6000-ibm-aix3.2.5/egcs-2.90.07/cc1 panic.i -quiet
> > -dumpbase panic.c -g -O2 -version -o panic.s
> > GNU C version egcs-2.90.07 970910 (gcc2-970802 experimental) (rs6000-ibm-ai
> > x3.2.5) compiled by GNU C version egcs-2.90.07 970910 (gcc2-970802 experime > ntal).
> > gcc: Internal compiler error: program cc1 got fatal signal 10
> > gmake: *** [panic.o] Error 1
> Can you mail us panic.i?
> jeff
>
>
Sure:
# 1 "./../generic/panic.c"
# 1 "/usr/local/lib/gcc-lib/rs6000-ibm-aix3.2.5/egcs-2.90.07/include/stdio.h" 1 3
# 1 "/usr/local/lib/gcc-lib/rs6000-ibm-aix3.2.5/egcs-2.90.07/include/stdarg.h" 1 3
typedef char *__gnuc_va_list;
# 116 "/usr/local/lib/gcc-lib/rs6000-ibm-aix3.2.5/egcs-2.90.07/include/stdarg.h" 3
# 202 "/usr/local/lib/gcc-lib/rs6000-ibm-aix3.2.5/egcs-2.90.07/include/stdarg.h" 3
# 2 "/usr/local/lib/gcc-lib/rs6000-ibm-aix3.2.5/egcs-2.90.07/include/stdio.h" 2 3
# 24 "/usr/local/lib/gcc-lib/rs6000-ibm-aix3.2.5/egcs-2.90.07/include/stdio.h" 3
# 1 "/usr/include/standards.h" 1 3
# 49 "/usr/include/standards.h" 3
# 32 "/usr/local/lib/gcc-lib/rs6000-ibm-aix3.2.5/egcs-2.90.07/include/stdio.h" 2 3
typedef unsigned long size_t;
typedef long fpos_t;
typedef struct {
unsigned char *_ptr;
int _cnt;
unsigned char *_base;
unsigned char *_bufendp;
short _flag;
short _file;
int __stdioid;
char *__newbase;
long _unused[1];
} FILE;
extern FILE _iob[20 ];
extern size_t fread(void *, size_t, size_t, FILE *);
extern size_t fwrite(const void *, size_t, size_t,FILE *);
# 185 "/usr/local/lib/gcc-lib/rs6000-ibm-aix3.2.5/egcs-2.90.07/include/stdio.h" 3
extern int _flsbuf(unsigned char, FILE *);
extern int _filbuf(FILE *);
extern int ferror(FILE *);
extern int feof(FILE *);
extern void clearerr(FILE *);
extern int putchar(int);
extern int getchar(void);
extern int putc(int, FILE *);
extern int getc(FILE *);
extern int remove(const char *);
extern int rename(const char *, const char *);
extern FILE *tmpfile(void);
extern char *tmpnam(char *);
extern int fclose(FILE *);
extern int fflush(FILE *);
extern FILE *fopen(const char *, const char *);
extern FILE *freopen(const char *, const char *, FILE *);
extern void setbuf(FILE *, char *);
extern int setvbuf(FILE *, char *, int, size_t);
extern int fprintf(FILE *, const char *, ...);
extern int fscanf(FILE *, const char *, ...);
extern int printf(const char *, ...);
extern int scanf(const char *, ...);
extern int sprintf(char *, const char *, ...);
extern int sscanf(const char *, const char *, ...);
# 1 "/usr/include/va_list.h" 1 3
# 19 "/usr/include/va_list.h" 3
typedef char *va_list;
# 58 "/usr/include/va_list.h" 3
# 219 "/usr/local/lib/gcc-lib/rs6000-ibm-aix3.2.5/egcs-2.90.07/include/stdio.h" 2 3
extern int vfprintf(FILE *, const char *, __gnuc_va_list);
extern int vprintf(const char *, __gnuc_va_list);
extern int vsprintf(char *, const char *, __gnuc_va_list);
extern int fgetc(FILE *);
extern char *fgets(char *, int, FILE *);
extern int fputc(int, FILE *);
extern int fputs(const char *, FILE *);
extern char *gets(char *);
extern int puts(const char *);
extern int ungetc(int, FILE *);
extern int fgetpos(FILE *, fpos_t *);
extern int fseek(FILE *, long int, int);
extern int fsetpos(FILE *, const fpos_t *);
extern long ftell(FILE *);
extern void rewind(FILE *);
extern void perror(const char *);
# 289 "/usr/local/lib/gcc-lib/rs6000-ibm-aix3.2.5/egcs-2.90.07/include/stdio.h" 3
# 1 "/usr/local/lib/gcc-lib/rs6000-ibm-aix3.2.5/egcs-2.90.07/include/sys/types.h" 1 3
typedef int ptrdiff_t;
typedef short unsigned int wchar_t;
typedef unsigned int wctype_t;
typedef long time_t;
typedef int clock_t;
# 105 "/usr/local/lib/gcc-lib/rs6000-ibm-aix3.2.5/egcs-2.90.07/include/sys/types.h" 3
typedef unsigned char uchar_t;
typedef unsigned short ushort_t;
typedef unsigned int uint_t;
typedef unsigned long ulong_t;
typedef signed int ssize_t;
typedef struct { int r[1]; } * physadr_t;
typedef long level_t;
typedef long daddr_t;
typedef char * caddr_t;
typedef ulong_t ino_t;
typedef short cnt_t;
typedef ulong_t dev_t;
typedef long chan_t;
typedef long off_t;
typedef long paddr_t;
typedef long key_t;
typedef long timer_t;
typedef short nlink_t;
typedef ulong_t mode_t;
typedef ulong_t uid_t;
typedef ulong_t gid_t;
typedef void * mid_t;
typedef int pid_t;
typedef char slab_t[12];
typedef long mtyp_t;
typedef int wint_t;
# 1 "/usr/include/sys/m_types.h" 1 3
typedef struct label_t {
struct label_t *prev;
ulong_t iar;
ulong_t stack;
ulong_t toc;
ulong_t cr;
ulong_t intpri;
ulong_t reg[19];
} label_t;
typedef long vmid_t;
typedef ulong_t vmhandle_t;
typedef struct vmaddr_t {
vmhandle_t srval;
caddr_t offset;
} vmaddr_t;
typedef struct adspace_t{
ulong_t alloc;
vmhandle_t srval[16];
} adspace_t;
# 152 "/usr/local/lib/gcc-lib/rs6000-ibm-aix3.2.5/egcs-2.90.07/include/sys/types.h" 2 3
typedef struct sigset_t {
unsigned long losigs;
unsigned long hisigs;
} sigset_t;
typedef int signal_t;
typedef uchar_t uchar;
typedef ushort_t ushort;
typedef uint_t uint;
typedef ulong_t ulong;
typedef physadr_t physadr;
typedef unsigned char u_char;
typedef unsigned short u_short;
typedef unsigned int u_int;
typedef unsigned long u_long;
typedef struct _quad { long val[2]; } quad;
typedef long swblk_t;
struct sigset {
unsigned long losigs;
unsigned long hisigs;
};
struct fsid {
long val[2];
};
typedef struct fsid fsid_t;
struct fid {
uint_t fid_len;
char fid_data[(32 - sizeof(fsid_t) - sizeof(uint_t)) ];
};
typedef struct fid fid_t;
struct fileid {
uint_t fid_len;
ino_t fid_ino;
uint_t fid_gen;
char fid_x[(32 - sizeof(fsid_t) - sizeof(uint_t)) - (sizeof(ino_t) + 2) - sizeof(uint_t)];
};
struct fhandle {
char x[32 ];
};
struct filehandle {
fsid_t fh_fsid;
struct fileid fh_fid;
};
typedef struct fhandle fhandle_t;
struct unique_id {
unsigned long word1;
unsigned long word2;
unsigned long word3;
unsigned long word4;
};
typedef struct unique_id unique_id_t;
# 282 "/usr/local/lib/gcc-lib/rs6000-ibm-aix3.2.5/egcs-2.90.07/include/sys/types.h" 3
# 315 "/usr/local/lib/gcc-lib/rs6000-ibm-aix3.2.5/egcs-2.90.07/include/stdio.h" 2 3
extern int fileno(FILE *);
extern FILE *fdopen(int,const char *);
extern char *ctermid(char *);
# 357 "/usr/local/lib/gcc-lib/rs6000-ibm-aix3.2.5/egcs-2.90.07/include/stdio.h" 3
extern int getw(FILE *);
extern int putw(int, FILE *);
extern char *tempnam(const char*,const char*);
extern FILE *popen(const char *, const char *);
extern int pclose(FILE *);
extern wint_t getwc(FILE *);
extern wint_t getwchar(void);
extern wchar_t *getws(wchar_t *);
extern wint_t fgetwc(FILE *);
extern wchar_t *fgetws(wchar_t *,int,FILE *);
extern wint_t fputwc(wint_t,FILE *);
extern int fputws(const wchar_t *,FILE *);
extern wint_t putwc(wint_t,FILE *);
extern wint_t putwchar(wint_t);
extern int putws(const wchar_t *);
extern wint_t ungetwc(wint_t,FILE *);
# 1 "/usr/local/lib/gcc-lib/rs6000-ibm-aix3.2.5/egcs-2.90.07/include/sys/limits.h" 1 3
# 1 "/usr/local/lib/gcc-lib/rs6000-ibm-aix3.2.5/egcs-2.90.07/include/float.h" 1 3
# 168 "/usr/local/lib/gcc-lib/rs6000-ibm-aix3.2.5/egcs-2.90.07/include/sys/limits.h" 2 3
# 384 "/usr/local/lib/gcc-lib/rs6000-ibm-aix3.2.5/egcs-2.90.07/include/stdio.h" 2 3
extern char *cuserid(char *);
# 17 "./../generic/panic.c" 2
# 1 "/usr/local/lib/gcc-lib/rs6000-ibm-aix3.2.5/egcs-2.90.07/include/stdlib.h" 1 3
# 25 "/usr/local/lib/gcc-lib/rs6000-ibm-aix3.2.5/egcs-2.90.07/include/stdlib.h" 3
# 1 "/usr/include/sys/localedef.h" 1 3
# 1 "/usr/include/sys/lc_core.h" 1 3
typedef struct {
unsigned short
type_id,
magic;
unsigned long
version;
size_t size;
} _LC_object_t;
typedef struct {
_LC_object_t hdr;
int catgets ;
int catclose ;
int compress ;
int decompress ;
int start_compress ;
int end_compress ;
int init ;
void *data;
} _LC_core_car_t;
typedef struct {
_LC_object_t hdr;
int nl_langinfo ;
int mbtowc ;
int mbstowcs ;
int wctomb ;
int wcstombs ;
int mblen ;
int wcswidth ;
int wcwidth ;
int __mbtopc ;
int __mbstopcs ;
int __pctomb ;
int __pcstombs ;
int csid ;
int wcsid ;
int init ;
void *data;
} _LC_core_charmap_t;
typedef struct {
_LC_object_t hdr;
int towupper ;
int towlower ;
int get_wctype ;
int is_wctype ;
int init ;
void *data;
} _LC_core_ctype_t;
typedef struct {
_LC_object_t hdr;
int strcoll ;
int strxfrm ;
int wcscoll ;
int wcsxfrm ;
int fnmatch ;
int regcomp ;
int regerror ;
int regexec ;
int regfree ;
int init ;
void *data;
} _LC_core_collate_t;
typedef struct {
_LC_object_t hdr;
int nl_langinfo ;
int strftime ;
int strptime ;
int wcsftime ;
int init ;
void *data;
} _LC_core_time_t;
typedef struct {
_LC_object_t hdr;
int nl_langinfo ;
int strfmon ;
int init ;
void *data;
} _LC_core_monetary_t;
typedef struct {
_LC_object_t hdr;
int nl_langinfo ;
int init ;
void *data;
} _LC_core_numeric_t;
typedef struct {
_LC_object_t hdr;
int nl_langinfo ;
int rpmatch ;
int init ;
void *data;
} _LC_core_resp_t;
typedef struct {
_LC_object_t hdr;
int nl_langinfo ;
int localeconv ;
int init ;
void *data;
} _LC_core_locale_t;
# 21 "/usr/include/sys/localedef.h" 2 3
# 1 "/usr/local/lib/gcc-lib/rs6000-ibm-aix3.2.5/egcs-2.90.07/include/locale.h" 1 3
struct lconv {
char *decimal_point;
char *thousands_sep;
char *grouping;
char *int_curr_symbol;
char *currency_symbol;
char *mon_decimal_point;
char *mon_thousands_sep;
char *mon_grouping;
char *positive_sign;
char *negative_sign;
char int_frac_digits;
char frac_digits;
char p_cs_precedes;
char p_sep_by_space;
char n_cs_precedes;
char n_sep_by_space;
char p_sign_posn;
char n_sign_posn;
char *left_parenthesis;
char *right_parenthesis;
} ;
struct lconv *localeconv(void);
char *setlocale(int, const char *);
typedef struct lconv lconv;
# 22 "/usr/include/sys/localedef.h" 2 3
# 1 "/usr/include/sys/localedef31.h" 1 3
typedef struct coldesc {
short cd_stroff;
short cd_repoff;
short cd_cval;
short cd_cuniq;
} coldesc_t;
typedef struct collation_table {
short lc_version;
short lc_length;
char *lc_locale_name;
int len_collate;
short *lc_collate;
int len_coluniq;
short *lc_coluniq;
int len_coldesc;
coldesc_t *lc_coldesc;
int len_strings;
wchar_t *lc_strings;
int high_cvalue;
} col_t;
typedef struct char_classification_table {
short lc_version;
short lc_length;
short lc_code_type;
short mb_cur_max;
short mb_cur_min;
short lc_dsp_width;
char *lc_locale_name;
int len_caseconv;
wchar_t *lc_caseconv;
int len_ctype;
unsigned short *lc_ctype;
} ctype_t;
typedef struct lc_monetary_table {
short lc_version;
short lc_length;
char *lc_locale_name;
char *int_curr_symbol;
char *currency_symbol;
char *mon_decimal_point;
char *mon_thousands_sep;
char *mon_grouping;
char *positive_sign;
char *negative_sign;
char int_frac_digits;
char frac_digits;
char p_cs_precedes;
char p_sep_by_space;
char n_cs_precedes;
char n_sep_by_space;
char p_sign_posn;
char n_sign_posn;
} mon_t;
typedef struct numeric_table {
short lc_version;
short lc_length;
char *lc_locale_name;
char *decimal_point;
char *thousands_sep;
char *grouping;
} num_t;
typedef struct lc_messages_table {
short lc_version;
short lc_length;
char *lc_locale_name;
char *messages;
char *yes_string;
char *no_string;
} msg_t;
typedef struct lc_time_table {
short lc_version;
short lc_length;
char *lc_locale_name;
char *t_fmt;
char *d_fmt;
char *nlldate;
char *d_t_fmt;
char *abday;
char *day;
char *abmon;
char *mon;
char *misc;
char *tstrs;
char *tunits;
char *year;
char *am_pm;
} tim_t;
typedef struct wchar_mapping_table {
short lc_version;
short lc_length;
char *lc_identifier;
} map_t;
typedef struct localeinfo_table {
char lc_mag0, lc_mag1;
short lc_version;
short lc_code_type;
short lc_length;
col_t *lc_coltbl;
ctype_t *lc_chrtbl;
mon_t *lc_montbl;
num_t *lc_numtbl;
tim_t *lc_timtbl;
msg_t *lc_msgtbl;
map_t *lc_maptbl;
} loc_t;
# 24 "/usr/include/sys/localedef.h" 2 3
typedef struct {
_LC_core_charmap_t core;
char *cm_csname;
size_t cm_mb_cur_max;
size_t cm_mb_cur_min;
unsigned char
cm_max_disp_width;
unsigned
char *cm_cstab;
} _LC_charmap_t;
typedef struct _LC_charmap_objhdl _LC_charmap_objhdl_t;
struct _LC_charmap_objhdl {
_LC_charmap_t *obj;
void *(**meth)();
};
typedef struct {
_LC_core_monetary_t core;
char *int_curr_symbol;
char *currency_symbol;
char *mon_decimal_point;
char *mon_thousands_sep;
char *mon_grouping;
char *positive_sign;
char *negative_sign;
signed char int_frac_digits;
signed char frac_digits;
signed char p_cs_precedes;
signed char p_sep_by_space;
signed char n_cs_precedes;
signed char n_sep_by_space;
signed char p_sign_posn;
signed char n_sign_posn;
char *debit_sign;
char *credit_sign;
char *left_parenthesis;
char *right_parenthesis;
} _LC_monetary_t;
typedef struct _LC_monetary_objhdl _LC_monetary_objhdl_t;
struct _LC_monetary_objhdl {
_LC_monetary_t *obj;
void *(**meth)();
};
typedef struct {
_LC_core_numeric_t core;
char *decimal_point;
char *thousands_sep;
unsigned
char *grouping;
} _LC_numeric_t;
typedef struct _LC_numeric_objhdl _LC_numeric_objhdl_t;
struct _LC_numeric_objhdl {
_LC_numeric_t *obj;
void *(**meth)();
};
typedef struct {
_LC_core_resp_t core;
char *yesexpr;
char *noexpr;
char *yesstr;
char *nostr;
} _LC_resp_t;
typedef struct _LC_resp_objhdl _LC_resp_objhdl_t;
struct _LC_resp_objhdl {
_LC_resp_t *obj;
void *(**meth)();
};
typedef struct {
_LC_core_time_t core;
char *d_fmt;
char *t_fmt;
char *d_t_fmt;
char *t_fmt_ampm;
char *abday[7];
char *day[7];
char *abmon[12];
char *mon[12];
char *am_pm[2];
char *era;
char *era_year;
char *era_d_fmt;
char *alt_digits;
} _LC_time_t;
typedef struct _LC_time_objhdl _LC_time_objhdl_t;
struct _LC_time_objhdl {
_LC_time_t *obj;
void *(**meth)();
};
typedef union {
unsigned
short n[2];
unsigned
short *p;
} _LC_weight_t;
typedef struct {
char *ce_sym;
_LC_weight_t ce_wgt;
} _LC_collel_t;
typedef struct {
_LC_weight_t ct_wgt;
_LC_collel_t *ct_collel;
} _LC_coltbl_t;
typedef struct {
_LC_weight_t ss_act;
char *ss_src;
char *ss_tgt;
} _LC_subs_t;
typedef struct {
_LC_core_collate_t core;
unsigned
char co_nord;
_LC_weight_t co_sort;
wchar_t co_wc_min;
wchar_t co_wc_max;
wchar_t co_col_min;
wchar_t co_col_max;
_LC_coltbl_t *co_coltbl;
unsigned
char co_nsubs;
_LC_subs_t *co_subs;
} _LC_collate_t;
typedef struct _LC_collate_objhdl _LC_collate_objhdl_t;
struct _LC_collate_objhdl {
_LC_collate_t *obj;
void *(**meth)();
};
typedef struct {
char *name;
unsigned
int mask;
} _LC_classnm_t;
typedef struct {
_LC_core_ctype_t core;
wchar_t min_wc;
wchar_t max_wc;
wchar_t *upper;
wchar_t *lower;
unsigned
int *mask;
unsigned
int *qmask;
unsigned
char *qidx;
unsigned
char nclasses;
_LC_classnm_t *classnms;
} _LC_ctype_t;
typedef struct _LC_ctype_objhdl _LC_ctype_objhdl_t;
struct _LC_ctype_objhdl {
_LC_ctype_t *obj;
void *(**meth)();
};
typedef struct {
_LC_core_locale_t core;
char *nl_info[55 ];
struct lconv *nl_lconv;
_LC_charmap_objhdl_t lc_charmap;
_LC_collate_objhdl_t lc_collate;
_LC_ctype_objhdl_t lc_ctype;
_LC_monetary_objhdl_t lc_monetary;
_LC_numeric_objhdl_t lc_numeric;
_LC_resp_objhdl_t lc_resp;
_LC_time_objhdl_t lc_time;
} _LC_locale_t;
typedef struct _LC_locale_objhdl _LC_locale_objhdl_t;
struct _LC_locale_objhdl {
_LC_locale_t *obj;
void *(**meth)();
};
typedef struct _LC_object_handle _LC_object_handle_t;
struct _LC_object_handle {
union {
_LC_object_t lc_object;
_LC_locale_objhdl_t lc_locale;
_LC_charmap_objhdl_t lc_charmap;
_LC_collate_objhdl_t lc_collate;
_LC_ctype_objhdl_t lc_ctype;
_LC_monetary_objhdl_t lc_monetary;
_LC_numeric_objhdl_t lc_numeric;
_LC_resp_objhdl_t lc_resp;
_LC_time_objhdl_t lc_time;
} obj;
void *(**meth)();
};
typedef struct {
_LC_object_t hdr;
_LC_locale_objhdl_t handle;
} _LC_load_object_t;
extern _LC_charmap_objhdl_t __lc_charmap;
extern _LC_collate_objhdl_t __lc_collate;
extern _LC_ctype_objhdl_t __lc_ctype;
extern _LC_monetary_objhdl_t __lc_monetary;
extern _LC_numeric_objhdl_t __lc_numeric;
extern _LC_resp_objhdl_t __lc_resp;
extern _LC_time_objhdl_t __lc_time;
extern _LC_locale_objhdl_t __lc_locale;
# 33 "/usr/local/lib/gcc-lib/rs6000-ibm-aix3.2.5/egcs-2.90.07/include/stdlib.h" 2 3
# 60 "/usr/local/lib/gcc-lib/rs6000-ibm-aix3.2.5/egcs-2.90.07/include/stdlib.h" 3
# 70 "/usr/local/lib/gcc-lib/rs6000-ibm-aix3.2.5/egcs-2.90.07/include/stdlib.h" 3
typedef struct div_t {
int quot;
int rem;
} div_t;
typedef struct ldiv_t {
long int quot;
long int rem;
} ldiv_t;
extern int mblen(const char *, size_t);
extern size_t mbstowcs(wchar_t *, const char *, size_t);
extern int mbtowc(wchar_t *, const char *, size_t);
extern size_t wcstombs(char *, const wchar_t *, size_t);
extern int wctomb(char *, const wchar_t);
# 168 "/usr/local/lib/gcc-lib/rs6000-ibm-aix3.2.5/egcs-2.90.07/include/stdlib.h" 3
extern double atof(const char *);
extern int atoi(const char *);
extern long int atol(const char *);
extern double fixstrtod (const char *, char * *);
extern long int strtol(const char *, char * *, int);
extern unsigned long int strtoul(const char *, char * *, int);
extern int rand(void);
extern void srand(unsigned int);
extern void *calloc(size_t, size_t);
extern void free(void *);
extern void *malloc(size_t);
extern void *realloc(void *, size_t);
extern void abort(void);
extern int atexit(void (*)(void));
extern void exit(int);
extern char *getenv(const char *);
extern int system(const char *);
extern void *bsearch(const void *, const void *, size_t, size_t, int(*)(const void *,const void *));
extern void qsort(void *, size_t, size_t, int(*)(const void *,const void *));
extern int abs(int);
extern struct div_t div(int, int);
extern long int labs(long int);
extern struct ldiv_t ldiv(long int, long int);
# 227 "/usr/local/lib/gcc-lib/rs6000-ibm-aix3.2.5/egcs-2.90.07/include/stdlib.h" 3
# 253 "/usr/local/lib/gcc-lib/rs6000-ibm-aix3.2.5/egcs-2.90.07/include/stdlib.h" 3
extern double drand48(void);
extern double erand48(unsigned short[]);
extern long jrand48(unsigned short[]);
extern long mrand48(void);
extern long nrand48(unsigned short[]);
extern unsigned short *seed48(unsigned short[]);
extern void srand48(long);
extern int putenv( char *);
# 279 "/usr/local/lib/gcc-lib/rs6000-ibm-aix3.2.5/egcs-2.90.07/include/stdlib.h" 3
# 333 "/usr/local/lib/gcc-lib/rs6000-ibm-aix3.2.5/egcs-2.90.07/include/stdlib.h" 3
extern char *optarg;
extern int optind;
extern int opterr;
float atoff();
char *ecvt (double, int, int *, int *) ;
char *fcvt (double, int, int *, int *) ;
char *gcvt (double, int, char *) ;
float strtof();
void imul_dbl();
void umul_dbl();
# 374 "/usr/local/lib/gcc-lib/rs6000-ibm-aix3.2.5/egcs-2.90.07/include/stdlib.h" 3
extern double wcstod(const wchar_t *, wchar_t **);
extern long int wcstol(const wchar_t *, wchar_t **, int);
extern unsigned long int wcstoul(const wchar_t *, wchar_t **, int);
extern int rpmatch(const char *);
extern int clearenv(void);
extern int getopt(int, char *const[], const char *);
extern char *getpass(const char *);
# 21 "./../generic/panic.c" 2
# 1 "../generic/tcl.h" 1
# 77 "../generic/tcl.h"
# 94 "../generic/tcl.h"
# 133 "../generic/tcl.h"
# 181 "../generic/tcl.h"
typedef void *ClientData;
typedef struct Tcl_Interp {
char *result;
void (*freeProc) (char *blockPtr) ;
int errorLine;
} Tcl_Interp;
typedef struct Tcl_AsyncHandler_ *Tcl_AsyncHandler;
typedef struct Tcl_Channel_ *Tcl_Channel;
typedef struct Tcl_Command_ *Tcl_Command;
typedef struct Tcl_Event Tcl_Event;
typedef struct Tcl_Pid_ *Tcl_Pid;
typedef struct Tcl_RegExp_ *Tcl_RegExp;
typedef struct Tcl_TimerToken_ *Tcl_TimerToken;
typedef struct Tcl_Trace_ *Tcl_Trace;
typedef struct Tcl_Var_ *Tcl_Var;
typedef enum {TCL_INT, TCL_DOUBLE, TCL_EITHER} Tcl_ValueType;
typedef struct Tcl_Value {
Tcl_ValueType type;
long intValue;
double doubleValue;
} Tcl_Value;
struct Tcl_Obj;
typedef int (Tcl_AppInitProc) (Tcl_Interp *interp) ;
typedef int (Tcl_AsyncProc) (ClientData clientData,
Tcl_Interp *interp, int code) ;
typedef void (Tcl_ChannelProc) (ClientData clientData, int mask) ;
typedef void (Tcl_CloseProc) (ClientData data) ;
typedef void (Tcl_CmdDeleteProc) (ClientData clientData) ;
typedef int (Tcl_CmdProc) (ClientData clientData,
Tcl_Interp *interp, int argc, char *argv[]) ;
typedef void (Tcl_CmdTraceProc) (ClientData clientData,
Tcl_Interp *interp, int level, char *command, Tcl_CmdProc *proc,
ClientData cmdClientData, int argc, char *argv[]) ;
typedef void (Tcl_DupInternalRepProc) (struct Tcl_Obj *srcPtr,
struct Tcl_Obj *dupPtr) ;
typedef int (Tcl_EventProc) (Tcl_Event *evPtr, int flags) ;
typedef void (Tcl_EventCheckProc) (ClientData clientData,
int flags) ;
typedef int (Tcl_EventDeleteProc) (Tcl_Event *evPtr,
ClientData clientData) ;
typedef void (Tcl_EventSetupProc) (ClientData clientData,
int flags) ;
typedef void (Tcl_ExitProc) (ClientData clientData) ;
typedef void (Tcl_FileProc) (ClientData clientData, int mask) ;
typedef void (Tcl_FileFreeProc) (ClientData clientData) ;
typedef void (Tcl_FreeInternalRepProc) (struct Tcl_Obj *objPtr) ;
typedef void (Tcl_FreeProc) (char *blockPtr) ;
typedef void (Tcl_IdleProc) (ClientData clientData) ;
typedef void (Tcl_InterpDeleteProc) (ClientData clientData,
Tcl_Interp *interp) ;
typedef int (Tcl_MathProc) (ClientData clientData,
Tcl_Interp *interp, Tcl_Value *args, Tcl_Value *resultPtr) ;
typedef void (Tcl_NamespaceDeleteProc) (ClientData clientData) ;
typedef int (Tcl_ObjCmdProc) (ClientData clientData,
Tcl_Interp *interp, int objc, struct Tcl_Obj * const objv[]) ;
typedef int (Tcl_PackageInitProc) (Tcl_Interp *interp) ;
typedef void (Tcl_TcpAcceptProc) (ClientData callbackData,
Tcl_Channel chan, char *address, int port) ;
typedef void (Tcl_TimerProc) (ClientData clientData) ;
typedef int (Tcl_SetFromAnyProc) (Tcl_Interp *interp,
struct Tcl_Obj *objPtr) ;
typedef void (Tcl_UpdateStringProc) (struct Tcl_Obj *objPtr) ;
typedef char *(Tcl_VarTraceProc) (ClientData clientData,
Tcl_Interp *interp, char *part1, char *part2, int flags) ;
typedef struct Tcl_ObjType {
char *name;
Tcl_FreeInternalRepProc *freeIntRepProc;
Tcl_DupInternalRepProc *dupIntRepProc;
Tcl_UpdateStringProc *updateStringProc;
Tcl_SetFromAnyProc *setFromAnyProc;
} Tcl_ObjType;
typedef struct Tcl_Obj {
int refCount;
char *bytes;
int length;
Tcl_ObjType *typePtr;
union {
long longValue;
double doubleValue;
void *otherValuePtr;
struct {
void *ptr1;
void *ptr2;
} twoPtrValue;
} internalRep;
} Tcl_Obj;
extern void Tcl_IncrRefCount (Tcl_Obj *objPtr) ;
extern void Tcl_DecrRefCount (Tcl_Obj *objPtr) ;
extern int Tcl_IsShared (Tcl_Obj *objPtr) ;
extern Tcl_Obj * Tcl_NewBooleanObj (int boolValue) ;
extern Tcl_Obj * Tcl_NewDoubleObj (double doubleValue) ;
extern Tcl_Obj * Tcl_NewIntObj (int intValue) ;
extern Tcl_Obj * Tcl_NewListObj (int objc,
Tcl_Obj * const objv[]) ;
extern Tcl_Obj * Tcl_NewLongObj (long longValue) ;
extern Tcl_Obj * Tcl_NewObj (void) ;
extern Tcl_Obj * Tcl_NewStringObj (char *bytes,
int length) ;
# 464 "../generic/tcl.h"
typedef struct Tcl_Namespace {
char *name;
char *fullName;
ClientData clientData;
Tcl_NamespaceDeleteProc* deleteProc;
struct Tcl_Namespace* parentPtr;
} Tcl_Namespace;
typedef struct Tcl_CallFrame {
Tcl_Namespace *nsPtr;
int dummy1;
int dummy2;
char *dummy3;
char *dummy4;
char *dummy5;
int dummy6;
char *dummy7;
char *dummy8;
int dummy9;
char* dummy10;
} Tcl_CallFrame;
typedef struct Tcl_CmdInfo {
int isNativeObjectProc;
Tcl_ObjCmdProc *objProc;
ClientData objClientData;
Tcl_CmdProc *proc;
ClientData clientData;
Tcl_CmdDeleteProc *deleteProc;
ClientData deleteData;
Tcl_Namespace *namespacePtr;
} Tcl_CmdInfo;
typedef struct Tcl_DString {
char *string;
int length;
int spaceAvl;
char staticSpace[200 ];
} Tcl_DString;
extern char * Tcl_Alloc (unsigned int size) ;
extern void Tcl_Free (char *ptr) ;
extern char * Tcl_Realloc (char *ptr,
unsigned int size) ;
# 677 "../generic/tcl.h"
typedef struct Tcl_HashEntry {
struct Tcl_HashEntry *nextPtr;
struct Tcl_HashTable *tablePtr;
struct Tcl_HashEntry **bucketPtr;
ClientData clientData;
union {
char *oneWordValue;
int words[1];
char string[4];
} key;
} Tcl_HashEntry;
typedef struct Tcl_HashTable {
Tcl_HashEntry **buckets;
Tcl_HashEntry *staticBuckets[4 ];
int numBuckets;
int numEntries;
int rebuildSize;
int downShift;
int mask;
int keyType;
Tcl_HashEntry *(*findProc) (struct Tcl_HashTable *tablePtr,
const char *key) ;
Tcl_HashEntry *(*createProc) (struct Tcl_HashTable *tablePtr,
const char *key, int *newPtr) ;
} Tcl_HashTable;
typedef struct Tcl_HashSearch {
Tcl_HashTable *tablePtr;
int nextIndex;
Tcl_HashEntry *nextEntryPtr;
} Tcl_HashSearch;
struct Tcl_Event {
Tcl_EventProc *proc;
struct Tcl_Event *nextPtr;
};
typedef enum {
TCL_QUEUE_TAIL, TCL_QUEUE_HEAD, TCL_QUEUE_MARK
} Tcl_QueuePosition;
typedef struct Tcl_Time {
long sec;
long usec;
} Tcl_Time;
typedef int (Tcl_DriverBlockModeProc) (
ClientData instanceData, int mode) ;
typedef int (Tcl_DriverCloseProc) (ClientData instanceData,
Tcl_Interp *interp) ;
typedef int (Tcl_DriverInputProc) (ClientData instanceData,
char *buf, int toRead, int *errorCodePtr) ;
typedef int (Tcl_DriverOutputProc) (ClientData instanceData,
char *buf, int toWrite, int *errorCodePtr) ;
typedef int (Tcl_DriverSeekProc) (ClientData instanceData,
long offset, int mode, int *errorCodePtr) ;
typedef int (Tcl_DriverSetOptionProc) (
ClientData instanceData, Tcl_Interp *interp,
char *optionName, char *value) ;
typedef int (Tcl_DriverGetOptionProc) (
ClientData instanceData, Tcl_Interp *interp,
char *optionName, Tcl_DString *dsPtr) ;
typedef void (Tcl_DriverWatchProc) (
ClientData instanceData, int mask) ;
typedef int (Tcl_DriverGetHandleProc) (
ClientData instanceData, int direction,
ClientData *handlePtr) ;
typedef enum Tcl_EolTranslation {
TCL_TRANSLATE_AUTO,
TCL_TRANSLATE_CR,
TCL_TRANSLATE_LF,
TCL_TRANSLATE_CRLF
} Tcl_EolTranslation;
typedef struct Tcl_ChannelType {
char *typeName;
Tcl_DriverBlockModeProc *blockModeProc;
Tcl_DriverCloseProc *closeProc;
Tcl_DriverInputProc *inputProc;
Tcl_DriverOutputProc *outputProc;
Tcl_DriverSeekProc *seekProc;
Tcl_DriverSetOptionProc *setOptionProc;
Tcl_DriverGetOptionProc *getOptionProc;
Tcl_DriverWatchProc *watchProc;
Tcl_DriverGetHandleProc *getHandleProc;
} Tcl_ChannelType;
typedef enum Tcl_PathType {
TCL_PATH_ABSOLUTE,
TCL_PATH_RELATIVE,
TCL_PATH_VOLUME_RELATIVE
} Tcl_PathType;
extern void Tcl_AddErrorInfo (Tcl_Interp *interp,
char *message) ;
extern void Tcl_AddObjErrorInfo (Tcl_Interp *interp,
char *message, int length) ;
extern void Tcl_AllowExceptions (Tcl_Interp *interp) ;
extern int Tcl_AppendAllObjTypes (
Tcl_Interp *interp, Tcl_Obj *objPtr) ;
extern void Tcl_AppendElement (Tcl_Interp *interp,
char *string) ;
extern void Tcl_AppendResult
( Tcl_Interp * interp , ...) ;
extern void Tcl_AppendToObj (Tcl_Obj *objPtr,
char *bytes, int length) ;
extern void Tcl_AppendStringsToObj
( Tcl_Obj * interp , ...) ;
extern int Tcl_AppInit (Tcl_Interp *interp) ;
extern Tcl_AsyncHandler Tcl_AsyncCreate (Tcl_AsyncProc *proc,
ClientData clientData) ;
extern void Tcl_AsyncDelete (Tcl_AsyncHandler async) ;
extern int Tcl_AsyncInvoke (Tcl_Interp *interp,
int code) ;
extern void Tcl_AsyncMark (Tcl_AsyncHandler async) ;
extern int Tcl_AsyncReady (void) ;
extern void Tcl_BackgroundError (Tcl_Interp *interp) ;
extern char Tcl_Backslash (const char *src,
int *readPtr) ;
extern int Tcl_BadChannelOption (Tcl_Interp *interp,
char *optionName, char *optionList) ;
extern void Tcl_CallWhenDeleted (Tcl_Interp *interp,
Tcl_InterpDeleteProc *proc,
ClientData clientData) ;
extern void Tcl_CancelIdleCall (Tcl_IdleProc *idleProc,
ClientData clientData) ;
extern int Tcl_Close (Tcl_Interp *interp,
Tcl_Channel chan) ;
extern int Tcl_CommandComplete (char *cmd) ;
extern char * Tcl_Concat (int argc, char **argv) ;
extern Tcl_Obj * Tcl_ConcatObj (int objc,
Tcl_Obj * const objv[]) ;
extern int Tcl_ConvertCountedElement (const char *src,
int length, char *dst, int flags) ;
extern int Tcl_ConvertElement (const char *src,
char *dst, int flags) ;
extern int Tcl_ConvertToType (Tcl_Interp *interp,
Tcl_Obj *objPtr, Tcl_ObjType *typePtr) ;
extern int Tcl_CreateAlias (Tcl_Interp *slave,
char *slaveCmd, Tcl_Interp *target,
char *targetCmd, int argc, char **argv) ;
extern int Tcl_CreateAliasObj (Tcl_Interp *slave,
char *slaveCmd, Tcl_Interp *target,
char *targetCmd, int objc,
Tcl_Obj * const objv[]) ;
extern Tcl_Channel Tcl_CreateChannel (
Tcl_ChannelType *typePtr, char *chanName,
ClientData instanceData, int mask) ;
extern void Tcl_CreateChannelHandler (
Tcl_Channel chan, int mask,
Tcl_ChannelProc *proc, ClientData clientData) ;
extern void Tcl_CreateCloseHandler (
Tcl_Channel chan, Tcl_CloseProc *proc,
ClientData clientData) ;
extern Tcl_Command Tcl_CreateCommand (Tcl_Interp *interp,
char *cmdName, Tcl_CmdProc *proc,
ClientData clientData,
Tcl_CmdDeleteProc *deleteProc) ;
extern void Tcl_CreateEventSource (
Tcl_EventSetupProc *setupProc,
Tcl_EventCheckProc *checkProc,
ClientData clientData) ;
extern void Tcl_CreateExitHandler (Tcl_ExitProc *proc,
ClientData clientData) ;
extern void Tcl_CreateFileHandler (
int fd, int mask, Tcl_FileProc *proc,
ClientData clientData) ;
extern Tcl_Interp * Tcl_CreateInterp (void) ;
extern void Tcl_CreateMathFunc (Tcl_Interp *interp,
char *name, int numArgs, Tcl_ValueType *argTypes,
Tcl_MathProc *proc, ClientData clientData) ;
extern Tcl_Command Tcl_CreateObjCommand (
Tcl_Interp *interp, char *cmdName,
Tcl_ObjCmdProc *proc, ClientData clientData,
Tcl_CmdDeleteProc *deleteProc) ;
extern Tcl_Interp * Tcl_CreateSlave (Tcl_Interp *interp,
char *slaveName, int isSafe) ;
extern Tcl_TimerToken Tcl_CreateTimerHandler (int milliseconds,
Tcl_TimerProc *proc, ClientData clientData) ;
extern Tcl_Trace Tcl_CreateTrace (Tcl_Interp *interp,
int level, Tcl_CmdTraceProc *proc,
ClientData clientData) ;
extern char * Tcl_DbCkalloc (unsigned int size,
char *file, int line) ;
extern int Tcl_DbCkfree (char *ptr,
char *file, int line) ;
extern char * Tcl_DbCkrealloc (char *ptr,
unsigned int size, char *file, int line) ;
extern void Tcl_DbDecrRefCount (Tcl_Obj *objPtr,
char *file, int line) ;
extern void Tcl_DbIncrRefCount (Tcl_Obj *objPtr,
char *file, int line) ;
extern int Tcl_DbIsShared (Tcl_Obj *objPtr,
char *file, int line) ;
extern Tcl_Obj * Tcl_DbNewBooleanObj (int boolValue,
char *file, int line) ;
extern Tcl_Obj * Tcl_DbNewDoubleObj (double doubleValue,
char *file, int line) ;
extern Tcl_Obj * Tcl_DbNewListObj (int objc,
Tcl_Obj * const objv[], char *file, int line) ;
extern Tcl_Obj * Tcl_DbNewLongObj (long longValue,
char *file, int line) ;
extern Tcl_Obj * Tcl_DbNewObj (char *file, int line) ;
extern Tcl_Obj * Tcl_DbNewStringObj (char *bytes,
int length, char *file, int line) ;
extern void Tcl_DeleteAssocData (Tcl_Interp *interp,
char *name) ;
extern int Tcl_DeleteCommand (Tcl_Interp *interp,
char *cmdName) ;
extern int Tcl_DeleteCommandFromToken (
Tcl_Interp *interp, Tcl_Command command) ;
extern void Tcl_DeleteChannelHandler (
Tcl_Channel chan, Tcl_ChannelProc *proc,
ClientData clientData) ;
extern void Tcl_DeleteCloseHandler (
Tcl_Channel chan, Tcl_CloseProc *proc,
ClientData clientData) ;
extern void Tcl_DeleteEvents (
Tcl_EventDeleteProc *proc,
ClientData clientData) ;
extern void Tcl_DeleteEventSource (
Tcl_EventSetupProc *setupProc,
Tcl_EventCheckProc *checkProc,
ClientData clientData) ;
extern void Tcl_DeleteExitHandler (Tcl_ExitProc *proc,
ClientData clientData) ;
extern void Tcl_DeleteFileHandler (int fd) ;
extern void Tcl_DeleteHashEntry (
Tcl_HashEntry *entryPtr) ;
extern void Tcl_DeleteHashTable (
Tcl_HashTable *tablePtr) ;
extern void Tcl_DeleteInterp (Tcl_Interp *interp) ;
extern void Tcl_DeleteTimerHandler (
Tcl_TimerToken token) ;
extern void Tcl_DeleteTrace (Tcl_Interp *interp,
Tcl_Trace trace) ;
extern void Tcl_DetachPids (int numPids, Tcl_Pid *pidPtr) ;
extern void Tcl_DontCallWhenDeleted (
Tcl_Interp *interp, Tcl_InterpDeleteProc *proc,
ClientData clientData) ;
extern int Tcl_DoOneEvent (int flags) ;
extern void Tcl_DoWhenIdle (Tcl_IdleProc *proc,
ClientData clientData) ;
extern char * Tcl_DStringAppend (Tcl_DString *dsPtr,
const char *string, int length) ;
extern char * Tcl_DStringAppendElement (
Tcl_DString *dsPtr, const char *string) ;
extern void Tcl_DStringEndSublist (Tcl_DString *dsPtr) ;
extern void Tcl_DStringFree (Tcl_DString *dsPtr) ;
extern void Tcl_DStringGetResult (Tcl_Interp *interp,
Tcl_DString *dsPtr) ;
extern void Tcl_DStringInit (Tcl_DString *dsPtr) ;
extern void Tcl_DStringResult (Tcl_Interp *interp,
Tcl_DString *dsPtr) ;
extern void Tcl_DStringSetLength (Tcl_DString *dsPtr,
int length) ;
extern void Tcl_DStringStartSublist (
Tcl_DString *dsPtr) ;
extern Tcl_Obj * Tcl_DuplicateObj (Tcl_Obj *objPtr) ;
extern int Tcl_Eof (Tcl_Channel chan) ;
extern char * Tcl_ErrnoId (void) ;
extern char * Tcl_ErrnoMsg (int err) ;
extern int Tcl_Eval (Tcl_Interp *interp,
char *string) ;
extern int Tcl_EvalFile (Tcl_Interp *interp,
char *fileName) ;
extern void Tcl_EventuallyFree (ClientData clientData,
Tcl_FreeProc *freeProc) ;
extern int Tcl_EvalObj (Tcl_Interp *interp,
Tcl_Obj *objPtr) ;
extern void Tcl_Exit (int status) ;
extern int Tcl_ExposeCommand (Tcl_Interp *interp,
char *hiddenCmdToken, char *cmdName) ;
extern int Tcl_ExprBoolean (Tcl_Interp *interp,
char *string, int *ptr) ;
extern int Tcl_ExprBooleanObj (Tcl_Interp *interp,
Tcl_Obj *objPtr, int *ptr) ;
extern int Tcl_ExprDouble (Tcl_Interp *interp,
char *string, double *ptr) ;
extern int Tcl_ExprDoubleObj (Tcl_Interp *interp,
Tcl_Obj *objPtr, double *ptr) ;
extern int Tcl_ExprLong (Tcl_Interp *interp,
char *string, long *ptr) ;
extern int Tcl_ExprLongObj (Tcl_Interp *interp,
Tcl_Obj *objPtr, long *ptr) ;
extern int Tcl_ExprObj (Tcl_Interp *interp,
Tcl_Obj *objPtr, Tcl_Obj **resultPtrPtr) ;
extern int Tcl_ExprString (Tcl_Interp *interp,
char *string) ;
extern void Tcl_Finalize (void) ;
extern void Tcl_FindExecutable (char *argv0) ;
extern Tcl_HashEntry * Tcl_FirstHashEntry (
Tcl_HashTable *tablePtr,
Tcl_HashSearch *searchPtr) ;
extern int Tcl_Flush (Tcl_Channel chan) ;
extern void TclFreeObj (Tcl_Obj *objPtr) ;
extern void Tcl_FreeResult (Tcl_Interp *interp) ;
extern int Tcl_GetAlias (Tcl_Interp *interp,
char *slaveCmd, Tcl_Interp **targetInterpPtr,
char **targetCmdPtr, int *argcPtr,
char ***argvPtr) ;
extern int Tcl_GetAliasObj (Tcl_Interp *interp,
char *slaveCmd, Tcl_Interp **targetInterpPtr,
char **targetCmdPtr, int *objcPtr,
Tcl_Obj ***objv) ;
extern ClientData Tcl_GetAssocData (Tcl_Interp *interp,
char *name, Tcl_InterpDeleteProc **procPtr) ;
extern int Tcl_GetBoolean (Tcl_Interp *interp,
char *string, int *boolPtr) ;
extern int Tcl_GetBooleanFromObj (
Tcl_Interp *interp, Tcl_Obj *objPtr,
int *boolPtr) ;
extern Tcl_Channel Tcl_GetChannel (Tcl_Interp *interp,
char *chanName, int *modePtr) ;
extern int Tcl_GetChannelBufferSize (
Tcl_Channel chan) ;
extern int Tcl_GetChannelHandle (Tcl_Channel chan,
int direction, ClientData *handlePtr) ;
extern ClientData Tcl_GetChannelInstanceData (
Tcl_Channel chan) ;
extern int Tcl_GetChannelMode (Tcl_Channel chan) ;
extern char * Tcl_GetChannelName (Tcl_Channel chan) ;
extern int Tcl_GetChannelOption (Tcl_Interp *interp,
Tcl_Channel chan, char *optionName,
Tcl_DString *dsPtr) ;
extern Tcl_ChannelType * Tcl_GetChannelType (Tcl_Channel chan) ;
extern int Tcl_GetCommandInfo (Tcl_Interp *interp,
char *cmdName, Tcl_CmdInfo *infoPtr) ;
extern char * Tcl_GetCommandName (Tcl_Interp *interp,
Tcl_Command command) ;
extern char * Tcl_GetCwd (char *buf, int len) ;
extern int Tcl_GetDouble (Tcl_Interp *interp,
char *string, double *doublePtr) ;
extern int Tcl_GetDoubleFromObj (
Tcl_Interp *interp, Tcl_Obj *objPtr,
double *doublePtr) ;
extern int Tcl_GetErrno (void) ;
extern int Tcl_GetErrorLine (Tcl_Interp *interp) ;
extern char * Tcl_GetHostName (void) ;
extern int Tcl_GetIndexFromObj (Tcl_Interp *interp,
Tcl_Obj *objPtr, char **tablePtr, char *msg,
int flags, int *indexPtr) ;
extern int Tcl_GetInt (Tcl_Interp *interp,
char *string, int *intPtr) ;
extern int Tcl_GetInterpPath (Tcl_Interp *askInterp,
Tcl_Interp *slaveInterp) ;
extern int Tcl_GetIntFromObj (Tcl_Interp *interp,
Tcl_Obj *objPtr, int *intPtr) ;
extern int Tcl_GetLongFromObj (Tcl_Interp *interp,
Tcl_Obj *objPtr, long *longPtr) ;
extern Tcl_Interp * Tcl_GetMaster (Tcl_Interp *interp) ;
extern Tcl_Obj * Tcl_GetObjResult (Tcl_Interp *interp) ;
extern Tcl_ObjType * Tcl_GetObjType (char *typeName) ;
extern int Tcl_GetOpenFile (Tcl_Interp *interp,
char *string, int write, int checkUsage,
ClientData *filePtr) ;
extern Tcl_Command Tcl_GetOriginalCommand (
Tcl_Command command) ;
extern Tcl_PathType Tcl_GetPathType (char *path) ;
extern int Tcl_Gets (Tcl_Channel chan,
Tcl_DString *dsPtr) ;
extern int Tcl_GetsObj (Tcl_Channel chan,
Tcl_Obj *objPtr) ;
extern int Tcl_GetServiceMode (void) ;
extern Tcl_Interp * Tcl_GetSlave (Tcl_Interp *interp,
char *slaveName) ;
extern Tcl_Channel Tcl_GetStdChannel (int type) ;
extern char * Tcl_GetStringFromObj (Tcl_Obj *objPtr,
int *lengthPtr) ;
extern char * Tcl_GetStringResult (Tcl_Interp *interp) ;
extern char * Tcl_GetVar (Tcl_Interp *interp,
char *varName, int flags) ;
extern char * Tcl_GetVar2 (Tcl_Interp *interp,
char *part1, char *part2, int flags) ;
extern int Tcl_GlobalEval (Tcl_Interp *interp,
char *command) ;
extern int Tcl_GlobalEvalObj (Tcl_Interp *interp,
Tcl_Obj *objPtr) ;
extern char * Tcl_HashStats (Tcl_HashTable *tablePtr) ;
extern int Tcl_HideCommand (Tcl_Interp *interp,
char *cmdName, char *hiddenCmdToken) ;
extern int Tcl_Init (Tcl_Interp *interp) ;
extern void Tcl_InitHashTable (Tcl_HashTable *tablePtr,
int keyType) ;
extern void Tcl_InitMemory (Tcl_Interp *interp) ;
extern int Tcl_InputBlocked (Tcl_Channel chan) ;
extern int Tcl_InputBuffered (Tcl_Channel chan) ;
extern int Tcl_InterpDeleted (Tcl_Interp *interp) ;
extern int Tcl_IsSafe (Tcl_Interp *interp) ;
extern void Tcl_InvalidateStringRep (
Tcl_Obj *objPtr) ;
extern char * Tcl_JoinPath (int argc, char **argv,
Tcl_DString *resultPtr) ;
extern int Tcl_LinkVar (Tcl_Interp *interp,
char *varName, char *addr, int type) ;
extern int Tcl_ListObjAppendList (
Tcl_Interp *interp, Tcl_Obj *listPtr,
Tcl_Obj *elemListPtr) ;
extern int Tcl_ListObjAppendElement (
Tcl_Interp *interp, Tcl_Obj *listPtr,
Tcl_Obj *objPtr) ;
extern int Tcl_ListObjGetElements (
Tcl_Interp *interp, Tcl_Obj *listPtr,
int *objcPtr, Tcl_Obj ***objvPtr) ;
extern int Tcl_ListObjIndex (Tcl_Interp *interp,
Tcl_Obj *listPtr, int index,
Tcl_Obj **objPtrPtr) ;
extern int Tcl_ListObjLength (Tcl_Interp *interp,
Tcl_Obj *listPtr, int *intPtr) ;
extern int Tcl_ListObjReplace (Tcl_Interp *interp,
Tcl_Obj *listPtr, int first, int count,
int objc, Tcl_Obj * const objv[]) ;
extern void Tcl_Main (int argc, char **argv,
Tcl_AppInitProc *appInitProc) ;
extern Tcl_Channel Tcl_MakeFileChannel (ClientData handle,
int mode) ;
extern int Tcl_MakeSafe (Tcl_Interp *interp) ;
extern Tcl_Channel Tcl_MakeTcpClientChannel (
ClientData tcpSocket) ;
extern char * Tcl_Merge (int argc, char **argv) ;
extern Tcl_HashEntry * Tcl_NextHashEntry (
Tcl_HashSearch *searchPtr) ;
extern void Tcl_NotifyChannel (Tcl_Channel channel,
int mask) ;
extern Tcl_Obj * Tcl_ObjGetVar2 (Tcl_Interp *interp,
Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr,
int flags) ;
extern Tcl_Obj * Tcl_ObjSetVar2 (Tcl_Interp *interp,
Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr,
Tcl_Obj *newValuePtr, int flags) ;
extern Tcl_Channel Tcl_OpenCommandChannel (
Tcl_Interp *interp, int argc, char **argv,
int flags) ;
extern Tcl_Channel Tcl_OpenFileChannel (Tcl_Interp *interp,
char *fileName, char *modeString,
int permissions) ;
extern Tcl_Channel Tcl_OpenTcpClient (Tcl_Interp *interp,
int port, char *address, char *myaddr,
int myport, int async) ;
extern Tcl_Channel Tcl_OpenTcpServer (Tcl_Interp *interp,
int port, char *host,
Tcl_TcpAcceptProc *acceptProc,
ClientData callbackData) ;
extern char * Tcl_ParseVar (Tcl_Interp *interp,
char *string, char **termPtr) ;
extern int Tcl_PkgProvide (Tcl_Interp *interp,
char *name, char *version) ;
extern char * Tcl_PkgRequire (Tcl_Interp *interp,
char *name, char *version, int exact) ;
extern char * Tcl_PosixError (Tcl_Interp *interp) ;
extern void Tcl_Preserve (ClientData data) ;
extern void Tcl_PrintDouble (Tcl_Interp *interp,
double value, char *dst) ;
extern int Tcl_PutEnv (const char *string) ;
extern void Tcl_QueueEvent (Tcl_Event *evPtr,
Tcl_QueuePosition position) ;
extern int Tcl_Read (Tcl_Channel chan,
char *bufPtr, int toRead) ;
extern void Tcl_ReapDetachedProcs (void) ;
extern int Tcl_RecordAndEval (Tcl_Interp *interp,
char *cmd, int flags) ;
extern int Tcl_RecordAndEvalObj (Tcl_Interp *interp,
Tcl_Obj *cmdPtr, int flags) ;
extern Tcl_RegExp Tcl_RegExpCompile (Tcl_Interp *interp,
char *string) ;
extern int Tcl_RegExpExec (Tcl_Interp *interp,
Tcl_RegExp regexp, char *string, char *start) ;
extern int Tcl_RegExpMatch (Tcl_Interp *interp,
char *string, char *pattern) ;
extern void Tcl_RegExpRange (Tcl_RegExp regexp,
int index, char **startPtr, char **endPtr) ;
extern void Tcl_RegisterChannel (Tcl_Interp *interp,
Tcl_Channel chan) ;
extern void Tcl_RegisterObjType (
Tcl_ObjType *typePtr) ;
extern void Tcl_Release (ClientData clientData) ;
extern void Tcl_RestartIdleTimer (void) ;
extern void Tcl_ResetResult (Tcl_Interp *interp) ;
extern int Tcl_ScanCountedElement (const char *string,
int length, int *flagPtr) ;
extern int Tcl_ScanElement (const char *string,
int *flagPtr) ;
extern int Tcl_Seek (Tcl_Channel chan,
int offset, int mode) ;
extern int Tcl_ServiceAll (void) ;
extern int Tcl_ServiceEvent (int flags) ;
extern void Tcl_SetAssocData (Tcl_Interp *interp,
char *name, Tcl_InterpDeleteProc *proc,
ClientData clientData) ;
extern void Tcl_SetBooleanObj (Tcl_Obj *objPtr,
int boolValue) ;
extern void Tcl_SetChannelBufferSize (
Tcl_Channel chan, int sz) ;
extern int Tcl_SetChannelOption (
Tcl_Interp *interp, Tcl_Channel chan,
char *optionName, char *newValue) ;
extern int Tcl_SetCommandInfo (Tcl_Interp *interp,
char *cmdName, Tcl_CmdInfo *infoPtr) ;
extern void Tcl_SetDoubleObj (Tcl_Obj *objPtr,
double doubleValue) ;
extern void Tcl_SetErrno (int err) ;
extern void Tcl_SetErrorCode
( Tcl_Interp * arg1 , ...) ;
extern void Tcl_SetIntObj (Tcl_Obj *objPtr,
int intValue) ;
extern void Tcl_SetListObj (Tcl_Obj *objPtr,
int objc, Tcl_Obj * const objv[]) ;
extern void Tcl_SetLongObj (Tcl_Obj *objPtr,
long longValue) ;
extern void Tcl_SetMaxBlockTime (Tcl_Time *timePtr) ;
extern void Tcl_SetObjErrorCode (Tcl_Interp *interp,
Tcl_Obj *errorObjPtr) ;
extern void Tcl_SetObjLength (Tcl_Obj *objPtr,
int length) ;
extern void Tcl_SetObjResult (Tcl_Interp *interp,
Tcl_Obj *resultObjPtr) ;
extern void Tcl_SetPanicProc (void (*proc)
( char * format , ...) ) ;
extern int Tcl_SetRecursionLimit (Tcl_Interp *interp,
int depth) ;
extern void Tcl_SetResult (Tcl_Interp *interp,
char *string, Tcl_FreeProc *freeProc) ;
extern int Tcl_SetServiceMode (int mode) ;
extern void Tcl_SetStdChannel (Tcl_Channel channel,
int type) ;
extern void Tcl_SetStringObj (Tcl_Obj *objPtr,
char *bytes, int length) ;
extern void Tcl_SetTimer (Tcl_Time *timePtr) ;
extern char * Tcl_SetVar (Tcl_Interp *interp,
char *varName, char *newValue, int flags) ;
extern char * Tcl_SetVar2 (Tcl_Interp *interp,
char *part1, char *part2, char *newValue,
int flags) ;
extern char * Tcl_SignalId (int sig) ;
extern char * Tcl_SignalMsg (int sig) ;
extern void Tcl_Sleep (int ms) ;
extern void Tcl_SourceRCFile (Tcl_Interp *interp) ;
extern int Tcl_SplitList (Tcl_Interp *interp,
char *list, int *argcPtr, char ***argvPtr) ;
extern void Tcl_SplitPath (char *path,
int *argcPtr, char ***argvPtr) ;
extern void Tcl_StaticPackage (Tcl_Interp *interp,
char *pkgName, Tcl_PackageInitProc *initProc,
Tcl_PackageInitProc *safeInitProc) ;
extern int Tcl_StringMatch (char *string,
char *pattern) ;
extern int Tcl_Tell (Tcl_Channel chan) ;
extern int Tcl_TraceVar (Tcl_Interp *interp,
char *varName, int flags, Tcl_VarTraceProc *proc,
ClientData clientData) ;
extern int Tcl_TraceVar2 (Tcl_Interp *interp,
char *part1, char *part2, int flags,
Tcl_VarTraceProc *proc, ClientData clientData) ;
extern char * Tcl_TranslateFileName (Tcl_Interp *interp,
char *name, Tcl_DString *bufferPtr) ;
extern int Tcl_Ungets (Tcl_Channel chan, char *str,
int len, int atHead) ;
extern void Tcl_UnlinkVar (Tcl_Interp *interp,
char *varName) ;
extern int Tcl_UnregisterChannel (Tcl_Interp *interp,
Tcl_Channel chan) ;
extern int Tcl_UnsetVar (Tcl_Interp *interp,
char *varName, int flags) ;
extern int Tcl_UnsetVar2 (Tcl_Interp *interp,
char *part1, char *part2, int flags) ;
extern void Tcl_UntraceVar (Tcl_Interp *interp,
char *varName, int flags, Tcl_VarTraceProc *proc,
ClientData clientData) ;
extern void Tcl_UntraceVar2 (Tcl_Interp *interp,
char *part1, char *part2, int flags,
Tcl_VarTraceProc *proc, ClientData clientData) ;
extern void Tcl_UpdateLinkedVar (Tcl_Interp *interp,
char *varName) ;
extern int Tcl_UpVar (Tcl_Interp *interp,
char *frameName, char *varName,
char *localName, int flags) ;
extern int Tcl_UpVar2 (Tcl_Interp *interp,
char *frameName, char *part1, char *part2,
char *localName, int flags) ;
extern int Tcl_VarEval
( Tcl_Interp * interp , ...) ;
extern ClientData Tcl_VarTraceInfo (Tcl_Interp *interp,
char *varName, int flags,
Tcl_VarTraceProc *procPtr,
ClientData prevClientData) ;
extern ClientData Tcl_VarTraceInfo2 (Tcl_Interp *interp,
char *part1, char *part2, int flags,
Tcl_VarTraceProc *procPtr,
ClientData prevClientData) ;
extern int Tcl_WaitForEvent (Tcl_Time *timePtr) ;
extern Tcl_Pid Tcl_WaitPid (Tcl_Pid pid, int *statPtr,
int options) ;
extern int Tcl_Write (Tcl_Channel chan,
char *s, int slen) ;
extern void Tcl_WrongNumArgs (Tcl_Interp *interp,
int objc, Tcl_Obj * const objv[], char *message) ;
# 25 "./../generic/panic.c" 2
extern void panic (char *format, char *arg1,
char *arg2, char *arg3, char *arg4, char *arg5,
char *arg6, char *arg7, char *arg8) ;
void (*panicProc) ( char * format , ...) = 0 ;
void
Tcl_SetPanicProc(proc)
void (*proc) ( char * format , ...) ;
{
panicProc = proc;
}
void
panic(format, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8)
char *format;
char *arg1, *arg2, *arg3;
char *arg4, *arg5, *arg6, *arg7, *arg8;
{
if (panicProc != 0 ) {
(void) (*panicProc)(format, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8);
} else {
(void) fprintf((&_iob[2]) , format, arg1, arg2, arg3, arg4, arg5, arg6,
arg7, arg8);
(void) fprintf((&_iob[2]) , "\n");
(void) fflush((&_iob[2]) );
abort();
}
}
More information about the Gcc-bugs
mailing list