Data commit

Task/Pointers-and-references/Ada/pointers-and-references-1.ada

@@ -0,0 +1,2 @@
+type Int_Access is access Integer;
+Int_Acc : Int_Access := new Integer'(5);

Task/Pointers-and-references/Ada/pointers-and-references-2.ada

@@ -0,0 +1 @@
+type Safe_Int_Access is not null access Integer;

Task/Pointers-and-references/Ada/pointers-and-references-3.ada

@@ -0,0 +1,7 @@
+declare
+   type Int_Ptr is access all Integer;
+   Ref : Int_Ptr;
+   Var : aliased Integer := 3;
+   Val : Integer := Var;
+begin
+   Ref := Var'Access; -- "Ref := Val'Access;" would be a syntax error

Task/Pointers-and-references/Ada/pointers-and-references-4.ada

@@ -0,0 +1 @@
+type Safe_Int_Ptr is not null access all Integer;

Task/Pointers-and-references/Ada/pointers-and-references-5.ada

@@ -0,0 +1,2 @@
+Var : Integer;
+Var_Address : Address := Var'Address;

Task/Pointers-and-references/Ada/pointers-and-references-6.ada

@@ -0,0 +1,5 @@
+-- Demonstrate the overlay of one object on another
+A : Integer;
+B : Integer;
+for B'Address use A'Address;
+-- A and B start at the same address

Task/Pointers-and-references/Ada/pointers-and-references-7.ada

@@ -0,0 +1,8 @@
+type Container is array (Positive range <>) of Element;
+for I in Container'Range loop
+   declare
+      Item : Element renames Container (I);
+   begin
+      Do_Something(Item); -- Here Item is a reference to Container (I)
+   end;
+end loop;

Task/Pointers-and-references/Ada/pointers-and-references-8.ada

@@ -0,0 +1,4 @@
+type Container is array (Positive range <>) of Element;
+for Item of Container loop
+      Do_Something(Item);
+end loop;