improved

dvm/fdvm/trunk/fdvm/acc.cpp

@@ -5358,21 +5358,6 @@ SgExpression * TranslateReductionToOpenmp(SgExpression *reduction_clause)  /* Op
     return OpenMPReductions;
 }
 
-SgStatement *Interface(SgSymbol *s)
-{
-    SgStatement *interface = hasInterface(s); 
-    if (!interface)
-    {
-        interface = getInterface(s);
-        if (isForCudaRegion())
-        { 
-            SaveInterface(s,interface); 
-            MarkAsUserProcedure(s);
-        } 
-    }
-    return interface;
-}
-
 /*
 SgStatement *checkInternal(SgSymbol *s)
 {

dvm/fdvm/trunk/fdvm/calls.cpp

@@ -111,6 +111,20 @@ void SaveInterface(SgSymbol *s, SgStatement *interface)
         GRAPHNODE(s)->st_interface = interface; 
 }
 
+SgStatement *Interface(SgSymbol *s)
+{
+    SgStatement *interface = hasInterface(s); 
+    if (!interface)    
+        interface = getInterface(s);
+    
+    if (isForCudaRegion() && interface)
+    { 
+        SaveInterface(s,interface); 
+        MarkAsUserProcedure(s);
+    }     
+    return interface;
+}
+
 int findParameterNumber(SgSymbol *s, char *name) 
 {
     int i;

sapfor/experts/Sapfor_2017/_src/Sapfor.cpp

@@ -2597,6 +2597,7 @@ void runPass(const int curr_regime, const char *proj_name, const char *folderNam
     case INSERT_INCLUDES:
     case REMOVE_DVM_DIRS:
     case REMOVE_DVM_DIRS_TO_COMMENTS:
+    case REMOVE_OMP_DIRS:
     case PRIVATE_ARRAYS_EXPANSION:
     case PRIVATE_ARRAYS_SHRINKING:
     case UNROLL_LOOPS:

sapfor/experts/Sapfor_2017/_src/Utils/version.h

@@ -1,3 +1,3 @@
 #pragma once
 
-#define VERSION_SPF "2238"
+#define VERSION_SPF "2240"

sapfor/experts/Sapfor_2017/_src/VisualizerCalls/get_information.cpp

@@ -1831,6 +1831,14 @@ int SPF_CreateIntervalsTree(void*& context, int winHandler, short *options, shor
     return simpleTransformPass(INSERT_INTER_TREE, options, projName, folderName, output, outputSize, outputMessage, outputMessageSize);
 }
 
+int SPF_RemoveOmpDirectives(void*& context, int winHandler, short* options, short* projName, short* folderName, short*& output,
+                            int*& outputSize, short*& outputMessage, int*& outputMessageSize)
+{
+    MessageManager::clearCache();
+    MessageManager::setWinHandler(winHandler);
+    return simpleTransformPass(REMOVE_OMP_DIRS, options, projName, folderName, output, outputSize, outputMessage, outputMessageSize);
+}
+
 int SPF_RemoveDvmDirectives(void*& context, int winHandler, short *options, short *projName, short *folderName, short *&output,
                             int *&outputSize, short *&outputMessage, int *&outputMessageSize)
 {
@@ -2568,6 +2576,8 @@ const wstring Sapfor_RunTransformation(const char* transformName_c, const char*
 
     if (whichRun == "SPF_CorrectCodeStylePass")
         retCode = SPF_CorrectCodeStylePass(context, winHandler, optSh, projSh, fold, output, outputSize, outputMessage, outputMessageSize);
+    else if (whichRun == "SPF_RemoveOmpDirectives")
+        retCode = SPF_RemoveOmpDirectives(context, winHandler, optSh, projSh, fold, output, outputSize, outputMessage, outputMessageSize);
     else if (whichRun == "SPF_RemoveDvmDirectives")
         retCode = SPF_RemoveDvmDirectives(context, winHandler, optSh, projSh, fold, output, outputSize, outputMessage, outputMessageSize);
     else if (whichRun == "SPF_RemoveDvmDirectivesToComments")