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

* Align field-data when needed (bug 10957)

Browse Source 
* Fix for bookmark property

git-svn-id: trunk@11276 -
This commit is contained in:
joost 2008-06-24 22:06:13 +00:00
parent 38b265f60f
commit 88b8195c19
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
packages/fcl-db/src/memds/memds.pp
View File

@ -255,6 +255,7 @@ begin
FRecBufferSize:=0;
FRecInfoOffset:=0;
FCurrRecNo:=-1;
BookmarkSize := sizeof(TMTRecInfo);
FIsOpen:=False;
end;
@ -310,6 +311,9 @@ begin
else
RaiseError(SErrFieldTypeNotSupported,[FieldDefs.Items[FieldNo-1].Name]);
end;
{$IFDEF FPC_REQUIRES_PROPER_ALIGNMENT}
Result:=Align(Result,4);
{$ENDIF}
end;
function TMemDataset.MDSGetActiveBuffer(var Buffer: PChar): Boolean;
@ -842,7 +846,10 @@ begin
FFieldOffsets:=getmem(Count*sizeof(integer));
FFieldSizes:=getmem(Count*sizeof(integer));
FRecSize:= (Count+7) div 8; //null mask
for i:= 0 to Count-1 do
{$IFDEF FPC_REQUIRES_PROPER_ALIGNMENT}
FRecSize:=Align(FRecSize,4);
{$ENDIF}
for i:= 0 to Count-1 do
begin
ffieldoffsets[i] := frecsize;
ffieldsizes[i] := MDSGetbufferSize(i+1);