texk/kpathsea: Add a function double win32_floor (double x) (w32 only)

git-svn-id: svn://tug.org/texlive/trunk@39553 c570f23f-e606-0410-a88d-b1316a301751

5 files changed, 19 insertions, 1 deletions

diff --git a/Build/source/texk/kpathsea/ChangeLog b/Build/source/texk/kpathsea/ChangeLog
index f43e07ec920..82b10a2ba0e 100644
--- a/Build/source/texk/kpathsea/ChangeLog
+++ b/Build/source/texk/kpathsea/ChangeLog
@@ -1,3 +1,8 @@
+2016-02-03  Akira Kakuto  <kakuto@fuk.kindai.ac.jp>
+
+	* win32lib.[ch], mingw32.[ch]: Define a function
+	double win32_floor (double x), since floor is defined in cpascal.h.
+
 2015-12-29  Akira Kakuto  <kakuto@fuk.kindai.ac.jp>
 
 	* win32lib.h: Update (w32 only).
diff --git a/Build/source/texk/kpathsea/mingw32.c b/Build/source/texk/kpathsea/mingw32.c
index f6f73719bf7..32c23e75d70 100644
--- a/Build/source/texk/kpathsea/mingw32.c
+++ b/Build/source/texk/kpathsea/mingw32.c
@@ -48,6 +48,12 @@ extern int __cdecl _free_osfhnd (int fd);
 static char *get_home_directory (void);
 static int _parse_root (char * name, char ** pPath);
 
+double
+win32_floor (double x)
+{
+  return floor (x);
+}
+
 void
 init_user_info (void)
 {
diff --git a/Build/source/texk/kpathsea/mingw32.h b/Build/source/texk/kpathsea/mingw32.h
index f05935cef1d..8db9c135f25 100644
--- a/Build/source/texk/kpathsea/mingw32.h
+++ b/Build/source/texk/kpathsea/mingw32.h
@@ -72,7 +72,8 @@ extern char *quote_args(char **);
 #endif /* MAKE_KPSE_DLL */
 
 extern KPSEDLL BOOL win32_get_long_filename (char *, char *, int);
-extern KPSEDLL void texlive_gs_init(void);
+extern KPSEDLL void texlive_gs_init (void);
+extern KPSEDLL double win32_floor (double);
 
 static inline FILE *
 win32_popen (const char *command, const char *fmode)
diff --git a/Build/source/texk/kpathsea/win32lib.c b/Build/source/texk/kpathsea/win32lib.c
index 35a0267887e..4b176aab922 100644
--- a/Build/source/texk/kpathsea/win32lib.c
+++ b/Build/source/texk/kpathsea/win32lib.c
@@ -31,6 +31,11 @@ static int is_include_space(const char *s)
   return 0;
 }
 
+double win32_floor (double x)
+{
+  return floor (x);
+}
+
 FILE * win32_popen (const char *cmd, const char *fmode)
 {
   char mode[3];
diff --git a/Build/source/texk/kpathsea/win32lib.h b/Build/source/texk/kpathsea/win32lib.h
index b31ab623567..28aae28d8d5 100644
--- a/Build/source/texk/kpathsea/win32lib.h
+++ b/Build/source/texk/kpathsea/win32lib.h
@@ -255,6 +255,7 @@
 extern "C" {
 #endif
 
+extern KPSEDLL double win32_floor (double x);
 extern KPSEDLL FILE *win32_popen (const char *cmd, const char *mode);
 extern KPSEDLL int win32_pclose (FILE *f);
 extern KPSEDLL struct passwd *kpathsea_getpwnam (kpathsea kpse, char *name);