[Vm-dev] [commit][3196]
Qualify the pointer used to determine the redzone size as volatile,
otherwise
commits at squeakvm.org
commits at squeakvm.org
Tue Dec 30 19:02:37 UTC 2014
Revision: 3196
Author: eliot
Date: 2014-12-30 11:02:32 -0800 (Tue, 30 Dec 2014)
Log Message:
-----------
Qualify the pointer used to determine the redzone size as volatile, otherwise
newer gccs optimise it away (thanks Ryan).
Rename sqWin32Intel.c to sqWin32Main.c to match the other platforms, and hence
be e.g. grep-friendly.
Fix warning about missing newline at end of generated win32 sqNamedPrims.h.
Modified Paths:
--------------
branches/Cog/platforms/Mac OS/vm/sqMacMain.c
branches/Cog/platforms/unix/vm/sqUnixMain.c
branches/Cog/platforms/win32/misc/Squeak.dsp
branches/Cog/platforms/win32/util/mkNamedPrims.c
branches/Cog/platforms/win32/vm/sqWin32PluginSupport.c
branches/Cog/platforms/win32/vm/sqWin32Service.c
branches/Cog/platforms/win32/vm/sqWin32SpurAlloc.c
Added Paths:
-----------
branches/Cog/platforms/win32/vm/sqWin32Main.c
Removed Paths:
-------------
branches/Cog/platforms/win32/vm/sqWin32Intel.c
Property Changed:
----------------
branches/Cog/platforms/Cross/vm/sqSCCSVersion.h
Property changes on: branches/Cog/platforms/Cross/vm/sqSCCSVersion.h
___________________________________________________________________
Modified: checkindate
- Fri Dec 26 17:33:54 PST 2014
+ Tue Dec 30 11:00:13 PST 2014
Modified: branches/Cog/platforms/Mac OS/vm/sqMacMain.c
===================================================================
--- branches/Cog/platforms/Mac OS/vm/sqMacMain.c 2014-12-27 01:37:21 UTC (rev 3195)
+++ branches/Cog/platforms/Mac OS/vm/sqMacMain.c 2014-12-30 19:02:32 UTC (rev 3196)
@@ -1133,7 +1133,7 @@
#if !defined(min)
# define min(x,y) (((x)>(y))?(y):(x))
#endif
-static char *p = 0;
+static volatile char *p = 0;
static void
sighandler(int sig) { p = (char *)&sig; }
Modified: branches/Cog/platforms/unix/vm/sqUnixMain.c
===================================================================
--- branches/Cog/platforms/unix/vm/sqUnixMain.c 2014-12-27 01:37:21 UTC (rev 3195)
+++ branches/Cog/platforms/unix/vm/sqUnixMain.c 2014-12-30 19:02:32 UTC (rev 3196)
@@ -2113,7 +2113,7 @@
#if !defined(min)
# define min(x,y) (((x)>(y))?(y):(x))
#endif
-static char *p = 0;
+static volatile char *p = 0;
static void
sighandler(int sig) { p = (char *)&sig; }
Modified: branches/Cog/platforms/win32/misc/Squeak.dsp
===================================================================
--- branches/Cog/platforms/win32/misc/Squeak.dsp 2014-12-27 01:37:21 UTC (rev 3195)
+++ branches/Cog/platforms/win32/misc/Squeak.dsp 2014-12-30 19:02:32 UTC (rev 3196)
@@ -141,7 +141,7 @@
# End Source File
# Begin Source File
-SOURCE=..\vm\sqWin32Intel.c
+SOURCE=..\vm\sqWin32Main.c
# SUBTRACT CPP /D "SQUEAK_BUILTIN_PLUGIN"
# End Source File
# Begin Source File
Modified: branches/Cog/platforms/win32/util/mkNamedPrims.c
===================================================================
--- branches/Cog/platforms/win32/util/mkNamedPrims.c 2014-12-27 01:37:21 UTC (rev 3195)
+++ branches/Cog/platforms/win32/util/mkNamedPrims.c 2014-12-30 19:02:32 UTC (rev 3196)
@@ -21,6 +21,6 @@
printf("\t%s_exports,\n", argv[i]);
}
printf("\tNULL\n");
- printf("};");
+ printf("};\n");
return 0;
}
Deleted: branches/Cog/platforms/win32/vm/sqWin32Intel.c
===================================================================
--- branches/Cog/platforms/win32/vm/sqWin32Intel.c 2014-12-27 01:37:21 UTC (rev 3195)
+++ branches/Cog/platforms/win32/vm/sqWin32Intel.c 2014-12-30 19:02:32 UTC (rev 3196)
@@ -1,2032 +0,0 @@
-/****************************************************************************
-* PROJECT: Squeak port for Win32 (NT / Win95)
-* FILE: sqWin32Intel.c
-* CONTENT: Special support stuff only for Win95/WinNT on x86
-*
-* AUTHOR: Andreas Raab (ar)
-* ADDRESS: University of Magdeburg, Germany
-* EMAIL: raab at isg.cs.uni-magdeburg.de
-* RCSID: $Id: sqWin32Intel.c 1435 2006-04-11 00:17:05Z andreas $
-*
-* NOTES: (I think this comment of Andreas' is obsolete; eem 6/2013)
-* 1) When using this module the virtual machine MUST NOT be compiled
-* with Unicode support.
-*****************************************************************************/
-#include <windows.h>
-#include <stdio.h>
-#include <string.h>
-#include <fcntl.h> /* _O_BINARY */
-#include <float.h>
-#include <ole2.h>
-#include "sq.h"
-#include "sqAssert.h"
-#include "sqWin32Backtrace.h"
-#include "sqSCCSVersion.h"
-#if COGVM
-# include "cogmethod.h"
-# if COGMTVM
-# include "cointerpmt.h"
-# else
-# include "cointerp.h"
-# endif
-#endif
-
-/* Windows Vista support
- * AUTHOR: Korakurider (kr)
- * CHANGE NOTES:
- * 1) new command line option "-lowRights" was introduced
- * to support IE7/protected mode.
- */
-#define VISTA_SECURITY 1 /* IE7/Vista protected mode support */
-
-/*** Crash debug -- Imported from Virtual Machine ***/
-int getFullScreenFlag(void);
-int methodPrimitiveIndex(void);
-int getCurrentBytecode(void);
-
-extern TCHAR squeakIniName[];
-extern void printPhaseTime(int);
-
-/* Import from sqWin32Alloc.c */
-LONG CALLBACK sqExceptionFilter(LPEXCEPTION_POINTERS exp);
-
-/* forwarded declaration */
-static void printCrashDebugInformation(LPEXCEPTION_POINTERS exp);
-
-/*** Variables -- command line */
-static char *initialCmdLine;
-static int numOptionsVM = 0;
-static char **vmOptions;
-static int numOptionsImage = 0;
-static char **imageOptions;
-static int clargc; /* the Unix-style command line, saved for GetImageOption */
-static char **clargv;
-
-/* console buffer */
-BOOL fIsConsole = 0;
-TCHAR consoleBuffer[4096];
-
-/* stderr and stdout names */
-char stderrName[MAX_PATH+1];
-char stdoutName[MAX_PATH+1];
-
-static char vmLogDirA[MAX_PATH];
-static WCHAR vmLogDirW[MAX_PATH];
-
-TCHAR *logName = TEXT(""); /* full path and name to log file */
-
-#ifdef VISTA_SECURITY
-BOOL fLowRights = 0; /* started as low integiry process,
- need to use alternate untrustedUserDirectory */
-#endif /* VISTA_SECURITY */
-
-/* Service stuff */
-TCHAR serviceName[MAX_PATH+1]; /* The name of the NT service */
-TCHAR *installServiceName = NULL; /* the name under which the service is to install */
-BOOL fBroadcastService95 = 0; /* Do we need a broadcast when a user has logged on? */
-UINT WM_BROADCAST_SERVICE = 0; /* The broadcast message we send */
-TCHAR *msgBroadcastService = TEXT("SQUEAK_SERVICE_BROADCAST_MESSAGE"); /* The name of the broadcast message */
-
-UINT SQ_LAUNCH_DROP = 0; /* Message sent when second instance launches */
-
-/* Embedded images */
-static sqImageFile imageFile = 0;
-static int imageSize = 0;
-
-void SetSystemTrayIcon(BOOL on);
-
-/* default fpu control word:
- _RC_NEAR: round to nearest
- _PC_53 : double precision arithmetic (instead of extended)
- _EM_XXX: silent operations (no signals please)
-*/
-#define FPU_DEFAULT (_RC_NEAR + _PC_53 + _EM_INVALID + _EM_ZERODIVIDE + _EM_OVERFLOW + _EM_UNDERFLOW + _EM_INEXACT + _EM_DENORMAL)
-
-/****************************************************************************/
-/* Exception handling */
-/****************************************************************************/
-/* The following installs us a global exception filter for *all* exceptions */
-/* in Squeak. This is necessary since the C support of Mingw32 for SEH is */
-/* not as sophisticated as MSVC's support. However, with this new handling */
-/* scheme the entire thing becomes actually a lot simpler... */
-/****************************************************************************/
-static LPTOP_LEVEL_EXCEPTION_FILTER TopLevelFilter = NULL;
-
-static LONG CALLBACK
-squeakExceptionHandler(LPEXCEPTION_POINTERS exp)
-{
- DWORD result;
-
- /* #1: Try to handle exception in the regular (memory access)
- exception filter if virtual memory support is enabled */
-#ifndef NO_VIRTUAL_MEMORY
- result = sqExceptionFilter(exp);
-#else
- result = EXCEPTION_CONTINUE_SEARCH;
-#endif
-
- /* #2: If that didn't work, try to handle any FP problems */
- if(result != EXCEPTION_CONTINUE_EXECUTION) {
- DWORD code = exp->ExceptionRecord->ExceptionCode;
- if((code >= EXCEPTION_FLT_DENORMAL_OPERAND) && (code <= EXCEPTION_FLT_UNDERFLOW)) {
- /* turn on the default masking of exceptions in the FPU and proceed */
- _control87(FPU_DEFAULT, _MCW_EM | _MCW_RC | _MCW_PC | _MCW_IC);
- result = EXCEPTION_CONTINUE_EXECUTION;
- }
- }
-
- /* #3: If that didn't work either try passing it on to the old
- top-level filter */
- if(result != EXCEPTION_CONTINUE_EXECUTION) {
- if(TopLevelFilter) {
- result = TopLevelFilter(exp);
- }
- }
-#ifdef NDEBUG
- /* #4: If that didn't work either give up and print a crash debug information */
- if(result != EXCEPTION_CONTINUE_EXECUTION) {
- printCrashDebugInformation(exp);
- result = EXCEPTION_EXECUTE_HANDLER;
- }
-#endif
- return result;
-}
-
-void InstallExceptionHandler(void)
-{
- TopLevelFilter = SetUnhandledExceptionFilter(squeakExceptionHandler);
-}
-
-void UninstallExceptionHandler(void)
-{
- SetUnhandledExceptionFilter(TopLevelFilter);
- TopLevelFilter = NULL;
-}
-
-/* N.B. As of cygwin 1.5.25 fopen("crash.dmp","a") DOES NOT WORK! crash.dmp
- * contains garbled output as if the file pointer gets set to the start of the
- * file, not the end. So we synthesize our own append mode.
- */
-#if __MINGW32__
-# include <io.h>
-static FILE *
-fopen_for_append(char *filename)
-{
- FILE *f = !access(filename, F_OK) /* access is bass ackwards */
- ? fopen(filename,"r+")
- : fopen(filename,"w+");
- if (f)
- fseek(f,0,SEEK_END);
- return f;
-}
-#else
-# define fopen_for_append(filename) fopen(filename,"a+t")
-#endif
-
-/****************************************************************************/
-/* Console Window functions */
-/****************************************************************************/
-static int
-OutputLogMessage(char *string)
-{ FILE *fp;
-
- if(!*logName) return 1;
- fp = fopen_for_append(logName);
- if(!fp) return 1;
- fprintf(fp, "%s", string);
- fflush(fp);
- fclose(fp);
- return 1;
-}
-
-static int
-OutputConsoleString(char *string)
-{
- int pos;
-
- if(fDynamicConsole && !fShowConsole) {
- /* show console window */
- ShowWindow(consoleWindow, SW_SHOW);
- fShowConsole = TRUE;
-#ifndef NO_PREFERENCES
- CheckMenuItem(vmPrefsMenu, 0x0030, MF_BYCOMMAND | MF_CHECKED);
-#endif
- OutputConsoleString(
- "# Debug console\n"
- "# To close: F2 -> 'debug options' -> 'show output console'\n"
- "# To disable: F2 -> 'debug options' -> 'show console on errors'\n"
- );
- }
- pos = SendMessage(consoleWindow,WM_GETTEXTLENGTH, 0,0);
- SendMessage(consoleWindow, EM_SETSEL, pos, pos);
- while(*string)
- {
- SendMessage( consoleWindow, WM_CHAR, *string, 1);
- string++;
- }
- return 1;
-}
-
-// recommend using DPRINTF ifdef'ing to DPRINTF for debug output
-int __cdecl DPRINTF(const char *fmt, ...)
-{ va_list al;
-
- va_start(al, fmt);
- if (!fIsConsole) {
- wvsprintf(consoleBuffer, fmt, al);
- OutputDebugString(consoleBuffer);
- }
- vfprintf(stdout, fmt, al);
- va_end(al);
- return 1;
-}
-
-#if !defined(_MSC_VER) && !defined(NODBGPRINT)
-
-// redefining printf doesn't seem like a good idea to me...
-
-int __cdecl
-printf(const char *fmt, ...)
-{ va_list al;
- int result;
-
- va_start(al, fmt);
- if (!fIsConsole) {
- wvsprintf(consoleBuffer, fmt, al);
- OutputLogMessage(consoleBuffer);
- if(IsWindow(stWindow)) /* not running as service? */
- OutputConsoleString(consoleBuffer);
- }
- result = vfprintf(stdout, fmt, al);
- va_end(al);
- return result;
-}
-
-int __cdecl
-fprintf(FILE *fp, const char *fmt, ...)
-{ va_list al;
- int result;
-
- va_start(al, fmt);
- if(!fIsConsole && (fp == stdout || fp == stderr))
- {
- wvsprintf(consoleBuffer, fmt, al);
- OutputLogMessage(consoleBuffer);
- if(IsWindow(stWindow)) /* not running as service? */
- OutputConsoleString(consoleBuffer);
- }
- result = vfprintf(fp, fmt, al);
- va_end(al);
- return result;
-}
-
-
-int __cdecl
-putchar(int c) { return printf("%c",c); }
-
-#endif /* !defined(_MSC_VER) && !defined(NODBGPRINT) */
-
-/****************************************************************************/
-/* Message Processing */
-/****************************************************************************/
-
-static messageHook nextMessageHook = NULL;
-
-int ServiceMessageHook(void * hwnd, unsigned int message, unsigned int wParam, long lParam)
-{
- if(fRunService && fWindows95 && message == WM_BROADCAST_SERVICE && hwnd == stWindow)
- {
- /* broadcast notification - install the running Win95 service in the system tray */
- SetSystemTrayIcon(1);
- return 1;
- }
- if(message == WM_USERCHANGED)
- {
- SetSystemTrayIcon(1);
- return 1;
- }
- if(nextMessageHook)
- return(*nextMessageHook)(hwnd, message,wParam, lParam);
- else
- return 0;
-}
-
-
-/****************************************************************************/
-/* Window Setup */
-/****************************************************************************/
-/* SetSystemTrayIcon(): Set the icon in the system tray */
-void SetSystemTrayIcon(BOOL on)
-{
- BOOL (WINAPI *ShellNotifyIcon)(DWORD,NOTIFYICONDATA*);
- static HMODULE hShell = NULL;
- NOTIFYICONDATA nid;
-
- /* NOTE: There is explicitly no unload of the shell32.dll in here.
- Win95 has _serious_ problems with the module counter and
- may just unload the shell32.dll even if it is referenced
- by other processes */
- if(!hShell) hShell = LoadLibrary(TEXT("shell32.dll"));
- if(!hShell) return; /* should not happen */
- /* On WinNT 3.* the following will just return NULL */
- ShellNotifyIcon = (FARPROC)GetProcAddress(hShell, "Shell_NotifyIconA");
-
- if(!ShellNotifyIcon) return; /* ok, we don't have it */
- nid.cbSize = sizeof(nid);
- nid.hWnd = stWindow;
- nid.uID = (UINT)hInstance;
- nid.uFlags = NIF_MESSAGE | NIF_TIP | NIF_ICON;
- nid.uCallbackMessage = WM_USER+42;
- nid.hIcon = LoadIcon(hInstance, MAKEINTRESOURCE(1));
- strcpy(nid.szTip, VM_NAME "!");
- if(on)
- (*ShellNotifyIcon)(NIM_ADD, &nid);
- else
- (*ShellNotifyIcon)(NIM_DELETE, &nid);
-}
-
-void SetupService95()
-{
-#ifndef NO_SERVICE
-#ifndef RSP_SIMPLE_SERVICE
-#define RSP_SIMPLE_SERVICE 1
-#endif
- BOOL (WINAPI *RegisterServiceProcess)(DWORD,DWORD);
- static HMODULE hKernel32 = NULL;
-
- /* Inform Windows95 that we're running as a service process */
- if(!fRunService || !fWindows95) return;
- hKernel32 = LoadLibrary(TEXT("kernel32.dll"));
- if(!hKernel32)
- {
- printLastError(TEXT("Unable to load kernel32.dll"));
- return;
- }
- (FARPROC) RegisterServiceProcess = GetProcAddress(hKernel32, "RegisterServiceProcess");
- if(!RegisterServiceProcess)
- {
- printLastError(TEXT("Unable to find RegisterServiceProcess"));
- return;
- }
- if( !(*RegisterServiceProcess)(GetCurrentProcessId(), RSP_SIMPLE_SERVICE ) )
- printLastError(TEXT("RegisterServiceProcess failed"));
-#endif /* NO_SERVICE */
-}
-
-/****************************************************************************/
-/* System Attributes */
-/****************************************************************************/
-
-char *GetVMOption(int id)
-{
- if(id < numOptionsVM)
- return vmOptions[id];
- else
- return NULL;
-}
-
-char *GetImageOption(int id)
-{
- if(id < numOptionsImage)
- return imageOptions[id];
- else
- return NULL;
-}
-
-char *ioGetLogDirectory(void) {
- return vmLogDirA;
-}
-
-sqInt ioSetLogDirectoryOfSize(void* lblIndex, sqInt sz) {
- if(sz >= MAX_PATH) return 0;
- strncpy(vmLogDirA, lblIndex, sz);
- vmLogDirA[sz] = 0;
- MultiByteToWideChar(CP_UTF8, 0, vmLogDirA, -1, vmLogDirW, MAX_PATH);
- return 1;
-}
-
-/* New MinGW defines this, as does MSVC - so who still needs it? */
-#if !defined(VerifyVersionInfo)
-typedef struct _OSVERSIONINFOEX {
- DWORD dwOSVersionInfoSize;
- DWORD dwMajorVersion;
- DWORD dwMinorVersion;
- DWORD dwBuildNumber;
- DWORD dwPlatformId;
- TCHAR szCSDVersion[128];
- WORD wServicePackMajor;
- WORD wServicePackMinor;
- WORD wSuiteMask;
- BYTE wProductType;
- BYTE wReserved;
-} OSVERSIONINFOEX;
-#endif /* !defined(VerifyVersionInfo) */
-
-/* New MinGW defines this, as does MSVC - so who still needs it? */
-#if !defined(EnumDisplayDevices)
-typedef struct _DISPLAY_DEVICE {
- DWORD cb;
- TCHAR DeviceName[32];
- TCHAR DeviceString[128];
- DWORD StateFlags;
- TCHAR DeviceID[128];
- TCHAR DeviceKey[128];
-} DISPLAY_DEVICE, *PDISPLAY_DEVICE;
-#endif /* !defined(EnumDisplayDevices) */
-
-typedef BOOL (CALLBACK *pfnEnumDisplayDevices)(
- LPCTSTR lpDevice, // device name
- DWORD iDevNum, // display device
- PDISPLAY_DEVICE lpDisplayDevice, // device information
- DWORD dwFlags // reserved
-);
-char *osInfoString = "";
-char *hwInfoString = "";
-char *gdInfoString = "";
-char *win32VersionName = "";
-
-void gatherSystemInfo(void) {
- OSVERSIONINFOEX osInfo;
- MEMORYSTATUS memStat;
- SYSTEM_INFO sysInfo;
- DISPLAY_DEVICE gDev;
- int proc, screenX, screenY;
- char tmpString[2048];
-
- char keyName[256];
- DWORD ok, dwSize;
- HKEY hk;
-
- /* Retrieve version info for crash logs */
- ZeroMemory(&osInfo, sizeof(osInfo));
- osInfo.dwOSVersionInfoSize = sizeof(osInfo);
- GetVersionEx((OSVERSIONINFO*)&osInfo);
- GetSystemInfo(&sysInfo);
-
- /* Set up the win32VersionName */
- sprintf(tmpString, "%d.%d", osInfo.dwMajorVersion, osInfo.dwMinorVersion);
- win32VersionName = _strdup(tmpString);
-
- ZeroMemory(&memStat, sizeof(memStat));
- memStat.dwLength = sizeof(memStat);
- GlobalMemoryStatus(&memStat);
-
- screenX = GetSystemMetrics(SM_CXSCREEN);
- screenY = GetSystemMetrics(SM_CYSCREEN);
-
-
- {
- HANDLE hUser = LoadLibrary( "user32.dll" );
- pfnEnumDisplayDevices pEnumDisplayDevices = (pfnEnumDisplayDevices)
- GetProcAddress(hUser, "EnumDisplayDevicesA");
- ZeroMemory(&gDev, sizeof(gDev));
- gDev.cb = sizeof(gDev);
- if(pEnumDisplayDevices) pEnumDisplayDevices(NULL, 0, &gDev, 0);
- }
-
- { /* Figure out make and model from OEMINFO.ini */
- char iniName[256];
- char manufacturer[256];
- char model[256];
-
- GetSystemDirectory(iniName, 256);
- strcat(iniName,"\\OEMINFO.INI");
-
- GetPrivateProfileString("General", "Manufacturer", "Unknown",
- manufacturer, 256, iniName);
-
- GetPrivateProfileString("General", "Model", "Unknown",
- model, 256, iniName);
-
- sprintf(tmpString,
- "Hardware information: \n"
- "\tManufacturer: %s\n"
- "\tModel: %s\n"
- "\tNumber of processors: %d\n"
- "\tPage size: %d\n"
- "\nMemory Information (upon launch):\n"
- "\tPhysical Memory Size: %d kbytes\n"
- "\tPhysical Memory Free: %d kbytes\n"
- "\tPage File Size: %d kbytes\n"
- "\tPage File Free: %d kbytes\n"
- "\tVirtual Memory Size: %d kbytes\n"
- "\tVirtual Memory Free: %d kbytes\n"
- "\tMemory Load: %d percent\n",
- manufacturer, model,
- sysInfo.dwNumberOfProcessors,
- sysInfo.dwPageSize,
- memStat.dwTotalPhys / 1024,
- memStat.dwAvailPhys / 1024,
- memStat.dwTotalPageFile / 1024,
- memStat.dwAvailPageFile / 1024,
- memStat.dwTotalVirtual / 1024,
- memStat.dwAvailVirtual / 1024,
- memStat.dwMemoryLoad,
- 0);
- }
-
- /* find more information about each processor */
- for(proc=0; proc < sysInfo.dwNumberOfProcessors; proc++) {
-
- char *tmp = tmpString + strlen(tmpString);
-
- strcpy(keyName, "HARDWARE\\DESCRIPTION\\System\\CentralProcessor\\0");
- keyName[strlen(keyName)-1] = 48+proc; /* 0, 1, 2 etc. */
-
- ok = RegOpenKey(HKEY_LOCAL_MACHINE, keyName, &hk);
- if(ok == 0) {
- char nameString[256];
- char identifier[256];
- DWORD mhz;
-
- dwSize = 256;
- ok = RegQueryValueEx(hk, "ProcessorNameString", NULL, NULL,
- (LPBYTE)nameString, &dwSize);
- if(ok != 0) strcpy(nameString, "???");
-
- dwSize = 256;
- ok = RegQueryValueEx(hk, "Identifier", NULL, NULL,
- (LPBYTE)identifier, &dwSize);
- if(ok != 0) strcpy(identifier, "???");
-
- dwSize = sizeof(DWORD);
- ok = RegQueryValueEx(hk, "~MHz", NULL, NULL,
- (LPBYTE)&mhz, &dwSize);
- if(ok != 0) mhz = -1;
- sprintf(tmp,
- "\nProcessor %d: %s\n"
- "\tIdentifier: %s\n"
- "\t~MHZ: %d\n",
- proc, nameString, identifier, mhz);
- RegCloseKey(hk);
- }
- }
-
- hwInfoString = _strdup(tmpString);
-
- {
- char owner[256];
- char company[256];
- char product[256];
- char productid[256];
-
- if(osInfo.dwPlatformId == VER_PLATFORM_WIN32_NT) {
- strcpy(keyName, "SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion");
- } else {
- strcpy(keyName, "SOFTWARE\\Microsoft\\Windows\\CurrentVersion");
- }
- ok = RegOpenKey(HKEY_LOCAL_MACHINE, keyName, &hk);
- if(ok == 0) {
- dwSize = 256;
- if(RegQueryValueEx(hk, "RegisteredOwner", NULL, NULL,
- (LPBYTE)owner, &dwSize)) strcpy(owner, "???");
- dwSize = 256;
- if(RegQueryValueEx(hk, "RegisteredOrganization", NULL, NULL,
- (LPBYTE)company, &dwSize)) strcpy(company, "???");
- dwSize = 256;
- if(RegQueryValueEx(hk, "ProductName", NULL, NULL,
- (LPBYTE)product, &dwSize)) strcpy(product, "???");
- RegCloseKey(hk);
- }
-
- sprintf(tmpString,
- "Operating System: %s (Build %d %s)\n"
- "\tRegistered Owner: %s\n"
- "\tRegistered Company: %s\n"
- "\tSP major version: %d\n"
- "\tSP minor version: %d\n"
- "\tSuite mask: %lx\n"
- "\tProduct type: %lx\n",
- product,
- osInfo.dwBuildNumber, osInfo.szCSDVersion,
- owner, company,
- osInfo.wServicePackMajor, osInfo.wServicePackMinor,
-#if defined(_MSC_VER) && _MSC_VER < 1300
-# define wSuiteMask wReserved[0]
-# define wProductType wReserved[1] & 0xFF
-#endif
- osInfo.wSuiteMask, osInfo.wProductType);
- osInfoString = _strdup(tmpString);
- }
-
- sprintf(tmpString,
- "Display Information: \n"
- "\tGraphics adapter name: %s\n"
- "\tPrimary monitor resolution: %d x %d\n",
- gDev.DeviceString,
- screenX, screenY);
-
- /* Find the driver key in the registry */
- keyName[0] = 0;
- ok = RegOpenKey(HKEY_LOCAL_MACHINE,
- "HARDWARE\\DEVICEMAP\\VIDEO",
- &hk);
- if(ok == 0) {
- dwSize = 256;
- RegQueryValueEx(hk,"\\Device\\Video0", NULL, NULL,
- (LPBYTE)keyName, &dwSize);
- RegCloseKey(hk);
- }
- if(*keyName) {
- /* Got the key name; open it and get the info out of there */
- char *tmp = tmpString + strlen(tmpString);
- char deviceDesc[256];
- char adapterString[256];
- char biosString[256];
- char chipType[256];
- char dacType[256];
- char version[256];
- char *drivers, *drv;
- WCHAR buffer[256];
- DWORD memSize;
-
- /* Argh. It seems that the registry key regularly starts
- with \Registry\Machine\ which doesn't work with RegOpenKey below.
- I have no idea why but for now I'll just truncate that part if
- we recognize it... */
- if(_strnicmp(keyName, "\\registry\\machine\\", 18) == 0) {
- memcpy(keyName, keyName+18, strlen(keyName)-17);
- }
-
- ok = RegOpenKey(HKEY_LOCAL_MACHINE, keyName, &hk);
- if(ok != 0) MessageBox(0, keyName, "Cannot open:", MB_OK);
- if(ok == 0) {
- dwSize = 256;
- ok = RegQueryValueEx(hk,"Device Description", NULL, NULL,
- (LPBYTE)deviceDesc, &dwSize);
- if(ok != 0) strcpy(deviceDesc, "???");
-
- dwSize = 256*sizeof(WCHAR);
- ok = RegQueryValueEx(hk,"HardwareInformation.AdapterString", NULL, NULL,
- (LPBYTE)buffer, &dwSize);
- if(ok == 0) {
- WideCharToMultiByte(CP_UTF8,0,buffer,-1,adapterString,256,NULL,NULL);
- } else strcpy(adapterString, "???");
-
- dwSize = 256*sizeof(WCHAR);
- ok = RegQueryValueEx(hk,"HardwareInformation.BiosString", NULL, NULL,
- (LPBYTE)buffer, &dwSize);
- if(ok == 0) {
- WideCharToMultiByte(CP_UTF8,0,buffer,-1,biosString,256,NULL,NULL);
- } else strcpy(biosString, "???");
-
- dwSize = 256*sizeof(WCHAR);
- ok = RegQueryValueEx(hk,"HardwareInformation.ChipType", NULL, NULL,
- (LPBYTE)buffer, &dwSize);
- if(ok == 0) {
- WideCharToMultiByte(CP_UTF8,0,buffer,-1,chipType,256,NULL,NULL);
- } else strcpy(chipType, "???");
-
- dwSize = 256*sizeof(WCHAR);
- ok = RegQueryValueEx(hk,"HardwareInformation.DacType", NULL, NULL,
- (LPBYTE)buffer, &dwSize);
- if(ok == 0) {
- WideCharToMultiByte(CP_UTF8,0,buffer,-1,dacType,256,NULL,NULL);
- } else strcpy(dacType, "???");
-
- dwSize = sizeof(DWORD);
- ok = RegQueryValueEx(hk,"HardwareInformation.MemorySize", NULL, NULL,
- (LPBYTE)&memSize, &dwSize);
- if(ok != 0) memSize = -1;
-
- sprintf(tmp,
- "\nDevice: %s\n"
- "\tAdapter String: %s\n"
- "\tBios String: %s\n"
- "\tChip Type: %s\n"
- "\tDAC Type: %s\n"
- "\tMemory Size: 0x%.8X\n",
- deviceDesc,
- adapterString,
- biosString,
- chipType,
- dacType,
- memSize);
-
- /* Now process the installed drivers */
- ok = RegQueryValueEx(hk,"InstalledDisplayDrivers",
- NULL, NULL, NULL, &dwSize);
- if(ok == 0) {
- drivers = malloc(dwSize);
- ok = RegQueryValueEx(hk,"InstalledDisplayDrivers",
- NULL, NULL, drivers, &dwSize);
- }
- if(ok == 0) {
- strcat(tmpString,"\nDriver Versions:");
- /* InstalledDrivers is REG_MULTI_SZ (extra terminating zero) */
- for(drv = drivers; drv[0]; drv +=strlen(drv)) {
- DWORD verSize, hh;
- UINT vLen;
- LPVOID verInfo = NULL, vInfo;
-
- /* Concat driver name */
- strcat(tmpString,"\n\t");
- strcat(tmpString, drv);
- strcat(tmpString,": ");
-
- verSize = GetFileVersionInfoSize(drv, &hh);
- if(!verSize) goto done;
-
- verInfo = malloc(verSize);
- if(!GetFileVersionInfo(drv, 0, verSize, verInfo)) goto done;
-
- /* Try Unicode first */
- if(VerQueryValue(verInfo,"\\StringFileInfo\\040904B0\\FileVersion",
- &vInfo, &vLen)) {
- strcat(tmpString, vInfo);
- goto done;
- }
-
- /* Try US/English next */
- if(VerQueryValue(verInfo,"\\StringFileInfo\\040904E4\\FileVersion",
- &vInfo, &vLen)) {
- strcat(tmpString, vInfo);
- goto done;
- }
-
- strcat(tmpString, "???");
-
- done:
- if(verInfo) {
- free(verInfo);
- verInfo = NULL;
- }
- }
- strcat(tmpString,"\n");
- }
- RegCloseKey(hk);
- }
- }
- gdInfoString = _strdup(tmpString);
-}
-
-char *
-getVersionInfo(int verbose)
-{
-#if STACKVM
- extern char *__interpBuildInfo;
-# define INTERP_BUILD __interpBuildInfo
-# if COGVM
- extern char *__cogitBuildInfo;
-# endif
-#else
-# define INTERP_BUILD interpreterVersion
-#endif
- char *info= (char *)malloc(4096);
- info[0]= '\0';
-
-#if SPURVM
-# if BytesPerOop == 8
-# define ObjectMemory " Spur 64-bit"
-# else
-# define ObjectMemory " Spur"
-# endif
-#else
-# define ObjectMemory
-#endif
-#if defined(NDEBUG)
-# define BuildVariant "Production" ObjectMemory
-#elif DEBUGVM
-# define BuildVariant "Debug" ObjectMemory
-# else
-# define BuildVariant "Assert" ObjectMemory
-#endif
-
- sprintf(info+strlen(info), "%s [" BuildVariant " VM]\n", vmBuildString);
- if (verbose)
- sprintf(info+strlen(info), "Built from: ");
- sprintf(info+strlen(info), "%s\n", INTERP_BUILD);
-#if COGVM
- if (verbose)
- sprintf(info+strlen(info), "With: ");
- sprintf(info+strlen(info), "%s\n", GetAttributeString(1008)); /* __cogitBuildInfo */
-#endif
- if (verbose)
- sprintf(info+strlen(info), "Revision: ");
- sprintf(info+strlen(info), "%s\n", sourceVersionString('\n'));
- return info;
-}
-
-/* Calling exit(ec) apparently does NOT provide the correct exit code for the
- * terminating process (MinGW bug?). So instead call the shutdown sequence via
- * _cexit() and then terminate explicitly.
- */
-#define exit(ec) do { _cexit(ec); ExitProcess(ec); } while (0)
-
-static void
-versionInfo(void)
-{
-#if 0
- /* we could create a console but to version the non-consoel VM it is
- * sufficient to do e.g. Squeak.exe >foo; cat foo. But feel free to
- * add the code if you have the energy ;)
- */
- DWORD mode;
- HANDLE stdouth = GetStdHandle(STD_OUTPUT_HANDLE);
-
- if (GetConsoleMode(stdouth, &mode) != 0) {
- char *vi = getVersionInfo(0);
- WriteConsole(stdouth, vi, strlen(vi), 0, 0);
- }
- else
-#endif
- printf("%s", getVersionInfo(0));
- exit(0);
-}
-
-/****************************************************************************/
-/* Error handling */
-/****************************************************************************/
-void SetupStderr()
-{ TCHAR tmpName[MAX_PATH+1];
-
- *stderrName = *stdoutName = 0;
- /* re-open stdout && stderr */
- GetTempPath(MAX_PATH,tmpName);
- if(GetStdHandle(STD_ERROR_HANDLE) == INVALID_HANDLE_VALUE)
- {
- GetTempFileName(tmpName,TEXT("sq"),0,stderrName);
- freopen(stderrName,"w+t",stderr);
- }
- else *stderrName = 0;
-
- if(GetStdHandle(STD_OUTPUT_HANDLE) == INVALID_HANDLE_VALUE)
- {
- GetTempFileName(tmpName,TEXT("sq"),0,stdoutName);
- freopen(stdoutName,"w+t",stdout);
- }
- else *stdoutName = 0;
-}
-
-/****************************************************************************/
-/* Release */
-/****************************************************************************/
-
-static void
-dumpStackIfInMainThread(FILE *optionalFile)
-{
- extern int printCallStack(void);
-
- if (!optionalFile) {
- if (ioOSThreadsEqual(ioCurrentOSThread(),getVMOSThread())) {
- printf("\n\nSmalltalk stack dump:\n");
- printCallStack();
- }
- else
- printf("\nCan't dump Smalltalk stack. Not in VM thread\n");
- return;
- }
- if (ioOSThreadsEqual(ioCurrentOSThread(),getVMOSThread())) {
- FILE tmpStdout = *stdout;
- fprintf(optionalFile, "\n\nSmalltalk stack dump:\n");
- *stdout = *optionalFile;
- printCallStack();
- *optionalFile = *stdout;
- *stdout = tmpStdout;
- fprintf(optionalFile,"\n");
- }
- else
- fprintf(optionalFile,"\nCan't dump Smalltalk stack. Not in VM thread\n");
-}
-
-#if STACKVM
-static void
-dumpPrimTrace(FILE *optionalFile)
-{
- extern void dumpPrimTraceLog(void);
-
- if (optionalFile) {
- FILE tmpStdout = *stdout;
- *stdout = *optionalFile;
- dumpPrimTrace(0);
- *optionalFile = *stdout;
- *stdout = tmpStdout;
- }
- else {
- printf("\nPrimitive trace:\n");
- dumpPrimTraceLog();
- printf("\n");
- }
-}
-#else
-# define dumpPrimTrace(f) 0
-#endif
-
-void
-printCommonCrashDumpInfo(FILE *f) {
-#if STACKVM
-extern char *__interpBuildInfo;
-# if COGVM
-extern char *__cogitBuildInfo;
-# endif
-#endif
-
- fprintf(f,"\n\n%s", hwInfoString);
- fprintf(f,"\n%s", osInfoString);
- fprintf(f,"\n%s", gdInfoString);
-
- /* print VM version information */
- fprintf(f,"\nVM Version: %s\n", VM_VERSION);
-#if STACKVM
- fprintf(f,"Interpreter Build: %s\n", __interpBuildInfo);
-# if COGVM
- fprintf(f,"Cogit Build: %s\n", __cogitBuildInfo);
-# endif
-#endif
- fprintf(f,"Source Version: %s\n", sourceVersionString('\n'));
- fflush(f);
- fprintf(f,"\n"
- "Current byte code: %d\n"
- "Primitive index: %d\n",
- getCurrentBytecode(),
- methodPrimitiveIndex());
- fflush(f);
- /* print loaded plugins */
- fprintf(f,"\nLoaded plugins:\n");
- {
- int index = 1;
- char *pluginName;
- while( (pluginName = ioListLoadedModule(index)) != NULL) {
- fprintf(f,"\t%s\n", pluginName);
- fflush(f);
- index++;
- }
- }
-
- printModuleInfo(f);
- fflush(f);
-}
-
-#define MAXFRAMES 64
-
-/* Print an error message, possibly Smalltalk and C stack traces, and exit. */
-/* Disable Intel compiler inlining of error which is used for breakpoints */
-#pragma auto_inline off
-static int inError = 0;
-
-void
-error(char *msg) {
- FILE *f;
- TCHAR crashInfo[1024];
- void *callstack[MAXFRAMES];
- symbolic_pc symbolic_pcs[MAXFRAMES];
- int i, nframes;
- int inVMThread = ioOSThreadsEqual(ioCurrentOSThread(),getVMOSThread());
-
- if (inError)
- exit(-2);
-
- inError = 1;
- nframes = backtrace(callstack, MAXFRAMES);
- symbolic_backtrace(++nframes, callstack, symbolic_pcs);
-
- wsprintf(crashInfo,
- TEXT("Sorry but the VM has crashed.\n\n")
- TEXT("Reason: %s\n\n")
- TEXT("Current byte code: %d\n")
- TEXT("Primitive index: %d\n\n")
- TEXT("This information will be stored in the file\n")
- TEXT("%s\\%s\n")
- TEXT("with a complete stack dump"),
- msg,
- getCurrentBytecode(),
- methodPrimitiveIndex(),
- vmLogDirA,
- TEXT("crash.dmp"));
- if(!fHeadlessImage)
- MessageBox(stWindow,crashInfo,TEXT("Fatal VM error"),
- MB_OK | MB_APPLMODAL | MB_ICONSTOP);
-
-#if !NewspeakVM
- SetCurrentDirectoryW(vmLogDirW);
-#endif
- /* print the above information */
- f = fopen_for_append("crash.dmp");
- if(f){
- time_t crashTime = time(NULL);
- fprintf(f,"---------------------------------------------------------------------\n");
- fprintf(f,"%s %s\n\n", ctime(&crashTime), GetAttributeString(0));
-
- fprintf(f,
- "Error in %s thread\nReason: %s\n\n",
- inVMThread ? "the VM" : "some other",
- msg);
- printCommonCrashDumpInfo(f);
- dumpPrimTrace(f);
- fflush(f);
- print_backtrace(f, nframes, MAXFRAMES, callstack, symbolic_pcs);
- fflush(f);
- dumpStackIfInMainThread(f);
- fflush(f);
- fclose(f);
- }
- printf("Error in %s thread\nReason: %s\n\n",
- inVMThread ? "the VM" : "some other",
- msg);
- dumpPrimTrace(0);
- print_backtrace(stdout, nframes, MAXFRAMES, callstack, symbolic_pcs);
- /* /Don't/ print the caller's stack to stdout here; Cleanup will do so. */
- /* dumpStackIfInMainThread(0); */
- exit(-1);
-}
-
-static int inCleanExit = 0; /* to suppress stack trace in Cleanup */
-
-int ioExit(void) { return ioExitWithErrorCode(0); }
-
-sqInt
-ioExitWithErrorCode(int ec)
-{
-#if COGVM
-extern sqInt reportStackHeadroom;
- if (reportStackHeadroom)
- reportMinimumUnusedHeadroom();
-#endif
- printPhaseTime(3);
- inCleanExit = 1;
- exit(ec);
- return ec;
-}
-
-#pragma auto_inline on
-
-static void
-printCrashDebugInformation(LPEXCEPTION_POINTERS exp)
-{
- void *callstack[MAXFRAMES];
- symbolic_pc symbolic_pcs[MAXFRAMES];
- int i, nframes, inVMThread;
- TCHAR crashInfo[1024];
- FILE *f;
- int byteCode = -2;
-
- UninstallExceptionHandler();
-
- if ((inVMThread = ioOSThreadsEqual(ioCurrentOSThread(),getVMOSThread())))
- /* Retrieve current byte code.
- If this fails the IP is probably wrong */
- TRY {
- byteCode = getCurrentBytecode();
- } EXCEPT(EXCEPTION_EXECUTE_HANDLER) {
- byteCode = -1;
- }
-
-
- TRY {
- if (inVMThread)
- ifValidWriteBackStackPointersSaveTo((void *)exp->ContextRecord->Ebp,
- (void *)exp->ContextRecord->Esp,
- 0,
- 0);
- callstack[0] = (void *)exp->ContextRecord->Eip;
- nframes = backtrace_from_fp((void*)exp->ContextRecord->Ebp,
- callstack+1,
- MAXFRAMES-1);
- symbolic_backtrace(++nframes, callstack, symbolic_pcs);
- wsprintf(crashInfo,
- TEXT("Sorry but the VM has crashed.\n\n")
- TEXT("Exception code: %08X\n")
- TEXT("Exception address: %08X\n")
- TEXT("Current byte code: %d\n")
- TEXT("Primitive index: %d\n\n")
- TEXT("Crashed in %s thread\n\n")
- TEXT("This information will be stored in the file\n")
- TEXT("%s\\%s\n")
- TEXT("with a complete stack dump"),
- exp->ExceptionRecord->ExceptionCode,
- exp->ExceptionRecord->ExceptionAddress,
- byteCode,
- methodPrimitiveIndex(),
- inVMThread ? "the VM" : "some other",
- vmLogDirA,
- TEXT("crash.dmp"));
- if(!fHeadlessImage)
- MessageBox(stWindow,crashInfo,TEXT("Fatal VM error"),
- MB_OK | MB_APPLMODAL | MB_ICONSTOP);
-
-#if !NewspeakVM
- SetCurrentDirectoryW(vmLogDirW);
-#endif
- /* print the above information */
- f = fopen_for_append("crash.dmp");
- if(f){
- time_t crashTime = time(NULL);
- fprintf(f,"---------------------------------------------------------------------\n");
- fprintf(f,"%s\n", ctime(&crashTime));
- /* Print the exception code */
- fprintf(f,"Exception code: %08X\nException addr: %08X\n",
- exp->ExceptionRecord->ExceptionCode,
- exp->ExceptionRecord->ExceptionAddress);
- if(exp->ExceptionRecord->ExceptionCode == EXCEPTION_ACCESS_VIOLATION) {
- /* For access violations print what actually happened */
- fprintf(f,"Access violation (%s) at %08X\n",
- (exp->ExceptionRecord->ExceptionInformation[0] ? "write access" : "read access"),
- exp->ExceptionRecord->ExceptionInformation[1]);
- }
- fprintf(f,"EAX:%08X\tEBX:%08X\tECX:%08X\tEDX:%08X\n",
- exp->ContextRecord->Eax,
- exp->ContextRecord->Ebx,
- exp->ContextRecord->Ecx,
- exp->ContextRecord->Edx);
- fprintf(f,"ESI:%08X\tEDI:%08X\tEBP:%08X\tESP:%08X\n",
- exp->ContextRecord->Esi,
- exp->ContextRecord->Edi,
- exp->ContextRecord->Ebp,
- exp->ContextRecord->Esp);
- fprintf(f,"EIP:%08X\tEFL:%08X\n",
- exp->ContextRecord->Eip,
- exp->ContextRecord->EFlags);
- fprintf(f,"FP Control: %08X\nFP Status: %08X\nFP Tag: %08X\n",
- exp->ContextRecord->FloatSave.ControlWord,
- exp->ContextRecord->FloatSave.StatusWord,
- exp->ContextRecord->FloatSave.TagWord);
-
- fprintf(f, "\n\nCrashed in %s thread\n\n",
- inVMThread ? "the VM" : "some other");
-
- printCommonCrashDumpInfo(f);
- dumpPrimTrace(f);
- print_backtrace(f, nframes, MAXFRAMES, callstack, symbolic_pcs);
- dumpStackIfInMainThread(f);
- fclose(f);
- }
-
- /* print recently called prims to stdout */
- dumpPrimTrace(0);
- /* print C stack to stdout */
- print_backtrace(stdout, nframes, MAXFRAMES, callstack, symbolic_pcs);
- /* print the caller's stack to stdout */
- dumpStackIfInMainThread(0);
-#if COGVM
- reportMinimumUnusedHeadroom();
-#endif
-
- } EXCEPT(EXCEPTION_EXECUTE_HANDLER) {
- /* that's too bad ... */
- if(!fHeadlessImage)
- MessageBox(0,TEXT("The VM has crashed. Sorry."),TEXT("Fatal error:"),
- MB_OK | MB_APPLMODAL | MB_ICONSTOP);
- else
- abortMessage(TEXT("The VM has crashed. Sorry."));
- }
-}
-
-void __cdecl Cleanup(void)
-{ /* not all of these are essential, but they're polite... */
-
- if (!inCleanExit) {
- dumpStackIfInMainThread(0);
- }
- ioShutdownAllModules();
-#ifndef NO_PLUGIN_SUPPORT
- pluginExit();
-#endif
- ioReleaseTime();
- /* tricky ... we have no systray icon when running
- headfull or when running as service on NT */
- if(fHeadlessImage && (!fRunService || fWindows95))
- SetSystemTrayIcon(0);
- if(palette) DeleteObject(palette);
- PROFILE_SHOW(ticksForReversal);
- PROFILE_SHOW(ticksForBlitting);
- if(*stderrName)
- {
- fclose(stderr);
- remove(stderrName);
- }
- if(*stdoutName)
- {
- fclose(stdout);
- remove(stdoutName);
- }
- OleUninitialize();
-}
-
-
-/****************************************************************************/
-/* Embedded Images */
-/****************************************************************************/
-#if 0
-/* SQ_IMAGE_MAGIC - the magic number for embedded images "SQIM" */
-#define SQ_IMAGE_MAGIC 0x83817377
-
-int sqImageFile findEmbeddedImage(void) {
- sqImageFile f;
- int endMarker;
- int magic;
- int start;
- int length;
-
- f = sqImageFileOpen(vmName, "rb");
- if(!f) {
- MessageBox(0,"Error opening VM",VM_NAME,MB_OK);
- return 0;
- }
- endMarker = sqImageFileSize(f) - 8;
- magic = start = 0;
- sqImageFileSeek(f, endMarker);
- sqImageFileRead(&magic, 1, 4, f);
- sqImageFileRead(&start, 1, 4, f);
- sqMessageBox(MB_OK, "Magic number", "Expected:\t%x\nFound:\t\t%x", SQ_IMAGE_MAGIC, magic);
- /* Magic number must be okay and start must be within executable boundaries */
- if(magic != SQ_IMAGE_MAGIC || start < 0 || start >= endMarker) {
- /* nope */
- sqImageFileClose(f);
- return 0;
- }
- /* Might have an embedded image; seek back and double check */
- sqImageFileSeek(f,start);
- sqImageFileRead(&magic, 1, 4, f);
- sqMessageBox(MB_OK, "Magic number", "Expected:\t%x\nFound:\t\t%x", SQ_IMAGE_MAGIC, magic);
- if(magic != SQ_IMAGE_MAGIC) {
- /* nope */
- sqImageFileClose(f);
- return 0;
- }
- /* now triple check for image format */
- sqImageFileRead(&magic, 1, 4, f);
- if(!readableFormat(magic) && !readableFormat(byteSwapped(magic)) {
- /* nope */
- sqImageFileClose(f);
- return 0;
- }
- /* Gotcha! */
- sqImageFileSeek(f, sqImageFilePosition(f) - 4);
- strcpy(imageName, name);
- imageSize = endMarker - sqImageFilePosition(f);
- return f;
-}
-#else
-int findEmbeddedImage(void) { return 0; }
-#endif
-
-
-/****************************************************************************/
-/* sqMain */
-/****************************************************************************/
-#if (STACKVM || NewspeakVM) && !COGVM
-extern sqInt sendTrace;
-#endif
-#if STACKVM || NewspeakVM
-extern sqInt checkForLeaks;
-#endif /* STACKVM || NewspeakVM */
-#if STACKVM
-extern sqInt desiredNumStackPages;
-extern sqInt desiredEdenBytes;
-extern sqInt suppressHeartbeatFlag;
-#endif /* STACKVM */
-#if COGVM
-extern sqInt desiredCogCodeSize;
-extern int traceFlags;
-extern sqInt traceStores;
-extern unsigned long debugPrimCallStackOffset;
-extern sqInt maxLiteralCountForCompile;
-extern sqInt minBackwardJumpCountForCompile;
-#endif /* COGVM */
-
-
-/* sqMain:
- This is common entry point regardless of whether we're running as a normal
- app or as a service. Note that a number of things may have been set up
- before coming here. In particular,
- * fRunService - to determine whether we're running as NT service
- However, the command line must always contain all parameters necessary.
- In other words, even though the logName may have been set before,
- the command line has to include the -log switch.
-*/
-static int parseArguments(int argc, char *argv[]);
-
-int
-sqMain(int argc, char *argv[])
-{
- int virtualMemory;
- int sz;
-
- /* set default fpu control word */
- _control87(FPU_DEFAULT, _MCW_EM | _MCW_RC | _MCW_PC | _MCW_IC);
-
- LoadPreferences();
-
- /* If running as single app, find the previous instance */
- if(fRunSingleApp) {
- HWND win = GetTopWindow(0);
- while (win != NULL) {
- char buf[MAX_PATH];
- GetClassName(win, buf, 80);
- if(strcmp(windowClassName, buf) == 0) break;
- win = GetNextWindow(win, GW_HWNDNEXT);
- }
-
- if(win) {
- WCHAR *cmdLineW = GetCommandLineW();
- /* An instance is running already. Inform it about the app. */
- int bytes = (wcslen(cmdLineW)+1) * sizeof(WCHAR);
- HANDLE h = GlobalAlloc(GMEM_MOVEABLE | GMEM_DDESHARE, bytes);
- WCHAR *string = GlobalLock(h);
- memcpy(string, cmdLineW, bytes);
- GlobalUnlock(h);
-
- OpenClipboard(NULL);
- EmptyClipboard();
- SetClipboardData(CF_UNICODETEXT, h);
- CloseClipboard();
-
- if(IsIconic(win)) ShowWindow(win, SW_RESTORE);
- SetForegroundWindow(win);
- SetActiveWindow(win);
- return PostMessage(win, SQ_LAUNCH_DROP, 0, 0);
- }
- }
-
- /* parse command line args */
- if(!parseArguments(argc, argv))
- return printUsage(1);
-
- /* a quick check if we have any argument at all */
- if(!fRunService && (*imageName == 0)) {
- /* Check if the image is embedded */
- imageFile = findEmbeddedImage();
- if(!imageFile) {
- /* Search the current directory if there's a single image file */
- if(!findImageFile()) {
- /* Nope. Give the user a chance to open an image interactively */
- if(!openImageFile()) return -1; /* User cancelled file open */
- }
- }
- }
-
-#ifdef NO_SERVICE
- fRunService = 0;
-#endif
-
- /* look for a few things easy to handle */
- if(fWindows95 && fBroadcastService95) {
- PostMessage(HWND_BROADCAST, WM_BROADCAST_SERVICE, 0, 0);
- return 0;
- }
-
- /* set time zone accordingly */
- _tzset();
-
-
- /* Initialize OLE library so we don't have to do it from other places */
- OleInitialize(NULL);
-
- /* Give us some log information when running as service */
- if(fRunService) {
- time_t svcStart;
-
- svcStart = time(NULL);
- OutputLogMessage("\n\n");
- OutputLogMessage(ctime(&svcStart));
- if(fWindows95) /* don't have a service name */
- OutputLogMessage("The service");
- else
- OutputLogMessage(serviceName);
- OutputLogMessage(" started with the following command line\n");
- OutputLogMessage(initialCmdLine);
- OutputLogMessage("\n");
- }
-
- SetupFilesAndPath();
- ioSetLogDirectoryOfSize(vmPath, strlen(vmPath));
-
- /* release resources on exit */
- atexit(Cleanup);
-
-#ifndef NO_SERVICE
- /* if service installing is requested, do so */
- if(installServiceName && *installServiceName) {
- strcpy(serviceName, installServiceName);
- sqServiceInstall();
- /* When installing was successful we won't come
- to this point. Otherwise ... */
- exit(-1); /* this will show any printfs during install */
- }
-#endif
-
- /* initialisation */
- SetupKeymap();
- SetupWindows();
- SetupPixmaps();
- SetupService95();
- { extern void ioInitTime(void);
- extern void ioInitThreads(void);
- ioInitTime();
- ioInitThreads();
-# if !COGMTVM
- /* Set the current VM thread. If the main thread isn't the VM thread then
- * when that thread is spawned it can reassign ioVMThread.
- */
- ioVMThread = ioCurrentOSThread();
-# endif
- }
-
- /* check the interpreter's size assumptions for basic data types */
- if (sizeof(int) != 4) error("This C compiler's integers are not 32 bits.");
- if (sizeof(double) != 8) error("This C compiler's floats are not 64 bits.");
- if (sizeof(time_t) != 4) error("This C compiler's time_t's are not 32 bits.");
-
-
- if(!imageFile) {
- imageSize = SqueakImageLength(toUnicode(imageName));
- if(imageSize == 0) printUsage(2);
- }
-
- /* allocate this before anything is going to happen */
- vmWakeUpEvent = CreateEvent(NULL, 1, 0, NULL);
-
-#ifdef NO_VIRTUAL_MEMORY
- if(!dwMemorySize) {
- dwMemorySize = 4;
- virtualMemory = (int)imageSize + max(imageSize, dwMemorySize * 0x00100000);
- } else {
- virtualMemory = (int)dwMemorySize * 0x00100000;
- }
-#else
- /* initial commit size = imageSize + 4MB */
- virtualMemory = imageSize + 0x00400000;
-#endif
-
-#if !NO_FIRST_LEVEL_EXCEPTION_HANDLER
-# ifndef _MSC_VER
- /* Install our top-level exception handler */
- InstallExceptionHandler();
-# else
- __try {
-# endif
-#endif /* !NO_FIRST_LEVEL_EXCEPTION_HANDLER */
-
-#if !NewspeakVM
- /* set the CWD to the image location */
- if(*imageName) {
- char path[MAX_PATH+1], *ptr;
- strcpy(path,imageName);
- ptr = strrchr(path, '\\');
- if(ptr) {
- *ptr = 0;
- SetCurrentDirectory(path);
- }
- }
-#endif /* !NewspeakVM */
-
- /* display the splash screen */
- ShowSplashScreen();
-
- /* if headless running is requested, try to to create an icon
- in the Win95/NT system tray */
- if(fHeadlessImage && (!fRunService || fWindows95))
- SetSystemTrayIcon(1);
-
- /* read the image file */
- if(!imageFile) {
- imageFile = sqImageFileOpen(imageName,"rb");
- readImageFromFileHeapSizeStartingAt(imageFile, virtualMemory, 0);
- } else {
- readImageFromFileHeapSizeStartingAt(imageFile, virtualMemory, sqImageFilePosition(imageFile));
- }
- sqImageFileClose(imageFile);
-
- if(fHeadlessImage) HideSplashScreen(); /* need to do it manually */
- SetWindowSize();
- ioSetFullScreen(getFullScreenFlag());
-
- /* run Squeak */
- ioInitSecurity();
- printPhaseTime(2);
- interpret();
-#if !NO_FIRST_LEVEL_EXCEPTION_HANDLER
-# ifdef _MSC_VER
- } __except(squeakExceptionHandler(GetExceptionInformation())) {
- /* Do nothing */
- }
-# else
- /* remove the top-level exception handler */
- UninstallExceptionHandler();
-# endif
-#endif /* !NO_FIRST_LEVEL_EXCEPTION_HANDLER */
- return 1;
-}
-
-/****************************************************************************/
-/* WinMain */
-/****************************************************************************/
-
-int WINAPI
-WinMain(HINSTANCE hInst, HINSTANCE hPrevInstance, LPSTR lpCmdLine, int nCmdShow)
-{
- DWORD mode;
-
- /* a few things which need to be done first */
- gatherSystemInfo();
-
- /* check if we're running NT or 95 */
- fWindows95 = (GetVersion() & 0x80000000) != 0;
- /* Determine if we're running as a console application We can't report
- * allocation failures unless running as a console app because doing so
- * via a MessageBox will make the system unusable.
- */
- fIsConsole = GetConsoleMode(GetStdHandle(STD_OUTPUT_HANDLE), &mode);
-
- /* fetch us a copy of the command line */
- initialCmdLine = _strdup(lpCmdLine);
-
- /* fetch us the name of the executable */
- {
- WCHAR vmNameW[MAX_PATH];
- GetModuleFileNameW(hInst, vmNameW, MAX_PATH);
- WideCharToMultiByte(CP_UTF8, 0, vmNameW, -1, vmName, MAX_PATH, NULL, NULL);
- }
- /* parse the command line into the unix-style argc, argv, converting to
- * UTF-8 on the way. */
- { LPWSTR *argList = CommandLineToArgvW(GetCommandLineW(), &clargc);
- int i;
-
- clargv = calloc(clargc + 1, sizeof(char *));
- vmOptions = calloc(clargc + 1, sizeof(char *));
- imageOptions = calloc(clargc + 1, sizeof(char *));
- if (!clargv || !vmOptions || !imageOptions) {
- fprintf(stderr,"out of memory for command line?!\n");
- return 1;
- }
- for (i = 0; i < clargc; i++) {
- int n = WideCharToMultiByte(CP_UTF8, 0, argList[i], -1, 0, 0, 0, 0);
- if (!(clargv[i] = malloc(n))) {
- fprintf(stderr,"out of memory for command line?!\n");
- return 1;
- }
- WideCharToMultiByte(CP_UTF8, 0, argList[i], -1, clargv[i], n, 0, 0);
- }
- LocalFree(argList);
- }
-
- /* open all streams in binary mode */
- _fmode = _O_BINARY;
-
- /* get us the instance handle */
- hInstance = hInst;
-
-#ifndef NO_PLUGIN_SUPPORT
- pluginInit();
-#endif
-#ifndef NO_SERVICE
- /* Find out if we're running from a service.
- That's a bit tricky since there is no difference between
- usual startup and service startup. We do two assumptions here:
- 1) If we're NOT running on NT we can't be service
- 2) If there is a command line we can't be service
- Still, there is a chance that a user just double clicks on
- the Squeak executable in NT. Therefore we _try_ to connect
- to the service control manager in the sqServiceMain function.
- If this fails, we try the usual startup. It might take a bit
- longer than the normal startup but this only happens if there
- is no image name given - and that's not our fault. Anyways,
- if somebody out there knows how to find out when we're starting
- as a service - LET ME KNOW!
- */
- if(!fWindows95) /* 1) running NT */
- if(!*lpCmdLine) /* 2) No command line */
- if(sqServiceMain()) /* try starting the service */
- return 0; /* service was run - exit */
-
-#endif
-
- SQ_LAUNCH_DROP = RegisterWindowMessage("SQUEAK_LAUNCH_DROP");
-
- /* Special startup stuff for windows 95 */
- if(fWindows95) {
- /* The message we use for notifying services of user logon */
- WM_BROADCAST_SERVICE = RegisterWindowMessage(msgBroadcastService);
- }
-
- /* start the non-service version */
- sqMain(clargc, clargv);
- return 0;
-}
-
-static int
-strtobkm(const char *str)
-{
- char *suffix;
- int value = strtol(str, &suffix, 10);
- switch (*suffix) {
- case 'k': case 'K': value *= 1024; break;
- case 'm': case 'M': value *= 1024*1024; break;
- }
- return value;
-}
-
-static int
-parseVMArgument(int argc, char *argv[])
-{
- /* flags */
- if (!strcmp(argv[0], "-help")) {
- printUsage(1);
- return 1;
- }
- else if (!strcmp(argv[0], "-version")) { versionInfo(); return 1; }
- else if (!strcmp(argv[0], "-headless")) { fHeadlessImage = true; return 1; }
- else if (!strcmp(argv[0], "-headfull")) { fHeadlessImage = false; return 1;}
@@ Diff output truncated at 50000 characters. @@
More information about the Vm-dev
mailing list