paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 14:20:05 +02:00
Code Issues Packages Projects Releases Wiki Activity

* support creating classes using <class of tobject>.create

Browse Source
This commit is contained in:
peter 2003-10-31 15:52:58 +00:00
parent 684a771aca
commit b34b0141d5
2 changed files with 27 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
compiler/ncal.pas
View File

@ -1061,6 +1061,11 @@ type
oldleft : tcallparanode;
begin
oldleft:=tcallparanode(left);
if oldleft.left.nodetype<>arrayconstructorn then
begin
CGMessage1(type_e_wrong_type_in_array_constructor,oldleft.left.resulttype.def.typename);
exit;
end;
{ Get arrayconstructor node and insert typeconvs }
hp:=tarrayconstructornode(oldleft.left);
hp.insert_typeconvs;
@ -1779,7 +1784,12 @@ type
{ constructor call via classreference => allocate memory }
if (procdefinition.proctypeoption=potype_constructor) and
is_class(tclassrefdef(methodpointer.resulttype.def).pointertype.def) then
vmttree:=methodpointer.getcopy
begin
vmttree:=methodpointer.getcopy;
{ Only a typenode can be passed when it is called with <class of xx>.create }
if vmttree.nodetype=typen then
vmttree:=cloadvmtaddrnode.create(vmttree);
end
else
vmttree:=cpointerconstnode.create(0,voidpointertype);
end
@ -2585,7 +2595,10 @@ begin
end.
{
$Log$
Revision 1.202 2003-10-30 16:23:13 peter
Revision 1.203 2003-10-31 15:52:58 peter
* support creating classes using <class of tobject>.create
Revision 1.202 2003/10/30 16:23:13 peter
* don't search for overloads in parents for constructors
Revision 1.201 2003/10/29 22:01:20 florian

17
compiler/nmem.pas
View File

@ -146,10 +146,14 @@ implementation
if codegenerror then
exit;
if left.resulttype.def.deftype<>objectdef then
Message(parser_e_pointer_to_class_expected);
resulttype.setdef(tclassrefdef.create(left.resulttype));
case left.resulttype.def.deftype of
classrefdef :
resulttype:=left.resulttype;
objectdef :
resulttype.setdef(tclassrefdef.create(left.resulttype));
else
Message(parser_e_pointer_to_class_expected);
end;
end;
@ -920,7 +924,10 @@ begin
end.
{
$Log$
Revision 1.68 2003-10-23 14:44:07 peter
Revision 1.69 2003-10-31 15:52:58 peter
* support creating classes using <class of tobject>.create
Revision 1.68 2003/10/23 14:44:07 peter
* splitted buildderef and buildderefimpl to fix interface crc
calculation