----boundary-LibPST-iamunique-1221544808_-_-
Content-type: text/plain
----- Original Message -----
From: "CFB Software" <info{([at]})nowhere.xy
To: "BlackBox Mailing List" <blackbox{([at]})nowhere.xy
Sent: Saturday, March 26, 2005 12:48 AM
Subject: [BlackBox] - Bit operations in Component Pascal
> Andrew,
>
> 1. Generally, the Component Pascal MOD operator is the equivalent of the %
> (modulus) operator in C. Note that MOD is defined in terms of DIV and CP
DIV
> always rounds toward negative infinity. Most C-language implementations
> normally round towards zero.
>
> 2. What is the specific problem you have with the return statement?
>
Hi Chris,
the problem is that the divide is by MAX(unsigned integer)
Andrew
> Regards,
>
> Chris Burrows
> CFB Software
> info{([at]})nowhere.xy> http://www.cfbsoftware.com
>
>
> >
> > -----Original Message-----
> > From: blackbox{([at]})nowhere.xy> > Thomas
> > Sent: Friday, 25 March 2005 12:52 AM
> > To: BlackBox Mailing List
> > Subject: [BlackBox] - Bit operations in Component Pascal
> >
> >
> > Moi,
> >
> > Yes SET is great and it is easy to go from SET to INTEGER. Things are
much
> > uglier in C. However C has an 4 byte unsigned integer and you can
> > manipulate
> > this as bits using <<, >>, ^ etc. This is very useful for writing random
> > number generators where you can write
>
> <snip>
> > x[kk] = x[kk+M] ^ (x[kk] >> 1) ^ mag01[x[kk] % 2];
>
> <snip>
> > return( (double) y / (unsigned long) 0xffffffff);
> >
> > The problem I have with the C code is x[kk] % 2 and the return
statement.
> > What is the best thing to do in CP?
> >
> > Regards
> > Andrew
> >
> >
>
> --- BlackBox
> --- send subject HELP or UNSUBSCRIBE to blackbox{([at]})nowhere.xy>
>
--- BlackBox
--- send subject HELP or UNSUBSCRIBE to blackbox{([at]})nowhere.xy
----boundary-LibPST-iamunique-1221544808_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"
e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGRlZmYwe1xmb250dGJsDQp7XGYwXGZz
d2lzcyBBcmlhbDt9DQp7XGYxXGZtb2Rlcm4gQ291cmllciBOZXc7fQ0Ke1xmMlxmbmlsXGZjaGFy
c2V0MiBTeW1ib2w7fQ0Ke1xmM1xmbW9kZXJuXGZjaGFyc2V0MCBDb3VyaWVyIE5ldzt9fQ0Ke1xj
b2xvcnRibFxyZWQwXGdyZWVuMFxibHVlMDtccmVkMFxncmVlbjBcYmx1ZTI1NTt9DQpcdWMxXHBh
cmRccGxhaW5cZGVmdGFiMzYwIFxmMFxmczIwIFxwYXINCi0tLS0tIE9yaWdpbmFsIE1lc3NhZ2Ug
LS0tLS0gXHBhcg0KRnJvbTogIkNGQiBTb2Z0d2FyZSIgPGluZm9AY2Zic29mdHdhcmUuY29tPlxw
YXINClRvOiAiQmxhY2tCb3ggTWFpbGluZyBMaXN0IiA8YmxhY2tib3hAb2Jlcm9uLmNoPlxwYXIN
ClNlbnQ6IFNhdHVyZGF5LCBNYXJjaCAyNiwgMjAwNSAxMjo0OCBBTVxwYXINClN1YmplY3Q6IFtC
bGFja0JveF0gLSBCaXQgb3BlcmF0aW9ucyBpbiBDb21wb25lbnQgUGFzY2FsXHBhcg0KXHBhcg0K
XHBhcg0KPiBBbmRyZXcsXHBhcg0KPlxwYXINCj4gMS4gR2VuZXJhbGx5LCB0aGUgQ29tcG9uZW50
IFBhc2NhbCBNT0Qgb3BlcmF0b3IgaXMgdGhlIGVxdWl2YWxlbnQgb2YgdGhlICVccGFyDQo+ICht
b2R1bHVzKSBvcGVyYXRvciBpbiBDLiBOb3RlIHRoYXQgTU9EIGlzIGRlZmluZWQgaW4gdGVybXMg
b2YgRElWIGFuZCBDUFxwYXINCkRJVlxwYXINCj4gYWx3YXlzIHJvdW5kcyB0b3dhcmQgbmVnYXRp
dmUgaW5maW5pdHkuIE1vc3QgQy1sYW5ndWFnZSBpbXBsZW1lbnRhdGlvbnNccGFyDQo+IG5vcm1h
bGx5IHJvdW5kIHRvd2FyZHMgemVyby5ccGFyDQo+XHBhcg0KPiAyLiBXaGF0IGlzIHRoZSBzcGVj
aWZpYyBwcm9ibGVtIHlvdSBoYXZlIHdpdGggdGhlIHJldHVybiBzdGF0ZW1lbnQ/XHBhcg0KPlxw
YXINClxwYXINCkhpICBDaHJpcyxccGFyDQpccGFyDQogICAgdGhlIHByb2JsZW0gaXMgdGhhdCB0
aGUgZGl2aWRlIGlzIGJ5IE1BWCh1bnNpZ25lZCBpbnRlZ2VyKVxwYXINClxwYXINCkFuZHJld1xw
YXINClxwYXINCj4gUmVnYXJkcyxccGFyDQo+XHBhcg0KPiBDaHJpcyBCdXJyb3dzXHBhcg0KPiBD
RkIgU29mdHdhcmVccGFyDQo+IGluZm9AY2Zic29mdHdhcmUuY29tXHBhcg0KPiBodHRwOi8vd3d3
LmNmYnNvZnR3YXJlLmNvbVxwYXINCj5ccGFyDQo+XHBhcg0KPiA+XHBhcg0KPiA+IC0tLS0tT3Jp
Z2luYWwgTWVzc2FnZS0tLS0tXHBhcg0KPiA+IEZyb206IGJsYWNrYm94QG9iZXJvbi5jaCBbbWFp
bHRvOmJsYWNrYm94QG9iZXJvbi5jaF1PbiBCZWhhbGYgT2YgQW5kcmV3XHBhcg0KPiA+IFRob21h
c1xwYXINCj4gPiBTZW50OiBGcmlkYXksIDI1IE1hcmNoIDIwMDUgMTI6NTIgQU1ccGFyDQo+ID4g
VG86IEJsYWNrQm94IE1haWxpbmcgTGlzdFxwYXINCj4gPiBTdWJqZWN0OiBbQmxhY2tCb3hdIC0g
Qml0IG9wZXJhdGlvbnMgaW4gQ29tcG9uZW50IFBhc2NhbFxwYXINCj4gPlxwYXINCj4gPlxwYXIN
Cj4gPiBNb2ksXHBhcg0KPiA+XHBhcg0KPiA+IFllcyBTRVQgaXMgZ3JlYXQgYW5kIGl0IGlzIGVh
c3kgdG8gZ28gZnJvbSBTRVQgdG8gSU5URUdFUi4gVGhpbmdzIGFyZVxwYXINCm11Y2hccGFyDQo+
ID4gdWdsaWVyIGluIEMuIEhvd2V2ZXIgQyBoYXMgYW4gNCBieXRlIHVuc2lnbmVkIGludGVnZXIg
YW5kIHlvdSBjYW5ccGFyDQo+ID4gbWFuaXB1bGF0ZVxwYXINCj4gPiB0aGlzIGFzIGJpdHMgdXNp
bmcgPDwsID4+LCBeIGV0Yy4gVGhpcyBpcyB2ZXJ5IHVzZWZ1bCBmb3Igd3JpdGluZyByYW5kb21c
cGFyDQo+ID4gbnVtYmVyIGdlbmVyYXRvcnMgd2hlcmUgeW91IGNhbiB3cml0ZVxwYXINCj5ccGFy
DQo+IDxzbmlwPlxwYXINCj4gPiB4W2trXSA9IHhba2srTV0gXiAoeFtra10gPj4gMSkgXiBtYWcw
MVt4W2trXSAlIDJdO1xwYXINCj5ccGFyDQo+IDxzbmlwPlxwYXINCj4gPiByZXR1cm4oIChkb3Vi
bGUpIHkgLyAodW5zaWduZWQgbG9uZykgMHhmZmZmZmZmZik7XHBhcg0KPiA+XHBhcg0KPiA+IFRo
ZSBwcm9ibGVtIEkgaGF2ZSB3aXRoIHRoZSBDIGNvZGUgaXMgeFtra10gJSAyIGFuZCB0aGUgcmV0
dXJuXHBhcg0Kc3RhdGVtZW50LlxwYXINCj4gPiBXaGF0IGlzIHRoZSBiZXN0IHRoaW5nIHRvIGRv
IGluIENQP1xwYXINCj4gPlxwYXINCj4gPiBSZWdhcmRzXHBhcg0KPiA+ICAgICBBbmRyZXdccGFy
DQo+ID5ccGFyDQo+ID5ccGFyDQo+XHBhcg0KPiAtLS0gQmxhY2tCb3hccGFyDQo+IC0tLSBzZW5k
IHN1YmplY3QgSEVMUCBvciBVTlNVQlNDUklCRSB0byBibGFja2JveEBvYmVyb24uY2hccGFyDQo+
XHBhcg0KPlxwYXINClxwYXINCi0tLSBCbGFja0JveFxwYXINCi0tLSBzZW5kIHN1YmplY3QgSEVM
UCBvciBVTlNVQlNDUklCRSB0byBibGFja2JveEBvYmVyb24uY2hccGFyDQp9fQBYCQAA
----boundary-LibPST-iamunique-1221544808_-_---
Received on Tue Mar 29 2005 - 08:44:45 UTC