mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-04 02:39:40 +01:00
24 lines
290 B
ObjectPascal
24 lines
290 B
ObjectPascal
|
|
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. |