aboutsummaryrefslogtreecommitdiffstats
path: root/gcc-4.6/libgomp/ordered.c
diff options
context:
space:
mode:
authorDan Albert <danalbert@google.com>2015-06-17 11:09:54 -0700
committerDan Albert <danalbert@google.com>2015-06-17 14:15:22 -0700
commitf378ebf14df0952eae870c9865bab8326aa8f137 (patch)
tree31794503eb2a8c64ea5f313b93100f1163afcffb /gcc-4.6/libgomp/ordered.c
parent2c58169824949d3a597d9fa81931e001ef9b1bd0 (diff)
downloadtoolchain_gcc-f378ebf14df0952eae870c9865bab8326aa8f137.tar.gz
toolchain_gcc-f378ebf14df0952eae870c9865bab8326aa8f137.tar.bz2
toolchain_gcc-f378ebf14df0952eae870c9865bab8326aa8f137.zip
Delete old versions of GCC.
Change-Id: I710f125d905290e1024cbd67f48299861790c66c
Diffstat (limited to 'gcc-4.6/libgomp/ordered.c')
-rw-r--r--gcc-4.6/libgomp/ordered.c246
1 files changed, 0 insertions, 246 deletions
diff --git a/gcc-4.6/libgomp/ordered.c b/gcc-4.6/libgomp/ordered.c
deleted file mode 100644
index e5673fe1c..000000000
--- a/gcc-4.6/libgomp/ordered.c
+++ /dev/null
@@ -1,246 +0,0 @@
-/* Copyright (C) 2005, 2009 Free Software Foundation, Inc.
- Contributed by Richard Henderson <rth@redhat.com>.
-
- This file is part of the GNU OpenMP Library (libgomp).
-
- Libgomp is free software; you can redistribute it and/or modify it
- under the terms of the GNU General Public License as published by
- the Free Software Foundation; either version 3, or (at your option)
- any later version.
-
- Libgomp is distributed in the hope that it will be useful, but WITHOUT ANY
- WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
- FOR A PARTICULAR PURPOSE. See the GNU General Public License for
- more details.
-
- Under Section 7 of GPL version 3, you are granted additional
- permissions described in the GCC Runtime Library Exception, version
- 3.1, as published by the Free Software Foundation.
-
- You should have received a copy of the GNU General Public License and
- a copy of the GCC Runtime Library Exception along with this program;
- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
- <http://www.gnu.org/licenses/>. */
-
-/* This file handles the ORDERED construct. */
-
-#include "libgomp.h"
-
-
-/* This function is called when first allocating an iteration block. That
- is, the thread is not currently on the queue. The work-share lock must
- be held on entry. */
-
-void
-gomp_ordered_first (void)
-{
- struct gomp_thread *thr = gomp_thread ();
- struct gomp_team *team = thr->ts.team;
- struct gomp_work_share *ws = thr->ts.work_share;
- unsigned index;
-
- /* Work share constructs can be orphaned. */
- if (team == NULL || team->nthreads == 1)
- return;
-
- index = ws->ordered_cur + ws->ordered_num_used;
- if (index >= team->nthreads)
- index -= team->nthreads;
- ws->ordered_team_ids[index] = thr->ts.team_id;
-
- /* If this is the first and only thread in the queue, then there is
- no one to release us when we get to our ordered section. Post to
- our own release queue now so that we won't block later. */
- if (ws->ordered_num_used++ == 0)
- gomp_sem_post (team->ordered_release[thr->ts.team_id]);
-}
-
-/* This function is called when completing the last iteration block. That
- is, there are no more iterations to perform and so the thread should be
- removed from the queue entirely. Because of the way ORDERED blocks are
- managed, it follows that we currently own access to the ORDERED block,
- and should now pass it on to the next thread. The work-share lock must
- be held on entry. */
-
-void
-gomp_ordered_last (void)
-{
- struct gomp_thread *thr = gomp_thread ();
- struct gomp_team *team = thr->ts.team;
- struct gomp_work_share *ws = thr->ts.work_share;
- unsigned next_id;
-
- /* Work share constructs can be orphaned. */
- if (team == NULL || team->nthreads == 1)
- return;
-
- /* We're no longer the owner. */
- ws->ordered_owner = -1;
-
- /* If we're not the last thread in the queue, then wake the next. */
- if (--ws->ordered_num_used > 0)
- {
- unsigned next = ws->ordered_cur + 1;
- if (next == team->nthreads)
- next = 0;
- ws->ordered_cur = next;
-
- next_id = ws->ordered_team_ids[next];
- gomp_sem_post (team->ordered_release[next_id]);
- }
-}
-
-
-/* This function is called when allocating a subsequent allocation block.
- That is, we're done with the current iteration block and we're allocating
- another. This is the logical combination of a call to gomp_ordered_last
- followed by a call to gomp_ordered_first. The work-share lock must be
- held on entry. */
-
-void
-gomp_ordered_next (void)
-{
- struct gomp_thread *thr = gomp_thread ();
- struct gomp_team *team = thr->ts.team;
- struct gomp_work_share *ws = thr->ts.work_share;
- unsigned index, next_id;
-
- /* Work share constructs can be orphaned. */
- if (team == NULL || team->nthreads == 1)
- return;
-
- /* We're no longer the owner. */
- ws->ordered_owner = -1;
-
- /* If there's only one thread in the queue, that must be us. */
- if (ws->ordered_num_used == 1)
- {
- /* We have a similar situation as in gomp_ordered_first
- where we need to post to our own release semaphore. */
- gomp_sem_post (team->ordered_release[thr->ts.team_id]);
- return;
- }
-
- /* If the queue is entirely full, then we move ourself to the end of
- the queue merely by incrementing ordered_cur. Only if it's not
- full do we have to write our id. */
- if (ws->ordered_num_used < team->nthreads)
- {
- index = ws->ordered_cur + ws->ordered_num_used;
- if (index >= team->nthreads)
- index -= team->nthreads;
- ws->ordered_team_ids[index] = thr->ts.team_id;
- }
-
- index = ws->ordered_cur + 1;
- if (index == team->nthreads)
- index = 0;
- ws->ordered_cur = index;
-
- next_id = ws->ordered_team_ids[index];
- gomp_sem_post (team->ordered_release[next_id]);
-}
-
-
-/* This function is called when a statically scheduled loop is first
- being created. */
-
-void
-gomp_ordered_static_init (void)
-{
- struct gomp_thread *thr = gomp_thread ();
- struct gomp_team *team = thr->ts.team;
-
- if (team == NULL || team->nthreads == 1)
- return;
-
- gomp_sem_post (team->ordered_release[0]);
-}
-
-/* This function is called when a statically scheduled loop is moving to
- the next allocation block. Static schedules are not first come first
- served like the others, so we're to move to the numerically next thread,
- not the next thread on a list. The work-share lock should *not* be held
- on entry. */
-
-void
-gomp_ordered_static_next (void)
-{
- struct gomp_thread *thr = gomp_thread ();
- struct gomp_team *team = thr->ts.team;
- struct gomp_work_share *ws = thr->ts.work_share;
- unsigned id = thr->ts.team_id;
-
- if (team == NULL || team->nthreads == 1)
- return;
-
- ws->ordered_owner = -1;
-
- /* This thread currently owns the lock. Increment the owner. */
- if (++id == team->nthreads)
- id = 0;
- ws->ordered_team_ids[0] = id;
- gomp_sem_post (team->ordered_release[id]);
-}
-
-/* This function is called when we need to assert that the thread owns the
- ordered section. Due to the problem of posted-but-not-waited semaphores,
- this needs to happen before completing a loop iteration. */
-
-void
-gomp_ordered_sync (void)
-{
- struct gomp_thread *thr = gomp_thread ();
- struct gomp_team *team = thr->ts.team;
- struct gomp_work_share *ws = thr->ts.work_share;
-
- /* Work share constructs can be orphaned. But this clearly means that
- we are the only thread, and so we automatically own the section. */
- if (team == NULL || team->nthreads == 1)
- return;
-
- /* ??? I believe it to be safe to access this data without taking the
- ws->lock. The only presumed race condition is with the previous
- thread on the queue incrementing ordered_cur such that it points
- to us, concurrently with our check below. But our team_id is
- already present in the queue, and the other thread will always
- post to our release semaphore. So the two cases are that we will
- either win the race an momentarily block on the semaphore, or lose
- the race and find the semaphore already unlocked and so not block.
- Either way we get correct results. */
-
- if (ws->ordered_owner != thr->ts.team_id)
- {
- gomp_sem_wait (team->ordered_release[thr->ts.team_id]);
- ws->ordered_owner = thr->ts.team_id;
- }
-}
-
-/* This function is called by user code when encountering the start of an
- ORDERED block. We must check to see if the current thread is at the
- head of the queue, and if not, block. */
-
-#ifdef HAVE_ATTRIBUTE_ALIAS
-extern void GOMP_ordered_start (void)
- __attribute__((alias ("gomp_ordered_sync")));
-#else
-void
-GOMP_ordered_start (void)
-{
- gomp_ordered_sync ();
-}
-#endif
-
-/* This function is called by user code when encountering the end of an
- ORDERED block. With the current ORDERED implementation there's nothing
- for us to do.
-
- However, the current implementation has a flaw in that it does not allow
- the next thread into the ORDERED section immediately after the current
- thread exits the ORDERED section in its last iteration. The existance
- of this function allows the implementation to change. */
-
-void
-GOMP_ordered_end (void)
-{
-}