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

* Fix issue #39342, after exception in doapplyupdates, res is not valid

Browse Source
This commit is contained in:
Michaël Van Canneyt 2021-09-07 13:57:53 +02:00
parent 239557237f
commit 06b659f787
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
packages/fcl-db/src/base/bufdataset.pas
View File

@ -2940,14 +2940,14 @@ begin
on E: EDatabaseError do
begin
Result.Response:=ErrorResponse[AbortOnError];
if HandleUpdateError(aUpdate,Result,E) then
DoApplyUpdate(aUpdate,AbortOnError);
Result.HadError:=True;
end
if HandleUpdateError(aUpdate,Result,E) then
DoApplyUpdate(aUpdate,AbortOnError)
else
raise;
end;
end;
end;
procedure TCustomBufDataset.ResolvedRecord(Var aUpdate : TRecUpdateBuffer);
@ -2995,8 +2995,11 @@ begin
else
begin
FUpdateBuffer[r].Processing:=False;
if not UpdOK then // We have an exception, force HadError
if not UpdOK then // We have an exception, res is not valid in this case. So force HadError
begin
Res.HadError:=True;
Res.Response:=rrAbort;
end;
if Res.HadError then
Inc(FailedCount);
if Res.Response in [rrApply, rrIgnore] then