[project @ 2000-07-31 10:12:19 by simonmar]

[ghc-hetmet.git] / ghc / interpreter / errors.h

diff --git a/ghc/interpreter/errors.h b/ghc/interpreter/errors.h
index b650c2d..63f9325 100644 (file)
--- a/ghc/interpreter/errors.h
+++ b/ghc/interpreter/errors.h
@@ -9,25 +9,20 @@
  * included in the distribution.
  *
  * $RCSfile: errors.h,v $
- * $Revision: 1.5 $
- * $Date: 1999/10/16 02:17:28 $
+ * $Revision: 1.9 $
+ * $Date: 2000/03/24 14:32:03 $
  * ------------------------------------------------------------------------*/
 
-extern Void internal     Args((String)) HUGS_noreturn;
-extern Void fatal        Args((String)) HUGS_noreturn;
+extern Void internal     ( String) HUGS_noreturn;
+extern Void fatal        ( String) HUGS_noreturn;
 
-#if HUGS_FOR_WINDOWS
-#define Hilite()         WinTextcolor(hWndText,RED);
-#define Lolite()         WinTextcolor(hWndText,BLACK);
-#define errorStream      stderr
-#else
 #define Hilite()         doNothing()
 #define Lolite()         doNothing()
 #define errorStream      stdout
-#endif
 
 #define ERRMSG(l)        Hilite(); errHead(l); FPrintf(errorStream,
 #define EEND             ); Lolite(); errFail()
+#define EEND_NO_LONGJMP  ); Lolite(); errFail_no_longjmp()
 #define ETHEN            );
 #define ERRTEXT          Hilite(); FPrintf(errorStream,
 #define ERREXPR(e)       Hilite(); printExp(errorStream,e); Lolite()
@@ -38,20 +33,18 @@ extern Void fatal        Args((String)) HUGS_noreturn;
 #define ERRKINDS(ks)     Hilite(); printKinds(errorStream,ks); Lolite()
 #define ERRFD(fd)       Hilite(); printFD(errorStream,fd); Lolite()
 
-extern Void errHead      Args((Int));              /* in main.c            */
-extern Void errFail      Args((Void)) HUGS_noreturn;
-extern Void errAbort     Args((Void));
-
-extern sigProto(breakHandler);
-
-extern Bool breakOn      Args((Bool));             /* in machdep.c         */
-
-extern Void printExp     Args((FILE *,Cell));      /* in output.c          */
-extern Void printType    Args((FILE *,Cell));
-extern Void printContext Args((FILE *,List));
-extern Void printPred    Args((FILE *,Cell));
-extern Void printKind    Args((FILE *,Kind));
-extern Void printKinds   Args((FILE *,Kinds));
-extern Void printFD     Args((FILE *,Pair));
+extern Void errHead            ( Int );            /* in main.c            */
+extern Void errFail            ( Void ) HUGS_noreturn;
+extern Void errFail_no_longjmp ( Void );
+extern Void errAbort           ( Void );
+extern Cell errAssert    ( Int );
+
+extern Void printExp     ( FILE *,Cell );          /* in output.c          */
+extern Void printType    ( FILE *,Cell );
+extern Void printContext ( FILE *,List );
+extern Void printPred    ( FILE *,Cell );
+extern Void printKind    ( FILE *,Kind );
+extern Void printKinds   ( FILE *,Kinds );
+extern Void printFD     ( FILE *,Pair );
 
 /*-------------------------------------------------------------------------*/