From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: **
X-Spam-Status: No, score=2.3 required=5.0 tests=BAYES_00,
	FREEMAIL_FORGED_REPLYTO,INVALID_MSGID,REPLYTO_WITHOUT_TO_CC
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,5f6509dca16a8998
X-Google-Attributes: gid103376,public
From: Dmitriy Anisimkov <vagul@chat.ru>
Subject: Re: Function result = controlled type
Date: 1998/11/19
Message-ID: <36542D58.87EC3202@chat.ru>#1/1
X-Deja-AN: 413514744
References: <72vlur$ck$1@nnrp1.dejanews.com>
X-Accept-Language: ru
Content-Type: multipart/mixed; boundary="------------455736E75BA3D4979DF04D48"
X-Trace: 19 Nov 1998 17:41:22 +0300, srv.omskelecom.ru
Organization: Self
MIME-Version: 1.0
Reply-To: anisimkov@yahoo.com
Newsgroups: comp.lang.ada
Date: 1998-11-19T00:00:00+00:00
List-Id: <comp.lang.ada>

This is a multi-part message in MIME format.
--------------455736E75BA3D4979DF04D48
Content-Type: text/plain; charset=koi8-r
Content-Transfer-Encoding: 7bit

I have maked experiment example which placed to the attachment. Each
finalization causes text output to console. GNAT 3-10 does more
finalizations than Aonix ObjectAda 7.1. ObjectAda not finalizes Result
local variable.
--------------455736E75BA3D4979DF04D48
Content-Type: application/x-unknown-content-type-adb_auto_file;
 name="contr4test.adb"
Content-Transfer-Encoding: base64
Content-Disposition: inline;
 filename="contr4test.adb"

cGFja2FnZSBib2R5IGNvbnRyNHRlc3QgaXMgDQoNCiAgcHJvY2VkdXJlIEZpbmFsaXplICAg
KE9iamVjdCA6IGluIG91dCBUZXN0X0NvbnRyb2xsZWQpIGlzDQogIGJlZ2luDQogICAgVGV4
dF9JTy5QdXRfTGluZSgiRmluYWxpemUgIiZPYmplY3QuSUQpOw0KICBlbmQ7DQogIA0KZW5k
Ow==
--------------455736E75BA3D4979DF04D48
Content-Type: application/x-unknown-content-type-ads_auto_file;
 name="contr4test.ads"
Content-Transfer-Encoding: base64
Content-Disposition: inline;
 filename="contr4test.ads"

d2l0aCBBZGEuRmluYWxpemF0aW9uLFRleHRfSU87DQp1c2UgQWRhLkZpbmFsaXphdGlvbjsN
CnBhY2thZ2UgY29udHI0dGVzdCBpcyANCg0KICB0eXBlIFRlc3RfQ29udHJvbGxlZCBpcyBu
ZXcgQ29udHJvbGxlZCB3aXRoIHJlY29yZA0KICAgIGlkIDogQ2hhcmFjdGVyIDo9ICcwJzsN
CiAgZW5kIHJlY29yZDsNCiAgDQogcHJvY2VkdXJlIEZpbmFsaXplICAgKE9iamVjdCA6IGlu
IG91dCBUZXN0X0NvbnRyb2xsZWQpOw0KIA0KZW5kOw==
--------------455736E75BA3D4979DF04D48
Content-Type: application/x-unknown-content-type-adb_auto_file;
 name="tstfin.adb"
Content-Transfer-Encoding: base64
Content-Disposition: inline;
 filename="tstfin.adb"

d2l0aCBjb250cjR0ZXN0LFRleHRfSU87DQp1c2UgY29udHI0dGVzdCxUZXh0X0lPOw0KcHJv
Y2VkdXJlIHRzdGZpbiBpcw0KDQogIHUgOiBUZXN0X0NvbnRyb2xsZWQ7DQogIA0KZnVuY3Rp
b24gIEdldF9Gcm9tX0Z1bmN0aW9uIHJldHVybiBUZXN0X0NvbnRyb2xsZWQgaXMNCiAgUmVz
dWx0IDogVGVzdF9Db250cm9sbGVkOw0KYmVnaW4NCiAgcmVzdWx0LmlkIDo9ICdyJzsNCiAg
cmV0dXJuIFJlc3VsdDsNCmVuZDsNCg0KYmVnaW4NCiAgUHV0X0xpbmUoIkVudGVyIik7DQog
IHUuaWQgOj0gJ3UnOw0KICB1IDo9IEdldF9Gcm9tX2Z1bmN0aW9uOw0KICBQdXRfTGluZSgi
TGVhdmUiKTsNCmVuZDs=
--------------455736E75BA3D4979DF04D48--