modules/operserv/memcheck.C

/**
 * memcheck.C: Invoke valgrind's memcheck while running.
 *
 * Copyright © 2007 Pippijn van Steenhoven / The Ermyth Team
 * Rights to this code are as documented in COPYING.
 *
 *
 * Portions of this file were derived from sources bearing the following license:
 * Copyright © 2007 Pippijn van Steenhoven / The Ermyth Team
 * Rights to this code are as documented in doc/pod/gplicense.pod.
 *
 * $Id: memcheck.C,v 1.5 2007-09-16 18:54:44 pippijn Exp $
 */

#include "atheme.h"
#include <ermyth/module.h>

#ifdef HAVE_VALGRIND_MEMCHECK_H
#include <valgrind/memcheck.h>
#endif

static char const rcsid[] = "$Id: memcheck.C,v 1.5 2007-09-16 18:54:44 pippijn Exp $";

REGISTER_MODULE ("operserv/memcheck", false, "The Ermyth Team <http://ermyth.one09.net>");

#ifdef HAVE_VALGRIND_MEMCHECK_H
static void
os_cmd_memcheck (sourceinfo_t *si, int parc, char *parv[])
{
#ifdef __x86_64__
  {
    unsigned int _qzz_res;
    {
      volatile unsigned long int _zzq_args[6];
      volatile unsigned long int _zzq_result;
      _zzq_args[0] = (unsigned long int)(VG_USERREQ__DO_LEAK_CHECK);
      _zzq_args[1] = (unsigned long int)(0);
      _zzq_args[2] = (unsigned long int)(0);
      _zzq_args[3] = (unsigned long int)(0);
      _zzq_args[4] = (unsigned long int)(0);
      _zzq_args[5] = (unsigned long int)(0);
      __asm__ volatile ("rolq $3,  %%rdi ; rolq $13, %%rdi\n\t"
                        "rolq $61, %%rdi ; rolq $51, %%rdi\n\t"
                        "xchgq %%rbx,%%rbx"
                        : "=d" (_zzq_result)
                        : "a" (&_zzq_args[0]), "0" (0)
                        : "cc", "memory" );
      _qzz_res = _zzq_result;
    }
  }
#else
  VALGRIND_DO_LEAK_CHECK;
#endif
  command_success_nodata (si, "Valgrind memcheck invoked.");
  return;
}

command_t const os_memcheck = { "MEMCHECK", N_("Invokes the valgrind memcheck."), AC_NONE, 0, os_cmd_memcheck };

E cmdvec os_cmdtree;
E helpvec os_helptree;
#endif

bool
_modinit (module *m)
{
#ifdef HAVE_VALGRIND_MEMCHECK_H
  os_cmdtree << os_memcheck;
  help_addentry (os_helptree, "MEMCHECK", "help/operserv/memcheck", NULL);
#endif

  return true;
}

void
_moddeinit ()
{
#ifdef HAVE_VALGRIND_MEMCHECK_H
  os_cmdtree >> os_memcheck;
  help_delentry (os_helptree, "MEMCHECK");
#endif
}
Revision:	1.6
Committed:	Sat Sep 22 14:27:28 2007 UTC (19 years, 1 month ago) by pippijn
Content type:	text/plain
Branch:	MAIN
CVS Tags:	HEAD
Changes since 1.5:	+6 -6 lines
Log Message:	split up ermyth into ermyth-modules, libermyth (currently just ermyth-util) and ermyth-core
#	User	Rev	Content
1	pippijn	1.5	/**
2			* memcheck.C: Invoke valgrind's memcheck while running.
3			*
4	pippijn	1.3	* Copyright © 2007 Pippijn van Steenhoven / The Ermyth Team
5	pippijn	1.5	* Rights to this code are as documented in COPYING.
6			*
7	pippijn	1.3	*
8	pippijn	1.5	* Portions of this file were derived from sources bearing the following license:
9			* Copyright © 2007 Pippijn van Steenhoven / The Ermyth Team
10			* Rights to this code are as documented in doc/pod/gplicense.pod.
11	pippijn	1.3	*
12	pippijn	1.6	* $Id: memcheck.C,v 1.5 2007-09-16 18:54:44 pippijn Exp $
13	pippijn	1.3	*/
14
15	pippijn	1.1	#include "atheme.h"
16	pippijn	1.3	#include <ermyth/module.h>
17	pippijn	1.1
18	pippijn	1.6	#ifdef HAVE_VALGRIND_MEMCHECK_H
19	pippijn	1.1	#include <valgrind/memcheck.h>
20			#endif
21
22	pippijn	1.6	static char const rcsid[] = "$Id: memcheck.C,v 1.5 2007-09-16 18:54:44 pippijn Exp $";
23	pippijn	1.1
24	pippijn	1.3	REGISTER_MODULE ("operserv/memcheck", false, "The Ermyth Team <http://ermyth.one09.net>");
25	pippijn	1.1
26	pippijn	1.6	#ifdef HAVE_VALGRIND_MEMCHECK_H
27	pippijn	1.1	static void
28			os_cmd_memcheck (sourceinfo_t si, int parc, char parv[])
29			{
30	pippijn	1.3	#ifdef __x86_64__
31			{
32			unsigned int _qzz_res;
33			{
34			volatile unsigned long int _zzq_args[6];
35			volatile unsigned long int _zzq_result;
36			_zzq_args[0] = (unsigned long int)(VG_USERREQ__DO_LEAK_CHECK);
37			_zzq_args[1] = (unsigned long int)(0);
38			_zzq_args[2] = (unsigned long int)(0);
39			_zzq_args[3] = (unsigned long int)(0);
40			_zzq_args[4] = (unsigned long int)(0);
41			_zzq_args[5] = (unsigned long int)(0);
42			__asm__ volatile ("rolq $3, %%rdi ; rolq $13, %%rdi\n\t"
43			"rolq $61, %%rdi ; rolq $51, %%rdi\n\t"
44			"xchgq %%rbx,%%rbx"
45			: "=d" (_zzq_result)
46			: "a" (&_zzq_args[0]), "0" (0)
47			: "cc", "memory" );
48			_qzz_res = _zzq_result;
49			}
50			}
51			#else
52	pippijn	1.1	VALGRIND_DO_LEAK_CHECK;
53	pippijn	1.3	#endif
54	pippijn	1.1	command_success_nodata (si, "Valgrind memcheck invoked.");
55			return;
56			}
57
58	pippijn	1.3	command_t const os_memcheck = { "MEMCHECK", N_("Invokes the valgrind memcheck."), AC_NONE, 0, os_cmd_memcheck };
59	pippijn	1.1
60	pippijn	1.3	E cmdvec os_cmdtree;
61			E helpvec os_helptree;
62	pippijn	1.1	#endif
63
64	pippijn	1.3	bool
65			_modinit (module *m)
66	pippijn	1.1	{
67	pippijn	1.6	#ifdef HAVE_VALGRIND_MEMCHECK_H
68	pippijn	1.1	os_cmdtree << os_memcheck;
69	pippijn	1.3	help_addentry (os_helptree, "MEMCHECK", "help/operserv/memcheck", NULL);
70	pippijn	1.1	#endif
71	pippijn	1.3
72			return true;
73	pippijn	1.1	}
74
75			void
76			_moddeinit ()
77			{
78	pippijn	1.6	#ifdef HAVE_VALGRIND_MEMCHECK_H
79	pippijn	1.1	os_cmdtree >> os_memcheck;
80	pippijn	1.3	help_delentry (os_helptree, "MEMCHECK");
81	pippijn	1.1	#endif
82			}