paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 21:49:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix memleak and compiler hints

Browse Source
This commit is contained in:
Michaël Van Canneyt 2021-12-27 11:41:54 +01:00
parent 11d2960db8
commit d362d47e88
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
packages/fcl-web/src/restbridge/sqldbrestbridge.pp
View File

@ -1194,6 +1194,8 @@ begin
roPut : R:=FBeforePut; roPut : R:=FBeforePut;
roPost : R:=FBeforePost; roPost : R:=FBeforePost;
roDelete : R:=FBeforeDelete; roDelete : R:=FBeforeDelete;
else
R:=Nil;
end end
else else
Case IO.Operation of Case IO.Operation of
@ -1201,6 +1203,8 @@ begin
roPut : R:=FAfterPut; roPut : R:=FAfterPut;
roPost : R:=FAfterPost; roPost : R:=FAfterPost;
roDelete : R:=FAfterDelete; roDelete : R:=FAfterDelete;
else
R:=Nil;
end; end;
If Assigned(R) then If Assigned(R) then
R(Self,IO.Connection,IO.Resource) R(Self,IO.Connection,IO.Resource)
@ -1375,6 +1379,8 @@ begin
rftDate : FFormat.AsString:=FStrings.GetRestString(rpDateFormat); rftDate : FFormat.AsString:=FStrings.GetRestString(rpDateFormat);
rftDateTime : FFormat.AsString:=FStrings.GetRestString(rpDatetimeFormat); rftDateTime : FFormat.AsString:=FStrings.GetRestString(rpDatetimeFormat);
rftTime : FFormat.AsString:=FStrings.GetRestString(rpTimeFormat); rftTime : FFormat.AsString:=FStrings.GetRestString(rpTimeFormat);
else
;
end; end;
for O in TRestFieldOption do for O in TRestFieldOption do
FOptions[O].AsBoolean:=O in F.Options; FOptions[O].AsBoolean:=O in F.Options;
@ -1743,6 +1749,7 @@ begin
finally finally
IO.SetConn(Nil,Nil); IO.SetConn(Nil,Nil);
DoneSQLConnection(aConnection,Conn,Tr); DoneSQLConnection(aConnection,Conn,Tr);
H.Free;
end; end;
end; end;