Commit b4b0f3c5 authored by John Ballance's avatar John Ballance
Browse files

Ensure R4 valid according to API in UpCall_FileClosed

Detail:
  s.FSystem
 line 1515 moved to approx 1460.. where file_InternalHandle is still valid
Admin:
 Tested in ROM at Castle


Version 0.67. Tagged as 'DeviceFS-0_67'
parent 3e086ace
......@@ -11,13 +11,13 @@
GBLS Module_HelpVersion
GBLS Module_ComponentName
GBLS Module_ComponentPath
Module_MajorVersion SETS "0.66"
Module_Version SETA 66
Module_MajorVersion SETS "0.67"
Module_Version SETA 67
Module_MinorVersion SETS ""
Module_Date SETS "20 Jun 2004"
Module_ApplicationDate SETS "20-Jun-04"
Module_Date SETS "12 Aug 2004"
Module_ApplicationDate SETS "12-Aug-04"
Module_ComponentName SETS "DeviceFS"
Module_ComponentPath SETS "RiscOS/Sources/HWSupport/DeviceFS"
Module_FullVersion SETS "0.66"
Module_HelpVersion SETS "0.66 (20 Jun 2004)"
Module_FullVersion SETS "0.67"
Module_HelpVersion SETS "0.67 (12 Aug 2004)"
END
/* (0.66)
/* (0.67)
*
* This file is automatically maintained by srccommit, do not edit manually.
* Last processed by srccommit version: 1.68.
*
*/
#define Module_MajorVersion_CMHG 0.66
#define Module_MajorVersion_CMHG 0.67
#define Module_MinorVersion_CMHG
#define Module_Date_CMHG 20 Jun 2004
#define Module_Date_CMHG 12 Aug 2004
#define Module_MajorVersion "0.66"
#define Module_Version 66
#define Module_MajorVersion "0.67"
#define Module_Version 67
#define Module_MinorVersion ""
#define Module_Date "20 Jun 2004"
#define Module_Date "12 Aug 2004"
#define Module_ApplicationDate "20-Jun-04"
#define Module_ApplicationDate "12-Aug-04"
#define Module_ComponentName "DeviceFS"
#define Module_ComponentPath "RiscOS/Sources/HWSupport/DeviceFS"
#define Module_FullVersion "0.66"
#define Module_HelpVersion "0.66 (20 Jun 2004)"
#define Module_LibraryVersionInfo "0:66"
#define Module_FullVersion "0.67"
#define Module_HelpVersion "0.67 (12 Aug 2004)"
#define Module_LibraryVersionInfo "0:67"
......@@ -1472,6 +1472,7 @@ removefileblock Entry "r0-r5, dr, pr" ; attempt to zap
Debug close,"device call succeeded"
LDR r4, [fr, #file_InternalHandle]
MOV r0, #0
STR r0, [fr, #file_InternalHandle] ; indicate we've successfully closed stream
10
......@@ -1526,7 +1527,6 @@ removefileblock Entry "r0-r5, dr, pr" ; attempt to zap
MOV r0, #UpCall_StreamClosed
MOV r1, pr ; -> parent record
LDR r3, [fr, #file_FSwitchHandle]
LDR r4, [fr, #file_InternalHandle]
SWI XOS_UpCall ; broadcast to the UpCallV
Debug close,"broadcast UpCall_StreamClosed"
......
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