prefixednotation.adb

来自「Ada 2005 Training Notes.」· ADB 代码 · 共 9 行

package body PrefixedNotation is

   procedure P(X: in out T) is
   begin
      X.I := X.I + 1;
   end;

end PrefixedNotation;