From 63c84c9ee4ed66b2839ac89e1476fc3224f98300 Mon Sep 17 00:00:00 2001
From: Graeme Geldenhuys <graemeg@gmail.com>
Date: Tue, 14 Sep 2010 22:58:33 +0200
Subject: Removed compiler warnings.

---
 src/corelib/fpg_base.pas | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'src/corelib')

diff --git a/src/corelib/fpg_base.pas b/src/corelib/fpg_base.pas
index 63c3ea15..3bdfde47 100644
--- a/src/corelib/fpg_base.pas
+++ b/src/corelib/fpg_base.pas
@@ -2266,6 +2266,7 @@ function TfpgApplicationBase.ContextHelp(const AHelpContext: THelpContext): Bool
 var
   p: TProcess;
 begin
+  Result := False;
   p := TProcess.Create(nil);
   try
     if fpgFileExists(HelpFile) then
@@ -2278,6 +2279,7 @@ begin
     end
     else
       p.CommandLine := GetHelpViewer;
+    Result := True;
     p.Execute;
   finally
     p.Free;
@@ -2288,6 +2290,7 @@ function TfpgApplicationBase.KeywordHelp(const AHelpKeyword: string): Boolean;
 var
   p: TProcess;
 begin
+  Result := False;
   p := TProcess.Create(nil);
   try
     if fpgFileExists(HelpFile) then
@@ -2297,6 +2300,7 @@ begin
     end
     else
       p.CommandLine := GetHelpViewer;
+    Result := True;
     p.Execute;
   finally
     p.Free;
-- 
cgit v1.2.3-70-g09d2