Re: [BLACKBOX] Variable IN parameters !

From: [at]} <>
Date: Thu, 9 Aug 2012 22:48:25 +0800

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

Robert,

if you want this kind error,

>>

Would you want the same to apply to receivers? i.e. would you want the
following to result in an error?

PROCEDURE (VAR box : Box) Pepper, NEW;
BEGIN
END Pepper;

PROCEDURE (IN box : Box) Salt, NEW;
BEGIN
box.Pepper
END Salt;

Chris
>>


try this patch:

DevCPB.PrepCall
....
  IF x.obj.mode = TProc THEN
    IF fpar.typ.form = Pointer THEN
      IF x.left.class = Nderef THEN x.left := x.left.left (*undo DeRef v.m(); *)
      ELSE err(71)
      END;
   >>>add
     ELSIF (fpar.vis # inPar)THEN
       IF x.left.readonly THEN DevCPM.Mark(76, x.left.obj.txtpos); END;
    <<<
    END;
    fpar := fpar.link
  END
...


regards,

luowy

----
To unsubscribe, send a message with body "SIGNOFF BLACKBOX" to LISTSERV{([at]})nowhere.xy----boundary-LibPST-iamunique-1844934695_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"
e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGZiaWRpcyBcZGVmZjB7XGZvbnR0YmwN
CntcZjBcZnN3aXNzIEFyaWFsO30NCntcZjFcZm1vZGVybiBDb3VyaWVyIE5ldzt9DQp7XGYyXGZu
aWxcZmNoYXJzZXQyIFN5bWJvbDt9DQp7XGYzXGZtb2Rlcm5cZmNoYXJzZXQwIENvdXJpZXIgTmV3
O319DQp7XGNvbG9ydGJsXHJlZDBcZ3JlZW4wXGJsdWUwO1xyZWQwXGdyZWVuMFxibHVlMjU1O30N
Clx1YzFccGFyZFxwbGFpblxkZWZ0YWIzNjAgXGYwXGZzMjAgUm9iZXJ0LFxwYXINClxwYXINCmlm
IHlvdSB3YW50IHRoaXMga2luZCBlcnJvcixccGFyDQpccGFyDQo+PlxwYXINClxwYXINCldvdWxk
IHlvdSB3YW50IHRoZSBzYW1lIHRvIGFwcGx5IHRvIHJlY2VpdmVycz8gaS5lLiB3b3VsZCB5b3Ug
d2FudCB0aGVccGFyDQpmb2xsb3dpbmcgdG8gcmVzdWx0IGluIGFuIGVycm9yP1xwYXINClxwYXIN
ClBST0NFRFVSRSAoVkFSIGJveCA6IEJveCkgUGVwcGVyLCBORVc7XHBhcg0KQkVHSU5ccGFyDQpF
TkQgUGVwcGVyO1xwYXINClxwYXINClBST0NFRFVSRSAoSU4gYm94IDogQm94KSBTYWx0LCBORVc7
XHBhcg0KQkVHSU5ccGFyDQpib3guUGVwcGVyXHBhcg0KRU5EIFNhbHQ7XHBhcg0KXHBhcg0KQ2hy
aXNccGFyDQo+PlxwYXINClxwYXINClxwYXINCnRyeSB0aGlzIHBhdGNoOlxwYXINClxwYXINCkRl
dkNQQi5QcmVwQ2FsbFxwYXINCi4uLi5ccGFyDQogIElGIHgub2JqLm1vZGUgPSBUUHJvYyBUSEVO
XHBhcg0KICAgIElGIGZwYXIudHlwLmZvcm0gPSBQb2ludGVyIFRIRU5ccGFyDQogICAgICBJRiB4
LmxlZnQuY2xhc3MgPSBOZGVyZWYgVEhFTiB4LmxlZnQgOj0geC5sZWZ0LmxlZnQgKCp1bmRvIERl
UmVmIHYubSgpOyAqKVxwYXINCiAgICAgIEVMU0UgZXJyKDcxKVxwYXINCiAgICAgIEVORDtccGFy
DQogICA+Pj5hZGRccGFyDQogICAgIEVMU0lGIChmcGFyLnZpcyAjIGluUGFyKVRIRU5ccGFyDQog
ICAgICAgSUYgeC5sZWZ0LnJlYWRvbmx5IFRIRU4gRGV2Q1BNLk1hcmsoNzYsIHgubGVmdC5vYmou
dHh0cG9zKTsgRU5EO1xwYXINCiAgICA8PDxccGFyDQogICAgRU5EO1xwYXINCiAgICBmcGFyIDo9
IGZwYXIubGlua1xwYXINCiAgRU5EXHBhcg0KLi4uXHBhcg0KXHBhcg0KXHBhcg0KcmVnYXJkcyxc
cGFyDQpccGFyDQpsdW93eVxwYXINClxwYXINClxwYXINCi0tLS1ccGFyDQpUbyB1bnN1YnNjcmli
ZSwgc2VuZCBhIG1lc3NhZ2Ugd2l0aCBib2R5ICJTSUdOT0ZGIEJMQUNLQk9YIiB0byBMSVNUU0VS
VkBMSVNUUy5PQkVST04uQ0hccGFyDQp9
----boundary-LibPST-iamunique-1844934695_-_---

Received on Thu Aug 09 2012 - 16:48:25 UTC