[project @ 1999-10-19 11:41:35 by sewardj]

Change CFunDescriptor to match new foreign import implementation.

diff --git a/ghc/includes/Assembler.h b/ghc/includes/Assembler.h
index d0c1998..36669ca 100644 (file)
--- a/ghc/includes/Assembler.h
+++ b/ghc/includes/Assembler.h
@@ -1,6 +1,6 @@
 
 /* -----------------------------------------------------------------------------
- * $Id: Assembler.h,v 1.8 1999/10/15 11:02:06 sewardj Exp $
+ * $Id: Assembler.h,v 1.9 1999/10/19 11:41:35 sewardj Exp $
  *
  * (c) The GHC Team 1994-1998.
  *
@@ -247,17 +247,12 @@ extern const AsmPrim ccall_Id;
 extern const AsmPrim ccall_IO;
 
 typedef struct {
-  char *        arg_tys;
-  int           arg_size;
-  char *        result_tys;
-  int           result_size;
+  unsigned int  num_args;
+  char*         arg_tys;
+  unsigned int  num_results;
+  char*         result_tys;
 } CFunDescriptor;
 
-typedef struct {
-  char *        arg_tys;
-  char *        result_tys;
-} HFunDescriptor;
-
 CFunDescriptor* mkDescriptor( char* as, char* rs );
 
 /*-------------------------------------------------------------------------*/