[BLACKBOX] Trap 0 when working with LONGINT DIV

From: Oleg N. Cher <"Oleg>
Date: Tue, 28 May 2013 18:44:25 +0300

----boundary-LibPST-iamunique-1198427210_-_-
Content-type: text/plain

Dear All,

I have a trap while compiling this code:

     (* BlackBox Component Builder 1.6-rc6 Windows XP *)
     MODULE LongintDIV;

     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 ; (* TRAP 0 is here *)
     (* If rewrite the code as L := LONG(u.int); L := L DIV u.int; then
all compiles OK. *)
     END LongintDIV.


     TRAP 0

     DevCPC486.CheckAv [00000526H]
.reg INTEGER 0
     DevCPC486.Floor [00002E20H]
.c DevCPL486.Item fields
.local INTEGER 2288212
.useSt1 BOOLEAN FALSE
.x DevCPL486.Item fields
     DevCPC486.FloatDOp [00004708H]
.a DevCPL486.Item fields
.b DevCPL486.Item fields
.local INTEGER 0
.rev BOOLEAN FALSE
.subcl BYTE 3
.x DevCPL486.Item fields
.y DevCPL486.Item fields

Is there a fix for this problem? Maybe I've missed it...

--
Oleg N. Cher
VEDAsoft Oberon Club
http://zx.oberon2.ru
----
To unsubscribe, send a message with body "SIGNOFF BLACKBOX" to LISTSERV{([at]})nowhere.xy----boundary-LibPST-iamunique-1198427210_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"
e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGZiaWRpcyBcZGVmZjB7XGZvbnR0YmwN
CntcZjBcZnN3aXNzIEFyaWFsO30NCntcZjFcZm1vZGVybiBDb3VyaWVyIE5ldzt9DQp7XGYyXGZu
aWxcZmNoYXJzZXQyIFN5bWJvbDt9DQp7XGYzXGZtb2Rlcm5cZmNoYXJzZXQwIENvdXJpZXIgTmV3
O319DQp7XGNvbG9ydGJsXHJlZDBcZ3JlZW4wXGJsdWUwO1xyZWQwXGdyZWVuMFxibHVlMjU1O30N
Clx1YzFccGFyZFxwbGFpblxkZWZ0YWIzNjAgXGYwXGZzMjAgRGVhciBBbGwsXHBhcg0KXHBhcg0K
SSBoYXZlIGEgdHJhcCB3aGlsZSBjb21waWxpbmcgdGhpcyBjb2RlOlxwYXINClxwYXINCiAgICAg
KCogQmxhY2tCb3ggQ29tcG9uZW50IEJ1aWxkZXIgMS42LXJjNiBXaW5kb3dzIFhQICopXHRhYiBc
cGFyDQogICAgIE1PRFVMRSBMb25naW50RElWO1xwYXINClxwYXINCiAgICAgVFlQRVxwYXINCiAg
ICAgT2JqZWN0ID0gUE9JTlRFUiBUTyBSRUNPUkQgaW50OiBJTlRFR0VSIEVORCA7XHBhcg0KICAg
ICBWQVJccGFyDQogICAgIHUgOiBPYmplY3Q7XHBhcg0KICAgICBMIDogTE9OR0lOVDtccGFyDQog
ICAgIEJFR0lOXHBhcg0KICAgICBORVcodSk7XHBhcg0KICAgICB1LmludCA6PTE7XHBhcg0KICAg
ICBMIDo9IExPTkcodS5pbnQpIERJViB1LmludCA7ICgqIFRSQVAgMCBpcyBoZXJlICopXHBhcg0K
ICAgICAoKiBJZiByZXdyaXRlIHRoZSBjb2RlIGFzIEwgOj0gTE9ORyh1LmludCk7IEwgOj0gTCBE
SVYgdS5pbnQ7IHRoZW4gXHBhcg0KYWxsIGNvbXBpbGVzIE9LLiAqKVxwYXINCiAgICAgRU5EIExv
bmdpbnRESVYuXHBhcg0KXHBhcg0KXHBhcg0KICAgICBUUkFQIDBccGFyDQpccGFyDQogICAgIERl
dkNQQzQ4Ni5DaGVja0F2IFswMDAwMDUyNkhdXHBhcg0KICAgICAucmVnXHRhYiBJTlRFR0VSXHRh
YiAwXHBhcg0KICAgICBEZXZDUEM0ODYuRmxvb3IgWzAwMDAyRTIwSF1ccGFyDQogICAgIC5jXHRh
YiBEZXZDUEw0ODYuSXRlbVx0YWIgZmllbGRzXHBhcg0KICAgICAubG9jYWxcdGFiIElOVEVHRVJc
dGFiIDIyODgyMTJccGFyDQogICAgIC51c2VTdDFcdGFiIEJPT0xFQU5cdGFiIEZBTFNFXHBhcg0K
ICAgICAueFx0YWIgRGV2Q1BMNDg2Lkl0ZW1cdGFiIGZpZWxkc1xwYXINCiAgICAgRGV2Q1BDNDg2
LkZsb2F0RE9wIFswMDAwNDcwOEhdXHBhcg0KICAgICAuYVx0YWIgRGV2Q1BMNDg2Lkl0ZW1cdGFi
IGZpZWxkc1xwYXINCiAgICAgLmJcdGFiIERldkNQTDQ4Ni5JdGVtXHRhYiBmaWVsZHNccGFyDQog
ICAgIC5sb2NhbFx0YWIgSU5URUdFUlx0YWIgMFxwYXINCiAgICAgLnJldlx0YWIgQk9PTEVBTlx0
YWIgRkFMU0VccGFyDQogICAgIC5zdWJjbFx0YWIgQllURVx0YWIgM1xwYXINCiAgICAgLnhcdGFi
IERldkNQTDQ4Ni5JdGVtXHRhYiBmaWVsZHNccGFyDQogICAgIC55XHRhYiBEZXZDUEw0ODYuSXRl
bVx0YWIgZmllbGRzXHBhcg0KXHBhcg0KSXMgdGhlcmUgYSBmaXggZm9yIHRoaXMgcHJvYmxlbT8g
TWF5YmUgSSd2ZSBtaXNzZWQgaXQuLi5ccGFyDQpccGFyDQpccGFyDQotLVxwYXINCk9sZWcgTi4g
Q2hlclxwYXINClZFREFzb2Z0IE9iZXJvbiBDbHViXHBhcg0KaHR0cDovL3p4Lm9iZXJvbjIucnVc
cGFyDQpccGFyDQpccGFyDQotLS0tXHBhcg0KVG8gdW5zdWJzY3JpYmUsIHNlbmQgYSBtZXNzYWdl
IHdpdGggYm9keSAiU0lHTk9GRiBCTEFDS0JPWCIgdG8gTElTVFNFUlZATElTVFMuT0JFUk9OLkNI
XHBhcg0KfQ==
----boundary-LibPST-iamunique-1198427210_-_---

Received on Tue May 28 2013 - 17:44:25 UTC