Data update

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

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

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

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

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

@@ -1,7 +0,0 @@
-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

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

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

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

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

@@ -1,5 +0,0 @@
--- 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

@@ -1,8 +0,0 @@
-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

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

Task/Pointers-and-references/COBOL/pointers-and-references-1.cobol

@@ -1,2 +0,0 @@
-01  ptr      USAGE IS POINTER TO Some-Type.
-01  prog-ptr USAGE IS PROGRAM-POINTER TO "some-program".

Task/Pointers-and-references/COBOL/pointers-and-references-2.cobol

@@ -1,6 +0,0 @@
-01  heap-item PICTURE IS X, BASED.
-
-PROCEDURE DIVISION.
-    ALLOCATE heap-item RETURNING ptr
-    *> ...
-    FREE ptr

Task/Pointers-and-references/COBOL/pointers-and-references-3.cobol

@@ -1 +0,0 @@
-SET prog-ptr TO ENTRY "some-program"

Task/Pointers-and-references/COBOL/pointers-and-references-4.cobol

@@ -1,2 +0,0 @@
-SET ptr1 UP BY 10
-SET ptr2 DOWN BY LENGTH OF foo

Task/Pointers-and-references/COBOL/pointers-and-references-5.cobol

@@ -1,2 +0,0 @@
-SET ptr1 TO ptr2            *> ptr1 points to where ptr2 points
-SET ptr2 TO ADDRESS OF ptr3 *> ptr2 points to ptr3

Task/Pointers-and-references/COBOL/pointers-and-references-6.cobol

@@ -1,2 +0,0 @@
-SET ADDRESS OF foo TO ptr
-MOVE "bar" TO foo

Task/Pointers-and-references/COBOL/pointers-and-references-7.cobol

@@ -1 +0,0 @@
-01  obj USAGE IS OBJECT-REFERENCE "some-object".

Task/Pointers-and-references/COBOL/pointers-and-references-8.cobol

@@ -1,2 +0,0 @@
-INVOKE SomeClass "new" RETURNING obj-ref
-SET another-obj-ref TO obj-ref