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

* fixed comment

Browse Source 
+ added extra sanity check when parsing a type constant set
  + added brackets around or/and expression to make it clear what the meaning
    is

git-svn-id: trunk@15269 -
This commit is contained in:
Jonas Maebe 2010-05-13 18:18:33 +00:00
parent 7fea1915e4
commit 38e0e0ca29
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/ptconst.pas
View File

@ -594,14 +594,13 @@ implementation
it can generate smallset data instead of normalset (PFV) }
inserttypeconv(p,def);
{ we only allow const sets }
if assigned(tsetconstnode(p).left) then
if (p.nodetype<>setconstn) or
assigned(tsetconstnode(p).left) then
Message(parser_e_illegal_expression)
else
begin
tsetconstnode(p).adjustforsetbase;
{ this writing is endian independant }
{ untrue - because they are considered }
{ arrays of 32-bit values CEC }
{ this writing is endian-dependant }
if source_info.endian = target_info.endian then
begin
for i:=0 to p.resultdef.size-1 do
@ -775,8 +774,8 @@ implementation
result:=true;
n:=comp_expr(true);
if (n.nodetype <> ordconstn) or
not equal_defs(n.resultdef,def) and
not is_subequal(n.resultdef,def) then
(not equal_defs(n.resultdef,def) and
not is_subequal(n.resultdef,def)) then
begin
n.free;
incompatibletypes(n.resultdef,def);