Subversion Repositories tendra.SVN

/*

    		 Crown Copyright (c) 1997

    This TenDRA(r) Computer Program is subject to Copyright

    owned by the United Kingdom Secretary of State for Defence

    acting through the Defence Evaluation and Research Agency

    (DERA).  It is made available to Recipients with a

    royalty-free licence for its use, reproduction, transfer

    to other parties and amendment for any purpose not excluding

    product development provided that any such use et cetera

    shall be deemed to be acceptance of the following conditions:-

        (1) Its Recipients shall ensure that this Notice is

        reproduced upon any copies or amended versions of it;

        (2) Any amended version of it shall be clearly marked to

        show both the nature of and the organisation responsible

        for the relevant amendment or amendments;

        (3) Its onward transfer from a recipient to another

        party shall be deemed to be that party's acceptance of

        these conditions;

        (4) DERA gives no warranty or assurance as to its

        quality or suitability for any purpose and DERA accepts

        no liability whatsoever in relation to any use to which

        it may be put.

*/

/* 	$Id: driver.c,v 1.2 1998/02/06 17:04:28 release Exp $	 */

#ifndef lint

static char vcid[] = "$Id: driver.c,v 1.2 1998/02/06 17:04:28 release Exp $";

#endif /* lint */

/*

  driver.c

  Provides the driver function for the TDF->DEC Alpha translator.

  JM  17/9/93

*/

/*

$Log: driver.c,v $

 * Revision 1.2  1998/02/06  17:04:28  release

 * Last minute pre-release polishing.

 *

 * Revision 1.1.1.1  1998/01/17  15:56:01  release

 * First version to be checked into rolling release.

 *

 * Revision 1.10  1996/03/25  14:56:18  john

 * introduced do_extern_adds

 *

 * Revision 1.9  1995/09/06  09:00:42  john

 * removed old command line argument parsing

 *

 * Revision 1.8  1995/06/28  10:23:36  john

 * Added RELEASE info to version information

 *

 * Revision 1.7  1995/06/13  14:00:22  john

 * Changed denormal constant handling

 *

 * Revision 1.6  1995/05/23  10:55:35  john

 * Removed unneeded header file.

 *

 * Revision 1.5  1995/05/16  10:46:51  john

 * Fixed error message

 *

 * Revision 1.4  1995/04/07  11:01:18  john

 * Added new command line arg processing.  Changed handling of IEEE denormals

 *

 * Revision 1.3  1995/03/29  14:06:52  john

 * Added inclusion of bool.h

 *

 * Revision 1.2  1995/03/29  10:30:10  john

 * Added option to control handling of denormalised numbers.

 *

 * Revision 1.1.1.1  1995/03/23  10:39:30  john

 * Entered into CVS

 *

 * Revision 1.21  1995/03/03  15:22:35  john

 * Added scheduling code

 *

 * Revision 1.20  1995/02/13  08:58:39  john

 * Turned foralls optimisation off, by default.

 *

 * Revision 1.19  1995/01/26  13:38:35  john

 * Added symboldecs.h to list of included files

 *

 * Revision 1.18  1995/01/18  11:44:33  john

 * Added : to version numbers

 *

 * Revision 1.17  1995/01/12  15:07:12  john

 * Minor change

 *

*/

#include "config.h"

#include "release.h"

#include "common_types.h"

#include "basicread.h"

#include "flags.h"

#include "main_reads.h"

#include "flpt.h"

#include "externs.h"

#include "installglob.h"

#include "machine.h"

#include "exp.h"

#include "dump_distr.h"

#include "file.h"

#include "fail.h"

#include "version.h"

#include "reader_v.h"

#include "construct_v.h"

#include "symbol.h"

#include "bool.h"

FILE *as_file;		/* assembly file */

FILE *ba_file;

#define SUCCESS 0

#define FAILURE 1

#ifndef compile_date

#ifdef __DATE__

#define compile_date __DATE__

#else

#error "compile_date is not set"

#define compile_date	"04/07/71"

#endif

#endif

int use_umulh_for_div;

bool do_scheduling = TRUE;

bool fail_with_denormal_constant = TRUE;

bool treat_denorm_specially = FALSE;

bool trap_all_fops = FALSE;

bool do_extern_adds = FALSE;

static int infoopt = FALSE;	/* set if the -V option has been invoked */

static bool produce_symbolic_assembler = FALSE;

void printinfo

    PROTO_Z ()

{

  (void)fprintf(stderr,"DRA TDF DEC Alpha/OSF1 translator %d.%d.%d:(TDF version %d.%d)\n",

		target_version,target_revision,target_patchlevel,

		MAJOR_VERSION,MINOR_VERSION);

  (void)fprintf(stderr,"reader %d.%d: ",reader_version,reader_revision);

  (void)fprintf(stderr,"construct %d.%d: \n",construct_version,

		construct_revision);

  (void)fprintf(stderr,"installer compilation %s\n",compile_date);

  (void)fprintf(stderr,"release: %s\n",RELEASE);

  return;

}

void out_rename

    PROTO_N ( ( oldid,newid ) )

    PROTO_T ( char *oldid X char *newid )

{

  UNUSED(oldid);

  UNUSED(newid);

  return;

}

int get_switch

    PROTO_N ( ( option,range_max ) )

    PROTO_T ( char option X int range_max )

{

  int val = option - '0';

  if (val>=0 && val <= range_max){

    return val;

  }	

  else {

    (void)fprintf(stderr,"alphatrans: error : illegal option value : 0 .. %d expected\n",range_max);

    exit(EXIT_FAILURE);

  }

  return 0;

}

/*

  Reads and processes a command line option.

*/

void process_flag

    PROTO_N ( ( option ) )

    PROTO_T ( char *option )

{

  switch(option[1]){

   case 'A':

    /* alloca switching */

    do_alloca = get_switch(option[2],1);

    break;

   case 'B':

    /* big floating point constants -> infinity */

    break;

   case 'C':

    do_loopconsts = get_switch(option[2],1);

    break;

   case 'D':

    failer("no PIC code available");

    exit(EXIT_FAILURE);

   case 'E':

    extra_checks = 0;

    break;

   case 'F':

    do_foralls = get_switch(option[2],1);

    break;

   case 'H':

    diagnose = 1;

    do_inlining = 0;

    do_loopconsts = 0;

    do_foralls = 0;

    do_dump_opt = 0;

    do_alloca = 0;

    break;

   case 'I':

    do_inlining=get_switch(option[2],1);

    break;

   case 'K':

    fprintf(stderr,"alphatrans: [-K..] -> only one kind of processor is supported\n");

    break;

   case 'M':

    strict_fl_div = get_switch(option[2],1);

    break;

   case 'P':

    do_profile = 1;

    break;

   case 'Q':

    exit(EXIT_SUCCESS);

    break;

   case 'R':

    round_after_flop = get_switch(option[2],1);

    break;

   case 'S':

    produce_symbolic_assembler = TRUE;

    break;

   case 'U':

    do_unroll = get_switch(option[2],1);

    break;

   case 'X':

    do_inlining=0;

    do_loopconsts=0;

#ifdef USE_OLD_UNROLLER

    dostrengths=0;

#endif

    do_special_fns=0;

    do_foralls=0;

    do_dump_opt=0;

    break;

   case 'V':

   case 'v':

   case 'i':

    printinfo();

    infoopt = TRUE;

    break;

   case 'W':

    writable_strings = get_switch(option[2],1);

    break;

   case 'Z':

    report_versions = 1;

    break;

   case 'u':

    use_umulh_for_div = get_switch(option[2],1);

    break;

   case 's':

    do_scheduling = get_switch(option[2],1);

    break;

   case 'd':	

    /* handle IEEE denormals */

     treat_denorm_specially = TRUE;

     switch(get_switch(option[2],2)){

     case 0: /* replace denormal const with 0.0 (don't do this) */

       alphawarn("Unsupported denormal switch");

       fail_with_denormal_constant = FALSE;

       break;

     case 1: /* error if denormal const is encountered */

       fail_with_denormal_constant = TRUE;

       break;

     case 2: 

     /* handle denormals properly (and slowly), by 

       stopping the interleaving of floating point 

       operations and using the OS exception handler */

       treat_denorm_specially = FALSE;

       trap_all_fops = TRUE;

       break;

     }

     break;

  default:

    alphafail(ILLEGAL_FLAG,option);

    break;

  }

}

bool BIGEND = (little_end == 0);

bool do_tlrecursion = 1;

int currentfile = -1;

int mainfile=0;

int majorno = 3;

int minorno = 11;

#define MIN_COMMAND_LINE_ARGS 4

int main

    PROTO_N ( ( argc,argv ) )

    PROTO_T ( int argc X char *argv[] )

{

  int i;

  int num_flags=0;

  char *aname;	/* name of file for assembly output */

  char *dname;	/* name of file to hold symbol table */

  char *baname;

  char *tname;

  do_inlining=0;

  redo_structfns=1;

  do_foralls=0;

  do_alloca=1;

#if DO_NEW_DIVISION 

  use_umulh_for_div = 1;

#else

  use_umulh_for_div = 0;

#endif

  /* read command line options */

  for(i=1;i<argc;++i){

    if(argv[i][0] == '-'){

      num_flags++;

      process_flag(argv[i]);

    }

  }

  if((argc-num_flags)<MIN_COMMAND_LINE_ARGS){

    if(infoopt){

      exit(EXIT_SUCCESS);

    }

    else{

      alphafail(TOO_FEW_PARAMETERS);

    }

  }

  /* the files are passed in the order .t .G .T .s */

  if(produce_symbolic_assembler){

      aname = argv[argc-1];

      as_file = open_file(aname,WRITE);

      argc--;

  }

  baname = argv[argc-2];

  dname = argv[argc-1];

  tname = argv[argc-3];

  ba_file = open_file(baname,WRITE);

  if(!initreader (tname)) alphafail(OPENING_T_FILE,tname);

  init_flpt();

#include "inits.h"

  top_def = (dec*)0;

  local_prefix="$$";

  name_prefix="";

#if DO_SCHEDULE

  if(do_scheduling){

    initialise_scheduler();

  }

#endif

  (void)d_capsule();

  output_symtab(dname);

#if DO_SCHEDULE

  if(do_scheduling){

/*    schduler_finished();*/

  }

#endif

  close_file(as_file);

  close_file(ba_file);

  return (SUCCESS);

}