----boundary-LibPST-iamunique-989502643_-_-
Content-type: text/plain
Hei All,
ORD({31]) = MIN(INTEGER)
ORD({0..31}) = -1
etc if I remember right.
Now in C a unsigned integer is used for sets. So in C {31} regarded as an
unsigned integer has a different value from value to ORD({31}) in CP.
return( (double) y / (unsigned long) 0xffffffff) in C where y is a set would
translate into something like
int := ORD(y);
IF int < 0 THEN
RETURN (int - 2 * MIN(INTEGER)) / 4294967295
ELSE
RETURN int / 4294967295
END
Andrew
----- Original Message -----
From: "Campbell, Robert D (UK Edinburgh)" <robert.d.campbell{([at]})nowhere.xy
To: "BlackBox Mailing List" <blackbox{([at]})nowhere.xy
Sent: Wednesday, March 30, 2005 2:25 PM
Subject: [BlackBox] - Bit operations in Component Pascal
Or even simpler ?
RETURN y / 4294967295.
Robert.
>>
>> I would say that the equivalent in CP for the C statement:
>>
>> return( (double) y / (unsigned long) 0xffffffff);
>>
>> Would be (assuming y is REAL):
>>
>> RETURN y / 0FFFFFFFFL;
>>
>> Note the L suffix to indicate that the constant should be
>> interpreted as a
>> LONGINT.
>>
>> Chris Burrows
>> CFB Software
>> http://www.cfbsoftware.com
>>
>> > -----Original Message-----
>> > From: blackbox{([at]})nowhere.xy>> > Behalf Of Andrew Thomas
>> > Sent: Tuesday, 29 March 2005 5:15 PM
>> > To: BlackBox Mailing List
>> > Subject: [BlackBox] - Bit operations in Component Pascal
>> >
>> > >
>> > > 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
********************************************************************
This email and any attachments are confidential to the intended
recipient and may also be privileged. If you are not the intended
recipient please delete it from your system and notify the sender.
You should not copy it or use it for any purpose nor disclose or
distribute its contents to any other person.
********************************************************************
--- 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-989502643_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"
e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGRlZmYwe1xmb250dGJsDQp7XGYwXGZz
d2lzcyBBcmlhbDt9DQp7XGYxXGZtb2Rlcm4gQ291cmllciBOZXc7fQ0Ke1xmMlxmbmlsXGZjaGFy
c2V0MiBTeW1ib2w7fQ0Ke1xmM1xmbW9kZXJuXGZjaGFyc2V0MCBDb3VyaWVyIE5ldzt9fQ0Ke1xj
b2xvcnRibFxyZWQwXGdyZWVuMFxibHVlMDtccmVkMFxncmVlbjBcYmx1ZTI1NTt9DQpcdWMxXHBh
cmRccGxhaW5cZGVmdGFiMzYwIFxmMFxmczIwIEhlaSBBbGwsXHBhcg0KXHBhcg0KT1JEKFx7MzFd
KSA9IE1JTihJTlRFR0VSKVxwYXINClxwYXINCk9SRChcezAuLjMxXH0pID0gLTFccGFyDQpccGFy
DQpldGMgaWYgSSByZW1lbWJlciByaWdodC5ccGFyDQpccGFyDQpOb3cgaW4gQyBhIHVuc2lnbmVk
IGludGVnZXIgaXMgdXNlZCBmb3Igc2V0cy4gU28gaW4gQyBcezMxXH0gcmVnYXJkZWQgYXMgYW5c
cGFyDQp1bnNpZ25lZCBpbnRlZ2VyIGhhcyBhIGRpZmZlcmVudCB2YWx1ZSBmcm9tIHZhbHVlIHRv
IE9SRChcezMxXH0pIGluIENQLlxwYXINClxwYXINCnJldHVybiggKGRvdWJsZSkgeSAvICh1bnNp
Z25lZCBsb25nKSAweGZmZmZmZmZmKSBpbiBDIHdoZXJlIHkgaXMgYSBzZXQgd291bGRccGFyDQp0
cmFuc2xhdGUgaW50byBzb21ldGhpbmcgbGlrZVxwYXINClxwYXINCmludCA6PSBPUkQoeSk7XHBh
cg0KSUYgaW50IDwgMCBUSEVOXHBhcg0KICAgIFJFVFVSTiAoaW50IC0gMiAqIE1JTihJTlRFR0VS
KSkgLyA0Mjk0OTY3Mjk1XHBhcg0KRUxTRVxwYXINCiAgICBSRVRVUk4gaW50IC8gNDI5NDk2NzI5
NVxwYXINCkVORFxwYXINClxwYXINCkFuZHJld1xwYXINClxwYXINClxwYXINCi0tLS0tIE9yaWdp
bmFsIE1lc3NhZ2UgLS0tLS0gXHBhcg0KRnJvbTogIkNhbXBiZWxsLCBSb2JlcnQgRCAoVUsgRWRp
bmJ1cmdoKSIgPHJvYmVydC5kLmNhbXBiZWxsQGJhZXN5c3RlbXMuY29tPlxwYXINClRvOiAiQmxh
Y2tCb3ggTWFpbGluZyBMaXN0IiA8YmxhY2tib3hAb2Jlcm9uLmNoPlxwYXINClNlbnQ6IFdlZG5l
c2RheSwgTWFyY2ggMzAsIDIwMDUgMjoyNSBQTVxwYXINClN1YmplY3Q6IFtCbGFja0JveF0gLSBC
aXQgb3BlcmF0aW9ucyBpbiBDb21wb25lbnQgUGFzY2FsXHBhcg0KXHBhcg0KXHBhcg0KXHBhcg0K
T3IgZXZlbiBzaW1wbGVyID9ccGFyDQpccGFyDQogIFJFVFVSTiAgeSAvIDQyOTQ5NjcyOTUuXHBh
cg0KXHBhcg0KUm9iZXJ0LlxwYXINClxwYXINCj4+XHBhcg0KPj4gIEkgd291bGQgc2F5IHRoYXQg
dGhlIGVxdWl2YWxlbnQgaW4gQ1AgZm9yIHRoZSBDIHN0YXRlbWVudDpccGFyDQo+PlxwYXINCj4+
ICAgIHJldHVybiggKGRvdWJsZSkgeSAvICh1bnNpZ25lZCBsb25nKSAweGZmZmZmZmZmKTtccGFy
DQo+PlxwYXINCj4+ICBXb3VsZCBiZSAoYXNzdW1pbmcgeSBpcyBSRUFMKTpccGFyDQo+PlxwYXIN
Cj4+ICAgIFJFVFVSTiB5IC8gMEZGRkZGRkZGTDtccGFyDQo+PlxwYXINCj4+ICBOb3RlIHRoZSBM
IHN1ZmZpeCB0byBpbmRpY2F0ZSB0aGF0IHRoZSBjb25zdGFudCBzaG91bGQgYmVccGFyDQo+PiAg
aW50ZXJwcmV0ZWQgYXMgYVxwYXINCj4+ICBMT05HSU5ULlxwYXINCj4+XHBhcg0KPj4gIENocmlz
IEJ1cnJvd3NccGFyDQo+PiAgQ0ZCIFNvZnR3YXJlXHBhcg0KPj4gIGh0dHA6Ly93d3cuY2Zic29m
dHdhcmUuY29tXHBhcg0KPj5ccGFyDQo+PiAgPiAtLS0tLU9yaWdpbmFsIE1lc3NhZ2UtLS0tLVxw
YXINCj4+ICA+IEZyb206IGJsYWNrYm94QG9iZXJvbi5jaCBbbWFpbHRvOmJsYWNrYm94QG9iZXJv
bi5jaF0gT25ccGFyDQo+PiAgPiBCZWhhbGYgT2YgQW5kcmV3IFRob21hc1xwYXINCj4+ICA+IFNl
bnQ6IFR1ZXNkYXksIDI5IE1hcmNoIDIwMDUgNToxNSBQTVxwYXINCj4+ICA+IFRvOiBCbGFja0Jv
eCBNYWlsaW5nIExpc3RccGFyDQo+PiAgPiBTdWJqZWN0OiBbQmxhY2tCb3hdIC0gQml0IG9wZXJh
dGlvbnMgaW4gQ29tcG9uZW50IFBhc2NhbFxwYXINCj4+ICA+XHBhcg0KPj4gID4gPlxwYXINCj4+
ICA+ID4gMi4gV2hhdCBpcyB0aGUgc3BlY2lmaWMgcHJvYmxlbSB5b3UgaGF2ZSB3aXRoIHRoZVxw
YXINCj4+ICByZXR1cm4gc3RhdGVtZW50P1xwYXINCj4+ICA+ID5ccGFyDQo+PiAgPlxwYXINCj4+
ICA+IEhpICBDaHJpcyxccGFyDQo+PiAgPlxwYXINCj4+ICA+ICAgICB0aGUgcHJvYmxlbSBpcyB0
aGF0IHRoZSBkaXZpZGUgaXMgYnkgTUFYKHVuc2lnbmVkIGludGVnZXIpXHBhcg0KPj4gID5ccGFy
DQo+PiAgPiBBbmRyZXdccGFyDQpccGFyDQoqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioq
KioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKlxwYXINClRoaXMgZW1haWwgYW5k
IGFueSBhdHRhY2htZW50cyBhcmUgY29uZmlkZW50aWFsIHRvIHRoZSBpbnRlbmRlZFxwYXINCnJl
Y2lwaWVudCBhbmQgbWF5IGFsc28gYmUgcHJpdmlsZWdlZC4gSWYgeW91IGFyZSBub3QgdGhlIGlu
dGVuZGVkXHBhcg0KcmVjaXBpZW50IHBsZWFzZSBkZWxldGUgaXQgZnJvbSB5b3VyIHN5c3RlbSBh
bmQgbm90aWZ5IHRoZSBzZW5kZXIuXHBhcg0KWW91IHNob3VsZCBub3QgY29weSBpdCBvciB1c2Ug
aXQgZm9yIGFueSBwdXJwb3NlIG5vciBkaXNjbG9zZSBvclxwYXINCmRpc3RyaWJ1dGUgaXRzIGNv
bnRlbnRzIHRvIGFueSBvdGhlciBwZXJzb24uXHBhcg0KKioqKioqKioqKioqKioqKioqKioqKioq
KioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKipccGFyDQpccGFyDQot
LS0gQmxhY2tCb3hccGFyDQotLS0gc2VuZCBzdWJqZWN0IEhFTFAgb3IgVU5TVUJTQ1JJQkUgdG8g
YmxhY2tib3hAb2Jlcm9uLmNoXHBhcg0KXHBhcg0KLS0tIEJsYWNrQm94XHBhcg0KLS0tIHNlbmQg
c3ViamVjdCBIRUxQIG9yIFVOU1VCU0NSSUJFIHRvIGJsYWNrYm94QG9iZXJvbn19AAAU4xNhYAsA
ABoAAAA=
----boundary-LibPST-iamunique-989502643_-_---
Received on Wed Mar 30 2005 - 14:45:38 UTC