mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-04 02:39:40 +01:00
21 lines
256 B
ObjectPascal
21 lines
256 B
ObjectPascal
{ %fail }
|
|
|
|
{ Source provided for Free Pascal Bug Report 4764 }
|
|
{ Submitted by "Ales Katona" on 2006-02-03 }
|
|
{ e-mail: almindor@gmail.com }
|
|
unit example;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
type
|
|
TLBaseSocket = class(TLHandle)
|
|
end;
|
|
|
|
implementation
|
|
|
|
end.
|
|
|
|
|