* Fixed memory leak with unary expressions

git-svn-id: trunk@21934 -

packages/fcl-passrc/src/pparser.pp

@@ -1373,7 +1373,7 @@ begin
             expstack.Add(x);
             end
            else
-            expstack.Add( TUnaryExpr.Create(AParent, PopExp, TokenToExprOp(tempop) ));
+            expstack.Add( TUnaryExpr.Create(AParent, x, TokenToExprOp(tempop) ));
         end;
 
       end else