59 lines
1.5 KiB
C
59 lines
1.5 KiB
C
|
/*********************************************************************/
|
||
|
|
/* pC++/Sage++ Copyright (C) 1993 */
|
||
|
|
/* Indiana University University of Oregon University of Rennes */
|
||
|
|
/*********************************************************************/
|
||
|
|
|
||
|
|
#include "db.h"
|
||
|
|
|
||
|
|
extern char *infname;
|
||
|
|
extern char yytext[];
|
||
|
|
extern int yyleng;
|
||
|
|
extern int errline;
|
||
|
|
extern int needkwd;
|
||
|
|
extern int implkwd;
|
||
|
|
extern int optkwd;
|
||
|
|
extern int opt_kwd_;
|
||
|
|
extern int opt_in_out;
|
||
|
|
extern int as_op_kwd_;
|
||
|
|
extern int opt_kwd_hedr;
|
||
|
|
extern int opt_kwd_r;
|
||
|
|
extern int optcorner;
|
||
|
|
extern int optcall;
|
||
|
|
extern int opt_l_s;
|
||
|
|
extern int colon_flag;
|
||
|
|
extern int inioctl;
|
||
|
|
extern int shiftcase;
|
||
|
|
extern int nowarnflag;
|
||
|
|
extern int nwarn;
|
||
|
|
extern int errcnt;
|
||
|
|
extern int yylineno;
|
||
|
|
extern int mod_offset;
|
||
|
|
extern int num_files;
|
||
|
|
|
||
|
|
extern int parstate;
|
||
|
|
extern int procclass;
|
||
|
|
extern long procleng;
|
||
|
|
extern int nentry;
|
||
|
|
extern int blklevel;
|
||
|
|
extern int undeftype;
|
||
|
|
extern int dorange;
|
||
|
|
extern char intonly;
|
||
|
|
extern PTR_TYPE global_unknown;
|
||
|
|
extern PTR_FNAME head_file, cur_thread_file;
|
||
|
|
extern PTR_FILE fi;
|
||
|
|
|
||
|
|
char *copyn(), *copys();
|
||
|
|
|
||
|
|
#define INLOOP(x) ((LOOP_NODE <= x) && (x <= WHILE_NODE))
|
||
|
|
|
||
|
|
#define NEW_SCOPE(x) ((x->variant == FORALL_NODE)|| \
|
||
|
|
(x->variant == CDOALL_NODE)|| \
|
||
|
|
(x->variant == SDOALL_NODE)|| \
|
||
|
|
(x->variant == DOACROSS_NODE)|| \
|
||
|
|
(x->variant == CDOACROSS_NODE)|| \
|
||
|
|
(x->variant == FOR_NODE))
|
||
|
|
|
||
|
|
extern int is_openmp_stmt; /*OMP*/
|
||
|
|
extern int operator_slash; /*OMP*/
|
||
|
|
#define BIT_OPENMP 1024*128*128 /* OpenMP Fortran */
|