projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 1999-11-08 15:30:32 by sewardj]
[ghc-hetmet.git]
/
ghc
/
rts
/
ForeignCall.h
diff --git
a/ghc/rts/ForeignCall.h
b/ghc/rts/ForeignCall.h
index
edbad25
..
0a962b5
100644
(file)
--- a/
ghc/rts/ForeignCall.h
+++ b/
ghc/rts/ForeignCall.h
@@
-1,5
+1,5
@@
/* -----------------------------------------------------------------------------
/* -----------------------------------------------------------------------------
- * $Id: ForeignCall.h,v 1.5 1999/10/19 11:01:28 sewardj Exp $
+ * $Id: ForeignCall.h,v 1.8 1999/11/08 15:30:39 sewardj Exp $
*
* (c) The GHC Team, 1998-1999
*
*
* (c) The GHC Team, 1998-1999
*
@@
-11,6
+11,11
@@
typedef int StablePtr;
extern int ccall ( CFunDescriptor* descriptor,
void (*fun)(void),
extern int ccall ( CFunDescriptor* descriptor,
void (*fun)(void),
- StgBCO** bco
+ StgBCO** bco,
+ char callconv,
+ Capability* cap
);
);
+extern StgAddr createAdjThunk ( StgStablePtr stableptr,
+ StgAddr typestr,
+ StgChar callconv );