blob: ab58ae32a00e01892d457b471f78ae7c75ac55e5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
{ Source provided for Free Pascal Bug Report 4616 }
{ Submitted by "Simon Felix" on 2005-12-18 }
{ e-mail: de@royalinc.ath.cx }
var
t:array[0..128] of widechar;
begin
//works as expected
//t:='ab';
//works as expected
//t:=char(65)+'ab';
//doesn't result in 'Aab' (result is 'A',#4190)
//t:=widechar(65)+'ab';
//this crashes the compiler
t:=widechar(65)+'abc';
end.
|
