paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-02 11:10:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Correctly initialize some variables to avoid AV

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-09-10 09:37:23 +02:00
parent 0c3f7bb664
commit b6b3cc88f8
2 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-web/src/restbridge/sqldbrestdata.pp
View File

@ -169,7 +169,7 @@ end;
function TSQLDBRestDBHandler.GetString(aString: TRestStringProperty): UTF8String; function TSQLDBRestDBHandler.GetString(aString: TRestStringProperty): UTF8String;
begin begin
DefaultGetString(FStrings, aString); Result:=DefaultGetString(FStrings, aString);
end; end;
class function TSQLDBRestDBHandler.DefaultGetString(aConfig : TRestStringsConfig; aString: TRestStringProperty): UTF8String; class function TSQLDBRestDBHandler.DefaultGetString(aConfig : TRestStringsConfig; aString: TRestStringProperty): UTF8String;
@ -790,7 +790,7 @@ begin
Q.UsePrimaryKeyAsKey:=False; Q.UsePrimaryKeyAsKey:=False;
FillParams(roGet,Q.Params,WhereFilterList); FillParams(roGet,Q.Params,WhereFilterList);
if Not SpecialResource then if Not SpecialResource then
IO.Resource.CheckParams(IO.RestContext,roPost,Q.Params); IO.Resource.CheckParams(IO.RestContext,roGet,Q.Params);
Result:=Q; Result:=Q;
except except
Q.Free; Q.Free;

4
packages/fcl-web/src/restbridge/sqldbrestjson.pp
View File

@ -121,7 +121,9 @@ Var
D : TJSONData; D : TJSONData;
begin begin
D:=(FJSON as TJSONObject).Find(aName); D:=Nil;
if Assigned(FJSON) then
D:=(FJSON as TJSONObject).Find(aName);
if D<>nil then if D<>nil then
Result:=D.Clone Result:=D.Clone
else else