fcl-passrc: useanalyzer: if then else ;

git-svn-id: trunk@39932 -

packages/fcl-passrc/src/pasuseanalyzer.pas

@@ -1112,6 +1112,8 @@ begin
     UseImplElement(TPasImplIfElse(El).IfBranch);
     UseImplElement(TPasImplIfElse(El).ElseBranch);
     end
+  else if C=TPasImplCommand then
+    // used for if-then <empty> -> nothing to do
   else if C=TPasImplLabelMark then
     // label mark
   else if C=TPasImplRepeatUntil then

packages/fcl-passrc/tests/tcuseanalyzer.pas

@@ -674,6 +674,7 @@ begin
   Add('  {#c_used}c: longint;');
   Add('begin');
   Add('  if a=0 then b:=1 else c:=2;');
+  Add('  if a=0 then else ;');
   Add('end;');
   Add('begin');
   Add('  DoIt;');