* Forgot to commit

git-svn-id: trunk@21835 -

packages/fcl-passrc/src/pastree.pp

@@ -506,7 +506,8 @@ type
   public
     Access: TArgumentAccess;
     ArgType: TPasType;
-    Value: string;
+    ValueExpr: TPasExpr;
+    Function Value : String;
   end;
 
   { TPasProcedureType }
@@ -1452,6 +1453,7 @@ destructor TPasArgument.Destroy;
 begin
   if Assigned(ArgType) then
     ArgType.Release;
+  FreeAndNil(ValueExpr);
   inherited Destroy;
 end;
 
@@ -2446,6 +2448,14 @@ begin
     Result:='';
 end;
 
+function TPasArgument.Value: String;
+begin
+  If Assigned(ValueExpr) then
+    Result:=ValueExpr.GetDeclaration(true)
+  else
+    Result:='';
+end;
+
 
 
 { TPassTreeVisitor }