mORMot Open Source

ComingNine

Member

Registered: 2010-07-29

Posts: 294

Cannot compile SynLog under Delphi 7

SynLog in the latest version cannot compile under Delphi 7. It seems that anonymous cannot create ticket any more. The two lines are thus shown below. Could you fix this ?

                    code                                      line no
before  R.Seek(PtrUInt(P)-PtrUInt(R.MappedBuffer));           
now     R.Seek(P-PByte(R.MappedBuffer));                      1736

before  W.WriteDirectEnd(PtrUInt(P)-Beg);
now     W.DirectWriteFlush(P-Beg,tmp);                        2044

Last edited by ComingNine (2019-07-25 04:20:33)

ab

Administrator

From: France

Registered: 2010-06-21

Posts: 14,672

Website

Re: Cannot compile SynLog under Delphi 7

Should be fixed by https://synopse.info/fossil/info/0974dda20d

Sorry for the regression