Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
cmucl
cmucl
Commits
e4e065f7
Commit
e4e065f7
authored
Feb 18, 1992
by
ram
Browse files
Use LOCALLY to frob the debug-info level for COMPUTE-TIME-OVERHEAD-AUX, since a
declaration at the head of the body doesn't do it.
parent
3d8715e6
Changes
1
Hide whitespace changes
Inline
Side-by-side
code/profile.lisp
View file @
e4e065f7
...
...
@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
(
ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/profile.lisp,v 1.
4
1992/02/
02 23:43:0
2 ram Exp $"
)
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/profile.lisp,v 1.
5
1992/02/
18 19:49:3
2 ram Exp $"
)
;;;
;;; **********************************************************************
;;;
...
...
@@ -477,9 +477,9 @@
;;; Dummy function we profile to find profiling overhead.
;;;
(
proclaim
'
(
notinline
compute-time-overhead-aux
))
(
defun
compute-time-overhead-aux
(
x
)
(
de
clare
(
optimize
(
debug-info
2
)))
; Make sure we have arglist info...
(
declare
(
ignore
x
)))
(
locally
(
declare
(
optimize
(
debug-info
2
)))
; Make sure we have arglist info...
(
de
fun
compute-time-overhead-aux
(
x
)
(
declare
(
ignore
x
)))
)
;;; COMPUTE-TIME-OVERHEAD -- Internal
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment