/
/
lib64
/
guile
/
2.0
/
ccache
/
system
/
vm
Server: server63.web-hosting.com (198.54.116.184)
You: 216.73.216.61
PHP 7.4.33
Dir:
/lib64/guile/2.0/ccache/system/vm
Edit:
/lib64/guile/2.0/ccache/system/vm/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 % ] 4545 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 54 �545 �$ 45 6�$ 45 4 �5645 4O 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 544 5545��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>