Fix link errors by making empty methods for now

Author: isuruf

runtime/flang/close.c

@@ -71,7 +71,7 @@ __fortio_close(FIO_FCB *f, int flag)
       else
         __fort_unlink(f->name);
     }
-#ifdef WINNT
+#ifdef _WIN32
     else if (f->status == FIO_SCRATCH)
       unlink(f->name);
 #endif

runtime/flang/const.c

@@ -429,7 +429,7 @@ __get_size_of(int* idx)
   return __fort_size_of[*idx];
 }
 
-#ifdef WINNT
+#ifdef _WIN32
 
 /* pg access routines for data shared between windows dlls */
 

runtime/flang/cvt.c

@@ -15,10 +15,8 @@
  *
  */
 
-#ifndef WIN64
 #include <stdlib.h>
 #include <string.h>
-#endif
 #include <math.h>
 
 #define IEEE 1

runtime/flang/dmod.c

@@ -24,9 +24,9 @@ double __fmth_i_dmod(double f, double g);
 double
 __mth_i_dmod(double f, double g)
 {
-/* Need to do this way until a bug in the Win64 fmod routine is fixed */
+/* TODO: Need to do this way until a bug in the Win64 fmod routine is fixed */
 #if defined(_WIN32)
-  return __fmth_i_dmod(f, g);
+  return fmod(f, g);
 #else
   return fmod(f, g);
 #endif

runtime/flang/etime3f.c

@@ -52,17 +52,7 @@ float ENT3F(ETIME, etime)(float *tarray)
 #else
 #include <Windows.h>
 
-float convert_filetime( const FILETIME *ac_FileTime )
-{
-  ULARGE_INTEGER    lv_Large ;
-
-  lv_Large.LowPart  = ac_FileTime->dwLowDateTime   ;
-  lv_Large.HighPart = ac_FileTime->dwHighDateTime  ;
-
-  return (float)lv_Large.QuadPart ;
-}
-
-float ENT3F(DTIME, dtime)(float *tarray)
+float ENT3F(ETIME, etime)(float *tarray)
 {
   FILETIME accum_user;
   FILETIME accum_sys;

runtime/flang/fsync3f.c

@@ -26,10 +26,12 @@ extern FILE *__getfile3f();
 
 void ENT3F(FSYNC, fsync)(lu) int *lu;
 {
+#ifndef _WIN32
   FILE *f;
 
   f = __getfile3f(*lu);
   if (f)
     fsync(__io_getfd(f));
   return;
+ #endif
 }

runtime/flang/hand.c

@@ -131,4 +131,9 @@ __fort_sethand()
   }
 }
 
+#else
+void
+__fort_sethand()
+{
+}
 #endif

runtime/flang/irandm3f.c

@@ -21,7 +21,7 @@
 
 #include "ent3f.h"
 
-#ifdef WINNT
+#ifdef _WIN32
 
 int ENT3F(IRANDM, irandm)(int *flag)
 {

runtime/flang/open.c

@@ -32,6 +32,7 @@
 
 #if defined(_WIN32)
 #define access _access
+#define unlink _unlink
 #endif
 
 static FIO_FCB *Fcb; /* pointer to the file control block */

runtime/flang/utils.c

@@ -621,6 +621,10 @@ sincosf(float x, float *sine, float *cosine) {
     *cosine = cosf(x);
 }
 
+int ftruncate(int fd, __int64 length) {
+  _chsize_s(fd, length);
+}
+
 struct timezone 
 {
     int tz_minuteswest; /* minutes W of Greenwich */