mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-04 04:59:29 +01:00
12 lines
194 B
ObjectPascal
12 lines
194 B
ObjectPascal
|
|
{ I think this now occurs with most type casting... }
|
|
{ I think type casting is no longer considered?? }
|
|
|
|
Var
|
|
Sel: Word;
|
|
Sel2: byte;
|
|
Begin
|
|
Sel:=word($7fffffff);
|
|
Sel2:=byte($7fff);
|
|
end.
|