Fix specHasBody()

LLNL · Oct 23, 2024 · 51327bd · 51327bd
1 parent ff8d719
commit 51327bd
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/src/lcom.cpp b/src/lcom.cpp
@@ -3,6 +3,7 @@
 
 #include <Rose/CommandLine.h>
 #include <Sawyer/CommandLine.h>
+#include "sageInterface.h"
 
 #include <boost/filesystem.hpp>
 #include <cassert>
@@ -16,6 +17,8 @@
 #include "lcom.hpp"
 #include "traverse.hpp"
 
+namespace si = SageInterface;
+
 // using Class = SgAdaPackageSpec*;
 using Method = Traverse::MType;
 using Attribute = Traverse::AType;
@@ -136,7 +139,7 @@ std::string sourceLocation(const SgLocatedNode* n, const std::string& alt)
 */
 
 bool specHasBody(const SgNode*) { return true; }
-bool specHasBody(const SgAdaPackageSpec* spec) { return spec->get_body() != nullptr; }
+bool specHasBody(const SgAdaPackageSpec* spec) { return si::Ada::getBodyDefinition(spec) != nullptr; }
 
 template <typename C>
 std::string ProcessLCOM(SgProject* project) {