Path: utzoo!attcan!utgpu!news-server.csri.toronto.edu!rutgers!cs.utexas.edu!samsung!dali.cs.montana.edu!ogicse!zephyr.ens.tek.com!tektronix!nosun!qiclab!m2xenix!puddle!p101.f4.n494.z5.fidonet.org!Pat.Terry
From: Pat.Terry@p101.f4.n494.z5.fidonet.org (Pat Terry)
Newsgroups: comp.lang.modula2
Subject: Bug in FST Filesystem module
Message-ID: <1880.26F2413C@puddle.fidonet.org>
Date: 15 Sep 90 17:15:31 GMT
Sender: ufgate@puddle.fidonet.org (newsout1.26)
Organization: FidoNet node 5:494/4.101 - Settler City Fido, Grahamstown RSA
Lines: 40

There appears to be a bug in the FST Filesystem module.  For those of you with
sources, it is easy to correct.

I reported this to Roger Carvalho, and he has akske me to publicize the 
correction

PROCEDURE Reset( VAR f :File );
BEGIN
    SetPos(f,0,0);
    f.eof := FALSE;      (* <------ this line was missing *)
    f.res := done;
END Reset;

PROCEDURE Rewrite( VAR f :File );
VAR c   :CHAR;
    n   :CARDINAL;
BEGIN
    SetPos(f,0,0);
    f.eof := TRUE;       (* <-------- this line was missing *)
    writebytes(f.id,ADR(c),0,n);        (* truncate the file! *)
    IF errno = 0 THEN
        f.res := done
    END;
END Rewrite;

Roger can be reached by e-mail as CARVALHO_ROGER#PLANO@tandem.com

(note the underscore and the hash characters)




 




--  
uucp: uunet!m2xenix!puddle!5!494!4.101!Pat.Terry
Internet: Pat.Terry@p101.f4.n494.z5.fidonet.org