ENTIER Trap

[luowy]

this code is wired:

Code: Select all

	PROCEDURE Test* ();
		VAR 
			i, i2: INTEGER;
			x: LONGINT;
			r: REAL;
	BEGIN
		r := MIN(LONGINT);
		 
		x := ENTIER(r); (* not trap *)
		i := SHORT(x);
		
		i2 := SHORT(ENTIER(r)); (*trap!!!*)
	END Test;

the i statement is ok,but i2 statement is trapped;
has anybody Known this question?

luowy

[DGDanforth]

It appears to come from the Kernel and the interpretation of

Code: Select all

excpRec: WinApi.PtrEXCEPTION_RECORD

So it is deep in the fpu and Microsoft code.

[Josef Templ]

Code: Select all

i := SHORT(x);

is an unchecked integer conversion that returns an undefined result.

Code: Select all

i2 := SHORT(ENTIER(r));

is a checked floating point conversion done inside the FPU which does a range check.

- Josef