mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-25 01:10:01 +02:00
* syncobjs is not part of the rtl
git-svn-id: trunk@533 -
This commit is contained in:
parent
b9b9ce059d
commit
26c69e89dc
1
.gitattributes
vendored
1
.gitattributes
vendored
@ -6070,7 +6070,6 @@ tests/webtbs/tw3805.pp svneol=native#text/plain
|
|||||||
tests/webtbs/tw3812.pp svneol=native#text/plain
|
tests/webtbs/tw3812.pp svneol=native#text/plain
|
||||||
tests/webtbs/tw3814.pp svneol=native#text/plain
|
tests/webtbs/tw3814.pp svneol=native#text/plain
|
||||||
tests/webtbs/tw3820.pp svneol=native#text/plain
|
tests/webtbs/tw3820.pp svneol=native#text/plain
|
||||||
tests/webtbs/tw3821.pp svneol=native#text/plain
|
|
||||||
tests/webtbs/tw3827.pp svneol=native#text/plain
|
tests/webtbs/tw3827.pp svneol=native#text/plain
|
||||||
tests/webtbs/tw3833.pp svneol=native#text/plain
|
tests/webtbs/tw3833.pp svneol=native#text/plain
|
||||||
tests/webtbs/tw3840.pp svneol=native#text/plain
|
tests/webtbs/tw3840.pp svneol=native#text/plain
|
||||||
|
@ -1,18 +0,0 @@
|
|||||||
{ %OPT=-Sew }
|
|
||||||
|
|
||||||
{ Source provided for Free Pascal Bug Report 3821 }
|
|
||||||
{ Submitted by "Matthias Hryniszak" on 2005-03-24 }
|
|
||||||
{ e-mail: matthias@hryniszak.de }
|
|
||||||
program Test;
|
|
||||||
|
|
||||||
uses
|
|
||||||
SyncObjs;
|
|
||||||
|
|
||||||
var
|
|
||||||
Event: TSimpleEvent;
|
|
||||||
|
|
||||||
begin
|
|
||||||
// The following line produces a compile-time
|
|
||||||
// warning
|
|
||||||
Event := TSimpleEvent.Create;
|
|
||||||
end.
|
|
Loading…
Reference in New Issue
Block a user