[project @ 1998-12-02 13:17:09 by simonm]

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

diff --git a/ghc/interpreter/pp.h b/ghc/interpreter/pp.h
new file mode 100644 (file)
index 0000000..e06f893
--- /dev/null
+++ b/ghc/interpreter/pp.h
@@ -0,0 +1,16 @@
+/* -*- mode: hugs-c; -*- */
+/* --------------------------------------------------------------------------
+ * Pretty printer for stg code:
+ * ------------------------------------------------------------------------*/
+
+Void printStg( FILE *fp, StgVar b);
+            
+#if DEBUG_PRINTER
+extern Void ppStg        ( StgVar v );
+extern Void ppStgExpr    ( StgExpr e );
+extern Void ppStgRhs     ( StgRhs rhs );
+extern Void ppStgAlts    ( List alts );
+extern Void ppStgPrimAlts( List alts );
+extern Void ppStgVars    ( List vs );
+#endif
+