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 // deleters, which will never actually be called. 13 14 namespace Fortran::evaluate { 15 struct GenericExprWrapper { 16 static void Deleter(GenericExprWrapper *); 17 }; Deleter(GenericExprWrapper *)18void GenericExprWrapper::Deleter(GenericExprWrapper *) {} 19 struct GenericAssignmentWrapper { 20 static void Deleter(GenericAssignmentWrapper *); 21 }; Deleter(GenericAssignmentWrapper *)22void GenericAssignmentWrapper::Deleter(GenericAssignmentWrapper *) {} 23 struct ProcedureRef { 24 static void Deleter(ProcedureRef *); 25 }; Deleter(ProcedureRef *)26void ProcedureRef::Deleter(ProcedureRef *) {} 27 } // namespace Fortran::evaluate 28