Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Posting-Version: version B 2.10.2 9/18/84; site h-sc1.UUCP
Path: utzoo!watmath!clyde!cbosgd!ihnp4!houxm!whuxl!whuxlm!akgua!gatech!seismo!harvard!h-sc1!moews_b
From: moews_b@h-sc1.UUCP (david moews)
Newsgroups: net.micro.cpm
Subject: Re: Turbo Pascal Version 3.00
Message-ID: <762@h-sc1.UUCP>
Date: Wed, 20-Nov-85 14:01:19 EST
Article-I.D.: h-sc1.762
Posted: Wed Nov 20 14:01:19 1985
Date-Received: Sat, 23-Nov-85 03:57:54 EST
References: <2258@umcp-cs.UUCP>
Reply-To: moews_b@h-sc1.UUCP (david moews)
Followup-To: net.micro.cpm
Distribution: net
Organization: Harvard Univ. Science Center
Lines: 33
Summary: Use the {$A-} option.

In article <2258@umcp-cs.UUCP> Stanley Dunn writes:

> procedure proca(chita:char); forward;
> procedure procb(chitb:char);
> begin
>      writeln('Entering procb with a ',chitb);
>      proca('A');
>      writeln('Leaving procb with a ',chitb);
> end;
> procedure proca;
> begin
>      writeln('Entering proca with a ',chita);
>      if chita = 'I' then procb('I');
>      writeln('Leaving proca with a ',chita);
> end;
> begin
>      proca('I');
> end.
> The output using Turbo Pascal [under CP/M-80] was:
>      Entering proca with a I
>      Entering procb with a I
>      Entering proca with a A
>      Leaving proca with a A
>      Leaving procb with a I
>      Leaving proca with a A
 
   I don't know about Release 3.00, but in Release 2.00 of Turbo Pascal
running under CP/M-80, you must compile recursive procedures and functions
with the {$A-} option for them to work.  Putting a {$A-} line before
the line 'procedure proca(chita:char); forward;' will probably fix this 
problem.   

    David Moews     moews_b%h-sc1@harvard.arpa   ...!harvard!h-sc1!moews_b