Re: [BLACKBOX] Trap 0 when working with LONGINT DIV

From: [at]} <>
Date: Wed, 29 May 2013 00:15:33 +0800

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

hi Oleg N. Cher,

see 2011.12.20 email:

add one line:

DevCPC486.FloatDOp
...
| div:
IF y.mode # Reg THEN LoadR(y); END;(* <<< add this line *)
IF rev THEN Dev2CPL486.GenFDOp(FDIVR, y) ELSE Dev2CPL486.GenFDOp(FDIV, y) END;
Floor(y,FALSE)
...




luowy




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.

----
To unsubscribe, send a message with body "SIGNOFF BLACKBOX" to LISTSERV{([at]})nowhere.xy----boundary-LibPST-iamunique-1163821529_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"
e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGZiaWRpcyBcZGVmZjB7XGZvbnR0YmwN
CntcZjBcZnN3aXNzIEFyaWFsO30NCntcZjFcZm1vZGVybiBDb3VyaWVyIE5ldzt9DQp7XGYyXGZu
aWxcZmNoYXJzZXQyIFN5bWJvbDt9DQp7XGYzXGZtb2Rlcm5cZmNoYXJzZXQwIENvdXJpZXIgTmV3
O319DQp7XGNvbG9ydGJsXHJlZDBcZ3JlZW4wXGJsdWUwO1xyZWQwXGdyZWVuMFxibHVlMjU1O30N
Clx1YzFccGFyZFxwbGFpblxkZWZ0YWIzNjAgXGYwXGZzMjAgaGkgT2xlZyBOLiBDaGVyLFxwYXIN
ClxwYXINCnNlZSAyMDExLjEyLjIwIGVtYWlsOlxwYXINClxwYXINCmFkZCBvbmUgbGluZTpccGFy
DQpccGFyDQpEZXZDUEM0ODYuRmxvYXRET3BccGFyDQouLi5ccGFyDQp8IGRpdjpccGFyDQpJRiB5
Lm1vZGUgIyBSZWcgVEhFTiBMb2FkUih5KTsgRU5EOygqIDw8PCBhZGQgdGhpcyBsaW5lICopXHBh
cg0KSUYgcmV2IFRIRU4gRGV2MkNQTDQ4Ni5HZW5GRE9wKEZESVZSLCB5KSBFTFNFIERldjJDUEw0
ODYuR2VuRkRPcChGRElWLCB5KSBFTkQ7XHBhcg0KRmxvb3IoeSxGQUxTRSlccGFyDQouLi4gXHBh
cg0KXHBhcg0KXHBhcg0KXHBhcg0KXHBhcg0KbHVvd3lccGFyDQpccGFyDQpccGFyDQpccGFyDQpc
cGFyDQpEZWFyIEFsbCxccGFyDQpccGFyDQpJIGhhdmUgYSB0cmFwIHdoaWxlIGNvbXBpbGluZyB0
aGlzIGNvZGU6XHBhcg0KXHBhcg0KICAgICAoKiBCbGFja0JveCBDb21wb25lbnQgQnVpbGRlciAx
LjYtcmM2IFdpbmRvd3MgWFAgKilcdGFiIFxwYXINCiAgICAgTU9EVUxFIExvbmdpbnRESVY7XHBh
cg0KXHBhcg0KICAgICBUWVBFXHBhcg0KICAgICBPYmplY3QgPSBQT0lOVEVSIFRPIFJFQ09SRCBp
bnQ6IElOVEVHRVIgRU5EIDtccGFyDQogICAgIFZBUlxwYXINCiAgICAgdSA6IE9iamVjdDtccGFy
DQogICAgIEwgOiBMT05HSU5UO1xwYXINCiAgICAgQkVHSU5ccGFyDQogICAgIE5FVyh1KTtccGFy
DQogICAgIHUuaW50IDo9MTtccGFyDQogICAgIEwgOj0gTE9ORyh1LmludCkgRElWIHUuaW50IDsg
KCogVFJBUCAwIGlzIGhlcmUgKilccGFyDQogICAgICgqIElmIHJld3JpdGUgdGhlIGNvZGUgYXMg
TCA6PSBMT05HKHUuaW50KTsgTCA6PSBMIERJViB1LmludDsgdGhlbiBccGFyDQphbGwgY29tcGls
ZXMgT0suICopXHBhcg0KICAgICBFTkQgTG9uZ2ludERJVi5ccGFyDQpccGFyDQpccGFyDQotLS0t
XHBhcg0KVG8gdW5zdWJzY3JpYmUsIHNlbmQgYSBtZXNzYWdlIHdpdGggYm9keSAiU0lHTk9GRiBC
TEFDS0JPWCIgdG8gTElTVFNFUlZATElTVFMuT0JFUk9OLkNIfX0AMDEzIA==
----boundary-LibPST-iamunique-1163821529_-_---

Received on Tue May 28 2013 - 18:15:33 UTC