paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 11:49:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed formatting

Browse Source 
git-svn-id: trunk@26607 -
This commit is contained in:
Jonas Maebe 2014-01-28 20:14:10 +00:00
parent 9e0af11ad8
commit 9c4505045b
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/pexpr.pas
View File

@ -1357,7 +1357,8 @@ implementation
{ allow Ordinal(Value) for type declarations since it
can be an enummeration declaration or a set lke:
(OrdinalType(const1)..OrdinalType(const2) }
if (not typeonly or is_ordinal(hdef))and try_to_consume(_LKLAMMER) then
if (not typeonly or is_ordinal(hdef)) and
try_to_consume(_LKLAMMER) then
begin
result:=comp_expr(true,false);
consume(_RKLAMMER);
@ -1368,9 +1369,9 @@ implementation
else
result:=ctypeconvnode.create_explicit(result,hdef);
end
else { not LKLAMMER }
if (token=_POINT) and
(is_object(hdef) or is_record(hdef)) then
{ not LKLAMMER }
else if (token=_POINT) and
(is_object(hdef) or is_record(hdef)) then
begin
consume(_POINT);
{ handles calling methods declared in parent objects