vbscript: Be more verbose on unexpected error in a script.

Signed-off-by: Piotr Caban <piotr@codeweavers.com> Signed-off-by: Jacek Caban <jacek@codeweavers.com> Signed-off-by: Alexandre Julliard <julliard@winehq.org>

vbscript: Be more verbose on unexpected error in a script.
775671c3 · Piotr Caban · Alexandre Julliard · 0a15f2e0 · 775671c3
Commit 775671c3 authored Oct 10, 2017 by Piotr Caban Committed by Alexandre Julliard Oct 10, 2017
Hide whitespace changes
Inline Side-by-side

Showing with 13 additions and 1 deletion

run.c dlls/vbscript/tests/run.c +13 -1

No files found.
--- a/dlls/vbscript/tests/run.c
+++ b/dlls/vbscript/tests/run.c
@@ -1626,8 +1626,20 @@ static HRESULT WINAPI ActiveScriptSite_OnStateChange(IActiveScriptSite *iface, S
 static HRESULT WINAPI ActiveScriptSite_OnScriptError(IActiveScriptSite *iface, IActiveScriptError *pscripterror)
 {
    HRESULT hr = onerror_hres;
-    CHECK_EXPECT(OnScriptError);

+    if(!expect_OnScriptError) {
+        EXCEPINFO info;
+        ULONG line;
+        HRESULT hres;
+
+        hres = IActiveScriptError_GetSourcePosition(pscripterror, NULL, &line, NULL);
+        if(SUCCEEDED(hres))
+            hres = IActiveScriptError_GetExceptionInfo(pscripterror, &info);
+        if(SUCCEEDED(hres))
+            trace("Error in line %u: %s\n", line+1, wine_dbgstr_w(info.bstrDescription));
+    }
+
+    CHECK_EXPECT(OnScriptError);
    onerror_hres = E_NOTIMPL;

    return hr;