BlackBox Component Builder

The following module leads to a compiler TRAP:

MODULE TestLongintDIV;
TYPE Object = POINTER TO RECORD int: INTEGER END ;
VAR u: Object; L: LONGINT;  
BEGIN NEW(u); u.int :=1;
  L := LONG(u.int) DIV u.int (* compiler TRAP 0 in DevCPC486.CheckAv *)
END TestLongintDIV.

A proposal based on contributions by luowy and Aubrey McIntosh for fixing this bug exists in CPC 1.7 rc5 (http://blackboxframework.org/archive/2011/3612.html)

Reported by Robert, 2011-12-18 (http://blackboxframework.org/archive/2011/3621.html).
Refers to CPC 1.7 rc5 change list number 18.