aboutsummaryrefslogtreecommitdiff
path: root/c
diff options
context:
space:
mode:
Diffstat (limited to 'c')
-rw-r--r--c/common.cpp4
-rw-r--r--c/common.h2
-rw-r--r--c/main.cpp2
-rw-r--r--c/pl.h4
4 files changed, 6 insertions, 6 deletions
diff --git a/c/common.cpp b/c/common.cpp
index a5b7316..c04d986 100644
--- a/c/common.cpp
+++ b/c/common.cpp
@@ -58,7 +58,7 @@ Library::~Library()
FreeLibrary(m_hModule);
}
-FARPROC Library::GetProcAddress(const char* const szProc)
+void* Library::GetProcAddress(const char* const szProc)
{
- return ::GetProcAddress(m_hModule, szProc);
+ return (void*)::GetProcAddress(m_hModule, szProc);
}
diff --git a/c/common.h b/c/common.h
index 2b3c331..169b748 100644
--- a/c/common.h
+++ b/c/common.h
@@ -27,7 +27,7 @@ struct Library
{
Library(const TCHAR* tszLibrary);
~Library();
- FARPROC GetProcAddress(const char* szProc);
+ void* GetProcAddress(const char* szProc);
private:
HMODULE m_hModule;
};
diff --git a/c/main.cpp b/c/main.cpp
index 4b42317..2e2fbbf 100644
--- a/c/main.cpp
+++ b/c/main.cpp
@@ -474,7 +474,7 @@ LRESULT CALLBACK WndProc(const HWND hWnd, const UINT uMsg, const WPARAM wParam,
return 0;
}
-INT_PTR CALLBACK AboutDlgProc(const HWND hWnd, const UINT uMsg, const WPARAM wParam, const LPARAM lParam)
+INT_PTR CALLBACK AboutDlgProc(const HWND hWnd, const UINT uMsg, const WPARAM wParam, const LPARAM)
{
switch (uMsg) {
case WM_CLOSE:
diff --git a/c/pl.h b/c/pl.h
index 276f79a..1ad0967 100644
--- a/c/pl.h
+++ b/c/pl.h
@@ -57,9 +57,9 @@ int PlGetv(const term_t t, T arg) { return PlGet(t, arg); }
template <typename T, typename ...R>
int PlGetv(const term_t t, T arg, R... rest) { return PlGet(t, arg)? PlGetv(t+1, rest...): 0; }
template <typename T>
-int Countv(const int i, T arg) { return i+1; }
+int Countv(const int i, T) { return i+1; }
template <typename T, typename ...R>
-int Countv(const int i, T arg, R... rest) { return Countv(i+1, rest...); }
+int Countv(const int i, T, R... rest) { return Countv(i+1, rest...); }
/* Call Prolog predicate, propagating Prolog exceptions. */
template <typename ...T>