Alexander_KS/SAPFOR
4
2
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

added new directives

Browse Source
This commit is contained in:
ALEXks
2024-12-05 12:50:36 +03:00
parent 77c46121a2
commit 21acea498e
18 changed files with 8906 additions and 9031 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
dvm/fdvm/trunk/Sage/h/tag
View File

@@ -574,6 +574,7 @@
#define ACC_CHECKSECTION_DIR 911 /* ACC Fortran */ #define ACC_CHECKSECTION_DIR 911 /* ACC Fortran */
#define ACC_END_CHECKSECTION_DIR 912 /* ACC Fortran */ #define ACC_END_CHECKSECTION_DIR 912 /* ACC Fortran */
#define ACC_ROUTINE_DIR 913 /* ACC Fortran */ #define ACC_ROUTINE_DIR 913 /* ACC Fortran */
#define ACC_DECLARE_DIR 914 /* ACC Fortran */
#define ACC_TIE_OP 930 /* ACC Fortran */ #define ACC_TIE_OP 930 /* ACC Fortran */
#define ACC_INLOCAL_OP 931 /* ACC Fortran */ #define ACC_INLOCAL_OP 931 /* ACC Fortran */

1
dvm/fdvm/trunk/Sage/h/tag.h
View File

@@ -576,6 +576,7 @@ script using "tag". Run make tag.h to regenerate this file */
tag [ ACC_CHECKSECTION_DIR ] = "ACC_CHECKSECTION_DIR"; tag [ ACC_CHECKSECTION_DIR ] = "ACC_CHECKSECTION_DIR";
tag [ ACC_END_CHECKSECTION_DIR ] = "ACC_END_CHECKSECTION_DIR"; tag [ ACC_END_CHECKSECTION_DIR ] = "ACC_END_CHECKSECTION_DIR";
tag [ ACC_ROUTINE_DIR ] = "ACC_ROUTINE_DIR"; tag [ ACC_ROUTINE_DIR ] = "ACC_ROUTINE_DIR";
tag [ ACC_DECLARE_DIR ] = "ACC_DECLARE_DIR";
tag [ ACC_TIE_OP ] = "ACC_TIE_OP"; tag [ ACC_TIE_OP ] = "ACC_TIE_OP";
tag [ ACC_INLOCAL_OP ] = "ACC_INLOCAL_OP"; tag [ ACC_INLOCAL_OP ] = "ACC_INLOCAL_OP";

1
dvm/fdvm/trunk/Sage/lib/include/bif_node.def
View File

@@ -443,6 +443,7 @@ DEFNODECODE(DUMMY_REF, "nodetext",'r',0,LLNODE, '_','_','s','_','_')
DEFNODECODE(ACC_CALL_STMT,"nodetext",'s',2,BIFNODE, '_','_','_','_','_') DEFNODECODE(ACC_CALL_STMT,"nodetext",'s',2,BIFNODE, '_','_','_','_','_')
DEFNODECODE(DVM_NEW_VALUE_DIR,"nodetext",'s',1,BIFNODE, '_','_','_','_','_') DEFNODECODE(DVM_NEW_VALUE_DIR,"nodetext",'s',1,BIFNODE, '_','_','_','_','_')
DEFNODECODE(ACC_ROUTINE_DIR,"nodetext",'s',1,BIFNODE, '_','_','_','_','_') DEFNODECODE(ACC_ROUTINE_DIR,"nodetext",'s',1,BIFNODE, '_','_','_','_','_')
DEFNODECODE(ACC_DECLARE_DIR,"nodetext",'s',1,BIFNODE, '_','_','_','_','_')
/* SAPFOR */ /* SAPFOR */
DEFNODECODE(SPF_NOINLINE_OP, "nodetext",'e',0,LLNODE, '_','_','_','_','_') DEFNODECODE(SPF_NOINLINE_OP, "nodetext",'e',0,LLNODE, '_','_','_','_','_')

4
dvm/fdvm/trunk/Sage/lib/include/unparseDVM.def
View File

@@ -270,7 +270,9 @@ DEFNODECODE(ACC_CHECKSECTION_DIR, "%CMNT!DVM$%PUTTABCOMTHOSTSECTION%NL",
's',0,BIFNODE) 's',0,BIFNODE)
DEFNODECODE(ACC_END_CHECKSECTION_DIR,"%CMNT!DVM$%PUTTABCOMTEND HOSTSECTION%NL", DEFNODECODE(ACC_END_CHECKSECTION_DIR,"%CMNT!DVM$%PUTTABCOMTEND HOSTSECTION%NL",
's',0,BIFNODE) 's',0,BIFNODE)
DEFNODECODE(ACC_ROUTINE_DIR, "%CMNT!DVM$%PUTTABCOMTROUTINE %LL1%NL", DEFNODECODE(ACC_ROUTINE_DIR, "%CMNT!DVM$%PUTTABCOMTROUTINE%IF(%LL1!=%NULL), %LL1%NL",
's',1,BIFNODE)
DEFNODECODE(ACC_DECLARE_DIR, "%CMNT!DVM$%PUTTABCOMTDECLARE %LL1%NL",
's',1,BIFNODE) 's',1,BIFNODE)
DEFNODECODE(OMP_NOWAIT, "NOWAIT", DEFNODECODE(OMP_NOWAIT, "NOWAIT",

1
dvm/fdvm/trunk/include/dvm_tag.h
View File

@@ -107,6 +107,7 @@
#define ACC_CHECKSECTION_DIR 911 /* ACC Fortran */ #define ACC_CHECKSECTION_DIR 911 /* ACC Fortran */
#define ACC_END_CHECKSECTION_DIR 912 /* ACC Fortran */ #define ACC_END_CHECKSECTION_DIR 912 /* ACC Fortran */
#define ACC_ROUTINE_DIR 913 /* ACC Fortran */ #define ACC_ROUTINE_DIR 913 /* ACC Fortran */
#define ACC_DECLARE_DIR 914 /* ACC Fortran */
#define ACC_TIE_OP 930 /* ACC Fortran */ #define ACC_TIE_OP 930 /* ACC Fortran */
#define ACC_INLOCAL_OP 931 /* ACC Fortran */ #define ACC_INLOCAL_OP 931 /* ACC Fortran */

48
dvm/fdvm/trunk/parser/facc.gram
View File

@@ -1,10 +1,12 @@
acc_specification: acc_declare
| acc_routine
;
acc_directive: acc_region acc_directive: acc_region
| acc_end_region | acc_end_region
| acc_checksection | acc_checksection
| acc_end_checksection | acc_end_checksection
| acc_get_actual | acc_get_actual
| acc_actual | acc_actual
| acc_routine
; ;
acc_region: ACC_REGION end_spec opt_clause acc_region: ACC_REGION end_spec opt_clause
@@ -98,14 +100,46 @@ acc_end_region: ACC_END_REGION
acc_end_checksection: ACC_END_CHECKSECTION acc_end_checksection: ACC_END_CHECKSECTION
{ $$ = get_bfnd(fi,ACC_END_CHECKSECTION_DIR,SMNULL,LLNULL,LLNULL,LLNULL);} { $$ = get_bfnd(fi,ACC_END_CHECKSECTION_DIR,SMNULL,LLNULL,LLNULL,LLNULL);}
; ;
acc_declare: ACC_DECLARE in_dcl opt_double_colon acc_declare_list
{
$$ = get_bfnd(fi,ACC_DECLARE_DIR, SMNULL, $4, LLNULL, LLNULL);
}
;
acc_declare_list: declare_var
{ $$ = make_llnd(fi,EXPR_LIST, $1, LLNULL, SMNULL); }
| acc_declare_list COMMA declare_var
{ $$ = set_ll_list($1, $3, EXPR_LIST); }
;
declare_var: name
{
PTR_SYMB s;
s = make_scalar($1,TYNULL,LOCAL);
if((s->attr & PROCESSORS_BIT) ||(s->attr & TASK_BIT) || (s->attr & TEMPLATE_BIT) || (s->attr & ALIGN_BIT) || (s->attr & DISTRIBUTE_BIT) || (s->attr & DYNAMIC_BIT) || (s->attr & HEAP_BIT)|| (s->attr & DVM_POINTER_BIT) || (s->attr & INHERIT_BIT) ||(s->attr & SHADOW_BIT))
errstr("Inconsistent declaration of identifier %s", s->ident, 16);
$$ = make_llnd(fi,VAR_REF, LLNULL, LLNULL, s);
}
;
acc_routine: ACC_ROUTINE in_dcl opt_targets_clause acc_routine: ACC_ROUTINE in_dcl opt_routine_clauses
{ $$ = get_bfnd(fi,ACC_ROUTINE_DIR,SMNULL,$3,LLNULL,LLNULL);} { $$ = get_bfnd(fi,ACC_ROUTINE_DIR,SMNULL,$3,LLNULL,LLNULL);}
; ;
opt_targets_clause: needkeyword keywordoff opt_routine_clauses:
{ $$ = LLNULL; } { $$ = LLNULL;}
| needkeyword targets_clause | routine_clause_list
{ $$ = $2;} { $$ = $1;}
; ;
routine_clause_list: routine_clause
{ $$ = set_ll_list($1,LLNULL,EXPR_LIST); }
| routine_clause_list routine_clause
{ $$ = set_ll_list($1,$2,EXPR_LIST); }
;
routine_clause: COMMA needkeyword PRIVATE LEFTPAR acc_declare_list RIGHTPAR
{ $$ = make_llnd(fi,ACC_PRIVATE_OP,$5,LLNULL,SMNULL);}
| COMMA needkeyword targets_clause
{ $$ = $3;}
;

5
dvm/fdvm/trunk/parser/ftn.gram
View File

@@ -269,10 +269,12 @@ static int in_vec = NO; /* set if processing array constructor */
%type <ll_node> paralleldo_clause_list paralleldo_clause %type <ll_node> paralleldo_clause_list paralleldo_clause
/* FORTRAN ACC */ /* FORTRAN ACC */
%type <bf_node> acc_specification acc_declare
%type <bf_node> acc_directive acc_region acc_end_region acc_checksection acc_end_checksection %type <bf_node> acc_directive acc_region acc_end_region acc_checksection acc_end_checksection
%type <bf_node> acc_get_actual acc_actual acc_routine %type <bf_node> acc_get_actual acc_actual acc_routine
%type <ll_node> opt_clause acc_clause_list acc_clause data_clause async_clause targets_clause %type <ll_node> opt_clause acc_clause_list acc_clause data_clause async_clause targets_clause
%type <ll_node> acc_var_list computer_list computer opt_targets_clause %type <ll_node> acc_var_list computer_list computer opt_routine_clauses routine_clause_list routine_clause
%type <ll_node> acc_declare_list declare_var
/* new clauses for PARALLEL directive */ /* new clauses for PARALLEL directive */
%type <ll_node> private_spec cuda_block_spec sizelist %type <ll_node> private_spec cuda_block_spec sizelist
@@ -852,6 +854,7 @@ spec: type_dcl
| common | common
| dimension | dimension
| dvm_specification /* FDVM */ | dvm_specification /* FDVM */
| acc_specification /* FDVM */
| external | external
| intrinsic | intrinsic
| equivalence | equivalence

16535
dvm/fdvm/trunk/parser/gram1.tab.c
View File

File diff suppressed because it is too large Load Diff

1135
dvm/fdvm/trunk/parser/gram1.tab.h
View File

File diff suppressed because it is too large Load Diff

124
dvm/fdvm/trunk/parser/gram1.y
View File

@@ -318,41 +318,42 @@
%token ACC_CUDA_BLOCK 318 %token ACC_CUDA_BLOCK 318
%token ACC_ROUTINE 319 %token ACC_ROUTINE 319
%token ACC_TIE 320 %token ACC_TIE 320
%token BY 321 %token ACC_DECLARE 321
%token IO_MODE 322 %token BY 322
%token CP_CREATE 323 %token IO_MODE 323
%token CP_LOAD 324 %token CP_CREATE 324
%token CP_SAVE 325 %token CP_LOAD 325
%token CP_WAIT 326 %token CP_SAVE 326
%token FILES 327 %token CP_WAIT 327
%token VARLIST 328 %token FILES 328
%token STATUS 329 %token VARLIST 329
%token EXITINTERVAL 330 %token STATUS 330
%token TEMPLATE_CREATE 331 %token EXITINTERVAL 331
%token TEMPLATE_DELETE 332 %token TEMPLATE_CREATE 332
%token SPF_ANALYSIS 333 %token TEMPLATE_DELETE 333
%token SPF_PARALLEL 334 %token SPF_ANALYSIS 334
%token SPF_TRANSFORM 335 %token SPF_PARALLEL 335
%token SPF_NOINLINE 336 %token SPF_TRANSFORM 336
%token SPF_PARALLEL_REG 337 %token SPF_NOINLINE 337
%token SPF_END_PARALLEL_REG 338 %token SPF_PARALLEL_REG 338
%token SPF_EXPAND 339 %token SPF_END_PARALLEL_REG 339
%token SPF_FISSION 340 %token SPF_EXPAND 340
%token SPF_SHRINK 341 %token SPF_FISSION 341
%token SPF_CHECKPOINT 342 %token SPF_SHRINK 342
%token SPF_EXCEPT 343 %token SPF_CHECKPOINT 343
%token SPF_FILES_COUNT 344 %token SPF_EXCEPT 344
%token SPF_INTERVAL 345 %token SPF_FILES_COUNT 345
%token SPF_TIME 346 %token SPF_INTERVAL 346
%token SPF_ITER 347 %token SPF_TIME 347
%token SPF_FLEXIBLE 348 %token SPF_ITER 348
%token SPF_APPLY_REGION 349 %token SPF_FLEXIBLE 349
%token SPF_APPLY_FRAGMENT 350 %token SPF_APPLY_REGION 350
%token SPF_CODE_COVERAGE 351 %token SPF_APPLY_FRAGMENT 351
%token SPF_UNROLL 352 %token SPF_CODE_COVERAGE 352
%token SPF_MERGE 353 %token SPF_UNROLL 353
%token SPF_COVER 354 %token SPF_MERGE 354
%token SPF_PROCESS_PRIVATE 355 %token SPF_COVER 355
%token SPF_PROCESS_PRIVATE 356
%{ %{
#include <string.h> #include <string.h>
@@ -624,10 +625,12 @@ static int in_vec = NO; /* set if processing array constructor */
%type <ll_node> paralleldo_clause_list paralleldo_clause %type <ll_node> paralleldo_clause_list paralleldo_clause
/* FORTRAN ACC */ /* FORTRAN ACC */
%type <bf_node> acc_specification acc_declare
%type <bf_node> acc_directive acc_region acc_end_region acc_checksection acc_end_checksection %type <bf_node> acc_directive acc_region acc_end_region acc_checksection acc_end_checksection
%type <bf_node> acc_get_actual acc_actual acc_routine %type <bf_node> acc_get_actual acc_actual acc_routine
%type <ll_node> opt_clause acc_clause_list acc_clause data_clause async_clause targets_clause %type <ll_node> opt_clause acc_clause_list acc_clause data_clause async_clause targets_clause
%type <ll_node> acc_var_list computer_list computer opt_targets_clause %type <ll_node> acc_var_list computer_list computer opt_routine_clauses routine_clause_list routine_clause
%type <ll_node> acc_declare_list declare_var
/* new clauses for PARALLEL directive */ /* new clauses for PARALLEL directive */
%type <ll_node> private_spec cuda_block_spec sizelist %type <ll_node> private_spec cuda_block_spec sizelist
@@ -1207,6 +1210,7 @@ spec: type_dcl
| common | common
| dimension | dimension
| dvm_specification /* FDVM */ | dvm_specification /* FDVM */
| acc_specification /* FDVM */
| external | external
| intrinsic | intrinsic
| equivalence | equivalence
@@ -7845,13 +7849,15 @@ op_slash_0 : {
operator_slash = 0; operator_slash = 0;
}; };
acc_specification: acc_declare
| acc_routine
;
acc_directive: acc_region acc_directive: acc_region
| acc_end_region | acc_end_region
| acc_checksection | acc_checksection
| acc_end_checksection | acc_end_checksection
| acc_get_actual | acc_get_actual
| acc_actual | acc_actual
| acc_routine
; ;
acc_region: ACC_REGION end_spec opt_clause acc_region: ACC_REGION end_spec opt_clause
@@ -7945,17 +7951,49 @@ acc_end_region: ACC_END_REGION
acc_end_checksection: ACC_END_CHECKSECTION acc_end_checksection: ACC_END_CHECKSECTION
{ $$ = get_bfnd(fi,ACC_END_CHECKSECTION_DIR,SMNULL,LLNULL,LLNULL,LLNULL);} { $$ = get_bfnd(fi,ACC_END_CHECKSECTION_DIR,SMNULL,LLNULL,LLNULL,LLNULL);}
; ;
acc_declare: ACC_DECLARE in_dcl opt_double_colon acc_declare_list
{
$$ = get_bfnd(fi,ACC_DECLARE_DIR, SMNULL, $4, LLNULL, LLNULL);
}
;
acc_declare_list: declare_var
{ $$ = make_llnd(fi,EXPR_LIST, $1, LLNULL, SMNULL); }
| acc_declare_list COMMA declare_var
{ $$ = set_ll_list($1, $3, EXPR_LIST); }
;
declare_var: name
{
PTR_SYMB s;
s = make_scalar($1,TYNULL,LOCAL);
if((s->attr & PROCESSORS_BIT) ||(s->attr & TASK_BIT) || (s->attr & TEMPLATE_BIT) || (s->attr & ALIGN_BIT) || (s->attr & DISTRIBUTE_BIT) || (s->attr & DYNAMIC_BIT) || (s->attr & HEAP_BIT)|| (s->attr & DVM_POINTER_BIT) || (s->attr & INHERIT_BIT) ||(s->attr & SHADOW_BIT))
errstr("Inconsistent declaration of identifier %s", s->ident, 16);
$$ = make_llnd(fi,VAR_REF, LLNULL, LLNULL, s);
}
;
acc_routine: ACC_ROUTINE in_dcl opt_targets_clause acc_routine: ACC_ROUTINE in_dcl opt_routine_clauses
{ $$ = get_bfnd(fi,ACC_ROUTINE_DIR,SMNULL,$3,LLNULL,LLNULL);} { $$ = get_bfnd(fi,ACC_ROUTINE_DIR,SMNULL,$3,LLNULL,LLNULL);}
; ;
opt_targets_clause: needkeyword keywordoff opt_routine_clauses:
{ $$ = LLNULL; } { $$ = LLNULL;}
| needkeyword targets_clause | routine_clause_list
{ $$ = $2;} { $$ = $1;}
; ;
routine_clause_list: routine_clause
{ $$ = set_ll_list($1,LLNULL,EXPR_LIST); }
| routine_clause_list routine_clause
{ $$ = set_ll_list($1,$2,EXPR_LIST); }
;
routine_clause: COMMA needkeyword PRIVATE LEFTPAR acc_declare_list RIGHTPAR
{ $$ = make_llnd(fi,ACC_PRIVATE_OP,$5,LLNULL,SMNULL);}
| COMMA needkeyword targets_clause
{ $$ = $3;}
;
spf_directive: spf_analysis spf_directive: spf_analysis
| spf_parallel | spf_parallel
| spf_transform | spf_transform

3
dvm/fdvm/trunk/parser/lexfdvm.c
View File

@@ -2214,6 +2214,9 @@ analyz()
} else if (eqn(13, nextch, "doublecomplex")) { } else if (eqn(13, nextch, "doublecomplex")) {
stkey = DOUBLECOMPLEX; stkey = DOUBLECOMPLEX;
nextch += 13; nextch += 13;
} else if (eqn(7, nextch, "declare")) { /*ACC*/
stkey = ACC_DECLARE;
nextch += 7;
} else if (eqn(2, nextch, "do")) { /*OMP*/ } else if (eqn(2, nextch, "do")) { /*OMP*/
if (OMP_program == 1) { /*OMP*/ if (OMP_program == 1) { /*OMP*/
stkey = OMPDVM_DO; /*OMP*/ stkey = OMPDVM_DO; /*OMP*/

1
dvm/fdvm/trunk/parser/stat.c
View File

@@ -788,6 +788,7 @@ set_stat_list(old_list, stat)
case (DVM_CONSISTENT_DIR): case (DVM_CONSISTENT_DIR):
case (DVM_ASYNCID_DIR): case (DVM_ASYNCID_DIR):
case (ACC_ROUTINE_DIR): case (ACC_ROUTINE_DIR):
case (ACC_DECLARE_DIR):
case (DATA_DECL): case (DATA_DECL):
case (EXTERN_STAT): case (EXTERN_STAT):
case (INTRIN_STAT): case (INTRIN_STAT):

2
dvm/fdvm/trunk/parser/sym.c
View File

@@ -1952,6 +1952,8 @@ copy_module_scope(sym_mod,list)
continue; continue;
if(list && in_rename_list(source,list)) if(list && in_rename_list(source,list))
continue; continue;
if(!strcmp(source->ident, "***"))
continue;
if((copy=just_look_up_sym_in_scope(cur_scope(),source->ident)) && copy->id_attr && copy->id_attr->entry.Template.tag==sym_mod->entry.Template.func_hedr->id) if((copy=just_look_up_sym_in_scope(cur_scope(),source->ident)) && copy->id_attr && copy->id_attr->entry.Template.tag==sym_mod->entry.Template.func_hedr->id)
continue; continue;
new_symb = make_local_entity(source->parent, source->variant, source->type, LOCAL); new_symb = make_local_entity(source->parent, source->variant, source->type, LOCAL);

1
dvm/fdvm/trunk/parser/tag
View File

@@ -574,6 +574,7 @@
#define ACC_CHECKSECTION_DIR 911 /* ACC Fortran */ #define ACC_CHECKSECTION_DIR 911 /* ACC Fortran */
#define ACC_END_CHECKSECTION_DIR 912 /* ACC Fortran */ #define ACC_END_CHECKSECTION_DIR 912 /* ACC Fortran */
#define ACC_ROUTINE_DIR 913 /* ACC Fortran */ #define ACC_ROUTINE_DIR 913 /* ACC Fortran */
#define ACC_DECLARE_DIR 914 /* ACC Fortran */
#define ACC_TIE_OP 930 /* ACC Fortran */ #define ACC_TIE_OP 930 /* ACC Fortran */
#define ACC_INLOCAL_OP 931 /* ACC Fortran */ #define ACC_INLOCAL_OP 931 /* ACC Fortran */

1
dvm/fdvm/trunk/parser/tag.h
View File

@@ -576,6 +576,7 @@ script using "tag". Run make tag.h to regenerate this file */
tag [ ACC_CHECKSECTION_DIR ] = "ACC_CHECKSECTION_DIR"; tag [ ACC_CHECKSECTION_DIR ] = "ACC_CHECKSECTION_DIR";
tag [ ACC_END_CHECKSECTION_DIR ] = "ACC_END_CHECKSECTION_DIR"; tag [ ACC_END_CHECKSECTION_DIR ] = "ACC_END_CHECKSECTION_DIR";
tag [ ACC_ROUTINE_DIR ] = "ACC_ROUTINE_DIR"; tag [ ACC_ROUTINE_DIR ] = "ACC_ROUTINE_DIR";
tag [ ACC_DECLARE_DIR ] = "ACC_DECLARE_DIR";
tag [ ACC_TIE_OP ] = "ACC_TIE_OP"; tag [ ACC_TIE_OP ] = "ACC_TIE_OP";
tag [ ACC_INLOCAL_OP ] = "ACC_INLOCAL_OP"; tag [ ACC_INLOCAL_OP ] = "ACC_INLOCAL_OP";

71
dvm/fdvm/trunk/parser/tokdefs.h
View File

@@ -318,38 +318,39 @@
#define ACC_CUDA_BLOCK 318 #define ACC_CUDA_BLOCK 318
#define ACC_ROUTINE 319 #define ACC_ROUTINE 319
#define ACC_TIE 320 #define ACC_TIE 320
#define BY 321 #define ACC_DECLARE 321
#define IO_MODE 322 #define BY 322
#define CP_CREATE 323 #define IO_MODE 323
#define CP_LOAD 324 #define CP_CREATE 324
#define CP_SAVE 325 #define CP_LOAD 325
#define CP_WAIT 326 #define CP_SAVE 326
#define FILES 327 #define CP_WAIT 327
#define VARLIST 328 #define FILES 328
#define STATUS 329 #define VARLIST 329
#define EXITINTERVAL 330 #define STATUS 330
#define TEMPLATE_CREATE 331 #define EXITINTERVAL 331
#define TEMPLATE_DELETE 332 #define TEMPLATE_CREATE 332
#define SPF_ANALYSIS 333 #define TEMPLATE_DELETE 333
#define SPF_PARALLEL 334 #define SPF_ANALYSIS 334
#define SPF_TRANSFORM 335 #define SPF_PARALLEL 335
#define SPF_NOINLINE 336 #define SPF_TRANSFORM 336
#define SPF_PARALLEL_REG 337 #define SPF_NOINLINE 337
#define SPF_END_PARALLEL_REG 338 #define SPF_PARALLEL_REG 338
#define SPF_EXPAND 339 #define SPF_END_PARALLEL_REG 339
#define SPF_FISSION 340 #define SPF_EXPAND 340
#define SPF_SHRINK 341 #define SPF_FISSION 341
#define SPF_CHECKPOINT 342 #define SPF_SHRINK 342
#define SPF_EXCEPT 343 #define SPF_CHECKPOINT 343
#define SPF_FILES_COUNT 344 #define SPF_EXCEPT 344
#define SPF_INTERVAL 345 #define SPF_FILES_COUNT 345
#define SPF_TIME 346 #define SPF_INTERVAL 346
#define SPF_ITER 347 #define SPF_TIME 347
#define SPF_FLEXIBLE 348 #define SPF_ITER 348
#define SPF_APPLY_REGION 349 #define SPF_FLEXIBLE 349
#define SPF_APPLY_FRAGMENT 350 #define SPF_APPLY_REGION 350
#define SPF_CODE_COVERAGE 351 #define SPF_APPLY_FRAGMENT 351
#define SPF_UNROLL 352 #define SPF_CODE_COVERAGE 352
#define SPF_MERGE 353 #define SPF_UNROLL 353
#define SPF_COVER 354 #define SPF_MERGE 354
#define SPF_PROCESS_PRIVATE 355 #define SPF_COVER 355
#define SPF_PROCESS_PRIVATE 356

1
dvm/fdvm/trunk/parser/tokens
View File

@@ -318,6 +318,7 @@ ACC_INLOCAL
ACC_CUDA_BLOCK ACC_CUDA_BLOCK
ACC_ROUTINE ACC_ROUTINE
ACC_TIE ACC_TIE
ACC_DECLARE
BY BY
IO_MODE IO_MODE
CP_CREATE CP_CREATE

2
sapfor/experts/Sapfor_2017/_src/Utils/version.h
View File

@@ -1,3 +1,3 @@
#pragma once #pragma once
#define VERSION_SPF "2372" #define VERSION_SPF "2373"