[Oberon] Treatment of parameter-less procedure type in ORP.Mod.txt

[Jörg Straube]

You're right.
The statement "ptype.nofpar := nofpar" should be taken out of the IF and be put just before the end of the procedure.
But luckily, ptype is filled with 0 by NEW :-)

Jörg

> Am 09.07.2016 um 14:55 schrieb Srinivas Nayak <sinu.nayak2001 at gmail.com>:
> 
> Dear All,
> 
> I think ORP.Mod.txt missed to make
> ptype.nofpar := 0; in PROCEDURE ProcedureType()
> for parameter-less procedure types...
> 
> Such as:
> 
>    TYPE Command* = PROCEDURE;
> BEGIN
>    body   (*initialize module*)
> END
> 
> 
> Not sure how Oberon compiler manages to get nofpar = 0!
> Or, I am missing it somewhere?
> Or, is there a chance of any memory chunk pre-initialized to 0 in Oberon?
> 
> 
> 
> With thanks and best regards,
> 
> Yours sincerely,
> Srinivas Nayak
> 
> Home: http://www.mathmeth.com/sn/
> Blog: http://srinivas-nayak.blogspot.in/
> --
> Oberon at lists.inf.ethz.ch mailing list for ETH Oberon and related systems
> https://lists.inf.ethz.ch/mailman/listinfo/oberon