* Patch from Mattias Gaertner: fixed TStreamResolver.FindStreamReader getting a stream twice

git-svn-id: trunk@35468 -

packages/fcl-passrc/src/pscanner.pp

@@ -929,6 +929,7 @@ begin
   S:=FindStream(AName,ScanIncludes);
   If (S<>Nil) then
     begin
+    S.Position:=0;
     SL:=TStreamLineReader.Create(AName);
     try
       SL.InitFromStream(S);