🚀 go-pugleaf

There is simple fix to the STREAMS modulein the TDI/ Amiga
Modula-2 compiler if you have the sources. The sources are
provided as a part of the developers package (on disk #2 in
directory UtilSources). All you have to do is to change all
procedure declarations in STREAMS.DEF to take STREAM as a VAR
parameter. For example:

OLD:  PROCEDURE ReadChar (s:SREAM; VAR C:CHAR);

Should be: PROCEDURE ReadChar (VAR s:STREAM; VAR C:CHAR);

Change the implementation module in a corresponding manner.
Then just recompile STREAMs and InOut.MOD.
That should help. If you still have problems there is another
problem in InOut. They way EOF is detected is not quite correct.
The code for detecting EOF is :

OLD :  Done := In.Res = Streams.Donee;

SHOULD BE: Done := In.Res=Streams.Done AND NOT In.Eof;

Hope this helps.........


						
						Richard Bielak
					compuserve: 75716,352
					or c/o oc.trei@cu20b.arpa
-------