X-Git-Url: https://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fsfs%2Fwadcvt.dpr;h=46dd0a772ef6ae2733c27398ea72a6cce1b96fa1;hb=3ef0ac915e2956cdc964e21111b5815c9d106597;hp=85666cfabe50a5811e8fbb354627f3a6254fd386;hpb=8069b67a977a773a668ef00df31739dbd68afcdc;p=d2df-sdl.git

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);