mirror of
https://github.com/cc65/cc65.git
synced 2024-12-24 11:31:31 +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:
parent
d78e52fd40
commit
c7528d6e3e
@ -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;
|
unsigned char status;
|
||||||
if ((status = cbm_open (lfn, device, CBM_READ, "$")) == 0) {
|
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 rv;
|
||||||
unsigned char is_header;
|
unsigned char is_header;
|
||||||
static const unsigned char types[] = {
|
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, /* 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_OTHER, /* i j k l */
|
||||||
CBM_T_OTHER, CBM_T_OTHER, CBM_T_OTHER, CBM_T_PRG, /* m n o p */
|
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;
|
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();
|
cbm_k_basin();
|
||||||
|
|
||||||
byte = cbm_k_basin();
|
byte = cbm_k_basin();
|
||||||
|
Loading…
Reference in New Issue
Block a user