projects
/
unix-history
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
tags
|
clone url
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
Research V7 development
[unix-history]
/
usr
/
src
/
libc
/
gen
/
mon.c
monitor
(
lowpc
,
highpc
,
buf
,
bufsiz
,
cntsiz
)
char
*
lowpc
, *
highpc
;
int
*
buf
,
bufsiz
;
{
register
o
;
static
*
sbuf
,
ssiz
;
if
(
lowpc
==
0
) {
profil
(
0
,
0
,
0
,
0
);
o
=
creat
(
"mon.out"
,
0666
);
write
(
o
,
sbuf
,
ssiz
<<
1
);
close
(
o
);
return
;
}
ssiz
=
bufsiz
;
buf
[
0
] = (
int
)
lowpc
;
buf
[
1
] = (
int
)
highpc
;
buf
[
2
] =
cntsiz
;
sbuf
=
buf
;
buf
+=
3
*(
cntsiz
+
1
);
bufsiz
-=
3
*(
cntsiz
+
1
);
if
(
bufsiz
<=
0
)
return
;
o
= ((
highpc
-
lowpc
)>>
1
) &
077777
;
if
(
bufsiz
<
o
)
o
= ((
long
)
bufsiz
<<
15
) /
o
;
else
o
=
077777
;
profil
(
buf
,
bufsiz
<<
1
,
lowpc
,
o
<<
1
);
}