[fpc-pascal]FindFirst in 1.1 under Win32 does not work correctly

[Petr Titera]

I know it is reported bug (I reported it myself :), but does see it 
anybody else? Attached program writes right number of lines, but it 
doesnt write nor filenames nor file sizes. It works correctly under 
1.0.4. I tried to look at RTL sources of both releases, but it seems to 
be same.

Petr Titera


uses Sysutils;

var
	f : TSearchRec;
	i : LongInt;
	
begin
	i := FindFirst('*.*', faAnyFile, f);
	repeat
		writeln('#', f.name, '#', f.size, '#');
	until (FindNext(f) <> 0);
end.