From 25c58a81ca9202af54d28888d2b068ebeb2a376f Mon Sep 17 00:00:00 2001
From: Tomas Bzatek <tbzatek@users.sourceforge.net>
Date: Sun, 15 Jun 2008 11:42:49 +0200
Subject: Portability fixes

---
 vfs/UVFSCore.pas | 13 +++----------
 1 file changed, 3 insertions(+), 10 deletions(-)

(limited to 'vfs/UVFSCore.pas')

diff --git a/vfs/UVFSCore.pas b/vfs/UVFSCore.pas
index 5ca80d5..e93fa11 100644
--- a/vfs/UVFSCore.pas
+++ b/vfs/UVFSCore.pas
@@ -19,10 +19,6 @@
 *)
 unit UVFSCore;
 
-{$IFDEF __FPC__}
-  {$M+}
-{$ENDIF}
-
 interface
 
 uses GTKForms, ULibc, Classes, uVFSprototypes, UEngines, UCoreUtils;
@@ -78,7 +74,7 @@ type
     Extensions, Services: TOpenStringArray;  //  the list of the extensions plugin can handle
     constructor Create(PluginHandle: Pointer);
     destructor Destroy; override;
-  published
+
     function VFSVersion: integer;
     function VFSName: PChar;
     function VFSDescription: PChar;
@@ -302,7 +298,7 @@ begin
     memset(FGlobs, 0, SizeOf(FGlobs));
   end;    
   
-{$IFNDEF KYLIX}
+{
   DebugMsg(['sizeof(TVFSItem) = ', sizeof(TVFSItem)]);
   DebugMsg(['sizeof(TVFSItem.sFileName) = ', sizeof(TVFSItem.sFileName)]);
   DebugMsg(['sizeof(TVFSItem.iSize) = ', sizeof(TVFSItem.iSize)]);
@@ -314,8 +310,7 @@ begin
   DebugMsg(['sizeof(TVFSItem.iUID) = ', sizeof(TVFSItem.iUID)]);
   DebugMsg(['sizeof(TVFSItem.iGID) = ', sizeof(TVFSItem.iGID)]);
   DebugMsg(['sizeof(TVFSItem.ItemType) = ', sizeof(TVFSItem.ItemType)]);
-{$ENDIF}
-
+}
   if @FSourcePlugin.FVFSInit <> nil then FSourcePlugin.FVFSInit(FGlobs, @VFSLogFunc);
   FPassword := '';
 end;
@@ -701,11 +696,9 @@ begin
     libc_free(P);
     FSourcePlugin.FVFSListClose(FGlobs);
 
-    {$WARNINGS OFF}
     if LocalList.Count > 0 then
       for i := 0 to LocalList.Count - 1 do
         FillDirFiles(LocalList[i], List, ALevel + 1);
-    {$WARNINGS ON}
 
     if FilesList.Count > 0 then
       for i := 0 to FilesList.Count - 1 do
-- 
cgit v1.2.3