----boundary-LibPST-iamunique-1390314007_-_-
Content-type: text/plain
> Hmm,
>
> strange enough:
>
> MODULE PrivTest;
> IMPORT Out, Kernel;
>
> PROCEDURE Do*;
> BEGIN
> Out.String ("Allocated: ");
> Out.Int(Kernel.Allocated(),0);
> Out.Ln
> END Do;
>
> END PrivTest.Do
>
> gives with repeated calls also increasing values.
> Allocated: 373936
> Allocated: 377008
> Allocated: 380080
> Allocated: 383152
> Allocated: 386224
> Allocated: 389296
> Allocated: 392368
> Allocated: 395440
> Allocated: 398512
> Allocated: 401584
> Allocated: 404656
> Allocated: 407728
> Allocated: 410800
> Allocated: 413872
> Allocated: 416944
> Allocated: 420016
> Allocated: 423088
Well, in this case it's rather unsurprising for two reasons:
- the garbage collector doesn't start running at every allocation;
- every call to an Out procedure allocates something on the heap (to
fill the Log), and increases allocated memory. It's why I used
Dialog.ShowStatus in my last example instead of Out or StdLog.
But, if you allocate repeatedly the same pointer variable, you'll see
allocated memory increase, and sometimes decrease when GC starts running,
with its mean value remaining stable. For example, you can try:
MODULE PrivTest2;
IMPORT Dialog, Kernel, Services, Strings;
PROCEDURE Do*;
CONST
delay = ENTIER(0.01 * Services.resolution);
VAR
s: ARRAY 12 OF CHAR;
a:POINTER TO ARRAY 1024 OF BYTE;
t: LONGINT;
BEGIN
LOOP
NEW(a);
Strings.IntToString(Kernel.Allocated(), s);
Dialog.ShowStatus(s);
t := Services.Ticks() + delay;
REPEAT
UNTIL Services.Ticks() > t;
END;
END Do;
END PrivTest2.
Cheers.
Gérard
--------------------------------------------
To unsubscribe from this mailing list, send a message containing the word "unsubscribe" to:
blackbox-request{([at]})nowhere.xy
To get a list of valid e-mail commands and instructions on their usage, send a message containing the word "help" to the above address.
Send any problem reports or questions related to this email list to the list owner at
owner-blackbox{([at]})nowhere.xy
Current posting policy:
a) To post you should use the same address by which you are subscribed to the mailing list. That way, the list server will recognize you as subscriber and forward your posting immediately, without creating any overhead.
b) If, for some reason, you cannot post from the address, by which you are subscribed, your message will be moderated to avoid spam. Please understand that moderation will often cause some delay, in particular over weekends or holydays.
----boundary-LibPST-iamunique-1390314007_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"
e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGRlZmYwe1xmb250dGJsDQp7XGYwXGZz
d2lzc1xmY2hhcnNldDAgQXJpYWw7fQ0Ke1xmMVxmbW9kZXJuIENvdXJpZXIgTmV3O30NCntcZjJc
Zm5pbFxmY2hhcnNldDIgU3ltYm9sO30NCntcZjNcZm1vZGVyblxmY2hhcnNldDAgQ291cmllciBO
ZXc7fX0NCntcY29sb3J0YmxccmVkMFxncmVlbjBcYmx1ZTA7XHJlZDBcZ3JlZW4wXGJsdWUyNTU7
fQ0KXHVjMVxwYXJkXHBsYWluXGRlZnRhYjM2MCBcZjBcZnMyMCA+IEhtbSxccGFyDQo+XHBhcg0K
PiBzdHJhbmdlIGVub3VnaDpccGFyDQo+XHBhcg0KPiBNT0RVTEUgUHJpdlRlc3Q7XHBhcg0KPiAg
IElNUE9SVCBPdXQsIEtlcm5lbDtccGFyDQo+XHBhcg0KPiAgICBQUk9DRURVUkUgRG8qO1xwYXIN
Cj4gICAgICAgQkVHSU5ccGFyDQo+ICAgICAgICAgICAgT3V0LlN0cmluZyAoIkFsbG9jYXRlZDog
Iik7XHBhcg0KPiAgICAgICAgICAgIE91dC5JbnQoS2VybmVsLkFsbG9jYXRlZCgpLDApO1xwYXIN
Cj4gICAgICAgICAgICBPdXQuTG5ccGFyDQo+ICAgICBFTkQgRG87XHBhcg0KPlxwYXINCj4gRU5E
IFByaXZUZXN0LkRvXHBhcg0KPlxwYXINCj4gZ2l2ZXMgd2l0aCByZXBlYXRlZCBjYWxscyBhbHNv
ICBpbmNyZWFzaW5nIHZhbHVlcy5ccGFyDQo+IEFsbG9jYXRlZDogMzczOTM2XHBhcg0KPiBBbGxv
Y2F0ZWQ6IDM3NzAwOFxwYXINCj4gQWxsb2NhdGVkOiAzODAwODBccGFyDQo+IEFsbG9jYXRlZDog
MzgzMTUyXHBhcg0KPiBBbGxvY2F0ZWQ6IDM4NjIyNFxwYXINCj4gQWxsb2NhdGVkOiAzODkyOTZc
cGFyDQo+IEFsbG9jYXRlZDogMzkyMzY4XHBhcg0KPiBBbGxvY2F0ZWQ6IDM5NTQ0MFxwYXINCj4g
QWxsb2NhdGVkOiAzOTg1MTJccGFyDQo+IEFsbG9jYXRlZDogNDAxNTg0XHBhcg0KPiBBbGxvY2F0
ZWQ6IDQwNDY1NlxwYXINCj4gQWxsb2NhdGVkOiA0MDc3MjhccGFyDQo+IEFsbG9jYXRlZDogNDEw
ODAwXHBhcg0KPiBBbGxvY2F0ZWQ6IDQxMzg3MlxwYXINCj4gQWxsb2NhdGVkOiA0MTY5NDRccGFy
DQo+IEFsbG9jYXRlZDogNDIwMDE2XHBhcg0KPiBBbGxvY2F0ZWQ6IDQyMzA4OFxwYXINClxwYXIN
CldlbGwsIGluIHRoaXMgY2FzZSBpdCdzIHJhdGhlciB1bnN1cnByaXNpbmcgZm9yIHR3byByZWFz
b25zOlxwYXINClxwYXINCiAgICAtIHRoZSBnYXJiYWdlIGNvbGxlY3RvciBkb2Vzbid0IHN0YXJ0
IHJ1bm5pbmcgYXQgZXZlcnkgYWxsb2NhdGlvbjtccGFyDQogICAgLSBldmVyeSBjYWxsIHRvIGFu
IE91dCBwcm9jZWR1cmUgYWxsb2NhdGVzIHNvbWV0aGluZyBvbiB0aGUgaGVhcCAodG9ccGFyDQpm
aWxsIHRoZSBMb2cpLCBhbmQgaW5jcmVhc2VzIGFsbG9jYXRlZCBtZW1vcnkuIEl0J3Mgd2h5IEkg
dXNlZFxwYXINCkRpYWxvZy5TaG93U3RhdHVzIGluIG15IGxhc3QgZXhhbXBsZSBpbnN0ZWFkIG9m
IE91dCBvciBTdGRMb2cuXHBhcg0KXHBhcg0KQnV0LCBpZiB5b3UgYWxsb2NhdGUgcmVwZWF0ZWRs
eSB0aGUgc2FtZSBwb2ludGVyIHZhcmlhYmxlLCB5b3UnbGwgc2VlXHBhcg0KYWxsb2NhdGVkIG1l
bW9yeSBpbmNyZWFzZSwgYW5kIHNvbWV0aW1lcyBkZWNyZWFzZSB3aGVuIEdDIHN0YXJ0cyBydW5u
aW5nLFxwYXINCndpdGggaXRzIG1lYW4gdmFsdWUgcmVtYWluaW5nIHN0YWJsZS4gRm9yIGV4YW1w
bGUsIHlvdSBjYW4gdHJ5OlxwYXINClxwYXINCk1PRFVMRSBQcml2VGVzdDI7XHBhcg0KSU1QT1JU
IERpYWxvZywgS2VybmVsLCBTZXJ2aWNlcywgU3RyaW5ncztccGFyDQpccGFyDQpQUk9DRURVUkUg
RG8qO1xwYXINCkNPTlNUXHBhcg0KZGVsYXkgPSBFTlRJRVIoMC4wMSAqIFNlcnZpY2VzLnJlc29s
dXRpb24pO1xwYXINClZBUlxwYXINCnM6IEFSUkFZIDEyIE9GIENIQVI7XHBhcg0KYTpQT0lOVEVS
IFRPIEFSUkFZIDEwMjQgT0YgQllURTtccGFyDQp0OiBMT05HSU5UO1xwYXINCkJFR0lOXHBhcg0K
TE9PUFxwYXINCk5FVyhhKTtccGFyDQpTdHJpbmdzLkludFRvU3RyaW5nKEtlcm5lbC5BbGxvY2F0
ZWQoKSwgcyk7XHBhcg0KRGlhbG9nLlNob3dTdGF0dXMocyk7XHBhcg0KdCA6PSBTZXJ2aWNlcy5U
aWNrcygpICsgZGVsYXk7XHBhcg0KUkVQRUFUXHBhcg0KVU5USUwgU2VydmljZXMuVGlja3MoKSA+
IHQ7XHBhcg0KRU5EO1xwYXINCkVORCBEbztccGFyDQpccGFyDQpFTkQgUHJpdlRlc3QyLlxwYXIN
ClxwYXINCkNoZWVycy5ccGFyDQpHXCdlOXJhcmRccGFyDQpccGFyDQotLS0tLS0tLS0tLS0tLS0t
LS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLVxwYXINClxwYXINClRvIHVuc3Vic2NyaWJlIGZy
b20gdGhpcyBtYWlsaW5nIGxpc3QsIHNlbmQgYSBtZXNzYWdlIGNvbnRhaW5pbmcgdGhlIHdvcmQg
InVuc3Vic2NyaWJlIiB0bzpccGFyDQogICBibGFja2JveC1yZXF1ZXN0QG9iZXJvbi5jaFxwYXIN
ClxwYXINClRvIGdldCBhIGxpc3Qgb2YgdmFsaWQgZS1tYWlsIGNvbW1hbmRzIGFuZCBpbnN0cnVj
dGlvbnMgb24gdGhlaXIgdXNhZ2UsIHNlbmQgYSBtZXNzYWdlIGNvbnRhaW5pbmcgdGhlIHdvcmQg
ImhlbHAiIHRvIHRoZSBhYm92ZSBhZGRyZXNzLlxwYXINClxwYXINClNlbmQgYW55IHByb2JsZW0g
cmVwb3J0cyBvciBxdWVzdGlvbnMgcmVsYXRlZCB0byB0aGlzIGVtYWlsIGxpc3QgdG8gdGhlIGxp
c3Qgb3duZXIgYXRccGFyDQogICBvd25lci1ibGFja2JveEBvYmVyb24uY2hccGFyDQpccGFyDQpD
dXJyZW50IHBvc3RpbmcgcG9saWN5OlxwYXINClxwYXINCmEpIFRvIHBvc3QgeW91IHNob3VsZCB1
c2UgdGhlIHNhbWUgYWRkcmVzcyBieSB3aGljaCB5b3UgYXJlIHN1YnNjcmliZWQgdG8gdGhlIG1h
aWxpbmcgbGlzdC4gVGhhdCB3YXksIHRoZSBsaXN0IHNlcnZlciB3aWxsIHJlY29nbml6ZSB5b3Ug
YXMgc3Vic2NyaWJlciBhbmQgZm9yd2FyZCB5b3VyIHBvc3RpbmcgaW1tZWRpYXRlbHksIHdpdGhv
dXQgY3JlYXRpbmcgYW55IG92ZXJoZWFkLlxwYXINClxwYXINCmIpIElmLCBmb3Igc29tZSByZWFz
b24sIHlvdSBjYW5ub3QgcG9zdCBmcm9tIHRoZSBhZGRyZXNzLCBieSB3aGljaCB5b3UgYXJlIHN1
YnNjcmliZWQsIHlvdXIgbWVzc2FnZSB3aWxsIGJlIG1vZGVyYXRlZCB0byBhdm9pZCBzcGFtLiBQ
bGVhc2UgdW5kZXJzdGFuZCB0aGF0IG1vZGVyYXRpb24gd2lsbCBvZnRlbiBjYXVzZSBzb21lIGRl
bGF5LCBpbiBwYXJ0aWN1bGFyIG92ZXIgd2Vla2VuZHMgb3IgaG9seWRheXMuXHBhcg0KfQ=
----boundary-LibPST-iamunique-1390314007_-_---
Received on Mon Oct 18 2004 - 23:41:47 UTC