[Oberon] Bug? procedure variable in procedure call parameter

[Jan Verhoeven]

volkert at nivoba.de wrote:
> yes, the hilbert graph works, but i not depends on floating point numbers.
>
> if you like, run this code (Scratch.DoIt) and give feedback if it crashes.


First I need to figure out how to compile it.

>
> MODULE Scratch;
> IMPORT Texts, Oberon;
>
>       TYPE Function = PROCEDURE (x:REAL) : REAL;
>
>       VAR W: Texts.Writer;
> 	FunId : Function;
>
>       PROCEDURE RealId(x:REAL):REAL;
>       BEGIN
>           RETURN x
>       END RealId;
>
>
>       PROCEDURE DoIt*;
>       VAR
> 	Test : REAL;
>       BEGIN
> 	(* Test := FunId(1.0); *)		
> 	Texts.WriteRealFix(W, FunId(1.0), 5,3);
> 	Texts.WriteRealFix(W, RealId(1.0), 5,3);
> 	Texts.WriteLn(W);
> 	Texts.Append(Oberon.Log, W.buf)
>       END DoIt;
>
> BEGIN Texts.OpenWriter(W);
>         FunId := RealId;
> END Scratch.
>
>
>
> Am 06.04.2014 14:56, schrieb Jan Verhoeven:
>> volkert at nivoba.de wrote:
>>> Any news here regarding the FP problems? The latest "RISC.img" is from
>>> 28.03.2014.
>> My 'risc system' runs with the 28 Mar 2014 (16:57) image. I can do the
>> Hilbert graph. Haven't tested much else.
>>
>>
>
> --
> Oberon at lists.inf.ethz.ch mailing list for ETH Oberon and related systems
> https://lists.inf.ethz.ch/mailman/listinfo/oberon
>
>


-- 
Groetjes

Jan Verhoeven