1994-06-24 11:31:16 +00:00
|
|
|
/* $Id$ */
|
1987-03-09 19:15:41 +00:00
|
|
|
/*
|
|
|
|
* (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|
|
|
* See the copyright notice in the ACK home directory, in the file "Copyright".
|
|
|
|
*/
|
1984-11-26 15:04:22 +00:00
|
|
|
/* D E B U G G I N G T O O L S */
|
|
|
|
|
|
|
|
/* TEMPORARY: */
|
1988-09-02 13:55:54 +00:00
|
|
|
/* #define DEBUG */
|
1984-11-26 15:04:22 +00:00
|
|
|
|
|
|
|
extern int linecount; /* # lines in this file */
|
|
|
|
extern bool verbose_flag; /* generate verbose output ? */
|
|
|
|
|
|
|
|
/* VARARGS 1 */
|
2017-11-15 21:29:27 +00:00
|
|
|
void error(const char *, ...);
|
1984-11-26 15:04:22 +00:00
|
|
|
|
|
|
|
|
|
|
|
#ifdef TRACE
|
2017-11-15 21:29:27 +00:00
|
|
|
void OUTTRACE(const char *, int);
|
1984-11-26 15:04:22 +00:00
|
|
|
#else
|
|
|
|
#define OUTTRACE(s,n)
|
|
|
|
#endif
|
|
|
|
#ifdef VERBOSE
|
2017-11-15 21:29:27 +00:00
|
|
|
void OUTVERBOSE(const char *, int, int);
|
1984-11-26 15:04:22 +00:00
|
|
|
#else
|
|
|
|
#define OUTVERBOSE(s,n1,n2)
|
|
|
|
#endif
|
|
|
|
#ifdef DEBUG
|
|
|
|
|
|
|
|
/* Some (all?) Unix debuggers don't particularly like
|
|
|
|
* static procedures and variables. Therefor we make everything
|
|
|
|
* global when debugging.
|
|
|
|
*/
|
|
|
|
|
|
|
|
#define STATIC
|
|
|
|
|
2017-11-15 21:29:27 +00:00
|
|
|
void VI(short);
|
|
|
|
void VL(line_p);
|
|
|
|
void VD(dblock_p);
|
|
|
|
void VA(short *);
|
|
|
|
void VO(obj_p);
|
|
|
|
void VP(proc_p);
|
1984-11-26 15:04:22 +00:00
|
|
|
|
|
|
|
#else /*DEBUG*/
|
|
|
|
|
2017-11-16 00:48:53 +00:00
|
|
|
#define STATIC static
|
|
|
|
#define NDEBUG /* disable assert() */
|
1984-11-26 15:04:22 +00:00
|
|
|
|
|
|
|
#define VI(i)
|
|
|
|
#define VL(l)
|
|
|
|
#define VD(d)
|
|
|
|
#define VA(a)
|
|
|
|
#define VO(o)
|
|
|
|
#define VP(p)
|
|
|
|
|
|
|
|
#endif
|
2017-11-16 00:48:53 +00:00
|
|
|
|
|
|
|
#include <assert.h>
|