fpcsrc/tests/tbs/tb0020.pp


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

{ Old file: tbs0024.pp }
{  }


type
  charset=set of char;

  trec=record
     junk : array[1..32] of byte;
     t    : charset;
  end;

  var
     tr    : trec;
     tp    : ^trec;


  procedure Crash(const k:charset);

    begin
       tp^.t:=[#7..#10]+k;
    end;

  begin
     tp:=@tr;
     Crash([#20..#32]);
  end.