Re: [BLACKBOX] Another trap during compile

From: [at]} <Chris>
Date: Thu, 21 Oct 2010 11:03:52 +1030

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

>-----Original Message-----
>From: BlackBox [mailto:BLACKBOX{([at]})nowhere.xy
>Oleg N. Cher
>Sent: Thursday, 21 October 2010 12:38 AM
>To: BLACKBOX{([at]})nowhere.xy
>Subject: [BLACKBOX] Another trap during compile
>
>If you collect traps during compile ;-) You have another:
>
>PROCEDURE A* (): LONGINT;
>BEGIN
> RETURN SYSTEM.VAL(LONGINT, MapRGB())
>END A;
>

I agree it is worth reporting and understand this is probably a test case.
However, you should check to see if the original problem case actually
required the use of a SYSTEM.VAL typecast.

In your test example you don't need, and should not use, a typecast because
the assignment-compatibility rules in Component Pascal also apply to RETURN
statements. The relevant rule is:

--------------------------------------
An expression e of type Te is assignment compatible with a variable v of
type Tv if one of the following conditions hold:
...
2. Te and Tv are numeric or character types and Tv includes Te;
...
--------------------------------------

In this case Tv (LONGINT) includes Te (INTEGER) and the following is
sufficient:

PROCEDURE A* (): LONGINT;
BEGIN
  RETURN MapRGB()
END A;

Regards,
Chris Burrows
CFB Software
http://www.cfbsoftware.com

----
To unsubscribe, send a message with body "SIGNOFF BLACKBOX" to LISTSERV{([at]})nowhere.xy----boundary-LibPST-iamunique-863066586_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"
e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGRlZmYwe1xmb250dGJsDQp7XGYwXGZz
d2lzcyBBcmlhbDt9DQp7XGYxXGZtb2Rlcm4gQ291cmllciBOZXc7fQ0Ke1xmMlxmbmlsXGZjaGFy
c2V0MiBTeW1ib2w7fQ0Ke1xmM1xmbW9kZXJuXGZjaGFyc2V0MCBDb3VyaWVyIE5ldzt9fQ0Ke1xj
b2xvcnRibFxyZWQwXGdyZWVuMFxibHVlMDtccmVkMFxncmVlbjBcYmx1ZTI1NTt9DQpcdWMxXHBh
cmRccGxhaW5cZGVmdGFiMzYwIFxmMFxmczIwID4tLS0tLU9yaWdpbmFsIE1lc3NhZ2UtLS0tLVxw
YXINCj5Gcm9tOiBCbGFja0JveCBbbWFpbHRvOkJMQUNLQk9YQExJU1RTLk9CRVJPTi5DSF0gT24g
QmVoYWxmIE9mIFxwYXINCj5PbGVnIE4uIENoZXJccGFyDQo+U2VudDogVGh1cnNkYXksIDIxIE9j
dG9iZXIgMjAxMCAxMjozOCBBTVxwYXINCj5UbzogQkxBQ0tCT1hATElTVFMuT0JFUk9OLkNIXHBh
cg0KPlN1YmplY3Q6IFtCTEFDS0JPWF0gQW5vdGhlciB0cmFwIGR1cmluZyBjb21waWxlXHBhcg0K
PlxwYXINCj5JZiB5b3UgY29sbGVjdCB0cmFwcyBkdXJpbmcgY29tcGlsZSA7LSkgWW91IGhhdmUg
YW5vdGhlcjpccGFyDQo+XHBhcg0KPlBST0NFRFVSRSBBKiAoKTogTE9OR0lOVDtccGFyDQo+QkVH
SU5ccGFyDQo+ICBSRVRVUk4gU1lTVEVNLlZBTChMT05HSU5ULCBNYXBSR0IoKSlccGFyDQo+RU5E
IEE7XHBhcg0KPlxwYXINClxwYXINCkkgYWdyZWUgaXQgaXMgd29ydGggcmVwb3J0aW5nIGFuZCB1
bmRlcnN0YW5kIHRoaXMgaXMgcHJvYmFibHkgYSB0ZXN0IGNhc2UuXHBhcg0KSG93ZXZlciwgeW91
IHNob3VsZCBjaGVjayB0byBzZWUgaWYgdGhlIG9yaWdpbmFsIHByb2JsZW0gY2FzZSBhY3R1YWxs
eVxwYXINCnJlcXVpcmVkIHRoZSB1c2Ugb2YgYSBTWVNURU0uVkFMIHR5cGVjYXN0LiBccGFyDQpc
cGFyDQpJbiB5b3VyIHRlc3QgZXhhbXBsZSB5b3UgZG9uJ3QgbmVlZCwgYW5kIHNob3VsZCBub3Qg
dXNlLCBhIHR5cGVjYXN0IGJlY2F1c2VccGFyDQp0aGUgYXNzaWdubWVudC1jb21wYXRpYmlsaXR5
IHJ1bGVzIGluIENvbXBvbmVudCBQYXNjYWwgYWxzbyBhcHBseSB0byBSRVRVUk5ccGFyDQpzdGF0
ZW1lbnRzLiBUaGUgcmVsZXZhbnQgcnVsZSBpczpccGFyDQpccGFyDQotLS0tLS0tLS0tLS0tLS0t
LS0tLS0tLS0tLS0tLS0tLS0tLS0tLVxwYXINCkFuIGV4cHJlc3Npb24gZSBvZiB0eXBlIFRlIGlz
IGFzc2lnbm1lbnQgY29tcGF0aWJsZSB3aXRoIGEgdmFyaWFibGUgdiBvZlxwYXINCnR5cGUgVHYg
aWYgb25lIG9mIHRoZSBmb2xsb3dpbmcgY29uZGl0aW9ucyBob2xkOlxwYXINCi4uLlxwYXINCjIu
ICBUZSBhbmQgVHYgYXJlIG51bWVyaWMgb3IgY2hhcmFjdGVyIHR5cGVzIGFuZCBUdiBpbmNsdWRl
cyBUZTtccGFyDQouLi5ccGFyDQotLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0t
LVxwYXINClxwYXINCkluIHRoaXMgY2FzZSBUdiAoTE9OR0lOVCkgaW5jbHVkZXMgVGUgKElOVEVH
RVIpIGFuZCB0aGUgZm9sbG93aW5nIGlzXHBhcg0Kc3VmZmljaWVudDpccGFyDQpccGFyDQpQUk9D
RURVUkUgQSogKCk6IExPTkdJTlQ7XHBhcg0KQkVHSU5ccGFyDQogIFJFVFVSTiBNYXBSR0IoKVxw
YXINCkVORCBBO1xwYXINClxwYXINClJlZ2FyZHMsXHBhcg0KQ2hyaXMgQnVycm93c1xwYXINCkNG
QiBTb2Z0d2FyZVxwYXINCmh0dHA6Ly93d3cuY2Zic29mdHdhcmUuY29tXHBhcg0KXHBhcg0KXHBh
cg0KLS0tLVxwYXINClRvIHVuc3Vic2NyaWJlLCBzZW5kIGEgbWVzc2FnZSB3aXRoIGJvZHkgIlNJ
R05PRkYgQkxBQ0tCT1giIHRvIExJU1RTRVJWQExJU1RTLk9CRVJPTi5DSFxwYXINCn0=
----boundary-LibPST-iamunique-863066586_-_---

Received on Thu Oct 21 2010 - 02:33:52 UTC