/* * Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions. * See https://llvm.org/LICENSE.txt for license information. * SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception * */ /* * Modifications Copyright (c) 2019 Advanced Micro Devices, Inc. All rights reserved. * Notified per clause 4(b) of the license. * * * Support for x86-64 OpenMP offloading * Last modified: Apr 2020 */ #ifndef OUTLINER_H_ #define OUTLINER_H_ /** \file * \brief Various definitions for the outliner module */ #include "gbldefs.h" #include "global.h" #include "symtab.h" #include "ili.h" #include extern FILE *par_file1; extern FILE *par_file2; extern FILE *par_curfile; /* For OpenMP target accelerator, * the compilers outlines the same region multiple times. * Therefore outliner has following states. */ typedef enum { outliner_not_active = 0, /* Not outlining, temp files are empty */ outliner_active_host_par1 = 1, /* Host outlining, building ILI from parfile1 ilm */ outliner_active_host_par2 = 2, /* Host outlining, building ILI from parfile2 ilm */ outliner_active_switchfile = 3, /* Outlining recurs */ outliner_reset = 4, /* Reset files, go back to main ilm file. */ outliner_error = 5 } outliner_states_t; int ll_has_cuda_constructor(void); void ll_save_cuda_constructor(void); /** \brief ... */ bool ll_ilm_is_rewriting(void); /** \brief ... */ int ll_ad_outlined_func2(ILI_OP result_opc, ILI_OP call_opc, int sptr, int nargs, int *args); /** \brief ... */ SPTR ll_create_task_sptr(void); /** \brief ... */ int ll_get_gtid_addr_ili(void); /** \brief ... */ int ll_get_gtid_val_ili(void); /** \brief ... */ SPTR ll_get_gtid(void); /** \brief ... */ SPTR ll_get_hostprog_arg(int func_sptr, int whicharg); /** \brief ... */ SPTR ll_get_shared_arg(SPTR func_sptr); /** \brief ... */ int ll_get_uplevel_arg(void); /** \brief ... */ int ll_get_uplevel_offset(int sptr); /** \brief ... */ SPTR ll_get_uplevel_sym(void); /** \brief ... */ int ll_has_more_outlined(void); /** \brief ... */ int ll_load_outlined_args(int scope_blk_sptr, SPTR callee_sptr, bool clone); /** \brief ... */ int ll_make_outlined_call2(int func_sptr, int uplevel_ili); /** \brief ... */ int ll_make_outlined_call(int func_sptr, int arg1, int arg2, int arg3); /** \brief Create function and parameter list for an outlined function \param stblk_sptr references the arguments for the function to be outlined \param scope_sptr references the scope \param opc current opc */ SPTR ll_make_outlined_func_wopc(SPTR stblk_sptr, SPTR scope_sptr, ILM_OP opc); /** \brief Create function and parameter list for an outlined function \param stblk_sptr references the arguments for the function to be outlined \param scope_sptr references the scope */ SPTR ll_make_outlined_func(SPTR stblk_sptr, SPTR scope_sptr); /** \brief Create function and parameter list for an outlined function \param stblk_sptr references the arguments for the function to be outlined \param scope_sptr references the scope */ SPTR ll_make_outlined_func_target_device(SPTR stblk_sptr, SPTR scope_sptr, ILM_OP opc); /** \brief Create function for OpenMP target and parameter list for an outlined function \param stblk_sptr references the arguments for the function to be outlined \param scope_sptr references the scope */ SPTR ll_make_outlined_omptarget_func(SPTR stblk_sptr, SPTR scope_sptr, ILM_OP opc); /** \brief ... */ int ll_make_outlined_garg(int nargs, int *argili, DTYPE *arg_dtypes); /** \brief ... */ int ll_make_outlined_gjsr(int func_sptr, int nargs, int arg1, int arg2, int arg3); /** \brief ... */ int ll_make_outlined_task_call(int func_sptr, SPTR task_sptr); /** \brief Create function and parameter list for an outlined task \param stblk_sptr references the arguments for the task to be outlined */ SPTR ll_make_outlined_task(SPTR stblk_sptr, SPTR scope_sptr); /** \brief ... */ int *ll_make_sections_args(SPTR lbSym, SPTR ubSym, SPTR stSym, SPTR lastSym); /** \brief ... */ DTYPE ll_make_uplevel_type(SPTR stblk_sptr); /** \brief ... */ int llProcessNextTmpfile(void); /** \brief ... */ int ll_reset_parfile(void); /** \brief ... */ int ll_rewrite_ilms(int lineno, int ilmx, int len); /** \brief ... */ int ll_save_gtid_val(int bih); /** \brief ... */ SPTR llvmAddConcurEntryBlk(int bih); /** \brief ... */ int llvmGetExpbCurIlt(void); /** \brief ... */ int llvm_get_unique_sym(void); /** \brief ... */ int llvm_ilms_rewrite_mode(void); /** \brief Dump the list of variables for the parallel regions specified by 'sptr'. These variables should be used to make the uplevel struct when making a call to this outlined region. */ void dump_parsyms(int sptr, int isTeams); /** \brief ... */ void finish_taskdup_routine(int curilm, int fnsptr, INT offset); /** \brief ... */ void ilm_outlined_pad_ilm(int curilm); /** \brief ... */ void ll_make_ftn_outlined_params(int func_sptr, int paramct, DTYPE *argtype); /** \brief ... */ void ll_open_parfiles(void); /** \brief ... */ void ll_reset_gtid(void); /** \brief ... */ void ll_reset_outlined_func(void); /** \brief ... */ void ll_set_outlined_currsub(bool); /** \brief ... */ void ll_unlink_parfiles(void); /** \brief ... */ void llvmAddConcurExitBlk(int bih); /** \brief ... */ void llvmSetExpbCurIlt(void); /** \brief ... */ void llvm_set_unique_sym(int sptr); /** \brief ... */ void ll_write_ilm_end(void); /** \brief ... */ void ll_write_ilm_header(int outlined_sptr, int curilm); /** \brief ... */ void llWriteNopILM(int lineno, int ilmx, int len); /** \brief ... */ void restartRewritingILM(int curilm); /** \brief ... */ void setOutlinedPragma(int func_sptr, int saved); /** \brief ... */ void setRewritingILM(void); /** \brief ... */ void start_taskdup(int task_fnsptr, int curilm); /** \brief ... */ void stop_taskdup(int task_fnsptr, int curilm); /** \brief ... */ void unsetRewritingILM(void); /** \brief ... */ void update_acc_with_fn(int fnsptr); /** \brief Return size of shared variable for task */ ISZ_T getTaskSharedSize(SPTR scope_sptr); #if defined(OMP_OFFLOAD_LLVM) || defined(OMP_OFFLOAD_PGI) /** \brief Create an outlining function, which has function parameter for each symbol. */ SPTR ll_make_outlined_ompaccel_func(SPTR, SPTR, bool); /* AOCC begin */ /** \brief Create an outlining function that works for -Mx,232,0x1 implementing functions. This functions fetches every symbol from the uplevel chain and adds it to the outlined function. This is not important for regular -fopenmp implementation, but imperative for -fopenmp-target since the symbols for the outer uplevel (say the target uplevel that holds a parallel region) must be accessible in the inner ones. */ SPTR ll_make_outlined_ompaccel_func2(SPTR, SPTR, bool); /* AOCC end */ /** \brief Create an function call to the outlininin function. */ int ll_make_outlined_ompaccel_call(SPTR, SPTR); /** \brief Disable symbol replacement at ILM while generating device code */ void ompaccel_symreplacer(bool); /** \brief It is called when there is breduction ilm to avoid host reduction which is implemented by critical regions */ void ompaccel_notify_reduction(bool); /** \brief */ bool ompaccel_is_reduction_region(); /** \brief */ int mk_function_call(DTYPE, int, DTYPE *, int *, SPTR); #endif /** \brief test whether do outlining elision for the current opc or not. */ bool outlined_is_eliminated(ILM_OP opc); /** \brief test whether recompile the ILMs or not. */ bool outlined_need_recompile(); void ll_set_ompaccel_currfunc(bool isILMrecompile); #endif /* OUTLINER_H_ */