src/os/windows/vm/decoder_windows.cpp

Fri, 05 Apr 2013 11:15:13 -0700

author
ccheung
date
Fri, 05 Apr 2013 11:15:13 -0700
changeset 4893
4b7cf00ccb08
parent 4675
63e54c37ac64
child 5667
38f750491293
permissions
-rw-r--r--

8006001: [parfait] Possible file leak in hotspot/src/os/linux/vm/perfMemory_linux.cpp
Reviewed-by: zgu, coleenp, hseigel, dholmes

zgu@2364 1 /*
simonis@4675 2 * Copyright (c) 1997, 2013, Oracle and/or its affiliates. All rights reserved.
zgu@2364 3 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
zgu@2364 4 *
zgu@2364 5 * This code is free software; you can redistribute it and/or modify it
zgu@2364 6 * under the terms of the GNU General Public License version 2 only, as
zgu@2364 7 * published by the Free Software Foundation.
zgu@2364 8 *
zgu@2364 9 * This code is distributed in the hope that it will be useful, but WITHOUT
zgu@2364 10 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
zgu@2364 11 * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
zgu@2364 12 * version 2 for more details (a copy is included in the LICENSE file that
zgu@2364 13 * accompanied this code).
zgu@2364 14 *
zgu@2364 15 * You should have received a copy of the GNU General Public License version
zgu@2364 16 * 2 along with this work; if not, write to the Free Software Foundation,
zgu@2364 17 * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
zgu@2364 18 *
zgu@2364 19 * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA
zgu@2364 20 * or visit www.oracle.com if you need additional information or have any
zgu@2364 21 * questions.
zgu@2364 22 *
zgu@2364 23 */
zgu@2364 24
zgu@2364 25 #include "precompiled.hpp"
zgu@2364 26 #include "prims/jvm.h"
simonis@4675 27 #include "runtime/arguments.hpp"
zgu@3430 28 #include "decoder_windows.hpp"
zgu@2364 29
zgu@3430 30 WindowsDecoder::WindowsDecoder() {
zgu@3430 31 _dbghelp_handle = NULL;
zgu@3430 32 _can_decode_in_vm = false;
zgu@3430 33 _pfnSymGetSymFromAddr64 = NULL;
zgu@3430 34 _pfnUndecorateSymbolName = NULL;
zgu@2364 35
zgu@3430 36 _decoder_status = no_error;
zgu@3430 37 initialize();
zgu@3430 38 }
zgu@2364 39
zgu@3430 40 void WindowsDecoder::initialize() {
zgu@3430 41 if (!has_error() && _dbghelp_handle == NULL) {
zgu@3430 42 HMODULE handle = ::LoadLibrary("dbghelp.dll");
zgu@2364 43 if (!handle) {
zgu@2364 44 _decoder_status = helper_not_found;
zgu@3430 45 return;
zgu@2364 46 }
zgu@2364 47
zgu@2364 48 _dbghelp_handle = handle;
zgu@2364 49
zgu@2364 50 pfn_SymSetOptions _pfnSymSetOptions = (pfn_SymSetOptions)::GetProcAddress(handle, "SymSetOptions");
zgu@2364 51 pfn_SymInitialize _pfnSymInitialize = (pfn_SymInitialize)::GetProcAddress(handle, "SymInitialize");
zgu@2364 52 _pfnSymGetSymFromAddr64 = (pfn_SymGetSymFromAddr64)::GetProcAddress(handle, "SymGetSymFromAddr64");
zgu@4423 53 _pfnUndecorateSymbolName = (pfn_UndecorateSymbolName)::GetProcAddress(handle, "UnDecorateSymbolName");
zgu@2364 54
zgu@2364 55 if (_pfnSymSetOptions == NULL || _pfnSymInitialize == NULL || _pfnSymGetSymFromAddr64 == NULL) {
zgu@2364 56 _pfnSymGetSymFromAddr64 = NULL;
zgu@2364 57 _pfnUndecorateSymbolName = NULL;
zgu@2364 58 ::FreeLibrary(handle);
zgu@2364 59 _dbghelp_handle = NULL;
zgu@2364 60 _decoder_status = helper_func_error;
zgu@2364 61 return;
zgu@2364 62 }
zgu@2364 63
zgu@4423 64 HANDLE hProcess = ::GetCurrentProcess();
zgu@4423 65 _pfnSymSetOptions(SYMOPT_UNDNAME | SYMOPT_DEFERRED_LOADS | SYMOPT_EXACT_SYMBOLS);
zgu@4423 66 if (!_pfnSymInitialize(hProcess, NULL, TRUE)) {
zgu@2364 67 _pfnSymGetSymFromAddr64 = NULL;
zgu@2364 68 _pfnUndecorateSymbolName = NULL;
zgu@2364 69 ::FreeLibrary(handle);
zgu@2364 70 _dbghelp_handle = NULL;
zgu@2364 71 _decoder_status = helper_init_error;
zgu@2364 72 return;
zgu@2364 73 }
zgu@2364 74
zgu@4423 75 // set pdb search paths
zgu@4423 76 pfn_SymSetSearchPath _pfn_SymSetSearchPath =
zgu@4423 77 (pfn_SymSetSearchPath)::GetProcAddress(handle, "SymSetSearchPath");
zgu@4423 78 pfn_SymGetSearchPath _pfn_SymGetSearchPath =
zgu@4423 79 (pfn_SymGetSearchPath)::GetProcAddress(handle, "SymGetSearchPath");
zgu@4423 80 if (_pfn_SymSetSearchPath != NULL && _pfn_SymGetSearchPath != NULL) {
zgu@4423 81 char paths[MAX_PATH];
zgu@4423 82 int len = sizeof(paths);
zgu@4423 83 if (!_pfn_SymGetSearchPath(hProcess, paths, len)) {
zgu@4423 84 paths[0] = '\0';
zgu@4423 85 } else {
zgu@4423 86 // available spaces in path buffer
zgu@4423 87 len -= (int)strlen(paths);
zgu@4423 88 }
zgu@4423 89
zgu@4423 90 char tmp_path[MAX_PATH];
zgu@4423 91 DWORD dwSize;
zgu@4423 92 HMODULE hJVM = ::GetModuleHandle("jvm.dll");
zgu@4423 93 tmp_path[0] = '\0';
zgu@4423 94 // append the path where jvm.dll is located
zgu@4423 95 if (hJVM != NULL && (dwSize = ::GetModuleFileName(hJVM, tmp_path, sizeof(tmp_path))) > 0) {
zgu@4423 96 while (dwSize > 0 && tmp_path[dwSize] != '\\') {
zgu@4423 97 dwSize --;
zgu@4423 98 }
zgu@4423 99
zgu@4423 100 tmp_path[dwSize] = '\0';
zgu@4423 101
zgu@4423 102 if (dwSize > 0 && len > (int)dwSize + 1) {
zgu@4423 103 strncat(paths, os::path_separator(), 1);
zgu@4423 104 strncat(paths, tmp_path, dwSize);
zgu@4423 105 len -= dwSize + 1;
zgu@4423 106 }
zgu@4423 107 }
zgu@4423 108
zgu@4423 109 // append $JRE/bin. Arguments::get_java_home actually returns $JRE
zgu@4423 110 // path
zgu@4423 111 char *p = Arguments::get_java_home();
zgu@4423 112 assert(p != NULL, "empty java home");
zgu@4423 113 size_t java_home_len = strlen(p);
zgu@4423 114 if (len > (int)java_home_len + 5) {
zgu@4423 115 strncat(paths, os::path_separator(), 1);
zgu@4423 116 strncat(paths, p, java_home_len);
zgu@4423 117 strncat(paths, "\\bin", 4);
zgu@4423 118 len -= (int)(java_home_len + 5);
zgu@4423 119 }
zgu@4423 120
zgu@4423 121 // append $JDK/bin path if it exists
zgu@4423 122 assert(java_home_len < MAX_PATH, "Invalid path length");
zgu@4423 123 // assume $JRE is under $JDK, construct $JDK/bin path and
zgu@4423 124 // see if it exists or not
zgu@4423 125 if (strncmp(&p[java_home_len - 3], "jre", 3) == 0) {
zgu@4423 126 strncpy(tmp_path, p, java_home_len - 3);
zgu@4423 127 tmp_path[java_home_len - 3] = '\0';
zgu@4423 128 strncat(tmp_path, "bin", 3);
zgu@4423 129
zgu@4423 130 // if the directory exists
zgu@4423 131 DWORD dwAttrib = GetFileAttributes(tmp_path);
zgu@4423 132 if (dwAttrib != INVALID_FILE_ATTRIBUTES &&
zgu@4423 133 (dwAttrib & FILE_ATTRIBUTE_DIRECTORY)) {
zgu@4423 134 // tmp_path should have the same length as java_home_len, since we only
zgu@4423 135 // replaced 'jre' with 'bin'
zgu@4423 136 if (len > (int)java_home_len + 1) {
zgu@4423 137 strncat(paths, os::path_separator(), 1);
zgu@4423 138 strncat(paths, tmp_path, java_home_len);
zgu@4423 139 }
zgu@4423 140 }
zgu@4423 141 }
zgu@4423 142
zgu@4423 143 _pfn_SymSetSearchPath(hProcess, paths);
zgu@4423 144 }
zgu@4423 145
zgu@2364 146 // find out if jvm.dll contains private symbols, by decoding
zgu@2364 147 // current function and comparing the result
zgu@3961 148 address addr = (address)Decoder::demangle;
zgu@2364 149 char buf[MAX_PATH];
zgu@3430 150 if (decode(addr, buf, sizeof(buf), NULL)) {
zgu@3961 151 _can_decode_in_vm = !strcmp(buf, "Decoder::demangle");
zgu@2364 152 }
zgu@2364 153 }
zgu@2364 154 }
zgu@2364 155
zgu@3430 156 void WindowsDecoder::uninitialize() {
zgu@2364 157 _pfnSymGetSymFromAddr64 = NULL;
zgu@2364 158 _pfnUndecorateSymbolName = NULL;
zgu@2364 159 if (_dbghelp_handle != NULL) {
zgu@2364 160 ::FreeLibrary(_dbghelp_handle);
zgu@2364 161 }
zgu@3430 162 _dbghelp_handle = NULL;
zgu@2364 163 }
zgu@2364 164
zgu@3430 165 bool WindowsDecoder::can_decode_C_frame_in_vm() const {
zgu@3430 166 return (!has_error() && _can_decode_in_vm);
zgu@2364 167 }
zgu@2364 168
zgu@2364 169
zgu@3430 170 bool WindowsDecoder::decode(address addr, char *buf, int buflen, int* offset, const char* modulepath) {
zgu@2364 171 if (_pfnSymGetSymFromAddr64 != NULL) {
zgu@2364 172 PIMAGEHLP_SYMBOL64 pSymbol;
zgu@2364 173 char symbolInfo[MAX_PATH + sizeof(IMAGEHLP_SYMBOL64)];
zgu@2364 174 pSymbol = (PIMAGEHLP_SYMBOL64)symbolInfo;
zgu@2364 175 pSymbol->MaxNameLength = MAX_PATH;
zgu@2364 176 pSymbol->SizeOfStruct = sizeof(IMAGEHLP_SYMBOL64);
zgu@2364 177 DWORD64 displacement;
zgu@2364 178 if (_pfnSymGetSymFromAddr64(::GetCurrentProcess(), (DWORD64)addr, &displacement, pSymbol)) {
zgu@2364 179 if (buf != NULL) {
zgu@3430 180 if (demangle(pSymbol->Name, buf, buflen)) {
zgu@2364 181 jio_snprintf(buf, buflen, "%s", pSymbol->Name);
zgu@2364 182 }
zgu@2364 183 }
zgu@3430 184 if(offset != NULL) *offset = (int)displacement;
zgu@3430 185 return true;
zgu@2364 186 }
zgu@2364 187 }
zgu@3430 188 if (buf != NULL && buflen > 0) buf[0] = '\0';
zgu@3430 189 if (offset != NULL) *offset = -1;
zgu@3430 190 return false;
zgu@2364 191 }
zgu@2364 192
zgu@3430 193 bool WindowsDecoder::demangle(const char* symbol, char *buf, int buflen) {
zgu@2364 194 return _pfnUndecorateSymbolName != NULL &&
zgu@2364 195 _pfnUndecorateSymbolName(symbol, buf, buflen, UNDNAME_COMPLETE);
zgu@2364 196 }
zgu@2364 197

mercurial