Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Open sidebar
Glasgow Haskell Compiler
GHC
Commits
f4e682c8
Commit
f4e682c8
authored
Jun 28, 2009
by
Simon Marlow
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
remove old incarnation of .NET support
parent
10f0ba21
Changes
4
Hide whitespace changes
Inline
Side-by-side
Showing
4 changed files
with
0 additions
and
126 deletions
+0
-126
includes/DNInvoke.h
includes/DNInvoke.h
+0
-55
includes/Dotnet.h
includes/Dotnet.h
+0
-64
includes/Rts.h
includes/Rts.h
+0
-4
rts/package.conf.in
rts/package.conf.in
+0
-3
No files found.
includes/DNInvoke.h
deleted
100644 → 0
View file @
10f0ba21
/*
* C callable bridge to the .NET object model
*
* (c) 2003, sof.
*
*/
#ifndef __DNINVOKE_H__
#define __DNINVOKE_H__
#include "Dotnet.h"
extern
char
*
DN_invokeStatic
(
char
*
assemName
,
char
*
methName
,
DotnetArg
*
args
,
int
n_args
,
DotnetType
resultTy
,
void
*
res
);
extern
char
*
DN_getStatic
(
char
*
assemName
,
char
*
fieldClsName
,
DotnetArg
*
args
,
int
n_args
,
DotnetType
resultTy
,
void
*
res
);
extern
char
*
DN_setStatic
(
char
*
assemName
,
char
*
fieldClsName
,
DotnetArg
*
args
,
int
n_args
,
DotnetType
resultTy
,
void
*
res
);
extern
char
*
DN_createObject
(
char
*
assemName
,
char
*
methName
,
DotnetArg
*
args
,
int
n_args
,
DotnetType
resultTy
,
void
*
res
);
extern
char
*
DN_invokeMethod
(
char
*
methName
,
DotnetArg
*
args
,
int
n_args
,
DotnetType
resultTy
,
void
*
res
);
extern
char
*
DN_getField
(
char
*
methName
,
DotnetArg
*
args
,
int
n_args
,
DotnetType
resultTy
,
void
*
res
);
extern
char
*
DN_setField
(
char
*
clsAndMethName
,
DotnetArg
*
args
,
int
n_args
,
DotnetType
resultTy
,
void
*
res
);
extern
void
stopDotnetBridge
(
void
);
#endif
/* __DNINVOKE_H__ */
includes/Dotnet.h
deleted
100644 → 0
View file @
10f0ba21
/*
* 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__ */
includes/Rts.h
View file @
f4e682c8
...
...
@@ -207,10 +207,6 @@ extern void stackOverflow(void);
extern
void
__decodeDouble_2Int
(
I_
*
man_sign
,
W_
*
man_high
,
W_
*
man_low
,
I_
*
exp
,
StgDouble
dbl
);
extern
void
__decodeFloat_Int
(
I_
*
man
,
I_
*
exp
,
StgFloat
flt
);
#if defined(WANT_DOTNET_SUPPORT)
#include "DNInvoke.h"
#endif
/* Initialising the whole adjustor thunk machinery. */
extern
void
initAdjustor
(
void
);
...
...
rts/package.conf.in
View file @
f4e682c8
...
...
@@ -33,9 +33,6 @@ extra-libraries: "m" /* for ldexp() */
#ifdef mingw32_HOST_OS
,"wsock32" /* for the linker */
#endif
#ifdef WANT_DOTNET_SUPPORT
, "oleaut32", "ole32", "uuid"
#endif
#if defined(DEBUG) && defined(HAVE_LIBBFD)
,"bfd", "iberty" /* for debugging */
#endif
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment