1 //===-- tools/f18/stub-evaluate.cpp ---------------------------------------===// 2 // 3 // Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions. 4 // See https://llvm.org/LICENSE.txt for license information. 5 // SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception 6 // 7 //===----------------------------------------------------------------------===// 8 9 // The parse tree has slots in which pointers to the results of semantic 10 // analysis may be placed. When using the parser without the semantics 11 // libraries, as here, we need to stub out the dependences on the external 12 // destructors, which will never actually be called. 13 14 #include "flang/Common/indirection.h" 15 16 namespace Fortran::evaluate { 17 struct GenericExprWrapper { 18 ~GenericExprWrapper(); 19 }; 20 GenericExprWrapper::~GenericExprWrapper() {} 21 struct GenericAssignmentWrapper { 22 ~GenericAssignmentWrapper(); 23 }; 24 GenericAssignmentWrapper::~GenericAssignmentWrapper() {} 25 struct ProcedureRef { 26 ~ProcedureRef(); 27 }; 28 ProcedureRef::~ProcedureRef() {} 29 } // namespace Fortran::evaluate 30 31 DEFINE_DELETER(Fortran::evaluate::GenericExprWrapper) 32 DEFINE_DELETER(Fortran::evaluate::GenericAssignmentWrapper) 33 DEFINE_DELETER(Fortran::evaluate::ProcedureRef) 34