Re: Multiple procedures in the same adb file?

["J-P. Rosen" <rosen@adalog.fr>]

Le 12/01/2015 01:53, Robert A Duff a écrit :
> This happened to me:  Existing code:
> 
>     function Some_Root_Package.Some_Function(...) return String;
> 
> Now I happen to know that it always returns String(1..20).
> And returning known-length strings is more efficient,
> and this one is a bottleneck, so it's worth changing to
> something like:
> 
>     subtype String_20 is String(1..20);
>     function Some_Function(...) return String_20;
> 
> But that doesn't work without adding a new package, which breaks
> compatibility.  And this was a widely-used library, so I couldn't do
> that.  And String_20 really doesn't belong in Some_Root_Package,
> nor anywhere else than the package that Some_Function is (directly) in
> (which didn't exist!).

Put the function in a package, and declare Some_Function as:
function Some_Function (...) renames New_Package.Some_Function;

(For compatibility, new programs would use directly the function in the
package).

-- 
J-P. Rosen
Adalog
2 rue du Docteur Lombard, 92441 Issy-les-Moulineaux CEDEX
Tel: +33 1 45 29 21 52, Fax: +33 1 45 29 25 00
http://www.adalog.fr