foreach @puts;
# Write end-of-archive marker.
- print { $disks{SCRATCH}{HANDLE} } "\0" x 1024;
+ write_fully ($disks{SCRATCH}{HANDLE}, $disks{SCRATCH}{FILE_NAME},
+ "\0" x 1024);
}
# Make sure the scratch disk is big enough to get big files.
megs: $mem
log: bochsout.txt
panic: action=fatal
+user_shortcut: keys=ctrlaltdel
EOF
print BOCHSRC "gdbstub: enabled=1\n" if $debug eq 'gdb';
if ($realtime) {