Differential D14746 Diff 43515 runtime/src/kmp_tasking.c

Changeset View

Standalone View

runtime/src/kmp_tasking.c

Show First 20 Lines • Show All 457 Lines • ▼ Show 20 Lines	if (ompt_enabled &&
kmp_taskdata_t *parent = taskdata->td_parent;		kmp_taskdata_t *parent = taskdata->td_parent;
ompt_callbacks.ompt_callback(ompt_event_task_begin)(		ompt_callbacks.ompt_callback(ompt_event_task_begin)(
parent ? parent->ompt_task_info.task_id : ompt_task_id_none,		parent ? parent->ompt_task_info.task_id : ompt_task_id_none,
parent ? &(parent->ompt_task_info.frame) : NULL,		parent ? &(parent->ompt_task_info.frame) : NULL,
taskdata->ompt_task_info.task_id,		taskdata->ompt_task_info.task_id,
taskdata->ompt_task_info.function);		taskdata->ompt_task_info.function);
}		}
#endif		#endif
		#if OMPT_SUPPORT && OMPT_TRACE
		/* OMPT emit all dependences if requested by the tool */
		if (ompt_enabled && taskdata->ompt_task_info.ndeps > 0 &&
		ompt_callbacks.ompt_callback(ompt_event_task_dependences))
		{
		ompt_callbacks.ompt_callback(ompt_event_task_dependences)(
		taskdata->ompt_task_info.task_id,
		taskdata->ompt_task_info.deps,
		taskdata->ompt_task_info.ndeps
		);
		/* We can now free the allocated memory for the dependencies */
		KMP_OMPT_DEPS_FREE (thread, taskdata->ompt_task_info.deps);
		taskdata->ompt_task_info.deps = NULL;
		taskdata->ompt_task_info.ndeps = 0;
		}
		#endif /* OMPT_SUPPORT && OMPT_TRACE */
		HahnfeldUnsubmitted Not Done Reply Inline Actions Please guard with `#if OMP_40_ENABLED` Hahnfeld: Please guard with `#if OMP_40_ENABLED`

return;		return;
}		}


//----------------------------------------------------------------------		//----------------------------------------------------------------------
// __kmpc_omp_task_begin_if0: report that a given serialized task has started execution		// __kmpc_omp_task_begin_if0: report that a given serialized task has started execution
// loc_ref: source location information; points to beginning of task block.		// loc_ref: source location information; points to beginning of task block.
▲ Show 20 Lines • Show All 283 Lines • ▼ Show 20 Lines
static inline void		static inline void
__kmp_task_init_ompt( kmp_taskdata_t * task, int tid, void * function )		__kmp_task_init_ompt( kmp_taskdata_t * task, int tid, void * function )
{		{
if (ompt_enabled) {		if (ompt_enabled) {
task->ompt_task_info.task_id = __ompt_task_id_new(tid);		task->ompt_task_info.task_id = __ompt_task_id_new(tid);
task->ompt_task_info.function = function;		task->ompt_task_info.function = function;
task->ompt_task_info.frame.exit_runtime_frame = NULL;		task->ompt_task_info.frame.exit_runtime_frame = NULL;
task->ompt_task_info.frame.reenter_runtime_frame = NULL;		task->ompt_task_info.frame.reenter_runtime_frame = NULL;
		task->ompt_task_info.ndeps = 0;
		task->ompt_task_info.deps = NULL;
		HahnfeldUnsubmitted Not Done Reply Inline Actions see above Hahnfeld: see above
}		}
}		}
#endif		#endif


//----------------------------------------------------------------------------------------------------		//----------------------------------------------------------------------------------------------------
// __kmp_init_implicit_task: Initialize the appropriate fields in the implicit task for a given thread		// __kmp_init_implicit_task: Initialize the appropriate fields in the implicit task for a given thread
//		//
▲ Show 20 Lines • Show All 2,087 Lines • Show Last 20 Lines