Skip to content
Snippets Groups Projects
Commit e9a8ce34 authored by toy's avatar toy
Browse files

Some changes from Eric Marsden for profiling the current compiler.

parent d8d306e1
No related branches found
No related tags found
No related merge requests found
;;; -*- Package: C -*- ;;; -*- Package: C -*-
;;;
;;; Load this file to profile the CMUCL compiler.
(in-package "C") (in-package "C")
(use-package "PROFILE") (use-package "PROFILE")
...@@ -28,12 +32,10 @@ ...@@ -28,12 +32,10 @@
(declaim (ftype (function (t) *) generate-code)) (declaim (ftype (function (t) *) generate-code))
(declaim (ftype (function (t t t t t t) *) fasl-dump-component)) (declaim (ftype (function (t t t t t t) *) fasl-dump-component))
(declaim (ftype (function (t) *) debug-info-for-component)) (declaim (ftype (function (t) *) debug-info-for-component))
(declaim (ftype (function (t) *) clear-ir2-info))
(declaim (ftype (function (t) *) macerate-ir1-component)) (declaim (ftype (function (t) *) macerate-ir1-component))
(declaim (ftype (function (t) *) merge-top-level-lambdas)) (declaim (ftype (function (t) *) merge-top-level-lambdas))
(declaim (ftype (function (t t) *) note-failed-optimization)) (declaim (ftype (function (t t) *) note-failed-optimization))
(declaim (ftype (function (&optional t) *) clear-stuff)) (declaim (ftype (function (&optional t) *) clear-stuff))
(declaim (ftype (function (t) *) read-source-form))
(declaim (ftype (function (t t) *) fasl-dump-source-info)) (declaim (ftype (function (t t) *) fasl-dump-source-info))
(declaim (ftype (function (t t) *) fasl-dump-top-level-lambda-call)) (declaim (ftype (function (t t) *) fasl-dump-top-level-lambda-call))
(declaim (ftype (function (t t) *) new-assem:append-segment)) (declaim (ftype (function (t t) *) new-assem:append-segment))
...@@ -49,9 +51,9 @@ ...@@ -49,9 +51,9 @@
local-call-analyze local-call-analyze
delete-block delete-block
ir1-optimize ir1-optimize
; join-successor-if-possible join-successor-if-possible
; ir1-optimize-block ir1-optimize-block
; flush-dead-code flush-dead-code
generate-type-checks generate-type-checks
constraint-propagate constraint-propagate
pre-environment-analyze-top-level pre-environment-analyze-top-level
...@@ -84,7 +86,6 @@ ...@@ -84,7 +86,6 @@
generate-code generate-code
debug-info-for-component debug-info-for-component
fasl-dump-component fasl-dump-component
clear-ir2-info
macerate-ir1-component macerate-ir1-component
merge-top-level-lambdas merge-top-level-lambdas
note-failed-optimization note-failed-optimization
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment