cwpearson/astaroth
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Reduction types are now generated in a same fashion as vertexbuffer handles and others

Browse Source
This commit is contained in:
jpekkila
2020-08-21 19:05:01 +03:00
parent 56273433fe
commit 8c28aacf96
2 changed files with 13 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
acc/src/code_generator.c
View File

@@ -731,29 +731,24 @@ external acdevicesynchronizestream
fprintf(DSLHEADER, "typedef int Stream;\n\n");
// Reduction types
fprintf(DSLHEADER, "#define AC_FOR_RTYPES(FUNC)\\\n");
fprintf(DSLHEADER, "FUNC(%s)\\\n", "RTYPE_MAX");
fprintf(DSLHEADER, "FUNC(%s)\\\n", "RTYPE_MIN");
fprintf(DSLHEADER, "FUNC(%s)\\\n", "RTYPE_RMS");
fprintf(DSLHEADER, "FUNC(%s)\\\n", "RTYPE_RMS_EXP");
fprintf(DSLHEADER, "FUNC(%s)\n", "RTYPE_SUM");
size_t counter = 0;
fprintf(DSLHEADER, "#define RTYPE_MAX (%lu)\n", counter);
fprintf(FHEADER, "integer(c_int), parameter :: RTYPE_MAX = %lu\n", counter);
++counter;
fprintf(DSLHEADER, "#define RTYPE_MIN (%lu)\n", counter);
fprintf(FHEADER, "integer(c_int), parameter :: RTYPE_MIN = %lu\n", counter);
++counter;
fprintf(DSLHEADER, "#define RTYPE_RMS (%lu)\n", counter);
fprintf(FHEADER, "integer(c_int), parameter :: RTYPE_RMS = %lu\n", counter);
++counter;
fprintf(DSLHEADER, "#define RTYPE_RMS_EXP (%lu)\n", counter);
fprintf(FHEADER, "integer(c_int), parameter :: RTYPE_RMS_EXP = %lu\n", counter);
++counter;
fprintf(DSLHEADER, "#define RTYPE_SUM (%lu)\n", counter);
fprintf(FHEADER, "integer(c_int), parameter :: RTYPE_SUM = %lu\n", counter);
++counter;
fprintf(DSLHEADER, "typedef int ReductionType;\n");
fprintf(DSLHEADER, "#define NUM_REDUCTION_TYPES (%lu)\n", counter);
fprintf(FHEADER, "integer(c_int), parameter :: NUM_REDUCTION_TYPES = %lu\n", counter);
// Fortran structs