Commit afacc1f9 authored by Ben Avison's avatar Ben Avison Committed by ROOL
Browse files

Correctly detect errors returned from Service_EnumerateFormats

SWI OS_ServiceCall has never propagated the PSR flags from callees back to
the caller, so testing the V flag is the wrong way to detect failures. Check
whether the service call has been claimed instead, since that is documented
as being part of the process of a callee returning an error.

Version 1.14. Tagged as 'ADFSFiler-1_14'
parent 30d277db
......@@ -9,12 +9,12 @@
GBLS Module_ApplicationDate
GBLS Module_HelpVersion
GBLS Module_ComponentName
Module_MajorVersion SETS "1.13"
Module_Version SETA 113
Module_MajorVersion SETS "1.14"
Module_Version SETA 114
Module_MinorVersion SETS ""
Module_Date SETS "22 Aug 2019"
Module_ApplicationDate SETS "22-Aug-19"
Module_Date SETS "25 Aug 2019"
Module_ApplicationDate SETS "25-Aug-19"
Module_ComponentName SETS "ADFSFiler"
Module_FullVersion SETS "1.13"
Module_HelpVersion SETS "1.13 (22 Aug 2019)"
Module_FullVersion SETS "1.14"
Module_HelpVersion SETS "1.14 (25 Aug 2019)"
END
/* (1.13)
/* (1.14)
*
* This file is automatically maintained by srccommit, do not edit manually.
*
*/
#define Module_MajorVersion_CMHG 1.13
#define Module_MajorVersion_CMHG 1.14
#define Module_MinorVersion_CMHG
#define Module_Date_CMHG 22 Aug 2019
#define Module_Date_CMHG 25 Aug 2019
#define Module_MajorVersion "1.13"
#define Module_Version 113
#define Module_MajorVersion "1.14"
#define Module_Version 114
#define Module_MinorVersion ""
#define Module_Date "22 Aug 2019"
#define Module_Date "25 Aug 2019"
#define Module_ApplicationDate "22-Aug-19"
#define Module_ApplicationDate "25-Aug-19"
#define Module_ComponentName "ADFSFiler"
#define Module_FullVersion "1.13"
#define Module_HelpVersion "1.13 (22 Aug 2019)"
#define Module_LibraryVersionInfo "1:13"
#define Module_FullVersion "1.14"
#define Module_HelpVersion "1.14 (25 Aug 2019)"
#define Module_LibraryVersionInfo "1:14"
......@@ -3871,7 +3871,8 @@ BuildFormatMenu ROUT
MOV r1,#Service_EnumerateFormats
MOV r2,#0
SWI XOS_ServiceCall
BVS BuildError
TEQ r1,#Service_Serviced
BEQ BuildError
STR R2,FormatList
......
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