src/basesuif/fixfortran/fixfortran.h

   1 /* file "fixfortran.h" of the fixfortran program for SUIF */
   2
   3 /*  Copyright (c) 1994 Stanford University
   4
   5     All rights reserved.
   6
   7     This software is provided under the terms described in
   8     the "suif_copyright.h" include file. */
   9
  10 #include <suif_copyright.h>
  11
  12 /*
  13  *  This file contains the public declarations for fixfortran.
  14  */
  15
  16 #ifndef FIXFORTRAN_H
  17 #define FIXFORTRAN_H
  18
  19 #include <suif1.h>
  20 #include <useful.h>
  21
  22 RCS_HEADER(fixfortran_h,
  23      "$Id: fixfortran.h,v 1.1.1.1 1998/06/16 15:17:23 brm Exp $")
  24
  25
  26 /*----------------------------------------------------------------------*
  27     Begin Global Variables
  28  *----------------------------------------------------------------------*/
  29
  30 extern const char *k_io_read;
  31 extern const char *k_io_write;
  32
  33 /*----------------------------------------------------------------------*
  34     End Global Variables
  35  *----------------------------------------------------------------------*/
  36 /*----------------------------------------------------------------------*
  37     Begin Type Declarations
  38  *----------------------------------------------------------------------*/
  39
  40 /*----------------------------------------------------------------------*
  41     End Type Declarations
  42  *----------------------------------------------------------------------*/
  43 /*----------------------------------------------------------------------*
  44     Begin Public Function Declarations
  45  *----------------------------------------------------------------------*/
  46 /*----------------------------------------------------------------------*
  47     in file "main.cc":
  48  *----------------------------------------------------------------------*/
  49
  50 extern in_array *add_const_aref(operand array_pointer, int constant);
  51
  52 /*----------------------------------------------------------------------*
  53     in file "inline.cc":
  54  *----------------------------------------------------------------------*/
  55
  56 extern void inline_intrinsics_on_instr(instruction *the_instr, void *);
  57
  58 /*----------------------------------------------------------------------*
  59     in file "mark_io.cc":
  60  *----------------------------------------------------------------------*/
  61
  62 extern void mark_io_on_list(tree_node_list *node_list);
  63
  64 /*----------------------------------------------------------------------*
  65     in file "temp_scope.cc":
  66  *----------------------------------------------------------------------*/
  67
  68 extern void limit_complex_temp_scopes(tree_node_list *node_list);
  69
  70 /*----------------------------------------------------------------------*
  71     in file "constants.cc":
  72  *----------------------------------------------------------------------*/
  73
  74 extern void mark_constants(file_symtab *the_symtab);
  75
  76 /*----------------------------------------------------------------------*
  77     End Public Function Declarations
  78  *----------------------------------------------------------------------*/
  79
  80 #endif