Commit 74902d1e authored by Robert Sprowson's avatar Robert Sprowson

Build fix

Module_Title->Module_TitleStr from Kernel-5_54.

Version 3.70. Tagged as 'FileCore-3_70'
parent 9b4c1ccf
......@@ -11,13 +11,13 @@
GBLS Module_HelpVersion
GBLS Module_ComponentName
GBLS Module_ComponentPath
Module_MajorVersion SETS "3.69"
Module_Version SETA 369
Module_MajorVersion SETS "3.70"
Module_Version SETA 370
Module_MinorVersion SETS ""
Module_Date SETS "08 May 2016"
Module_ApplicationDate SETS "08-May-16"
Module_Date SETS "24 Jul 2016"
Module_ApplicationDate SETS "24-Jul-16"
Module_ComponentName SETS "FileCore"
Module_ComponentPath SETS "castle/RiscOS/Sources/FileSys/FileCore"
Module_FullVersion SETS "3.69"
Module_HelpVersion SETS "3.69 (08 May 2016)"
Module_FullVersion SETS "3.70"
Module_HelpVersion SETS "3.70 (24 Jul 2016)"
END
/* (3.69)
/* (3.70)
*
* This file is automatically maintained by srccommit, do not edit manually.
* Last processed by srccommit version: 1.1.
*
*/
#define Module_MajorVersion_CMHG 3.69
#define Module_MajorVersion_CMHG 3.70
#define Module_MinorVersion_CMHG
#define Module_Date_CMHG 08 May 2016
#define Module_Date_CMHG 24 Jul 2016
#define Module_MajorVersion "3.69"
#define Module_Version 369
#define Module_MajorVersion "3.70"
#define Module_Version 370
#define Module_MinorVersion ""
#define Module_Date "08 May 2016"
#define Module_Date "24 Jul 2016"
#define Module_ApplicationDate "08-May-16"
#define Module_ApplicationDate "24-Jul-16"
#define Module_ComponentName "FileCore"
#define Module_ComponentPath "castle/RiscOS/Sources/FileSys/FileCore"
#define Module_FullVersion "3.69"
#define Module_HelpVersion "3.69 (08 May 2016)"
#define Module_LibraryVersionInfo "3:69"
#define Module_FullVersion "3.70"
#define Module_HelpVersion "3.70 (24 Jul 2016)"
#define Module_LibraryVersionInfo "3:70"
......@@ -491,7 +491,7 @@ Sink
MOV R0, #FSControl_StartApplication ; Start parent module up as application
baddr R1, anull ; command tail
LDR R2, ParentBase ; CAO pointer
LDR R3, [R2, #Module_Title] ; command name
LDR R3, [R2, #Module_TitleStr] ; command name
BL OnlyXOS_FSControl
MOV R1, #AppSpaceStart
BIC R4, R4, #1 :SHL: UseApplicArea
......
......@@ -635,7 +635,7 @@ DieEntry
; Delete the parent of this incarnation (eg ADFS)
LDR R1, ParentBase
LDR R0, [R1,#Module_Title]
LDR R0, [R1,#Module_TitleStr]
ADD R1, R1, R0
MOV R0, #ModHandReason_Delete
SWI XOS_Module
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment