blob: 49c546c4a89881ecfe59843f87103860eaed5b34 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
{ Old file: tbs0106.pp }
{ typecasts are now ignored problem (NOT A bugs) OK 0.99.1 }
{$R-}
{ 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.
|
