This is an archive of the discontinued LLVM Phabricator instance.

[OMPT] Fix type mismatch in omp_control_tool() implementation that makes it run incorrectly on 32-bit machines
ClosedPublic

Authored by pawosm01 on Jan 9 2018, 2:12 AM.

Reviewers

Commits

LGTM

This revision is now accepted and ready to land.Jan 9 2018, 2:14 AM

This revision was automatically updated to reflect the committed changes.

Path

Size

openmp/

trunk/

runtime/

src/

2 lines

Show First 20 Lines • Show All 339 Lines • ▼ Show 20 Lines	#else
thread = __kmp_threads[gtid];		thread = __kmp_threads[gtid];
// return thread -> th.th_team -> t.t_current_task[		// return thread -> th.th_team -> t.t_current_task[
// thread->th.th_info.ds.ds_tid ] -> icvs.nproc;		// thread->th.th_info.ds.ds_tid ] -> icvs.nproc;
return thread->th.th_current_task->td_icvs.nproc;		return thread->th.th_current_task->td_icvs.nproc;
#endif		#endif
}		}

#if OMP_50_ENABLED		#if OMP_50_ENABLED
int FTN_STDCALL FTN_CONTROL_TOOL(uint64_t command, uint64_t modifier,		int FTN_STDCALL FTN_CONTROL_TOOL(int command, int modifier,
void *arg) {		void *arg) {
#if defined(KMP_STUB) \|\| !OMPT_SUPPORT		#if defined(KMP_STUB) \|\| !OMPT_SUPPORT
return -2;		return -2;
#else		#else
OMPT_STORE_RETURN_ADDRESS(__kmp_entry_gtid());		OMPT_STORE_RETURN_ADDRESS(__kmp_entry_gtid());
if (!TCR_4(__kmp_init_middle)) {		if (!TCR_4(__kmp_init_middle)) {
return -2;		return -2;
}		}
▲ Show 20 Lines • Show All 944 Lines • Show Last 20 Lines