mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-23 03:54:12 +02:00
Code Activity

Make compilation under Windows easier.

Browse source
This commit is contained in:
Martin Grabmüller 2001-06-26 17:53:09 +00:00
parent dd0e04edd6
commit 82893676f4
22 changed files with 315 additions and 22 deletions
Download patch file Download diff file Expand all files Collapse all files

15
libguile/guile.c
View file

@ -55,6 +55,10 @@
#include <libltdl/ltdl.h>
#endif
#ifdef HAVE_WINSOCK2_H
#include <winsock2.h>
#endif
/* Debugger interface (don't change the order of the following lines) */
#define GDB_TYPE SCM
#include <libguile/gdb_interface.h>
@ -63,8 +67,19 @@ GDB_INTERFACE;
static void
inner_main (void *closure SCM_UNUSED, int argc, char **argv)
{
#ifdef __MINGW32__
/* This is necessary to startup the Winsock API under Win32. */
WSADATA WSAData;
WSAStartup (0x0202, &WSAData);
GDB_INTERFACE_INIT;
#endif /* __MINGW32__ */
/* module initializations would go here */
scm_shell (argc, argv);
#ifdef __MINGW32__
WSACleanup ();
#endif /* __MINGW32__ */
}
int