- bug с выходом из приложения, не закрывался файловый манипулятор.

This commit is contained in:
Anatoliy Belyanskiy 2023-10-25 01:38:14 +10:00
parent fb6c8a2caf
commit 1aa15566bf
4 changed files with 14 additions and 6 deletions

View File

@ -2097,7 +2097,6 @@ DIR_PATH_CHECK: LD A,(HL)
; ;
.forceCheck: LD HL,CurrentDirectory+1 .forceCheck: LD HL,CurrentDirectory+1
LD BC,CurrentDirectory.DEPTH-1 LD BC,CurrentDirectory.DEPTH-1
;CALL FINDDIR.CHECK_SLASH
CALL .checkDrive CALL .checkDrive
JR Z,.checkDir JR Z,.checkDir
; ;
@ -2105,7 +2104,7 @@ DIR_PATH_CHECK: LD A,(HL)
LD A,(FatBuffer.DRIVE) LD A,(FatBuffer.DRIVE)
ADD 'A' ADD 'A'
CP (HL) CP (HL)
JP NZ,.gotoPath JR NZ,.gotoPath
; ;
.checkDir: LD HL,CurrentDirectory+1 .checkDir: LD HL,CurrentDirectory+1
LD DE,WorkDirectory+1 LD DE,WorkDirectory+1
@ -2122,7 +2121,7 @@ DIR_PATH_CHECK: LD A,(HL)
.end: CP (HL) .end: CP (HL)
RET Z RET Z
.ReDir: LD HL,CurrentPath .ReDir: LD HL,CurrentPath
JP .gotoPath JR .gotoPath
; ;
.checkDrive: LD HL,CurrentPath .checkDrive: LD HL,CurrentPath
LD A,(FatBuffer.DRIVE) LD A,(FatBuffer.DRIVE)

View File

@ -1046,6 +1046,10 @@ _TST_PROC:
IN A,(SLOT1) IN A,(SLOT1)
PUSH DE PUSH DE
PUSH AF PUSH AF
;!Test close EXE FM [x] 25/10/23
LD A,(EXE_FM)
PUSH AF
;
LD (EXSTACK),SP LD (EXSTACK),SP
LD SP,HL LD SP,HL
EXX EXX
@ -1154,8 +1158,13 @@ _TST_PROC_2:
LEAVE: LD A,B LEAVE: LD A,B
LD (ERLEVEL),A LD (ERLEVEL),A
CALL LEAVMEM CALL LEAVMEM
CALL DECTASK ;CALL DECTASK ;!Test close EXE FM [x] 25/10/23
LD SP,(EXSTACK) LD SP,(EXSTACK)
;!Test close EXE FM [x] 25/10/23
POP AF
CALL RES_FM
CALL DECTASK
;
POP AF POP AF
POP HL POP HL
OUT (SLOT1),A OUT (SLOT1),A

View File

@ -1 +1 @@
496 499

@ -1 +1 @@
Subproject commit 12ce1947adb0a8d902cd6d89042fe23cb9a33c21 Subproject commit 9319bb78d96af2573dd54d8d2f422f2f134b5653