From 834558245bac2e7e85a0e21da66bcf355431ba5d Mon Sep 17 00:00:00 2001
From: Daniel Lehman <dlehman25@gmail.com>
Date: Tue, 6 Feb 2024 22:46:20 -0800
Subject: [PATCH] oleaut32: Handle exponent in VarBstrFromR[48] in non-English
 locales.

---
 dlls/oleaut32/tests/vartype.c |  8 ++++----
 dlls/oleaut32/vartype.c       | 13 ++++++++++---
 2 files changed, 14 insertions(+), 7 deletions(-)

diff --git a/dlls/oleaut32/tests/vartype.c b/dlls/oleaut32/tests/vartype.c
index e567f5a5fed..c6772a7be14 100644
--- a/dlls/oleaut32/tests/vartype.c
+++ b/dlls/oleaut32/tests/vartype.c
@@ -4570,11 +4570,11 @@ static void test_VarBstrFromR4(void)
     { 1.0e14, L"1E+14" },
     { 999999999999999.0, L"1E+15" },
     { 1000000000000000.0, L"1E+15" },
-    { 1200000000000000.0, L"1,2E+15", TRUE },
+    { 1200000000000000.0, L"1,2E+15" },
     { 1.0e15, L"1E+15" },
 
     { 1.000e16, L"1E+16" },
-    { 1.234e16, L"1,234E+16", TRUE },
+    { 1.234e16, L"1,234E+16" },
     { M_PI, L"3,141593" },
 
     { 0.0, NULL }
@@ -4710,11 +4710,11 @@ static void test_VarBstrFromR8(void)
     { 1.0e14, L"100000000000000" },
     { 999999999999999.0, L"999999999999999" },
     { 1000000000000000.0, L"1E+15" },
-    { 1200000000000000.0, L"1,2E+15", TRUE },
+    { 1200000000000000.0, L"1,2E+15" },
     { 1.0e15, L"1E+15" },
 
     { 1.000e16, L"1E+16" },
-    { 1.234e16, L"1,234E+16", TRUE },
+    { 1.234e16, L"1,234E+16" },
 
     { 0.0, NULL }
   };
diff --git a/dlls/oleaut32/vartype.c b/dlls/oleaut32/vartype.c
index d51cee3ee82..3ab404f33f8 100644
--- a/dlls/oleaut32/vartype.c
+++ b/dlls/oleaut32/vartype.c
@@ -6497,7 +6497,7 @@ static BSTR VARIANT_BstrReplaceDecimal(const WCHAR * buff, LCID lcid, ULONG dwFl
   }
   else
   {
-    WCHAR *p;
+    WCHAR *p, *e;
     WCHAR numbuff[256];
     WCHAR empty[] = L"";
     NUMBERFMTW minFormat;
@@ -6512,9 +6512,11 @@ static BSTR VARIANT_BstrReplaceDecimal(const WCHAR * buff, LCID lcid, ULONG dwFl
                    (WCHAR *)&minFormat.LeadingZero, sizeof(DWORD)/sizeof(WCHAR) );
 
     /* count number of decimal digits in string */
-    p = wcschr( buff, '.' );
-    if (p) minFormat.NumDigits = lstrlenW(p + 1);
+    p = wcschr(buff, '.');
+    e = wcschr(p ? ++p : buff, 'E');
+    if (p) minFormat.NumDigits = e ? e - p : lstrlenW(p);
 
+    if (e) *e = '\0';
     numbuff[0] = '\0';
     if (!GetNumberFormatW(lcid, 0, buff, &minFormat, numbuff, ARRAY_SIZE(numbuff)))
     {
@@ -6523,6 +6525,11 @@ static BSTR VARIANT_BstrReplaceDecimal(const WCHAR * buff, LCID lcid, ULONG dwFl
     }
     else
     {
+      if (e)
+      {
+        *e = 'E';
+        wcscat(numbuff, e);
+      }
       TRACE("created minimal NLS string %s\n", debugstr_w(numbuff));
       bstrOut = SysAllocString(numbuff);
     }