vm/os-windows-ce.c

   1 #include "master.h"
   2
   3 s64 current_micros(void)
   4 {
   5         SYSTEMTIME st;
   6         FILETIME ft;
   7         GetSystemTime(&st);
   8         SystemTimeToFileTime(&st, &ft);
   9         return (((s64)ft.dwLowDateTime
  10                 | (s64)ft.dwHighDateTime<<32) - EPOCH_OFFSET) / 10;
  11 }
  12
  13 char *strerror(int err)
  14 {
  15         /* strerror() is not defined on WinCE */
  16         return "strerror() is not defined on WinCE. Use native I/O.";
  17 }
  18
  19 void flush_icache(CELL start, CELL end)
  20 {
  21         FlushInstructionCache(GetCurrentProcess(), 0, 0);
  22 }
  23
  24 char *getenv(char *name)
  25 {
  26         not_implemented_error();
  27         return 0; /* unreachable */
  28 }
  29
  30 void primitive_os_envs(void)
  31 {
  32         not_implemented_error();
  33 }
  34
  35 void c_to_factor_toplevel(CELL quot)
  36 {
  37         c_to_factor(quot);
  38 }
  39
  40 void open_console(void) { }