[Oberon] Bug? procedure variable in procedure call parameter

[volkert at nivoba.de]

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.

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.
>
>