diff options
author | Simon Marlow <marlowsd@gmail.com> | 2009-06-28 21:11:47 +0000 |
---|---|---|
committer | Simon Marlow <marlowsd@gmail.com> | 2009-06-28 21:11:47 +0000 |
commit | f4e682c8f54a70cacbc412c1bd24cf619e1023e7 (patch) | |
tree | 3b6335de9cfee12ed280924fc15727eca8d2374d /includes/Dotnet.h | |
parent | 10f0ba21b50896514e5ac885f0e9f0bc7e2c4876 (diff) | |
download | haskell-f4e682c8f54a70cacbc412c1bd24cf619e1023e7.tar.gz |
remove old incarnation of .NET support
Diffstat (limited to 'includes/Dotnet.h')
-rw-r--r-- | includes/Dotnet.h | 64 |
1 files changed, 0 insertions, 64 deletions
diff --git a/includes/Dotnet.h b/includes/Dotnet.h deleted file mode 100644 index 89dace2ced..0000000000 --- a/includes/Dotnet.h +++ /dev/null @@ -1,64 +0,0 @@ -/* - * Types and definitions to support GHC .NET interop. - * - * (c) 2003, sof. - * - */ -#ifndef __DOTNET_H__ -#define __DOTNET_H__ - -typedef enum { - Dotnet_Byte = 0, - Dotnet_Boolean, - Dotnet_Char, - Dotnet_Double, - Dotnet_Float, - Dotnet_Int, - Dotnet_Int8, - Dotnet_Int16, - Dotnet_Int32, - Dotnet_Int64, - Dotnet_Word8, - Dotnet_Word16, - Dotnet_Word32, - Dotnet_Word64, - Dotnet_Ptr, - Dotnet_Unit, - Dotnet_Object, - Dotnet_String -} DotnetType; - -typedef union { - unsigned char arg_byte; - unsigned int arg_bool; - unsigned char arg_char; - int arg_int; - signed char arg_int8; - signed short arg_int16; - signed int arg_int32; -#if defined(_MSC_VER) - signed __int64 arg_int64; -#else - signed long long arg_int64; -#endif - float arg_float; - double arg_double; - unsigned char arg_word8; - unsigned short arg_word16; - unsigned int arg_word32; -#if defined(_MSC_VER) - unsigned __int64 arg_word64; -#else - unsigned long long arg_word64; -#endif - void* arg_ptr; - void* arg_obj; - void* arg_str; -} DotnetArgVal; - -typedef struct { - DotnetArgVal arg; - DotnetType arg_type; -} DotnetArg; - -#endif /* __DOTNET_H__ */ |