🚀 go-pugleaf

Last night I was working with my newly received TML Pascal ver 2.01.  Well,
I managed to find what I think is a bug compiling some of my old programs.

Using the "Plain Vanilla" mode, TML doesn't pass variable text parameters
correctly, at least for input and output.  The following piece of code
compiles correctly but never runs correctly.  Actually, the program hangs
(and sometimes crashes.)


program main (input, output);

  procedure Sread (var f : text);
    begin
      writeln (SizeOf (f));
      get (f);
      while f^ <> 'q' do
        get (f)
    end;
    
  begin
    Sread (input)
  end.


By defining the procedure as:
  
  procedure Sread (f : text);

the program compiles correctly AND executes properly. (Try to figure
that out.)

Hope this saves someone some trouble.

-Marie-Josee.