From: sewardj <unknown>
Date: Tue, 19 Oct 1999 11:41:35 +0000 (+0000)
Subject: [project @ 1999-10-19 11:41:35 by sewardj]
X-Git-Tag: Approximately_9120_patches~5689
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=c630ceb58ecf4eb6de1b35d6cf10aaefdddd040b;p=ghc-hetmet.git

[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
--- 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 );
 
 /*-------------------------------------------------------------------------*/