Problems with file-handling an new GPC Beta_(re)

Wed, 08 Oct 1997 18:19:06 +0100 (MET)

Chris:

You need to close the file before calling reset.  If you add 

  close(f)

just before 

  reset(f)

your program works fine.  Whether this is a *feature* or a *bug* depends on
the definitions of reset/rewrite in the (various) Pascal standard(s).  But it
sounds logical to me that you should close a file prior to opening it for
reading.

Jesper Lund


>To test the new Beta-Version of GPC I wrote a little program like this :
>
>program test;
>
>var
>   i : integer;
>   f : FILE of integer;
>
>begin
>   assign(f,'./test.dat');
>   rewrite(f);
>   for i:=1 to 10
>      do write(f,i);

Add this line:

  close (f);

>   reset(f);
>   while not (eof(f)) do
>   begin
>      read(f,i);
>      writeln(i);
>   end;
>   close(f);
>end.
>
>When compiling there's no error or anything and it compiles quite nice, but
>when running my program I get a message like this :
>
>chris@bockermann:/home/chris/programs/pascal > ./test
>?Gpc: `Reset', SeekUpdate' or `SeekRead' to nonexistent internal file `F'
>
>What did I do wrong ?
>Can anybody help me ?
>

Jesper Lund (jel@hha.dk)