diff options
| author | Steve Hay <SteveHay@planit.com> | 2006-08-29 13:24:56 +0000 |
|---|---|---|
| committer | Steve Hay <SteveHay@planit.com> | 2006-08-29 13:24:56 +0000 |
| commit | 5d477a6df415688392cecb2d16fade0065706d72 (patch) | |
| tree | f689797da668a13b078b19735bc38ac6bcd2a6f3 | |
| parent | 1be1675bc13d9dd70ace9cdbd03868d52a2e8157 (diff) | |
| download | perl-5d477a6df415688392cecb2d16fade0065706d72.tar.gz | |
Silence Borland compiler warnings in XS::APItest and Win32
(See: http://www.nntp.perl.org/group/perl.daily-build.reports/40471)
p4raw-id: //depot/perl@28768
| -rw-r--r-- | ext/XS/APItest/APItest.xs | 2 | ||||
| -rw-r--r-- | win32/ext/Win32/Win32.pm | 2 | ||||
| -rw-r--r-- | win32/ext/Win32/Win32.xs | 10 |
3 files changed, 8 insertions, 6 deletions
diff --git a/ext/XS/APItest/APItest.xs b/ext/XS/APItest/APItest.xs index 0c5c5175e8..d83e32f216 100644 --- a/ext/XS/APItest/APItest.xs +++ b/ext/XS/APItest/APItest.xs @@ -30,7 +30,7 @@ my_cxt_setint_p(pMY_CXT_ int i) } SV* -my_cxt_getsv_interp() +my_cxt_getsv_interp(void) { #ifdef PERL_IMPLICIT_CONTEXT dTHX; diff --git a/win32/ext/Win32/Win32.pm b/win32/ext/Win32/Win32.pm index e55bfee4df..e35efc90f9 100644 --- a/win32/ext/Win32/Win32.pm +++ b/win32/ext/Win32/Win32.pm @@ -8,7 +8,7 @@ BEGIN { require DynaLoader; @ISA = qw|Exporter DynaLoader|; - $VERSION = '0.2601'; + $VERSION = '0.2601_01'; @EXPORT = qw( NULL diff --git a/win32/ext/Win32/Win32.xs b/win32/ext/Win32/Win32.xs index 3e502b14ae..b92ae6570d 100644 --- a/win32/ext/Win32/Win32.xs +++ b/win32/ext/Win32/Win32.xs @@ -8,6 +8,8 @@ typedef BOOL (WINAPI *PFNSHGetSpecialFolderPath)(HWND, char*, int, BOOL); typedef HRESULT (WINAPI *PFNSHGetFolderPath)(HWND, int, HANDLE, DWORD, LPTSTR); +typedef int (__stdcall *PFNDllRegisterServer)(void); +typedef int (__stdcall *PFNDllUnregisterServer)(void); #ifndef CSIDL_FLAG_CREATE # define CSIDL_FLAG_CREATE 0x8000 #endif @@ -357,14 +359,14 @@ XS(w32_RegisterServer) dXSARGS; BOOL result = FALSE; HINSTANCE hnd; - FARPROC func; if (items != 1) croak("usage: Win32::RegisterServer($libname)\n"); hnd = LoadLibraryA(SvPV_nolen(ST(0))); if (hnd) { - func = GetProcAddress(hnd, "DllRegisterServer"); + PFNDllRegisterServer func; + func = (PFNDllRegisterServer)GetProcAddress(hnd, "DllRegisterServer"); if (func && func() == 0) result = TRUE; FreeLibrary(hnd); @@ -378,14 +380,14 @@ XS(w32_UnregisterServer) dXSARGS; BOOL result = FALSE; HINSTANCE hnd; - FARPROC func; if (items != 1) croak("usage: Win32::UnregisterServer($libname)\n"); hnd = LoadLibraryA(SvPV_nolen(ST(0))); if (hnd) { - func = GetProcAddress(hnd, "DllUnregisterServer"); + PFNDllUnregisterServer func; + func = (PFNDllUnregisterServer)GetProcAddress(hnd, "DllUnregisterServer"); if (func && func() == 0) result = TRUE; FreeLibrary(hnd); |