wadcvt: fix bit 11

[d2df-sdl.git] / src / tools / wadcvt.dpr

diff --git a/src/tools/wadcvt.dpr b/src/tools/wadcvt.dpr
index 778f7a6a71edff90ebd478578122412b2fec5bfd..8f2715279741e8eb8a9403027e287757533f7086 100644 (file)
--- a/src/tools/wadcvt.dpr
+++ b/src/tools/wadcvt.dpr
@@ -27,6 +27,13 @@ program __wadcvt__;
 uses
   SysUtils,
   Classes,
+  {$IFDEF USE_SDL}
+    SDL in '../lib/sdl/sdl.pas',
+  {$ENDIF}
+  {$IFDEF USE_SDL2}
+    SDL2 in '../lib/sdl2/sdl2.pas',
+  {$ENDIF}
+  {$I ../shared/vampimg.inc}
   mempool in '../shared/mempool.pas',
   utils in '../shared/utils.pas',
   xstreams in '../shared/xstreams.pas',
@@ -42,8 +49,7 @@ uses
   conbuf in '../shared/conbuf.pas',
   MAPDEF in '../shared/MAPDEF.pas',
   CONFIG in '../shared/CONFIG.pas',
-  e_log in '../engine/e_log.pas',
-  ImagingTypes, Imaging, ImagingUtility;
+  e_log in '../engine/e_log.pas';
 
 
 {.$WARNINGS ON}
@@ -601,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;