folkert/simh-testsetgenerator
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

TAPE: Avoid redundant records when creating ANSI binary fixed tape files

Browse source 
As reported by Larry Baker
This commit is contained in:
Mark Pizzolato 2021-09-28 14:29:38 -07:00
parent 7bb96070f1
commit fc0ce0f5fb
1 changed files with 1 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
sim_tape.c
View file

@ -804,8 +804,6 @@ switch (MT_GET_FMT (uptr)) {
error = TRUE; error = TRUE;
} }
} }
if (data_read > 0)
error = memory_tape_add_block (tape, block, tape->block_size);
} }
} }
else { /* text file */ else { /* text file */
@ -4205,7 +4203,7 @@ static struct classify_test {
"51251251251251251251251251251251251251251251251251251251251251255125125125125125" "51251251251251251251251251251251251251251251251251251251251251255125125125125125"
"12512512512512512512512512512512512512512512512551251251251251251251251251251251" "12512512512512512512512512512512512512512512512551251251251251251251251251251251"
"2512512512512512512512512512~~~~\r\n", "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", {"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"
"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",