1 //===-- Pointer.h - generate pointer runtime API calls-----------*- C++ -*-===// 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 #ifndef FORTRAN_OPTIMIZER_BUILDER_RUNTIME_POINTER_H 10 #define FORTRAN_OPTIMIZER_BUILDER_RUNTIME_POINTER_H 11 12 #include "mlir/IR/Value.h" 13 14 namespace mlir { 15 class Location; 16 } // namespace mlir 17 18 namespace fir { 19 class FirOpBuilder; 20 } 21 22 namespace fir::runtime { 23 24 /// Generate runtime call to associate \p target address of scalar 25 /// with the \p desc pointer descriptor. 26 void genPointerAssociateScalar(fir::FirOpBuilder &builder, mlir::Location loc, 27 mlir::Value desc, mlir::Value target); 28 29 } // namespace fir::runtime 30 #endif // FORTRAN_OPTIMIZER_BUILDER_RUNTIME_POINTER_H 31