Path: utzoo!utgpu!jarvis.csri.toronto.edu!rutgers!tut.cis.ohio-state.edu!ZEUS.CRAY.COM!wdp From: wdp@ZEUS.CRAY.COM (Walter Poxon) Newsgroups: gnu.gcc.bug Subject: bug report Message-ID: <8910091448.AA04425@zeus.cray.com> Date: 9 Oct 89 14:48:43 GMT Sender: daemon@tut.cis.ohio-state.edu Distribution: gnu Organization: GNUs Not Usenet Lines: 1097 ======================================================================== We are using GCC 1.36 on Sun-3/50s under SunOS 3.5. Our compiler is configured thusly: aux-output.c: symbolic link to ./config/out-m68k.c config.h: symbolic link to ./config/xm-m68k.h md: symbolic link to ./config/m68k.md tm.h: symbolic link to ./config/tm-sun3os3nf.h While compiling the following source code, with no command-line parameters to gcc other than "-c", we get the error gcc: Program cc1 got fatal signal 6. I reported this bug last week and you sent me a patch to stor-layout.c (a new build_int()) which I have installed, yet the problem persists. The replacement of build_int() is the only mod we have made to 1.36 The preprocessed source file follows my .signature. It is output from an SQL preprocessor. -- Walter Poxon Domain: wdp@cray.com Cray Research Old style: wdp%cray.com@uc.msc.umn.edu 1440 Northland Dr. UUCP: uunet!cray!wdp Mendota Hts, MN 55120 USA Telephone: +1 612 681 3126 ======================================================================== # 1 "libts-ANSI.c" # 1 "/usr/include/stdio.h" 1 extern struct _iobuf { int _cnt; unsigned char *_ptr; unsigned char *_base; int _bufsiz; short _flag; char _file; } _iob[]; extern struct _iobuf *fopen(); extern struct _iobuf *fdopen(); extern struct _iobuf *freopen(); extern struct _iobuf *popen(); extern struct _iobuf *tmpfile(); extern long ftell(); extern char *fgets(); extern char *gets(); extern char *ctermid(); extern char *cuserid(); extern char *tempnam(); extern char *tmpnam(); # 3 "libts-ANSI.c" 2 # 1 "/usr/include/sys/errno.h" 1 # 4 "libts-ANSI.c" 2 # 1 "/usr/include/string.h" 1 extern char *strcpy(), *strncpy(), *strcat(), *strncat(), *strchr(), *strrchr(), *strpbrk(), *strtok(); extern int strcmp(), strncmp(), strlen(), strspn(), strcspn(); # 5 "libts-ANSI.c" 2 # 1 "libts.h" 1 typedef struct ts { char tes_name[21]; char tes_title[241]; char ent_code[10]; char sui_code[10]; char author[30]; char copilot[30]; char expert[30]; char des_code[20]; char lan_code[10]; char tes_case_total[10]; char tes_source[81]; char tes_binary[81]; char pro_first[30]; char pro_last[30]; char tes_archive[16]; char tes_cpu_type[11]; char tes_real_time[21]; } test_source_table_entry; # 6 "libts-ANSI.c" 2 extern int errno; struct sqlca { char sqlcaid[8]; long sqlabc; long sqlcode; struct { unsigned short sqlerrml; char sqlerrmc[70]; } sqlerrm; char sqlerrp[8]; long sqlerrd[6]; char sqlwarn[8]; char sqlext[8]; }; struct sqlca sqlca # 93 "libts-ANSI.c" ; static struct { unsigned int sq001N; unsigned char *sq001V[1]; unsigned int sq001L[1]; unsigned short sq001T[1]; unsigned short *sq001I[1]; } sq001 = {1}; static char sq002[52] = "SELECT TES_NAME FROM TEST_SOURCE WHERE TES_NAME=:b1" ; static struct { unsigned int sq003N; unsigned char *sq003V[1]; unsigned int sq003L[1]; unsigned short sq003T[1]; unsigned short *sq003I[1]; } sq003 = {1}; static struct { unsigned int sq004N; unsigned char *sq004V[1]; unsigned int sq004L[1]; unsigned short sq004T[1]; unsigned short *sq004I[1]; } sq004 = {1}; static struct { unsigned int sq005N; unsigned char *sq005V[1]; unsigned int sq005L[1]; unsigned short sq005T[1]; unsigned short *sq005I[1]; } sq005 = {1}; static char sq006[35] = "INSERT INTO TES_SOURCE VALUES(:b1)" ; static struct { unsigned int sq007N; unsigned char *sq007V[1]; unsigned int sq007L[1]; unsigned short sq007T[1]; unsigned short *sq007I[1]; } sq007 = {1}; static struct { unsigned int sq008N; unsigned char *sq008V[1]; unsigned int sq008L[1]; unsigned short sq008T[1]; unsigned short *sq008I[1]; } sq008 = {1}; static char sq009[320] = "UPDATE TEST_SOURCE SET TES_TITLE=:b1,ENT_CODE=:b2,SUI_CODE=:b3,EMP_ID_AUTHOR=:b4,EMP_ID_COPILOT=:b5,EMP_ID_EXPERT=:b6,DES_CODE=:b7,LAN_CODE=:b8,TES_CASE_TOTAL=:b9,TES_SOURCE=:b10,TES_BINARY=:b11,PRO_ID_FIRST=:b12:i12,PRO_ID_LAST=:b13:i13,TES_ARCHIVE=:b14 :i14,TES_CPU_TYPE=:b15:i15,TES_REAL_TIME=:b16 WHERE TES_NAME=:b17" ; static struct { unsigned int sq010N; unsigned char *sq010V[17]; unsigned int sq010L[17]; unsigned short sq010T[17]; unsigned short *sq010I[17]; } sq010 = {17}; static struct { unsigned int sq011N; unsigned char *sq011V[1]; unsigned int sq011L[1]; unsigned short sq011T[1]; unsigned short *sq011I[1]; } sq011 = {1}; static struct { unsigned int sq012N; unsigned char *sq012V[1]; unsigned int sq012L[1]; unsigned short sq012T[1]; unsigned short *sq012I[1]; } sq012 = {1}; static char sq013[684] = "SELECT TES_TITLE,ENT_CODE,SUI_CODE,AUTHOR.EMP_FIRST_NAME,AUTHOR.EMP_LAST_NAME,COPILOT.EMP_FIRST_NAME,COPILOT.EMP_LAST_NAME,EXPERT.EMP_FIRST_NAME,EXPERT.EMP_LAST_NAME,DES_CODE,LAN_CODE,TES_CASE_TOTAL,TES_SOURCE,TES_BINARY,LAST.PRO_NAME,LAST.PRO_RELEASE,LA ST.PRO_BUGFIX,FIRST.PRO_NAME,FIRST.PRO_RELEASE,FIRST.PRO_BUGFIX,TES_ARCHIVE,TES_CPU_TYPE,TES_REAL_TIME)FROM TEST_SOURCE,EMPLOYEE AUTHOR,EMPLOYEE COPILOT,EMPLOYEE EXPERT,PRODUCT FIRST,PRODUCT LAST WHERE TES_NAME=:b1 AND AUTHOR.EMP_ID=TEST_SOURCE.EMP_ID_AUT HOR AND COPILOT.EMP_ID=TEST_SOURCE.EMP_ID_COPILOT AND EXPERT.EMP_ID=TEST_SOURCE.EMP_ID_EXPER AND FIRST.PRO_ID=TEST_SOURCE.PRO_ID_FIRST AND LAST.PRO_ID=TEST_SOURCE.PRO_ID_LAST" # 191 "libts-ANSI.c" ; static struct { unsigned int sq014N; unsigned char *sq014V[1]; unsigned int sq014L[1]; unsigned short sq014T[1]; unsigned short *sq014I[1]; } sq014 = {1}; static struct { unsigned int sq015N; unsigned char *sq015V[23]; unsigned int sq015L[23]; unsigned short sq015T[23]; unsigned short *sq015I[23]; } sq015 = {23}; static int SQLTM[8]; static int sqlcun[4] = { 0,0,0,0}; static int sqlusi[1] = { 0}; static int SQLBT0 = 1; static int SQLBT1 = 2; static int SQLBT2 = 4; static int SQLBT3 = 9; static unsigned int sqlvsn = 10110; extern sqlab2(); extern sqlad2(); extern sqlbs2(); extern sqlcom(); extern sqlexe(); extern sqlfch(); extern sqlopn(); extern sqlosq(); extern sqlsca(); extern sqlscc(); extern sqlsch(); extern sqltfl(); extern sqlwnr(); typedef struct { unsigned short len; unsigned char *arr; } oracle_varchar; char * insert_into_test_source(struct ts *ts) { struct { unsigned short len; unsigned char arr[0]; } tes_name; struct { unsigned short len; unsigned char arr[0]; } duplicate; static char errmsg[80]; static char *value, *update_test_source(struct ts *), *o_error(void); sqlsca(&sqlca); if ( !sqlusi[0] ) { sq001.sq001T[0] = (unsigned short)10; SQLTM[0] = (int)4; sqlbs2(&sq001.sq001N, sq001.sq001V, sq001.sq001L, sq001.sq001T, sq001.sq001I, &SQLTM[0], &sqlusi[0]); } sqlsch(&sqlusi[0]); sqlscc(&sqlcun[0]); sqltfl(&SQLTM[0], &SQLBT0); if ( !SQLTM[0] ) { SQLTM[0] = (int)16384; sqlopn(&SQLTM[0], &SQLBT3, &sqlvsn); SQLTM[0] = (int)51; sqlosq(sq002, &SQLTM[0]); sq003.sq003V[0] = (unsigned char *)&tes_name.len; sq003.sq003L[0] = (unsigned int)strlen(tes_name); sq003.sq003T[0] = (unsigned short)9; sq003.sq003I[0] = (unsigned short *)0; sqlab2(&sq003.sq003N, sq003.sq003V, sq003.sq003L, sq003.sq003T, sq003.sq003I); sq004.sq004V[0] = (unsigned char *)&duplicate.len; sq004.sq004L[0] = (unsigned int)strlen(duplicate); sq004.sq004T[0] = (unsigned short)9; sq004.sq004I[0] = (unsigned short *)0; sqlad2(&sq004.sq004N, sq004.sq004V, sq004.sq004L, sq004.sq004T, sq004.sq004I); } SQLTM[0] = (int)1; sqlexe(&SQLTM[0]); SQLTM[0] = (int)1; SQLTM[1] = (int)0; sqlfch(&SQLTM[0], &SQLTM[1]); if (sqlca.sqlcode == 1403) goto okay; if (sqlca.sqlcode < 0) goto o_err; strcpy(errmsg, "insert_ts halted: a record for %s already exists in ut.test_source\n", ts->tes_name); return errmsg; okay: sqlsca(&sqlca); if ( !sqlusi[0] ) { sq005.sq005T[0] = (unsigned short)10; SQLTM[0] = (int)4; sqlbs2(&sq005.sq005N, sq005.sq005V, sq005.sq005L, sq005.sq005T, sq005.sq005I, &SQLTM[0], &sqlusi[0]); } sqlsch(&sqlusi[0]); sqlscc(&sqlcun[1]); sqltfl(&SQLTM[0], &SQLBT0); if ( !SQLTM[0] ) { SQLTM[0] = (int)16384; sqlopn(&SQLTM[0], &SQLBT3, &sqlvsn); SQLTM[0] = (int)34; sqlosq(sq006, &SQLTM[0]); sq007.sq007V[0] = (unsigned char *)&tes_name.len; sq007.sq007L[0] = (unsigned int)strlen(tes_name); sq007.sq007T[0] = (unsigned short)9; sq007.sq007I[0] = (unsigned short *)0; sqlab2(&sq007.sq007N, sq007.sq007V, sq007.sq007L, sq007.sq007T, sq007.sq007I); } SQLTM[0] = (int)1; sqlexe(&SQLTM[0]); if (sqlca.sqlcode < 0) goto o_err; if (value = update_test_source(ts)) return value; o_err: rollback(); return value = o_error(); } char * update_test_source(struct ts *ts) { struct { unsigned short len; unsigned char arr[21]; } tes_name; struct { unsigned short len; unsigned char arr[241]; } tes_title; struct { unsigned short len; unsigned char arr[10]; } ent_code; struct { unsigned short len; unsigned char arr[10]; } sui_code; struct { unsigned short len; unsigned char arr[10]; } emp_id_author; struct { unsigned short len; unsigned char arr[10]; } emp_id_copilot; struct { unsigned short len; unsigned char arr[10]; } emp_id_expert; struct { unsigned short len; unsigned char arr[20]; } des_code; struct { unsigned short len; unsigned char arr[10]; } lan_code; struct { unsigned short len; unsigned char arr[10]; } tes_case_total; struct { unsigned short len; unsigned char arr[81]; } tes_source; struct { unsigned short len; unsigned char arr[81]; } tes_binary; struct { unsigned short len; unsigned char arr[10]; } pro_id_first; struct { unsigned short len; unsigned char arr[10]; } pro_id_last; struct { unsigned short len; unsigned char arr[16]; } tes_archive; struct { unsigned short len; unsigned char arr[11]; } tes_cpu_type; struct { unsigned short len; unsigned char arr[21]; } tes_real_time; short pro_id_firsti; short pro_id_lasti; short tes_archivei; short tes_cpu_typei; static char *err, errmsg[80]; char *oracle_error(void), *loadOracleVar(); char *getempid(char *), *getproid(char *); char *check_sui_code(char *), *check_ent_code(char *); char *check_des_code(char *), *check_lan_code(char *); char *tmp; pro_id_firsti = pro_id_lasti = tes_archivei = tes_cpu_typei = 0; if (err=loadOracleVar("tes_name",&tes_name,ts->tes_name,(int *)0)) return err; if (err=loadOracleVar("tes_title",&tes_title,ts->tes_title,(int *)0)) return err; if (check_ent_code(ts->ent_code) == 0 ) { sprintf(errmsg, "update_ts halted: %s is an invalid entity code\n", ts->ent_code); return errmsg; } if (err=loadOracleVar("ent_code",&ent_code,ts->ent_code,(int *)0)) return err; if (check_sui_code(ts->sui_code) == 0 ) { sprintf(errmsg, "update_ts halted: %s is an invalid suite code\n", ts->sui_code); return errmsg; } if (err=loadOracleVar("sui_code",&sui_code,ts->sui_code,(int *)0)) return err; if ((tmp = getempid(ts->author)) == 0 ) { sprintf(errmsg,"update_ts halted: %s is not a valid author",ts->author); return errmsg; } else if (err=loadOracleVar("emp_id_author",&emp_id_author,tmp,(int *)0)) return err; if ((tmp = getempid(ts->copilot)) == 0 ) { sprintf(errmsg,"update_ts halted: %s is not a valid copilot",ts->copilot); return errmsg; } else if (err=loadOracleVar("emp_id_copilot",&emp_id_copilot,tmp,(int *)0)) return err; if ((tmp = getempid(ts->expert)) == 0 ) { sprintf(errmsg,"update_ts halted: %s is not a valid expert",ts->expert); return errmsg; } else if (err=loadOracleVar("emp_id_expert",&emp_id_expert,tmp,(int *)0)) return err; if (check_des_code(ts->des_code) == 0 ) { sprintf(errmsg,"update_ts halted: %s is not a valid des_code\n", ts->des_code); return errmsg; } if (err=loadOracleVar("des_code",&des_code,ts->des_code,(int *)0)) return err; if (check_lan_code(ts->lan_code) == 0 ) { sprintf(errmsg,"update_ts halted: %s is not a valid lan_code\n", ts->lan_code); return errmsg; } if (err=loadOracleVar("lan_code",&lan_code,ts->lan_code,(int *)0)) return err; if (err=loadOracleVar("tes_case_total",&tes_case_total,ts->tes_case_total, (int *)0)) return err; if (err=loadOracleVar("tes_source",&tes_source,ts->tes_source,(int *)0)) return err; if (err=loadOracleVar("tes_binary",&tes_binary,ts->tes_binary,(int *)0)) return err; if ((tmp = getproid(ts->pro_first)) == 0 ) { sprintf(errmsg,"update_ts halted: %s isn't a valid product",ts->pro_first); return errmsg; } else if (err=loadOracleVar("pro_id_first",&pro_id_first,tmp,&pro_id_firsti)) return err; if ((tmp = getproid(ts->pro_last)) == 0 ) { sprintf(errmsg,"update_ts halted: %s isn't a valid product",ts->pro_last); return errmsg; } else if (err=loadOracleVar("pro_id_last",&pro_id_last,tmp,&pro_id_lasti)) return err; if (err=loadOracleVar("tes_archive",&tes_archive,ts->tes_archive, &tes_archivei)) return err; if (err=loadOracleVar("tes_cpu_type",&tes_cpu_type,ts->tes_cpu_type, (int *)0)) return err; if (err=loadOracleVar("tes_real_time",&tes_real_time,ts->tes_real_time, (int *)0)) return err; sqlsca(&sqlca); if ( !sqlusi[0] ) { sq008.sq008T[0] = (unsigned short)10; SQLTM[0] = (int)4; sqlbs2(&sq008.sq008N, sq008.sq008V, sq008.sq008L, sq008.sq008T, sq008.sq008I, &SQLTM[0], &sqlusi[0]); } sqlsch(&sqlusi[0]); sqlscc(&sqlcun[2]); sqltfl(&SQLTM[0], &SQLBT0); if ( !SQLTM[0] ) { SQLTM[0] = (int)16384; sqlopn(&SQLTM[0], &SQLBT3, &sqlvsn); SQLTM[0] = (int)319; sqlosq(sq009, &SQLTM[0]); sq010.sq010V[0] = (unsigned char *)&tes_title.len; sq010.sq010L[0] = (unsigned int)243; sq010.sq010T[0] = (unsigned short)9; sq010.sq010I[0] = (unsigned short *)0; sq010.sq010V[1] = (unsigned char *)&ent_code.len; sq010.sq010L[1] = (unsigned int)12; sq010.sq010T[1] = (unsigned short)9; sq010.sq010I[1] = (unsigned short *)0; sq010.sq010V[2] = (unsigned char *)&sui_code.len; sq010.sq010L[2] = (unsigned int)12; sq010.sq010T[2] = (unsigned short)9; sq010.sq010I[2] = (unsigned short *)0; sq010.sq010V[3] = (unsigned char *)&emp_id_author.len; sq010.sq010L[3] = (unsigned int)12; sq010.sq010T[3] = (unsigned short)9; sq010.sq010I[3] = (unsigned short *)0; sq010.sq010V[4] = (unsigned char *)&emp_id_copilot.len; sq010.sq010L[4] = (unsigned int)12; sq010.sq010T[4] = (unsigned short)9; sq010.sq010I[4] = (unsigned short *)0; sq010.sq010V[5] = (unsigned char *)&emp_id_expert.len; sq010.sq010L[5] = (unsigned int)12; sq010.sq010T[5] = (unsigned short)9; sq010.sq010I[5] = (unsigned short *)0; sq010.sq010V[6] = (unsigned char *)&des_code.len; sq010.sq010L[6] = (unsigned int)22; sq010.sq010T[6] = (unsigned short)9; sq010.sq010I[6] = (unsigned short *)0; sq010.sq010V[7] = (unsigned char *)&lan_code.len; sq010.sq010L[7] = (unsigned int)12; sq010.sq010T[7] = (unsigned short)9; sq010.sq010I[7] = (unsigned short *)0; sq010.sq010V[8] = (unsigned char *)&tes_case_total.len; sq010.sq010L[8] = (unsigned int)12; sq010.sq010T[8] = (unsigned short)9; sq010.sq010I[8] = (unsigned short *)0; sq010.sq010V[9] = (unsigned char *)&tes_source.len; sq010.sq010L[9] = (unsigned int)83; sq010.sq010T[9] = (unsigned short)9; sq010.sq010I[9] = (unsigned short *)0; sq010.sq010V[10] = (unsigned char *)&tes_binary.len; sq010.sq010L[10] = (unsigned int)83; sq010.sq010T[10] = (unsigned short)9; sq010.sq010I[10] = (unsigned short *)0; sq010.sq010V[11] = (unsigned char *)&pro_id_first.len; sq010.sq010L[11] = (unsigned int)12; sq010.sq010T[11] = (unsigned short)9; sq010.sq010I[11] = (unsigned short *)&pro_id_firsti; sq010.sq010V[12] = (unsigned char *)&pro_id_last.len; sq010.sq010L[12] = (unsigned int)12; sq010.sq010T[12] = (unsigned short)9; sq010.sq010I[12] = (unsigned short *)&pro_id_lasti; sq010.sq010V[13] = (unsigned char *)&tes_archive.len; sq010.sq010L[13] = (unsigned int)18; sq010.sq010T[13] = (unsigned short)9; sq010.sq010I[13] = (unsigned short *)&tes_archivei; sq010.sq010V[14] = (unsigned char *)&tes_cpu_type.len; sq010.sq010L[14] = (unsigned int)13; sq010.sq010T[14] = (unsigned short)9; sq010.sq010I[14] = (unsigned short *)&tes_cpu_typei; sq010.sq010V[15] = (unsigned char *)&tes_real_time.len; sq010.sq010L[15] = (unsigned int)23; sq010.sq010T[15] = (unsigned short)9; sq010.sq010I[15] = (unsigned short *)0; sq010.sq010V[16] = (unsigned char *)&tes_name.len; sq010.sq010L[16] = (unsigned int)23; sq010.sq010T[16] = (unsigned short)9; sq010.sq010I[16] = (unsigned short *)0; sqlab2(&sq010.sq010N, sq010.sq010V, sq010.sq010L, sq010.sq010T, sq010.sq010I); } SQLTM[0] = (int)1; sqlexe(&SQLTM[0]); sqlwnr(); if (sqlca.sqlcode == 1403) goto o_err; if (sqlca.sqlcode < 0) goto o_err; sqlsca(&sqlca); if ( !sqlusi[0] ) { sq011.sq011T[0] = (unsigned short)10; SQLTM[0] = (int)4; sqlbs2(&sq011.sq011N, sq011.sq011V, sq011.sq011L, sq011.sq011T, sq011.sq011I, &SQLTM[0], &sqlusi[0]); } sqlsch(&sqlusi[0]); SQLTM[0] = (int)0; sqlcom(&SQLTM[0]); if (sqlca.sqlcode < 0) goto o_err; return (char *) 0; o_err: rollback(); return err = oracle_error(); } char * loadOracleVars(char *col_nam, oracle_varchar *v, char *s, int *i) { static char errmsg[80]; strcpy(v->arr,s); if ((v->len = strlen(v->arr)) == 0) if (!i) { sprintf(errmsg,"update_ts halted: null %s\n", col_nam); return errmsg; } else *i = -1; return (char *)0; } struct ts * select_from_test_source(char *tes_name) { struct { unsigned short len; unsigned char arr[21]; } tes_name; struct { unsigned short len; unsigned char arr[241]; } tes_title; struct { unsigned short len; unsigned char arr[10]; } ent_code; struct { unsigned short len; unsigned char arr[10]; } sui_code; struct { unsigned short len; unsigned char arr[20]; } author_first; struct { unsigned short len; unsigned char arr[20]; } author_last; struct { unsigned short len; unsigned char arr[20]; } copilot_first; struct { unsigned short len; unsigned char arr[20]; } copilot_last; struct { unsigned short len; unsigned char arr[20]; } expert_first; struct { unsigned short len; unsigned char arr[20]; } expert_last; struct { unsigned short len; unsigned char arr[20]; } des_code; struct { unsigned short len; unsigned char arr[10]; } lan_code; struct { unsigned short len; unsigned char arr[10]; } tes_case_total; struct { unsigned short len; unsigned char arr[81]; } tes_source; struct { unsigned short len; unsigned char arr[81]; } tes_binary; struct { unsigned short len; unsigned char arr[20]; } first_pro_name; struct { unsigned short len; unsigned char arr[10]; } first_pro_release; struct { unsigned short len; unsigned char arr[10]; } first_pro_bugfix; struct { unsigned short len; unsigned char arr[20]; } last_pro_name; struct { unsigned short len; unsigned char arr[10]; } last_pro_release; struct { unsigned short len; unsigned char arr[10]; } last_pro_bugfix; struct { unsigned short len; unsigned char arr[16]; } tes_archive; short tes_archivei; struct { unsigned short len; unsigned char arr[11]; } tes_cpu_type; short tes_cpu_typei; struct { unsigned short len; unsigned char arr[21]; } tes_real_time; short pro_id_firsti; short pro_id_lasti; static char *err, errmsg[80]; char *oracle_error(); sqlsca(&sqlca); if ( !sqlusi[0] ) { sq012.sq012T[0] = (unsigned short)10; SQLTM[0] = (int)4; sqlbs2(&sq012.sq012N, sq012.sq012V, sq012.sq012L, sq012.sq012T, sq012.sq012I, &SQLTM[0], &sqlusi[0]); } sqlsch(&sqlusi[0]); sqlscc(&sqlcun[3]); sqltfl(&SQLTM[0], &SQLBT0); if ( !SQLTM[0] ) { SQLTM[0] = (int)16384; sqlopn(&SQLTM[0], &SQLBT3, &sqlvsn); SQLTM[0] = (int)683; sqlosq(sq013, &SQLTM[0]); sq014.sq014V[0] = (unsigned char *)&tes_name.len; sq014.sq014L[0] = (unsigned int)23; sq014.sq014T[0] = (unsigned short)9; sq014.sq014I[0] = (unsigned short *)0; sqlab2(&sq014.sq014N, sq014.sq014V, sq014.sq014L, sq014.sq014T, sq014.sq014I); sq015.sq015V[0] = (unsigned char *)&tes_title.len; sq015.sq015L[0] = (unsigned int)243; sq015.sq015T[0] = (unsigned short)9; sq015.sq015I[0] = (unsigned short *)0; sq015.sq015V[1] = (unsigned char *)&ent_code.len; sq015.sq015L[1] = (unsigned int)12; sq015.sq015T[1] = (unsigned short)9; sq015.sq015I[1] = (unsigned short *)0; sq015.sq015V[2] = (unsigned char *)&sui_code.len; sq015.sq015L[2] = (unsigned int)12; sq015.sq015T[2] = (unsigned short)9; sq015.sq015I[2] = (unsigned short *)0; sq015.sq015V[3] = (unsigned char *)&author_first.len; sq015.sq015L[3] = (unsigned int)22; sq015.sq015T[3] = (unsigned short)9; sq015.sq015I[3] = (unsigned short *)0; sq015.sq015V[4] = (unsigned char *)&author_last.len; sq015.sq015L[4] = (unsigned int)22; sq015.sq015T[4] = (unsigned short)9; sq015.sq015I[4] = (unsigned short *)0; sq015.sq015V[5] = (unsigned char *)&copilot_first.len; sq015.sq015L[5] = (unsigned int)22; sq015.sq015T[5] = (unsigned short)9; sq015.sq015I[5] = (unsigned short *)0; sq015.sq015V[6] = (unsigned char *)&copilot_last.len; sq015.sq015L[6] = (unsigned int)22; sq015.sq015T[6] = (unsigned short)9; sq015.sq015I[6] = (unsigned short *)0; sq015.sq015V[7] = (unsigned char *)&expert_first.len; sq015.sq015L[7] = (unsigned int)22; sq015.sq015T[7] = (unsigned short)9; sq015.sq015I[7] = (unsigned short *)0; sq015.sq015V[8] = (unsigned char *)&expert_last.len; sq015.sq015L[8] = (unsigned int)22; sq015.sq015T[8] = (unsigned short)9; sq015.sq015I[8] = (unsigned short *)0; sq015.sq015V[9] = (unsigned char *)&des_code.len; sq015.sq015L[9] = (unsigned int)22; sq015.sq015T[9] = (unsigned short)9; sq015.sq015I[9] = (unsigned short *)0; sq015.sq015V[10] = (unsigned char *)&lan_code.len; sq015.sq015L[10] = (unsigned int)12; sq015.sq015T[10] = (unsigned short)9; sq015.sq015I[10] = (unsigned short *)0; sq015.sq015V[11] = (unsigned char *)&tes_case_total.len; sq015.sq015L[11] = (unsigned int)12; sq015.sq015T[11] = (unsigned short)9; sq015.sq015I[11] = (unsigned short *)0; sq015.sq015V[12] = (unsigned char *)&tes_source.len; sq015.sq015L[12] = (unsigned int)83; sq015.sq015T[12] = (unsigned short)9; sq015.sq015I[12] = (unsigned short *)0; sq015.sq015V[13] = (unsigned char *)&tes_binary.len; sq015.sq015L[13] = (unsigned int)83; sq015.sq015T[13] = (unsigned short)9; sq015.sq015I[13] = (unsigned short *)0; sq015.sq015V[14] = (unsigned char *)&first_pro_name.len; sq015.sq015L[14] = (unsigned int)22; sq015.sq015T[14] = (unsigned short)9; sq015.sq015I[14] = (unsigned short *)0; sq015.sq015V[15] = (unsigned char *)&first_pro_release.len; sq015.sq015L[15] = (unsigned int)12; sq015.sq015T[15] = (unsigned short)9; sq015.sq015I[15] = (unsigned short *)0; sq015.sq015V[16] = (unsigned char *)&first_pro_bugfix.len; sq015.sq015L[16] = (unsigned int)12; sq015.sq015T[16] = (unsigned short)9; sq015.sq015I[16] = (unsigned short *)0; sq015.sq015V[17] = (unsigned char *)&last_pro_name.len; sq015.sq015L[17] = (unsigned int)22; sq015.sq015T[17] = (unsigned short)9; sq015.sq015I[17] = (unsigned short *)0; sq015.sq015V[18] = (unsigned char *)&last_pro_release.len; sq015.sq015L[18] = (unsigned int)12; sq015.sq015T[18] = (unsigned short)9; sq015.sq015I[18] = (unsigned short *)0; sq015.sq015V[19] = (unsigned char *)&last_pro_bugfix.len; sq015.sq015L[19] = (unsigned int)12; sq015.sq015T[19] = (unsigned short)9; sq015.sq015I[19] = (unsigned short *)0; sq015.sq015V[20] = (unsigned char *)&tes_archive.len; sq015.sq015L[20] = (unsigned int)18; sq015.sq015T[20] = (unsigned short)9; sq015.sq015I[20] = (unsigned short *)0; sq015.sq015V[21] = (unsigned char *)&tes_cpu_type.len; sq015.sq015L[21] = (unsigned int)13; sq015.sq015T[21] = (unsigned short)9; sq015.sq015I[21] = (unsigned short *)0; sq015.sq015V[22] = (unsigned char *)&tes_real_time.len; sq015.sq015L[22] = (unsigned int)23; sq015.sq015T[22] = (unsigned short)9; sq015.sq015I[22] = (unsigned short *)0; sqlad2(&sq015.sq015N, sq015.sq015V, sq015.sq015L, sq015.sq015T, sq015.sq015I); } SQLTM[0] = (int)1; sqlexe(&SQLTM[0]); SQLTM[0] = (int)1; SQLTM[1] = (int)0; sqlfch(&SQLTM[0], &SQLTM[1]); if (sqlca.sqlcode == 1403) goto no_ts; if (sqlca.sqlcode < 0) goto o_error; }