paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-02-04 08:54:53 +01:00
Code Issues Packages Projects Releases Wiki Activity

* 64bit fixes

Browse Source
This commit is contained in:
peter 2004-12-15 21:15:04 +00:00
parent c3f6b3125e
commit 404ccf475f
3 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
fcl/db/bufdataset.inc
View File

@ -319,7 +319,7 @@ begin
end;
end;
if not (State in [dsCalcFields, dsFilter, dsNewValue]) then
DataEvent(deFieldChange, Longint(Field));
DataEvent(deFieldChange, Ptrint(Field));
end;
end;

13
fcl/db/ddg_ds.pp
View File

@ -131,7 +131,7 @@ end;
procedure TIndexList.LoadFromStream(Stream: TStream);
var
Value: Integer;
Value: PtrInt;
begin
while Stream.Position < Stream.Size do
begin
@ -155,11 +155,11 @@ end;
procedure TIndexList.SaveToStream(Stream: TStream);
var
i: Integer;
Value: Integer;
Value: PtrInt;
begin
for i := 0 to Count - 1 do
begin
Value := Integer(Items[i]);
Value := PtrInt(Items[i]);
Stream.Write(Value, SizeOf(Value));
end;
end;
@ -439,7 +439,7 @@ end;
procedure TDDGDataSet.InternalPost;
var
RecPos, InsPos: Integer;
RecPos, InsPos: PtrInt;
begin
{$ifdef dsdebug}
Writeln ('Starting internal post.');
@ -528,7 +528,10 @@ end;
end.
$Log$
Revision 1.4 2004-05-02 21:23:18 peter
Revision 1.5 2004-12-15 21:15:04 peter
* 64bit fixes
Revision 1.4 2004/05/02 21:23:18 peter
* use ptrint
Revision 1.3 2002/09/07 15:15:23 peter

2
fcl/db/sdf/sdfdata.pp
View File

@ -161,7 +161,7 @@ type
FCurRec :Integer;
FRecBufSize :Integer;
FRecordSize :Integer;
FLastBookmark :Integer;
FLastBookmark :PtrInt;
FRecInfoOfs :Word;
FBookmarkOfs :Word;
FSaveChanges :Boolean;