/
/
usr
/
lib64
/
guile
/
2.0
/
ccache
/
language
/
glil
Server: server63.web-hosting.com (198.54.116.184)
You: 216.73.216.187
PHP 7.4.33
Dir:
/usr/lib64/guile/2.0/ccache/language/glil
Edit:
/usr/lib64/guile/2.0/ccache/language/glil/compile-assembly.go
GOOF----LE-8-2.0;� ]L 4 h� ] g guile� � g define-module*� � � g language� g glil� g compile-assembly� � g filenameS� f "language/glil/compile-assembly.scm� g importsS� g system� g base� g syntax� � � g pmatch� � � � � g assembly� � � g vm� g instruction� � � g program� � g selectS� !g make-binding� "! � # " � $g ice-9� %g receive� &$% � '& � (g vlist� )$( � *) � +g srfi� ,g srfi-1� -+, � .g fold� /. � 0- / � 1g rnrs� 2g bytevectors� 312 � 43 � 5#'*04 � 6g exportsS� 7 � 8g set-current-module� 98 � :8 � ;g vlist-ref� <g vlist-length� =g vhash-fold-right2� >g fold2� ?g vector-length� @g vector-fold2� Ag make-record-type� Bf <variable-cache-cell>� Cg key� DC � Eg <variable-cache-cell>� Fg make-variable-cache-cell� Gg record-predicate� Hg variable-cache-cell?� Ig make-procedure-with-setter� Jg record-accessor� Kg record-modifier� Lg variable-cache-cell-key� Mg reverse!� Ng assq-ref� Og filename� Pg line� Qg column� Rg limn-sources� Sg append� TS � US � Vg dump-object� Wg return� XW � YX � Zg load-program� [g addr+� \g make-meta� ]g object->assembly� ^g immediate?� _g last-pair� `g scheme-list?� ag vhash-assoc� bg number?� cg string?� dg keyword?� eg vhash-cons� fg array?� gg error� hf )build-constant-store: unrecognized object� ig array-shape� jg vector->list� kg <glil-program>� lg glil-program-body� mg glil-program-meta� ng <glil-const>� og glil-const-obj� pg <glil-kw-prelude>� qg glil-kw-prelude-kw� rg <glil-toplevel>� sg glil-toplevel-name� tg glil-toplevel-op� ug <glil-module>� vg glil-module-mod� wg glil-module-name� xg glil-module-public?� yg glil-module-op� zg vlist-null� {g build-constant-store� |f unhandled record� }g build-object-table� ~g make-open-binding� g make-closed-binding� �g map� �f unknown binding type� �g open-binding� �f broken bindings� �g close-binding� �g cdr� �g stable-sort� �g reverse� �g close-all-bindings� �g open-arity� �f bad arities� �g close-arity� �g begin-arity� �g compile-program� �g byte-length� �g vlist-null?� �g dump-constants� �g align-program� �g tail-call� �� � �� � �g make-list� �g nop� �� � �g glil->assembly� � � �g make-false� �� � �� � �g object-ref� �g long-object-ref� �f vcache cell key not in table� �g glil-program?� �g compile-objtable� �f unrecognized constant� �� � �g vector� �g <glil-std-prelude>� �g glil-std-prelude-nreq� �g glil-std-prelude-nlocs� �g glil-std-prelude-else-label� �g br-if-nargs-ne� �g assert-nargs-ee� �g reserve-locals� �g assert-nargs-ee/locals� �g <glil-opt-prelude>� �g glil-opt-prelude-nreq� �g glil-opt-prelude-nopt� �g glil-opt-prelude-rest� �g glil-opt-prelude-nlocs� �g glil-opt-prelude-else-label� �g br-if-nargs-lt� �g assert-nargs-ge� �g bind-optionals� �g push-rest� �g br-if-nargs-gt� �g glil-kw-prelude-nreq� �g glil-kw-prelude-nopt� �g glil-kw-prelude-rest� �g !glil-kw-prelude-allow-other-keys?� �g glil-kw-prelude-nlocs� �g glil-kw-prelude-else-label� �g and=>� �f kw not in objtable� �g max� �g 1+� �g bind-optionals/shuffle� �g bind-optionals/shuffle-or-br� �g bind-kwargs� �g bind-rest� �g <glil-bind>� �g glil-bind-vars� �g <glil-mv-bind>� �g glil-mv-bind-vars� �g glil-mv-bind-rest� �g integer?� �g truncate-values� �g length� �g <glil-unbind>� �g <glil-source>� �g glil-source-props� �g <glil-void>� �g void� �� � �� � �f const not in table� �g <glil-lexical>� �g glil-lexical-local?� �g glil-lexical-boxed?� �g glil-lexical-op� �g glil-lexical-index� �g ref� �g local-boxed-ref� �g local-ref� �g set� �g local-boxed-set� �g local-set� �g box� �g empty-box� �g fix� �g fix-closure� �g bound?� �g variable-bound?� �� � �� � �g local-bound?� �f what� �g long-local-ref� �g variable-ref� �� � �� � �g variable-set� �� � �� � �g long-local-set� �g make-variable� �� � �g long-local-bound?� �g free-boxed-ref� �g free-ref� �g free-boxed-set� �f what.� �g toplevel-ref� �g toplevel-set� �g long-toplevel-ref� �g long-toplevel-set� �f toplevel name not in objtable� �g link-now� � �g define� � �f unknown toplevel var kind�f module vcache not in objtable�f unknown module var kind�g <glil-label>�g glil-label-label� g align-block� g <glil-branch>�g glil-branch-inst�g glil-branch-label� g <glil-call>�g glil-call-inst�g glil-call-nargs�g instruction?�f Unknown instruction:�g instruction-pops�g instruction-length�f ,Unknown length for variable-arg instruction:�f /Wrong number of stack arguments to instruction:�g <glil-mv-call>�g glil-mv-call-nargs�g glil-mv-call-ra�g mv-call�g <glil-prompt>�g glil-prompt-label�g glil-prompt-escape-only?�g prompt�g load-number�g number->string� g string-bytes-per-char�!g load-string�"g align-code�#g load-wide-string�$f bad string bytes per char�%g symbol->string�&g load-symbol�'g make-symbol�(' �)( �*g keyword->symbol�+g make-keyword�,+ �-, �.g string-append�/f list�0f too long�1g list�2g cons�32 �43 �5g array-type�6g load-array�7g uniform-array->bytevector�8g array-contents�9g make-array�:f dump-object: unrecognized object�;f vector�<f write-table: unrecognized object�=g dup�>= �?g vector-set�@? �A@ �B� �C� �DBC �ED �F� �Gg new-frame�HG �Ig call�JI �KCJ �C 5 h� A ]4 5675 4: > " G ; hH 6 ] �$ D4L �54L ��> G � "��� . g i G g s0 G g s1 G g pair . g s0 / G g s1 / G g filenamef "language/glil/compile-assembly.scm� $ �� % �� % �� & �� ' %�� ' 6�� ' %�� ' �� ( �� " ( !�� % ( ,�� . ( �� 2 ' �� 9 ) �� G ) �� G g nameg lp� C< h( � ]O Q 456 � g proc $ g vhash $ g s0 $ g s1 $ g lp $ g filenamef "language/glil/compile-assembly.scm� # �� $ �� $ �� $ $ �� $ g nameg vhash-fold-right2� C=R h8 � ] ( D4L �> G � "��� � g ls 6 g s0 6 g s1 6 g s0 6 g s1 6 g filenamef "language/glil/compile-assembly.scm� , �� - �� . �� / �� / �� / �� ! / �� ( 0 �� 6 0 �� 6 g nameg lp� C h � ]O Q 6 � g proc g ls g s0 g s1 g lp g filenamef "language/glil/compile-assembly.scm� + �� , �� g nameg fold2� C>R? h@ � ] L�$ *4L L �> G � "���D � g i ; g s0 ; g s1 ; g s0 5 g s1 5 g filenamef "language/glil/compile-assembly.scm� 4 �� 5 �� 5 �� 6 �� 6 !�� 6 �� 6 �� ' 7 �� 5 7 �� ; 8 �� ; g nameg lp� C h0 � ]45O Q 6 � g proc * g vect * g s0 * g s1 * g len * g lp * g filenamef "language/glil/compile-assembly.scm� 2 �� 3 �� 3 �� 4 �� * g nameg vector-fold2� C@R4AiBD5ERE h � - 1 3 � C � g key g defrec-4ed7d27bcd936f9-49d g filenamef "language/glil/compile-assembly.scm� @ �� g nameg make-variable-cache-cell� CFR4GiEi5HR4Ii4JiEiC54KiEiC55LRMNOPQ h� C ]9" �( 6��4��54��54��5�$ E( " �����$ ����"����"��y������"��Y "��K ; g sources � g in � g out � g filename � g addr 7 � g new-filename 7 � g line 7 � g column 7 � g filenamef "language/glil/compile-assembly.scm� B �� C �� D �� E �� F �� G �� G &�� G 1�� ! G �� " H �� ' H �� * H (�� , H �� - I �� 2 I �� 5 I *�� 7 I �� 7 F �� D K �� H J �� N Q �� O Q �� V Q )�� \ Q 4�� ] Q !�� ^ Q �� b J �� e R �� l S �� | R �� W �� � W �� � L �� � M �� � L �� � C �� � C �� � C �� ' � g nameg limn-sources� CRRUVYZ[ h0 ]44 ��� 554 5����C g bindings / g sources / g arities / g tail / g body / g filenamef "language/glil/compile-assembly.scm� \ �� ] �� ] �� ] �� ] �� ] �� ] �� _ �� ` �� ( _ �� / g nameg make-meta� C\R] h � ] 6{ g x g filenamef "language/glil/compile-assembly.scm� f �� g �� g nameg immediate?� C^R_ h0 � ] �$ ! &