drd/drd_gomp_intercepts.c

/* -*- mode: C; c-basic-offset: 3; -*- */

/*--------------------------------------------------------------------*/
/*--- Client-space code for drd.             drd_gomp_intercepts.c ---*/
/*--------------------------------------------------------------------*/

/*
  This file is part of drd, a thread error detector.

  Copyright (C) 2006-2009 Bart Van Assche <bart.vanassche@gmail.com>.

  This program 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 2 of the
  License, or (at your option) any later version.

  This program 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.

  You should have received a copy of the GNU General Public License
  along with this program; if not, write to the Free Software
  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
  02111-1307, USA.

  The GNU General Public License is contained in the file COPYING.
*/

/* ---------------------------------------------------------------------
   ALL THE CODE IN THIS FILE RUNS ON THE SIMULATED CPU. 

   These functions are not called directly - they're the targets of code
   redirection or load notifications (see pub_core_redir.h for info).
   They're named weirdly so that the intercept code can find them when the
   shared object is initially loaded.

   Note that this filename has the "drd_" prefix because it can appear
   in stack traces, and the "drd_" makes it a little clearer that it
   originates from Valgrind.
   ------------------------------------------------------------------ */

#include <assert.h>
#include "drd_clientreq.h"
#include "pub_tool_redir.h"


// Defines.

#define GOMP_FUNC(ret_ty, f, args...)                           \
   ret_ty VG_WRAP_FUNCTION_ZZ(libgompZdsoZd1Za,f)(args);        \
   ret_ty VG_WRAP_FUNCTION_ZZ(libgompZdsoZd1Za,f)(args)


// Type definitions

typedef void* gomp_barrier_t;


// Function definitions.

GOMP_FUNC(void, gompZubarrierZuinit, // gomp_barrier_init
          gomp_barrier_t* barrier, unsigned count)
{
   int    ret;
   int    res;
   OrigFn fn;

   VALGRIND_DO_CLIENT_REQUEST(res, -1, VG_USERREQ__PRE_BARRIER_INIT,
                              barrier, gomp_barrier, count, 0, 0);
   VALGRIND_GET_ORIG_FN(fn);
   CALL_FN_W_WW(ret, fn, barrier, count);
   VALGRIND_DO_CLIENT_REQUEST(res, -1, VG_USERREQ__POST_BARRIER_INIT,
                              barrier, gomp_barrier, 0, 0, 0);
}

GOMP_FUNC(void, gompZubarrierZureinit, // gomp_barrier_reinit
          gomp_barrier_t* barrier, unsigned count)
{
   int    ret;
   int    res;
   OrigFn fn;
   VALGRIND_DO_CLIENT_REQUEST(res, -1, VG_USERREQ__PRE_BARRIER_INIT,
                              barrier, gomp_barrier, count, 1, 0);
   VALGRIND_GET_ORIG_FN(fn);
   CALL_FN_W_WW(ret, fn, barrier, count);
   VALGRIND_DO_CLIENT_REQUEST(res, -1, VG_USERREQ__POST_BARRIER_INIT,
                              barrier, gomp_barrier, 0, 0, 0);
}

GOMP_FUNC(void, gompZubarrierZudestroy, // gomp_barrier_destroy
          gomp_barrier_t* barrier)
{
   int    ret;
   int    res;
   OrigFn fn;
   VALGRIND_GET_ORIG_FN(fn);
   VALGRIND_DO_CLIENT_REQUEST(res, -1, VG_USERREQ__PRE_BARRIER_DESTROY,
                              barrier, gomp_barrier, 0, 0, 0);
   CALL_FN_W_W(ret, fn, barrier);
   VALGRIND_DO_CLIENT_REQUEST(res, -1, VG_USERREQ__POST_BARRIER_DESTROY,
                              barrier, gomp_barrier, 0, 0, 0);
}

GOMP_FUNC(void, gompZubarrierZuwait, // gomp_barrier_wait
          gomp_barrier_t* barrier)
{
   int    ret;
   int    res;
   OrigFn fn;
   VALGRIND_GET_ORIG_FN(fn);
   VALGRIND_DO_CLIENT_REQUEST(res, -1, VG_USERREQ__PRE_BARRIER_WAIT,
                              barrier, gomp_barrier, 0, 0, 0);
   CALL_FN_W_W(ret, fn, barrier);
   VALGRIND_DO_CLIENT_REQUEST(res, -1, VG_USERREQ__POST_BARRIER_WAIT,
                              barrier, gomp_barrier, 1, 0, 0);
}