From c962fdcfeb853e9f17787e054747bab7ea623e2c Mon Sep 17 00:00:00 2001
From: Wengier <wengierwu@yahoo.com>
Date: Sun, 21 Nov 2021 22:05:21 -0500
Subject: [PATCH] fix DBCS upcase

---
 src/dos/drive_cache.cpp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/dos/drive_cache.cpp b/src/dos/drive_cache.cpp
index 43c302616..16d0be846 100644
--- a/src/dos/drive_cache.cpp
+++ b/src/dos/drive_cache.cpp
@@ -584,6 +584,7 @@ bool DOS_Drive_Cache::RemoveSpaces(char* str) {
     return (curpos!=chkpos);
 }
 
+bool isDBCSCP();
 char * DBCS_upcase(char * str);
 
 void DOS_Drive_Cache::CreateShortName(CFileInfo* curDir, CFileInfo* info) {
@@ -596,7 +597,7 @@ void DOS_Drive_Cache::CreateShortName(CFileInfo* curDir, CFileInfo* info) {
 
     // Remove Spaces
     strcpy(tmpName,info->orgname);
-    if (IS_PC98_ARCH)
+    if (IS_PC98_ARCH || isDBCSCP())
         DBCS_upcase(tmpName);
     else
         upcase(tmpName);