Commit 549666f4 authored by ROOL's avatar ROOL 🤖

Fix to sort dirs correctly when no territory is loaded

Detail:
  FileCore is defined as a case insensitive FS (ie. MyFile can't coexist in the same directory as mYfILE).
  Prior to a territory being selected the BigDir binary chop sort would (via the Internat_UpperCase macro) abandon a directory search once it mismatched, and so would never find !Territory in order to select the territory in the first place.
  Have Internat_UpperCase use ASCII uppercase until that time.
Admin:
  Based on a submission from Colin Granville, with modifications.

Version 3.73. Tagged as 'FileCore-3_73'
parent 9361961f
......@@ -11,13 +11,13 @@
GBLS Module_HelpVersion
GBLS Module_ComponentName
GBLS Module_ComponentPath
Module_MajorVersion SETS "3.72"
Module_Version SETA 372
Module_MajorVersion SETS "3.73"
Module_Version SETA 373
Module_MinorVersion SETS ""
Module_Date SETS "09 Apr 2017"
Module_ApplicationDate SETS "09-Apr-17"
Module_Date SETS "29 Apr 2017"
Module_ApplicationDate SETS "29-Apr-17"
Module_ComponentName SETS "FileCore"
Module_ComponentPath SETS "castle/RiscOS/Sources/FileSys/FileCore"
Module_FullVersion SETS "3.72"
Module_HelpVersion SETS "3.72 (09 Apr 2017)"
Module_FullVersion SETS "3.73"
Module_HelpVersion SETS "3.73 (29 Apr 2017)"
END
/* (3.72)
/* (3.73)
*
* This file is automatically maintained by srccommit, do not edit manually.
* Last processed by srccommit version: 1.1.
*
*/
#define Module_MajorVersion_CMHG 3.72
#define Module_MajorVersion_CMHG 3.73
#define Module_MinorVersion_CMHG
#define Module_Date_CMHG 09 Apr 2017
#define Module_Date_CMHG 29 Apr 2017
#define Module_MajorVersion "3.72"
#define Module_Version 372
#define Module_MajorVersion "3.73"
#define Module_Version 373
#define Module_MinorVersion ""
#define Module_Date "09 Apr 2017"
#define Module_Date "29 Apr 2017"
#define Module_ApplicationDate "09-Apr-17"
#define Module_ApplicationDate "29-Apr-17"
#define Module_ComponentName "FileCore"
#define Module_ComponentPath "castle/RiscOS/Sources/FileSys/FileCore"
#define Module_FullVersion "3.72"
#define Module_HelpVersion "3.72 (09 Apr 2017)"
#define Module_LibraryVersionInfo "3:72"
#define Module_FullVersion "3.73"
#define Module_HelpVersion "3.73 (29 Apr 2017)"
#define Module_LibraryVersionInfo "3:73"
......@@ -223,6 +223,10 @@ CaseConvertType SETS "$Type"
ASSERT CaseConvertType = "Upper"
CMP $UR, #BadPtr
LDRNEB $Reg, [$UR, $Reg]
BNE %FT01
ASCII_UpperCase $Reg, $UR
MOV $UR, #BadPtr ; Restore $UR after use as a temp register
01
MEND
......
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