mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

Need Guile and Windows types for the declarations posix-w32

Browse source 
* libguile/posix-w32.h: include scm.h and windows.h
This commit is contained in:
Michael Gran 2020-12-27 18:09:45 -08:00
parent c5faaf50cf
commit d3f7a1d0b7
1 changed files with 8 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

9
libguile/posix-w32.h
View file

@ -1,7 +1,7 @@
#ifndef SCM_POSIX_W32_H #ifndef SCM_POSIX_W32_H
#define SCM_POSIX_W32_H #define SCM_POSIX_W32_H
/* Copyright 2001,2006,2018 /* Copyright 2001,2006,2018,2020
Free Software Foundation, Inc. Free Software Foundation, Inc.
This file is part of Guile. This file is part of Guile.
@ -20,7 +20,14 @@
License along with Guile. If not, see License along with Guile. If not, see
<https://www.gnu.org/licenses/>. */ <https://www.gnu.org/licenses/>. */
#ifdef _WIN32
#ifndef WIN32_LEAN_AND_MEAN
#define WIN32_LEAN_AND_MEAN
#endif
#include <Windows.h>
#endif
#include <string.h> #include <string.h>
#include "libguile/scm.h"
#define _UTSNAME_LENGTH 65 #define _UTSNAME_LENGTH 65
#define _UTSNAME_NODENAME_LENGTH _UTSNAME_LENGTH #define _UTSNAME_NODENAME_LENGTH _UTSNAME_LENGTH