projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
1e440db
)
[project @ 1999-11-09 00:41:19 by andy]
author
andy
<unknown>
Tue, 9 Nov 1999 00:41:19 +0000
(
00:41
+0000)
committer
andy
<unknown>
Tue, 9 Nov 1999 00:41:19 +0000
(
00:41
+0000)
Debugging wibble.
ghc/interpreter/output.c
patch
|
blob
|
history
diff --git
a/ghc/interpreter/output.c
b/ghc/interpreter/output.c
index
9c7cf65
..
af88c66
100644
(file)
--- a/
ghc/interpreter/output.c
+++ b/
ghc/interpreter/output.c
@@
-10,8
+10,8
@@
* included in the distribution.
*
* $RCSfile: output.c,v $
* included in the distribution.
*
* $RCSfile: output.c,v $
- * $Revision: 1.9 $
- * $Date: 1999/10/28 22:37:27 $
+ * $Revision: 1.10 $
+ * $Date: 1999/11/09 00:41:19 $
* ------------------------------------------------------------------------*/
#include "prelude.h"
* ------------------------------------------------------------------------*/
#include "prelude.h"
@@
-51,6
+51,7
@@
static Void local putApType Args((Type,Int,Int));
static Void local putKind Args((Kind));
static Void local putKinds Args((Kinds));
static Void local putKind Args((Kind));
static Void local putKinds Args((Kinds));
+
/* --------------------------------------------------------------------------
* Basic output routines:
* ------------------------------------------------------------------------*/
/* --------------------------------------------------------------------------
* Basic output routines:
* ------------------------------------------------------------------------*/
@@
-920,6
+921,12
@@
Kinds ks; {
* Main drivers:
* ------------------------------------------------------------------------*/
* Main drivers:
* ------------------------------------------------------------------------*/
+extern FILE *mystdout Args((Void));
+FILE *mystdout() {
+ /* We use this from the gdb command line when debugging */
+ return stdout;
+}
+
Void printExp(fp,e) /* print expr on specified stream */
FILE *fp;
Cell e; {
Void printExp(fp,e) /* print expr on specified stream */
FILE *fp;
Cell e; {