From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.5-pre1 (2020-06-20) on
	ip-172-31-74-118.ec2.internal
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=3.0 tests=BAYES_00 autolearn=ham
	autolearn_force=no version=3.4.5-pre1
Date: 22 Jul 93 10:49:42 GMT
From: sarge!sarge!svh@uunet.uu.net  (Steven Hovater)
Subject: Re: SunAda question
Message-ID: <svh.743338182@sarge>
List-Id: <comp.lang.ada>

Egad... who would have thought....

>procedure gethost is 
>        namelen : integer := 20;
>        hostname : string (1..namelen);
>        stat : unix.status_code;
>begin
>        stat := unix.gethostname(hostname'address,namelen);
>        text_io.put_line ("Hostname is " & hostname);
>end gethost;

as an illustration to show that the function indeed modified the in parameter
would turn into such a fracas.

Thanks Dave and Karl for pointing out that I should really have been a little 
more careful - yes, I should have. There _are_ much better ways of coding the
above. 

I retract the comment I made about portability in my post. 

Steve
-- 
Steven V. Hovater                      (703)318-5839
Senior CASE Engineer                   
Verdix Corporation                     EMAIL: svh@verdix.com