Update to ficl 4.1.0 (latest release on sourceforge)vendor/ficl/4.1.0vendor/ficl

1 files changed, 64 insertions, 0 deletions

diff --git a/ficlplatform/win32.h b/ficlplatform/win32.h
new file mode 100644
index 000000000000..c46c14df17d7
--- /dev/null
+++ b/ficlplatform/win32.h
@@ -0,0 +1,64 @@
+/*
+** Note that Microsoft's own header files won't compile without
+** "language extensions" (anonymous structs/unions) turned on.
+** And even with that, it still gives a warning in rpcasync.h:
+**    warning C4115: '_RPC_ASYNC_STATE' : named type definition in parentheses
+** It compiles clean in C++.  Oy vey.  So I turned off the warning. --lch
+*/
+#pragma warning(disable: 4115)
+#include <windows.h>
+#pragma warning(default: 4115)
+#include <direct.h>
+
+#define FICL_WANT_PLATFORM (1)
+
+#define FICL_PLATFORM_OS             "Win32"
+#define FICL_PLATFORM_ARCHITECTURE   "x86"
+
+#define FICL_PLATFORM_BASIC_TYPES    (1)
+#define FICL_PLATFORM_ALIGNMENT      (4)
+#define FICL_PLATFORM_INLINE	     __inline
+
+#define FICL_PLATFORM_HAS_2INTEGER   (1)
+#define FICL_PLATFORM_HAS_FTRUNCATE  (1)
+
+#define fstat       _fstat
+#define stat        _stat
+#define getcwd      _getcwd
+#define chdir       _chdir
+#define fileno      _fileno
+
+
+extern int ftruncate(int fileno, size_t size);
+
+typedef char ficlInteger8;
+typedef unsigned char ficlUnsigned8;
+typedef short ficlInteger16;
+typedef unsigned short ficlUnsigned16;
+typedef long ficlInteger32;
+typedef unsigned long ficlUnsigned32;
+typedef __int64 ficlInteger64;
+typedef unsigned __int64 ficlUnsigned64;
+
+typedef ficlInteger32 ficlInteger;
+typedef ficlUnsigned32 ficlUnsigned;
+typedef float ficlFloat;
+
+typedef ficlInteger64 ficl2Integer;
+typedef ficlUnsigned64 ficl2Unsigned;
+
+
+#define FICL_MULTICALL_CALLTYPE_FUNCTION        (0)
+#define FICL_MULTICALL_CALLTYPE_METHOD          (1)
+#define FICL_MULTICALL_CALLTYPE_VIRTUAL_METHOD	(2)
+#define FICL_MULTICALL_GET_CALLTYPE(flags)      ((flags) & 0x0f)
+
+#define FICL_MULTICALL_RETURNTYPE_VOID          (0)
+#define FICL_MULTICALL_RETURNTYPE_INTEGER       (16)
+#define FICL_MULTICALL_RETURNTYPE_CSTRING       (32)
+#define FICL_MULTICALL_RETURNTYPE_FLOAT         (48)
+#define FICL_MULTICALL_GET_RETURNTYPE(flags)    ((flags) & 0xf0)
+
+#define FICL_MULTICALL_REVERSE_ARGUMENTS        (1<<8)
+#define FICL_MULTICALL_EXPLICIT_VTABLE          (1<<9) /* the vtable is specified on the stack */
+