Merged revisions 11041 via svnmerge from

svn+ssh://svn.freepascal.org/FPC/svn/fpc/trunk

........
  r11041 | michael | 2008-05-22 21:38:55 +0200 (Thu, 22 May 2008) | 1 line
  
  * Fixed parsing of initialized procedural variables
........

git-svn-id: branches/fixes_2_2@11042 -

packages/fcl-passrc/src/pparser.pp

@@ -525,7 +525,8 @@ begin
         Result := TPasProcedureType(CreateElement(TPasProcedureType, '', nil));
         ParseProcedureOrFunctionHeader(Result,
           TPasProcedureType(Result), ptProcedure, True);
-        UngetToken;        // Unget semicolon
+        if CurToken=tkSemicolon then  
+          UngetToken;        // Unget semicolon
       end;
     tkFunction:
       begin
@@ -533,7 +534,8 @@ begin
 	  Scanner.CurFilename, Scanner.CurRow);
         ParseProcedureOrFunctionHeader(Result,
           TPasFunctionType(Result), ptFunction, True);
-        UngetToken;        // Unget semicolon
+        if CurToken=tkSemicolon then  
+          UngetToken;        // Unget semicolon
       end;
     else
     begin