(PreprocessingInfo) supports PreprocessingInfo::setTypeOfDirective (D…

…irectiveType dt) * add missing function to set directivey type * used by ada2cpp to translate Ada comments into C++ style comments RC-848
passlab · Apr 19, 2021 · 21b1061 · 21b1061
1 parent 041e865
commit 21b1061
Show file tree

Hide file tree

Showing 3 changed files with 11 additions and 3 deletions.
diff --git a/src/frontend/SageIII/rose_attributes_list.C b/src/frontend/SageIII/rose_attributes_list.C
@@ -780,6 +780,15 @@ PreprocessingInfo::getTypeOfDirective () const
      return whatSortOfDirective;
    }
 
+void 
+PreprocessingInfo::setTypeOfDirective (PreprocessingInfo::DirectiveType dt)
+   {
+  // Access function for the type of directive
+     ROSE_ASSERT(this != NULL);
+     whatSortOfDirective = dt;
+   }
+
+
 #if 0
 ************* OLD CODE **************
 char*

diff --git a/src/frontend/SageIII/rose_attributes_list.h b/src/frontend/SageIII/rose_attributes_list.h
@@ -411,6 +411,7 @@ class PreprocessingInfo
           void setString ( const std::string & s );
           int getStringLength() const;
           DirectiveType getTypeOfDirective() const;
+          void setTypeOfDirective(DirectiveType);
           RelativePositionType getRelativePosition(void) const;
           void setRelativePosition(RelativePositionType relPos);
 

diff --git a/src/frontend/SageIII/sageInterface/sageInterfaceAda.C b/src/frontend/SageIII/sageInterface/sageInterfaceAda.C
@@ -513,9 +513,7 @@ namespace ada
       comment.replace(0, 2, prefix);
       comment.append(suffix);
       ppinfo->setString(comment);
-      // \todo PreprocessingInfo does not allow to update the directive type
-      //       possible solutions: either add new function or gen new object
-      // ppinfo->setTypeOfDirective(commentKind);
+      ppinfo->setTypeOfDirective(commentKind);
     }
   }