aoqi@0: <?xml version="1.0"?> 
aoqi@0: <!--
aoqi@0:  Copyright (c) 2002, 2014, Oracle and/or its affiliates. All rights reserved.
aoqi@0:  DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
aoqi@0: 
aoqi@0:  This code is free software; you can redistribute it and/or modify it
aoqi@0:  under the terms of the GNU General Public License version 2 only, as
aoqi@0:  published by the Free Software Foundation.
aoqi@0: 
aoqi@0:  This code is distributed in the hope that it will be useful, but WITHOUT
aoqi@0:  ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
aoqi@0:  FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
aoqi@0:  version 2 for more details (a copy is included in the LICENSE file that
aoqi@0:  accompanied this code).
aoqi@0: 
aoqi@0:  You should have received a copy of the GNU General Public License version
aoqi@0:  2 along with this work; if not, write to the Free Software Foundation,
aoqi@0:  Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
aoqi@0: 
aoqi@0:  Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA
aoqi@0:  or visit www.oracle.com if you need additional information or have any
aoqi@0:  questions.
aoqi@0:   
aoqi@0: -->
aoqi@0: 
aoqi@0: <xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version="1.0">
aoqi@0: 
aoqi@0: <xsl:import href="jvmtiLib.xsl"/>
aoqi@0: 
aoqi@0: <xsl:output method="text" indent="no" omit-xml-declaration="yes"/>
aoqi@0: 
aoqi@0: <xsl:param name="trace"></xsl:param>
aoqi@0: <xsl:param name="interface"></xsl:param>
aoqi@0: 
aoqi@0: 
aoqi@0: <xsl:template match="specification">
aoqi@0:   <xsl:call-template name="sourceHeader"/>
aoqi@0:   <xsl:text>
aoqi@0: # include "precompiled.hpp"
aoqi@0: # include "utilities/macros.hpp"
aoqi@0: #if INCLUDE_JVMTI
aoqi@0: # include "prims/jvmtiEnter.hpp"
aoqi@0: # include "prims/jvmtiRawMonitor.hpp"
aoqi@0: # include "prims/jvmtiUtil.hpp"
aoqi@0: 
aoqi@0: // There are known-bad format/arg pairings in the code generated by this file.
aoqi@0: PRAGMA_FORMAT_MUTE_WARNINGS_FOR_GCC
aoqi@0: 
aoqi@0: </xsl:text>
aoqi@0: 
aoqi@0:   <xsl:if test="$trace = 'Trace'">
aoqi@0:    <xsl:text>
aoqi@0: #ifdef JVMTI_TRACE
aoqi@0: </xsl:text>
aoqi@0:   </xsl:if>
aoqi@0: 
aoqi@0:  <xsl:if test="$trace != 'Trace'">
aoqi@0:     <xsl:text>
aoqi@0: 
aoqi@0: // Error names
aoqi@0: const char* JvmtiUtil::_error_names[] = {
aoqi@0: </xsl:text>
aoqi@0:     <xsl:call-template name="fillEntityName"> 
aoqi@0:       <xsl:with-param name="entities" select="errorsection/errorcategory/errorid"/>
aoqi@0:     </xsl:call-template>
aoqi@0:     <xsl:text>
aoqi@0: };
aoqi@0: 
aoqi@0: 
aoqi@0: // Event threaded
aoqi@0: const bool JvmtiUtil::_event_threaded[] = {
aoqi@0: </xsl:text>
aoqi@0:     <xsl:call-template name="fillEventThreaded"> 
aoqi@0:       <xsl:with-param name="entities" select="eventsection/event"/>
aoqi@0:     </xsl:call-template>
aoqi@0:     <xsl:text>
aoqi@0: };
aoqi@0: 
aoqi@0: </xsl:text>
aoqi@0:     <xsl:call-template name="eventCapabilitiesTest"/>
aoqi@0:  </xsl:if>
aoqi@0: 
aoqi@0:  <xsl:if test="$trace = 'Trace'">
aoqi@0: 
aoqi@0: <!--  all this just to return the highest event number -->
aoqi@0:   <xsl:variable name="maxEvent">
aoqi@0:     <xsl:for-each select="eventsection/event">
aoqi@0:       <xsl:variable name="mynum" select="@num"/>
aoqi@0:       <xsl:if test="count(../../eventsection/event[@num &gt; $mynum]) = 0">
aoqi@0:         <xsl:value-of select="@num"/>
aoqi@0:       </xsl:if>
aoqi@0:     </xsl:for-each>    
aoqi@0:   </xsl:variable>
aoqi@0: 
aoqi@0:   <xsl:text>jbyte JvmtiTrace::_event_trace_flags[</xsl:text>
aoqi@0:   <xsl:value-of select="1+$maxEvent"/>
aoqi@0:   <xsl:text>];
aoqi@0: 
aoqi@0: jint JvmtiTrace::_max_event_index = </xsl:text>
aoqi@0:   <xsl:value-of select="$maxEvent"/>
aoqi@0:   <xsl:text>;
aoqi@0: 
aoqi@0: // Event names
aoqi@0: const char* JvmtiTrace::_event_names[] = {
aoqi@0: </xsl:text>
aoqi@0:     <xsl:call-template name="fillEntityName"> 
aoqi@0:       <xsl:with-param name="entities" select="eventsection/event"/>
aoqi@0:     </xsl:call-template>
aoqi@0:     <xsl:text>
aoqi@0: };
aoqi@0: </xsl:text>
aoqi@0:     <xsl:apply-templates select="//constants[@kind='enum']"/>
aoqi@0:   </xsl:if>
aoqi@0:   <xsl:apply-templates select="functionsection"/>
aoqi@0: 
aoqi@0:   <xsl:if test="$trace='Trace'">
aoqi@0:    <xsl:text>
aoqi@0: #endif /*JVMTI_TRACE */
aoqi@0: </xsl:text>
aoqi@0:   </xsl:if>
aoqi@0: 
aoqi@0: </xsl:template>
aoqi@0: 
aoqi@0: <xsl:template match="constants">
aoqi@0:   <xsl:text>
aoqi@0: 
aoqi@0: // </xsl:text>
aoqi@0:   <xsl:value-of select="@label"/>
aoqi@0:   <xsl:text> names
aoqi@0: const char* </xsl:text>
aoqi@0:   <xsl:value-of select="@id"/>
aoqi@0:   <xsl:text>ConstantNames[] = {
aoqi@0: </xsl:text>
aoqi@0:   <xsl:apply-templates select="constant" mode="constname"/>
aoqi@0:   <xsl:text>  NULL
aoqi@0: };
aoqi@0: 
aoqi@0: // </xsl:text>
aoqi@0:   <xsl:value-of select="@label"/>
aoqi@0:   <xsl:text> value
aoqi@0: jint </xsl:text>
aoqi@0:   <xsl:value-of select="@id"/>
aoqi@0:   <xsl:text>ConstantValues[] = {
aoqi@0: </xsl:text>
aoqi@0:   <xsl:apply-templates select="constant" mode="constvalue"/>
aoqi@0:   <xsl:text>  0
aoqi@0: };
aoqi@0: 
aoqi@0: </xsl:text>
aoqi@0: </xsl:template>
aoqi@0: 
aoqi@0: <xsl:template match="constant" mode="constname">
aoqi@0:   <xsl:text>  "</xsl:text>
aoqi@0:   <xsl:value-of select="@id"/>
aoqi@0:   <xsl:text>",
aoqi@0: </xsl:text>
aoqi@0: </xsl:template>
aoqi@0: 
aoqi@0: <xsl:template match="constant" mode="constvalue">
aoqi@0:   <xsl:text>  </xsl:text>
aoqi@0:   <xsl:value-of select="@num"/>
aoqi@0:   <xsl:text>,
aoqi@0: </xsl:text>
aoqi@0: </xsl:template>
aoqi@0: 
aoqi@0: <xsl:template name="eventCapabilitiesTest">
aoqi@0:   <xsl:text>
aoqi@0: 
aoqi@0: // Check Event Capabilities
aoqi@0: const bool JvmtiUtil::has_event_capability(jvmtiEvent event_type, const jvmtiCapabilities* capabilities_ptr) {
aoqi@0:   switch (event_type) {
aoqi@0: </xsl:text>
aoqi@0:   <xsl:for-each select="//eventsection/event">
aoqi@0:     <xsl:variable name="capa" select="capabilities/required"/>
aoqi@0:     <xsl:if test="count($capa)">
aoqi@0:         <xsl:text>    case </xsl:text>
aoqi@0:         <xsl:value-of select="@const"/>
aoqi@0:         <xsl:text>:
aoqi@0:       return capabilities_ptr-&gt;</xsl:text>
aoqi@0:         <xsl:value-of select="$capa/@id"/>
aoqi@0:         <xsl:text> != 0;
aoqi@0: </xsl:text>
aoqi@0:     </xsl:if>
aoqi@0:   </xsl:for-each>
aoqi@0:   <xsl:text>  }
aoqi@0:   // if it does not have a capability it is required
aoqi@0:   return JNI_TRUE;
aoqi@0: }
aoqi@0: 
aoqi@0: </xsl:text>
aoqi@0: </xsl:template>
aoqi@0: 
aoqi@0: <xsl:template match="functionsection">
aoqi@0:   <xsl:if test="$trace='Trace'">
aoqi@0: 
aoqi@0: <!--  all this just to return the highest function number -->
aoqi@0:   <xsl:variable name="maxFunction">
aoqi@0:     <xsl:for-each select="category/function">
aoqi@0:       <xsl:variable name="mynum" select="@num"/>
aoqi@0:       <xsl:if test="count(../../category/function[@num &gt; $mynum]) = 0">
aoqi@0:         <xsl:value-of select="@num"/>
aoqi@0:       </xsl:if>
aoqi@0:     </xsl:for-each>    
aoqi@0:   </xsl:variable>
aoqi@0: 
aoqi@0:   <xsl:text>jbyte JvmtiTrace::_trace_flags[</xsl:text>
aoqi@0:   <xsl:value-of select="1+$maxFunction"/>
aoqi@0:   <xsl:text>];
aoqi@0: 
aoqi@0: jint JvmtiTrace::_max_function_index = </xsl:text>
aoqi@0:   <xsl:value-of select="$maxFunction"/>
aoqi@0:   <xsl:text>;
aoqi@0: 
aoqi@0: // Function names
aoqi@0: const char* JvmtiTrace::_function_names[] = {
aoqi@0: </xsl:text>
aoqi@0:   <xsl:call-template name="fillEntityName">
aoqi@0:     <xsl:with-param name="entities" select="category/function"/>
aoqi@0:   </xsl:call-template>
aoqi@0:   <xsl:text>
aoqi@0: };
aoqi@0: 
aoqi@0: // Exclude list
aoqi@0: short JvmtiTrace::_exclude_functions[] = {
aoqi@0:   </xsl:text>
aoqi@0:   <xsl:apply-templates select="category/function" mode="notrace">
aoqi@0:     <xsl:sort select="@num"/>
aoqi@0:   </xsl:apply-templates>
aoqi@0:   <xsl:text>0
aoqi@0: };
aoqi@0: 
aoqi@0: </xsl:text>
aoqi@0:   </xsl:if>
aoqi@0: 
aoqi@0:   <xsl:text>
aoqi@0: extern "C" {
aoqi@0: 
aoqi@0: </xsl:text>
aoqi@0:   <xsl:apply-templates select="category" mode="wrapper"/>
aoqi@0:   <xsl:text>
aoqi@0: } /* end extern "C" */
aoqi@0: 
aoqi@0: // JVMTI API functions
aoqi@0: struct jvmtiInterface_1_ jvmti</xsl:text>
aoqi@0:   <xsl:value-of select="$trace"/>
aoqi@0:   <xsl:text>_Interface = {
aoqi@0: </xsl:text>
aoqi@0:  
aoqi@0:   <xsl:call-template name="fillFuncStruct">
aoqi@0:     <xsl:with-param name="funcs" select="category/function[count(@hide)=0]"/>
aoqi@0:   </xsl:call-template>
aoqi@0: 
aoqi@0:   <xsl:text>
aoqi@0: };
aoqi@0: #endif // INCLUDE_JVMTI
aoqi@0: </xsl:text>
aoqi@0: </xsl:template>
aoqi@0: 
aoqi@0: <xsl:template match="function" mode="functionid">
aoqi@0:   <xsl:text>jvmti</xsl:text>
aoqi@0:   <xsl:value-of select="$trace"/>
aoqi@0:   <xsl:text>_</xsl:text>
aoqi@0:   <xsl:value-of select="@id"/>
aoqi@0: </xsl:template>
aoqi@0: 
aoqi@0: <xsl:template name="fillFuncStructDoit">
aoqi@0:   <xsl:param name="func"/>
aoqi@0:   <xsl:param name="index"/>
aoqi@0:   <xsl:text>                              /* </xsl:text>
aoqi@0:   <xsl:number value="$index" format="  1"/>
aoqi@0:   <xsl:text> : </xsl:text>
aoqi@0:   <xsl:choose>
aoqi@0:     <xsl:when test="count($func)=1">
aoqi@0:       <xsl:value-of select="$func/synopsis"/>
aoqi@0:       <xsl:text> */
aoqi@0:       </xsl:text>
aoqi@0:       <xsl:apply-templates select="$func" mode="functionid"/>
aoqi@0:     </xsl:when>
aoqi@0:     <xsl:otherwise>
aoqi@0:       <xsl:text> RESERVED */
aoqi@0:       NULL</xsl:text>        
aoqi@0:     </xsl:otherwise>
aoqi@0:   </xsl:choose>
aoqi@0: </xsl:template>
aoqi@0: 
aoqi@0: <!-- generic function iterator applied to the function structure -->
aoqi@0: <xsl:template name="fillFuncStruct">
aoqi@0:   <xsl:param name="funcs"/>
aoqi@0:   <xsl:param name="index" select="1"/>
aoqi@0:   <xsl:call-template name="fillFuncStructDoit">
aoqi@0:     <xsl:with-param name="func" select="$funcs[@num=$index]"/>
aoqi@0:     <xsl:with-param name="index" select="$index"/>
aoqi@0:   </xsl:call-template>
aoqi@0:   <xsl:if test="count($funcs[@num &gt; $index]) &gt; 0">
aoqi@0:     <xsl:text>,
aoqi@0: </xsl:text>
aoqi@0:     <xsl:call-template name="fillFuncStruct">
aoqi@0:       <xsl:with-param name="funcs" select="$funcs"/>
aoqi@0:       <xsl:with-param name="index" select="1+$index"/>
aoqi@0:     </xsl:call-template>
aoqi@0:   </xsl:if>
aoqi@0: </xsl:template>
aoqi@0: 
aoqi@0: <xsl:template name="fillEntityNameDoit">
aoqi@0:   <xsl:param name="entity"/>
aoqi@0:   <xsl:param name="index"/>
aoqi@0:   <xsl:choose>
aoqi@0:     <xsl:when test="count($entity) &gt; 0">
aoqi@0:       <xsl:text>  "</xsl:text>
aoqi@0:       <xsl:value-of select="$entity[position()=1]/@id"/>
aoqi@0:       <xsl:text>"</xsl:text>
aoqi@0:     </xsl:when>
aoqi@0:     <xsl:otherwise>
aoqi@0:       <xsl:text>  NULL</xsl:text>        
aoqi@0:     </xsl:otherwise>
aoqi@0:   </xsl:choose>
aoqi@0: </xsl:template>
aoqi@0: 
aoqi@0: <!-- generic entity (with id and num) iterator applied to entity names -->
aoqi@0: <xsl:template name="fillEntityName">
aoqi@0:   <xsl:param name="entities"/>
aoqi@0:   <xsl:param name="index" select="0"/>
aoqi@0:   <xsl:call-template name="fillEntityNameDoit">
aoqi@0:     <xsl:with-param name="entity" select="$entities[@num=$index]"/>
aoqi@0:     <xsl:with-param name="index" select="$index"/>
aoqi@0:   </xsl:call-template>
aoqi@0:   <xsl:if test="count($entities[@num &gt; $index]) &gt; 0">
aoqi@0:     <xsl:text>,
aoqi@0: </xsl:text>
aoqi@0:     <xsl:call-template name="fillEntityName">
aoqi@0:       <xsl:with-param name="entities" select="$entities"/>
aoqi@0:       <xsl:with-param name="index" select="1+$index"/>
aoqi@0:     </xsl:call-template>
aoqi@0:   </xsl:if>
aoqi@0: </xsl:template>
aoqi@0: 
aoqi@0: <xsl:template name="fillEventThreadedDoit">
aoqi@0:   <xsl:param name="entity"/>
aoqi@0:   <xsl:param name="index"/>
aoqi@0:   <xsl:choose>
aoqi@0:     <xsl:when test="count($entity) &gt; 0">
aoqi@0:       <xsl:choose>
aoqi@0:         <xsl:when test="count($entity[position()=1]/@filtered)=0">
aoqi@0:           <xsl:text>  false</xsl:text>
aoqi@0:         </xsl:when>
aoqi@0:         <xsl:otherwise>
aoqi@0:           <xsl:text>  true</xsl:text>        
aoqi@0:         </xsl:otherwise>
aoqi@0:       </xsl:choose>
aoqi@0:     </xsl:when>
aoqi@0:     <xsl:otherwise>
aoqi@0:       <xsl:text>  false</xsl:text>        
aoqi@0:     </xsl:otherwise>
aoqi@0:   </xsl:choose>
aoqi@0: </xsl:template>
aoqi@0: 
aoqi@0: 
aoqi@0: <xsl:template name="fillEventThreaded">
aoqi@0:   <xsl:param name="entities"/>
aoqi@0:   <xsl:param name="index" select="0"/>
aoqi@0:   <xsl:call-template name="fillEventThreadedDoit">
aoqi@0:     <xsl:with-param name="entity" select="$entities[@num=$index]"/>
aoqi@0:     <xsl:with-param name="index" select="$index"/>
aoqi@0:   </xsl:call-template>
aoqi@0:   <xsl:if test="count($entities[@num &gt; $index]) &gt; 0">
aoqi@0:     <xsl:text>,
aoqi@0: </xsl:text>
aoqi@0:     <xsl:call-template name="fillEventThreaded">
aoqi@0:       <xsl:with-param name="entities" select="$entities"/>
aoqi@0:       <xsl:with-param name="index" select="1+$index"/>
aoqi@0:     </xsl:call-template>
aoqi@0:   </xsl:if>
aoqi@0: </xsl:template>
aoqi@0: 
aoqi@0: <xsl:template match="function" mode="notrace">
aoqi@0:   <xsl:if test="count(@impl)=1 and contains(@impl,'notrace')">
aoqi@0:     <xsl:value-of select="@num"/>
aoqi@0:     <xsl:text>,
aoqi@0:   </xsl:text>
aoqi@0:   </xsl:if>
aoqi@0: </xsl:template>
aoqi@0: 
aoqi@0: <xsl:template match="category" mode="wrapper">
aoqi@0:   <xsl:text>
aoqi@0:   //
aoqi@0:   // </xsl:text><xsl:value-of select="@label"/><xsl:text> functions
aoqi@0:   // 
aoqi@0: </xsl:text>
aoqi@0:   <xsl:apply-templates select="function[count(@hide)=0]"/>
aoqi@0: </xsl:template>
aoqi@0: 
aoqi@0: <xsl:template match="function" mode="transition">
aoqi@0:   <xsl:param name="space">
aoqi@0:     <xsl:text>
aoqi@0:   </xsl:text>
aoqi@0:   </xsl:param>
aoqi@0:   <xsl:value-of select="$space"/>
aoqi@0:   
aoqi@0:   <xsl:choose> 
aoqi@0:     <xsl:when test="count(@callbacksafe)=0 or not(contains(@callbacksafe,'safe'))">
aoqi@0:       <xsl:text>if (this_thread == NULL || !this_thread->is_Java_thread()) {</xsl:text> 
aoqi@0:     </xsl:when> 
aoqi@0:     <xsl:otherwise> 
aoqi@0:       <xsl:choose>
aoqi@0:         <xsl:when test="count(@phase)=0 or contains(@phase,'live') or contains(@phase,'start')">
aoqi@0: 	  <xsl:text>if (this_thread == NULL || (!this_thread->is_Java_thread() &amp;&amp; !this_thread->is_VM_thread())) {</xsl:text>
aoqi@0:         </xsl:when>
aoqi@0:         <xsl:otherwise>
aoqi@0:           <xsl:text>if (!this_thread->is_Java_thread()) {</xsl:text> 
aoqi@0:         </xsl:otherwise>
aoqi@0:       </xsl:choose>
aoqi@0:      </xsl:otherwise> 
aoqi@0:   </xsl:choose> 
aoqi@0:   
aoqi@0:   <xsl:if test="$trace='Trace'">
aoqi@0:     <xsl:value-of select="$space"/>
aoqi@0:     <xsl:text>  if (trace_flags) {</xsl:text>
aoqi@0:     <xsl:value-of select="$space"/>
aoqi@0:     <xsl:text>    tty->print_cr("JVMTI [non-attached thread] %s %s",  func_name,</xsl:text>
aoqi@0:     <xsl:value-of select="$space"/>
aoqi@0:     <xsl:text>    JvmtiUtil::error_name(JVMTI_ERROR_UNATTACHED_THREAD));</xsl:text>
aoqi@0:     <xsl:value-of select="$space"/>
aoqi@0:     <xsl:text>  }</xsl:text>
aoqi@0:   </xsl:if>
aoqi@0:   <xsl:value-of select="$space"/>
aoqi@0:   <xsl:text>  return JVMTI_ERROR_UNATTACHED_THREAD;</xsl:text>
aoqi@0:   <xsl:value-of select="$space"/>
aoqi@0:   <xsl:text>}</xsl:text>  
aoqi@0:   <xsl:value-of select="$space"/>  
aoqi@0:   <xsl:if test="count(@impl)=0 or not(contains(@impl,'innative'))">
aoqi@0:     <xsl:text>JavaThread* current_thread = (JavaThread*)this_thread;</xsl:text>   
aoqi@0:     <xsl:value-of select="$space"/>
aoqi@0:     <xsl:text>ThreadInVMfromNative __tiv(current_thread);</xsl:text>
aoqi@0:     <xsl:value-of select="$space"/>
aoqi@0:     <xsl:text>VM_ENTRY_BASE(jvmtiError, </xsl:text>
aoqi@0:     <xsl:apply-templates select="." mode="functionid"/>
aoqi@0:     <xsl:text> , current_thread)</xsl:text>
aoqi@0:     <xsl:value-of select="$space"/>
aoqi@0:     <xsl:text>debug_only(VMNativeEntryWrapper __vew;)</xsl:text>
aoqi@0:     <xsl:if test="count(@callbacksafe)=0 or not(contains(@callbacksafe,'safe'))">
aoqi@0:       <xsl:value-of select="$space"/>
aoqi@0:       <xsl:text>CautiouslyPreserveExceptionMark __em(this_thread);</xsl:text>
aoqi@0:     </xsl:if>
aoqi@0:   </xsl:if>
aoqi@0: </xsl:template>
aoqi@0: 
aoqi@0: 
aoqi@0: <xsl:template match="required">
aoqi@0:   <xsl:text>
aoqi@0:   if (jvmti_env-&gt;get_capabilities()-&gt;</xsl:text>
aoqi@0:     <xsl:value-of select="@id"/>
aoqi@0:     <xsl:text> == 0) {
aoqi@0: </xsl:text>
aoqi@0:     <xsl:if test="$trace='Trace'">
aoqi@0:       <xsl:text>    if (trace_flags) {
aoqi@0:           tty->print_cr("JVMTI [%s] %s %s",  curr_thread_name, func_name, 
aoqi@0:                     JvmtiUtil::error_name(JVMTI_ERROR_MUST_POSSESS_CAPABILITY));
aoqi@0:     }
aoqi@0: </xsl:text>
aoqi@0:     </xsl:if>
aoqi@0:     <xsl:text>    return JVMTI_ERROR_MUST_POSSESS_CAPABILITY;
aoqi@0:   }
aoqi@0: </xsl:text>
aoqi@0: </xsl:template>
aoqi@0: 
aoqi@0: 
aoqi@0: <xsl:template match="function">
aoqi@0:   <xsl:text>
aoqi@0: static jvmtiError JNICALL
aoqi@0: </xsl:text>
aoqi@0:   <xsl:apply-templates select="." mode="functionid"/>
aoqi@0:   <xsl:text>(jvmtiEnv* env</xsl:text>
aoqi@0:   <xsl:apply-templates select="parameters" mode="signature"/>
aoqi@0:   <xsl:text>) {
aoqi@0: </xsl:text>
aoqi@0: 
aoqi@0:   <xsl:if test="not(contains(@jkernel,'yes'))">
aoqi@0:   <xsl:text>&#xA;#if !INCLUDE_JVMTI &#xA;</xsl:text>
aoqi@0:   <xsl:text>  return JVMTI_ERROR_NOT_AVAILABLE; &#xA;</xsl:text>
aoqi@0:   <xsl:text>#else &#xA;</xsl:text>
aoqi@0:   </xsl:if>
aoqi@0: 
aoqi@0:   <xsl:apply-templates select="." mode="traceSetUp"/>
aoqi@0:   <xsl:choose>
aoqi@0:     <xsl:when test="count(@phase)=0 or contains(@phase,'live')">
aoqi@0:       <xsl:text>  if(!JvmtiEnv::is_vm_live()) {
aoqi@0: </xsl:text>
aoqi@0:     <xsl:if test="$trace='Trace'">
aoqi@0:       <xsl:text>    if (trace_flags) {
aoqi@0:           tty->print_cr("JVMTI [-] %s %s",  func_name, 
aoqi@0:                     JvmtiUtil::error_name(JVMTI_ERROR_WRONG_PHASE));
aoqi@0:     }
aoqi@0: </xsl:text>
aoqi@0:     </xsl:if>
aoqi@0:     <xsl:text>    return JVMTI_ERROR_WRONG_PHASE;
aoqi@0:   }</xsl:text>  
aoqi@0: 
aoqi@0:       <xsl:text>  
aoqi@0:   Thread* this_thread = (Thread*)ThreadLocalStorage::thread(); </xsl:text>
aoqi@0: 
aoqi@0:       <xsl:apply-templates select="." mode="transition"/>
aoqi@0:     </xsl:when>
aoqi@0:     <xsl:otherwise>
aoqi@0:       <xsl:if test="contains(@phase,'onload')">
aoqi@0:         <xsl:text>  if(JvmtiEnv::get_phase()!=JVMTI_PHASE_ONLOAD</xsl:text>
aoqi@0:         <xsl:if test="not(contains(@phase,'onloadOnly'))">
aoqi@0:           <xsl:text> &amp;&amp; JvmtiEnv::get_phase()!=JVMTI_PHASE_LIVE</xsl:text>
aoqi@0:         </xsl:if>
aoqi@0:         <xsl:text>) {
aoqi@0: </xsl:text>
aoqi@0:     <xsl:if test="$trace='Trace'">
aoqi@0:       <xsl:text>    if (trace_flags) {
aoqi@0:           tty->print_cr("JVMTI [-] %s %s",  func_name, 
aoqi@0:                     JvmtiUtil::error_name(JVMTI_ERROR_WRONG_PHASE));
aoqi@0:     }
aoqi@0: </xsl:text>
aoqi@0:     </xsl:if>
aoqi@0:     <xsl:text>    return JVMTI_ERROR_WRONG_PHASE;
aoqi@0:   }</xsl:text>
aoqi@0:       </xsl:if>
aoqi@0:       <xsl:if test="contains(@phase,'start')">
aoqi@0:         <xsl:text>  if(JvmtiEnv::get_phase()!=JVMTI_PHASE_START &amp;&amp; JvmtiEnv::get_phase()!=JVMTI_PHASE_LIVE) {
aoqi@0: </xsl:text>
aoqi@0:     <xsl:if test="$trace='Trace'">
aoqi@0:       <xsl:text>    if (trace_flags) {
aoqi@0:           tty->print_cr("JVMTI [-] %s %s",  func_name, 
aoqi@0:                     JvmtiUtil::error_name(JVMTI_ERROR_WRONG_PHASE));
aoqi@0:     }
aoqi@0: </xsl:text>
aoqi@0:     </xsl:if>
aoqi@0:     <xsl:text>    return JVMTI_ERROR_WRONG_PHASE;
aoqi@0:   }
aoqi@0:   Thread* this_thread = (Thread*)ThreadLocalStorage::thread(); </xsl:text>
aoqi@0:       <xsl:apply-templates select="." mode="transition"/>
aoqi@0:       </xsl:if>
aoqi@0:     </xsl:otherwise>
aoqi@0:   </xsl:choose>
aoqi@0: 
aoqi@0:   <xsl:text>
aoqi@0:   JvmtiEnv* jvmti_env = JvmtiEnv::JvmtiEnv_from_jvmti_env(env);
aoqi@0:   if (!jvmti_env->is_valid()) {
aoqi@0: </xsl:text>
aoqi@0:     <xsl:if test="$trace='Trace'">
aoqi@0:       <xsl:text>    if (trace_flags) {
aoqi@0:           tty->print_cr("JVMTI [%s] %s %s  env=%d",  curr_thread_name, func_name, 
aoqi@0:                     JvmtiUtil::error_name(JVMTI_ERROR_INVALID_ENVIRONMENT), env);
aoqi@0:     }
aoqi@0: </xsl:text>
aoqi@0:     </xsl:if>
aoqi@0:     <xsl:text>    return JVMTI_ERROR_INVALID_ENVIRONMENT;
aoqi@0:   }
aoqi@0: </xsl:text>
aoqi@0: 
aoqi@0:   <xsl:apply-templates select="capabilities/required"/>
aoqi@0:   
aoqi@0:   <xsl:text>  jvmtiError err;
aoqi@0: </xsl:text>
aoqi@0:   <xsl:choose>
aoqi@0:     <xsl:when test="count(@phase)=1 and not(contains(@phase,'live')) and not(contains(@phase,'start'))">    
aoqi@0:       <xsl:choose>
aoqi@0:         <xsl:when test="count(@callbacksafe)=0 or not(contains(@callbacksafe,'safe'))">
aoqi@0:           <xsl:text>  if (Threads::number_of_threads() != 0) {
aoqi@0:     Thread* this_thread = (Thread*)ThreadLocalStorage::thread();</xsl:text>
aoqi@0:         </xsl:when>
aoqi@0:         <xsl:otherwise>
aoqi@0: 
aoqi@0: 	  <xsl:text>  Thread* this_thread = NULL;
aoqi@0:   bool transition;
aoqi@0:   if (Threads::number_of_threads() == 0) {
aoqi@0:     transition = false;
aoqi@0:   } else {
aoqi@0:     this_thread = (Thread*)ThreadLocalStorage::thread();
aoqi@0:     transition = ((this_thread != NULL) &amp;&amp; !this_thread->is_VM_thread() &amp;&amp; !this_thread->is_ConcurrentGC_thread());
aoqi@0:   }
aoqi@0:   if (transition) {</xsl:text>
aoqi@0: 	</xsl:otherwise>
aoqi@0: 
aoqi@0:       </xsl:choose>
aoqi@0:       <!-- we allow use in early phases but there are threads now, -->
aoqi@0:       <!-- so do thread transition -->
aoqi@0:       <xsl:apply-templates select="." mode="transition">
aoqi@0:           <xsl:with-param name="space">
aoqi@0:             <xsl:text>
aoqi@0:     </xsl:text>
aoqi@0:           </xsl:with-param>
aoqi@0:       </xsl:apply-templates>
aoqi@0:       <xsl:text>
aoqi@0:   </xsl:text>
aoqi@0:       <xsl:apply-templates select="." mode="doCall"/>     
aoqi@0:       <xsl:text>  } else {
aoqi@0:   </xsl:text>
aoqi@0:       <!-- we are pre-thread - no thread transition code -->
aoqi@0:       <xsl:apply-templates select="." mode="doCall"/>     
aoqi@0:       <xsl:text>  }
aoqi@0: </xsl:text>
aoqi@0:     </xsl:when>
aoqi@0:     <xsl:otherwise>
aoqi@0:       <xsl:apply-templates select="." mode="doCall"/>      
aoqi@0:     </xsl:otherwise>
aoqi@0:   </xsl:choose>
aoqi@0:   <xsl:text>  return err;
aoqi@0: </xsl:text>
aoqi@0: 
aoqi@0:   <xsl:if test="not(contains(@jkernel,'yes'))">
aoqi@0:   <xsl:text>#endif // INCLUDE_JVMTI&#xA;</xsl:text>
aoqi@0:   </xsl:if>
aoqi@0: 
aoqi@0:   <xsl:text>}&#xA;</xsl:text>
aoqi@0: </xsl:template>
aoqi@0: 
aoqi@0: <xsl:template match="function" mode="doCall">
aoqi@0:   <xsl:apply-templates select="parameters" mode="dochecks"/>
aoqi@0:   <xsl:apply-templates select="." mode="traceBefore"/>  
aoqi@0:   <xsl:apply-templates select="." mode="genCall"/>
aoqi@0:   <xsl:apply-templates select="." mode="traceAfter"/>
aoqi@0: </xsl:template>
aoqi@0: 
aoqi@0: <xsl:template match="function" mode="genCall">
aoqi@0:   <xsl:text>  err = jvmti_env-&gt;</xsl:text>
aoqi@0:   <xsl:value-of select="@id"/>
aoqi@0:   <xsl:text>(</xsl:text>
aoqi@0:   <xsl:apply-templates select="parameters" mode="HotSpotValue"/>
aoqi@0:   <xsl:text>);
aoqi@0: </xsl:text>
aoqi@0: </xsl:template>
aoqi@0: 
aoqi@0: 
aoqi@0: <xsl:template match="function" mode="traceSetUp">
aoqi@0:   <xsl:if test="$trace='Trace'">
aoqi@0:     <xsl:text>  SafeResourceMark rm;
aoqi@0:   jint trace_flags = JvmtiTrace::trace_flags(</xsl:text>
aoqi@0:       <xsl:value-of select="@num"/>
aoqi@0:       <xsl:text>);
aoqi@0:   const char *func_name;
aoqi@0:   const char *curr_thread_name;
aoqi@0:   if (trace_flags) {
aoqi@0:     func_name = JvmtiTrace::function_name(</xsl:text>
aoqi@0:       <xsl:value-of select="@num"/>
aoqi@0:       <xsl:text>);
aoqi@0:     curr_thread_name = JvmtiTrace::safe_get_current_thread_name();
aoqi@0:   }
aoqi@0: </xsl:text>
aoqi@0:   </xsl:if>
aoqi@0: </xsl:template>
aoqi@0: 
aoqi@0: 
aoqi@0: <xsl:template match="function" mode="traceBefore">
aoqi@0:   <xsl:if test="$trace='Trace'">
aoqi@0:     <xsl:text>
aoqi@0:   if ((trace_flags &amp; JvmtiTrace::SHOW_IN) != 0) {
aoqi@0:     </xsl:text>
aoqi@0:     <xsl:apply-templates select="." mode="traceIn"/>
aoqi@0:     <xsl:text>  }
aoqi@0: </xsl:text>
aoqi@0:   </xsl:if>
aoqi@0: </xsl:template>
aoqi@0: 
aoqi@0: 
aoqi@0: <xsl:template match="param" mode="traceError">
aoqi@0:   <xsl:param name="err"/>
aoqi@0:   <xsl:param name="comment"></xsl:param>
aoqi@0:   <xsl:param name="extraValue"></xsl:param>
aoqi@0:   <xsl:if test="$trace='Trace'">
aoqi@0:   <xsl:text>      if ((trace_flags &amp; JvmtiTrace::SHOW_ERROR) != 0) {
aoqi@0:         if ((trace_flags &amp; JvmtiTrace::SHOW_IN) == 0) {
aoqi@0: </xsl:text>
aoqi@0:   <xsl:apply-templates select="../.." mode="traceIn">
aoqi@0:     <xsl:with-param name="endParam" select="."/>
aoqi@0:   </xsl:apply-templates>
aoqi@0:   <xsl:text>      }
aoqi@0:         tty->print_cr("JVMTI [%s] %s } %s - erroneous arg is </xsl:text>
aoqi@0:     <xsl:value-of select="@id"/>
aoqi@0:     <xsl:value-of select="$comment"/>
aoqi@0:     <xsl:text>",  curr_thread_name, func_name, 
aoqi@0:                   JvmtiUtil::error_name(</xsl:text>
aoqi@0:     <xsl:value-of select="$err"/>
aoqi@0:     <xsl:text>)</xsl:text>
aoqi@0:     <xsl:value-of select="$extraValue"/>
aoqi@0:     <xsl:text>);
aoqi@0:       }
aoqi@0: </xsl:text>
aoqi@0:   </xsl:if>
aoqi@0:     <xsl:text>      return </xsl:text>
aoqi@0:     <xsl:value-of select="$err"/>
aoqi@0:     <xsl:text>;</xsl:text>
aoqi@0: </xsl:template>
aoqi@0: 
aoqi@0: 
aoqi@0: <xsl:template match="function" mode="traceAfter">
aoqi@0:   <xsl:if test="$trace='Trace'">
aoqi@0:     <xsl:text>  if ( err != JVMTI_ERROR_NONE &amp;&amp; (trace_flags &amp; JvmtiTrace::SHOW_ERROR) != 0) {
aoqi@0:       if ((trace_flags &amp; JvmtiTrace::SHOW_IN) == 0) {
aoqi@0: </xsl:text>
aoqi@0:     <xsl:apply-templates select="." mode="traceIn"/>
aoqi@0:     <xsl:text>    }
aoqi@0:     tty->print_cr("JVMTI [%s] %s } %s",  curr_thread_name, func_name, 
aoqi@0:                   JvmtiUtil::error_name(err));
aoqi@0:   } else if ((trace_flags &amp; JvmtiTrace::SHOW_OUT) != 0) {
aoqi@0:     tty->print_cr("JVMTI [%s] %s }",  curr_thread_name, func_name);
aoqi@0:   }
aoqi@0: </xsl:text>
aoqi@0:   </xsl:if>
aoqi@0: </xsl:template>
aoqi@0: 
aoqi@0: <xsl:template match="function" mode="traceIn">
aoqi@0:   <xsl:param name="endParam"></xsl:param>
aoqi@0:   <xsl:text>          tty->print_cr("JVMTI [%s] %s { </xsl:text>
aoqi@0:   <xsl:apply-templates select="parameters" mode="traceInFormat">
aoqi@0:     <xsl:with-param name="endParam" select="$endParam"/>    
aoqi@0:   </xsl:apply-templates>
aoqi@0:   <xsl:text>", curr_thread_name, func_name</xsl:text>
aoqi@0:   <xsl:apply-templates select="parameters" mode="traceInValue">
aoqi@0:     <xsl:with-param name="endParam" select="$endParam"/>    
aoqi@0:   </xsl:apply-templates>
aoqi@0:   <xsl:text>);
aoqi@0: </xsl:text>
aoqi@0: </xsl:template>
aoqi@0: 
aoqi@0: <xsl:template match="parameters" mode="dochecks">
aoqi@0:   <xsl:apply-templates select="param" mode="dochecks"/>
aoqi@0: </xsl:template>
aoqi@0: 
aoqi@0: <xsl:template match="param" mode="dochecks">
aoqi@0:   <xsl:apply-templates select="child::*[position()=1]" mode="dochecks">
aoqi@0:     <xsl:with-param name="name" select="@id"/>
aoqi@0:   </xsl:apply-templates>
aoqi@0: </xsl:template>
aoqi@0: 
aoqi@0: <xsl:template match="outptr|outbuf|allocfieldbuf|ptrtype|inptr|inbuf|vmbuf|allocbuf|agentbuf|allocallocbuf" mode="dochecks">
aoqi@0:   <xsl:param name="name"/>
aoqi@0:   <xsl:if test="count(nullok)=0">
aoqi@0:     <xsl:text>  if (</xsl:text>
aoqi@0:     <xsl:value-of select="$name"/>
aoqi@0:     <xsl:text> == NULL) {
aoqi@0: </xsl:text>
aoqi@0:     <xsl:apply-templates select=".." mode="traceError">     
aoqi@0:       <xsl:with-param name="err">JVMTI_ERROR_NULL_POINTER</xsl:with-param>
aoqi@0:     </xsl:apply-templates>
aoqi@0:     <xsl:text>
aoqi@0:   }
aoqi@0: </xsl:text>
aoqi@0:   </xsl:if>
aoqi@0: </xsl:template>
aoqi@0: 
aoqi@0: <xsl:template match="jrawMonitorID" mode="dochecks">
aoqi@0:   <xsl:param name="name"/>
aoqi@0:   <xsl:text>  JvmtiRawMonitor *rmonitor = (JvmtiRawMonitor *)</xsl:text>
aoqi@0:   <xsl:value-of select="$name"/>
aoqi@0:   <xsl:text>;
aoqi@0:   if (rmonitor == NULL) {
aoqi@0: </xsl:text>
aoqi@0:     <xsl:apply-templates select=".." mode="traceError">     
aoqi@0:       <xsl:with-param name="err">JVMTI_ERROR_INVALID_MONITOR</xsl:with-param>
aoqi@0:       <xsl:with-param name="comment"> - raw monitor is NULL</xsl:with-param>
aoqi@0:     </xsl:apply-templates>
aoqi@0:     <xsl:text>
aoqi@0:   }
aoqi@0:   if (!rmonitor->is_valid()) {
aoqi@0: </xsl:text>
aoqi@0:     <xsl:apply-templates select=".." mode="traceError">     
aoqi@0:       <xsl:with-param name="err">JVMTI_ERROR_INVALID_MONITOR</xsl:with-param>
aoqi@0:       <xsl:with-param name="comment"> - not a raw monitor 0x%x</xsl:with-param>
aoqi@0:       <xsl:with-param name="extraValue">, rmonitor</xsl:with-param>
aoqi@0:     </xsl:apply-templates>
aoqi@0:     <xsl:text>
aoqi@0:   }
aoqi@0: </xsl:text>
aoqi@0: </xsl:template>
aoqi@0: 
aoqi@0: <xsl:template match="jthread" mode="dochecksbody">
aoqi@0:   <xsl:param name="name"/>
aoqi@0:     <xsl:text>    oop thread_oop = JNIHandles::resolve_external_guard(</xsl:text>
aoqi@0:     <xsl:value-of select="$name"/>
aoqi@0:     <xsl:text>);
aoqi@0:     if (thread_oop == NULL) {
aoqi@0: </xsl:text>
aoqi@0:     <xsl:apply-templates select=".." mode="traceError">     
aoqi@0:       <xsl:with-param name="err">JVMTI_ERROR_INVALID_THREAD</xsl:with-param>
aoqi@0:       <xsl:with-param name="comment"> - jthread resolved to NULL - jthread = 0x%x</xsl:with-param>
aoqi@0:       <xsl:with-param name="extraValue">, <xsl:value-of select="$name"/></xsl:with-param>
aoqi@0:     </xsl:apply-templates>
aoqi@0:     <xsl:text>
aoqi@0:     }
aoqi@0:     if (!thread_oop-&gt;is_a(SystemDictionary::Thread_klass())) {
aoqi@0: </xsl:text>
aoqi@0:     <xsl:apply-templates select=".." mode="traceError">     
aoqi@0:       <xsl:with-param name="err">JVMTI_ERROR_INVALID_THREAD</xsl:with-param>
aoqi@0:       <xsl:with-param name="comment"> - oop is not a thread - jthread = 0x%x</xsl:with-param>
aoqi@0:       <xsl:with-param name="extraValue">, <xsl:value-of select="$name"/></xsl:with-param>
aoqi@0:     </xsl:apply-templates>
aoqi@0:     <xsl:text>
aoqi@0:     }
aoqi@0:     java_thread = java_lang_Thread::thread(thread_oop); 
aoqi@0:     if (java_thread == NULL) {
aoqi@0: </xsl:text>
aoqi@0:     <xsl:apply-templates select=".." mode="traceError">     
aoqi@0:       <xsl:with-param name="err">
aoqi@0:         <xsl:text>JVMTI_ERROR_THREAD_NOT_ALIVE</xsl:text>
aoqi@0:       </xsl:with-param>
aoqi@0:       <xsl:with-param name="comment"> - not a Java thread - jthread = 0x%x</xsl:with-param>
aoqi@0:       <xsl:with-param name="extraValue">, <xsl:value-of select="$name"/></xsl:with-param>
aoqi@0:     </xsl:apply-templates>
aoqi@0:     <xsl:text>
aoqi@0:     }
aoqi@0: </xsl:text>  
aoqi@0: </xsl:template>
aoqi@0: 
aoqi@0: <xsl:template match="jthread" mode="dochecks">
aoqi@0:   <xsl:param name="name"/>
aoqi@0:   <!-- If we convert and test threads -->
aoqi@0:   <xsl:if test="count(@impl)=0 or not(contains(@impl,'noconvert'))">
aoqi@0:     <xsl:text>  JavaThread* java_thread;
aoqi@0: </xsl:text>
aoqi@0:     <xsl:choose>
aoqi@0:       <xsl:when test="count(@null)=0">
aoqi@0:         <xsl:apply-templates select="." mode="dochecksbody">
aoqi@0:           <xsl:with-param name="name" select="$name"/>
aoqi@0:         </xsl:apply-templates>
aoqi@0:       </xsl:when>
aoqi@0:       <xsl:otherwise>
aoqi@0:         <xsl:text>  if (</xsl:text>
aoqi@0:         <xsl:value-of select="$name"/>
aoqi@0:         <xsl:text> == NULL) {
aoqi@0:     java_thread = current_thread;
aoqi@0:   } else {
aoqi@0: </xsl:text>
aoqi@0:         <xsl:apply-templates select="." mode="dochecksbody">
aoqi@0:           <xsl:with-param name="name" select="$name"/>
aoqi@0:         </xsl:apply-templates>
aoqi@0:         <xsl:text>  }
aoqi@0: </xsl:text>
aoqi@0:       </xsl:otherwise>
aoqi@0:     </xsl:choose>
aoqi@0:   </xsl:if>
aoqi@0: </xsl:template>
aoqi@0: 
aoqi@0: <xsl:template match="jframeID" mode="dochecks">
aoqi@0:   <xsl:param name="name"/>
aoqi@0:   <xsl:text>
aoqi@0:   if (depth &lt; 0) {
aoqi@0: </xsl:text>
aoqi@0:     <xsl:apply-templates select=".." mode="traceError">     
aoqi@0:       <xsl:with-param name="err">JVMTI_ERROR_ILLEGAL_ARGUMENT</xsl:with-param>
aoqi@0:       <xsl:with-param name="comment"> - negative depth - jthread = 0x%x</xsl:with-param>
aoqi@0:       <xsl:with-param name="extraValue">, <xsl:value-of select="$name"/></xsl:with-param>
aoqi@0:     </xsl:apply-templates>
aoqi@0:     <xsl:text>
aoqi@0:   }
aoqi@0: </xsl:text>
aoqi@0: </xsl:template>
aoqi@0: 
aoqi@0: <xsl:template match="jclass" mode="dochecks">
aoqi@0:  <xsl:param name="name"/>
aoqi@0:  <!-- for JVMTI a jclass/jmethodID becomes just jmethodID -->
aoqi@0:  <xsl:if test="count(@method)=0">
aoqi@0:   <xsl:text>  oop k_mirror = JNIHandles::resolve_external_guard(</xsl:text>  
aoqi@0:   <xsl:value-of select="$name"/>
aoqi@0:   <xsl:text>);
aoqi@0:   if (k_mirror == NULL) {
aoqi@0: </xsl:text>
aoqi@0:     <xsl:apply-templates select=".." mode="traceError">     
aoqi@0:       <xsl:with-param name="err">JVMTI_ERROR_INVALID_CLASS</xsl:with-param>
aoqi@0:       <xsl:with-param name="comment"> - resolved to NULL - jclass = 0x%x</xsl:with-param>
aoqi@0:       <xsl:with-param name="extraValue">, <xsl:value-of select="$name"/></xsl:with-param>
aoqi@0:     </xsl:apply-templates>
aoqi@0:     <xsl:text>
aoqi@0:   }
aoqi@0:   if (!k_mirror->is_a(SystemDictionary::Class_klass())) {
aoqi@0: </xsl:text>
aoqi@0:     <xsl:apply-templates select=".." mode="traceError">     
aoqi@0:       <xsl:with-param name="err">JVMTI_ERROR_INVALID_CLASS</xsl:with-param>
aoqi@0:       <xsl:with-param name="comment"> - not a class - jclass = 0x%x</xsl:with-param>
aoqi@0:       <xsl:with-param name="extraValue">, <xsl:value-of select="$name"/></xsl:with-param>
aoqi@0:     </xsl:apply-templates>
aoqi@0:     <xsl:text>
aoqi@0:   }
aoqi@0: </xsl:text>
aoqi@0:   <xsl:if test="count(@method|@field)=1">
aoqi@0:     <xsl:text>
aoqi@0:   if (java_lang_Class::is_primitive(k_mirror)) {
aoqi@0: </xsl:text>
aoqi@0:     <xsl:apply-templates select=".." mode="traceError">     
aoqi@0:       <xsl:with-param name="err">JVMTI_ERROR_INVALID_CLASS</xsl:with-param>
aoqi@0:       <xsl:with-param name="comment"> - is a primitive class - jclass = 0x%x</xsl:with-param>
aoqi@0:       <xsl:with-param name="extraValue">, <xsl:value-of select="$name"/></xsl:with-param>
aoqi@0:     </xsl:apply-templates>
aoqi@0:     <xsl:text>
aoqi@0:   }
aoqi@0:   Klass* k_oop = java_lang_Class::as_Klass(k_mirror);
aoqi@0:   if (k_oop == NULL) {
aoqi@0: </xsl:text>
aoqi@0:     <xsl:apply-templates select=".." mode="traceError">     
aoqi@0:       <xsl:with-param name="err">JVMTI_ERROR_INVALID_CLASS</xsl:with-param>
aoqi@0:       <xsl:with-param name="comment"> - no Klass* - jclass = 0x%x</xsl:with-param>
aoqi@0:       <xsl:with-param name="extraValue">, <xsl:value-of select="$name"/></xsl:with-param>
aoqi@0:     </xsl:apply-templates>
aoqi@0:     <xsl:text>
aoqi@0:   }
aoqi@0: </xsl:text>
aoqi@0:   </xsl:if>
aoqi@0:  </xsl:if>
aoqi@0: </xsl:template>
aoqi@0: 
aoqi@0: 
aoqi@0: <xsl:template match="jmethodID" mode="dochecks">
aoqi@0:   <xsl:param name="name"/>
aoqi@0:   <xsl:text>  Method* method_oop = Method::checked_resolve_jmethod_id(</xsl:text>
aoqi@0:   <xsl:value-of select="$name"/>
aoqi@0:   <xsl:text>);&#xA;</xsl:text>
aoqi@0:   <xsl:text>  if (method_oop == NULL) {&#xA;</xsl:text>
aoqi@0:   <xsl:apply-templates select=".." mode="traceError">     
aoqi@0:     <xsl:with-param name="err">JVMTI_ERROR_INVALID_METHODID</xsl:with-param>
aoqi@0:     <xsl:with-param name="comment"></xsl:with-param>
aoqi@0:     <xsl:with-param name="extraValue"></xsl:with-param>
aoqi@0:   </xsl:apply-templates>
aoqi@0:   <xsl:text>&#xA;</xsl:text>
aoqi@0:   <xsl:text>  }&#xA;</xsl:text>
aoqi@0:   <xsl:if test="count(@native)=1 and contains(@native,'error')">
aoqi@0:     <xsl:text>  if (method_oop->is_native()) {&#xA;</xsl:text>   
aoqi@0:     <xsl:text>    return JVMTI_ERROR_NATIVE_METHOD;&#xA;</xsl:text>   
aoqi@0:     <xsl:text>  }&#xA;</xsl:text>   
aoqi@0:   </xsl:if>
aoqi@0: </xsl:template>
aoqi@0: 
aoqi@0: 
aoqi@0: <xsl:template match="jfieldID" mode="dochecks">
aoqi@0:   <xsl:param name="name"/>
aoqi@0:   <xsl:text>  ResourceMark rm_fdesc(current_thread);&#xA;</xsl:text>
aoqi@0:   <xsl:text>  fieldDescriptor fdesc;&#xA;</xsl:text>
aoqi@0:   <xsl:text>  if (!JvmtiEnv::get_field_descriptor(k_oop, </xsl:text>
aoqi@0:   <xsl:value-of select="$name"/>
aoqi@0:   <xsl:text>, &amp;fdesc)) {&#xA;</xsl:text>
aoqi@0:   <xsl:apply-templates select=".." mode="traceError">     
aoqi@0:     <xsl:with-param name="err">JVMTI_ERROR_INVALID_FIELDID</xsl:with-param>
aoqi@0:   </xsl:apply-templates>
aoqi@0:   <xsl:text>&#xA;</xsl:text>
aoqi@0:   <xsl:text>  }&#xA;</xsl:text>
aoqi@0: </xsl:template>
aoqi@0: 
aoqi@0: 
aoqi@0: <xsl:template match="jint" mode="dochecks">
aoqi@0:   <xsl:param name="name"/>
aoqi@0:   <xsl:if test="count(@min)=1">
aoqi@0:     <xsl:text>  if (</xsl:text>
aoqi@0:     <xsl:value-of select="$name"/>
aoqi@0:     <xsl:text> &lt; </xsl:text>
aoqi@0:     <xsl:value-of select="@min"/>
aoqi@0:     <xsl:text>) {
aoqi@0: </xsl:text>
aoqi@0:     <xsl:apply-templates select=".." mode="traceError">     
aoqi@0:       <xsl:with-param name="err">JVMTI_ERROR_ILLEGAL_ARGUMENT</xsl:with-param>
aoqi@0:     </xsl:apply-templates>
aoqi@0:     <xsl:text>
aoqi@0:   }
aoqi@0: </xsl:text>
aoqi@0:   </xsl:if>
aoqi@0: </xsl:template>
aoqi@0: 
aoqi@0: <xsl:template match="jobject|jvalue|jthreadGroup|enum|jchar|jlong|jfloat|jdouble|jlocation|jboolean|char|uchar|size_t|void|struct" mode="dochecks">
aoqi@0: </xsl:template>
aoqi@0: 
aoqi@0: <!-- iterate over parameters, stopping if specified is encountered -->
aoqi@0: <xsl:template name="traceInValueParamsUpTo">
aoqi@0:   <xsl:param name="params"/>
aoqi@0:   <xsl:param name="endParam"></xsl:param>
aoqi@0:   <xsl:param name="index" select="1"/>
aoqi@0:   <xsl:variable name="cParam" select="$params[position()=$index]"/>
aoqi@0:   <xsl:if test="$cParam!=$endParam">
aoqi@0:     <xsl:apply-templates select="$cParam" mode="traceInValue"/>
aoqi@0:     <xsl:if test="count($params) &gt; $index">
aoqi@0:       <xsl:call-template name="traceInValueParamsUpTo">
aoqi@0:         <xsl:with-param name="params" select="$params"/>
aoqi@0:         <xsl:with-param name="endParam" select="$endParam"/>
aoqi@0:         <xsl:with-param name="index" select="1+$index"/>
aoqi@0:       </xsl:call-template>
aoqi@0:     </xsl:if>
aoqi@0:   </xsl:if>
aoqi@0: </xsl:template>
aoqi@0: 
aoqi@0: <xsl:template name="traceInFormatParamsUpTo">
aoqi@0:   <xsl:param name="params"/>
aoqi@0:   <xsl:param name="endParam"></xsl:param>
aoqi@0:   <xsl:param name="index" select="1"/>
aoqi@0:   <xsl:variable name="cParam" select="$params[position()=$index]"/>
aoqi@0:   <xsl:if test="$cParam!=$endParam">
aoqi@0:     <xsl:apply-templates select="$cParam" mode="traceInFormat"/>
aoqi@0:     <xsl:if test="count($params) &gt; $index">
aoqi@0:       <xsl:call-template name="traceInFormatParamsUpTo">
aoqi@0:         <xsl:with-param name="params" select="$params"/>
aoqi@0:         <xsl:with-param name="endParam" select="$endParam"/>
aoqi@0:         <xsl:with-param name="index" select="1+$index"/>
aoqi@0:       </xsl:call-template>
aoqi@0:     </xsl:if>
aoqi@0:   </xsl:if>
aoqi@0: </xsl:template>
aoqi@0: 
aoqi@0: <xsl:template match="parameters" mode="traceInFormat">
aoqi@0:   <xsl:param name="endParam"></xsl:param>
aoqi@0:   <xsl:call-template name="traceInFormatParamsUpTo">
aoqi@0:     <xsl:with-param name="params" select="param"/>
aoqi@0:     <xsl:with-param name="endParam" select="$endParam"/>
aoqi@0:   </xsl:call-template>
aoqi@0: </xsl:template>
aoqi@0: 
aoqi@0: <xsl:template match="parameters" mode="traceInValue">
aoqi@0:   <xsl:param name="endParam"></xsl:param>
aoqi@0:   <xsl:call-template name="traceInValueParamsUpTo">
aoqi@0:     <xsl:with-param name="params" select="param"/>
aoqi@0:     <xsl:with-param name="endParam" select="$endParam"/>
aoqi@0:   </xsl:call-template>
aoqi@0: </xsl:template>
aoqi@0: 
aoqi@0: <xsl:template match="param" mode="traceInFormat">
aoqi@0:   <xsl:apply-templates select="child::*[position()=1]" mode="traceInFormat">
aoqi@0:     <xsl:with-param name="name" select="@id"/>
aoqi@0:   </xsl:apply-templates>
aoqi@0: </xsl:template>
aoqi@0: 
aoqi@0: <xsl:template match="param" mode="traceInValue">
aoqi@0:   <xsl:apply-templates select="child::*[position()=1]" mode="traceInValue">
aoqi@0:     <xsl:with-param name="name" select="@id"/>
aoqi@0:   </xsl:apply-templates>
aoqi@0: </xsl:template>
aoqi@0: 
aoqi@0: <xsl:template match="outptr|outbuf|allocfieldbuf|vmbuf|allocbuf|agentbuf|allocallocbuf" mode="traceInFormat">
aoqi@0: </xsl:template>
aoqi@0: 
aoqi@0: <xsl:template match="outptr|outbuf|allocfieldbuf|vmbuf|allocbuf|agentbuf|allocallocbuf" mode="traceInValue">
aoqi@0: </xsl:template>
aoqi@0: 
aoqi@0: <xsl:template match="inbuf" mode="traceInFormat">
aoqi@0:   <xsl:param name="name"/>
aoqi@0:   <xsl:text> </xsl:text>
aoqi@0:   <xsl:value-of select="$name"/>
aoqi@0:   <xsl:variable name="child" select="child::*[position()=1]"/>
aoqi@0:   <xsl:choose>
aoqi@0:     <xsl:when test="name($child)='char'">
aoqi@0:       <xsl:text>='%s'</xsl:text>
aoqi@0:     </xsl:when>
aoqi@0:     <xsl:otherwise>
aoqi@0:       <xsl:text>=0x%x</xsl:text>
aoqi@0:     </xsl:otherwise>
aoqi@0:   </xsl:choose>
aoqi@0: </xsl:template>
aoqi@0: 
aoqi@0: <xsl:template match="inbuf" mode="traceInValue">
aoqi@0:   <xsl:param name="name"/>
aoqi@0:   <xsl:text>, </xsl:text>
aoqi@0:   <xsl:value-of select="$name"/>
aoqi@0: </xsl:template>
aoqi@0: 
aoqi@0: <xsl:template match="ptrtype" mode="traceInFormat">
aoqi@0:   <xsl:param name="name"/>
aoqi@0:   <xsl:variable name="child" select="child::*[position()=1]"/>
aoqi@0:   <xsl:choose>
aoqi@0:     <xsl:when test="name($child)='jclass'">
aoqi@0:       <xsl:text> </xsl:text>
aoqi@0:       <xsl:value-of select="$name"/>
aoqi@0:       <xsl:text>=0x%x</xsl:text>
aoqi@0:     </xsl:when>
aoqi@0:     <xsl:otherwise>
aoqi@0:       <xsl:apply-templates select="$child" mode="traceInFormat"/> 
aoqi@0:     </xsl:otherwise>
aoqi@0:   </xsl:choose>
aoqi@0: </xsl:template>
aoqi@0: 
aoqi@0: <xsl:template match="ptrtype" mode="traceInValue">
aoqi@0:   <xsl:param name="name"/>
aoqi@0:   <xsl:variable name="child" select="child::*[position()=1]"/>
aoqi@0:   <xsl:choose>
aoqi@0:     <xsl:when test="name($child)='jclass'">
aoqi@0:       <xsl:text>, </xsl:text>
aoqi@0:       <xsl:value-of select="$name"/>
aoqi@0:     </xsl:when>
aoqi@0:     <xsl:otherwise>
aoqi@0:       <xsl:apply-templates select="$child" mode="traceInValue"/>
aoqi@0:     </xsl:otherwise>
aoqi@0:   </xsl:choose> 
aoqi@0: </xsl:template>
aoqi@0: 
aoqi@0: <xsl:template match="inptr" mode="traceInFormat">
aoqi@0:   <xsl:param name="name"/>
aoqi@0:   <xsl:text> </xsl:text>
aoqi@0:   <xsl:value-of select="$name"/>
aoqi@0:   <xsl:text>=0x%x</xsl:text>
aoqi@0: </xsl:template>
aoqi@0: 
aoqi@0: <xsl:template match="inptr" mode="traceInValue">
aoqi@0:   <xsl:param name="name"/>
aoqi@0:   <xsl:text>, </xsl:text>
aoqi@0:   <xsl:value-of select="$name"/>
aoqi@0: </xsl:template>
aoqi@0: 
aoqi@0: <xsl:template match="jrawMonitorID|jfieldID" mode="traceInFormat">
aoqi@0:   <xsl:param name="name"/>
aoqi@0:   <xsl:text> </xsl:text>
aoqi@0:   <xsl:value-of select="$name"/>
aoqi@0:   <xsl:text>=%s</xsl:text>
aoqi@0: </xsl:template>
aoqi@0: 
aoqi@0: <xsl:template match="jclass" mode="traceInFormat">
aoqi@0:   <xsl:param name="name"/>
aoqi@0:   <!-- for JVMTI a jclass/jmethodID becomes just jmethodID -->
aoqi@0:   <xsl:if test="count(@method)=0">
aoqi@0:     <xsl:text> </xsl:text>
aoqi@0:     <xsl:value-of select="$name"/>
aoqi@0:     <xsl:text>=%s</xsl:text>
aoqi@0:   </xsl:if>
aoqi@0: </xsl:template>
aoqi@0: 
aoqi@0: <xsl:template match="jrawMonitorID" mode="traceInValue">
aoqi@0:   <xsl:param name="name"/>
aoqi@0:   <xsl:text>, rmonitor->get_name()</xsl:text>
aoqi@0: </xsl:template>
aoqi@0: 
aoqi@0: <xsl:template match="jthread" mode="traceInFormat">
aoqi@0:   <xsl:param name="name"/>
aoqi@0:   <!-- If we convert and test threads -->
aoqi@0:   <xsl:if test="count(@impl)=0 or not(contains(@impl,'noconvert'))">
aoqi@0:     <xsl:text> </xsl:text>
aoqi@0:     <xsl:value-of select="$name"/>
aoqi@0:     <xsl:text>=%s</xsl:text>
aoqi@0:   </xsl:if>
aoqi@0: </xsl:template>
aoqi@0: 
aoqi@0: <xsl:template match="jthread" mode="traceInValue">
aoqi@0:   <xsl:param name="name"/>
aoqi@0:   <!-- If we convert and test threads -->
aoqi@0:   <xsl:if test="count(@impl)=0 or not(contains(@impl,'noconvert'))">
aoqi@0:     <xsl:text>, 
aoqi@0:                     JvmtiTrace::safe_get_thread_name(java_thread)</xsl:text>  
aoqi@0:   </xsl:if>
aoqi@0: </xsl:template>
aoqi@0: 
aoqi@0: <xsl:template match="jframeID" mode="traceInFormat">
aoqi@0:   <xsl:param name="name"/>
aoqi@0:   <xsl:text>depth=%d</xsl:text>
aoqi@0: </xsl:template>
aoqi@0: 
aoqi@0: <xsl:template match="jframeID" mode="traceInValue">
aoqi@0:   <xsl:param name="name"/>
aoqi@0:   <xsl:text>, </xsl:text>
aoqi@0:   <xsl:value-of select="$name"/>
aoqi@0: </xsl:template>
aoqi@0: 
aoqi@0: <xsl:template match="jclass" mode="traceInValue">
aoqi@0:   <!-- for JVMTI a jclass/jmethodID becomes just jmethodID -->
aoqi@0:   <xsl:if test="count(@method)=0">
aoqi@0:     <xsl:text>, 
aoqi@0:                     JvmtiTrace::get_class_name(k_mirror)</xsl:text>
aoqi@0:   </xsl:if>
aoqi@0: </xsl:template>
aoqi@0: 
aoqi@0: <xsl:template match="jmethodID" mode="traceInFormat">
aoqi@0:   <xsl:param name="name"/>
aoqi@0:   <xsl:text> </xsl:text>
aoqi@0:   <xsl:value-of select="$name"/>
aoqi@0:   <xsl:text>=%s.%s</xsl:text>
aoqi@0: </xsl:template>
aoqi@0: 
aoqi@0: <xsl:template match="jmethodID" mode="traceInValue">
aoqi@0:   <xsl:param name="name"/>
aoqi@0:   <xsl:text>, 
aoqi@0:                     method_oop == NULL? "NULL" : method_oop->klass_name()->as_C_string(),
aoqi@0:                     method_oop == NULL? "NULL" : method_oop->name()->as_C_string()
aoqi@0:              </xsl:text>
aoqi@0: </xsl:template>
aoqi@0: 
aoqi@0: <xsl:template match="jfieldID" mode="traceInValue">
aoqi@0:   <xsl:param name="name"/>
aoqi@0:   <xsl:text>, fdesc.name()->as_C_string()</xsl:text>
aoqi@0: </xsl:template>
aoqi@0: 
aoqi@0: <xsl:template match="enum" mode="traceInFormat">
aoqi@0:   <xsl:param name="name"/>
aoqi@0:   <xsl:text> </xsl:text>
aoqi@0:   <xsl:value-of select="$name"/>
aoqi@0:   <xsl:text>=%d:%s</xsl:text>
aoqi@0: </xsl:template>
aoqi@0: 
aoqi@0: <xsl:template match="enum" mode="traceInValue">
aoqi@0:   <xsl:param name="name"/>
aoqi@0:   <xsl:text>, </xsl:text>
aoqi@0:   <xsl:value-of select="$name"/>
aoqi@0:   <xsl:text>, 
aoqi@0:                     </xsl:text>
aoqi@0:   <xsl:choose>
aoqi@0:     <xsl:when test=".='jvmtiError'">
aoqi@0:       <xsl:text>JvmtiUtil::error_name(</xsl:text>
aoqi@0:       <xsl:value-of select="$name"/>
aoqi@0:       <xsl:text>)
aoqi@0: </xsl:text>
aoqi@0:     </xsl:when>
aoqi@0:     <xsl:otherwise>
aoqi@0:       <xsl:choose>
aoqi@0:         <xsl:when test=".='jvmtiEvent'">
aoqi@0:           <xsl:text>JvmtiTrace::event_name(</xsl:text>
aoqi@0:           <xsl:value-of select="$name"/>
aoqi@0:           <xsl:text>)
aoqi@0:         </xsl:text>
aoqi@0:       </xsl:when>
aoqi@0:       <xsl:otherwise>
aoqi@0:         <xsl:text>JvmtiTrace::enum_name(</xsl:text>
aoqi@0:         <xsl:value-of select="."/>
aoqi@0:         <xsl:text>ConstantNames, </xsl:text>
aoqi@0:         <xsl:value-of select="."/>
aoqi@0:         <xsl:text>ConstantValues, </xsl:text>
aoqi@0:         <xsl:value-of select="$name"/>
aoqi@0:         <xsl:text>)</xsl:text>
aoqi@0:       </xsl:otherwise>
aoqi@0:     </xsl:choose>
aoqi@0:     </xsl:otherwise>
aoqi@0:   </xsl:choose>
aoqi@0: </xsl:template>
aoqi@0: 
aoqi@0: <xsl:template match="jint|jlocation" mode="traceInFormat">
aoqi@0:   <xsl:param name="name"/>
aoqi@0:   <xsl:text> </xsl:text>
aoqi@0:   <xsl:value-of select="$name"/>
aoqi@0:   <xsl:text>=%d</xsl:text>
aoqi@0: </xsl:template>
aoqi@0: 
aoqi@0: <xsl:template match="jlong" mode="traceInFormat">
aoqi@0:   <xsl:param name="name"/>
aoqi@0:   <xsl:text> </xsl:text>
aoqi@0:   <xsl:value-of select="$name"/>
aoqi@0:   <xsl:text>=%ld</xsl:text>
aoqi@0: </xsl:template>
aoqi@0: 
aoqi@0: <xsl:template match="size_t" mode="traceInFormat">
aoqi@0:   <xsl:param name="name"/>
aoqi@0:   <xsl:text> </xsl:text>
aoqi@0:   <xsl:value-of select="$name"/>
aoqi@0:   <xsl:text>=0x%zx</xsl:text>
aoqi@0: </xsl:template>
aoqi@0: 
aoqi@0: <xsl:template match="jfloat|jdouble" mode="traceInFormat">
aoqi@0:   <xsl:param name="name"/>
aoqi@0:   <xsl:text> </xsl:text>
aoqi@0:   <xsl:value-of select="$name"/>
aoqi@0:   <xsl:text>=%f</xsl:text>
aoqi@0: </xsl:template>
aoqi@0: 
aoqi@0: <xsl:template match="char" mode="traceInFormat">
aoqi@0:   <xsl:param name="name"/>
aoqi@0:   <xsl:text> </xsl:text>
aoqi@0:   <xsl:value-of select="$name"/>
aoqi@0:   <xsl:text>=%c</xsl:text>
aoqi@0: </xsl:template>
aoqi@0: 
aoqi@0: <xsl:template match="uchar|jchar" mode="traceInFormat">
aoqi@0:   <xsl:param name="name"/>
aoqi@0:   <xsl:text> </xsl:text>
aoqi@0:   <xsl:value-of select="$name"/>
aoqi@0:   <xsl:text>=0x%x</xsl:text>
aoqi@0: </xsl:template>
aoqi@0: 
aoqi@0: <xsl:template match="jint|jlocation|jchar|jlong|jfloat|jdouble|char|uchar|size_t" mode="traceInValue">
aoqi@0:   <xsl:param name="name"/>
aoqi@0:   <xsl:text>, </xsl:text>
aoqi@0:   <xsl:value-of select="$name"/>
aoqi@0: </xsl:template>
aoqi@0: 
aoqi@0: 
aoqi@0: <xsl:template match="jboolean" mode="traceInFormat">
aoqi@0:   <xsl:param name="name"/>
aoqi@0:   <xsl:text> </xsl:text>
aoqi@0:   <xsl:value-of select="$name"/>
aoqi@0:   <xsl:text>=%s</xsl:text>
aoqi@0: </xsl:template>
aoqi@0: 
aoqi@0: <xsl:template match="jboolean" mode="traceInValue">
aoqi@0:   <xsl:param name="name"/>
aoqi@0:   <xsl:text>, </xsl:text>
aoqi@0:   <xsl:value-of select="$name"/>
aoqi@0:   <xsl:text>? "true" : "false"</xsl:text>
aoqi@0: </xsl:template>
aoqi@0: 
aoqi@0: <xsl:template match="jobject|jvalue|jthreadGroup|void|struct" mode="traceInFormat">
aoqi@0: </xsl:template>
aoqi@0: 
aoqi@0: <xsl:template match="jobject|jvalue|jthreadGroup|void|struct" mode="traceInValue">
aoqi@0: </xsl:template>
aoqi@0: 
aoqi@0: 
aoqi@0: 
aoqi@0: </xsl:stylesheet>