From ef3e79e0bb6ba4a5e5d4dc1467281370e1d8b488 Mon Sep 17 00:00:00 2001 From: Tomas Bzatek Date: Sat, 23 Aug 2008 22:54:42 +0200 Subject: Fix some compiler warnings --- vfs/UVFSCore.pas | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'vfs') diff --git a/vfs/UVFSCore.pas b/vfs/UVFSCore.pas index eafc2ef..4dd00b1 100644 --- a/vfs/UVFSCore.pas +++ b/vfs/UVFSCore.pas @@ -845,6 +845,7 @@ end; function TVFSEngine.CopyFileOut(Sender: Pointer; SourceFile, DestFile: string; ProgressFunc: TEngineProgressFunc; ErrorFunc: TEngineErrorFunc; Append: boolean): boolean; var Res: TVFSResult; begin + Result := False; try if @FSourcePlugin.FVFSCopyOut <> nil then begin FSenderThread := Sender; @@ -877,6 +878,7 @@ end; function TVFSEngine.CopyFileIn(Sender: Pointer; SourceFile, DestFile: string; ProgressFunc: TEngineProgressFunc; ErrorFunc: TEngineErrorFunc; Append: boolean): boolean; var Res: TVFSResult; begin + Result := False; try if @FSourcePlugin.FVFSCopyIn <> nil then begin FSenderThread := Sender; @@ -1012,7 +1014,6 @@ begin Break; end; - ModuleHandler := nil; if b then DebugMsg(['Module ', s, ' is already loaded --> skipping...']) else begin ModuleHandler := dlopen(PChar(IncludeTrailingPathDelimiter(s) + Buf), RTLD_LAZY); if ModuleHandler = nil then DebugMsg([' XXX Error loading module: ', dlerror]) -- cgit v1.2.3