1with Rep_Clause5_Pkg; use Rep_Clause5_Pkg; 2 3package Rep_Clause5 is 4 5 Bad_Number : exception; 6 Too_Large : exception; 7 8 type LNumber_Type is range 0..99999; 9 10 procedure Merge_Numbered(LNodes : in out LNodes_Ptr); 11 12end Rep_Clause5; 13
1with Rep_Clause5_Pkg; use Rep_Clause5_Pkg; 2 3package Rep_Clause5 is 4 5 Bad_Number : exception; 6 Too_Large : exception; 7 8 type LNumber_Type is range 0..99999; 9 10 procedure Merge_Numbered(LNodes : in out LNodes_Ptr); 11 12end Rep_Clause5; 13