![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to gmon.s CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / lib / libc / tahoe / csu|
Return to gmon.s CVS log | Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / lib / libc / tahoe / csu |
1.1 root 1: .data
2: .align 2
3: _sccsid:.data 2
4: L12:.ascii "@(#)gmon.c\11"
5: .ascii "2.0 (Tahoe) 3/20/85\0"
6: .data
7: .long L12
8: .align 2
9: _profiling:.long 3
10: .lcomm _froms,4
11: .align 2
12: _tos:.long 0
13: .align 2
14: _tolimit:.long 0
15: .align 2
16: _s_lowpc:.long 0
17: .align 2
18: _s_highpc:.long 0
19: .align 2
20: _s_textsize:.long 0
21: .lcomm _ssiz,4
22: .lcomm _sbuf,4
23: .lcomm _s_scale,4
24: .text
25: LL0:.align 1
26: .globl _monstartup
27: .data 1
28: L32:.ascii "No space for monitor buffer(s)\12\0"
29: .text
30: .data 1
31: L33:.ascii "No space for monitor buffer(s)\12\0"
32: .text
33: .data 1
34: L35:.ascii "No space for monitor buffer(s)\12\0"
35: .text
36: .data 1
37: L36:.ascii "No space for monitor buffer(s)\12\0"
38: .text
39: .data 1
40: L41:.ascii "No space for monitor buffer(s)\12\0"
41: .text
42: .data 1
43: L42:.ascii "No space for monitor buffer(s)\12\0"
44: .text
45: .set L24,0x0
46: .data
47: .text
48: _monstartup:.word L24
49: subl3 $60,fp,sp
50: pushl $4
51: pushl 4(fp)
52: callf $12,udiv
53: shll $2,r0,4(fp)
54: movl 4(fp),_s_lowpc
55: pushl $4
56: addl3 $3,8(fp),-(sp)
57: callf $12,udiv
58: shll $2,r0,8(fp)
59: movl 8(fp),_s_highpc
60: subl3 4(fp),8(fp),_s_textsize
61: pushl $2
62: pushl _s_textsize
63: callf $12,udiv
64: addl3 $12,r0,-56(fp)
65: addl3 $3,-56(fp),r0
66: andl3 $-4,r0,-56(fp)
67: pushl -56(fp)
68: callf $8,_sbrk
69: movl r0,-60(fp)
70: cmpl r0,$-1
71: jneq L30
72: pushl $32
73: pushl $L32
74: pushl $2
75: callf $16,_write
76: ret#2
77: L30:pushl _s_textsize
78: callf $8,_sbrk
79: movl r0,_froms
80: cmpl r0,$-1
81: jneq L34
82: pushl $32
83: pushl $L35
84: pushl $2
85: callf $16,_write
86: clrl _froms
87: ret#2
88: L34:pushl $100
89: addl3 _s_textsize,_s_textsize,-(sp)
90: callf $12,udiv
91: movl r0,_tolimit
92: cmpl r0,$50
93: jgeq L37
94: movl $50,_tolimit
95: jbr L38
96: L37:cmpl _tolimit,$65534
97: jleq L38
98: movl $65534,_tolimit
99: L38:mull3 $12,_tolimit,r0
100: addl2 $3,r0
101: andl3 $-4,r0,-(sp)
102: callf $8,_sbrk
103: movl r0,_tos
104: cmpl r0,$-1
105: jneq L40
106: pushl $32
107: pushl $L41
108: pushl $2
109: callf $16,_write
110: clrl _froms
111: clrl _tos
112: ret#2
113: L40:pushl $0
114: callf $8,_sbrk
115: movl r0,minbrk
116: movl _tos,r0
117: clrw 8(r0)
118: pushl _tolimit
119: pushl -56(fp)
120: pushl -60(fp)
121: pushl 8(fp)
122: pushl 4(fp)
123: callf $24,_monitor
124: ret#2
125: .align 1
126: .globl __mcleanup
127: .data 1
128: L50:.ascii "gmon.out\0"
129: .text
130: .data 1
131: L53:.ascii "mcount: gmon.out\0"
132: .text
133: .set L45,0x0
134: .data
135: .text
136: __mcleanup:.word L45
137: subl3 $84,fp,sp
138: pushl $438
139: pushl $L50
140: callf $12,_creat
141: movl r0,-56(fp)
142: tstl r0
143: jgeq L51
144: pushl $L53
145: callf $8,_perror
146: ret#2
147: L51:pushl _ssiz
148: pushl _sbuf
149: pushl -56(fp)
150: callf $16,_write
151: pushl $2
152: pushl _s_textsize
153: callf $12,udiv
154: movl r0,-64(fp)
155: clrl -60(fp)
156: jbr L56
157: L2000003:movl -60(fp),r0
158: addl2 r0,r0
159: addl2 _froms,r0
160: tstw (r0)
161: jeql L54
162: addl3 -60(fp),-60(fp),r0
163: addl3 _s_lowpc,r0,-68(fp)
164: movl -60(fp),r0
165: addl2 r0,r0
166: addl2 _froms,r0
167: movzwl (r0),-72(fp)
168: jbr L60
169: L2000001:movl -68(fp),-84(fp)
170: mull3 $12,-72(fp),r0
171: addl2 _tos,r0
172: movl (r0),-80(fp)
173: mull3 $12,-72(fp),r0
174: addl2 _tos,r0
175: movl 4(r0),-76(fp)
176: pushl $12
177: subl3 $84,fp,-(sp)
178: pushl -56(fp)
179: callf $16,_write
180: mull3 $12,-72(fp),r0
181: addl2 _tos,r0
182: movzwl 8(r0),-72(fp)
183: L60:tstl -72(fp)
184: jneq L2000001
185: L54:incl -60(fp)
186: L56:cmpl -60(fp),-64(fp)
187: jlss L2000003
188: pushl -56(fp)
189: callf $8,_close
190: ret#2
191: .align 1
192: .globl mcount
193: .data 1
194: L81:.ascii "mcount: tos overflow\12\0"
195: .text
196: .data 1
197: L82:.ascii "mcount: tos overflow\12\0"
198: .text
199: .set L63,0x1F0C
200: .data
201: .text
202: mcount:.word L63
203: movl -8(fp),r12
204: movl (fp),r0
205: movl -8(r0),r11
206: tstl _profiling
207: jneq L68
208: incl _profiling
209: subl3 _s_lowpc,r11,r0
210: movl r0,r11
211: cmpl r11,_s_textsize
212: jgtru L70
213: divl3 $2,r11,r0
214: addl2 r0,r0
215: addl3 _froms,r0,r11
216: movzwl (r11),r8
217: tstl r8
218: jneq L71
219: movl _tos,r0
220: incw 8(r0)
221: movzwl 8(r0),r8
222: cmpl r8,_tolimit
223: jgeq L73
224: cvtlw r8,(r11)
225: mull3 $12,r8,r0
226: addl2 _tos,r0
227: movl r0,r10
228: movl r12,(r10)
229: movl $1,4(r10)
230: clrw 8(r10)
231: jbr L70
232: L2000005:incl 4(r10)
233: jbr L70
234: L2000007:movl _tos,r0
235: incw 8(r0)
236: movzwl 8(r0),r8
237: cmpl r8,_tolimit
238: jgeq L73
239: mull3 $12,r8,r0
240: addl2 _tos,r0
241: movl r0,r10
242: movl r12,(r10)
243: movl $1,4(r10)
244: L2000009:movw (r11),8(r10)
245: cvtlw r8,(r11)
246: L70:decl _profiling
247: L68:ret#2
248: L71:mull3 $12,r8,r0
249: addl2 _tos,r0
250: movl r0,r10
251: cmpl (r10),r12
252: jeql L2000005
253: L77:tstw 8(r10)
254: jeql L2000007
255: movl r10,r9
256: movzwl 8(r10),r0
257: emul $12,r0,$0,r2
258: movl r3,r0
259: addl2 _tos,r0
260: movl r0,r10
261: cmpl (r10),r12
262: jneq L77
263: incl 4(r10)
264: movzwl 8(r9),r8
265: movw 8(r10),8(r9)
266: jbr L2000009
267: L73:pushl $22
268: pushl $L81
269: pushl $2
270: callf $16,_write
271: jbr L68
272: .align 1
273: .globl _monitor
274: .data
275: .align 2
276: L91:.long 0x48800000, 0x00000000 # .double 65536
277: .text
278: .set L83,0x100C
279: .data
280: .text
281: _monitor:.word L83
282: tstl 4(fp)
283: jneq L87
284: pushl $0
285: callf $8,_moncontrol
286: callf $4,__mcleanup
287: ret#2
288: L87:movl 12(fp),_sbuf
289: movl 16(fp),_ssiz
290: movl 4(fp),*12(fp)
291: movl 12(fp),r0
292: movl 8(fp),4(r0)
293: movl 12(fp),r0
294: movl _ssiz,8(r0)
295: subl2 $12,16(fp)
296: jgtr L89
297: ret#2
298: L89:subl3 4(fp),8(fp),r12
299: cmpl 16(fp),r12
300: jgeq L90
301: cvlf 16(fp)
302: stf r0
303: clrl r1
304: cvld r12
305: std r2
306: ldd r0
307: divd r2
308: muld L91
309: cvdl _s_scale
310: jbr L92
311: L90:movl $65536,_s_scale
312: L92:pushl $1
313: callf $8,_moncontrol
314: ret#2
315: .align 1
316: .globl _moncontrol
317: .set L93,0x0
318: .data
319: .text
320: _moncontrol:.word L93
321: tstl 4(fp)
322: jeql L97
323: pushl _s_scale
324: pushl _s_lowpc
325: subl3 $12,_ssiz,-(sp)
326: addl3 $12,_sbuf,-(sp)
327: callf $20,_profil
328: clrl _profiling
329: jbr L99
330: L97:pushl $0
331: pushl $0
332: pushl $0
333: pushl $0
334: callf $20,_profil
335: movl $3,_profiling
336: L99:ret#2
337:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.