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

* allow subtypes for enums

Browse Source
This commit is contained in:
peter 2000-12-10 20:24:18 +00:00
parent 5e9dbab759
commit f6eaa4c02b
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/ptconst.pas
View File

@ -398,7 +398,8 @@ implementation
do_firstpass(p);
if p.nodetype=ordconstn then
begin
if is_equal(p.resulttype,def) then
if is_equal(p.resulttype,def) or
is_subequal(p.resulttype,def) then
begin
case p.resulttype^.size of
1 : curconstsegment^.concat(new(pai_const,init_8bit(tordconstnode(p).value)));
@ -407,7 +408,7 @@ implementation
end;
end
else
Message(cg_e_illegal_expression);
Message2(type_e_incompatible_types,def^.typename,p.resulttype^.typename);
end
else
Message(cg_e_illegal_expression);
@ -836,7 +837,10 @@ implementation
end.
{
$Log$
Revision 1.13 2000-11-29 00:30:38 florian
Revision 1.14 2000-12-10 20:24:18 peter
* allow subtypes for enums
Revision 1.13 2000/11/29 00:30:38 florian
* unused units removed from uses clause
* some changes for widestrings