← Back
Editing: trace.go
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
Save File
Cancel