tests/webtbs/tw7954.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

{$ifdef fpc}
{$mode delphi}
{$endif}

uses
{$ifdef unix}
  cthreads,
{$endif}
  Classes, SysUtils;

var
  cs: trtlcriticalsection;
begin
  fillchar(cs,sizeof(cs),#255);
  try
    leavecriticalsection(cs);
  except on Exception do
    halt(0);
  end;
end.