| 1 | // | 
|---|
| 2 | // Cforall Version 1.0.0 Copyright (C) 2019 University of Waterloo | 
|---|
| 3 | // | 
|---|
| 4 | // The contents of this file are covered under the licence agreement in the | 
|---|
| 5 | // file "LICENCE" distributed with Cforall. | 
|---|
| 6 | // | 
|---|
| 7 | // Pass.hpp -- | 
|---|
| 8 | // | 
|---|
| 9 | // Author           : Thierry Delisle | 
|---|
| 10 | // Created On       : Thu May 09 15::37::05 2019 | 
|---|
| 11 | // Last Modified By : | 
|---|
| 12 | // Last Modified On : | 
|---|
| 13 | // Update Count     : | 
|---|
| 14 | // | 
|---|
| 15 |  | 
|---|
| 16 | #pragma once | 
|---|
| 17 | // IWYU pragma: private, include "AST/Pass.hpp" | 
|---|
| 18 |  | 
|---|
| 19 | #include <functional> | 
|---|
| 20 | #include <list> | 
|---|
| 21 | #include <stack> | 
|---|
| 22 |  | 
|---|
| 23 | #include "AST/Fwd.hpp" | 
|---|
| 24 | #include "AST/Node.hpp" | 
|---|
| 25 |  | 
|---|
| 26 | #include "AST/Attribute.hpp" | 
|---|
| 27 | #include "AST/Decl.hpp" | 
|---|
| 28 | #include "AST/Expr.hpp" | 
|---|
| 29 | #include "AST/Init.hpp" | 
|---|
| 30 | #include "AST/Stmt.hpp" | 
|---|
| 31 | #include "AST/Type.hpp" | 
|---|
| 32 |  | 
|---|
| 33 | #include "AST/Visitor.hpp" | 
|---|
| 34 |  | 
|---|
| 35 | #include "SymTab/Indexer.h" | 
|---|
| 36 |  | 
|---|
| 37 | // Private prelude header, needed for some of the magic tricks this class pulls off | 
|---|
| 38 | #include "AST/Pass.proto.hpp" | 
|---|
| 39 |  | 
|---|
| 40 | namespace ast { | 
|---|
| 41 | //------------------------------------------------------------------------------------------------- | 
|---|
| 42 | // Templated visitor type | 
|---|
| 43 | // To use declare a Pass< YOUR VISITOR TYPE > | 
|---|
| 44 | // The visitor type should specify the previsit/postvisit for types that are desired. | 
|---|
| 45 | // Note: previsit/postvisit must be **public** members | 
|---|
| 46 | // | 
|---|
| 47 | // Several additional features are available through inheritance | 
|---|
| 48 | // | WithTypeSubstitution - provides polymorphic const TypeSubstitution * env for the | 
|---|
| 49 | //                          current expression | 
|---|
| 50 | // | WithStmtsToAdd       - provides the ability to insert statements before or after the current | 
|---|
| 51 | //                          statement by adding new statements into stmtsToAddBefore or | 
|---|
| 52 | //                          stmtsToAddAfter respectively. | 
|---|
| 53 | // | WithDeclsToAdd       - provides the ability to insert declarations before or after the current | 
|---|
| 54 | //                          declarations by adding new DeclStmt into declsToAddBefore or | 
|---|
| 55 | //                          declsToAddAfter respectively. | 
|---|
| 56 | // | WithShortCircuiting  - provides the ability to skip visiting child nodes; set visit_children | 
|---|
| 57 | //                          to false in pre{visit,visit} to skip visiting children | 
|---|
| 58 | // | WithGuards           - provides the ability to save/restore data like a LIFO stack; to save, | 
|---|
| 59 | //                          call GuardValue with the variable to save, the variable will | 
|---|
| 60 | //                          automatically be restored to its previous value after the corresponding | 
|---|
| 61 | //                          postvisit/postmutate teminates. | 
|---|
| 62 | // | WithVisitorRef       - provides an pointer to the templated visitor wrapper | 
|---|
| 63 | // | WithIndexer          - provides indexer functionality (i.e. up-to-date symbol table) | 
|---|
| 64 | //------------------------------------------------------------------------------------------------- | 
|---|
| 65 | template< typename pass_t > | 
|---|
| 66 | class Pass final : public ast::Visitor { | 
|---|
| 67 | public: | 
|---|
| 68 | /// Forward any arguments to the pass constructor | 
|---|
| 69 | /// Propagate 'this' if necessary | 
|---|
| 70 | template< typename... Args > | 
|---|
| 71 | Pass( Args &&... args) | 
|---|
| 72 | : pass( std::forward<Args>( args )... ) | 
|---|
| 73 | { | 
|---|
| 74 | // After the pass is constructed, check if it wants the have a pointer to the wrapping visitor | 
|---|
| 75 | typedef Pass<pass_t> this_t; | 
|---|
| 76 | this_t * const * visitor = __pass::visitor(pass, 0); | 
|---|
| 77 | if(visitor) { | 
|---|
| 78 | *const_cast<this_t **>( visitor ) = this; | 
|---|
| 79 | } | 
|---|
| 80 | } | 
|---|
| 81 |  | 
|---|
| 82 | virtual ~Pass() = default; | 
|---|
| 83 |  | 
|---|
| 84 | /// Storage for the actual pass | 
|---|
| 85 | pass_t pass; | 
|---|
| 86 |  | 
|---|
| 87 | /// Visit function declarations | 
|---|
| 88 | const ast::DeclWithType *     visit( const ast::ObjectDecl           * ) override final; | 
|---|
| 89 | const ast::DeclWithType *     visit( const ast::FunctionDecl         * ) override final; | 
|---|
| 90 | const ast::Decl *             visit( const ast::StructDecl           * ) override final; | 
|---|
| 91 | const ast::Decl *             visit( const ast::UnionDecl            * ) override final; | 
|---|
| 92 | const ast::Decl *             visit( const ast::EnumDecl             * ) override final; | 
|---|
| 93 | const ast::Decl *             visit( const ast::TraitDecl            * ) override final; | 
|---|
| 94 | const ast::Decl *             visit( const ast::TypeDecl             * ) override final; | 
|---|
| 95 | const ast::Decl *             visit( const ast::TypedefDecl          * ) override final; | 
|---|
| 96 | const ast::AsmDecl *          visit( const ast::AsmDecl              * ) override final; | 
|---|
| 97 | const ast::StaticAssertDecl * visit( const ast::StaticAssertDecl     * ) override final; | 
|---|
| 98 | const ast::CompoundStmt *     visit( const ast::CompoundStmt         * ) override final; | 
|---|
| 99 | const ast::Stmt *             visit( const ast::ExprStmt             * ) override final; | 
|---|
| 100 | const ast::Stmt *             visit( const ast::AsmStmt              * ) override final; | 
|---|
| 101 | const ast::Stmt *             visit( const ast::DirectiveStmt        * ) override final; | 
|---|
| 102 | const ast::Stmt *             visit( const ast::IfStmt               * ) override final; | 
|---|
| 103 | const ast::Stmt *             visit( const ast::WhileStmt            * ) override final; | 
|---|
| 104 | const ast::Stmt *             visit( const ast::ForStmt              * ) override final; | 
|---|
| 105 | const ast::Stmt *             visit( const ast::SwitchStmt           * ) override final; | 
|---|
| 106 | const ast::Stmt *             visit( const ast::CaseStmt             * ) override final; | 
|---|
| 107 | const ast::Stmt *             visit( const ast::BranchStmt           * ) override final; | 
|---|
| 108 | const ast::Stmt *             visit( const ast::ReturnStmt           * ) override final; | 
|---|
| 109 | const ast::Stmt *             visit( const ast::ThrowStmt            * ) override final; | 
|---|
| 110 | const ast::Stmt *             visit( const ast::TryStmt              * ) override final; | 
|---|
| 111 | const ast::Stmt *             visit( const ast::CatchStmt            * ) override final; | 
|---|
| 112 | const ast::Stmt *             visit( const ast::FinallyStmt          * ) override final; | 
|---|
| 113 | const ast::Stmt *             visit( const ast::WaitForStmt          * ) override final; | 
|---|
| 114 | const ast::Stmt *             visit( const ast::WithStmt             * ) override final; | 
|---|
| 115 | const ast::NullStmt *         visit( const ast::NullStmt             * ) override final; | 
|---|
| 116 | const ast::Stmt *             visit( const ast::DeclStmt             * ) override final; | 
|---|
| 117 | const ast::Stmt *             visit( const ast::ImplicitCtorDtorStmt * ) override final; | 
|---|
| 118 | const ast::Expr *             visit( const ast::ApplicationExpr      * ) override final; | 
|---|
| 119 | const ast::Expr *             visit( const ast::UntypedExpr          * ) override final; | 
|---|
| 120 | const ast::Expr *             visit( const ast::NameExpr             * ) override final; | 
|---|
| 121 | const ast::Expr *             visit( const ast::AddressExpr          * ) override final; | 
|---|
| 122 | const ast::Expr *             visit( const ast::LabelAddressExpr     * ) override final; | 
|---|
| 123 | const ast::Expr *             visit( const ast::CastExpr             * ) override final; | 
|---|
| 124 | const ast::Expr *             visit( const ast::KeywordCastExpr      * ) override final; | 
|---|
| 125 | const ast::Expr *             visit( const ast::VirtualCastExpr      * ) override final; | 
|---|
| 126 | const ast::Expr *             visit( const ast::UntypedMemberExpr    * ) override final; | 
|---|
| 127 | const ast::Expr *             visit( const ast::MemberExpr           * ) override final; | 
|---|
| 128 | const ast::Expr *             visit( const ast::VariableExpr         * ) override final; | 
|---|
| 129 | const ast::Expr *             visit( const ast::ConstantExpr         * ) override final; | 
|---|
| 130 | const ast::Expr *             visit( const ast::SizeofExpr           * ) override final; | 
|---|
| 131 | const ast::Expr *             visit( const ast::AlignofExpr          * ) override final; | 
|---|
| 132 | const ast::Expr *             visit( const ast::UntypedOffsetofExpr  * ) override final; | 
|---|
| 133 | const ast::Expr *             visit( const ast::OffsetofExpr         * ) override final; | 
|---|
| 134 | const ast::Expr *             visit( const ast::OffsetPackExpr       * ) override final; | 
|---|
| 135 | const ast::Expr *             visit( const ast::LogicalExpr          * ) override final; | 
|---|
| 136 | const ast::Expr *             visit( const ast::ConditionalExpr      * ) override final; | 
|---|
| 137 | const ast::Expr *             visit( const ast::CommaExpr            * ) override final; | 
|---|
| 138 | const ast::Expr *             visit( const ast::TypeExpr             * ) override final; | 
|---|
| 139 | const ast::Expr *             visit( const ast::AsmExpr              * ) override final; | 
|---|
| 140 | const ast::Expr *             visit( const ast::ImplicitCopyCtorExpr * ) override final; | 
|---|
| 141 | const ast::Expr *             visit( const ast::ConstructorExpr      * ) override final; | 
|---|
| 142 | const ast::Expr *             visit( const ast::CompoundLiteralExpr  * ) override final; | 
|---|
| 143 | const ast::Expr *             visit( const ast::RangeExpr            * ) override final; | 
|---|
| 144 | const ast::Expr *             visit( const ast::UntypedTupleExpr     * ) override final; | 
|---|
| 145 | const ast::Expr *             visit( const ast::TupleExpr            * ) override final; | 
|---|
| 146 | const ast::Expr *             visit( const ast::TupleIndexExpr       * ) override final; | 
|---|
| 147 | const ast::Expr *             visit( const ast::TupleAssignExpr      * ) override final; | 
|---|
| 148 | const ast::Expr *             visit( const ast::StmtExpr             * ) override final; | 
|---|
| 149 | const ast::Expr *             visit( const ast::UniqueExpr           * ) override final; | 
|---|
| 150 | const ast::Expr *             visit( const ast::UntypedInitExpr      * ) override final; | 
|---|
| 151 | const ast::Expr *             visit( const ast::InitExpr             * ) override final; | 
|---|
| 152 | const ast::Expr *             visit( const ast::DeletedExpr          * ) override final; | 
|---|
| 153 | const ast::Expr *             visit( const ast::DefaultArgExpr       * ) override final; | 
|---|
| 154 | const ast::Expr *             visit( const ast::GenericExpr          * ) override final; | 
|---|
| 155 | const ast::Type *             visit( const ast::VoidType             * ) override final; | 
|---|
| 156 | const ast::Type *             visit( const ast::BasicType            * ) override final; | 
|---|
| 157 | const ast::Type *             visit( const ast::PointerType          * ) override final; | 
|---|
| 158 | const ast::Type *             visit( const ast::ArrayType            * ) override final; | 
|---|
| 159 | const ast::Type *             visit( const ast::ReferenceType        * ) override final; | 
|---|
| 160 | const ast::Type *             visit( const ast::QualifiedType        * ) override final; | 
|---|
| 161 | const ast::Type *             visit( const ast::FunctionType         * ) override final; | 
|---|
| 162 | const ast::Type *             visit( const ast::StructInstType       * ) override final; | 
|---|
| 163 | const ast::Type *             visit( const ast::UnionInstType        * ) override final; | 
|---|
| 164 | const ast::Type *             visit( const ast::EnumInstType         * ) override final; | 
|---|
| 165 | const ast::Type *             visit( const ast::TraitInstType        * ) override final; | 
|---|
| 166 | const ast::Type *             visit( const ast::TypeInstType         * ) override final; | 
|---|
| 167 | const ast::Type *             visit( const ast::TupleType            * ) override final; | 
|---|
| 168 | const ast::Type *             visit( const ast::TypeofType           * ) override final; | 
|---|
| 169 | const ast::Type *             visit( const ast::VarArgsType          * ) override final; | 
|---|
| 170 | const ast::Type *             visit( const ast::ZeroType             * ) override final; | 
|---|
| 171 | const ast::Type *             visit( const ast::OneType              * ) override final; | 
|---|
| 172 | const ast::Type *             visit( const ast::GlobalScopeType      * ) override final; | 
|---|
| 173 | const ast::Designation *      visit( const ast::Designation          * ) override final; | 
|---|
| 174 | const ast::Init *             visit( const ast::SingleInit           * ) override final; | 
|---|
| 175 | const ast::Init *             visit( const ast::ListInit             * ) override final; | 
|---|
| 176 | const ast::Init *             visit( const ast::ConstructorInit      * ) override final; | 
|---|
| 177 | const ast::Attribute *        visit( const ast::Attribute            * ) override final; | 
|---|
| 178 | const ast::TypeSubstitution * visit( const ast::TypeSubstitution     * ) override final; | 
|---|
| 179 |  | 
|---|
| 180 | friend void acceptAll( std::list< ptr<Decl> > & decls, Pass<pass_t>& visitor ); | 
|---|
| 181 | private: | 
|---|
| 182 |  | 
|---|
| 183 | bool __visit_children() { __pass::bool_ref * ptr = __pass::visit_children(pass, 0); return ptr ? *ptr : true; } | 
|---|
| 184 |  | 
|---|
| 185 | private: | 
|---|
| 186 | const ast::Stmt * call_accept( const ast::Stmt * ); | 
|---|
| 187 | const ast::Expr * call_accept( const ast::Expr * ); | 
|---|
| 188 |  | 
|---|
| 189 | template< typename node_t > | 
|---|
| 190 | auto call_accept( const node_t * node ) -> typename std::enable_if< | 
|---|
| 191 | !std::is_base_of<ast::Expr, node_t>::value && | 
|---|
| 192 | !std::is_base_of<ast::Stmt, node_t>::value | 
|---|
| 193 | , decltype( node->accept(*this) ) | 
|---|
| 194 | >::type; | 
|---|
| 195 |  | 
|---|
| 196 | template< template <class...> class container_t > | 
|---|
| 197 | container_t< ptr<Stmt> > call_accept( const container_t< ptr<Stmt> > & ); | 
|---|
| 198 |  | 
|---|
| 199 | template< template <class...> class container_t, typename node_t > | 
|---|
| 200 | container_t< ptr<node_t> > call_accept( const container_t< ptr<node_t> > & container ); | 
|---|
| 201 |  | 
|---|
| 202 | /// Logic to call the accept and mutate the parent if needed, delegates call to accept | 
|---|
| 203 | template<typename node_t, typename parent_t, typename child_t> | 
|---|
| 204 | void maybe_accept(const node_t * &, child_t parent_t::* child); | 
|---|
| 205 |  | 
|---|
| 206 | private: | 
|---|
| 207 | /// Internal RAII guard for indexer features | 
|---|
| 208 | struct guard_indexer { | 
|---|
| 209 | guard_indexer( Pass<pass_t> & pass ): pass( pass ) { __pass::indexer::enter(pass, 0); } | 
|---|
| 210 | ~guard_indexer()                                   { __pass::indexer::leave(pass, 0); } | 
|---|
| 211 | Pass<pass_t> & pass; | 
|---|
| 212 | }; | 
|---|
| 213 |  | 
|---|
| 214 | /// Internal RAII guard for scope features | 
|---|
| 215 | struct guard_scope { | 
|---|
| 216 | guard_scope( Pass<pass_t> & pass ): pass( pass ) { __pass::scope::enter(pass, 0); } | 
|---|
| 217 | ~guard_scope()                                   { __pass::scope::leave(pass, 0); } | 
|---|
| 218 | Pass<pass_t> & pass; | 
|---|
| 219 | }; | 
|---|
| 220 |  | 
|---|
| 221 | private: | 
|---|
| 222 | bool inFunction = false; | 
|---|
| 223 | }; | 
|---|
| 224 |  | 
|---|
| 225 | template<typename pass_t> | 
|---|
| 226 | void accept_all( std::list< ast::ptr<ast::Decl> > &, ast::Pass<pass_t> & visitor ); | 
|---|
| 227 |  | 
|---|
| 228 | //------------------------------------------------------------------------------------------------- | 
|---|
| 229 | // PASS ACCESSORIES | 
|---|
| 230 | //------------------------------------------------------------------------------------------------- | 
|---|
| 231 |  | 
|---|
| 232 | /// Keep track of the polymorphic const TypeSubstitution * env for the current expression | 
|---|
| 233 | struct WithConstTypeSubstitution { | 
|---|
| 234 | const TypeSubstitution * env = nullptr; | 
|---|
| 235 | }; | 
|---|
| 236 |  | 
|---|
| 237 | /// Used if visitor requires added statements before or after the current node. | 
|---|
| 238 | /// The Pass template handles what *before* and *after* means automatically | 
|---|
| 239 | template< template<class...> class container_t = std::list > | 
|---|
| 240 | struct WithStmtsToAdd { | 
|---|
| 241 | container_t< ptr<Stmt> > stmtsToAddBefore; | 
|---|
| 242 | container_t< ptr<Stmt> > stmtsToAddAfter; | 
|---|
| 243 | }; | 
|---|
| 244 |  | 
|---|
| 245 | /// Used if visitor requires added declarations before or after the current node. | 
|---|
| 246 | /// The Pass template handles what *before* and *after* means automatically | 
|---|
| 247 | template< template<class...> class container_t = std::list > | 
|---|
| 248 | struct WithDeclsToAdd { | 
|---|
| 249 | container_t< ptr<Decl> > declsToAddBefore; | 
|---|
| 250 | container_t< ptr<Decl> > declsToAddAfter; | 
|---|
| 251 | }; | 
|---|
| 252 |  | 
|---|
| 253 | /// Use if visitation should stop at certain levels | 
|---|
| 254 | /// set visit_children false of all child nodes should be ignored | 
|---|
| 255 | struct WithShortCircuiting { | 
|---|
| 256 | __pass::bool_ref visit_children; | 
|---|
| 257 | }; | 
|---|
| 258 |  | 
|---|
| 259 | /// Used to restore values/functions/etc. when the Pass finishes visiting this node | 
|---|
| 260 | class WithGuards { | 
|---|
| 261 | __pass::at_cleanup_t at_cleanup; | 
|---|
| 262 |  | 
|---|
| 263 | public: | 
|---|
| 264 | /// When this node is finished being visited, restore the value of a variable | 
|---|
| 265 | template< typename T > | 
|---|
| 266 | void GuardValue( T& val ) { | 
|---|
| 267 | at_cleanup( [ val ]( void * newVal ) { | 
|---|
| 268 | * static_cast< T * >( newVal ) = val; | 
|---|
| 269 | }, static_cast< void * >( & val ) ); | 
|---|
| 270 | } | 
|---|
| 271 |  | 
|---|
| 272 | /// On the object, all beginScope now and endScope when the current node is finished being visited | 
|---|
| 273 | template< typename T > | 
|---|
| 274 | void GuardScope( T& val ) { | 
|---|
| 275 | val.beginScope(); | 
|---|
| 276 | at_cleanup( []( void * val ) { | 
|---|
| 277 | static_cast< T * >( val )->endScope(); | 
|---|
| 278 | }, static_cast< void * >( & val ) ); | 
|---|
| 279 | } | 
|---|
| 280 |  | 
|---|
| 281 | /// When this node is finished being visited, call a function | 
|---|
| 282 | template< typename Func > | 
|---|
| 283 | void GuardAction( Func func ) { | 
|---|
| 284 | at_cleanup( [func](void *) { func(); }, nullptr ); | 
|---|
| 285 | } | 
|---|
| 286 | }; | 
|---|
| 287 |  | 
|---|
| 288 | /// Used to get a pointer to the pass with its wrapped type | 
|---|
| 289 | template<typename pass_t> | 
|---|
| 290 | struct WithVisitorRef { | 
|---|
| 291 | Pass<pass_t> * const visitor = nullptr; | 
|---|
| 292 | }; | 
|---|
| 293 |  | 
|---|
| 294 | /// Use when the templated visitor should update the indexer | 
|---|
| 295 | struct WithIndexer { | 
|---|
| 296 | SymTab::Indexer indexer; | 
|---|
| 297 | }; | 
|---|
| 298 | } | 
|---|
| 299 |  | 
|---|
| 300 | #include "Common/Stats.h" | 
|---|
| 301 |  | 
|---|
| 302 | namespace ast { | 
|---|
| 303 | extern struct PassVisitorStats { | 
|---|
| 304 | size_t depth = 0; | 
|---|
| 305 | Stats::Counters::MaxCounter<double> * max = nullptr; | 
|---|
| 306 | Stats::Counters::AverageCounter<double> * avg = nullptr; | 
|---|
| 307 | } pass_visitor_stats; | 
|---|
| 308 | } | 
|---|
| 309 |  | 
|---|
| 310 | #include "AST/Pass.impl.hpp" | 
|---|