sfs and wad code refactoring: part 1

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

diff --git a/src/sfs/wadcvt.dpr b/src/sfs/wadcvt.dpr
index bd5933eb10f001c614d31f0372945175a84c0853..1fa828ae227b104858feeefd3d3f2fcc685bdb8e 100644 (file)
--- a/src/sfs/wadcvt.dpr
+++ b/src/sfs/wadcvt.dpr
@@ -8,6 +8,7 @@ uses
   SysUtils,
   Classes,
   SDL2 in '../lib/sdl2/sdl2.pas',
+  utils in  '../shared/utils.pas',
   sfs,
   sfsPlainFS,
   sfsZipFS,
@@ -173,7 +174,7 @@ begin
   end;
 
   infname := ParamStr(1);
-  if not SFSStrEqu(ExtractFileExt(infname), '.wad') and not SFSStrEqu(ExtractFileExt(infname), '.dfwad') then
+  if not StrEquCI1251(ExtractFileExt(infname), '.wad') and not StrEquCI1251(ExtractFileExt(infname), '.dfwad') then
   begin
     writeln('wtf?!');
     Halt(1);