fcl-db: less hints

packages/fcl-base/fpexprpars.pas

@@ -3996,18 +3996,21 @@ end;
 
 Function BuiltInDate(Const Args : TExprParameterArray) : TFPExpressionResult;
 begin
+  if Args=nil then ;
   Result.ResultType:=rtDateTime;
   Result.resValue:=Date;
 end;
 
 Function BuiltInTime(Const Args : TExprParameterArray) : TFPExpressionResult;
 begin
+  if Args=nil then ;
   Result.ResultType:=rtDateTime;
   Result.resValue:=Time;
 end;
 
 Function BuiltInNow(Const Args : TExprParameterArray) : TFPExpressionResult;
 begin
+  if Args=nil then ;
   Result.ResultType:=rtDateTime;
   Result.resValue:=Now;
 end;

packages/fcl-db/restconnection.pas

@@ -149,16 +149,19 @@ end;
 procedure TRESTConnection.SetupRequest(aXHR: TJSXMLHttpRequest);
 begin
   // Do nothing
+  if aXHR=nil then ;
 end;
 
 function TRESTConnection.GetUpdateBaseURL(aRequest: TRecordUpdateDescriptor): String;
 begin
   Result:=BaseURL;
+  if aRequest=nil then ;
 end;
 
 function TRESTConnection.GetReadBaseURL(aRequest: TDataRequest): String;
 begin
   Result:=BaseURL;
+  if aRequest=nil then ;
 end;
 
 function TRESTConnection.GetPageURL(aRequest: TDataRequest): String;