From d362d47e88aa2dddbcd35c371a92e5014cca5a02 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Mon, 27 Dec 2021 11:41:54 +0100
Subject: [PATCH] * Fix memleak and compiler hints
---
packages/fcl-web/src/restbridge/sqldbrestbridge.pp | 7 +++++++
1 file changed, 7 insertions(+)
diff --git a/packages/fcl-web/src/restbridge/sqldbrestbridge.pp b/packages/fcl-web/src/restbridge/sqldbrestbridge.pp
index 69f8e0942e..c15d97a972 100644
--- a/packages/fcl-web/src/restbridge/sqldbrestbridge.pp
+++ b/packages/fcl-web/src/restbridge/sqldbrestbridge.pp
@@ -1194,6 +1194,8 @@ begin
roPut : R:=FBeforePut;
roPost : R:=FBeforePost;
roDelete : R:=FBeforeDelete;
+ else
+ R:=Nil;
end
else
Case IO.Operation of
@@ -1201,6 +1203,8 @@ begin
roPut : R:=FAfterPut;
roPost : R:=FAfterPost;
roDelete : R:=FAfterDelete;
+ else
+ R:=Nil;
end;
If Assigned(R) then
R(Self,IO.Connection,IO.Resource)
@@ -1375,6 +1379,8 @@ begin
rftDate : FFormat.AsString:=FStrings.GetRestString(rpDateFormat);
rftDateTime : FFormat.AsString:=FStrings.GetRestString(rpDatetimeFormat);
rftTime : FFormat.AsString:=FStrings.GetRestString(rpTimeFormat);
+ else
+ ;
end;
for O in TRestFieldOption do
FOptions[O].AsBoolean:=O in F.Options;
@@ -1743,6 +1749,7 @@ begin
finally
IO.SetConn(Nil,Nil);
DoneSQLConnection(aConnection,Conn,Tr);
+ H.Free;
end;
end;