Apple-2-Tools
/
ProDOS-perl
mirror of https://github.com/softwarejanitor/ProDOS.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Bug fixes

This commit is contained in:
Leeland Heins 2019-03-08 08:40:50 -06:00 committed by GitHub
parent 5a7db6cf61
commit bf0a2d28d8
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ProDOS.pm
View File

@ -1871,6 +1871,9 @@ sub write_file {
return 0;
}
# Fix FILE_COUNT in directory.
##FIXME
$dirbuf = pack "C*", @bytes;
dump_blk($dirbuf) if $debug;
@ -2060,6 +2063,9 @@ sub delete_file {
$bytes[0x2b + ($i * 0x27)] = 0x00;
printf("file_storage_type=\$%02x\n", $file_storage_type);
# Fix file directory count.
##FIXME
# Now free all the blocks
if ($file_storage_type == 0x10) {
# Seedling file.