Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Posting-Version: version B 2.10.2 9/18/84; site watnot.UUCP
Path: utzoo!watmath!watnot!mjmartin
From: mjmartin@watnot.UUCP (Marie-Josee Martin)
Newsgroups: net.micro.mac
Subject: TML Pascal ver 2.01 bug
Message-ID: <12125@watnot.UUCP>
Date: Wed, 29-Oct-86 22:43:19 EST
Article-I.D.: watnot.12125
Posted: Wed Oct 29 22:43:19 1986
Date-Received: Thu, 30-Oct-86 06:51:02 EST
Distribution: net
Organization: U of Waterloo, Ontario
Lines: 34

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.