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: 9 Aug 93 01:58:30 GMT
From: newsflash.concordia.ca!sifon!christie.Meakins.McGill.CA!whitney@uunet.uu.
net  (Whitney de Vries)
Subject: Type-Extension and Procedure Variables
Message-ID: <1993Aug9.015830.2453@sifon.cc.mcgill.ca>
List-Id: <comp.lang.ada>

	    

Does ADA ( 8x or 9x ) have procedure variables or similar ?
Does ADA ( 8x or 9x ) have type extension or similar ?	
  
TYPE	
	BaseType = RECORD  
		x,y : INTEGER;
	END;	   
		    
	ExtendedType = RECORD ( BaseType )       
		z : INTEGER;
	END; (* an extension of BaseType with fields x,y,z *)
	
	Handler = PROCEDURE ( VAR msg : BaseType ); (* PROCEDURE TYPE *)
	
VAR 
	handler : Handler; (* procedure variable *)
	
									
	
Thanks,
	Whitney