Anonymous user
Stack: Difference between revisions
Cleaned up push and pop by removing the need for make-node
(Added attribution) |
(Cleaned up push and pop by removing the need for make-node) |
||
Line 625:
01 node-info PICTURE X(10).
PROCEDURE DIVISION USING stack node-info.
BY CONTENT node-info▼
BY REFERENCE ADDRESS OF node▼
CALL "pointerp" USING
BY REFERENCE ADDRESS OF node
Line 636 ⟶ 633:
CALL "stack-overflow-error" END-CALL
ELSE
SET link OF node TO head OF stack
SET head OF stack TO ADDRESS OF node
Line 660 ⟶ 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
END-IF
GOBACK.
END PROGRAM pop.
Line 720 ⟶ 718:
GOBACK.
END PROGRAM peek.
IDENTIFICATION DIVISION.
|