Re: [BLACKBOX] CONST compiler bug ?

From: [at]} <Robert>
Date: Tue, 24 May 2011 23:29:05 +0100

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

Yes, but ...

INTEGER -> LONGINT is a permitted automatic type promotion; but
going the other way should require an explicit call of SHORT (),
should in not?


Cheers

Robert.



On 24/05/2011 11:24 PM, Douglas G. Danforth wrote:
> Robert,
>
> Interesting. I would assume that since the (numeric) value on the right hand
> side falls within
> the range of an INTEGER that CP is doing a type conversion.
> In fact all of the following work.
>
> PROCEDURE Do*;
> VAR B: BYTE; S: SHORTINT; N: INTEGER; R: REAL;
> BEGIN
> B := 1L;
> S := 1L;
> N := 1L;
> R := 1L;
> END Do;
>
> -Doug Danforth
>
>
> On 5/24/2011 9:04 AM, Campbell, Robert (SELEX GALILEO, UK) wrote:
>> I don't think the code below should compile or run, but it seems to.
>> Am I missing something?
>> Cheers
>> Robert
>> PROCEDURE Foo*;
>> VAR
>> n : INTEGER;
>> BEGIN
>> n := 1L
>> END Foo;
>>
> --------------------------------------------------------------------------------
>
> No virus found in this message.
> Checked by AVG - www.avg.com <http://www.avg.com>
> Version: 10.0.1375 / Virus Database: 1509/3656 - Release Date: 05/23/11
>
> ---- 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-1556587278_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"
e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGRlZmYwe1xmb250dGJsDQp7XGYwXGZz
d2lzcyBBcmlhbDt9DQp7XGYxXGZtb2Rlcm4gQ291cmllciBOZXc7fQ0Ke1xmMlxmbmlsXGZjaGFy
c2V0MiBTeW1ib2w7fQ0Ke1xmM1xmbW9kZXJuXGZjaGFyc2V0MCBDb3VyaWVyIE5ldzt9fQ0Ke1xj
b2xvcnRibFxyZWQwXGdyZWVuMFxibHVlMDtccmVkMFxncmVlbjBcYmx1ZTI1NTt9DQpcdWMxXHBh
cmRccGxhaW5cZGVmdGFiMzYwIFxmMFxmczIwIFllcywgYnV0IC4uLlxwYXINClxwYXINCklOVEVH
RVIgLT4gTE9OR0lOVCBpcyBhIHBlcm1pdHRlZCBhdXRvbWF0aWMgdHlwZSBwcm9tb3Rpb247IGJ1
dFxwYXINCmdvaW5nIHRoZSBvdGhlciB3YXkgc2hvdWxkIHJlcXVpcmUgYW4gZXhwbGljaXQgY2Fs
bCBvZiBTSE9SVCAoKSxccGFyDQpzaG91bGQgaW4gbm90P1xwYXINClxwYXINClxwYXINCkNoZWVy
c1xwYXINClxwYXINClJvYmVydC5ccGFyDQpccGFyDQpccGFyDQpccGFyDQpPbiAyNC8wNS8yMDEx
IDExOjI0IFBNLCBEb3VnbGFzIEcuIERhbmZvcnRoIHdyb3RlOlxwYXINCj4gUm9iZXJ0LFxwYXIN
Cj5ccGFyDQo+IEludGVyZXN0aW5nLiBJIHdvdWxkIGFzc3VtZSB0aGF0IHNpbmNlIHRoZSAobnVt
ZXJpYykgdmFsdWUgb24gdGhlIHJpZ2h0IGhhbmRccGFyDQo+IHNpZGUgZmFsbHMgd2l0aGluXHBh
cg0KPiB0aGUgcmFuZ2Ugb2YgYW4gSU5URUdFUiB0aGF0IENQIGlzIGRvaW5nIGEgdHlwZSBjb252
ZXJzaW9uLlxwYXINCj4gSW4gZmFjdCBhbGwgb2YgdGhlIGZvbGxvd2luZyB3b3JrLlxwYXINCj5c
cGFyDQo+IFBST0NFRFVSRSBEbyo7XHBhcg0KPiBWQVIgQjogQllURTsgUzogU0hPUlRJTlQ7IE46
IElOVEVHRVI7IFI6IFJFQUw7XHBhcg0KPiBCRUdJTlxwYXINCj4gQiA6PSAxTDtccGFyDQo+IFMg
Oj0gMUw7XHBhcg0KPiBOIDo9IDFMO1xwYXINCj4gUiA6PSAxTDtccGFyDQo+IEVORCBEbztccGFy
DQo+XHBhcg0KPiAtRG91ZyBEYW5mb3J0aFxwYXINCj5ccGFyDQo+XHBhcg0KPiBPbiA1LzI0LzIw
MTEgOTowNCBBTSwgQ2FtcGJlbGwsIFJvYmVydCAoU0VMRVggR0FMSUxFTywgVUspIHdyb3RlOlxw
YXINCj4+IEkgZG9uJ3QgdGhpbmsgdGhlIGNvZGUgYmVsb3cgc2hvdWxkIGNvbXBpbGUgb3IgcnVu
LCBidXQgaXQgc2VlbXMgdG8uXHBhcg0KPj4gQW0gSSBtaXNzaW5nIHNvbWV0aGluZz9ccGFyDQo+
PiBDaGVlcnNccGFyDQo+PiBSb2JlcnRccGFyDQo+PiBQUk9DRURVUkUgRm9vKjtccGFyDQo+PiBW
QVJccGFyDQo+PiBuIDogSU5URUdFUjtccGFyDQo+PiBCRUdJTlxwYXINCj4+IG4gOj0gMUxccGFy
DQo+PiBFTkQgRm9vO1xwYXINCj4+XHBhcg0KPiAtLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0t
LS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLVxwYXIN
Cj5ccGFyDQo+IE5vIHZpcnVzIGZvdW5kIGluIHRoaXMgbWVzc2FnZS5ccGFyDQo+IENoZWNrZWQg
YnkgQVZHIC0gd3d3LmF2Zy5jb20gPGh0dHA6Ly93d3cuYXZnLmNvbT5ccGFyDQo+IFZlcnNpb246
IDEwLjAuMTM3NSAvIFZpcnVzIERhdGFiYXNlOiAxNTA5LzM2NTYgLSBSZWxlYXNlIERhdGU6IDA1
LzIzLzExXHBhcg0KPlxwYXINCj4gLS0tLSBUbyB1bnN1YnNjcmliZSwgc2VuZCBhIG1lc3NhZ2Ug
d2l0aCBib2R5ICJTSUdOT0ZGIEJMQUNLQk9YIiB0b1xwYXINCj4gTElTVFNFUlZATElTVFMuT0JF
Uk9OLkNIXHBhcg0KPlxwYXINClxwYXINClxwYXINCi0tLS1ccGFyDQpUbyB1bnN1YnNjcmliZSwg
c2VuZCBhIG1lc3NhZ2Ugd2l0aCBib2R5ICJTSUdOT0ZGIEJMQUNLQk9YIiB0byBMSVNUU0VSVkBM
SVNUUy5PQkVST04uQ0hccGFyDQp9
----boundary-LibPST-iamunique-1556587278_-_---

Received on Wed May 25 2011 - 00:29:05 UTC