fcl-passrc: parser: fixed parent of TPasArgument.Value

git-svn-id: trunk@38567 -

packages/fcl-passrc/src/pparser.pp

@@ -4349,7 +4349,7 @@ begin
             ParseExc(nParserPropertyArgumentsCanNotHaveDefaultValues,
               SParserPropertyArgumentsCanNotHaveDefaultValues);
           NextToken;
-          Value := DoParseExpression(Parent,Nil);
+          Value := DoParseExpression(Arg,Nil);
           // After this, we're on ), which must be unget.
           LastHadDefaultValue:=true;
           end