Stack: Difference between revisions

← Older edit Newer edit →

Content deleted Content added

Inline

@@ Line 625: / Line 625: @@
 node-info PICTURE X(10).
        PROCEDURE DIVISION USING stack node-info.
-         CALL "make-node" USING
+         ALLOCATE node
-           BY CONTENT node-info
-           BY REFERENCE ADDRESS OF node
-         END-CALL
          CALL "pointerp" USING
            BY REFERENCE ADDRESS OF node
@@ Line 636: / Line 633: @@
            CALL "stack-overflow-error" END-CALL
          ELSE
+           MOVE node-info TO info OF node
            SET link OF node TO head OF stack
            SET head OF stack TO ADDRESS OF node
@@ Line 660: / Line 658: @@
          ELSE
            SET ADDRESS OF node TO head OF stack
+           SET head OF stack TO link OF node
            MOVE info OF node TO node-info
-           SET head OF stack TO link OF node
-           FREE ADDRESS OF node
          END-IF
+         FREE ADDRESS OF node
          GOBACK.
        END PROGRAM pop.
@@ Line 720: / Line 718: @@
          GOBACK.
        END PROGRAM peek.
-       IDENTIFICATION DIVISION.
-       PROGRAM-ID. make-node.
-       DATA DIVISION.
-       LOCAL-STORAGE SECTION.
-       COPY p.
-       COPY node.
-       LINKAGE SECTION.
-node-info PICTURE X(10).
-node-pointer USAGE IS POINTER.
-       PROCEDURE DIVISION USING node-info node-pointer.
-         ALLOCATE node
-         CALL "pointerp" USING
-           BY REFERENCE ADDRESS OF node
-           BY REFERENCE p
-         END-CALL
-         IF nil
-           CALL "stack-overflow-error" END-CALL
-         ELSE
-           MOVE node-info TO info OF node
-           SET node-pointer TO ADDRESS OF node
-         END-IF
-         GOBACK.
-       END PROGRAM make-node.
        IDENTIFICATION DIVISION.