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

Fix errors preventing the use of -DDTDDEBUG for mkcell.c (#389)

Browse Source
This commit is contained in:
Nick Briggs
2021-08-11 11:37:15 -07:00
committed by GitHub
parent c33386ef44
commit 6cad51735f
3 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
inc/testtooldefs.h
View File

@@ -33,6 +33,7 @@ LispPTR *MakeAtom68k(char *string);
void GETTOPVAL(char *string);
void all_stack_dump(DLword start, DLword end, DLword silent);
void dtd_chain(DLword type);
void check_dtd_chain(DLword type);
void Trace_FNCall(int numargs, int atomindex, int arg1, LispPTR *tos);
void Trace_APPLY(int atomindex);
#endif

3
src/mkcell.c
View File

@@ -41,6 +41,9 @@
#include "allocmdsdefs.h"
#include "commondefs.h"
#include "gchtfinddefs.h"
#ifdef DTDDEBUG
#include "testtooldefs.h"
#endif
static LispPTR oldoldfree;
static LispPTR oldfree;

4
src/testtool.c
View File

@@ -1241,8 +1241,6 @@ void dtd_chain(DLword type) {
} /* dtd_chain end **/
#ifdef DTDDEBUG
void check_dtd_chain(DLword type)
{
register LispPTR next, onext;
@@ -1270,8 +1268,6 @@ void check_dtd_chain(DLword type)
}
}
#endif
/************************************************************************/
/* */
/* T R A C E _ F N C A L L */