[BLACKBOX] Possible compiler bug ?

From: [at]} <Robert>
Date: Sun, 18 Dec 2011 09:34:52 +0000

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

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----boundary-LibPST-iamunique-2104285884_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"
e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGRlZmYwe1xmb250dGJsDQp7XGYwXGZz
d2lzcyBBcmlhbDt9DQp7XGYxXGZtb2Rlcm4gQ291cmllciBOZXc7fQ0Ke1xmMlxmbmlsXGZjaGFy
c2V0MiBTeW1ib2w7fQ0Ke1xmM1xmbW9kZXJuXGZjaGFyc2V0MCBDb3VyaWVyIE5ldzt9fQ0Ke1xj
b2xvcnRibFxyZWQwXGdyZWVuMFxibHVlMDtccmVkMFxncmVlbjBcYmx1ZTI1NTt9DQpcdWMxXHBh
cmRccGxhaW5cZGVmdGFiMzYwIFxmMFxmczIwIEhpXHBhcg0KXHBhcg0KSSBjYW4ndCBjb21waWxl
IHRoZSBjb2RlIGJlbG93LCB3aGljaCBzZWVtcyBvayB0byBtZS5ccGFyDQpccGFyDQpJIGRvbid0
IGdldCBhbiBlcnJvciBtZXNzYWdlLCBJIGdldCBhIGNvbXBpbGVyIGNyYXNoLlxwYXINClxwYXIN
CkFtIEkgb3Zlcmxvb2tpbmcgc29tZXRoaW5nIG9idmlvdXM/XHBhcg0KXHBhcg0KUmVnYXJkc1xw
YXINClxwYXINClJvYmVydFxwYXINClxwYXINClxwYXINClxwYXINCk1PRFVMRSAgRGVtb01ldGVy
O1xwYXINClxwYXINClxwYXINClRZUEVccGFyDQogICBNZXRlciAgPSAgUE9JTlRFUiAgVE8gIFJF
Q09SRFxwYXINCiAgICAgICAgICAgICAgIG1heFZhbCAgOiAgSU5URUdFUjtccGFyDQogICAgICAg
ICAgICAgIEVORDtccGFyDQpccGFyDQpccGFyDQpQUk9DRURVUkUgIERvKjtccGFyDQogICBWQVJc
cGFyDQogICAgIHBvcywgdmFsICA6ICBJTlRFR0VSO1xwYXINCiAgICAgbWV0ZXIgICAgIDogIE1l
dGVyO1xwYXINCiAgIEJFR0lOXHBhcg0KICAgICAgcG9zICA6PSAgU0hPUlQgKHZhbCAqIExPTkcg
KDEwMCkgIERJViAgbWV0ZXIubWF4VmFsKVxwYXINCiAgIEVORCAgRG87XHBhcg0KXHBhcg0KXHBh
cg0KRU5EICBEZW1vTWV0ZXIuXHBhcg0KXHBhcg0KXHBhcg0KLS0tLVxwYXINClRvIHVuc3Vic2Ny
aWJlLCBzZW5kIGEgbWVzc2FnZSB3aXRoIGJvZHkgIlNJR05PRkYgQkxBQ0tCT1giIHRvIExJU1RT
RVJWQExJU1RTLk9CRVJPTi5DSH19AAAeDAA=
----boundary-LibPST-iamunique-2104285884_-_---

Received on Sun Dec 18 2011 - 10:34:52 UTC