Re: [BLACKBOX] Possible compiler bug ?

From: [at]} <Chris>
Date: Mon, 19 Dec 2011 22:06:40 +1030

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

>-----Original Message-----
>From: BlackBox [mailto:BLACKBOX{([at]})nowhere.xy
>Sent: Sunday, 18 December 2011 8:05 PM
>To: BLACKBOX{([at]})nowhere.xy
>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.
>

Curiouser and curiouser ...

Your code crashes the Gardens Point .NET compiler as well. However, quite
unexpectedly to me, the GPCP version *compiles* OK when meter is initialised
with NEW. val also has to be initialised when using GPCP.

If you are looking for a workaround in BlackBox while waiting for the
problem to be fixed, the usual solution in cases such as this is to break
the expression up into simpler parts e.g. the following compiles where
maxVal is a local INTEGER variable:

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

Regards,
Chris

Chris Burrows
CFB Software
http://www.cfbsoftware.com/gpcp

----
To unsubscribe, send a message with body "SIGNOFF BLACKBOX" to LISTSERV{([at]})nowhere.xy----boundary-LibPST-iamunique-1808733278_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"
e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGRlZmYwe1xmb250dGJsDQp7XGYwXGZz
d2lzcyBBcmlhbDt9DQp7XGYxXGZtb2Rlcm4gQ291cmllciBOZXc7fQ0Ke1xmMlxmbmlsXGZjaGFy
c2V0MiBTeW1ib2w7fQ0Ke1xmM1xmbW9kZXJuXGZjaGFyc2V0MCBDb3VyaWVyIE5ldzt9fQ0Ke1xj
b2xvcnRibFxyZWQwXGdyZWVuMFxibHVlMDtccmVkMFxncmVlbjBcYmx1ZTI1NTt9DQpcdWMxXHBh
cmRccGxhaW5cZGVmdGFiMzYwIFxmMFxmczIwID4tLS0tLU9yaWdpbmFsIE1lc3NhZ2UtLS0tLVxw
YXINCj5Gcm9tOiBCbGFja0JveCBbbWFpbHRvOkJMQUNLQk9YQExJU1RTLk9CRVJPTi5DSF0gT24g
QmVoYWxmIE9mIFJvYmVydFxwYXINCj5TZW50OiBTdW5kYXksIDE4IERlY2VtYmVyIDIwMTEgODow
NSBQTVxwYXINCj5UbzogQkxBQ0tCT1hATElTVFMuT0JFUk9OLkNIXHBhcg0KPlN1YmplY3Q6IFtC
TEFDS0JPWF0gUG9zc2libGUgY29tcGlsZXIgYnVnID9ccGFyDQo+XHBhcg0KPkhpXHBhcg0KPlxw
YXINCj5JIGNhbid0IGNvbXBpbGUgdGhlIGNvZGUgYmVsb3csIHdoaWNoIHNlZW1zIG9rIHRvIG1l
LlxwYXINCj5ccGFyDQo+SSBkb24ndCBnZXQgYW4gZXJyb3IgbWVzc2FnZSwgSSBnZXQgYSBjb21w
aWxlciBjcmFzaC5ccGFyDQo+XHBhcg0KPkFtIEkgb3Zlcmxvb2tpbmcgc29tZXRoaW5nIG9idmlv
dXM/XHBhcg0KPlxwYXINCj5SZWdhcmRzXHBhcg0KPlxwYXINCj5Sb2JlcnRccGFyDQo+XHBhcg0K
PlxwYXINCj5ccGFyDQo+TU9EVUxFICBEZW1vTWV0ZXI7XHBhcg0KPlxwYXINCj5ccGFyDQo+VFlQ
RVxwYXINCj4gICBNZXRlciAgPSAgUE9JTlRFUiAgVE8gIFJFQ09SRFxwYXINCj4gICAgICAgICAg
ICAgICBtYXhWYWwgIDogIElOVEVHRVI7XHBhcg0KPiAgICAgICAgICAgICAgRU5EO1xwYXINCj5c
cGFyDQo+XHBhcg0KPlBST0NFRFVSRSAgRG8qO1xwYXINCj4gICBWQVJccGFyDQo+ICAgICBwb3Ms
IHZhbCAgOiAgSU5URUdFUjtccGFyDQo+ICAgICBtZXRlciAgICAgOiAgTWV0ZXI7XHBhcg0KPiAg
IEJFR0lOXHBhcg0KPiAgICAgIHBvcyAgOj0gIFNIT1JUICh2YWwgKiBMT05HICgxMDApICBESVYg
IG1ldGVyLm1heFZhbClccGFyDQo+ICAgRU5EICBEbztccGFyDQo+XHBhcg0KPlxwYXINCj5FTkQg
IERlbW9NZXRlci5ccGFyDQo+XHBhcg0KXHBhcg0KQ3VyaW91c2VyIGFuZCBjdXJpb3VzZXIgLi4u
XHBhcg0KXHBhcg0KWW91ciBjb2RlIGNyYXNoZXMgdGhlIEdhcmRlbnMgUG9pbnQgLk5FVCBjb21w
aWxlciBhcyB3ZWxsLiBIb3dldmVyLCBxdWl0ZVxwYXINCnVuZXhwZWN0ZWRseSB0byBtZSwgdGhl
IEdQQ1AgdmVyc2lvbiAqY29tcGlsZXMqIE9LIHdoZW4gbWV0ZXIgaXMgaW5pdGlhbGlzZWRccGFy
DQp3aXRoIE5FVy4gdmFsIGFsc28gaGFzIHRvIGJlIGluaXRpYWxpc2VkIHdoZW4gdXNpbmcgR1BD
UC5ccGFyDQpccGFyDQpJZiB5b3UgYXJlIGxvb2tpbmcgZm9yIGEgd29ya2Fyb3VuZCBpbiBCbGFj
a0JveCB3aGlsZSB3YWl0aW5nIGZvciB0aGVccGFyDQpwcm9ibGVtIHRvIGJlIGZpeGVkLCB0aGUg
dXN1YWwgc29sdXRpb24gaW4gY2FzZXMgc3VjaCBhcyB0aGlzIGlzIHRvIGJyZWFrXHBhcg0KdGhl
IGV4cHJlc3Npb24gdXAgaW50byBzaW1wbGVyIHBhcnRzIGUuZy4gdGhlIGZvbGxvd2luZyBjb21w
aWxlcyB3aGVyZVxwYXINCm1heFZhbCBpcyBhIGxvY2FsIElOVEVHRVIgdmFyaWFibGU6XHBhcg0K
XHBhcg0KICBtYXhWYWwgOj0gbWV0ZXIubWF4VmFsO1xwYXINCiAgcG9zICA6PSAgU0hPUlQgKHZh
bCAqIExPTkcgKDEwMCkgRElWIG1heFZhbClccGFyDQpccGFyDQpSZWdhcmRzLFxwYXINCkNocmlz
XHBhcg0KXHBhcg0KQ2hyaXMgQnVycm93c1xwYXINCkNGQiBTb2Z0d2FyZVxwYXINCmh0dHA6Ly93
d3cuY2Zic29mdHdhcmUuY29tL2dwY3BccGFyDQpccGFyDQpccGFyDQotLS0tXHBhcg0KVG8gdW5z
dWJzY3JpYmUsIHNlbmQgYSBtZXNzYWdlIHdpdGggYm9keSAiU0lHTk9GRiBCTEFDS0JPWCIgdG8g
TElTVFNFUlZATElTVFMuT0JFUk9OLkNIXH19AE1jSQ==
----boundary-LibPST-iamunique-1808733278_-_---

Received on Mon Dec 19 2011 - 12:36:40 UTC