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

* allow nil for class typed consts (merged)

Browse Source
This commit is contained in:
peter 2000-08-24 19:13:18 +00:00
parent 9adb938a0a
commit cc4fed6303
1 changed files with 15 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
compiler/ptconst.pas
View File

@ -724,8 +724,17 @@ unit ptconst;
begin
if ([oo_has_vmt,oo_is_class]*pobjectdef(def)^.objectoptions)<>[] then
begin
Message(parser_e_type_const_not_possible);
consume_all_until(_RKLAMMER);
{ support nil assignment for classes }
if pobjectdef(def)^.is_class and
try_to_consume(_NIL) then
begin
curconstsegment^.concat(new(pai_const,init_32bit(0)));
end
else
begin
Message(parser_e_type_const_not_possible);
consume_all_until(_RKLAMMER);
end;
end
else
begin
@ -800,7 +809,10 @@ unit ptconst;
end.
{
$Log$
Revision 1.4 2000-08-16 13:06:06 florian
Revision 1.5 2000-08-24 19:13:18 peter
* allow nil for class typed consts (merged)
Revision 1.4 2000/08/16 13:06:06 florian
+ support of 64 bit integer constants
Revision 1.3 2000/08/05 13:25:06 peter