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

* use a case statement instead of nested if-then statements

Browse Source 
git-svn-id: trunk@47998 -
This commit is contained in:
svenbarth 2021-01-02 23:23:20 +00:00
parent 43ba5b69d2
commit f42b39a7b5
1 changed files with 11 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
compiler/pexpr.pas
View File

@ -3558,17 +3558,18 @@ implementation
(block_type=bt_body) and (block_type=bt_body) and
(token in [_LT,_LSHARPBRACKET]) then (token in [_LT,_LSHARPBRACKET]) then
begin begin
if p1.nodetype=typen then idstr:='';
idstr:=ttypenode(p1).typesym.name case p1.nodetype of
else typen:
if (p1.nodetype=loadvmtaddrn) and idstr:=ttypenode(p1).typesym.name;
(tloadvmtaddrnode(p1).left.nodetype=typen) then loadvmtaddrn:
idstr:=ttypenode(tloadvmtaddrnode(p1).left).typesym.name if tloadvmtaddrnode(p1).left.nodetype=typen then
idstr:=ttypenode(tloadvmtaddrnode(p1).left).typesym.name;
loadn:
idstr:=tloadnode(p1).symtableentry.name;
else else
if (p1.nodetype=loadn) then ;
idstr:=tloadnode(p1).symtableentry.name end;
else
idstr:='';
{ if this is the case then the postfix handling is done in { if this is the case then the postfix handling is done in
sub_expr if necessary } sub_expr if necessary }
dopostfix:=not could_be_generic(idstr); dopostfix:=not could_be_generic(idstr);