Re: [BLACKBOX] Another compiler bug ?

From: [at]} <Robert>
Date: Tue, 3 Jan 2012 21:56:23 +0000

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

My work computer uses Outlook for email, and thinks that Chris's suggestion is
'Junk'!

My home computer (Thunderbird) is not so sensitive, and let me try it.

And lo & behold, it seems to work. Now 'z := -108.3' (unicode -) fails to
compile, rather than giving me an unwanted and unsuspected +108.3 as it did before.



Cheers

Robert





On 31/12/2011 04:12, Chris Burrows wrote:
>> -----Original Message-----
>> From: BlackBox [mailto:BLACKBOX{([at]})nowhere.xy
>> Sent: Saturday, 31 December 2011 10:59 AM
>> To: BLACKBOX{([at]})nowhere.xy
>> Subject: [BLACKBOX] Another compiler bug ?
>>
>> Folks
>>
>>
>> If I write
>>
>> VAR
>> z : REAL;
>> BEGIN
>> z := %108.3;
>>
>> the compiler complains (factor starts with incorrect symbol).
>>
>>
>> However, if I replace '%' with '‰' (Unicode 2030) there is no
>> complaint; the 'per-thousand' sign is simply ignored. Surely
>> there should be a complaint?
>>
>
> It appears that (except when processing string constants) the compiler
> simply ignores any character that is not included in the 256-character
> LATIN-1 character set defined for the Component Pascal language. The
> relevant line of code is in DevCPM.Get:
>
> REPEAT in.ReadChar(ch1); INC(curpos) UNTIL (ch1< 100X)& (ch1 #
> TextModels.viewcode);
> ch := SHORT(ch1)
>
> I haven't tested it but if you want to see compile-time errors then try
> modifying this function so that instead of ignoring the bad characters it
> substitutes a LATIN-1 character that is not part of the Component Pascal
> language. e.g. something like:
>
> REPEAT in.ReadChar(ch1); INC(curpos) UNTIL (ch1 # TextModels.viewcode);
> IF ch1>= 100X THEN
> ch := "?"
> ELSE
> ch := SHORT(ch1)
> END
>
> A 16-bit Unicode character in your source code should then result in the
> same compilation error as the '%' character did in your example.
>
> Cheers,
> Chris
>
> Chris Burrows
> CFB Software
> Astrobe v4.0: Oberon for ARM embedded systems
> http://www.astrobe.com
>
>
> ----
> To unsubscribe, send a message with body "SIGNOFF BLACKBOX" to LISTSERV{([at]})nowhere.xy
>
>
> -----
> No virus found in this message.
> Checked by AVG - www.avg.com
> Version: 2012.0.1901 / Virus Database: 2109/4713 - Release Date: 12/30/11
>
>
>

----
To unsubscribe, send a message with body "SIGNOFF BLACKBOX" to LISTSERV{([at]})nowhere.xy----boundary-LibPST-iamunique-1881628697_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"
e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGRlZmYwe1xmb250dGJsDQp7XGYwXGZz
d2lzc1xmY2hhcnNldDAgQXJpYWw7fQ0Ke1xmMVxmbW9kZXJuIENvdXJpZXIgTmV3O30NCntcZjJc
Zm5pbFxmY2hhcnNldDIgU3ltYm9sO30NCntcZjNcZm1vZGVyblxmY2hhcnNldDAgQ291cmllciBO
ZXc7fX0NCntcY29sb3J0YmxccmVkMFxncmVlbjBcYmx1ZTA7XHJlZDBcZ3JlZW4wXGJsdWUyNTU7
fQ0KXHVjMVxwYXJkXHBsYWluXGRlZnRhYjM2MCBcZjBcZnMyMCBNeSB3b3JrIGNvbXB1dGVyIHVz
ZXMgT3V0bG9vayBmb3IgZW1haWwsIGFuZCB0aGlua3MgdGhhdCBDaHJpcydzIHN1Z2dlc3Rpb24g
aXMgXHBhcg0KJ0p1bmsnIVxwYXINClxwYXINCk15IGhvbWUgY29tcHV0ZXIgKFRodW5kZXJiaXJk
KSBpcyBub3Qgc28gc2Vuc2l0aXZlLCBhbmQgbGV0IG1lIHRyeSBpdC5ccGFyDQpccGFyDQpBbmQg
bG8gJiBiZWhvbGQsIGl0IHNlZW1zIHRvIHdvcmsuIE5vdyAneiA6PSBcdTg3MjIgLTEwOC4zJyAo
dW5pY29kZSBcdTg3MjIgLSkgZmFpbHMgdG8gXHBhcg0KY29tcGlsZSwgcmF0aGVyIHRoYW4gZ2l2
aW5nIG1lIGFuIHVud2FudGVkIGFuZCB1bnN1c3BlY3RlZCArMTA4LjMgYXMgaXQgZGlkIGJlZm9y
ZS5ccGFyDQpccGFyDQpccGFyDQpccGFyDQpDaGVlcnNccGFyDQpccGFyDQpSb2JlcnRccGFyDQpc
cGFyDQpccGFyDQpccGFyDQpccGFyDQpccGFyDQpPbiAzMS8xMi8yMDExIDA0OjEyLCBDaHJpcyBC
dXJyb3dzIHdyb3RlOlxwYXINCj4+IC0tLS0tT3JpZ2luYWwgTWVzc2FnZS0tLS0tXHBhcg0KPj4g
RnJvbTogQmxhY2tCb3ggW21haWx0bzpCTEFDS0JPWEBMSVNUUy5PQkVST04uQ0hdIE9uIEJlaGFs
ZiBPZiBSb2JlcnRccGFyDQo+PiBTZW50OiBTYXR1cmRheSwgMzEgRGVjZW1iZXIgMjAxMSAxMDo1
OSBBTVxwYXINCj4+IFRvOiBCTEFDS0JPWEBMSVNUUy5PQkVST04uQ0hccGFyDQo+PiBTdWJqZWN0
OiBbQkxBQ0tCT1hdIEFub3RoZXIgY29tcGlsZXIgYnVnID9ccGFyDQo+PlxwYXINCj4+IEZvbGtz
XHBhcg0KPj5ccGFyDQo+PlxwYXINCj4+IElmIEkgd3JpdGVccGFyDQo+PlxwYXINCj4+ICAgIFZB
UlxwYXINCj4+ICAgICAgeiAgOiAgUkVBTDtccGFyDQo+PiAgICBCRUdJTlxwYXINCj4+ICAgICAg
eiAgOj0gICUxMDguMztccGFyDQo+PlxwYXINCj4+IHRoZSBjb21waWxlciBjb21wbGFpbnMgKGZh
Y3RvciBzdGFydHMgd2l0aCBpbmNvcnJlY3Qgc3ltYm9sKS5ccGFyDQo+PlxwYXINCj4+XHBhcg0K
Pj4gSG93ZXZlciwgaWYgSSByZXBsYWNlICclJyB3aXRoICdcJzg5JyAoVW5pY29kZSAyMDMwKSB0
aGVyZSBpcyBub1xwYXINCj4+IGNvbXBsYWludDsgdGhlICdwZXItdGhvdXNhbmQnIHNpZ24gaXMg
c2ltcGx5IGlnbm9yZWQuIFN1cmVseVxwYXINCj4+IHRoZXJlIHNob3VsZCBiZSBhIGNvbXBsYWlu
dD9ccGFyDQo+PlxwYXINCj5ccGFyDQo+IEl0IGFwcGVhcnMgdGhhdCAoZXhjZXB0IHdoZW4gcHJv
Y2Vzc2luZyBzdHJpbmcgY29uc3RhbnRzKSB0aGUgY29tcGlsZXJccGFyDQo+IHNpbXBseSBpZ25v
cmVzIGFueSBjaGFyYWN0ZXIgdGhhdCBpcyBub3QgaW5jbHVkZWQgaW4gdGhlIDI1Ni1jaGFyYWN0
ZXJccGFyDQo+IExBVElOLTEgY2hhcmFjdGVyIHNldCBkZWZpbmVkIGZvciB0aGUgQ29tcG9uZW50
IFBhc2NhbCBsYW5ndWFnZS4gVGhlXHBhcg0KPiByZWxldmFudCBsaW5lIG9mIGNvZGUgaXMgaW4g
RGV2Q1BNLkdldDpccGFyDQo+XHBhcg0KPiAgICBSRVBFQVQgaW4uUmVhZENoYXIoY2gxKTsgSU5D
KGN1cnBvcykgVU5USUwgKGNoMTwgIDEwMFgpJiAgKGNoMSAjXHBhcg0KPiBUZXh0TW9kZWxzLnZp
ZXdjb2RlKTtccGFyDQo+ICAgIGNoIDo9IFNIT1JUKGNoMSlccGFyDQo+XHBhcg0KPiBJIGhhdmVu
J3QgdGVzdGVkIGl0IGJ1dCBpZiB5b3Ugd2FudCB0byBzZWUgY29tcGlsZS10aW1lIGVycm9ycyB0
aGVuIHRyeVxwYXINCj4gbW9kaWZ5aW5nIHRoaXMgZnVuY3Rpb24gc28gdGhhdCBpbnN0ZWFkIG9m
IGlnbm9yaW5nIHRoZSBiYWQgY2hhcmFjdGVycyBpdFxwYXINCj4gc3Vic3RpdHV0ZXMgYSBMQVRJ
Ti0xIGNoYXJhY3RlciB0aGF0IGlzIG5vdCBwYXJ0IG9mIHRoZSBDb21wb25lbnQgUGFzY2FsXHBh
cg0KPiBsYW5ndWFnZS4gZS5nLiBzb21ldGhpbmcgbGlrZTpccGFyDQo+XHBhcg0KPiAgICBSRVBF
QVQgaW4uUmVhZENoYXIoY2gxKTsgSU5DKGN1cnBvcykgVU5USUwgKGNoMSAjIFRleHRNb2RlbHMu
dmlld2NvZGUpO1xwYXINCj4gICAgSUYgY2gxPj0gMTAwWCBUSEVOXHBhcg0KPiAgICAgICAgY2gg
Oj0gIj8iXHBhcg0KPiAgICBFTFNFXHBhcg0KPiAgICAgICAgY2ggOj0gU0hPUlQoY2gxKVxwYXIN
Cj4gICAgRU5EXHBhcg0KPlxwYXINCj4gQSAxNi1iaXQgVW5pY29kZSBjaGFyYWN0ZXIgaW4geW91
ciBzb3VyY2UgY29kZSBzaG91bGQgdGhlbiByZXN1bHQgaW4gdGhlXHBhcg0KPiBzYW1lIGNvbXBp
bGF0aW9uIGVycm9yIGFzIHRoZSAnJScgY2hhcmFjdGVyIGRpZCBpbiB5b3VyIGV4YW1wbGUuXHBh
cg0KPlxwYXINCj4gQ2hlZXJzLFxwYXINCj4gQ2hyaXNccGFyDQo+XHBhcg0KPiBDaHJpcyBCdXJy
b3dzXHBhcg0KPiBDRkIgU29mdHdhcmVccGFyDQo+IEFzdHJvYmUgdjQuMDogT2Jlcm9uIGZvciBB
Uk0gZW1iZWRkZWQgc3lzdGVtc1xwYXINCj4gaHR0cDovL3d3dy5hc3Ryb2JlLmNvbVxwYXINCj5c
cGFyDQo+XHBhcg0KPiAtLS0tXHBhcg0KPiBUbyB1bnN1YnNjcmliZSwgc2VuZCBhIG1lc3NhZ2Ug
d2l0aCBib2R5ICJTSUdOT0ZGIEJMQUNLQk9YIiB0byBMSVNUU0VSVkBMSVNUUy5PQkVST04uQ0hc
cGFyDQo+XHBhcg0KPlxwYXINCj4gLS0tLS1ccGFyDQo+IE5vIHZpcnVzIGZvdW5kIGluIHRoaXMg
bWVzc2FnZS5ccGFyDQo+IENoZWNrZWQgYnkgQVZHIC0gd3d3LmF2Zy5jb21ccGFyDQo+IFZlcnNp
b246IDIwMTIuMC4xOTAxIC8gVmlydXMgRGF0YWJhc2U6IDIxMDkvNDcxMyAtIFJlbGVhc2UgRGF0
ZTogMTIvMzAvMTFccGFyDQo+XHBhcg0KPlxwYXINCj5ccGFyDQpccGFyDQpccGFyDQotLS0tXHBh
cg0KVG8gdW5zdWJzY3JpYmUsIHNlbmQgYSBtZXNzYWdlIHdpdGggYm9keSAiU0lHTk9GRiBCTEFD
S0JPWCIgdG8gTElTVFNFUlZATElTVFMuT0JFUk9OLkNIXHBhcg0KfQ==
----boundary-LibPST-iamunique-1881628697_-_---

Received on Tue Jan 03 2012 - 22:56:23 UTC