Write "long zero" b-string for END record padding in mkoasis.tcl

0x80 ... 0x80 0x00 instead of 0x00 ... 0x00 0x00 which wasn't a valid b-string
2026-09-07 11:31:08 +02:00 · 2021-08-10 22:43:24 -07:00
parent a22ee41414
commit 9c59ad7902
58 changed files with 4 additions and 1 deletions
@@ -167,7 +167,10 @@ proc header { } {
 proc tail {} {
  global output
  record END
-  puts -nonewline $output [ binary format {x255} ]
+  # 254-byte padding string (uint 0 written as 0x80 0x80 ... 0x80 0x00)
+  for { set i 0 } { $i < 253 } { incr i } { byte 128 }
+  byte 0;
+  uint 0;   # Validation scheme: No validation
 }