mORMot Open Source

tbo

Member

Registered: 2015-04-20

Posts: 336

Commit https://synopse.info/fossil/info/9f38a5b066d03521

Hi,

/// binary access to an unsigned 32-bit value (4 bytes in memory)
TDWordRec = record
  case integer of
  0: (V: DWord);
  1: (L,H: word);
  2: (B: array[0..7] of byte);  <=== shouldn't it array[0..3] of byte?
end;

Is this commit okay?

Thanks.

ab

Administrator

From: France

Registered: 2010-06-21

Posts: 14,242

Website

Re: Commit https://synopse.info/fossil/info/9f38a5b066d03521

You are right!

See https://synopse.info/fossil/info/a8f390da4a829dd7