Re: [BLACKBOX] 回复: [BLACKBOX] Trap while compiling SYSTE M.GET

From: Oleg N. Cher <"Oleg>
Date: Thu, 10 May 2012 13:41:17 +0300

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

Hi all,

thank you, folks, now I understand more fineness about code procedures
in BlackBox. And I presently understand reason of using wrappers like:

PROCEDURE [code] sin (x: REAL); REAL ... ;
PROCEDURE Sin* (x: REAL); REAL; BEGIN RETURN sin(x) END Sin;

- it used for non-in-lining while call Sin().

And even I understand why code procedure's body in included not in .ocf,
and in .osf (for in-lining).

It's interesting features to use in-line code in such way. And of course
I will include the offered by luowy{([at]})nowhere.xy

Thank you.



luowy{([at]})nowhere.xy

> Oleg N. Cher:
>
>>> has found a trap
>
>
> the compiler trap is triggered by the illegal use ADR funtion:
>
> ...SYSTEM.ADR(Rsrc1);...
>
>>> Is there a good way to work with address of code procedure?
>
> we know the code procedure is inline bytes only ,no ADR at all,
> so we should prevent it:
>
> DevCPB.MOp
>
> FROM
> ....
> | adr:
> IF z.class = Nproc THEN
> ....
>
> TO:
> ...
> | adr:
> IF (z.class = Nproc)&( z.obj.mode#CProc) THEN
>
> ....
>
>
>
>
> luowy

--
Oleg N. Cher
http://zx.oberon2.ru/
----
To unsubscribe, send a message with body "SIGNOFF BLACKBOX" to LISTSERV{([at]})nowhere.xy----boundary-LibPST-iamunique-1418544567_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"
e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGRlZmYwe1xmb250dGJsDQp7XGYwXGZz
d2lzcyBBcmlhbDt9DQp7XGYxXGZtb2Rlcm4gQ291cmllciBOZXc7fQ0Ke1xmMlxmbmlsXGZjaGFy
c2V0MiBTeW1ib2w7fQ0Ke1xmM1xmbW9kZXJuXGZjaGFyc2V0MCBDb3VyaWVyIE5ldzt9fQ0Ke1xj
b2xvcnRibFxyZWQwXGdyZWVuMFxibHVlMDtccmVkMFxncmVlbjBcYmx1ZTI1NTt9DQpcdWMxXHBh
cmRccGxhaW5cZGVmdGFiMzYwIFxmMFxmczIwIEhpIGFsbCxccGFyDQpccGFyDQp0aGFuayB5b3Us
IGZvbGtzLCBub3cgSSB1bmRlcnN0YW5kIG1vcmUgZmluZW5lc3MgYWJvdXQgY29kZSBwcm9jZWR1
cmVzIFxwYXINCmluIEJsYWNrQm94LiBBbmQgSSBwcmVzZW50bHkgdW5kZXJzdGFuZCByZWFzb24g
b2YgdXNpbmcgd3JhcHBlcnMgbGlrZTpccGFyDQpccGFyDQpQUk9DRURVUkUgW2NvZGVdIHNpbiAo
eDogUkVBTCk7IFJFQUwgLi4uIDtccGFyDQpQUk9DRURVUkUgU2luKiAoeDogUkVBTCk7IFJFQUw7
IEJFR0lOIFJFVFVSTiBzaW4oeCkgRU5EIFNpbjtccGFyDQpccGFyDQotIGl0IHVzZWQgZm9yIG5v
bi1pbi1saW5pbmcgd2hpbGUgY2FsbCBTaW4oKS5ccGFyDQpccGFyDQpBbmQgZXZlbiBJIHVuZGVy
c3RhbmQgd2h5IGNvZGUgcHJvY2VkdXJlJ3MgYm9keSBpbiBpbmNsdWRlZCBub3QgaW4gLm9jZiwg
XHBhcg0KYW5kIGluIC5vc2YgKGZvciBpbi1saW5pbmcpLlxwYXINClxwYXINCkl0J3MgaW50ZXJl
c3RpbmcgZmVhdHVyZXMgdG8gdXNlIGluLWxpbmUgY29kZSBpbiBzdWNoIHdheS4gQW5kIG9mIGNv
dXJzZSBccGFyDQpJIHdpbGwgaW5jbHVkZSB0aGUgb2ZmZXJlZCBieSBsdW93eUBTT0hVLkNPTSBw
b3NzaWJpbGl0eSB0byBYRGV2IGJ1aWxkaW5nLlxwYXINClxwYXINClRoYW5rIHlvdS5ccGFyDQpc
cGFyDQpccGFyDQpccGFyDQpsdW93eUBTT0hVLkNPTSB3cm90ZTpccGFyDQpccGFyDQo+IE9sZWcg
Ti4gQ2hlcjpccGFyDQo+IFxwYXINCj4+PiBoYXMgZm91bmQgYSB0cmFwXHBhcg0KPiBccGFyDQo+
IFxwYXINCj4gdGhlIGNvbXBpbGVyIHRyYXAgaXMgdHJpZ2dlcmVkIGJ5IHRoZSBpbGxlZ2FsIHVz
ZSBBRFIgZnVudGlvbjpccGFyDQo+IFxwYXINCj4gLi4uU1lTVEVNLkFEUihSc3JjMSk7Li4uXHBh
cg0KPiBccGFyDQo+Pj4gSXMgdGhlcmUgYSBnb29kIHdheSB0byB3b3JrIHdpdGggYWRkcmVzcyBv
ZiBjb2RlIHByb2NlZHVyZT9ccGFyDQo+ICBccGFyDQo+IHdlIGtub3cgdGhlIGNvZGUgcHJvY2Vk
dXJlIGlzIGlubGluZSBieXRlcyBvbmx5ICxubyBBRFIgYXQgYWxsLFxwYXINCj4gc28gd2Ugc2hv
dWxkIHByZXZlbnQgaXQ6XHBhcg0KPiBccGFyDQo+ICAgRGV2Q1BCLk1PcFxwYXINCj4gICBccGFy
DQo+ICAgRlJPTVxwYXINCj4gICAgLi4uLlxwYXINCj4gICAgfCBhZHI6IFxwYXINCj4gICAgICBJ
RiB6LmNsYXNzID0gTnByb2MgVEhFTlxwYXINCj4gICAgLi4uLlxwYXINCj4gICAgIFxwYXINCj4g
ICAgVE86XHBhcg0KPiAgICAuLi5ccGFyDQo+ICAgIHwgYWRyOlxwYXINCj4gICAgICBJRiAoei5j
bGFzcyA9IE5wcm9jKSYoIHoub2JqLm1vZGUjQ1Byb2MpIFRIRU5ccGFyDQo+IFxwYXINCj4gICAg
Li4uLlxwYXINCj4gIFxwYXINCj4gXHBhcg0KPiBccGFyDQo+IFxwYXINCj4gbHVvd3lccGFyDQpc
cGFyDQotLVxwYXINCk9sZWcgTi4gQ2hlclxwYXINCmh0dHA6Ly96eC5vYmVyb24yLnJ1L1xwYXIN
ClxwYXINClxwYXINCi0tLS1ccGFyDQpUbyB1bnN1YnNjcmliZSwgc2VuZCBhIG1lc3NhZ2Ugd2l0
aCBib2R5ICJTSUdOT0ZGIEJMQUNLQk9YIiB0byBMSVNUU0VSVkBMSVNUUy5PQkVST04uQ0h9fQBl
ciBX
----boundary-LibPST-iamunique-1418544567_-_---

Received on Thu May 10 2012 - 12:41:17 UTC