Data update
This commit is contained in:
parent
5150844a7d
commit
4bb20c9b71
7735 changed files with 38060 additions and 199180 deletions
|
|
@ -1,19 +0,0 @@
|
|||
with Ada.Text_IO;
|
||||
|
||||
procedure Repeat_Example is
|
||||
|
||||
procedure Repeat(P: access Procedure; Reps: Natural) is
|
||||
begin
|
||||
for I in 1 .. Reps loop
|
||||
P.all; -- P points to a procedure, and P.all actually calls that procedure
|
||||
end loop;
|
||||
end Repeat;
|
||||
|
||||
procedure Hello is
|
||||
begin
|
||||
Ada.Text_IO.Put("Hello! ");
|
||||
end Hello;
|
||||
|
||||
begin
|
||||
Repeat(Hello'Access, 3); -- Hello'Access points to the procedure Hello
|
||||
end Repeat_Example;
|
||||
Loading…
Add table
Add a link
Reference in a new issue