blob: aa29a026de276931923a41fd2279dc551bd49e12 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
program SetSizeWrong;
{$IFDEF FPC}
{$mode delphi}
{$packenum 1}
{$packset 1}
{$ENDIF}
type
{ the flags that are sent with every message }
TnxMessageHeaderFlag = (
{the message header is followed by a string}
mhfErrorMessage,
{ reserver for future use }
mhfReserved1,
{ reserver for future use }
mhfReserved2,
{ reserver for future use }
mhfReserved3,
{ reserver for future use }
mhfReserved4,
{ reserver for future use }
mhfReserved5,
{ reserver for future use }
mhfReserved6,
{ reserver for future use }
mhfReserved7
);
{ set of Message flags }
TnxMessageHeaderFlags = set of TnxMessageHeaderFlag;
begin
if SizeOf(TnxMessageHeaderFlag)<>1 then
halt(1);
WriteLn(SizeOf(TnxMessageHeaderFlag)); // should be 1, is 1
WriteLn(SizeOf(TnxMessageHeaderFlags)); // should be 1, is 4
if SizeOf(TnxMessageHeaderFlags)<>1 then
halt(1);
end.
|
