GOOF----LE-8-2.0( ] h 4 h� ] g guile� � g define-module*� � � g system� g vm� g trace� �
g filenameS� f system/vm/trace.scm� g importsS�
g base� g syntax�
� � � � g frame� � � g program� � � g objcode� � � g traps� � � g rnrs� g bytevectors� ! � "! � #g instruction� $# � %$ � &g ice-9� 'g format� (&' � )( � * "%) � +g exportsS� ,g trace-calls-in-procedure� -g trace-calls-to-procedure� .g trace-instructions-in-procedure� /g call-with-trace� 0,-./ � 1g set-current-module� 21 � 31 � 4g *objcode-header-len*� 5g
string-append� 6g
string-length� 7f � 8g build-prefix� 9f | � :f ~d> � ;g current-error-port� <f ~a~v:@y
� =g frame-call-representation� >g print-application� ?g frame-num-locals� @g frame-local-ref� Af ~d< � Bf ~ano values
� Cf ~a~d values:~{ ~a~}
� Dg map� Ef ~v:@y� Fg frame-return-values� Gg print-return� Hg widthS� IH �� Jg vmS� KJ �� Lg prefixS� ML �� Ng
max-indentS� ON �� PIKMO � Qg the-vm� Rf trace: � Sg trap-calls-to-procedure� Tg trap-calls-in-dynamic-extent� UN �� VIKU � Wg #trap-instructions-in-dynamic-extent� Xg frame-instruction-pointer� Yg program-objcode� Zg frame-procedure� [g objcode->bytecode� \f ~8d: ~a
� ]g opcode->instruction� ^g calls?S� _^ �� `g
instructions?S� a` �� bH �� cJ �� dN �� e_abcd � fg set-vm-trace-level!� gg vm-trace-level�C 5 h@ � ]4
*+05 43 > " G 4R56'7 h` x ]" M�$ 64545��$ 45� "��� 456
"��� p g prefix
^ g depth ^ g infix ^ g numeric-format ^ g
max-indent ^ g indent S g n S g filenamef system/vm/trace.scm�
&
�� ' �� ) �� ( �� * �� + �� + #�� & + �� ) + �� - ( �� . ,
�� 9 , '�� A , �� H . #�� S . �� S ' �� U ' �� ^ ' �� ^ g nameg build-prefix� C8R89:';<= h0 % ]
45 45 4 56 g frame
) g depth ) g width ) g prefix ) g
max-indent ) g prefix ) g filenamef system/vm/trace.scm�
0
�� 1 �� 1 +��
1 1�� 1 �� 1 �� 2 �� 2 !�� ! 5 �� ) 2 �� ) g nameg print-application� C>R?@89A';B<CD'E h h ]L 6 ` g val
g filenamef system/vm/trace.scm�
H �� I !��
I ��
CF h� � ] 4 5 4 �5 45
�$
45 6 �$ 45 4 �5645
4 O 4
556 � g frame
� g depth � g width � g prefix � g
max-indent � g len � g nvalues � g prefix & � g filenamef system/vm/trace.scm�
7
�� 8 �� 8 �� 9 �� 9 )�� 9 �� 8 �� : �� : ,�� " : 2�� & : �� & 8 �� 0 ; �� 3 = �� 9 = $�� = = �� E ; �� H ? �� N ? $�� S B �� \ B &�� ^ B �� ` ? �� c F �� i F $�� n H �� x J �� � H �� � F �� � g nameg print-return� CGRPQRS> h � ] LLL 6� g frame
g depth g filenamef system/vm/trace.scm�
O �� P �� g nameg
apply-handler� CG h � ] LLL 6� g frame
g depth g filenamef system/vm/trace.scm�
Q �� R �� g nameg return-handler� CJ hh ' - / 0 3 # P # 45 # # (� O O 6 g proc
a g width a g vm a g prefix a g
max-indent a g filenamef system/vm/trace.scm�
L
�� $ L =�� 2 M +�� ? N /�� a S �� a
g widthS �g vmS �g prefixS �g
max-indentS � g nameg trace-calls-to-procedure� C-RPQRT> h � ] LLL 6� g frame
g depth g filenamef system/vm/trace.scm�
Y �� Z �� g nameg
apply-handler� CG h � ] LLL 6� g frame
g depth g filenamef system/vm/trace.scm�
[ �� \ �� g nameg return-handler� CJ hh ' - / 0 3 # P # 45 # # (� O O 6 g proc
a g width a g vm a g prefix a g
max-indent a g filenamef system/vm/trace.scm�
V
�� $ V =�� 2 W +�� ? X /�� a ] �� a
g widthS �g vmS �g prefixS �g
max-indentS � g nameg trace-calls-in-procedure� C,RVQWXYZ[4'\] h8 ]4 5 44 55 45�� 456 g frame
8 g ip 8 g objcode 8 g opcode & 8 g filenamef system/vm/trace.scm�
b �� c �� c �� d �� d %�� d �� c �� e &�� % f &�� & e �� & c �� - g �� 0 g �� 8 g �� 8 g nameg
trace-next� CJ hH - / 0 3 # P # 45 # (� 6 � g proc
C g width C g vm C g
max-indent C g filenamef system/vm/trace.scm�
`
�� $ ` D�� 5 a 6�� C i �� C
g widthS �g vmS �g
max-indentS � g nameg trace-instructions-in-procedure� C.ReQ,JHN.fg hP � ] L$ 4LLLL5N" L $ 4LLLL5N" L4L5�6 � g filenamef system/vm/trace.scm�
t �� u �� w �� v �� ' y �� ( { �� < z �� E } $�� L } �� N } �� N
Cfg hX � ] 4L4L5�> " G M$ 4M> " G " M $ 4M > " G " NN C� g filenamef system/vm/trace.scm�
�� � �� � $�� � �� � �� " � �� # � �� < � �� = � �� S � �� V � �� X
C,JHN.fg hP � ] L$ 4LLLL5N" L $ 4LLLL5N" L4L5�6 � g filenamef system/vm/trace.scm�
t �� u �� w �� v �� ' y �� ( { �� < z �� E } $�� L } �� N } �� N
Cfg hX � ] 4L4L5�> " G M$ 4M> " G " M $ 4M > " G " NN C� g filenamef system/vm/trace.scm�
�� � �� � $�� � �� � �� " � �� # � �� < � �� = � �� S � �� V � �� X
Cfg hX � ] 4L4L5�> " G M$ 4M> " G " M $ 4M > " G " NN C� g filenamef system/vm/trace.scm�
�� � �� � $�� � �� � �� " � �� # � �� < � �� = � �� S � �� V � �� X
C h� � - / 0 3 # # # P # 45 # (� HH O O 4 O > " G V4 > X4O > " G CX4O > " G F ~ g thunk
� g calls? � g
instructions? � g width � g vm � g
max-indent � g call-trap K � g inst-trap K � g filenamef system/vm/trace.scm�
o
�� 6 p )�� G p ?�� K q �� p s �� �
g calls?S �g
instructions?S �g widthS �g vmS �g
max-indentS � g nameg call-with-trace� C/RC � g m
, g filenamef system/vm/trace.scm�
�� 1 $
�� # &
�� � 0
�� � 7
�� � L
�� � V
�� � `
�� 9 o
��
;
C6