Commits (1)
; ;
; This file is automatically maintained by srccommit, do not edit manually. ; This file is automatically maintained by srccommit, do not edit manually.
; Last processed by srccommit version: 1.1.
; ;
GBLS Module_MajorVersion GBLS Module_MajorVersion
GBLA Module_Version GBLA Module_Version
...@@ -10,14 +9,12 @@ ...@@ -10,14 +9,12 @@
GBLS Module_ApplicationDate GBLS Module_ApplicationDate
GBLS Module_HelpVersion GBLS Module_HelpVersion
GBLS Module_ComponentName GBLS Module_ComponentName
GBLS Module_ComponentPath Module_MajorVersion SETS "1.25"
Module_MajorVersion SETS "1.24" Module_Version SETA 125
Module_Version SETA 124
Module_MinorVersion SETS "" Module_MinorVersion SETS ""
Module_Date SETS "26 Sep 2014" Module_Date SETS "28 Jun 2019"
Module_ApplicationDate SETS "26-Sep-14" Module_ApplicationDate SETS "28-Jun-19"
Module_ComponentName SETS "FSLock" Module_ComponentName SETS "FSLock"
Module_ComponentPath SETS "castle/RiscOS/Sources/FileSys/FSLock" Module_FullVersion SETS "1.25"
Module_FullVersion SETS "1.24" Module_HelpVersion SETS "1.25 (28 Jun 2019)"
Module_HelpVersion SETS "1.24 (26 Sep 2014)"
END END
/* (1.24) /* (1.25)
* *
* This file is automatically maintained by srccommit, do not edit manually. * This file is automatically maintained by srccommit, do not edit manually.
* Last processed by srccommit version: 1.1.
* *
*/ */
#define Module_MajorVersion_CMHG 1.24 #define Module_MajorVersion_CMHG 1.25
#define Module_MinorVersion_CMHG #define Module_MinorVersion_CMHG
#define Module_Date_CMHG 26 Sep 2014 #define Module_Date_CMHG 28 Jun 2019
#define Module_MajorVersion "1.24" #define Module_MajorVersion "1.25"
#define Module_Version 124 #define Module_Version 125
#define Module_MinorVersion "" #define Module_MinorVersion ""
#define Module_Date "26 Sep 2014" #define Module_Date "28 Jun 2019"
#define Module_ApplicationDate "26-Sep-14" #define Module_ApplicationDate "28-Jun-19"
#define Module_ComponentName "FSLock" #define Module_ComponentName "FSLock"
#define Module_ComponentPath "castle/RiscOS/Sources/FileSys/FSLock"
#define Module_FullVersion "1.24" #define Module_FullVersion "1.25"
#define Module_HelpVersion "1.24 (26 Sep 2014)" #define Module_HelpVersion "1.25 (28 Jun 2019)"
#define Module_LibraryVersionInfo "1:24" #define Module_LibraryVersionInfo "1:25"
...@@ -128,7 +128,8 @@ FSLock_Init ...@@ -128,7 +128,8 @@ FSLock_Init
Push "LR" Push "LR"
LDR R0, [R12] ; R0 -> Private word LDR R0, [R12] ; R0 -> Private word
CMP R0, #0 ; Non fatal init? CMP R0, #0 ; Non fatal init?
BNE init_claim ; If so, just claim filing system MOVNE R12, R0 ; If so, put to R12
BNE init_claim ; Then just claim filing system
MOV R3, #:INDEX:Wsp_Size MOV R3, #:INDEX:Wsp_Size
MOV R0, #ModHandReason_Claim MOV R0, #ModHandReason_Claim
SWI XOS_Module SWI XOS_Module
...@@ -1007,7 +1008,7 @@ CallbackCode ...@@ -1007,7 +1008,7 @@ CallbackCode
SWI XOS_FSControl SWI XOS_FSControl
CMP R2, #0 ; Is our special FS there? CMP R2, #0 ; Is our special FS there?
BLNE insert_foot_in_door ; If so, redirect the FSBlock! BLNE insert_foot_in_door ; If so, redirect the FSBlock!
Pull "R0-R4,LR" Pull "R0-R4,PC"
Our_FS_Open Our_FS_Open
Push "R0,R1,LR" Push "R0,R1,LR"
......