Fix warnings.

ah-sabbir · Nov 28, 2018 · ebfab63 · ebfab63
1 parent e758d6b
commit ebfab63
Show file tree

Hide file tree

Showing 4 changed files with 1 addition and 3 deletions.
diff --git a/Projects/Compile.pas b/Projects/Compile.pas
@@ -9284,6 +9284,7 @@ function ISCompileScript(const Params: TCompileScriptParamsEx;
           else begin
             { Bad option }
             Result := isceInvalidParam;
+            Exit;
           end;
         end
         else if StrLIComp(P, 'OutputDir=', Length('OutputDir=')) = 0 then begin

diff --git a/Projects/SimpleExpression.pas b/Projects/SimpleExpression.pas
@@ -232,7 +232,6 @@ function TSimpleExpression.FEvalIdentifier(const InLazyBranch: Boolean): Boolean
   Name := FToken;
   Next;
 
-  Result := False; { Silence compiler }
   FillChar(Parameters, SizeOf(Parameters), 0);
   try
     if FParametersAllowed and (FTokenId = tiOpenRound) then begin

diff --git a/Projects/SpawnClient.pas b/Projects/SpawnClient.pas
@@ -109,7 +109,6 @@ function CallSpawnServer(const CopyDataMsg: DWORD; var M: TMemoryStream;
     InternalErrorFmt('CallSpawnServer: Unexpected response: $%x', [MsgResult]);
   SequenceNumber := Word(MsgResult);
 
-  Status := 0;  { avoid compiler warning }
   LastQueryTime := GetTickCount;
   repeat
     ProcessMessagesProc;

diff --git a/Projects/Undo.pas b/Projects/Undo.pas
@@ -515,7 +515,6 @@ class function TUninstallLog.ExtractRecData(const Rec: PUninstallRec;
   for I := 0 to High(Data) do
     Data[I] := '';
   I := 0;
-  L := 0;  { prevent warning }
   X := @Rec^.Data;
   while I <= High(Data) do begin
     case X^ of