From c630ceb58ecf4eb6de1b35d6cf10aaefdddd040b Mon Sep 17 00:00:00 2001
From: sewardj <unknown>
Date: Tue, 19 Oct 1999 11:41:35 +0000
Subject: [PATCH] [project @ 1999-10-19 11:41:35 by sewardj] Change
 CFunDescriptor to match new foreign import implementation.

---
 ghc/includes/Assembler.h |   15 +++++----------
 1 file changed, 5 insertions(+), 10 deletions(-)

diff --git a/ghc/includes/Assembler.h b/ghc/includes/Assembler.h
index d0c1998..36669ca 100644
--- 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 );
 
 /*-------------------------------------------------------------------------*/
-- 
1.7.10.4