[PATCH 1/1] ole32: Add support for writing VT_R8 property.

[chenjiangyi]

From: chenjiangyi

Signed-off-by: chenjiangyi 
---
 dlls/ole32/stg_prop.c | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/dlls/ole32/stg_prop.c b/dlls/ole32/stg_prop.c
index 111591a964d..0fe8ecc1840 100644
--- a/dlls/ole32/stg_prop.c
+++ b/dlls/ole32/stg_prop.c
@@ -2273,6 +2273,12 @@ static HRESULT PropertyStorage_WritePropertyToStream(PropertyStorage_impl *This,
         hr = IStream_Write(This->stm, &ularge, sizeof(ularge), &bytesWritten);
         break;
     }
+    case VT_R8:
+    {
+        hr = IStream_Write(This->stm, &var->dblVal, sizeof(var->dblVal), &count);
+        bytesWritten = count;
+        break;
+    }
     case VT_LPSTR:
     {
         if (This->codePage == CP_UNICODE)