From c087edf854a1c4b6c47ca69a2118754726b7c8cd Mon Sep 17 00:00:00 2001
From: "B. Watson" <urchlay@slackware.uk>
Date: Sun, 9 Mar 2025 16:07:38 -0400
Subject: listbas: -D, warn if the input didn't look crunched.

---
 listamsb.c | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'listamsb.c')

diff --git a/listamsb.c b/listamsb.c
index 066b80c..a3614c6 100644
--- a/listamsb.c
+++ b/listamsb.c
@@ -671,6 +671,8 @@ int decrunch_line(void) {
 		byte = read_prog_byte();
 
 		if(byte != 0) {
+			if(byte == ' ' || is_comment_start(byte)) spacecount++;
+
 			if(in_string) {
 				if(byte == '|')
 					in_string = 0;
@@ -754,6 +756,9 @@ void crunch_program(void) {
 			newproglen,
 			percent < 0 ? -percent : percent,
 			percent < 0 ? "larger" : "smaller");
+
+	if(decrunch && spacecount)
+		warn("%d spaces/comments, are you sure it was crunched?", spacecount);
 }
 
 void print_help(void) {
-- 
cgit v1.2.3