github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-02-22 15:17:49 +00:00
Code Issues Projects Releases Wiki Activity

Add extern declaration for "flushing", a flag to enable/disable calls to fflush(stdout)

Browse Source 
after each call to printf() in the debug/tracing code.  Too frequent calls slow things down.

	modified:   inc/dbprint.h
	modified:   src/main.c
This commit is contained in:
Nick Briggs
2017-06-14 17:53:13 -07:00
parent 467d33d913
commit ef3fbc29fc
2 changed files with 11 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
inc/dbprint.h
View File

@@ -38,8 +38,12 @@
/* For debugging print statements */
#if defined(DEBUG) || defined(TRACE) || defined(OPTRACE) || defined(FNTRACE) || defined(FNSTKCHECK)
extern int flushing;
#endif
#ifdef DEBUG
#define DBPRINT(X) printf X; fflush(stdout)
#define DBPRINT(X) printf X ; if (flushing) fflush(stdout);
#define DEBUGGER(X) X;
#else
#define DBPRINT(X)
@@ -50,7 +54,7 @@
/* For trace print statements */
#ifdef TRACE
#define TPRINT(X) printf X; fflush(stdout);
#define TPRINT(X) printf X; if (flushing) fflush(stdout);
#define TRACER(X) X;
#else /* TRACE */
@@ -63,7 +67,7 @@
/* For tracing individual opcode executions */
#ifdef OPTRACE
#define OPTPRINT(X) printf X; fflush(stdout);
#define OPTPRINT(X) printf X; if (flushing) fflush(stdout);
#define OPTRACER(X) X;
#else
#define OPTPRINT(X)
@@ -74,7 +78,7 @@
/* For tracing function calls */
#ifdef FNTRACE
#define FNTPRINT(X) printf X; fflush(stdout);
#define FNTPRINT(X) printf X; if (flushing) fflush(stdout);
#define FNTRACER(X) X;
#else
#define FNTPRINT(X)
@@ -85,7 +89,7 @@
/* For function-call & return stack checking */
#ifdef FNSTKCHECK
#define FNCHKPRINT(X) printf X; fflush(stdout);
#define FNCHKPRINT(X) printf X ; if (flushing) fflush(stdout);
#define FNCHECKER(X) X;
#else
#define FNCHKPRINT(X)