blob: 7a7dc64c0a5b39ea84e62fe273955644e5c9db7c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
{ %version=1.1 }
{ Source provided for Free Pascal Bug Report 2651 }
{ Submitted by "Sergey Kosarevsky" on 2003-08-23 }
{ e-mail: netsurfer@au.ru }
{$mode objfpc}
{$inline on}
Type tMyClass=Class
Class Procedure InlineProc;Inline;
End;
Class Procedure tmyClass.InlineProc;Inline;
Begin
End;
Begin
tMyClass.InlineProc;
End.
|