paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-27 16:50:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ added direct destructor / constructor call

Browse Source
This commit is contained in:
carl 2002-04-10 19:23:31 +00:00
parent ffeb787b1b
commit da73e3f995
1 changed files with 15 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
tests/test/cg/tcallobj.pp
View File

@ -30,6 +30,8 @@ type
tsampleclass = class
constructor create;
destructor destroy;
constructor create_second;
destructor destroy_second;
procedure method_none;
class procedure class_method_none;
class procedure class_method_none_1;
@ -105,7 +107,16 @@ destructor tvmtobject.destructor_none;
destructor tsampleclass.destroy;
begin
end;
constructor tsampleclass.create_second;
begin
end;
destructor tsampleclass.destroy_second;
begin
end;
procedure tsampleclass.method_none;
begin
end;
@ -186,6 +197,8 @@ begin
{!!! HOW TO DO A DIRECT CALL TO CLASS DESTRUCTOR/CONSTRUCTOR? }
tsampleclass.class_method_none;
sampleclass.class_method_none;
sampleclass.create_second;
sampleclass.destroy_second;
tsampleclass.destroy_class;
tsampleclass.create_class;
{ sampleclass.destroy;}
@ -209,7 +222,7 @@ end.
{
$Log$
Revision 1.1 2002-04-10 19:11:00 carl
+ first tries at first calln testing for objects (totally unfinished!)
Revision 1.2 2002-04-10 19:23:31 carl
+ added direct destructor / constructor call
}