diff options
| author | Tomas Bzatek <tbzatek@users.sourceforge.net> | 2008-06-15 11:42:49 +0200 |
|---|---|---|
| committer | Tomas Bzatek <tbzatek@users.sourceforge.net> | 2008-06-15 11:42:49 +0200 |
| commit | 25c58a81ca9202af54d28888d2b068ebeb2a376f (patch) | |
| tree | b0ad200b316f4dec392d1640bd6e3edea6be3606 /vfs/UVFSCore.pas | |
| parent | c9a02bf590248c0bd8e1343198d3f9c13ce118c1 (diff) | |
| download | tuxcmd-25c58a81ca9202af54d28888d2b068ebeb2a376f.tar.xz | |
Portability fixes
Diffstat (limited to 'vfs/UVFSCore.pas')
| -rw-r--r-- | vfs/UVFSCore.pas | 13 |
1 files changed, 3 insertions, 10 deletions
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 |