[BLACKBOX] Trap while compiling SYSTEM.GET

From: Oleg N. Cher <"Oleg>
Date: Wed, 9 May 2012 21:27:02 +0300

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

Dear Marc,

thank you for quick and circumstantial answer.

I'm experimenting with removing the restrictions on code procedure size
and has found a trap, which falls out when compiling of such code. I
think, this will you interesting, but can even useful.



MODULE DevTestCodeSizeProc;
IMPORT SYSTEM, StdLog;

CONST
        Rsrc1_size = 1;

PROCEDURE [code] Rsrc1 0C3H;

PROCEDURE Do* ;
VAR i, x: INTEGER;
BEGIN
        FOR i := 0 TO Rsrc1_size - 1 DO SYSTEM.GET(SYSTEM.ADR(Rsrc1) + i, x);
StdLog.Int(x) END
END Do;

END DevTestCodeSizeProc.



Is there a good way to work with address of code procedure?


What is practical reason of using of code procedures with zero size?
For example, such procedure is used in modules

(System)Kernel - PROCEDURE [code] ALLOC

(System)Math - PROCEDURE [code] FLD (x: REAL);
        PROCEDURE [code] TOP (): REAL;

etc.


Thanks.



Marc Frei wrote:

> Dear Oleg,
>
> Here the response to your question from last week from my colleaugue Beat Heeb who is maintaining the BlackBox compiler:
>
> It is a restriction of the compiler.
>
> The code of a code procedure is stored in object.conval.ext. This is byte array of arbitrary size but the number of bytes used is stored in the first byte (ext^[0]) and thus restricted to 0..255.
>
> To change that you would have to change how this length is stored. Search for "CProc" in all compiler sources.
>
> Kind regards,
> Marc

--
Oleg N. Cher
http://zx.oberon2.ru/
----
To unsubscribe, send a message with body "SIGNOFF BLACKBOX" to LISTSERV{([at]})nowhere.xy----boundary-LibPST-iamunique-39987000_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"
e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGRlZmYwe1xmb250dGJsDQp7XGYwXGZz
d2lzcyBBcmlhbDt9DQp7XGYxXGZtb2Rlcm4gQ291cmllciBOZXc7fQ0Ke1xmMlxmbmlsXGZjaGFy
c2V0MiBTeW1ib2w7fQ0Ke1xmM1xmbW9kZXJuXGZjaGFyc2V0MCBDb3VyaWVyIE5ldzt9fQ0Ke1xj
b2xvcnRibFxyZWQwXGdyZWVuMFxibHVlMDtccmVkMFxncmVlbjBcYmx1ZTI1NTt9DQpcdWMxXHBh
cmRccGxhaW5cZGVmdGFiMzYwIFxmMFxmczIwIERlYXIgTWFyYyxccGFyDQpccGFyDQp0aGFuayB5
b3UgZm9yIHF1aWNrIGFuZCBjaXJjdW1zdGFudGlhbCBhbnN3ZXIuXHBhcg0KXHBhcg0KSSdtIGV4
cGVyaW1lbnRpbmcgd2l0aCByZW1vdmluZyB0aGUgcmVzdHJpY3Rpb25zIG9uIGNvZGUgcHJvY2Vk
dXJlIHNpemUgXHBhcg0KYW5kIGhhcyBmb3VuZCBhIHRyYXAsIHdoaWNoIGZhbGxzIG91dCB3aGVu
IGNvbXBpbGluZyBvZiBzdWNoIGNvZGUuIEkgXHBhcg0KdGhpbmssIHRoaXMgd2lsbCB5b3UgaW50
ZXJlc3RpbmcsIGJ1dCBjYW4gZXZlbiB1c2VmdWwuXHBhcg0KXHBhcg0KXHBhcg0KXHBhcg0KTU9E
VUxFIERldlRlc3RDb2RlU2l6ZVByb2M7XHBhcg0KSU1QT1JUIFNZU1RFTSwgU3RkTG9nO1xwYXIN
ClxwYXINCkNPTlNUXHBhcg0KXHRhYiBSc3JjMV9zaXplID0gMTtccGFyDQpccGFyDQpQUk9DRURV
UkUgW2NvZGVdIFJzcmMxIDBDM0g7XHBhcg0KXHBhcg0KUFJPQ0VEVVJFIERvKiA7XHBhcg0KVkFS
IGksIHg6IElOVEVHRVI7XHBhcg0KQkVHSU5ccGFyDQpcdGFiIEZPUiBpIDo9IDAgVE8gUnNyYzFf
c2l6ZSAtIDEgRE8gU1lTVEVNLkdFVChTWVNURU0uQURSKFJzcmMxKSArIGksIHgpOyBccGFyDQpT
dGRMb2cuSW50KHgpIEVORFxwYXINCkVORCBEbztccGFyDQpccGFyDQpFTkQgRGV2VGVzdENvZGVT
aXplUHJvYy5ccGFyDQpccGFyDQpccGFyDQpccGFyDQpJcyB0aGVyZSBhIGdvb2Qgd2F5IHRvIHdv
cmsgd2l0aCBhZGRyZXNzIG9mIGNvZGUgcHJvY2VkdXJlP1xwYXINClxwYXINClxwYXINCldoYXQg
aXMgcHJhY3RpY2FsIHJlYXNvbiBvZiB1c2luZyBvZiBjb2RlIHByb2NlZHVyZXMgd2l0aCB6ZXJv
IHNpemU/XHBhcg0KRm9yIGV4YW1wbGUsIHN1Y2ggcHJvY2VkdXJlIGlzIHVzZWQgaW4gbW9kdWxl
c1xwYXINClxwYXINCihTeXN0ZW0pS2VybmVsIC0gUFJPQ0VEVVJFIFtjb2RlXSBBTExPQ1xwYXIN
ClxwYXINCihTeXN0ZW0pTWF0aCAtIFx0YWIgUFJPQ0VEVVJFIFtjb2RlXSBGTEQgKHg6IFJFQUwp
O1xwYXINClx0YWIgUFJPQ0VEVVJFIFtjb2RlXSBUT1AgKCk6IFJFQUw7XHBhcg0KXHBhcg0KZXRj
LlxwYXINClxwYXINClxwYXINClRoYW5rcy5ccGFyDQpccGFyDQpccGFyDQpccGFyDQpNYXJjIEZy
ZWkgd3JvdGU6XHBhcg0KXHBhcg0KPiBEZWFyIE9sZWcsXHBhcg0KPiBccGFyDQo+IEhlcmUgdGhl
IHJlc3BvbnNlIHRvIHlvdXIgcXVlc3Rpb24gZnJvbSBsYXN0IHdlZWsgZnJvbSBteSBjb2xsZWF1
Z3VlIEJlYXQgSGVlYiB3aG8gaXMgbWFpbnRhaW5pbmcgdGhlIEJsYWNrQm94IGNvbXBpbGVyOlxw
YXINCj4gXHBhcg0KPiBJdCBpcyBhIHJlc3RyaWN0aW9uIG9mIHRoZSBjb21waWxlci5ccGFyDQo+
IFxwYXINCj4gVGhlIGNvZGUgb2YgYSBjb2RlIHByb2NlZHVyZSBpcyBzdG9yZWQgaW4gb2JqZWN0
LmNvbnZhbC5leHQuIFRoaXMgaXMgYnl0ZSBhcnJheSBvZiBhcmJpdHJhcnkgc2l6ZSBidXQgdGhl
IG51bWJlciBvZiBieXRlcyB1c2VkIGlzIHN0b3JlZCBpbiB0aGUgZmlyc3QgYnl0ZSAoZXh0Xlsw
XSkgYW5kIHRodXMgcmVzdHJpY3RlZCB0byAwLi4yNTUuXHBhcg0KPiBccGFyDQo+IFRvIGNoYW5n
ZSB0aGF0IHlvdSB3b3VsZCBoYXZlIHRvIGNoYW5nZSBob3cgdGhpcyBsZW5ndGggaXMgc3RvcmVk
LiBTZWFyY2ggZm9yICJDUHJvYyIgaW4gYWxsIGNvbXBpbGVyIHNvdXJjZXMuXHBhcg0KPiBccGFy
DQo+IEtpbmQgcmVnYXJkcyxccGFyDQo+IE1hcmNccGFyDQpccGFyDQotLVxwYXINCk9sZWcgTi4g
Q2hlclxwYXINCmh0dHA6Ly96eC5vYmVyb24yLnJ1L1xwYXINClxwYXINClxwYXINCi0tLS1ccGFy
DQpUbyB1bnN1YnNjcmliZSwgc2VuZCBhIG1lc3NhZ2Ugd2l0aCBib2R5ICJTSUdOT0ZGIEJMQUNL
Qk9YIiB0byBMSVNUU0VSVkBMSVNUUy5PQkVST04uQ0h9fQBUTzWK
----boundary-LibPST-iamunique-39987000_-_---

Received on Wed May 09 2012 - 20:27:02 UTC