]> gitweb.factorcode.org Git - factor.git/blob - vm/os-windows-ce.cpp
65e8ef5b09f2f876ae2586fb3927a107212c0b91
[factor.git] / vm / os-windows-ce.cpp
1 #include "master.hpp"
2
3 namespace factor
4 {
5
6 char *strerror(int err)
7 {
8         /* strerror() is not defined on WinCE */
9         return "strerror() is not defined on WinCE. Use native I/O.";
10 }
11
12 void flush_icache(cell start, cell end)
13 {
14         FlushInstructionCache(GetCurrentProcess(), 0, 0);
15 }
16
17 char *getenv(char *name)
18 {
19         vm->not_implemented_error();
20         return 0; /* unreachable */
21 }
22
23 void c_to_factor_toplevel(cell quot)
24 {
25         c_to_factor(quot,vm);
26 }
27
28 void open_console() { }
29
30 }