[ros-diffs] [fireball] 43629: Daniel Zimmermann <[e-mail]> - Print module and function name when a wine unimplemented function exception is raised. See issue #4546 for more details.

Author: fireball
Date: Mon Oct 19 23:42:27 2009
New Revision: 43629

URL: http://svn.reactos.org/svn/reactos?rev=43629&view=rev
Log:
Daniel Zimmermann <netzimme(a)aim.com>
- Print module and function name when a wine unimplemented function exception is raised.
See issue #4546 for more details.

Modified:
    trunk/reactos/dll/win32/kernel32/except/except.c

Modified: trunk/reactos/dll/win32/kernel32/except/except.c
URL:
http://svn.reactos.org/svn/reactos/trunk/reactos/dll/win32/kernel32/except/…
==============================================================================
--- trunk/reactos/dll/win32/kernel32/except/except.c [iso-8859-1] (original)
+++ trunk/reactos/dll/win32/kernel32/except/except.c [iso-8859-1] Mon Oct 19 23:42:27
2009
@@ -395,7 +395,18 @@
     {
         DPRINT1("Delphi Exception at address: %p\n",
ExceptionRecord.ExceptionInformation[0]);
         DPRINT1("Exception-Object: %p\n",
ExceptionRecord.ExceptionInformation[1]);
-        DPRINT1("Exception text: %s\n",
ExceptionRecord.ExceptionInformation[2]);        
+        DPRINT1("Exception text: %s\n",
ExceptionRecord.ExceptionInformation[2]);
+    }
+
+    /* Trace the wine special error and show the modulename and functionname */
+    if (dwExceptionCode == 0x80000100 /*EXCEPTION_WINE_STUB*/)
+    {
+       /* Numbers of parameter must be equal to two */
+       if (ExceptionRecord.NumberParameters == 2)
+       {
+          DPRINT1("Missing function in   : %s\n",
ExceptionRecord.ExceptionInformation[0]);
+          DPRINT1("with the functionname : %s\n",
ExceptionRecord.ExceptionInformation[1]);
+       }
     }
 
     /* Raise the exception */