Commit 0d4adcb4 authored by andy's avatar andy
Browse files

[project @ 1999-11-09 00:41:19 by andy]

Debugging wibble.
parent 1e440dbc
......@@ -10,8 +10,8 @@
* 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"
......@@ -51,6 +51,7 @@ static Void local putApType Args((Type,Int,Int));
static Void local putKind Args((Kind));
static Void local putKinds Args((Kinds));
/* --------------------------------------------------------------------------
* Basic output routines:
* ------------------------------------------------------------------------*/
......@@ -920,6 +921,12 @@ Kinds ks; {
* 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; {
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment