From: panne <unknown>
Date: Thu, 3 Oct 2002 13:04:58 +0000 (+0000)
Subject: [project @ 2002-10-03 13:04:58 by panne]
X-Git-Tag: nhc98-1-18-release~827
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=040c3ce8ddfe84ff3f7a539bdc0f1f70e83ea5e3;p=ghc-base.git

[project @ 2002-10-03 13:04:58 by panne]
Warning police #6: Add prototype for writeErrString__, which is used
by GHC.TopHandler.
---

diff --git a/include/HsBase.h b/include/HsBase.h
index a917b96..7f2e633 100644
--- a/include/HsBase.h
+++ b/include/HsBase.h
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: HsBase.h,v 1.15 2002/10/03 12:43:50 panne Exp $
+ * $Id: HsBase.h,v 1.16 2002/10/03 13:04:58 panne Exp $
  *
  * (c) The University of Glasgow 2001-2002
  *
@@ -119,6 +119,9 @@ HsInt rawSystemCmd(HsAddr cmd);
 /* in inputReady.c */
 int inputReady(int fd, int msecs, int isSock);
 
+/* in writeError.c */
+void writeErrString__(HsAddr msg_hdr, HsAddr msg, HsInt len);
+
 /* -----------------------------------------------------------------------------
    64-bit operations, defined in longlong.c
    -------------------------------------------------------------------------- */