bugs?

Tue, 14 Oct 1997 12:29:41 +0100

Hallo!
I think I discovered two bugs.
I am using gpc-970714 beta version,on digital alpha 
unix.
The first is very strange:
var i:integer;
read(f,i);
reads 110 in i if the file f begin with
10
but correctly reads 10 if f contains
10
The second is schematized in the following
PROCEDURE readdata;
VAR
   f	: bindable text;
   c	: BindingType;
   i	: integer;
BEGIN
   WRITELN('dammi il file di input');
   READLN(c.name);
   bind(f,c);
   SeekRead(f,0);
END;
PROCEDURE printdata;
VAR
   f	: bindable text;
   c	: BindingType;
   i	: integer;
BEGIN
   WRITELN('dammi il file di output');
   READLN(c.name);
   bind(f,c);
   SeekWrite(f,0);
END;

f I believe should be local to readdata and printdata,
but calling printdata after readdata gives the error
?Gpc: Object (0x11ffffba8) already bound to `inizia'
where inizia is the input file name.

unbind(f) eliminates the error message.
I hope I were of any help
Fulvio Ciriaco

fulvio ciriaco (system@petrella.cfilm.ba.cnr.it (fulvio ciriaco))