Re: [BLACKBOX] Possible compiler bug ?

From: [at]} <Bernhard>
Date: Sun, 18 Dec 2011 12:42:55 +0100

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

Hi Robert,

it is not absolutely clear to me, what you try to achieve with LONG(100),
but I guess you want to force BB to use LONGINT ...

When I replace LONG(100) by plain 100, it compiles ok.

But any other of the following trap:

pos := SHORT (LONG(val) * LONG(100) DIV meter.maxVal)

pos := SHORT (LONG(val) * 100 DIV meter.maxVal)
pos := SHORT (val * 100 DIV LONG(meter.maxVal))

   pos : INTEGER;
   val : LONGINT;
   meter : Meter;
BEGIN
    pos := SHORT (val * 100 DIV meter.maxVal)

The Language report says (8.2.2)
    The type of the result is [...] LONGINT if one of the operand types is
    LONGINT, or INTEGER in any other case.

I think you really found a compiler bug ...

Bernhard

----- Original Message -----
From: "Robert" <robert.campbell_{([at]})nowhere.xy
To: <BLACKBOX{([at]})nowhere.xy
Sent: Sunday, December 18, 2011 10:34 AM
Subject: [BLACKBOX] Possible compiler bug ?


> Hi
>
> I can't compile the code below, which seems ok to me.
>
> I don't get an error message, I get a compiler crash.
>
> Am I overlooking something obvious?
>
> Regards
>
> Robert
>
>
>
> MODULE DemoMeter;
>
>
> TYPE
> Meter = POINTER TO RECORD
> maxVal : INTEGER;
> END;
>
>
> PROCEDURE Do*;
> VAR
> pos, val : INTEGER;
> meter : Meter;
> BEGIN
> pos := SHORT (val * LONG (100) DIV meter.maxVal)
> END Do;
>
>
> END DemoMeter.
>
>
> ----
> 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-972917810_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"
e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGRlZmYwe1xmb250dGJsDQp7XGYwXGZz
d2lzcyBBcmlhbDt9DQp7XGYxXGZtb2Rlcm4gQ291cmllciBOZXc7fQ0Ke1xmMlxmbmlsXGZjaGFy
c2V0MiBTeW1ib2w7fQ0Ke1xmM1xmbW9kZXJuXGZjaGFyc2V0MCBDb3VyaWVyIE5ldzt9fQ0Ke1xj
b2xvcnRibFxyZWQwXGdyZWVuMFxibHVlMDtccmVkMFxncmVlbjBcYmx1ZTI1NTt9DQpcdWMxXHBh
cmRccGxhaW5cZGVmdGFiMzYwIFxmMFxmczIwIEhpIFJvYmVydCxccGFyDQpccGFyDQppdCBpcyBu
b3QgYWJzb2x1dGVseSBjbGVhciB0byBtZSwgd2hhdCB5b3UgdHJ5IHRvIGFjaGlldmUgd2l0aCBM
T05HKDEwMCksXHBhcg0KYnV0IEkgZ3Vlc3MgeW91IHdhbnQgdG8gZm9yY2UgQkIgdG8gdXNlIExP
TkdJTlQgLi4uXHBhcg0KXHBhcg0KV2hlbiBJIHJlcGxhY2UgTE9ORygxMDApIGJ5IHBsYWluIDEw
MCwgaXQgY29tcGlsZXMgb2suXHBhcg0KXHBhcg0KQnV0IGFueSBvdGhlciBvZiB0aGUgZm9sbG93
aW5nIHRyYXA6XHBhcg0KXHBhcg0KcG9zIDo9IFNIT1JUIChMT05HKHZhbCkgKiBMT05HKDEwMCkg
RElWIG1ldGVyLm1heFZhbClccGFyDQpccGFyDQpwb3MgOj0gU0hPUlQgKExPTkcodmFsKSAqIDEw
MCBESVYgbWV0ZXIubWF4VmFsKVxwYXINCnBvcyA6PSBTSE9SVCAodmFsICogMTAwIERJViBMT05H
KG1ldGVyLm1heFZhbCkpXHBhcg0KXHBhcg0KICAgcG9zIDogSU5URUdFUjtccGFyDQogICB2YWwg
OiBMT05HSU5UO1xwYXINCiAgIG1ldGVyIDogTWV0ZXI7XHBhcg0KQkVHSU5ccGFyDQogICAgcG9z
IDo9IFNIT1JUICh2YWwgKiAxMDAgRElWIG1ldGVyLm1heFZhbClccGFyDQpccGFyDQpUaGUgTGFu
Z3VhZ2UgcmVwb3J0IHNheXMgKDguMi4yKVxwYXINCiAgICBUaGUgdHlwZSBvZiB0aGUgcmVzdWx0
IGlzIFsuLi5dIExPTkdJTlQgaWYgb25lIG9mIHRoZSBvcGVyYW5kIHR5cGVzIGlzXHBhcg0KICAg
IExPTkdJTlQsIG9yIElOVEVHRVIgaW4gYW55IG90aGVyIGNhc2UuXHBhcg0KXHBhcg0KSSB0aGlu
ayB5b3UgcmVhbGx5IGZvdW5kIGEgY29tcGlsZXIgYnVnIC4uLlxwYXINClxwYXINCkJlcm5oYXJk
XHBhcg0KXHBhcg0KLS0tLS0gT3JpZ2luYWwgTWVzc2FnZSAtLS0tLSBccGFyDQpGcm9tOiAiUm9i
ZXJ0IiA8cm9iZXJ0LmNhbXBiZWxsX0BUSVNDQUxJLkNPLlVLPlxwYXINClRvOiA8QkxBQ0tCT1hA
TElTVFMuT0JFUk9OLkNIPlxwYXINClNlbnQ6IFN1bmRheSwgRGVjZW1iZXIgMTgsIDIwMTEgMTA6
MzQgQU1ccGFyDQpTdWJqZWN0OiBbQkxBQ0tCT1hdIFBvc3NpYmxlIGNvbXBpbGVyIGJ1ZyA/XHBh
cg0KXHBhcg0KXHBhcg0KPiBIaVxwYXINCj5ccGFyDQo+IEkgY2FuJ3QgY29tcGlsZSB0aGUgY29k
ZSBiZWxvdywgd2hpY2ggc2VlbXMgb2sgdG8gbWUuXHBhcg0KPlxwYXINCj4gSSBkb24ndCBnZXQg
YW4gZXJyb3IgbWVzc2FnZSwgSSBnZXQgYSBjb21waWxlciBjcmFzaC5ccGFyDQo+XHBhcg0KPiBB
bSBJIG92ZXJsb29raW5nIHNvbWV0aGluZyBvYnZpb3VzP1xwYXINCj5ccGFyDQo+IFJlZ2FyZHNc
cGFyDQo+XHBhcg0KPiBSb2JlcnRccGFyDQo+XHBhcg0KPlxwYXINCj5ccGFyDQo+IE1PRFVMRSAg
RGVtb01ldGVyO1xwYXINCj5ccGFyDQo+XHBhcg0KPiBUWVBFXHBhcg0KPiAgIE1ldGVyICA9ICBQ
T0lOVEVSICBUTyAgUkVDT1JEXHBhcg0KPiAgICAgICAgICAgICAgIG1heFZhbCAgOiAgSU5URUdF
UjtccGFyDQo+ICAgICAgICAgICAgICBFTkQ7XHBhcg0KPlxwYXINCj5ccGFyDQo+IFBST0NFRFVS
RSAgRG8qO1xwYXINCj4gICBWQVJccGFyDQo+ICAgICBwb3MsIHZhbCAgOiAgSU5URUdFUjtccGFy
DQo+ICAgICBtZXRlciAgICAgOiAgTWV0ZXI7XHBhcg0KPiAgIEJFR0lOXHBhcg0KPiAgICAgIHBv
cyAgOj0gIFNIT1JUICh2YWwgKiBMT05HICgxMDApICBESVYgIG1ldGVyLm1heFZhbClccGFyDQo+
ICAgRU5EICBEbztccGFyDQo+XHBhcg0KPlxwYXINCj4gRU5EICBEZW1vTWV0ZXIuXHBhcg0KPlxw
YXINCj5ccGFyDQo+IC0tLS1ccGFyDQo+IFRvIHVuc3Vic2NyaWJlLCBzZW5kIGEgbWVzc2FnZSB3
aXRoIGJvZHkgIlNJR05PRkYgQkxBQ0tCT1giIHRvIFxwYXINCj4gTElTVFNFUlZATElTVFMuT0JF
Uk9OLkNIIFxwYXINClxwYXINClxwYXINCi0tLS1ccGFyDQpUbyB1bnN1YnNjcmliZSwgc2VuZCBh
IG1lc3NhZ2Ugd2l0aCBib2R5ICJTSUdOT0ZGIEJMQUNLQk9YIiB0byBMSVNUU0VSVkBMSVNUUy5P
QkVST04uQ0h9fQANCg0K
----boundary-LibPST-iamunique-972917810_-_---

Received on Sun Dec 18 2011 - 12:42:55 UTC