tests/webtbf/tw17455.pp


1
2
3
4
5
6
7
8
9
10
11
12

{ %fail }

{$mode macpas}
{$extendedsyntax off}

program crash;
var
  thePStr: string[ 255];
begin
  System.Move
    ( thePStr, MenuPtr^, Length( thePStr) + 1)
end.