2 C----------------DRUKOWANIE STATYSTYK KOMPILATORA
4 C BEZ OPISU W DOKUMENTACJI (CZESC ML2)
5 C WERSJA Z DNIA: 19.01.82
7 C...........................................................................
12 COMMON /BLANK/ IOP(4), ERRLINE, ERRCNT,
14 X LMEM , LPMEM , IRECN , ISFIN , LPMSYS, LPML , LPMF ,
17 COMMON /LYST/ PAGESZ, PAGENR, LINPG,
18 X LN1, LGTH1, BUFLN1(30),
19 X LN2, LGTH2, BUFLN2(30),
21 integer*4 bufln1, bufln2
23 COMMON /MSTA/ MLFREE, WNFREE, WNSTK, AL1BLK, AL1STK,
24 X AL2BLK, AL2SYM, AL2OTH, WNBLK, TLP, TLM,
27 IF (IOP(1) .EQ. 9) RETURN
28 C --POWROT GDYZ WYABORTOWANY ZOSTAL PARSER
31 call ffputspaces(lun,22)
32 call ffputcs(lun,'- STATISTICS')
34 call ffputspaces(lun,24)
35 call ffputcs(lun,'STORAGE')
36 call ffputi (lun,TOTMEM,6)
37 call ffputcs(lun,'K WORDS')
39 call ffputcs(lun,'PARSER')
50 call ffputspaces(lun,30)
51 call ffputcs(lun,'DECL. PART')
52 call ffputi (lun,WNFREE,6)
53 call ffputcs(lun,'WORDS LEFT')
54 call ffputi (lun,IUS,6)
55 call ffputcs(lun,'% USED')
65 call ffputspaces(lun,30)
66 call ffputcs(lun,'STACK')
67 call ffputspaces(lun,5)
68 call ffputi (lun,WNSTK,6)
69 call ffputcs(lun,' WORDS USED')
70 call ffputi (lun,IUS,6)
71 call ffputcs(lun,'% USED')
76 call ffputspaces(lun,37)
77 call ffputi (lun,WNBLK,6)
78 call ffputcs(lun,'+12 BLOCK(S) WRITTEN')
81 call ffputspaces(lun,24)
82 call ffputcs(lun,'SEMANTIC ANALISIS')
92 call ffputspaces(lun,30)
93 call ffputcs(lun,'DECL. PART')
94 call ffputi (lun,MLFREE,6)
95 call ffputcs(lun,' WORDS LEFT')
96 call ffputi (lun,IUS,6)
97 call ffputcs(lun,'% USED')
100 IF ((IOP(1) .GE. 10) .AND. (IOP(1) .LE. 12)) RETURN
102 call ffputspaces(lun,30)
103 call ffputcs(lun,'STACK')
104 call ffputspaces(lun,22)
105 call ffputi (lun,AL1STK,6)
106 call ffputcs(lun,'% USED')
111 call ffputspaces(lun,40)
112 call ffputi (lun,AL1BLK,6)
113 call ffputcs(lun,' BLOCK(S) WRITTEN')