🚀 go-pugleaf

   ========================================================================
   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;

}