Re: [BLACKBOX] 'Wasting time'

From: [at]} <CFB>
Date: Sat, 23 Feb 2008 17:02:56 +1030

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

> -----Original Message-----
> From: BlackBox [mailto:BLACKBOX{([at]})nowhere.xy
> CFB Software
> Sent: Saturday, 23 February 2008 3:48 PM
> To: BLACKBOX{([at]})nowhere.xy
> Subject: Re: [BLACKBOX] 'Wasting time'
>
>
> That was my mistake - I should have just published the four
> lines of code that made it 1% better.
>

... and here they are - if any of you can see more than four lines of code
then it's time you treated yourself to a widescreen display ;-)

In DevCPP.FormalParameters:

1. Change the line:
  ELSIF sym = in THEN DevCPS.Get(sym); mode := VarPar; vis := inPar
to:
  ELSIF sym = in THEN DevCPS.Get(sym); mode := Var; vis := inPar

2. Delete the statement:
IF (mode = VarPar) & (vis = inPar) & (typ.form # Undef) &
   (typ.form # Comp) & (typ.sysflag = 0) THEN
  err(177)
END;

3. After:
  WHILE first # NIL DO
Insert:
    IF (typ.form = Comp) & (mode = Var) & (vis = inPar) THEN first.mode :=
VarPar END;

(*-------------------------------*)
In DevCPB.NewLeaf:

1. Replace the statement:
  CASE obj.mode OF
    Var:
      node := DevCPT.NewNode(Nvar);
      node.readonly := (obj.vis = externalR) & (obj.mnolev < 0)
with:
  CASE obj.mode OF
    Var:
      node := DevCPT.NewNode(Nvar);
      node.readonly := (obj.vis = inPar) OR
         ((obj.vis = externalR) & (obj.mnolev < 0))

Cheers,
Chris

CFB Software
http://www.cfbsoftware.com/cp


----
To unsubscribe, send a message with body "SIGNOFF BLACKBOX" to LISTSERV{([at]})nowhere.xy----boundary-LibPST-iamunique-59345949_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"
e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGRlZmYwe1xmb250dGJsDQp7XGYwXGZz
d2lzcyBBcmlhbDt9DQp7XGYxXGZtb2Rlcm4gQ291cmllciBOZXc7fQ0Ke1xmMlxmbmlsXGZjaGFy
c2V0MiBTeW1ib2w7fQ0Ke1xmM1xmbW9kZXJuXGZjaGFyc2V0MCBDb3VyaWVyIE5ldzt9fQ0Ke1xj
b2xvcnRibFxyZWQwXGdyZWVuMFxibHVlMDtccmVkMFxncmVlbjBcYmx1ZTI1NTt9DQpcdWMxXHBh
cmRccGxhaW5cZGVmdGFiMzYwIFxmMFxmczIwID4gLS0tLS1PcmlnaW5hbCBNZXNzYWdlLS0tLS1c
cGFyDQo+IEZyb206IEJsYWNrQm94IFttYWlsdG86QkxBQ0tCT1hATElTVFMuT0JFUk9OLkNIXSBP
biBCZWhhbGYgT2YgXHBhcg0KPiBDRkIgU29mdHdhcmVccGFyDQo+IFNlbnQ6IFNhdHVyZGF5LCAy
MyBGZWJydWFyeSAyMDA4IDM6NDggUE1ccGFyDQo+IFRvOiBCTEFDS0JPWEBMSVNUUy5PQkVST04u
Q0hccGFyDQo+IFN1YmplY3Q6IFJlOiBbQkxBQ0tCT1hdICdXYXN0aW5nIHRpbWUnXHBhcg0KPiBc
cGFyDQo+IFxwYXINCj4gVGhhdCB3YXMgbXkgbWlzdGFrZSAtIEkgc2hvdWxkIGhhdmUganVzdCBw
dWJsaXNoZWQgdGhlIGZvdXIgXHBhcg0KPiBsaW5lcyBvZiBjb2RlIHRoYXQgbWFkZSBpdCAxJSBi
ZXR0ZXIuXHBhcg0KPiBccGFyDQpccGFyDQouLi4gYW5kIGhlcmUgdGhleSBhcmUgLSBpZiBhbnkg
b2YgeW91IGNhbiBzZWUgbW9yZSB0aGFuIGZvdXIgbGluZXMgb2YgY29kZVxwYXINCnRoZW4gaXQn
cyB0aW1lIHlvdSB0cmVhdGVkIHlvdXJzZWxmIHRvIGEgd2lkZXNjcmVlbiBkaXNwbGF5IDstKVxw
YXINClxwYXINCkluIERldkNQUC5Gb3JtYWxQYXJhbWV0ZXJzOlxwYXINClxwYXINCjEuIENoYW5n
ZSB0aGUgbGluZTpccGFyDQogIEVMU0lGIHN5bSA9IGluIFRIRU4gRGV2Q1BTLkdldChzeW0pOyBt
b2RlIDo9IFZhclBhcjsgdmlzIDo9IGluUGFyXHBhcg0KdG86XHBhcg0KICBFTFNJRiBzeW0gPSBp
biBUSEVOIERldkNQUy5HZXQoc3ltKTsgbW9kZSA6PSBWYXI7IHZpcyA6PSBpblBhclxwYXINClxw
YXINCjIuIERlbGV0ZSB0aGUgc3RhdGVtZW50OlxwYXINCklGIChtb2RlID0gVmFyUGFyKSAmICh2
aXMgPSBpblBhcikgJiAodHlwLmZvcm0gIyBVbmRlZikgJiBccGFyDQogICAodHlwLmZvcm0gIyBD
b21wKSAmICh0eXAuc3lzZmxhZyA9IDApIFRIRU4gXHBhcg0KICBlcnIoMTc3KVxwYXINCkVORDtc
cGFyDQpccGFyDQozLiBBZnRlcjpccGFyDQogIFdISUxFIGZpcnN0ICMgTklMIERPXHBhcg0KSW5z
ZXJ0OlxwYXINCiAgICBJRiAodHlwLmZvcm0gPSBDb21wKSAmIChtb2RlID0gVmFyKSAmICh2aXMg
PSBpblBhcikgVEhFTiBmaXJzdC5tb2RlIDo9XHBhcg0KVmFyUGFyIEVORDtccGFyDQpccGFyDQoo
Ki0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0qKVxwYXINCkluIERldkNQQi5OZXdMZWFm
OlxwYXINClxwYXINCjEuIFJlcGxhY2UgdGhlIHN0YXRlbWVudDpccGFyDQogIENBU0Ugb2JqLm1v
ZGUgT0ZccGFyDQogICAgVmFyOlxwYXINCiAgICAgIG5vZGUgOj0gRGV2Q1BULk5ld05vZGUoTnZh
cik7IFxwYXINCiAgICAgIG5vZGUucmVhZG9ubHkgOj0gKG9iai52aXMgPSBleHRlcm5hbFIpICYg
KG9iai5tbm9sZXYgPCAwKVxwYXINCndpdGg6XHBhcg0KICBDQVNFIG9iai5tb2RlIE9GXHBhcg0K
ICAgIFZhcjpccGFyDQogICAgICBub2RlIDo9IERldkNQVC5OZXdOb2RlKE52YXIpOyBccGFyDQog
ICAgICBub2RlLnJlYWRvbmx5IDo9IChvYmoudmlzID0gaW5QYXIpIE9SIFxwYXINCiAgICAgICAg
ICgob2JqLnZpcyA9IGV4dGVybmFsUikgJiAob2JqLm1ub2xldiA8IDApKVxwYXINClxwYXINCkNo
ZWVycyxccGFyDQpDaHJpc1xwYXINClxwYXINCkNGQiBTb2Z0d2FyZVxwYXINCmh0dHA6Ly93d3cu
Y2Zic29mdHdhcmUuY29tL2NwXHBhcg0KXHBhcg0KXHBhcg0KLS0tLVxwYXINClRvIHVuc3Vic2Ny
aWJlLCBzZW5kIGEgbWVzc2FnZSB3aXRoIGJvZHkgIlNJR05PRkYgQkxBQ0tCT1giIHRvIExJU1RT
RVJWQExJU1RTLk9CRVJPTi5DSFx9fQBiR1U=
----boundary-LibPST-iamunique-59345949_-_---
Received on Sat Feb 23 2008 - 07:32:56 UTC

This archive was generated by hypermail 2.3.0 : Thu Sep 26 2013 - 06:31:00 UTC