Page 1 of 1

Unimplemented feature in SYSTEM.VAL

Posted: Fri Nov 08, 2019 8:12 am
by Zorko

Code: Select all

MODULE Test; IMPORT SYSTEM;
VAR r: REAL;
BEGIN
  r := SYSTEM.VAL(REAL, 7FEFFFFFFFFFFFFFL)
END Test.
261 unsupported mode or size of second argument of SYSTEM.VAL

Re: Unimplemented feature in SYSTEM.VAL

Posted: Fri Nov 08, 2019 8:37 am
by luowy

Code: Select all

MODULE Test; 
	IMPORT SYSTEM;
	IMPORT Log:=StdLog;
	
	PROCEDURE Do*();
		VAR r: REAL;
	BEGIN
		(*r := SYSTEM.VAL(REAL, 7FEFFFFFFFFFFFFFL); *) (*no support*)
		r := 7FEFFFFFFFFFFFFFR; 
		Log.Real(r);Log.Ln;
	END Do;
	
END Test.