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
/
Evaluator.h
diff --git
a/ghc/rts/Evaluator.h
b/ghc/rts/Evaluator.h
index
3e4cf0d
..
6c680e1
100644
(file)
--- a/
ghc/rts/Evaluator.h
+++ b/
ghc/rts/Evaluator.h
@@
-1,5
+1,5
@@
/* -----------------------------------------------------------------------------
/* -----------------------------------------------------------------------------
- * $Id: Evaluator.h,v 1.5 1999/10/22 15:58:25 sewardj Exp $
+ * $Id: Evaluator.h,v 1.7 2000/04/25 17:47:43 andy Exp $
*
* (c) The GHC Team, 1998-1999
*
*
* (c) The GHC Team, 1998-1999
*
@@
-26,7
+26,7
@@
*
* ------------------------------------------------------------------------*/
*
* ------------------------------------------------------------------------*/
-extern StgThreadReturnCode enter ( StgClosurePtr obj );
+extern StgThreadReturnCode enter ( Capability* cap, StgClosurePtr obj );
extern nat marshall ( char arg_ty, void* arg );
extern nat unmarshall ( char res_ty, void* res );
extern nat marshall ( char arg_ty, void* arg );
extern nat unmarshall ( char res_ty, void* res );
@@
-51,3
+51,5
@@
extern void PushTaggedDouble ( StgDouble );
extern void PushPtr ( StgPtr );
extern StgPtr PopPtr ( void );
extern void PushPtr ( StgPtr );
extern StgPtr PopPtr ( void );
+
+extern int numEnters;