1
0
mirror of https://github.com/cc65/cc65.git synced 2024-07-05 06:28:57 +00:00

Patch by groepaz to fix the problem that DEL files would appear as type DIR.

git-svn-id: svn://svn.cc65.org/cc65/trunk@4983 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
uz 2011-04-07 20:58:03 +00:00
parent d78e52fd40
commit c7528d6e3e

View File

@ -13,7 +13,7 @@
unsigned char __fastcall__ cbm_opendir (unsigned char lfn, unsigned char device)
unsigned char __fastcall__ cbm_opendir (unsigned char lfn, unsigned char device)
{
unsigned char status;
if ((status = cbm_open (lfn, device, CBM_READ, "$")) == 0) {
@ -42,7 +42,7 @@ unsigned char __fastcall__ cbm_readdir (unsigned char lfn, register struct cbm_d
unsigned char rv;
unsigned char is_header;
static const unsigned char types[] = {
CBM_T_OTHER, CBM_T_OTHER, CBM_T_CBM, CBM_T_DIR, /* a b c d */
CBM_T_OTHER, CBM_T_OTHER, CBM_T_CBM, CBM_T_DEL, /* a b c d */
CBM_T_OTHER, CBM_T_OTHER, CBM_T_OTHER, CBM_T_OTHER, /* e f g h */
CBM_T_OTHER, CBM_T_OTHER, CBM_T_OTHER, CBM_T_OTHER, /* i j k l */
CBM_T_OTHER, CBM_T_OTHER, CBM_T_OTHER, CBM_T_PRG, /* m n o p */
@ -120,7 +120,9 @@ unsigned char __fastcall__ cbm_readdir (unsigned char lfn, register struct cbm_d
l_dirent->type = CBM_T_OTHER;
}
cbm_k_basin();
if ((cbm_k_basin() == 'i') && (l_dirent->type == CBM_T_DEL)) {
l_dirent->type = CBM_T_DIR;
}
cbm_k_basin();
byte = cbm_k_basin();