25 lines
717 B
OpenEdge ABL
25 lines
717 B
OpenEdge ABL
35100 #include "rundecs.h"
|
|
35110 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *)
|
|
35120 (**)
|
|
35130 (**)
|
|
35140 PROCEDURE GARBAGE (ANOBJECT: OBJECTP); EXTERN ;
|
|
35150 (**)
|
|
35160 (**)
|
|
35170 PROCEDURE GVASSTX(SOURCE: OBJECTP; DEST: UNDRESSP);
|
|
35180 (*PASGVART+6,7,8: ASSIGNS PILE VALUE TO GLOBAL VARIABLE*)
|
|
35190 BEGIN
|
|
35200 FPINC(SOURCE^);
|
|
35210 WITH DEST^ DO
|
|
35220 BEGIN
|
|
35230 FPDEC(FIRSTPTR^); IF FPTST(FIRSTPTR^) THEN GARBAGE(FIRSTPTR);
|
|
35240 FIRSTPTR := SOURCE;
|
|
35250 END;
|
|
35260 END;
|
|
35270 (**)
|
|
35280 (**)
|
|
35290 (*-02() BEGIN END ; ()-02*)
|
|
35300 (*+01()
|
|
35310 BEGIN (*OF MAIN PROGRAM*)
|
|
35320 END (*OF EVERYTHING*).
|
|
35330 ()+01*)
|