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

* Amend Patch for bug id #21594, fixing possible AV in corner cases

Browse Source 
git-svn-id: trunk@39592 -
This commit is contained in:
michael 2018-08-08 05:00:40 +00:00
parent e4346b264f
commit 6603bf149a
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/fcl-db/src/base/datasource.inc
View File

@ -73,6 +73,12 @@ Procedure TDataLink.CalcRange;
var
aMax, aMin: integer;
begin
// During loading, dataset may not be set yet.
If (Dataset=Nil) then
begin
FFirstRecord:=0;
exit;
end;
aMin:= DataSet.FActiveRecord - FBufferCount + 1;
If aMin < 0 Then aMin:= 0;
aMax:= Dataset.FBufferCount - FBufferCount;
@ -609,8 +615,8 @@ begin
End;
If ADataset<>Nil Then
begin
ADataset.RegisterDatasource(Self);
FDataSet:=ADataset;
ADataset.RegisterDatasource(Self);
ProcessEvent(deUpdateState,0);
End;
end;