foo.adb

gdb-6.8 Linux下的调试程序 最新版本

with Pck; use Pck;

procedure Foo is
   Some_Local_Variable : Integer := 1;
   External_Identical_Two : Integer := 74;
begin
   My_Global_Variable := Some_Local_Variable + 1; -- START
   Proc (External_Identical_Two);
end Foo;