From: Ketmar Dark <ketmar@ketmar.no-ip.org>
Date: Mon, 18 Apr 2016 15:22:31 +0000 (+0300)
Subject: wadcvt: don't write extended info if utf8 name is the same as non-utf8 one
X-Git-Url: http://deadsoftware.ru/gitweb?a=commitdiff_plain;h=3ef0ac915e2956cdc964e21111b5815c9d106597;p=d2df-sdl.git

wadcvt: don't write extended info if utf8 name is the same as non-utf8 one
---

diff --git a/src/sfs/wadcvt.dpr b/src/sfs/wadcvt.dpr
index 85666cf..46dd0a7 100644
--- a/src/sfs/wadcvt.dpr
+++ b/src/sfs/wadcvt.dpr
@@ -313,6 +313,7 @@ var
   sz: Word;
 begin
   fu := toUtf8(fname);
+  if fu = fname then begin result := nil; exit; end; // no need to write anything
   crc := crc32(0, @fname[1], length(fname));
   sz := 2+2+1+4+length(fu);
   SetLength(result, sz);