X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;ds=sidebyside;f=src%2Fsfs%2FsfsMemFS.pas;h=748dbc309080210332c9bb0b98e0b951e6c369d0;hb=41d480b02f4d0257f13a87810c0053b8b0df3b13;hp=03c8be287c7890367062e86b45b5b10148670e61;hpb=0bca3d7f2bd790a39f86ebe80f340a48af5f132b;p=d2df-sdl.git

diff --git a/src/sfs/sfsMemFS.pas b/src/sfs/sfsMemFS.pas
index 03c8be2..748dbc3 100644
--- a/src/sfs/sfsMemFS.pas
+++ b/src/sfs/sfsMemFS.pas
@@ -11,12 +11,14 @@
 //     as a side effect this gives us an opportunity to read enclosed packs
 //     from the packs which aren't supporting backseeking (such as zips).
 //
+{.$DEFINE SFS_MSMFS}
 {$MODE DELPHI}
 {.$R-}
 unit sfsMemFS;
 
 interface
 
+{$IFDEF SFS_MSMFS}
 uses
   SysUtils, Classes, Contnrs, sfs;
 
@@ -44,11 +46,12 @@ type
     function Produce (const prefix, fileName: TSFSString; st: TStream): TSFSVolume; override;
     procedure Recycle (vol: TSFSVolume); override;
   end;
-
+{$ENDIF}
 
 
 implementation
 
+{$IFDEF SFS_MSMFS}
 uses
   xstreams;
 
@@ -238,6 +241,7 @@ var
 initialization
   memf := TSFSMemoryVolumeFactory.Create();
   SFSRegisterVolumeFactory(memf);
-finalization
-  SFSUnregisterVolumeFactory(memf);
+//finalization
+//  SFSUnregisterVolumeFactory(memf);
+{$ENDIF}
 end.