[project @ 1998-10-06 14:54:49 by simonm]

[ghc-hetmet.git] / ghc / utils / ugen / gen.c

diff --git a/ghc/utils/ugen/gen.c b/ghc/utils/ugen/gen.c
index f57489d..5dc76a4 100644 (file)
--- a/ghc/utils/ugen/gen.c
+++ b/ghc/utils/ugen/gen.c
@@ -33,6 +33,9 @@ ge_typdef(t)
        fprintf(fh, "#define PROTO(x) /**/\n");
        fprintf(fh, "#endif\n");
        fprintf(fh, "#endif\n\n");
+       fprintf(fh, "#ifdef UGEN_DEBUG\n");
+       fprintf(fh, "int\tfprintf PROTO((FILE *, const char *, ...));\n");
+       fprintf(fh, "#endif /* UGEN_DEBUG */\n\n");
        fprintf(fh, "typedef enum {\n");
        ge_typlist(gtdeflist(t));
        fprintf(fh, "\n} T%s;\n\n", gtid(t));