From: DeaDDooMER <deaddoomer@deadsoftware.ru>
Date: Sun, 10 Sep 2023 17:10:31 +0000 (+0300)
Subject: wadcvt: fix bit 11
X-Git-Url: https://deadsoftware.ru/gitweb?a=commitdiff_plain;h=502cd3df02658decc6da3fe618656b80b041e30c;hp=e1664ed8cea6e3970b892b9b50b60a1fb0c4b017;p=d2df-sdl.git

wadcvt: fix bit 11
---

diff --git a/src/tools/wadcvt.dpr b/src/tools/wadcvt.dpr
index b4827cb..8f27152 100644
--- a/src/tools/wadcvt.dpr
+++ b/src/tools/wadcvt.dpr
@@ -607,7 +607,7 @@ begin
   Move(fu[1], result[9], length(fu));
 end;
 {$ELSE}
-const UtfFlags = (1 shl 10); // bit 11
+const UtfFlags = (1 shl 11); // bit 11
 {$ENDIF}
 
 function ZipOne (ds: TStream; fname: AnsiString; st: TStream; dopack: Boolean=true): TFileInfo;