[PATCH v10 3/8] wdscore: Implement CurrentIP.

[Mohamad Al-Jaf]

Wine-Bug: https://bugs.winehq.org/show_bug.cgi?id=51850
Signed-off-by: Mohamad Al-Jaf <mohamadaljaf at gmail.com>
---
v10: - Revert to stdcall since it makes no difference.
     - Move assembly code to the header.
---
 dlls/wdscore/Makefile.in        |  3 +++
 dlls/wdscore/main.c             | 37 +++++++++++++++++++++++++++++++++
 dlls/wdscore/wdscore.spec       |  2 +-
 dlls/wdscore/wdscore_internal.h |  2 ++
 4 files changed, 43 insertions(+), 1 deletion(-)
 create mode 100644 dlls/wdscore/main.c

diff --git a/dlls/wdscore/Makefile.in b/dlls/wdscore/Makefile.in
index 20ba1d3b1c9..2020e72c7bb 100644
--- a/dlls/wdscore/Makefile.in
+++ b/dlls/wdscore/Makefile.in
@@ -1,3 +1,6 @@
 MODULE    = wdscore.dll
 
 EXTRADLLFLAGS = -Wb,--prefer-native
+
+C_SRCS = \
+	main.c
diff --git a/dlls/wdscore/main.c b/dlls/wdscore/main.c
new file mode 100644
index 00000000000..1e7619f0657
--- /dev/null
+++ b/dlls/wdscore/main.c
@@ -0,0 +1,37 @@
+/*
+ * Copyright 2022 Mohamad Al-Jaf
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+ *
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+ * Lesser General Public License for more details.
+ *
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
+ */
+
+#include <stdarg.h>
+
+#include "windef.h"
+#include "winbase.h"
+#include "wdscore_internal.h"
+
+#include "wine/debug.h"
+
+WINE_DEFAULT_DEBUG_CHANNEL(wdscore);
+
+/***********************************************************************
+ *           CurrentIP (wdscore.@)
+ */
+LPVOID WINAPI CurrentIP(void)
+{
+    void *ip = get_ip();
+    if (!ip) FIXME( "not implemented\n" );
+    return ip;
+}
diff --git a/dlls/wdscore/wdscore.spec b/dlls/wdscore/wdscore.spec
index aa55f494387..282b6301688 100644
--- a/dlls/wdscore/wdscore.spec
+++ b/dlls/wdscore/wdscore.spec
@@ -71,7 +71,7 @@
 @ stub ConstructPartialMsgIfW
 @ stub ConstructPartialMsgVA
 @ stub ConstructPartialMsgVW
-@ stub CurrentIP
+@ stdcall CurrentIP()
 @ stub EndMajorTask
 @ stub EndMinorTask
 @ stub GetMajorTask
diff --git a/dlls/wdscore/wdscore_internal.h b/dlls/wdscore/wdscore_internal.h
index a10e6552155..8ba0f168fc6 100644
--- a/dlls/wdscore/wdscore_internal.h
+++ b/dlls/wdscore/wdscore_internal.h
@@ -41,4 +41,6 @@ __ASM_STDCALL_FUNC(get_ip, 0,
     "ret")
 #endif
 
+LPVOID  WINAPI CurrentIP(void);
+
 #endif /* __WDSCORE_INTERNAL_H__ */
-- 
2.35.1