*/
#define WIN32_LEAN_AND_MEAN
+#ifdef __GNUC__
+#define Win32_Winsock
+#endif
#include <windows.h>
#include <string.h>
#include "dlutils.c" /* SaveError() etc */
static void
-dl_private_init()
+dl_private_init(void)
{
(void)dl_generic_private_init();
}
static int
dl_static_linked(char *filename)
{
- char **p;
+ char **p;
for (p = staticlinkmodules; *p;p++) {
- if (strstr(filename, *p)) return 1;
- };
- return 0;
+ if (strstr(filename, *p)) return 1;
+ };
+ return 0;
}
MODULE = DynaLoader PACKAGE = DynaLoader
PREINIT:
CODE:
DLDEBUG(1,fprintf(stderr,"dl_load_file(%s):\n", filename));
- if (dl_static_linked(filename) == 0)
- RETVAL = (void*) LoadLibraryEx(filename, NULL, LOAD_WITH_ALTERED_SEARCH_PATH ) ;
- else
- RETVAL = (void*) GetModuleHandle(NULL);
+ if (dl_static_linked(filename) == 0)
+ RETVAL = (void*) LoadLibraryEx(filename, NULL, LOAD_WITH_ALTERED_SEARCH_PATH ) ;
+ else
+ RETVAL = (void*) GetModuleHandle(NULL);
DLDEBUG(2,fprintf(stderr," libref=%x\n", RETVAL));
ST(0) = sv_newmortal() ;
if (RETVAL == NULL)
char * symbolname
CODE:
DLDEBUG(2,fprintf(stderr,"dl_find_symbol(handle=%x, symbol=%s)\n",
- libhandle, symbolname));
+ libhandle, symbolname));
RETVAL = (void*) GetProcAddress((HINSTANCE) libhandle, symbolname);
DLDEBUG(2,fprintf(stderr," symbolref = %x\n", RETVAL));
ST(0) = sv_newmortal() ;
char * filename
CODE:
DLDEBUG(2,fprintf(stderr,"dl_install_xsub(name=%s, symref=%x)\n",
- perl_name, symref));
- ST(0)=sv_2mortal(newRV((SV*)newXS(perl_name, (void(*)())symref, filename)));
+ perl_name, symref));
+ ST(0)=sv_2mortal(newRV((SV*)newXS(perl_name, (void(*)(CV*))symref, filename)));
char *