Commit e2e7bbf6 authored by Martin Schreiber's avatar Martin Schreiber

* Fixed tmsebufdataset reading 64bit logfile on 32 bit.

parent 5a44c62b
......@@ -184,10 +184,12 @@ type
kind: tupdatekind;
po: card32;
end;
{$packrecords 8}
reclogheaderty = record
kind: tupdatekind;
po: card64; //pointer;
end;
{$packrecords default}
updatekindty = (uk_modify=ord(ukmodify),uk_insert=ord(ukinsert),
uk_delete=ord(ukdelete),uk_modifyinupdate);
updatelogheader32ty = record
......@@ -196,12 +198,14 @@ type
po: card32;
deletedrecord: card32;
end;
{$packrecords 8} //64 bit compatible
updatelogheaderty = record
logging: boolean;
kind: updatekindty;
po: card64; //pointer;
deletedrecord: card64; //pintrecordty;
end;
{$packrecords default}
logbufferheader32ty = record
case logflag: logflagty of
lf_rec: (
......@@ -211,6 +215,7 @@ type
update: updatelogheader32ty;
);
end;
{$packrecords 8} //64 bit compatible
logbufferheaderty = record
case logflag: logflagty of
lf_rec: (
......@@ -220,6 +225,7 @@ type
update: updatelogheaderty;
);
end;
{$packrecords default}
tbufstreamwriter = class
private
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment