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

* removed unaligned workarounds

Browse Source 
git-svn-id: trunk@4831 -
This commit is contained in:
florian 2006-10-08 15:48:06 +00:00
parent bacded2cf8
commit de87469127
1 changed files with 7 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -125,12 +125,12 @@ type
function MDSFilterRecord(Buffer: PChar): Boolean;
function MDSGetRecInfo(Buffer: PChar): TMTRecInfo;
procedure MDSSetRecInfo(Buffer: PChar;
Flag: TBookmarkFlag);
Flag: TBookmarkFlag);
procedure MDSSetRecInfo(Buffer: PChar;
Flag: TBookmarkFlag;
ABookmark: Longint);
ABookmark: Longint);
procedure MDSSetRecInfo(Buffer: PChar;
ABookmark: Longint);
ABookmark: Longint);
public
constructor Create(AOwner:tComponent); override;
destructor Destroy; override;
@ -766,12 +766,8 @@ end;
procedure TMemDataset.MDSSetRecInfo(Buffer: PChar;
Flag: TBookmarkFlag);
var ARecInfo: TMTRecInfo;
begin
//Unaligned(PRecInfo(Buffer+FRecInfoOffset)^).BookmarkFlag := Flag;
ARecInfo:=MDSGetRecInfo(Buffer);
ARecInfo.BookmarkFlag:=Flag;
Move(ARecInfo,PRecInfo(Buffer+FRecInfoOffset)^,FRecInfoSize);
Unaligned(PRecInfo(Buffer+FRecInfoOffset)^).BookmarkFlag := Flag;
end;
procedure TMemDataset.MDSSetRecInfo(Buffer: PChar;
@ -779,22 +775,15 @@ procedure TMemDataset.MDSSetRecInfo(Buffer: PChar;
ABookmark: Longint);
var ARecInfo: TMTRecInfo;
begin
//Unaligned(PRecInfo(Buffer+FRecInfoOffset)^).Bookmark := ABookmark;
//Unaligned(PRecInfo(Buffer+FRecInfoOffset)^).BookmarkFlag := Flag;
ARecInfo:=MDSGetRecInfo(Buffer);
ARecInfo.Bookmark:=ABookmark;
ARecInfo.BookmarkFlag:=Flag;
Move(ARecInfo,PRecInfo(Buffer+FRecInfoOffset)^,FRecInfoSize);
Unaligned(PRecInfo(Buffer+FRecInfoOffset)^).Bookmark := ABookmark;
Unaligned(PRecInfo(Buffer+FRecInfoOffset)^).BookmarkFlag := Flag;
end;
procedure TMemDataset.MDSSetRecInfo(Buffer: PChar;
ABookmark: Longint);
var ARecInfo: TMTRecInfo;
begin
//Unaligned(PRecInfo(Buffer+FRecInfoOffset)^).BookmarkFlag := ABookmark;
ARecInfo:=MDSGetRecInfo(Buffer);
ARecInfo.Bookmark:=ABookmark;
Move(ARecInfo,PRecInfo(Buffer+FRecInfoOffset)^,FRecInfoSize);
Unaligned(PRecInfo(Buffer+FRecInfoOffset)^).BookmarkFlag := ABookmark;
end;
Function TMemDataset.DataSize : Integer;