[BLACKBOX] Another trap during compile

From: Oleg N. Cher <"Oleg>
Date: Wed, 20 Oct 2010 17:08:04 +0300

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

Dear Oberon Microsystems,

If you collect traps during compile ;-) You have another:


MODULE Trap;
IMPORT SYSTEM;

PROCEDURE MapRGB* (): INTEGER;
BEGIN
    RETURN 0
END MapRGB;

PROCEDURE A* (): LONGINT;
BEGIN
  RETURN SYSTEM.VAL(LONGINT, MapRGB())
END A;

END Trap.
 

If VAL(LONGINT, MapRGB()) changed to VAL(LONGINT, i)
[where i is INTEGER variable], it builds without problems.

Respectfully yours,
Oleg N. Cher, from Vedanta software

----
To unsubscribe, send a message with body "SIGNOFF BLACKBOX" to LISTSERV{([at]})nowhere.xy----boundary-LibPST-iamunique-1629164617_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"
e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGRlZmYwe1xmb250dGJsDQp7XGYwXGZz
d2lzcyBBcmlhbDt9DQp7XGYxXGZtb2Rlcm4gQ291cmllciBOZXc7fQ0Ke1xmMlxmbmlsXGZjaGFy
c2V0MiBTeW1ib2w7fQ0Ke1xmM1xmbW9kZXJuXGZjaGFyc2V0MCBDb3VyaWVyIE5ldzt9fQ0Ke1xj
b2xvcnRibFxyZWQwXGdyZWVuMFxibHVlMDtccmVkMFxncmVlbjBcYmx1ZTI1NTt9DQpcdWMxXHBh
cmRccGxhaW5cZGVmdGFiMzYwIFxmMFxmczIwIERlYXIgT2Jlcm9uIE1pY3Jvc3lzdGVtcyxccGFy
DQpccGFyDQpJZiB5b3UgY29sbGVjdCB0cmFwcyBkdXJpbmcgY29tcGlsZSA7LSkgWW91IGhhdmUg
YW5vdGhlcjpccGFyDQpccGFyDQpccGFyDQpNT0RVTEUgVHJhcDtccGFyDQpJTVBPUlQgU1lTVEVN
O1xwYXINClxwYXINClBST0NFRFVSRSBNYXBSR0IqICgpOiBJTlRFR0VSO1xwYXINCkJFR0lOXHBh
cg0KICAgIFJFVFVSTiAwXHBhcg0KRU5EIE1hcFJHQjtccGFyDQpccGFyDQpQUk9DRURVUkUgQSog
KCk6IExPTkdJTlQ7XHBhcg0KQkVHSU5ccGFyDQogIFJFVFVSTiBTWVNURU0uVkFMKExPTkdJTlQs
IE1hcFJHQigpKVxwYXINCkVORCBBO1xwYXINClxwYXINCkVORCBUcmFwLlxwYXINCiBccGFyDQpc
cGFyDQpJZiBWQUwoTE9OR0lOVCwgTWFwUkdCKCkpIGNoYW5nZWQgdG8gVkFMKExPTkdJTlQsIGkp
XHBhcg0KW3doZXJlIGkgaXMgSU5URUdFUiB2YXJpYWJsZV0sIGl0IGJ1aWxkcyB3aXRob3V0IHBy
b2JsZW1zLlxwYXINClxwYXINClJlc3BlY3RmdWxseSB5b3VycyxccGFyDQpPbGVnIE4uIENoZXIs
IGZyb20gVmVkYW50YSBzb2Z0d2FyZVxwYXINClxwYXINClxwYXINCi0tLS1ccGFyDQpUbyB1bnN1
YnNjcmliZSwgc2VuZCBhIG1lc3NhZ2Ugd2l0aCBib2R5ICJTSUdOT0ZGIEJMQUNLQk9YIiB0byBM
SVNUU0VSVkBMSVNUUy5PQkVST04uQ0h9fQBzaGtp
----boundary-LibPST-iamunique-1629164617_-_---

Received on Wed Oct 20 2010 - 16:08:04 UTC