Mercurial > hg > truffle
view src/os/windows/launcher/java_md.c @ 4091:d06a2d7fcd5b
7110718: -XX:MarkSweepAlwaysCompactCount=0 crashes the JVM
Summary: Interpret MarkSweepAlwaysCompactCount < 1 as never do full compaction
Reviewed-by: ysr, tonyp, jmasa, johnc
author | brutisso |
---|---|
date | Mon, 21 Nov 2011 07:47:34 +0100 |
parents | aa6e219afbf1 |
children | 203f64878aab |
line wrap: on
line source
/* * Copyright (c) 1999, 2010, Oracle and/or its affiliates. All rights reserved. * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. * * This code is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 2 only, as * published by the Free Software Foundation. * * This code 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 * version 2 for more details (a copy is included in the LICENSE file that * accompanied this code). * * You should have received a copy of the GNU General Public License version * 2 along with this work; if not, write to the Free Software Foundation, * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA. * * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA * or visit www.oracle.com if you need additional information or have any * questions. * */ #include <ctype.h> #include <windows.h> #include <io.h> #include <process.h> #include <stdlib.h> #include <stdio.h> #include <string.h> #include <sys/types.h> #include <sys/stat.h> #include <jni.h> #include "java.h" #ifndef GAMMA #include "version_comp.h" #endif #define JVM_DLL "jvm.dll" #define JAVA_DLL "java.dll" #define CRT_DLL "msvcr71.dll" /* * Prototypes. */ static jboolean GetPublicJREHome(char *path, jint pathsize); static jboolean GetJVMPath(const char *jrepath, const char *jvmtype, char *jvmpath, jint jvmpathsize); static jboolean GetJREPath(char *path, jint pathsize); static void EnsureJreInstallation(const char *jrepath); /* We supports warmup for UI stack that is performed in parallel * to VM initialization. * This helps to improve startup of UI application as warmup phase * might be long due to initialization of OS or hardware resources. * It is not CPU bound and therefore it does not interfere with VM init. * Obviously such warmup only has sense for UI apps and therefore it needs * to be explicitly requested by passing -Dsun.awt.warmup=true property * (this is always the case for plugin/javaws). * * Implementation launches new thread after VM starts and use it to perform * warmup code (platform dependent). * This thread is later reused as AWT toolkit thread as graphics toolkit * often assume that they are used from the same thread they were launched on. * * At the moment we only support warmup for D3D. It only possible on windows * and only if other flags do not prohibit this (e.g. OpenGL support requested). */ #undef ENABLE_AWT_PRELOAD #ifndef JAVA_ARGS /* turn off AWT preloading for javac, jar, etc */ #ifdef _X86_ /* for now disable AWT preloading for 64bit */ #define ENABLE_AWT_PRELOAD #endif #endif #ifdef ENABLE_AWT_PRELOAD /* "AWT was preloaded" flag; * Turned on by AWTPreload(). */ int awtPreloaded = 0; /* Calls a function with the name specified. * The function must be int(*fn)(void). */ int AWTPreload(const char *funcName); /* Stops AWT preloading. */ void AWTPreloadStop(); /* D3D preloading */ /* -1: not initialized; 0: OFF, 1: ON */ int awtPreloadD3D = -1; /* Command line parameter to swith D3D preloading on. */ #define PARAM_PRELOAD_D3D "-Dsun.awt.warmup" /* D3D/OpenGL management parameters (may disable D3D preloading) */ #define PARAM_NODDRAW "-Dsun.java2d.noddraw" #define PARAM_D3D "-Dsun.java2d.d3d" #define PARAM_OPENGL "-Dsun.java2d.opengl" /* funtion in awt.dll (src/windows/native/sun/java2d/d3d/D3DPipelineManager.cpp) */ #define D3D_PRELOAD_FUNC "preloadD3D" /* Extracts value of a parameter with the specified name * from command line argument (returns pointer in the argument). * Returns NULL if the argument does not contains the parameter. * e.g.: * GetParamValue("theParam", "theParam=value") returns pointer to "value". */ const char * GetParamValue(const char *paramName, const char *arg) { int nameLen = strlen(paramName); if (strncmp(paramName, arg, nameLen) == 0) { // arg[nameLen] is valid (may contain final NULL) if (arg[nameLen] == '=') { return arg + nameLen + 1; } } return NULL; } /* Checks if commandline argument contains property specified * and analyze it as boolean property (true/false). * Returns -1 if the argument does not contain the parameter; * Returns 1 if the argument contains the parameter and its value is "true"; * Returns 0 if the argument contains the parameter and its value is "false". */ int GetBoolParamValue(const char *paramName, const char *arg) { const char * paramValue = GetParamValue(paramName, arg); if (paramValue != NULL) { if (stricmp(paramValue, "true") == 0) { return 1; } if (stricmp(paramValue, "false") == 0) { return 0; } } return -1; } #endif /* ENABLE_AWT_PRELOAD */ const char * GetArch() { #ifdef _M_AMD64 return "amd64"; #elif defined(_M_IA64) return "ia64"; #else return "i386"; #endif } /* * */ void CreateExecutionEnvironment(int *_argc, char ***_argv, char jrepath[], jint so_jrepath, char jvmpath[], jint so_jvmpath, char **original_argv) { #ifndef GAMMA char * jvmtype; /* Find out where the JRE is that we will be using. */ if (!GetJREPath(jrepath, so_jrepath)) { ReportErrorMessage("Error: could not find Java SE Runtime Environment.", JNI_TRUE); exit(2); } /* Do this before we read jvm.cfg */ EnsureJreInstallation(jrepath); /* Find the specified JVM type */ if (ReadKnownVMs(jrepath, (char*)GetArch(), JNI_FALSE) < 1) { ReportErrorMessage("Error: no known VMs. (check for corrupt jvm.cfg file)", JNI_TRUE); exit(1); } jvmtype = CheckJvmType(_argc, _argv, JNI_FALSE); jvmpath[0] = '\0'; if (!GetJVMPath(jrepath, jvmtype, jvmpath, so_jvmpath)) { char * message=NULL; const char * format = "Error: no `%s' JVM at `%s'."; message = (char *)JLI_MemAlloc((strlen(format)+strlen(jvmtype)+ strlen(jvmpath)) * sizeof(char)); sprintf(message,format, jvmtype, jvmpath); ReportErrorMessage(message, JNI_TRUE); exit(4); } /* If we got here, jvmpath has been correctly initialized. */ #else /* ifndef GAMMA */ /* * gamma launcher is simpler in that it doesn't handle VM flavors, data * model, etc. Assuming everything is set-up correctly * all we need to do here is to return correct path names. See also * GetJVMPath() and GetApplicationHome(). */ { if (!GetJREPath(jrepath, so_jrepath) ) { ReportErrorMessage("Error: could not find Java SE Runtime Environment.", JNI_TRUE); exit(2); } if (!GetJVMPath(jrepath, NULL, jvmpath, so_jvmpath)) { char * message=NULL; const char * format = "Error: no JVM at `%s'."; message = (char *)JLI_MemAlloc((strlen(format)+ strlen(jvmpath)) * sizeof(char)); sprintf(message, format, jvmpath); ReportErrorMessage(message, JNI_TRUE); exit(4); } } #endif /* ifndef GAMMA */ } static jboolean LoadMSVCRT() { // Only do this once static int loaded = 0; char crtpath[MAXPATHLEN]; if (!loaded) { /* * The Microsoft C Runtime Library needs to be loaded first. A copy is * assumed to be present in the "JRE path" directory. If it is not found * there (or "JRE path" fails to resolve), skip the explicit load and let * nature take its course, which is likely to be a failure to execute. */ if (GetJREPath(crtpath, MAXPATHLEN)) { (void)strcat(crtpath, "\\bin\\" CRT_DLL); /* Add crt dll */ if (_launcher_debug) { printf("CRT path is %s\n", crtpath); } if (_access(crtpath, 0) == 0) { if (LoadLibrary(crtpath) == 0) { ReportErrorMessage2("Error loading: %s", crtpath, JNI_TRUE); return JNI_FALSE; } } } loaded = 1; } return JNI_TRUE; } /* * The preJVMStart is a function in the jkernel.dll, which * performs the final step of synthesizing back the decomposed * modules (partial install) to the full JRE. Any tool which * uses the JRE must peform this step to ensure the complete synthesis. * The EnsureJreInstallation function calls preJVMStart based on * the conditions outlined below, noting that the operation * will fail silently if any of conditions are not met. * NOTE: this call must be made before jvm.dll is loaded, or jvm.cfg * is read, since jvm.cfg will be modified by the preJVMStart. * 1. Are we on a supported platform. * 2. Find the location of the JRE or the Kernel JRE. * 3. check existence of JREHOME/lib/bundles * 4. check jkernel.dll and invoke the entry-point */ typedef VOID (WINAPI *PREJVMSTART)(); static void EnsureJreInstallation(const char* jrepath) { HINSTANCE handle; char tmpbuf[MAXPATHLEN]; PREJVMSTART PreJVMStart; struct stat s; /* 32 bit windows only please */ if (strcmp(GetArch(), "i386") != 0 ) { if (_launcher_debug) { printf("EnsureJreInstallation:unsupported platform\n"); } return; } /* Does our bundle directory exist ? */ strcpy(tmpbuf, jrepath); strcat(tmpbuf, "\\lib\\bundles"); if (stat(tmpbuf, &s) != 0) { if (_launcher_debug) { printf("EnsureJreInstallation:<%s>:not found\n", tmpbuf); } return; } /* Does our jkernel dll exist ? */ strcpy(tmpbuf, jrepath); strcat(tmpbuf, "\\bin\\jkernel.dll"); if (stat(tmpbuf, &s) != 0) { if (_launcher_debug) { printf("EnsureJreInstallation:<%s>:not found\n", tmpbuf); } return; } /* The Microsoft C Runtime Library needs to be loaded first. */ if (!LoadMSVCRT()) { if (_launcher_debug) { printf("EnsureJreInstallation:could not load C runtime DLL\n"); } return; } /* Load the jkernel.dll */ if ((handle = LoadLibrary(tmpbuf)) == 0) { if (_launcher_debug) { printf("EnsureJreInstallation:%s:load failed\n", tmpbuf); } return; } /* Get the function address */ PreJVMStart = (PREJVMSTART)GetProcAddress(handle, "preJVMStart"); if (PreJVMStart == NULL) { if (_launcher_debug) { printf("EnsureJreInstallation:preJVMStart:function lookup failed\n"); } FreeLibrary(handle); return; } PreJVMStart(); if (_launcher_debug) { printf("EnsureJreInstallation:preJVMStart:called\n"); } FreeLibrary(handle); return; } /* * Find path to JRE based on .exe's location or registry settings. */ jboolean GetJREPath(char *path, jint pathsize) { char javadll[MAXPATHLEN]; struct stat s; if (GetApplicationHome(path, pathsize)) { /* Is JRE co-located with the application? */ sprintf(javadll, "%s\\bin\\" JAVA_DLL, path); if (stat(javadll, &s) == 0) { goto found; } /* Does this app ship a private JRE in <apphome>\jre directory? */ sprintf(javadll, "%s\\jre\\bin\\" JAVA_DLL, path); if (stat(javadll, &s) == 0) { strcat(path, "\\jre"); goto found; } } #ifndef GAMMA /* Look for a public JRE on this machine. */ if (GetPublicJREHome(path, pathsize)) { goto found; } #endif fprintf(stderr, "Error: could not find " JAVA_DLL "\n"); return JNI_FALSE; found: if (_launcher_debug) printf("JRE path is %s\n", path); return JNI_TRUE; } /* * Given a JRE location and a JVM type, construct what the name the * JVM shared library will be. Return true, if such a library * exists, false otherwise. */ static jboolean GetJVMPath(const char *jrepath, const char *jvmtype, char *jvmpath, jint jvmpathsize) { struct stat s; #ifndef GAMMA if (strchr(jvmtype, '/') || strchr(jvmtype, '\\')) { sprintf(jvmpath, "%s\\" JVM_DLL, jvmtype); } else { sprintf(jvmpath, "%s\\bin\\%s\\" JVM_DLL, jrepath, jvmtype); } #else /* * For gamma launcher, JVM is either built-in or in the same directory. * Either way we return "<exe_path>/jvm.dll" where <exe_path> is the * directory where gamma launcher is located. */ char *p; GetModuleFileName(0, jvmpath, jvmpathsize); p = strrchr(jvmpath, '\\'); if (p) { /* replace executable name with libjvm.so */ snprintf(p + 1, jvmpathsize - (p + 1 - jvmpath), "%s", JVM_DLL); } else { /* this case shouldn't happen */ snprintf(jvmpath, jvmpathsize, "%s", JVM_DLL); } #endif /* ifndef GAMMA */ if (stat(jvmpath, &s) == 0) { return JNI_TRUE; } else { return JNI_FALSE; } } /* * Load a jvm from "jvmpath" and initialize the invocation functions. */ jboolean LoadJavaVM(const char *jvmpath, InvocationFunctions *ifn) { #ifdef GAMMA /* JVM is directly linked with gamma launcher; no Loadlibrary() */ ifn->CreateJavaVM = JNI_CreateJavaVM; ifn->GetDefaultJavaVMInitArgs = JNI_GetDefaultJavaVMInitArgs; return JNI_TRUE; #else HINSTANCE handle; if (_launcher_debug) { printf("JVM path is %s\n", jvmpath); } /* The Microsoft C Runtime Library needs to be loaded first. */ LoadMSVCRT(); /* Load the Java VM DLL */ if ((handle = LoadLibrary(jvmpath)) == 0) { ReportErrorMessage2("Error loading: %s", (char *)jvmpath, JNI_TRUE); return JNI_FALSE; } /* Now get the function addresses */ ifn->CreateJavaVM = (void *)GetProcAddress(handle, "JNI_CreateJavaVM"); ifn->GetDefaultJavaVMInitArgs = (void *)GetProcAddress(handle, "JNI_GetDefaultJavaVMInitArgs"); if (ifn->CreateJavaVM == 0 || ifn->GetDefaultJavaVMInitArgs == 0) { ReportErrorMessage2("Error: can't find JNI interfaces in: %s", (char *)jvmpath, JNI_TRUE); return JNI_FALSE; } return JNI_TRUE; #endif /* ifndef GAMMA */ } /* * If app is "c:\foo\bin\javac", then put "c:\foo" into buf. */ jboolean GetApplicationHome(char *buf, jint bufsize) { #ifndef GAMMA char *cp; GetModuleFileName(0, buf, bufsize); *strrchr(buf, '\\') = '\0'; /* remove .exe file name */ if ((cp = strrchr(buf, '\\')) == 0) { /* This happens if the application is in a drive root, and * there is no bin directory. */ buf[0] = '\0'; return JNI_FALSE; } *cp = '\0'; /* remove the bin\ part */ return JNI_TRUE; #else /* ifndef GAMMA */ char env[MAXPATHLEN + 1]; /* gamma launcher uses ALT_JAVA_HOME environment variable or jdkpath.txt file to find JDK/JRE */ if (getenv("ALT_JAVA_HOME") != NULL) { snprintf(buf, bufsize, "%s", getenv("ALT_JAVA_HOME")); } else { char path[MAXPATHLEN + 1]; char* p; int len; FILE* fp; // find the path to the currect executable len = GetModuleFileName(NULL, path, MAXPATHLEN + 1); if (len == 0 || len > MAXPATHLEN) { printf("Could not get directory of current executable."); return JNI_FALSE; } // remove last path component ("hotspot.exe") p = strrchr(path, '\\'); if (p == NULL) { printf("Could not parse directory of current executable.\n"); return JNI_FALSE; } *p = '\0'; // open jdkpath.txt and read JAVA_HOME from it if (strlen(path) + strlen("\\jdkpath.txt") + 1 >= MAXPATHLEN) { printf("Path too long: %s\n", path); return JNI_FALSE; } strcat(path, "\\jdkpath.txt"); fp = fopen(path, "r"); if (fp == NULL) { printf("Could not open file %s to get path to JDK.\n", path); return JNI_FALSE; } if (fgets(buf, bufsize, fp) == NULL) { printf("Could not read from file %s to get path to JDK.\n", path); fclose(fp); return JNI_FALSE; } // trim the buffer p = buf + strlen(buf) - 1; while(isspace(*p)) { *p = '\0'; p--; } fclose(fp); } _snprintf(env, MAXPATHLEN, "JAVA_HOME=%s", buf); _putenv(env); return JNI_TRUE; #endif /* ifndef GAMMA */ } #ifdef JAVAW __declspec(dllimport) char **__initenv; int WINAPI WinMain(HINSTANCE inst, HINSTANCE previnst, LPSTR cmdline, int cmdshow) { int ret; __initenv = _environ; ret = main(__argc, __argv); return ret; } #endif #ifndef GAMMA /* * Helpers to look in the registry for a public JRE. */ /* Same for 1.5.0, 1.5.1, 1.5.2 etc. */ #define DOTRELEASE JDK_MAJOR_VERSION "." JDK_MINOR_VERSION #define JRE_KEY "Software\\JavaSoft\\Java Runtime Environment" static jboolean GetStringFromRegistry(HKEY key, const char *name, char *buf, jint bufsize) { DWORD type, size; if (RegQueryValueEx(key, name, 0, &type, 0, &size) == 0 && type == REG_SZ && (size < (unsigned int)bufsize)) { if (RegQueryValueEx(key, name, 0, 0, buf, &size) == 0) { return JNI_TRUE; } } return JNI_FALSE; } static jboolean GetPublicJREHome(char *buf, jint bufsize) { HKEY key, subkey; char version[MAXPATHLEN]; /* * Note: There is a very similar implementation of the following * registry reading code in the Windows java control panel (javacp.cpl). * If there are bugs here, a similar bug probably exists there. Hence, * changes here require inspection there. */ /* Find the current version of the JRE */ if (RegOpenKeyEx(HKEY_LOCAL_MACHINE, JRE_KEY, 0, KEY_READ, &key) != 0) { fprintf(stderr, "Error opening registry key '" JRE_KEY "'\n"); return JNI_FALSE; } if (!GetStringFromRegistry(key, "CurrentVersion", version, sizeof(version))) { fprintf(stderr, "Failed reading value of registry key:\n\t" JRE_KEY "\\CurrentVersion\n"); RegCloseKey(key); return JNI_FALSE; } if (strcmp(version, DOTRELEASE) != 0) { fprintf(stderr, "Registry key '" JRE_KEY "\\CurrentVersion'\nhas " "value '%s', but '" DOTRELEASE "' is required.\n", version); RegCloseKey(key); return JNI_FALSE; } /* Find directory where the current version is installed. */ if (RegOpenKeyEx(key, version, 0, KEY_READ, &subkey) != 0) { fprintf(stderr, "Error opening registry key '" JRE_KEY "\\%s'\n", version); RegCloseKey(key); return JNI_FALSE; } if (!GetStringFromRegistry(subkey, "JavaHome", buf, bufsize)) { fprintf(stderr, "Failed reading value of registry key:\n\t" JRE_KEY "\\%s\\JavaHome\n", version); RegCloseKey(key); RegCloseKey(subkey); return JNI_FALSE; } if (_launcher_debug) { char micro[MAXPATHLEN]; if (!GetStringFromRegistry(subkey, "MicroVersion", micro, sizeof(micro))) { printf("Warning: Can't read MicroVersion\n"); micro[0] = '\0'; } printf("Version major.minor.micro = %s.%s\n", version, micro); } RegCloseKey(key); RegCloseKey(subkey); return JNI_TRUE; } #endif /* ifndef GAMMA */ /* * Support for doing cheap, accurate interval timing. */ static jboolean counterAvailable = JNI_FALSE; static jboolean counterInitialized = JNI_FALSE; static LARGE_INTEGER counterFrequency; jlong CounterGet() { LARGE_INTEGER count; if (!counterInitialized) { counterAvailable = QueryPerformanceFrequency(&counterFrequency); counterInitialized = JNI_TRUE; } if (!counterAvailable) { return 0; } QueryPerformanceCounter(&count); return (jlong)(count.QuadPart); } jlong Counter2Micros(jlong counts) { if (!counterAvailable || !counterInitialized) { return 0; } return (counts * 1000 * 1000)/counterFrequency.QuadPart; } void ReportErrorMessage(char * message, jboolean always) { #ifdef JAVAW if (message != NULL) { MessageBox(NULL, message, "Java Virtual Machine Launcher", (MB_OK|MB_ICONSTOP|MB_APPLMODAL)); } #else if (always) { fprintf(stderr, "%s\n", message); } #endif } void ReportErrorMessage2(char * format, char * string, jboolean always) { /* * The format argument must be a printf format string with one %s * argument, which is passed the string argument. */ #ifdef JAVAW size_t size; char * message; size = strlen(format) + strlen(string); message = (char*)JLI_MemAlloc(size*sizeof(char)); sprintf(message, (const char *)format, string); if (message != NULL) { MessageBox(NULL, message, "Java Virtual Machine Launcher", (MB_OK|MB_ICONSTOP|MB_APPLMODAL)); JLI_MemFree(message); } #else if (always) { fprintf(stderr, (const char *)format, string); fprintf(stderr, "\n"); } #endif } /* * As ReportErrorMessage2 (above) except the system message (if any) * associated with this error is written to a second %s format specifier * in the format argument. */ void ReportSysErrorMessage2(char * format, char * string, jboolean always) { int save_errno = errno; DWORD errval; int freeit = 0; char *errtext = NULL; if ((errval = GetLastError()) != 0) { /* Platform SDK / DOS Error */ int n = FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM| FORMAT_MESSAGE_IGNORE_INSERTS|FORMAT_MESSAGE_ALLOCATE_BUFFER, NULL, errval, 0, (LPTSTR)&errtext, 0, NULL); if (errtext == NULL || n == 0) { /* Paranoia check */ errtext = ""; n = 0; } else { freeit = 1; if (n > 2) { /* Drop final CR, LF */ if (errtext[n - 1] == '\n') n--; if (errtext[n - 1] == '\r') n--; errtext[n] = '\0'; } } } else /* C runtime error that has no corresponding DOS error code */ errtext = strerror(save_errno); #ifdef JAVAW { size_t size; char * message; size = strlen(format) + strlen(string) + strlen(errtext); message = (char*)JLI_MemAlloc(size*sizeof(char)); sprintf(message, (const char *)format, string, errtext); if (message != NULL) { MessageBox(NULL, message, "Java Virtual Machine Launcher", (MB_OK|MB_ICONSTOP|MB_APPLMODAL)); JLI_MemFree(message); } } #else if (always) { fprintf(stderr, (const char *)format, string, errtext); fprintf(stderr, "\n"); } #endif if (freeit) (void)LocalFree((HLOCAL)errtext); } void ReportExceptionDescription(JNIEnv * env) { #ifdef JAVAW /* * This code should be replaced by code which opens a window with * the exception detail message. */ (*env)->ExceptionDescribe(env); #else (*env)->ExceptionDescribe(env); #endif } /* * Return JNI_TRUE for an option string that has no effect but should * _not_ be passed on to the vm; return JNI_FALSE otherwise. On * windows, there are no options that should be screened in this * manner. */ jboolean RemovableMachineDependentOption(char * option) { #ifdef ENABLE_AWT_PRELOAD if (awtPreloadD3D < 0) { /* Tests the command line parameter only if not set yet. */ if (GetBoolParamValue(PARAM_PRELOAD_D3D, option) == 1) { awtPreloadD3D = 1; } } if (awtPreloadD3D != 0) { /* Don't test the command line parameters if already disabled. */ if (GetBoolParamValue(PARAM_NODDRAW, option) == 1 || GetBoolParamValue(PARAM_D3D, option) == 0 || GetBoolParamValue(PARAM_OPENGL, option) == 1) { awtPreloadD3D = 0; } } #endif /* ENABLE_AWT_PRELOAD */ return JNI_FALSE; } void PrintMachineDependentOptions() { return; } #ifndef GAMMA jboolean ServerClassMachine() { jboolean result = JNI_FALSE; #if defined(NEVER_ACT_AS_SERVER_CLASS_MACHINE) result = JNI_FALSE; #elif defined(ALWAYS_ACT_AS_SERVER_CLASS_MACHINE) result = JNI_TRUE; #endif return result; } /* * Determine if there is an acceptable JRE in the registry directory top_key. * Upon locating the "best" one, return a fully qualified path to it. * "Best" is defined as the most advanced JRE meeting the constraints * contained in the manifest_info. If no JRE in this directory meets the * constraints, return NULL. * * It doesn't matter if we get an error reading the registry, or we just * don't find anything interesting in the directory. We just return NULL * in either case. */ static char * ProcessDir(manifest_info* info, HKEY top_key) { DWORD index = 0; HKEY ver_key; char name[MAXNAMELEN]; int len; char *best = NULL; /* * Enumerate "<top_key>/SOFTWARE/JavaSoft/Java Runtime Environment" * searching for the best available version. */ while (RegEnumKey(top_key, index, name, MAXNAMELEN) == ERROR_SUCCESS) { index++; if (JLI_AcceptableRelease(name, info->jre_version)) if ((best == NULL) || (JLI_ExactVersionId(name, best) > 0)) { if (best != NULL) JLI_MemFree(best); best = JLI_StringDup(name); } } /* * Extract "JavaHome" from the "best" registry directory and return * that path. If no appropriate version was located, or there is an * error in extracting the "JavaHome" string, return null. */ if (best == NULL) return (NULL); else { if (RegOpenKeyEx(top_key, best, 0, KEY_READ, &ver_key) != ERROR_SUCCESS) { JLI_MemFree(best); if (ver_key != NULL) RegCloseKey(ver_key); return (NULL); } JLI_MemFree(best); len = MAXNAMELEN; if (RegQueryValueEx(ver_key, "JavaHome", NULL, NULL, (LPBYTE)name, &len) != ERROR_SUCCESS) { if (ver_key != NULL) RegCloseKey(ver_key); return (NULL); } if (ver_key != NULL) RegCloseKey(ver_key); return (JLI_StringDup(name)); } } /* * This is the global entry point. It examines the host for the optimal * JRE to be used by scanning a set of registry entries. This set of entries * is hardwired on Windows as "Software\JavaSoft\Java Runtime Environment" * under the set of roots "{ HKEY_CURRENT_USER, HKEY_LOCAL_MACHINE }". * * This routine simply opens each of these registry directories before passing * control onto ProcessDir(). */ char * LocateJRE(manifest_info* info) { HKEY key = NULL; char *path; int key_index; HKEY root_keys[2] = { HKEY_CURRENT_USER, HKEY_LOCAL_MACHINE }; for (key_index = 0; key_index <= 1; key_index++) { if (RegOpenKeyEx(root_keys[key_index], JRE_KEY, 0, KEY_READ, &key) == ERROR_SUCCESS) if ((path = ProcessDir(info, key)) != NULL) { if (key != NULL) RegCloseKey(key); return (path); } if (key != NULL) RegCloseKey(key); } return NULL; } /* * Local helper routine to isolate a single token (option or argument) * from the command line. * * This routine accepts a pointer to a character pointer. The first * token (as defined by MSDN command-line argument syntax) is isolated * from that string. * * Upon return, the input character pointer pointed to by the parameter s * is updated to point to the remainding, unscanned, portion of the string, * or to a null character if the entire string has been consummed. * * This function returns a pointer to a null-terminated string which * contains the isolated first token, or to the null character if no * token could be isolated. * * Note the side effect of modifying the input string s by the insertion * of a null character, making it two strings. * * See "Parsing C Command-Line Arguments" in the MSDN Library for the * parsing rule details. The rule summary from that specification is: * * * Arguments are delimited by white space, which is either a space or a tab. * * * A string surrounded by double quotation marks is interpreted as a single * argument, regardless of white space contained within. A quoted string can * be embedded in an argument. Note that the caret (^) is not recognized as * an escape character or delimiter. * * * A double quotation mark preceded by a backslash, \", is interpreted as a * literal double quotation mark ("). * * * Backslashes are interpreted literally, unless they immediately precede a * double quotation mark. * * * If an even number of backslashes is followed by a double quotation mark, * then one backslash (\) is placed in the argv array for every pair of * backslashes (\\), and the double quotation mark (") is interpreted as a * string delimiter. * * * If an odd number of backslashes is followed by a double quotation mark, * then one backslash (\) is placed in the argv array for every pair of * backslashes (\\) and the double quotation mark is interpreted as an * escape sequence by the remaining backslash, causing a literal double * quotation mark (") to be placed in argv. */ static char* nextarg(char** s) { char *p = *s; char *head; int slashes = 0; int inquote = 0; /* * Strip leading whitespace, which MSDN defines as only space or tab. * (Hence, no locale specific "isspace" here.) */ while (*p != (char)0 && (*p == ' ' || *p == '\t')) p++; head = p; /* Save the start of the token to return */ /* * Isolate a token from the command line. */ while (*p != (char)0 && (inquote || !(*p == ' ' || *p == '\t'))) { if (*p == '\\' && *(p+1) == '"' && slashes % 2 == 0) p++; else if (*p == '"') inquote = !inquote; slashes = (*p++ == '\\') ? slashes + 1 : 0; } /* * If the token isolated isn't already terminated in a "char zero", * then replace the whitespace character with one and move to the * next character. */ if (*p != (char)0) *p++ = (char)0; /* * Update the parameter to point to the head of the remaining string * reflecting the command line and return a pointer to the leading * token which was isolated from the command line. */ *s = p; return (head); } /* * Local helper routine to return a string equivalent to the input string * s, but with quotes removed so the result is a string as would be found * in argv[]. The returned string should be freed by a call to JLI_MemFree(). * * The rules for quoting (and escaped quotes) are: * * 1 A double quotation mark preceded by a backslash, \", is interpreted as a * literal double quotation mark ("). * * 2 Backslashes are interpreted literally, unless they immediately precede a * double quotation mark. * * 3 If an even number of backslashes is followed by a double quotation mark, * then one backslash (\) is placed in the argv array for every pair of * backslashes (\\), and the double quotation mark (") is interpreted as a * string delimiter. * * 4 If an odd number of backslashes is followed by a double quotation mark, * then one backslash (\) is placed in the argv array for every pair of * backslashes (\\) and the double quotation mark is interpreted as an * escape sequence by the remaining backslash, causing a literal double * quotation mark (") to be placed in argv. */ static char* unquote(const char *s) { const char *p = s; /* Pointer to the tail of the original string */ char *un = (char*)JLI_MemAlloc(strlen(s) + 1); /* Ptr to unquoted string */ char *pun = un; /* Pointer to the tail of the unquoted string */ while (*p != '\0') { if (*p == '"') { p++; } else if (*p == '\\') { const char *q = p + strspn(p,"\\"); if (*q == '"') do { *pun++ = '\\'; p += 2; } while (*p == '\\' && p < q); else while (p < q) *pun++ = *p++; } else { *pun++ = *p++; } } *pun = '\0'; return un; } /* * Given a path to a jre to execute, this routine checks if this process * is indeed that jre. If not, it exec's that jre. * * We want to actually check the paths rather than just the version string * built into the executable, so that given version specification will yield * the exact same Java environment, regardless of the version of the arbitrary * launcher we start with. */ void ExecJRE(char *jre, char **argv) { int len; char *progname; char path[MAXPATHLEN + 1]; /* * Determine the executable we are building (or in the rare case, running). */ #ifdef JAVA_ARGS /* javac, jar and friends. */ progname = "java"; #else /* java, oldjava, javaw and friends */ #ifdef PROGNAME progname = PROGNAME; #else { char *s; progname = *argv; if ((s = strrchr(progname, FILE_SEPARATOR)) != 0) { progname = s + 1; } } #endif /* PROGNAME */ #endif /* JAVA_ARGS */ /* * Resolve the real path to the currently running launcher. */ len = GetModuleFileName(NULL, path, MAXPATHLEN + 1); if (len == 0 || len > MAXPATHLEN) { ReportSysErrorMessage2( "Unable to resolve path to current %s executable: %s", progname, JNI_TRUE); exit(1); } if (_launcher_debug) { printf("ExecJRE: old: %s\n", path); printf("ExecJRE: new: %s\n", jre); } /* * If the path to the selected JRE directory is a match to the initial * portion of the path to the currently executing JRE, we have a winner! * If so, just return. (strnicmp() is the Windows equiv. of strncasecmp().) */ if (strnicmp(jre, path, strlen(jre)) == 0) return; /* I am the droid you were looking for */ /* * If this isn't the selected version, exec the selected version. */ (void)strcat(strcat(strcpy(path, jre), "\\bin\\"), progname); (void)strcat(path, ".exe"); /* * Although Windows has an execv() entrypoint, it doesn't actually * overlay a process: it can only create a new process and terminate * the old process. Therefore, any processes waiting on the initial * process wake up and they shouldn't. Hence, a chain of pseudo-zombie * processes must be retained to maintain the proper wait semantics. * Fortunately the image size of the launcher isn't too large at this * time. * * If it weren't for this semantic flaw, the code below would be ... * * execv(path, argv); * ReportErrorMessage2("Exec of %s failed\n", path, JNI_TRUE); * exit(1); * * The incorrect exec semantics could be addressed by: * * exit((int)spawnv(_P_WAIT, path, argv)); * * Unfortunately, a bug in Windows spawn/exec impementation prevents * this from completely working. All the Windows POSIX process creation * interfaces are implemented as wrappers around the native Windows * function CreateProcess(). CreateProcess() takes a single string * to specify command line options and arguments, so the POSIX routine * wrappers build a single string from the argv[] array and in the * process, any quoting information is lost. * * The solution to this to get the original command line, to process it * to remove the new multiple JRE options (if any) as was done for argv * in the common SelectVersion() routine and finally to pass it directly * to the native CreateProcess() Windows process control interface. */ { char *cmdline; char *p; char *np; char *ocl; char *ccl; char *unquoted; DWORD exitCode; STARTUPINFO si; PROCESS_INFORMATION pi; /* * The following code block gets and processes the original command * line, replacing the argv[0] equivalent in the command line with * the path to the new executable and removing the appropriate * Multiple JRE support options. Note that similar logic exists * in the platform independent SelectVersion routine, but is * replicated here due to the syntax of CreateProcess(). * * The magic "+ 4" characters added to the command line length are * 2 possible quotes around the path (argv[0]), a space after the * path and a terminating null character. */ ocl = GetCommandLine(); np = ccl = JLI_StringDup(ocl); p = nextarg(&np); /* Discard argv[0] */ cmdline = (char *)JLI_MemAlloc(strlen(path) + strlen(np) + 4); if (strchr(path, (int)' ') == NULL && strchr(path, (int)'\t') == NULL) cmdline = strcpy(cmdline, path); else cmdline = strcat(strcat(strcpy(cmdline, "\""), path), "\""); while (*np != (char)0) { /* While more command-line */ p = nextarg(&np); if (*p != (char)0) { /* If a token was isolated */ unquoted = unquote(p); if (*unquoted == '-') { /* Looks like an option */ if (strcmp(unquoted, "-classpath") == 0 || strcmp(unquoted, "-cp") == 0) { /* Unique cp syntax */ cmdline = strcat(strcat(cmdline, " "), p); p = nextarg(&np); if (*p != (char)0) /* If a token was isolated */ cmdline = strcat(strcat(cmdline, " "), p); } else if (strncmp(unquoted, "-version:", 9) != 0 && strcmp(unquoted, "-jre-restrict-search") != 0 && strcmp(unquoted, "-no-jre-restrict-search") != 0) { cmdline = strcat(strcat(cmdline, " "), p); } } else { /* End of options */ cmdline = strcat(strcat(cmdline, " "), p); cmdline = strcat(strcat(cmdline, " "), np); JLI_MemFree((void *)unquoted); break; } JLI_MemFree((void *)unquoted); } } JLI_MemFree((void *)ccl); if (_launcher_debug) { np = ccl = JLI_StringDup(cmdline); p = nextarg(&np); printf("ReExec Command: %s (%s)\n", path, p); printf("ReExec Args: %s\n", np); JLI_MemFree((void *)ccl); } (void)fflush(stdout); (void)fflush(stderr); /* * The following code is modeled after a model presented in the * Microsoft Technical Article "Moving Unix Applications to * Windows NT" (March 6, 1994) and "Creating Processes" on MSDN * (Februrary 2005). It approximates UNIX spawn semantics with * the parent waiting for termination of the child. */ memset(&si, 0, sizeof(si)); si.cb =sizeof(STARTUPINFO); memset(&pi, 0, sizeof(pi)); if (!CreateProcess((LPCTSTR)path, /* executable name */ (LPTSTR)cmdline, /* command line */ (LPSECURITY_ATTRIBUTES)NULL, /* process security attr. */ (LPSECURITY_ATTRIBUTES)NULL, /* thread security attr. */ (BOOL)TRUE, /* inherits system handles */ (DWORD)0, /* creation flags */ (LPVOID)NULL, /* environment block */ (LPCTSTR)NULL, /* current directory */ (LPSTARTUPINFO)&si, /* (in) startup information */ (LPPROCESS_INFORMATION)&pi)) { /* (out) process information */ ReportSysErrorMessage2("CreateProcess(%s, ...) failed: %s", path, JNI_TRUE); exit(1); } if (WaitForSingleObject(pi.hProcess, INFINITE) != WAIT_FAILED) { if (GetExitCodeProcess(pi.hProcess, &exitCode) == FALSE) exitCode = 1; } else { ReportErrorMessage("WaitForSingleObject() failed.", JNI_TRUE); exitCode = 1; } CloseHandle(pi.hThread); CloseHandle(pi.hProcess); exit(exitCode); } } #endif /* ifndef GAMMA */ /* * Wrapper for platform dependent unsetenv function. */ int UnsetEnv(char *name) { int ret; char *buf = JLI_MemAlloc(strlen(name) + 2); buf = strcat(strcpy(buf, name), "="); ret = _putenv(buf); JLI_MemFree(buf); return (ret); } /* --- Splash Screen shared library support --- */ static const char* SPLASHSCREEN_SO = "\\bin\\splashscreen.dll"; static HMODULE hSplashLib = NULL; void* SplashProcAddress(const char* name) { char libraryPath[MAXPATHLEN]; /* some extra space for strcat'ing SPLASHSCREEN_SO */ if (!GetJREPath(libraryPath, MAXPATHLEN)) { return NULL; } if (strlen(libraryPath)+strlen(SPLASHSCREEN_SO) >= MAXPATHLEN) { return NULL; } strcat(libraryPath, SPLASHSCREEN_SO); if (!hSplashLib) { hSplashLib = LoadLibrary(libraryPath); } if (hSplashLib) { return GetProcAddress(hSplashLib, name); } else { return NULL; } } void SplashFreeLibrary() { if (hSplashLib) { FreeLibrary(hSplashLib); hSplashLib = NULL; } } const char * jlong_format_specifier() { return "%I64d"; } /* * Block current thread and continue execution in a new thread */ int ContinueInNewThread(int (JNICALL *continuation)(void *), jlong stack_size, void * args) { int rslt = 0; unsigned thread_id; #ifndef STACK_SIZE_PARAM_IS_A_RESERVATION #define STACK_SIZE_PARAM_IS_A_RESERVATION (0x10000) #endif /* * STACK_SIZE_PARAM_IS_A_RESERVATION is what we want, but it's not * supported on older version of Windows. Try first with the flag; and * if that fails try again without the flag. See MSDN document or HotSpot * source (os_win32.cpp) for details. */ HANDLE thread_handle = (HANDLE)_beginthreadex(NULL, (unsigned)stack_size, continuation, args, STACK_SIZE_PARAM_IS_A_RESERVATION, &thread_id); if (thread_handle == NULL) { thread_handle = (HANDLE)_beginthreadex(NULL, (unsigned)stack_size, continuation, args, 0, &thread_id); } /* AWT preloading (AFTER main thread start) */ #ifdef ENABLE_AWT_PRELOAD /* D3D preloading */ if (awtPreloadD3D != 0) { char *envValue; /* D3D routines checks env.var J2D_D3D if no appropriate * command line params was specified */ envValue = getenv("J2D_D3D"); if (envValue != NULL && stricmp(envValue, "false") == 0) { awtPreloadD3D = 0; } /* Test that AWT preloading isn't disabled by J2D_D3D_PRELOAD env.var */ envValue = getenv("J2D_D3D_PRELOAD"); if (envValue != NULL && stricmp(envValue, "false") == 0) { awtPreloadD3D = 0; } if (awtPreloadD3D < 0) { /* If awtPreloadD3D is still undefined (-1), test * if it is turned on by J2D_D3D_PRELOAD env.var. * By default it's turned OFF. */ awtPreloadD3D = 0; if (envValue != NULL && stricmp(envValue, "true") == 0) { awtPreloadD3D = 1; } } } if (awtPreloadD3D) { AWTPreload(D3D_PRELOAD_FUNC); } #endif /* ENABLE_AWT_PRELOAD */ if (thread_handle) { WaitForSingleObject(thread_handle, INFINITE); GetExitCodeThread(thread_handle, &rslt); CloseHandle(thread_handle); } else { rslt = continuation(args); } #ifdef ENABLE_AWT_PRELOAD if (awtPreloaded) { AWTPreloadStop(); } #endif /* ENABLE_AWT_PRELOAD */ return rslt; } /* Linux only, empty on windows. */ void SetJavaLauncherPlatformProps() {} //============================== // AWT preloading #ifdef ENABLE_AWT_PRELOAD typedef int FnPreloadStart(void); typedef void FnPreloadStop(void); static FnPreloadStop *fnPreloadStop = NULL; static HMODULE hPreloadAwt = NULL; /* * Starts AWT preloading */ int AWTPreload(const char *funcName) { int result = -1; // load AWT library once (if several preload function should be called) if (hPreloadAwt == NULL) { // awt.dll is not loaded yet char libraryPath[MAXPATHLEN]; int jrePathLen = 0; HMODULE hJava = NULL; HMODULE hVerify = NULL; while (1) { // awt.dll depends on jvm.dll & java.dll; // jvm.dll is already loaded, so we need only java.dll; // java.dll depends on MSVCRT lib & verify.dll. if (!GetJREPath(libraryPath, MAXPATHLEN)) { break; } // save path length jrePathLen = strlen(libraryPath); // load msvcrt 1st LoadMSVCRT(); // load verify.dll strcat(libraryPath, "\\bin\\verify.dll"); hVerify = LoadLibrary(libraryPath); if (hVerify == NULL) { break; } // restore jrePath libraryPath[jrePathLen] = 0; // load java.dll strcat(libraryPath, "\\bin\\" JAVA_DLL); hJava = LoadLibrary(libraryPath); if (hJava == NULL) { break; } // restore jrePath libraryPath[jrePathLen] = 0; // load awt.dll strcat(libraryPath, "\\bin\\awt.dll"); hPreloadAwt = LoadLibrary(libraryPath); if (hPreloadAwt == NULL) { break; } // get "preloadStop" func ptr fnPreloadStop = (FnPreloadStop *)GetProcAddress(hPreloadAwt, "preloadStop"); break; } } if (hPreloadAwt != NULL) { FnPreloadStart *fnInit = (FnPreloadStart *)GetProcAddress(hPreloadAwt, funcName); if (fnInit != NULL) { // don't forget to stop preloading awtPreloaded = 1; result = fnInit(); } } return result; } /* * Terminates AWT preloading */ void AWTPreloadStop() { if (fnPreloadStop != NULL) { fnPreloadStop(); } } #endif /* ENABLE_AWT_PRELOAD */