11 Jan
2003
11 Jan
'03
11:17 p.m.
J. David Bryan wrote:
The correct problem description is as follows. Given this instrumented version of the test program:
program fjf663;
uses GPC;
var f: ^Text; s: array [1 .. 1] of PAnyFile;
begin writeln; writeln (ParamStr (1)); repeat New (f); Reset (f^, ParamStr (1)); writeln (FileHandle (f^)) until FileHandle (f^) >= 8; s[1] := f; writeln (IOSelectRead (s, 0)); if IOSelectRead (s, 0) = 1 then WriteLn ('OK') else WriteLn ('failed') end.
...I obtain these results:
GPC-TEST-BEGIN
TEST fjf663.pas: ./fjf663.pas 3 4 5 6 7 8 -1 failed ========================== GPC-TEST-END
So the infinte loop disappeared?
Frank
--
Frank Heckenbach, frank@g-n-u.de, http://fjf.gnu.de/, 7977168E
GPC To-Do list, latest features, fixed bugs:
http://www.gnu-pascal.de/todo.html
GPC download signing key: 51FF C1F0 1A77 C6C2 4482 4DDC 117A 9773 7F88 1707