* Proper fix for initialized variable (including procedures)

git-svn-id: trunk@11052 -

packages/fcl-passrc/src/pparser.pp

@@ -1219,10 +1219,11 @@ var
   Value, S: String;
   M: string;
   H : TPasMemberHints;
-  
+  LastVar : String;
 begin
   while True do
   begin
+    LastVar:=CurTokenString;
     List.Add(CreateElement(TPasVariable, CurTokenString, Parent));
     NextToken;
     if CurToken = tkColon then
@@ -1238,15 +1239,20 @@ begin
     if i > 0 then
       VarType.AddRef;
   end;
-  NextToken;
+//  Writeln(LastVar,': Parsed complex type: ',CurtokenText);
+  // NextToken;
+  // Writeln(LastVar,': Parsed complex type, next: ',CurtokenText);
   If CurToken=tkEqual then
     begin
+    NextToken;
     Value := ParseExpression;
+  //  Writeln(LastVar,' Value :',Value);
     for i := 0 to List.Count - 1 do
       TPasVariable(List[i]).Value := Value;
+//    Writeln(LastVar,': Parsed expression:',CurTokenText);
     end
-  else
-    UngetToken;
+{  else
+    UngetToken};
 
   NextToken;
   if CurToken = tkAbsolute then