paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 05:39:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ published single properties can have a default value now

Browse Source
This commit is contained in:
florian 2003-11-10 18:06:25 +00:00
parent 69f8751c7a
commit f2ad2b9d19
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/pdecobj.pas
View File

@ -508,6 +508,7 @@ implementation
if not(is_ordinal(p.proptype.def) or if not(is_ordinal(p.proptype.def) or
is_64bitint(p.proptype.def) or is_64bitint(p.proptype.def) or
is_class(p.proptype.def) or is_class(p.proptype.def) or
is_single(p.proptype.def) or
(p.proptype.def.deftype in [classrefdef,pointerdef]) or (p.proptype.def.deftype in [classrefdef,pointerdef]) or
((p.proptype.def.deftype=setdef) and ((p.proptype.def.deftype=setdef) and
(tsetdef(p.proptype.def).settype=smallset))) or (tsetdef(p.proptype.def).settype=smallset))) or
@ -542,6 +543,8 @@ implementation
p.default:=tordconstnode(pt).value; p.default:=tordconstnode(pt).value;
niln : niln :
p.default:=0; p.default:=0;
realconstn:
p.default:=longint(single(trealconstnode(pt).value_real));
end; end;
pt.free; pt.free;
end; end;
@ -1157,7 +1160,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.72 2003-10-30 16:23:13 peter Revision 1.73 2003-11-10 18:06:25 florian
+ published single properties can have a default value now
Revision 1.72 2003/10/30 16:23:13 peter
* don't search for overloads in parents for constructors * don't search for overloads in parents for constructors
Revision 1.71 2003/10/22 15:22:33 peter Revision 1.71 2003/10/22 15:22:33 peter