(unknown charset) Re: [BLACKBOX] Zlib under BlackBox?

From: (unknown charset) Douglas G. Danforth <"Douglas>
Date: Sat, 4 Oct 2008 15:22:56 -0700

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

In the platform dependent documentation of Blackbox one finds for SYSTEM

    LSH(x, n) x, n: integer type* type of x logical shift (n >
0: left, n < 0: right)
    * integer types without LONGINT

hence

  SYSTEM.LSH(c, -1)

is invalid (it is also meaningless since c has not been initialized).
Note that one can use BITS to obtain a set

    set := BITS(poly)

-Doug Danforth


Oleg N. Cher wrote:
> Hello All,
>
> I'm trying to port Stefan Walthert's Oberon Zlib to BlackBox.
> The port makes many of errors, and I not sure in its stable working.
> Are there any good ideas? (Using of zlib.dll is undesirable)
>
> In progress of work I have some problems.
> BlackBox 1.6-rc5 makes trap 0 while compiling this module:
>
> MODULE Trap0;
> IMPORT SYSTEM;
>
> PROCEDURE InitCRCTable*();
> CONST
> poly = 0EDB88320H;
> VAR
> c: LONGINT;
> BEGIN
> c := SYSTEM.VAL(LONGINT, SYSTEM.VAL(SET, poly)/SYSTEM.VAL(SET, SYSTEM.LSH(c, -1)))
> END InitCRCTable;
>
> END Trap0.
>
> And, too, it traps while compiling this module:
> http://stefcr.mgslab.com/files/Buffers.odc
>
> Thank you.
>
> --
> Oleg N. Cher.
>
>
> ----
> To unsubscribe, send a message with body "SIGNOFF BLACKBOX" to LISTSERV{([at]})nowhere.xy
>
>
>

----
To unsubscribe, send a message with body "SIGNOFF BLACKBOX" to LISTSERV{([at]})nowhere.xy----boundary-LibPST-iamunique-922733587_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"
e1xydGYxXGFuc2lcYW5zaWNwZzEyNTFcZnJvbXRleHQgXGRlZmYwe1xmb250dGJsDQp7XGYwXGZz
d2lzcyBBcmlhbDt9DQp7XGYxXGZtb2Rlcm4gQ291cmllciBOZXc7fQ0Ke1xmMlxmbmlsXGZjaGFy
c2V0MiBTeW1ib2w7fQ0Ke1xmM1xmbW9kZXJuXGZjaGFyc2V0MCBDb3VyaWVyIE5ldzt9fQ0Ke1xj
b2xvcnRibFxyZWQwXGdyZWVuMFxibHVlMDtccmVkMFxncmVlbjBcYmx1ZTI1NTt9DQpcdWMxXHBh
cmRccGxhaW5cZGVmdGFiMzYwIFxmMFxmczIwIEluIHRoZSBwbGF0Zm9ybSBkZXBlbmRlbnQgZG9j
dW1lbnRhdGlvbiBvZiBCbGFja2JveCBvbmUgZmluZHMgZm9yIFNZU1RFTVxwYXINClxwYXINCiAg
ICBMU0goeCwgbikgICAgeCwgbjogaW50ZWdlciB0eXBlKiAgICB0eXBlIG9mIHggICAgbG9naWNh
bCBzaGlmdCAobiA+IFxwYXINCjA6IGxlZnQsIG4gPCAwOiByaWdodClccGFyDQogICAgKiBpbnRl
Z2VyIHR5cGVzIHdpdGhvdXQgTE9OR0lOVFxwYXINClxwYXINCmhlbmNlXHBhcg0KXHBhcg0KICBT
WVNURU0uTFNIKGMsIC0xKVxwYXINClxwYXINCmlzIGludmFsaWQgKGl0IGlzIGFsc28gbWVhbmlu
Z2xlc3Mgc2luY2UgYyBoYXMgbm90IGJlZW4gaW5pdGlhbGl6ZWQpLlxwYXINCk5vdGUgdGhhdCBv
bmUgY2FuIHVzZSBCSVRTIHRvIG9idGFpbiBhIHNldFxwYXINClxwYXINCiAgICBzZXQgOj0gQklU
Uyhwb2x5KVxwYXINClxwYXINCi1Eb3VnIERhbmZvcnRoXHBhcg0KXHBhcg0KXHBhcg0KT2xlZyBO
LiBDaGVyIHdyb3RlOlxwYXINCj4gSGVsbG8gQWxsLFxwYXINCj5ccGFyDQo+IEknbSB0cnlpbmcg
dG8gcG9ydCBTdGVmYW4gV2FsdGhlcnQncyBPYmVyb24gWmxpYiB0byBCbGFja0JveC5ccGFyDQo+
IFRoZSBwb3J0IG1ha2VzIG1hbnkgb2YgZXJyb3JzLCBhbmQgSSBub3Qgc3VyZSBpbiBpdHMgc3Rh
YmxlIHdvcmtpbmcuXHBhcg0KPiBBcmUgdGhlcmUgYW55IGdvb2QgaWRlYXM/IChVc2luZyBvZiB6
bGliLmRsbCBpcyB1bmRlc2lyYWJsZSlccGFyDQo+XHBhcg0KPiBJbiBwcm9ncmVzcyBvZiB3b3Jr
IEkgaGF2ZSBzb21lIHByb2JsZW1zLlxwYXINCj4gQmxhY2tCb3ggMS42LXJjNSBtYWtlcyB0cmFw
IDAgd2hpbGUgY29tcGlsaW5nIHRoaXMgbW9kdWxlOlxwYXINCj5ccGFyDQo+IE1PRFVMRSBUcmFw
MDtccGFyDQo+IElNUE9SVCBTWVNURU07XHBhcg0KPlxwYXINCj4gUFJPQ0VEVVJFIEluaXRDUkNU
YWJsZSooKTtccGFyDQo+IENPTlNUXHBhcg0KPiBcdGFiIHBvbHkgPSAwRURCODgzMjBIO1xwYXIN
Cj4gVkFSXHBhcg0KPiBcdGFiIGM6IExPTkdJTlQ7XHBhcg0KPiBCRUdJTlxwYXINCj4gXHRhYiBj
IDo9IFNZU1RFTS5WQUwoTE9OR0lOVCwgU1lTVEVNLlZBTChTRVQsIHBvbHkpL1NZU1RFTS5WQUwo
U0VULCBTWVNURU0uTFNIKGMsIC0xKSkpXHBhcg0KPiBFTkQgSW5pdENSQ1RhYmxlO1xwYXINCj5c
cGFyDQo+IEVORCBUcmFwMC5ccGFyDQo+XHBhcg0KPiBBbmQsIHRvbywgaXQgdHJhcHMgd2hpbGUg
Y29tcGlsaW5nIHRoaXMgbW9kdWxlOlxwYXINCj4gaHR0cDovL3N0ZWZjci5tZ3NsYWIuY29tL2Zp
bGVzL0J1ZmZlcnMub2RjXHBhcg0KPlxwYXINCj4gVGhhbmsgeW91LlxwYXINCj5ccGFyDQo+IC0t
XHBhcg0KPiBPbGVnIE4uIENoZXIuXHBhcg0KPlxwYXINCj5ccGFyDQo+IC0tLS1ccGFyDQo+IFRv
IHVuc3Vic2NyaWJlLCBzZW5kIGEgbWVzc2FnZSB3aXRoIGJvZHkgIlNJR05PRkYgQkxBQ0tCT1gi
IHRvIExJU1RTRVJWQExJU1RTLk9CRVJPTi5DSFxwYXINCj5ccGFyDQo+XHBhcg0KPiAgIFxwYXIN
ClxwYXINClxwYXINCi0tLS1ccGFyDQpUbyB1bnN1YnNjcmliZSwgc2VuZCBhIG1lc3NhZ2Ugd2l0
aCBib2R5ICJTSUdOT0ZGIEJMQUNLQk9YIiB0byBMSVNUU0VSVkBMSVNUUy5PQkVST04ufX0AQVMt
UHJv
----boundary-LibPST-iamunique-922733587_-_---

Received on Sun Oct 05 2008 - 00:22:56 UTC