duke@435: /*
stefank@2314:  * Copyright (c) 2005, 2010, Oracle and/or its affiliates. All rights reserved.
duke@435:  * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
duke@435:  *
duke@435:  * This code is free software; you can redistribute it and/or modify it
duke@435:  * under the terms of the GNU General Public License version 2 only, as
duke@435:  * published by the Free Software Foundation.
duke@435:  *
duke@435:  * This code is distributed in the hope that it will be useful, but WITHOUT
duke@435:  * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
duke@435:  * FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
duke@435:  * version 2 for more details (a copy is included in the LICENSE file that
duke@435:  * accompanied this code).
duke@435:  *
duke@435:  * You should have received a copy of the GNU General Public License version
duke@435:  * 2 along with this work; if not, write to the Free Software Foundation,
duke@435:  * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
duke@435:  *
trims@1907:  * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA
trims@1907:  * or visit www.oracle.com if you need additional information or have any
trims@1907:  * questions.
duke@435:  *
duke@435:  */
duke@435: 
stefank@2314: #ifndef SHARE_VM_UTILITIES_DTRACE_HPP
stefank@2314: #define SHARE_VM_UTILITIES_DTRACE_HPP
stefank@2314: 
duke@435: #if defined(SOLARIS) && defined(DTRACE_ENABLED)
duke@435: 
duke@435: #include <sys/sdt.h>
duke@435: 
duke@435: #define DTRACE_ONLY(x) x
duke@435: #define NOT_DTRACE(x)
duke@435: 
jcoomes@1902: // Work around dtrace tail call bug 6672627 until it is fixed in solaris 10.
jcoomes@1902: #define HS_DTRACE_WORKAROUND_TAIL_CALL_BUG() \
jcoomes@1902:   do { volatile size_t dtrace_workaround_tail_call_bug = 1; } while (0)
jcoomes@1902: 
duke@435: #else // ndef SOLARIS || ndef DTRACE_ENABLED
duke@435: 
duke@435: #define DTRACE_ONLY(x)
duke@435: #define NOT_DTRACE(x) x
duke@435: 
duke@435: #define DTRACE_PROBE(a,b) {;}
duke@435: #define DTRACE_PROBE1(a,b,c) {;}
duke@435: #define DTRACE_PROBE2(a,b,c,d) {;}
duke@435: #define DTRACE_PROBE3(a,b,c,d,e) {;}
duke@435: #define DTRACE_PROBE4(a,b,c,d,e,f) {;}
duke@435: #define DTRACE_PROBE5(a,b,c,d,e,f,g) {;}
duke@435: 
jcoomes@1902: #define HS_DTRACE_WORKAROUND_TAIL_CALL_BUG()
jcoomes@1902: 
duke@435: #endif
duke@435: 
duke@435: #define HS_DTRACE_PROBE_FN(provider,name)\
duke@435:   __dtrace_##provider##___##name
duke@435: 
duke@435: #define HS_DTRACE_PROBE_DECL_N(provider,name,args) \
duke@435:   DTRACE_ONLY(extern "C" void HS_DTRACE_PROBE_FN(provider,name) args)
duke@435: #define HS_DTRACE_PROBE_CDECL_N(provider,name,args) \
duke@435:   DTRACE_ONLY(extern void HS_DTRACE_PROBE_FN(provider,name) args)
duke@435: 
duke@435: /* Dtrace probe declarations */
duke@435: #define HS_DTRACE_PROBE_DECL(provider,name) \
duke@435:   HS_DTRACE_PROBE_DECL0(provider,name)
duke@435: #define HS_DTRACE_PROBE_DECL0(provider,name)\
duke@435:   HS_DTRACE_PROBE_DECL_N(provider,name,(void))
duke@435: #define HS_DTRACE_PROBE_DECL1(provider,name,t0)\
duke@435:   HS_DTRACE_PROBE_DECL_N(provider,name,(uintptr_t))
duke@435: #define HS_DTRACE_PROBE_DECL2(provider,name,t0,t1)\
duke@435:   HS_DTRACE_PROBE_DECL_N(provider,name,(uintptr_t,uintptr_t))
duke@435: #define HS_DTRACE_PROBE_DECL3(provider,name,t0,t1,t2)\
duke@435:   HS_DTRACE_PROBE_DECL_N(provider,name,(uintptr_t,uintptr_t,uintptr_t))
duke@435: #define HS_DTRACE_PROBE_DECL4(provider,name,t0,t1,t2,t3)\
duke@435:   HS_DTRACE_PROBE_DECL_N(provider,name,(uintptr_t,uintptr_t,uintptr_t,\
duke@435:     uintptr_t))
duke@435: #define HS_DTRACE_PROBE_DECL5(provider,name,t0,t1,t2,t3,t4)\
duke@435:   HS_DTRACE_PROBE_DECL_N(provider,name,(\
duke@435:     uintptr_t,uintptr_t,uintptr_t,uintptr_t,uintptr_t))
duke@435: #define HS_DTRACE_PROBE_DECL6(provider,name,t0,t1,t2,t3,t4,t5)\
duke@435:   HS_DTRACE_PROBE_DECL_N(provider,name,(\
duke@435:     uintptr_t,uintptr_t,uintptr_t,uintptr_t,uintptr_t,uintptr_t))
duke@435: #define HS_DTRACE_PROBE_DECL7(provider,name,t0,t1,t2,t3,t4,t5,t6)\
duke@435:   HS_DTRACE_PROBE_DECL_N(provider,name,(\
duke@435:     uintptr_t,uintptr_t,uintptr_t,uintptr_t,uintptr_t,uintptr_t,uintptr_t))
duke@435: #define HS_DTRACE_PROBE_DECL8(provider,name,t0,t1,t2,t3,t4,t5,t6,t7)\
duke@435:   HS_DTRACE_PROBE_DECL_N(provider,name,(\
duke@435:     uintptr_t,uintptr_t,uintptr_t,uintptr_t,uintptr_t,uintptr_t,uintptr_t,\
duke@435:     uintptr_t))
duke@435: #define HS_DTRACE_PROBE_DECL9(provider,name,t0,t1,t2,t3,t4,t5,t6,t7,t8)\
duke@435:   HS_DTRACE_PROBE_DECL_N(provider,name,(\
duke@435:     uintptr_t,uintptr_t,uintptr_t,uintptr_t,uintptr_t,uintptr_t,uintptr_t,\
duke@435:     uintptr_t,uintptr_t))
duke@435: #define HS_DTRACE_PROBE_DECL10(provider,name,t0,t1,t2,t3,t4,t5,t6,t7,t8,t9)\
duke@435:   HS_DTRACE_PROBE_DECL_N(provider,name,(\
duke@435:     uintptr_t,uintptr_t,uintptr_t,uintptr_t,uintptr_t,uintptr_t,uintptr_t,\
duke@435:     uintptr_t,uintptr_t,uintptr_t))
duke@435: 
duke@435: /* Dtrace probe definitions */
duke@435: #define HS_DTRACE_PROBE_N(provider,name, args) \
duke@435:   DTRACE_ONLY(HS_DTRACE_PROBE_FN(provider,name) args)
duke@435: 
duke@435: #define HS_DTRACE_PROBE(provider,name) HS_DTRACE_PROBE0(provider,name)
duke@435: #define HS_DTRACE_PROBE0(provider,name)\
duke@435:   HS_DTRACE_PROBE_N(provider,name,())
duke@435: #define HS_DTRACE_PROBE1(provider,name,a0)\
duke@435:   HS_DTRACE_PROBE_N(provider,name,((uintptr_t)a0))
duke@435: #define HS_DTRACE_PROBE2(provider,name,a0,a1)\
duke@435:   HS_DTRACE_PROBE_N(provider,name,((uintptr_t)a0,(uintptr_t)a1))
duke@435: #define HS_DTRACE_PROBE3(provider,name,a0,a1,a2)\
duke@435:   HS_DTRACE_PROBE_N(provider,name,((uintptr_t)a0,(uintptr_t)a1,(uintptr_t)a2))
duke@435: #define HS_DTRACE_PROBE4(provider,name,a0,a1,a2,a3)\
duke@435:   HS_DTRACE_PROBE_N(provider,name,((uintptr_t)a0,(uintptr_t)a1,(uintptr_t)a2,\
duke@435:     (uintptr_t)a3))
duke@435: #define HS_DTRACE_PROBE5(provider,name,a0,a1,a2,a3,a4)\
duke@435:   HS_DTRACE_PROBE_N(provider,name,((uintptr_t)a0,(uintptr_t)a1,(uintptr_t)a2,\
duke@435:     (uintptr_t)a3,(uintptr_t)a4))
duke@435: #define HS_DTRACE_PROBE6(provider,name,a0,a1,a2,a3,a4,a5)\
duke@435:   HS_DTRACE_PROBE_N(provider,name,((uintptr_t)a0,(uintptr_t)a1,(uintptr_t)a2,\
duke@435:     (uintptr_t)a3,(uintptr_t)a4,(uintptr_t)a5))
duke@435: #define HS_DTRACE_PROBE7(provider,name,a0,a1,a2,a3,a4,a5,a6)\
duke@435:   HS_DTRACE_PROBE_N(provider,name,((uintptr_t)a0,(uintptr_t)a1,(uintptr_t)a2,\
duke@435:     (uintptr_t)a3,(uintptr_t)a4,(uintptr_t)a5,(uintptr_t)a6))
duke@435: #define HS_DTRACE_PROBE8(provider,name,a0,a1,a2,a3,a4,a5,a6,a7)\
duke@435:   HS_DTRACE_PROBE_N(provider,name,((uintptr_t)a0,(uintptr_t)a1,(uintptr_t)a2,\
duke@435:     (uintptr_t)a3,(uintptr_t)a4,(uintptr_t)a5,(uintptr_t)a6,(uintptr_t)a7))
duke@435: #define HS_DTRACE_PROBE9(provider,name,a0,a1,a2,a3,a4,a5,a6,a7,a8)\
duke@435:   HS_DTRACE_PROBE_N(provider,name,((uintptr_t)a0,(uintptr_t)a1,(uintptr_t)a2,\
duke@435:     (uintptr_t)a3,(uintptr_t)a4,(uintptr_t)a5,(uintptr_t)a6,(uintptr_t)a7,\
duke@435:     (uintptr_t)a8))
duke@435: #define HS_DTRACE_PROBE10(provider,name,a0,a1,a2,a3,a4,a5,a6,a7,a8,a9)\
duke@435:   HS_DTRACE_PROBE_N(provider,name,((uintptr_t)a0,(uintptr_t)a1,(uintptr_t)a2,\
duke@435:     (uintptr_t)a3,(uintptr_t)a4,(uintptr_t)a5,(uintptr_t)a6,(uintptr_t)a7,\
duke@435:     (uintptr_t)a8,(uintptr_t)a9))
stefank@2314: 
stefank@2314: #endif // SHARE_VM_UTILITIES_DTRACE_HPP