Skip to content

Instantly share code, notes, and snippets.

@t-sin
Last active May 1, 2019 18:50
Show Gist options
  • Save t-sin/22019e2321526c28d05fa2b55d72f733 to your computer and use it in GitHub Desktop.
Save t-sin/22019e2321526c28d05fa2b55d72f733 to your computer and use it in GitHub Desktop.
## profile data at running pukunui, after type this code https://plaster.tymoon.eu/view/1362#1362
CPU: Intel Ivy Bridge microarchitecture, speed 3900 MHz (estimated)
Counted CPU_CLK_UNHALTED events (Clock cycles when not halted) with a unit mask of 0x00 (No unit mask) count 100000
samples % image name symbol name
13567 13.0780 pukunui-image CCL::BACKTRACE-CALL-ARGUMENTS
7020 6.7670 pukunui-image RANDOM
6240 6.0151 pukunui-image CCL::CLOSED-OVER-VALUE-P
6037 5.8194 pukunui-image CCL::%STRING-HASH-FOLDING-CASE
4229 4.0766 pukunui-image CCL::%SHOW-STACK-FRAME-LABEL
4098 3.9503 pukunui-image CCL::%SHOW-STACK-FRAME
4045 3.8992 pukunui-image CCL::%BIGNUM-RANDOM
3518 3.3912 pukunui-image CCL::X862-GET-FLOAT
3134 3.0210 pukunui-image FLOAT-SIGN
2846 2.7434 pukunui-image CCL::ARGUMENT-VALUE
2583 2.4899 pukunui-image CCL::%MAP-CALL-FRAMES-INTERNAL
2561 2.4687 pukunui-image CCL::COMPILE-TIME-PROCLAMATION
2510 2.4195 pukunui-image CCL::FASL-SCAN-REF
2215 2.1352 pukunui-image CCL::BIGNUM-LOGCOUNT
1950 1.8797 pukunui-image <Compiled-function.(SETF.CCL::SPARSE-VECTOR-REF).0x30000048331F>
1813 1.7477 pukunui-image CCL::BOGUS-THING-P
1671 1.6108 pukunui-image <METHOD-FUNCTION.CCL::DECOMP-USING-NAME.((EQL.CCL::SELF-CALL).T)>
1625 1.5664 pukunui-image %FF-CALL
1611 1.5529 pukunui-image CCL::BACKTRACE-SUPPLIED-ARGS
1560 1.5038 pukunui-image CCL::BOOTSTRAPPING-FMAKUNBOUND
1392 1.3418 pukunui-image CCL::X862-%IMMEDIATE-STORE
1384 1.3341 pukunui-image PLUSP
1353 1.3042 pukunui-image CCL::REPORT-INVALID-TYPE-COMPILER-WARNING
1307 1.2599 pukunui-image CCL::FIND-SYM-ALPHA-PART
1273 1.2271 pukunui-image CCL::SETF-FUNCTION-NAME
1264 1.2184 pukunui-image CCL::%SHOW-ARGS-AND-LOCALS
1251 1.2059 pukunui-image CCL::FASL-DUMP
1175 1.1327 pukunui-image MAP-CALL-FRAMES
1173 1.1307 pukunui-image CCL::VALID-ALLOCATION-QUANTUM-P
1050 1.0122 pukunui-image CCL::%UNFHAVE
1047 1.0093 pukunui-image MOD
1043 1.0054 pukunui-image CCL::%LOGCOUNT-COMPLEMENT
1008 0.9717 pukunui-image <Compiled-function.(:INTERNAL.PRINT-CALL-HISTORY).(Non-Global)..0x300000A0D3CF>
996 0.9601 pukunui-image CCL::X862-TYPECHECKED-FORM
961 0.9264 pukunui-image MAP
911 0.8782 pukunui-image CCL::NX-BAD-DECLS
894 0.8618 pukunui-image <Compiled-function.(SETF.CCL::BACKEND-LAP-OPCODES).0x30000069A1FF>
761 0.7336 pukunui-image <Compiled-function.(:INTERNAL.CCL::PRINT-LREG).(Non-Global)..0x30000069596F>
705 0.6796 pukunui-image <METHOD-FUNCTION.CCL::DECOMP-USING-NAME.((EQL.CCL::FREE-REFERENCE).T)>
661 0.6372 pukunui-image <Compiled-function.(:INTERNAL.CCL::TALLY-VECTOR.CCL::SPARSE-VECTOR-COUNT).(Non-Global)..0x3000004845DF>
615 0.5928 pukunui-image CCL::NX-EFFECT-OTHER-DECLS
571 0.5504 pukunui-image CCL::%SHORT-FLOAT-MINUSP
564 0.5437 pukunui-image <Compiled-function.(:INTERNAL.CCL::SHOW-PAIR.CCL::%SHOW-ARGS-AND-LOCALS).(Non-Global)..0x300000A0B74F>
538 0.5186 pukunui-image CCL::CONSTANT-KEYWORDS-P
532 0.5128 pukunui-image <Anonymous.Function.0x3000006952DF>
528 0.5090 pukunui-image <Compiled-function.CCL::NATIVE-UTF-16-MEMORY-DECODE.(Non-Global)..0x3000002DB6DF>
465 0.4482 pukunui-image CCL::%SPLIT-COMPONENT
463 0.4463 pukunui-image <Compiled-function.IGNORE-ERRORS.Macroexpander.0x3000008C087F>
443 0.4270 pukunui-image CCL::FASL-DUMP-FORM
364 0.3509 pukunui-image <Compiled-function.CCL::CONSTANT-REF.(Non-Global)..0x300000A3F24F>
356 0.3432 pukunui-image CCL::SET-MAP-ENTRY-VALUE
339 0.3268 pukunui-image CCL::NX-DECLARED-NOTINLINE-P
253 0.2439 pukunui-image CCL::%LOGCOUNT
249 0.2400 pukunui-image CCL::CLOSURE-FUNCTION
247 0.2381 pukunui-image <Compiled-function.(SETF.CCL::LCELL-PARENT).0x30000069423F>
224 0.2159 pukunui-image ASH
110 0.1060 pukunui-image CCL::REPORT-COMPILE-TIME-ARGUMENT-MISMATCH
76 0.0733 pukunui-image CCL::DEFINE-COMPILE-TIME-CONSTANT
57 0.0549 pukunui-image <Compiled-function.CCL::CONSTANT-REF.(Non-Global)..0x300000A3F1FF>
52 0.0501 pukunui-image BACKTRACE-AS-LIST
44 0.0424 pukunui-image CCL::BACKEND-DEFINE-VINSN
37 0.0357 pukunui-image <Compiled-function.CCL::CONSTANT-REF.(Non-Global)..0x300000A3F1AF>
18 0.0174 pukunui-image <Compiled-function.(COMPILER-MACRO-FUNCTION.COERCE).(Non-Global)..0x3000009BC5EF>
14 0.0135 pukunui-image <Compiled-function.(COMPILER-MACRO-FUNCTION.UNION).(Non-Global)..0x3000009AC86F>
11 0.0106 pukunui-image <Compiled-function.WITH-OPEN-STREAM.Macroexpander.0x30000098C02F>
10 0.0096 pukunui-image CCL::%BIVALENT-PRIVATE-IOBLOCK-READ-U8-BYTE
10 0.0096 pukunui-image CCL::FCOMP-SOURCE-NOTE
9 0.0087 pukunui-image <Compiled-function.CCL::CONSTANT-REF.(Non-Global)..0x300000A3F29F>
9 0.0087 pukunui-image CCL::VINSN-TEMPLATE
8 0.0077 pukunui-image <Compiled-function.(SETF.CCL::BACKEND-P2-TEMPLATE-HASH-NAME).0x30000069984F>
6 0.0058 pukunui-image <Compiled-function.(COMPILER-MACRO-FUNCTION.CCL::INSTANCE-CLASS-WRAPPER).(Non-Global)..0x3000009BB82F>
6 0.0058 pukunui-image <Compiled-function.(SETF.CCL::BACKEND-P2-COMPILE).0x300000699B8F>
6 0.0058 pukunui-image CCL::%PSET
6 0.0058 pukunui-image CCL::COPY-CALLNODE
5 0.0048 pukunui-image <Compiled-function.(SETF.CCL::CONDNODE-BRANCHEDGE).0x3000006C1A2F>
5 0.0048 pukunui-image <Compiled-function.PSETQ.Macroexpander.0x3000008D73BF>
5 0.0048 pukunui-image CCL::%NO-NEXT-METHOD
4 0.0039 pukunui-image <Compiled-function.(COMPILER-MACRO-FUNCTION.SLOT-VALUE).(Non-Global)..0x3000009AC34F>
4 0.0039 pukunui-image <Compiled-function.(SETF.CCL::CALLNODE-PRED).0x3000006C0C0F>
4 0.0039 pukunui-image <Compiled-function.PRINT-UNREADABLE-OBJECT.Macroexpander.0x3000008E818F>
3 0.0029 pukunui-image <Compiled-function.(COMPILER-MACRO-FUNCTION.1-).(Non-Global)..0x3000009870BF>
3 0.0029 pukunui-image CCL::ADD-ACCESSOR-TYPES
3 0.0029 pukunui-image CCL::FORMAT-EAT-WHITESPACE
3 0.0029 pukunui-image CCL::REMOVE-EXPLICIT-TEST-KEYWORD-FROM-TEST-TESTNOT-KEY
3 0.0029 pukunui-image CCL::VERIFY-LOGICAL-HOST-NAME
2 0.0019 pukunui-image <Compiled-function.*TICKS-PER-SECOND*.(Non-Global)..0x30000048122F>
2 0.0019 pukunui-image CCL::%IOBLOCK-WRITE-SWAPPED-U16-ENCODED-CHAR
1 9.6e-04 pukunui-image <Compiled-function.(COMPILER-MACRO-FUNCTION.CCL::SET-SLOT-VALUE).(Non-Global)..0x3000009ABF1F>
1 9.6e-04 pukunui-image <Compiled-function.CCL::DEF-CCL-POINTERS.Macroexpander.0x3000008E77EF>
1 9.6e-04 pukunui-image CCL::%IOBLOCK-READ-SWAPPED-U32-CODE-UNIT
1 9.6e-04 pukunui-image CCL::%IOBLOCK-WRITE-S16-ELEMENT
1 9.6e-04 pukunui-image CCL::%LOCKED-IOBLOCK-WRITE-SWAPPED-U16-ENCODED-CHAR
1 9.6e-04 pukunui-image CCL::<-2
1 9.6e-04 pukunui-image CCL::CALLNODE-P
1 9.6e-04 pukunui-image CCL::COUNT-ENTRIES
1 9.6e-04 pukunui-image CCL::FCOMP-LOAD-%MACRO
1 9.6e-04 pukunui-image CCL::NEW-TYPE-CLASS
1 9.6e-04 pukunui-image CCL::STRING-INPUT-STREAM-IOBLOCK-READ-CHAR
~/code/pukunui$ ros run -- -I pukunui-image
Clozure Common Lisp Version 1.11.5/v1.11.5 (LinuxX8664)
For more information about CCL, please see http://ccl.clozure.com.
CCL is free software. It is distributed under the terms of the Apache
Licence, Version 2.0.
? (load "examples/06-applications.lisp")
#P"/home/t-sin/code/pukunui/examples/06-applications.lisp"
? (in-package :ccl)
(setf *warn-if-redefine-kernel* nil)
(defun fasl-dump-epush (form)
(break)
#-bccl (when (fixnump (gethash form *fasdump-hash*))
(error "Bug! Duplicate epush for ~S" form))
(puthash form *fasdump-hash* (setq *fasdump-eref* (1+ *fasdump-eref*))))
(in-package :cl-user)#<Package "CCL">
? NIL
? FASL-DUMP-EPUSH
?
#<Package "COMMON-LISP-USER">
?
(pukunui:start)
#<PROCESS pukunui-sound-thread(3) [Active] #x30200095F8CD>
? ALSA lib pcm_dmix.c:1052:(snd_pcm_dmix_open) unable to open slave
ALSA lib pcm.c:2495:(snd_pcm_open_noupdate) Unknown PCM cards.pcm.rear
ALSA lib pcm.c:2495:(snd_pcm_open_noupdate) Unknown PCM cards.pcm.center_lfe
ALSA lib pcm.c:2495:(snd_pcm_open_noupdate) Unknown PCM cards.pcm.side
ALSA lib pcm_route.c:867:(find_matching_chmap) Found no matching channel map
ALSA lib pcm_dmix.c:1052:(snd_pcm_dmix_open) unable to open slave
Cannot connect to server socket err = No such file or directory
Cannot connect to server request channel
jack server is not running or cannot be started
JackShmReadWritePtr::~JackShmReadWritePtr - Init not done for -1, skipping unlock
JackShmReadWritePtr::~JackShmReadWritePtr - Init not done for -1, skipping unlock
ALSA lib pcm.c:8306:(snd_pcm_recover) underrun occurred
ALSA lib pcm.c:8306:(snd_pcm_recover) underrun occurred
ALSA lib pcm.c:8306:(snd_pcm_recover) underrun occurred
... same lines continue
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment