1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
|
/*
* Copyright (c) 1990 The Regents of the University of California.
* All rights reserved.
*
* Redistribution and use in source and binary forms are permitted
* provided that the above copyright notice and this paragraph are
* duplicated in all such forms and that any documentation,
* advertising materials, and other materials related to such
* distribution and use acknowledge that the software was developed
* by the University of California, Berkeley. The name of the
* University may not be used to endorse or promote products derived
* from this software without specific prior written permission.
* THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
* IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
* WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
*/
#include "pcc_prefix.s"
#define BLANK
#define BANNER(str) BLANK .VERSION str
#define ENTRY(Name) BLANK M_ENTRY (Name,PROF_/**/Name)
#define ENTRYC(Name) BLANK M_ENTRYC(Name,PROF_/**/Name)
#define EXIT(Name) BLANK M_EXIT (Name,PROF_/**/Name)
#define EXITC(Name) BLANK M_EXITC (Name,PROF_/**/Name)
#if 0
#define TEXT_SEGMENT \
.SPACE $TEXT$ !\
.SUBSPA $CODE$
#define RO_SEGMENT \
.SPACE $TEXT$ !\
.SUBSPA $lit$
#define DATA_SEGMENT \
.SPACE $PRIVATE$ !\
.SUBSPA $data$
#define BSS_SEGMENT \
.SPACE $PRIVATE$ !\
.SUBSPA $bss$
#else
#define TEXT_SEGMENT .text
#define RO_SEGMENT .rodata
#define DATA_SEGMENT .data
#define BSS_SEGMENT .bss
#endif
#ifdef PROF
;
; All four argument registers are saved into caller save registers
; and restored after the call to _mcount. This is possible because
; the mcount routine does not modify them, so we can. Mcount takes
; 3 arguments; the first argument is the incoming 'rp', the second
; is the starting address of the profiled routine, and the third is
; the address of the PROF label (which is where mcount stores the
; profile data).
;
#define M_ENTRY(name,prof) \
TEXT_SEGMENT !\
.label name !\
.PROC !\
.CALLINFO CALLER,SAVE_RP !\
.ENTRY !\
stw rp,-20(sp) !\
ldo 48(sp),sp !\
or arg0,r0,r19 !\
or arg1,r0,r20 !\
or arg2,r0,r21 !\
or arg3,r0,r22 !\
or rp,r0,arg0 !\
ldil L%name,r1 !\
ldo R%name(r1),arg1 !\
addil L%prof-$global$,dp !\
bl _mcount,rp !\
ldo R%prof-$global$(r1),arg2 !\
ldw -68(sp),rp !\
ldo -48(sp),sp !\
or r19,r0,arg0 !\
or r20,r0,arg1 !\
or r21,r0,arg2 !\
or r22,r0,arg3 !\
#define M_ENTRYC(name,prof) \
TEXT_SEGMENT !\
.label name !\
.PROC !\
.CALLINFO CALLER,SAVE_RP !\
.ENTRY !\
stw rp,-20(sp) !\
ldo 128(sp),sp !\
or arg0,r0,r19 !\
or arg1,r0,r20 !\
or arg2,r0,r21 !\
or arg3,r0,r22 !\
or rp,r0,arg0 !\
ldil L%name,r1 !\
ldo R%name(r1),arg1 !\
addil L%prof-$global$,dp !\
bl _mcount,rp !\
ldo R%prof-$global$(r1),arg2 !\
ldw -148(sp),rp !\
or r19,r0,arg0 !\
or r20,r0,arg1 !\
or r21,r0,arg2 !\
or r22,r0,arg3 !\
;
; The HPUX profiler uses a word for each entrypoint to store the profiling
; information. The setup code passes the address to the _mcount routine.
; The EXIT macro defines a label (PROF_foo), and a word of storage.
;
#define M_EXIT(name,prof) \
bv,n r0(rp) !\
.EXIT !\
.PROCEND !\
.EXPORT name,ENTRY !\
DATA_SEGMENT !\
.label prof !\
.WORD 0 !\
.IMPORT $global$,DATA !\
.IMPORT _mcount,CODE
#define M_EXITC(name,prof) \
bv r0(rp) !\
ldo -128(sp),sp !\
.EXIT !\
.PROCEND !\
.EXPORT name,ENTRY !\
DATA_SEGMENT !\
.label prof !\
.WORD 0 !\
.IMPORT $global$,DATA !\
.IMPORT _mcount,CODE
#else /* NOT profiling */
#define M_ENTRY(name,prof) \
TEXT_SEGMENT !\
.label name !\
.PROC !\
.CALLINFO !\
.ENTRY
#define M_ENTRYC(name,prof) \
TEXT_SEGMENT !\
.label name !\
.PROC !\
.CALLINFO CALLER,SAVE_RP !\
.ENTRY !\
stw rp,-20(sp) !\
ldo 128(sp),sp
#define M_EXIT(name,prof) \
bv,n r0(rp) !\
.EXIT !\
.PROCEND !\
.EXPORT name,ENTRY
#define M_EXITC(name,prof) \
ldw -148(sp),rp !\
bv r0(rp) !\
ldo -128(sp),sp !\
.EXIT !\
.PROCEND !\
.EXPORT name,ENTRY
#define ENTRY(Name) BLANK M_ENTRY (Name,PROF_/**/Name)
#define ENTRYC(Name) BLANK M_ENTRYC(Name,PROF_/**/Name)
#define EXIT(Name) BLANK M_EXIT (Name,PROF_/**/Name)
#define EXITC(Name) BLANK M_EXITC (Name,PROF_/**/Name)
#endif
|
