Changeset 21302 for trunk/src/kernel32/exceptions.cpp

Timestamp:

Jun 18, 2009, 11:53:26 AM (16 years ago)

Author:

ydario

Message:

Kernel32 updates.

File:

• trunk/src/kernel32/exceptions.cpp (modified) (22 diffs)

trunk/src/kernel32/exceptions.cpp

@@ -52 +52 @@
 #define INCL_MISC
 #define INCL_BASE
+#define INCL_WIN
 #define INCL_WINBUTTONS
 #include <os2wrap.h>                     //Odin32 OS/2 api wrappers
@@ -59 +60 @@
 #include <time.h>
 #include <string.h>
+#include <pmscan.h>
 #include "exceptions.h"
 #include "exceptutil.h"
@@ -66 +68 @@
 #include <win32api.h>
 #include "oslibexcept.h"
+#include "oslibmem.h"
 #include "exceptstackdump.h"
+#include "hmthread.h"
 
 #include "WinImageBase.h"
@@ -81 +85 @@
 #define DBG_LOCALLOG    DBG_exceptions
 #include "dbglocal.h"
+
+#include <_ras.h>
 
 #ifdef WITH_KLIB
@@ -672 +678 @@
     static BOOL fEntry = FALSE;
 
-    if(fEntry == FALSE) {
+    if(!fExitProcess && fEntry == FALSE) {
         fEntry = TRUE;
         ExitProcess(666);
@@ -702 +708 @@
                              PSZ                          szTrapDump)
 {
+// @@VP20040507: This function uses a static buffer szTrapDump, therefore
+//               any local buffers also can be made static to save
+//               stack space and possibly avoid out of stack exception.
+    if(pERepRec->ExceptionNum == XCPT_GUARD_PAGE_VIOLATION)    
+    {
+        strcpy(szTrapDump, "Guard Page Violation");
+        return;
+    }
+    
     PSZ    pszExceptionName = "<unknown>";        /* points to name/type excpt */
     APIRET rc               = XCPT_CONTINUE_SEARCH;        /* excpt-dep.  code */
@@ -711 +726 @@
     ULONG  ulModule;                                          /* module number */
     ULONG  ulObject;                        /* object number within the module */
-    CHAR   szModule[260];                        /* buffer for the module name */
+static    CHAR   szModule[260];                        /* buffer for the module name */
     ULONG  ulOffset;             /* offset within the object within the module */
-    char   szLineException[128];
-    char   szLineExceptionType[128];
+static    char   szLineException[128];
+static    char   szLineExceptionType[128];
 
     szLineException[0]  = 0;                                              /* initialize */
@@ -944 +959 @@
     if(rc == NO_ERROR && ulObject != -1)
     {
-        sprintf(szLineException, "<%.*s> (#%u) obj #%u:%08x\n", 64, szModule, ulModule, ulObject, ulOffset);
+        sprintf(szLineException, "<%.*s> (#%u) obj #%u:%08x", 64, szModule, ulModule, ulObject, ulOffset);
+#ifdef RAS
+        static char szSYMInfo[260];
+        static char Name[260];
+        
+        DosQueryModuleName(ulModule, sizeof(Name), Name);
+
+        int namelen = strlen(Name);
+        if(namelen > 3)
+        {
+                strcpy(Name + namelen - 3, "SYM");
+                dbgGetSYMInfo(Name, ulObject, ulOffset, szSYMInfo, sizeof (szSYMInfo));
+                strcat(szLineException, " ");
+                strcat(szLineException, szSYMInfo);
+        }
+#else
+        strcat(szLineException, "\n");
+#endif
         strcat(szTrapDump, szLineException);
     }
@@ -1044 +1076 @@
                              PVOID                        p)
 {
+    sprintfException(pERepRec, pERegRec, pCtxRec, p, szTrapDump);
+#ifdef RAS
+    RasLog (szTrapDump);
+#endif
     /* now dump the information to the logfile */
     dprintf(("\n%s", szTrapDump));
@@ -1065 +1101 @@
 //*****************************************************************************
 //*****************************************************************************
-static void logException()
+static void logException(PEXCEPTIONREPORTRECORD pERepRec, PEXCEPTIONREGISTRATIONRECORD pERegRec, PCONTEXTRECORD pCtxRec, PVOID p)
 {
     APIRET rc;
@@ -1110 +1146 @@
             DosWrite(hFile, lpszTime, strlen(lpszTime), &ulBytesWritten);
         }
+        sprintfException(pERepRec, pERegRec, pCtxRec, p, szTrapDump);
+#ifdef RAS
+        RasLog (szTrapDump);
+#endif
         DosWrite(hFile, szTrapDump, strlen(szTrapDump), &ulBytesWritten);
         DosClose(hFile);
@@ -1147 +1187 @@
     int prevlock = LogException(ENTER_EXCEPTION);
 
-    //Print exception name & exception type
-    //Not for a guard page exception as sprintfException uses a lot of stack
-    //and can trigger nested guard page exceptions (crash)
-    if(pERepRec->ExceptionNum != XCPT_GUARD_PAGE_VIOLATION) {
-        sprintfException(pERepRec, pERegRec, pCtxRec, p, szTrapDump);
-    }
+// @@VP20040507: no need to sprintf every exception
+//    //Print exception name & exception type
+//    //Not for a guard page exception as sprintfException uses a lot of stack
+//    //and can trigger nested guard page exceptions (crash)
+//    if(pERepRec->ExceptionNum != XCPT_GUARD_PAGE_VIOLATION) {
+//        sprintfException(pERepRec, pERegRec, pCtxRec, p, szTrapDump);
+//    }
 
     /* Access violation at a known location */
@@ -1296 +1337 @@
     }
 #endif
-
+    goto CrashAndBurn;
+
+    case XCPT_INVALID_LOCK_SEQUENCE:
+    {
+        TEB *teb = GetThreadTEB();
+        USHORT *eip = (USHORT *)pCtxRec->ctx_RegEip;
+
+        if(teb && eip && *eip == SETTHREADCONTEXT_INVALID_LOCKOPCODE) 
+        {
+            //Is this a pending SetThreadContext exception?
+            //(see detailed description in the HMDeviceThreadClass::SetThreadContext method)
+            if(teb->o.odin.context.ContextFlags) 
+            {
+                dprintfException(pERepRec, pERegRec, pCtxRec, p);
+
+                //NOTE: This will not work properly in case multiple threads execute this code
+                dprintf(("Changing thread registers (SetThreadContext)!!"));
+
+                if(teb->o.odin.context.ContextFlags & WINCONTEXT_CONTROL) {
+                    pCtxRec->ctx_RegEbp = teb->o.odin.context.Ebp;
+                    pCtxRec->ctx_RegEip = teb->o.odin.context.Eip;
+////                    pCtxRec->ctx_SegCs  = teb->o.odin.context.SegCs;
+                    pCtxRec->ctx_EFlags = teb->o.odin.context.EFlags;
+                    pCtxRec->ctx_RegEsp = teb->o.odin.context.Esp;
+////                    pCtxRec->ctx_SegSs  = teb->o.odin.context.SegSs;
+                }
+                if(teb->o.odin.context.ContextFlags & WINCONTEXT_INTEGER) {
+                    pCtxRec->ctx_RegEdi = teb->o.odin.context.Edi;
+                    pCtxRec->ctx_RegEsi = teb->o.odin.context.Esi;
+                    pCtxRec->ctx_RegEbx = teb->o.odin.context.Ebx;
+                    pCtxRec->ctx_RegEdx = teb->o.odin.context.Edx;
+                    pCtxRec->ctx_RegEcx = teb->o.odin.context.Ecx;
+                    pCtxRec->ctx_RegEax = teb->o.odin.context.Eax;
+                }
+                if(teb->o.odin.context.ContextFlags & WINCONTEXT_SEGMENTS) {
+                    pCtxRec->ctx_SegGs  = teb->o.odin.context.SegGs;
+////                    pCtxRec->ctx_SegFs  = teb->o.odin.context.SegFs;
+                    pCtxRec->ctx_SegEs  = teb->o.odin.context.SegEs;
+                    pCtxRec->ctx_SegDs  = teb->o.odin.context.SegDs;
+                }
+                if(teb->o.odin.context.ContextFlags & WINCONTEXT_FLOATING_POINT) {
+                    //TODO: First 7 dwords the same?
+                    memcpy(pCtxRec->ctx_env, &teb->o.odin.context.FloatSave, sizeof(pCtxRec->ctx_env));
+                    memcpy(pCtxRec->ctx_stack, &teb->o.odin.context.FloatSave.RegisterArea, sizeof(pCtxRec->ctx_stack));
+                }
+                USHORT *lpAlias = (USHORT *)((char *)teb->o.odin.lpAlias + teb->o.odin.dwAliasOffset);
+                *lpAlias = teb->o.odin.savedopcode;
+
+                //Clear SetThreadContext markers
+                teb->o.odin.context.ContextFlags = 0;
+
+                OSLibDosFreeMem(teb->o.odin.lpAlias);
+
+                teb->o.odin.lpAlias              = NULL;
+                teb->o.odin.dwAliasOffset        = 0;
+
+                //restore the original priority (we boosted it to ensure this thread was scheduled first)
+                SetThreadPriority(teb->o.odin.hThread, GetThreadPriority(teb->o.odin.hThread));
+                goto continueexecution;
+            }
+            else DebugInt3(); //oh, oh!!!!!
+
+        }
+        //no break;
+    }
+
+    case XCPT_PRIVILEGED_INSTRUCTION:
+    case XCPT_ILLEGAL_INSTRUCTION:
     case XCPT_BREAKPOINT:
     case XCPT_ARRAY_BOUNDS_EXCEEDED:
     case XCPT_DATATYPE_MISALIGNMENT:
-    case XCPT_ILLEGAL_INSTRUCTION:
-    case XCPT_PRIVILEGED_INSTRUCTION:
-    case XCPT_INVALID_LOCK_SEQUENCE:
     case XCPT_INTEGER_DIVIDE_BY_ZERO:
     case XCPT_INTEGER_OVERFLOW:
     case XCPT_SINGLE_STEP:
-    case XCPT_UNABLE_TO_GROW_STACK:
     case XCPT_IN_PAGE_ERROR:
 CrashAndBurn:
@@ -1316 +1420 @@
                 goto continuesearch;
 
-#ifdef DEBUG
+#if defined(DEBUG) || defined(RAS)
         dprintfException(pERepRec, pERegRec, pCtxRec, p);
+
         if(!fExitProcess && (pCtxRec->ContextFlags & CONTEXT_CONTROL)) {
                 dbgPrintStack(pERepRec, pERegRec, pCtxRec, p);
@@ -1337 +1442 @@
 
                 rc = DosGetInfoBlocks (&pTIB, &pPIB);
-                if(rc == NO_ERROR && pTIB->tib_ptib2->tib2_ultid != 1)
+                if(rc == NO_ERROR)
                 {
                     dprintf(("KERNEL32: OS2ExceptionHandler: Continue and kill thread"));
 
-                    pCtxRec->ctx_RegEip = (ULONG)KillWin32Thread;
+                    pCtxRec->ctx_RegEip = (pTIB->tib_ptib2->tib2_ultid != 1) ? (ULONG)KillWin32Thread : (ULONG)KillWin32Process;
                     pCtxRec->ctx_RegEsp = pCtxRec->ctx_RegEsp + 0x10;
                     pCtxRec->ctx_RegEax = pERepRec->ExceptionNum;
@@ -1352 +1457 @@
 
         //Log fatal exception here
-        logException();
+        logException(pERepRec, pERegRec, pCtxRec, p);
 
         dprintf(("KERNEL32: OS2ExceptionHandler: Continue and kill\n"));
@@ -1362 +1467 @@
         goto continueexecution;
 
-    //@@@PH: growing thread stacks might need special treatment
     case XCPT_GUARD_PAGE_VIOLATION:
     {
@@ -1369 +1473 @@
         //inside fprintf
         //NOTE:!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-
+        TEB *teb = GetThreadTEB();
+        DWORD stacktop, stackbottom;
+
+        if(teb == NULL) {
+            goto continueGuardException;
+        }
+
+        stacktop    = (DWORD)teb->stack_top;
+        stackbottom = (DWORD)teb->stack_low;
+
+        stackbottom = stackbottom & ~0xFFF;   //round down to page boundary
+        stacktop    = stacktop & ~0xFFF;
+
+        //Make sure we detect a stack overflow condition before the system does
+        if(!fIsOS2Image &&
+            pERepRec->ExceptionInfo[1]  >= stackbottom && 
+            pERepRec->ExceptionInfo[1]  <  stacktop
+           ) 
+        {//this is a guard page exception for the thread stack
+            APIRET rc;
+            ULONG ulAddress, cbSize, ulMemFlags;
+  
+            //round down to page boundary
+            ulAddress = pERepRec->ExceptionInfo[1] & ~0xFFF;
+
+#if 0
+            rc = DosQueryMem((PVOID)ulAddress, &cbSize, &ulMemFlags);
+            if(rc) {
+                dprintf(("ERROR: DosQueryMem old guard page failed with rc %d", rc));
+                goto continueGuardException;
+            }
+#endif
+
+            if(ulAddress == stackbottom + PAGE_SIZE) 
+            {//we don't have any stack left, throw an XCPT_UNABLE_TO_GROW_STACK
+             //exception
+                if(!fExitProcess)  //Only for real win32 apps
+                {
+                    EXCEPTIONREPORTRECORD recoutofstack;
+
+                    recoutofstack               = *pERepRec;
+                    recoutofstack.ExceptionNum  = XCPT_UNABLE_TO_GROW_STACK;
+                    recoutofstack.fHandlerFlags = 0;
+                    recoutofstack.NestedExceptionReportRecord = NULL;
+                    recoutofstack.cParameters   = 0;
+
+                    if(OSLibDispatchException(&recoutofstack, pERegRec, pCtxRec, p) == TRUE)
+                    {
+                        goto continueexecution;
+                    }
+                }
+            }
+        }
+        else
+        {//check for memory map guard page exception
         Win32MemMap *map;
         BOOL  fWriteAccess = FALSE, ret;
@@ -1387 +1545 @@
 
         map = Win32MemMapView::findMapByView(pERepRec->ExceptionInfo[1], &offset, accessflag);
-        if(map == NULL) {
-            goto continueGuardException;
-        }
+            if(map) {
         ret = map->commitGuardPage(pERepRec->ExceptionInfo[1], offset, fWriteAccess);
         map->Release();
         if(ret == TRUE)
             goto continueexecution;
+            }            
+        }
 
 continueGuardException:
+        goto continuesearch;
+    }
+
+    case XCPT_UNABLE_TO_GROW_STACK:
+    {
+        //SvL: XCPT_UNABLE_TO_GROW_STACK is typically nested (failed guard page
+        //     exception), so don't ignore them
+        // We should no longer receive those!!
+// @@VP20040507: Isn't this a bit dangerous to call dprintfon such exception
+//#ifdef DEBUG
+//        dprintfException(pERepRec, pERegRec, pCtxRec, p);
+//#endif      
         goto continuesearch;
     }
@@ -1408 +1578 @@
      */
     case XCPT_SIGNAL:
+    {
+        //This is not a reliable way to distinguish between Ctrl-C & Ctrl-Break
+        BOOL breakPressed = WinGetKeyState(HWND_DESKTOP,VK_BREAK) & 0x8000;
+
         switch (pERepRec->ExceptionInfo[0])
         {
             case XCPT_SIGNAL_BREAK:
-                if (InternalGenerateConsoleCtrlEvent(CTRL_BREAK_EVENT, 0))
+                breakPressed = TRUE;
+                //no break
+
+            case XCPT_SIGNAL_INTR:
+                dprintfException(pERepRec, pERegRec, pCtxRec, p);
+                if (InternalGenerateConsoleCtrlEvent((breakPressed) ? CTRL_BREAK_EVENT : CTRL_C_EVENT, 0))
+                {
+                    DosAcknowledgeSignalException(pERepRec->ExceptionInfo[0]);
                     goto continueexecution;
-                goto continuesearch;
-            case XCPT_SIGNAL_INTR:
-                if (InternalGenerateConsoleCtrlEvent(CTRL_C_EVENT, 0))
-                    goto continueexecution;
+                }
                 goto continuesearch;
 
@@ -1424 +1602 @@
         }
         goto CrashAndBurn;
+    }
 
     default: //non-continuable exceptions
@@ -1497 +1676 @@
   USHORT sel = RestoreOS2FS();
   PEXCEPTIONREGISTRATIONRECORD pExceptRec = (PEXCEPTIONREGISTRATIONRECORD)QueryExceptionChain();
-
-  if(pExceptRec == (PEXCEPTIONREGISTRATIONRECORD)pExceptionRegRec) {
+  BOOL   fFound = FALSE;
+
+  while(pExceptRec != 0 && (ULONG)pExceptRec != -1) 
+  {
+        if(pExceptRec == pExceptionRegRec) 
+        {
+            fFound = TRUE;
+            break;
+        }
+        pExceptRec = pExceptRec->prev_structure;
+  }
+
+#ifdef DEBUG
+  pExceptRec = (PEXCEPTIONREGISTRATIONRECORD)QueryExceptionChain();
+
+  if(fFound && pExceptRec != (PEXCEPTIONREGISTRATIONRECORD)pExceptionRegRec) 
+  {
+      dprintf(("ERROR: ODIN_UnsetExceptionHandler: INSIDE!!!: exc rec %p, head %p\n", pExceptionRegRec, pExceptRec));
+      PrintExceptionChain ();
+  }
+#endif
+  if(fFound) {
       OS2UnsetExceptionHandler(pExceptionRegRec);
   }