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

* fixed compilation

Browse Source 
git-svn-id: trunk@4835 -
This commit is contained in:
florian 2006-10-08 17:47:26 +00:00
parent f68902500b
commit e6cffee1d1
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
fcl/db/memds/memds.pp
View File

@ -773,7 +773,6 @@ end;
procedure TMemDataset.MDSSetRecInfo(Buffer: PChar;
Flag: TBookmarkFlag;
ABookmark: Longint);
var ARecInfo: TMTRecInfo;
begin
Unaligned(PRecInfo(Buffer+FRecInfoOffset)^).Bookmark := ABookmark;
Unaligned(PRecInfo(Buffer+FRecInfoOffset)^).BookmarkFlag := Flag;
@ -781,9 +780,8 @@ end;
procedure TMemDataset.MDSSetRecInfo(Buffer: PChar;
ABookmark: Longint);
var ARecInfo: TMTRecInfo;
begin
Unaligned(PRecInfo(Buffer+FRecInfoOffset)^).BookmarkFlag := ABookmark;
Unaligned(PRecInfo(Buffer+FRecInfoOffset)^).Bookmark := ABookmark;
end;
Function TMemDataset.DataSize : Integer;