From 4245764b310571d5b754643632150681ab46e231 Mon Sep 17 00:00:00 2001 From: Nick Briggs Date: Sun, 23 Jul 2023 18:55:31 -0700 Subject: [PATCH] Turn on DTD checking and differentiate error messages. --- bin/makefile-darwin.aarch64-x | 2 +- bin/makefile-darwin.x86_64-x | 2 +- src/mkcell.c | 8 ++++---- 3 files changed, 6 insertions(+), 6 deletions(-) diff --git a/bin/makefile-darwin.aarch64-x b/bin/makefile-darwin.aarch64-x index f603009..e481635 100644 --- a/bin/makefile-darwin.aarch64-x +++ b/bin/makefile-darwin.aarch64-x @@ -17,7 +17,7 @@ XFLAGS = -I/opt/X11/include -DXWINDOW # OPTFLAGS is normally -O2. OPTFLAGS = -g -O2 -DEBUGFLAGS = -DARRAYCHECK # -DDEBUG -DOPTRACE +DEBUGFLAGS = -DARRAYCHECK -DDTDDEBUG # -DDEBUG -DOPTRACE DFLAGS = $(DEBUGFLAGS) $(XFLAGS) -DRELEASE=351 LDFLAGS = -L/opt/X11/lib -lX11 -lm diff --git a/bin/makefile-darwin.x86_64-x b/bin/makefile-darwin.x86_64-x index ae0609d..0604653 100644 --- a/bin/makefile-darwin.x86_64-x +++ b/bin/makefile-darwin.x86_64-x @@ -17,7 +17,7 @@ XFLAGS = -I/opt/X11/include -DXWINDOW # OPTFLAGS is normally -O2. OPTFLAGS = -O1 -g -DEBUGFLAGS = -DARRAYCHECK # -DDEBUG -DOPTRACE +DEBUGFLAGS = -DARRAYCHECK -DDTDDEBUG # -DDEBUG -DOPTRACE DFLAGS = $(DEBUGFLAGS) $(XFLAGS) -DRELEASE=351 LDFLAGS = -L/opt/X11/lib -lX11 -lm diff --git a/src/mkcell.c b/src/mkcell.c index f7d4896..fa4c3c3 100644 --- a/src/mkcell.c +++ b/src/mkcell.c @@ -72,7 +72,7 @@ retry: if (917505 == *(LispPTR *)ptr) error("N_OP_createcell E0001 error"); /* replace dtd_free with newcell's top DLword (it may keep next chain)*/ dtd68k->dtd_free = (*((LispPTR *)ptr)) & POINTERMASK; - if (dtd68k->dtd_free & 0x8000001) error("bad entry on free chain."); + if (dtd68k->dtd_free & 0x8000001) error("bad entry on free chain(1)."); dtd68k->dtd_oldcnt++; @@ -84,7 +84,7 @@ retry: return (tos); } else { dtd68k->dtd_free = initmdspage(alloc_mdspage(dtd68k->dtd_typeentry), dtd68k->dtd_size, NIL); - if (dtd68k->dtd_free & 0x8000000) error("bad entry on free chain."); + if (dtd68k->dtd_free & 0x8000000) error("bad entry on free chain(2)."); goto retry; } @@ -119,7 +119,7 @@ retry: /* replace dtd_free with newcell's top DLword (it may keep next chain)*/ dtd68k->dtd_free = (*((LispPTR *)ptr)) & POINTERMASK; - if (dtd68k->dtd_free & 0x8000000) error("bad entry on free chain."); + if (dtd68k->dtd_free & 0x8000000) error("bad entry on free chain(3)."); #ifdef DTDDEBUG if ((dtd68k->dtd_free != 0) && (type != GetTypeNumber(dtd68k->dtd_free))) @@ -144,7 +144,7 @@ retry: } else { dtd68k->dtd_free = initmdspage(alloc_mdspage(dtd68k->dtd_typeentry), dtd68k->dtd_size, NIL); - if (dtd68k->dtd_free & 0x8000000) error("bad entry on free chain."); + if (dtd68k->dtd_free & 0x8000000) error("bad entry on free chain(4)."); #ifdef DTDDEBUG check_dtd_chain(type);