projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2000-08-15 14:18:43 by simonmar]
[ghc-hetmet.git]
/
ghc
/
rts
/
ForeignCall.h
diff --git
a/ghc/rts/ForeignCall.h
b/ghc/rts/ForeignCall.h
index
a36c0ca
..
0a962b5
100644
(file)
--- a/
ghc/rts/ForeignCall.h
+++ b/
ghc/rts/ForeignCall.h
@@
-1,5
+1,5
@@
/* -----------------------------------------------------------------------------
/* -----------------------------------------------------------------------------
- * $Id: ForeignCall.h,v 1.4 1999/10/15 11:03:10 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
*
@@
-9,7
+9,13
@@
typedef int StablePtr;
typedef int StablePtr;
-extern void ccall ( CFunDescriptor* descriptor, void (*fun)(void), StgBCO** bco );
-extern void hcall ( HFunDescriptor* descriptor, StablePtr fun, void* as, void* rs );
-
+extern int ccall ( CFunDescriptor* descriptor,
+ void (*fun)(void),
+ StgBCO** bco,
+ char callconv,
+ Capability* cap
+ );
+extern StgAddr createAdjThunk ( StgStablePtr stableptr,
+ StgAddr typestr,
+ StgChar callconv );