From fc0ce0f5fb489c1a846fdec1b6a96ebbb10f7f89 Mon Sep 17 00:00:00 2001
From: Mark Pizzolato <mark@infocomm.com>
Date: Tue, 28 Sep 2021 14:29:38 -0700
Subject: [PATCH] TAPE: Avoid redundant records when creating ANSI binary fixed
tape files
As reported by Larry Baker
---
sim_tape.c | 4 +---
1 file changed, 1 insertion(+), 3 deletions(-)
diff --git a/sim_tape.c b/sim_tape.c
index 73a7e0a3..a238d539 100644
--- a/sim_tape.c
+++ b/sim_tape.c
@@ -804,8 +804,6 @@ switch (MT_GET_FMT (uptr)) {
error = TRUE;
}
}
- if (data_read > 0)
- error = memory_tape_add_block (tape, block, tape->block_size);
}
}
else { /* text file */
@@ -4205,7 +4203,7 @@ static struct classify_test {
"51251251251251251251251251251251251251251251251251251251251251255125125125125125"
"12512512512512512512512512512512512512512512512551251251251251251251251251251251"
"2512512512512512512512512512~~~~\r\n",
- 512, FALSE, TRUE, "-fb FIXED 516", "-fb ANSI-VMS 512"},
+ 512, FALSE, TRUE, "-fb FIXED 512", "-fb ANSI-VMS 512"},
{"TapeTest-Classify-82.bin",
"Now is the time for all good men to come to the aid of their country.\001\002~~~~~~~~~\r\n"
"Now is the time for all good men to come to the aid of their country.\001\002~~~~~~~~~\r\n",